#! /bin/awk -f

# Author: Zygmunt Flisak
# Added to Database: 31/01/05

/[^:alnum:]/ 	{ 
		freeze=9; unfreeze=50;
		if (NR>freeze && NR<=unfreeze && NR>1 )
			{ print  "r" a+1, "= ", $5; print "a" a+1, "= ", $6; print "d" a+1, "= ", $7 }
			else 
			{ print  "r" a+1, "= ", $5, "F"; print "a" a+1, "= ", $6, "F"; print "d" a+1, "= ", $7, "F" }
		a=a+1 
		} 

# The same as 'coord' but works for Z-matrices
# ZF, Feb/06/04