INTEGER*2 H,K,L,I(0:100,0:100,0:100) CHARACTER*40 FNAME,ASTRING c TYPE *,'READ DENZO OUTPUT FILE WRITE INPUT FOR PROTEIN' c TYPE*,'USING PROFILE FITTED INTENSITY AND VARIATION, COLUMNS 5 AND 8 ' c TYPE*,'SPOTS WITH NEGATIVE SIGMA (DENZO OVERFLOW) GIVEN CLASS 3, ', c & 'POSITIVE SIGMA' 30 TYPE *,'ENTER FILE NAME (Q TO QUIT):' 35 read(5,40)FNAME IF (FNAME.EQ.'Q') GOTO 501 40 FORMAT (A40) OPEN(UNIT=2,FILE=FNAME,STATUS='OLD',readonly) 70 READ(2,101,END=500)H,K,L 101 FORMAT (3I4) if (I(h,k,l).ne.0) write(6,*)'duplicate:',h,k,l I(h,k,l)=1 GOTO 70 500 CLOSE (UNIT=2) 501 continue END