character*80 line
	character*40 flname,FILENAME,outname
	character*4 ID(1000)
	LOGICAL EFLG
c	real*4 S(1000),B(1000)
	integer*2 h,k,l

C	WRITE(6,*)'PROGRAM TO SUMMARIZE PROTEIN LOG FILE (SCALE).'
	WRITE(6,*)
5	write(6,*)' Enter name of (input) file:'
	read(5,11) flname
11	format(a40)
	  INQUIRE(FILE=flname, NAME=FILENAME,EXIST=EFLG)
	  IF (.NOT.EFLG) GOTO 5
	open(unit=2,file=flname,status='old',readonly,recl=132)

	write(6,*)' Enter name for output file:'
	read(5,11) outname
	open(unit=9,file=outname,status='new')
c	, CARRIAGECONTROL='LIST')

	do 100 i=1,2
	read(2,103)line
100	write (9,103)line
103	format(a80)
200	read(2,*,end=500) h,k,l,f,phi
	icount=icount+1
	f=f*1000.
	write(9,203)h,k,l,f,phi
203	format(3i4,2f7.0)
        goto 200
500	close (unit=2)
	close (unit=9)
	write(6,*) icount,' reflections multiplied by 1000.'
	end