INTEGER*2 H,K,L,N,HMAX,HOFF
       CHARACTER*40 FNAME,ASTRING
	R32K=128*256
       TYPE *,'Make dummy reflection data for loading into PROTEIN'
	TYPE*,'so it will calc Fobs for all reflections.  '
 30    TYPE *,'ENTER FILE NAME FOR OUTPUT:'
 40    FORMAT (A40)
       read(5,40)FNAME
       OPEN(UNIT=3,FILE=FNAME,STATUS='NEW')

	iclass=1
	j=0
	x1=1
	s=0
c	do 80 l=0,75 
c	do 80 h=0,44
c	do 80 k=h,44
	do 80 h=0,75
	do 80 k=0,24
       if (h+k.ne.2*int((h+k)/2)) goto 80
	do 80 l=0,36

        N2=N2+1
 	WRITE(3,102) H,K,L,J,X1,S,ICLASS
80 	continue
C	J IS PARTIALITY: 1 -> PARTIAL
C	X1 IS PROFILLE-FITTED INTENSITY,S IS SIGMA (IF ZERO, VERY HIGH SIGMA?)
102    FORMAT (3I4,I2,F10.0,F8.2,I3)
    	CLOSE (UNIT=3)
	TYPE *,'NUMBER OF SPOTS USED:',N2
	END