PROGRAM fixocc

c	Set occupancies=0 for residues for whom occupancies are fixed at 1

	CHARACTER*65	line1, line2

	WRITE (6, 1000) 'Enter input filename:'
1000	FORMAT (a)
	READ (5, 1000) line1
	WRITE (6, 1000) 'Enter output filename:'
	READ (5, 1000) line2

	OPEN (unit=1, form='FORMATTED', status='OLD', readonly,
	1	file=line1)
	OPEN (unit=2, form='FORMATTED', status='UNKNOWN', file=line2,
	1	carriagecontrol='LIST')

c	Main loop

	DO WHILE (.TRUE.)
	  READ (1, 1000, end=9) line1
	  READ (line1(9:11), 1001) i1
1001	  FORMAT (i3)
	  IF (i1 .LE. 438) THEN 
	    line1(60:60) = '0'
	  endIF
	  WRITE (2, 1000) line1
	endDO

9 	CLOSE (unit=1)
	CLOSE (unit=2)

	end