#! /bin/awk -f

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

/[^:alnum:]/ {if (a == 0) print $1, $2, $3, $4, "0 0 0"; \
	          else if (a == 1)  print $1, $2, $3, $4, "r" a+1, "0 0";\
                           else if (a == 2)  print $1, $2, $3, $4, "r" a+1, "a" a+1, "0 "; \
				 else print $1, $2, $3, $4, "r" a+1, "a" a+1, "d" a+1; a=a+1 }

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