CHARACTER*40 LINE,FLNAME,OUTNAME

	WRITE(6,1)
1	FORMAT(' PROGRAM TO SELCT HKLSF LINES FROM LCFDUMP OUTPUT')
	write(6,*)' Enter name of LCFDUMP log file:'
	read(5,11) flname
11	format(a40)
	open(unit=2,file=flname,status='old',recl=132)

	write(6,*)' Enter name for output file:'
	read(5,11) outname
C	WRITE TO NEXT VERSION OF SAME FILE. NO, WRITE TO TEMP.HKL. NO, READ FNAME
	open(unit=3,file=OUTNAME,status='new',carriagecontrol='list')

40	READ(2,11) LINE
	IF (LINE(1:19).NE.'LIST OF REFLECTIONS') GOTO 40
50	READ(2,11) LINE
	IF (LINE.EQ.'         ')GOTO 50
	WRITE(3,11) LINE
60	READ(2,11) LINE
	IF (LINE.EQ.'         ')GOTO 70
	WRITE(3,11) LINE
	GOTO 60
70	CLOSE (UNIT=2)
	CLOSE (UNIT=3)
	END