PROGRAM splicealt

c	Copies alternate conformation coordinates from one PDB onto another PDB

c	Note these conformations MUST BE IN SAME ORDER

	CHARACTER*76 	line, l(400)

c	Read correct coordinates

	WRITE (6, 1000) ' Enter input file name having correct AC2 coordinates:'
1000	FORMAT (a)
	READ (5, 1000) line

	OPEN (unit=1, file=line, form='FORMATTED', status='OLD')

	n = 0
	DO WHILE (.TRUE.)
5	  READ (1, 1000, end=9) line

	  IF (line(74:75) .NE. 'C2') GOTO 5
	  n = n + 1
	  l(n) = line
	endDO

9	CLOSE (unit=1)

c	Read file with bad coordinates and replace

	WRITE (6, 1000) ' Enter input file name having incorrect AC2 coordinates:'
	READ (5, 1000) line

	OPEN (unit=1, file=line, form='FORMATTED', status='OLD')

	WRITE (6, 1000) ' Enter output file name:'
	READ (5, 1000) line

	OPEN (unit=2, file=line, form='FORMATTED', status='UNKNOWN')

	n = 0
	DO WHILE (.TRUE.)
	  READ (1, 1000, end=19) line

	  IF (line(74:75) .EQ. 'C2') THEN
	    n = n + 1
	    line(31:54) = l(n)(31:54)
	  endIF

	  WRITE (2, 1000) line
	endDO

19	CLOSE (unit=1)
	CLOSE (unit=2)

	end