#gawk script that adds a first line to the mtx file, with
#	the residue name and number for each field
#M. Nelson (with advice from B. Sheehan) 4/23/96

BEGIN {
filenum = ENVIRON["FILENUM"]
namebase = ENVIRON["NAMEBASE"]
if (filenum) {
	filename = sprintf("%s%02d",namebase,filenum) 
	filler = "------------"	
	printf("%12s ",filler) > filename
	x = 0
}
}

{
num_lines = ENVIRON["NUM_LINES"]
data_fields = (NF - 3)
endpt = data_fields + ((filenum-1)*15) 
startpt = endpt - data_fields
if ( x >= startpt && x < endpt ) {
	printf("%3s_%3s",$1,$2) >> filename }
	x++
}

END {
printf("\n") >> filename
printf("\n") >> filename

close (filename)

while (getline < ARGV[1]) {
	print $0 >> filename 
}

}