#!/bin/nawk -f
#nawk script to split a pdb file with multiple NMR structures
#into seperate files.
#M. Nelson and B. Sheehan 4/3/96
#command line: splitpdb pdb_filename

BEGIN {
	filenum = 0
}

{
	if ( $1 ~ /MODEL/ ) { 
		filenum++ 
		print_pdb_header()
	}
	if ( $1 ~ /ATOM/ ) {
		print >> filename 
	}
	close(filename)
}

function print_pdb_header() {
	filename = sprintf("model_%03d.pdb",filenum)
	printf "HEADER    "ARGV[1]"\n" > filename
}