PROGRAM	pkstoptn

c	Reformat peaks in PTN file

	CHARACTER*80	filename

	READ (5, 1001) nstart
1001	FORMAT (i5)

	WRITE (6, 1000) 'Enter filename for input file:'
1000	FORMAT (a)
	READ (5, 1000) filename
	WRITE (6, 1000) filename
	OPEN (unit=1, status='OLD', readonly, file=filename)

	WRITE (6, 1000) 'Enter filename for output file:'
	READ (5, 1000) filename
	WRITE (6, 1000) filename
	OPEN (unit=2, status='UNKNOWN', carriagecontrol='LIST',
	1	file=filename, form='FORMATTED')

	DO WHILE (.TRUE.)
	  READ (1, 1002, end=5) pk, i, j, k, x, y, z
1002	  FORMAT (f15.4, 3i5, 3f10.3)
	  WRITE (2, 1003) 'WAT ', nstart, 'OH  ', x, y, z, 10., 1.
1003	  FORMAT (3x, a4, 1x, i3, a4, 5f10.5)
	  nstart = nstart + 1
	endDO

5	CLOSE (unit=1)
	CLOSE (unit=2)

	end