INTEGER*2 H,K,L,N,HMAX,HOFF
       CHARACTER*40 FNAME,ASTRING
	R32K=128*256
       TYPE *,'READ .RFL FILES AND CHANGES THE SIGN OF H     '
	TYPE*,'FOR C2 SPACE GROUP, THIS MAKES EQUIV TO REFL ROT 180 ABOUT Z. '
 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)
       TYPE *,'ENTER FILE NAME FOR OUTPUT:'
       read(5,40)FNAME
       OPEN(UNIT=3,FILE=FNAME,STATUS='NEW')

70	READ(2,102,END=500) H,K,L,J,X1,S,ICLASS
	H = -H
	WRITE(3,102) H,K,L,J,X1,S,ICLASS
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)
       GOTO 70

500	CLOSE (UNIT=2)
    	CLOSE (UNIT=3)
	TYPE *,'NUMBER OF SPOTS REPORTED:',N1,'   NUMBER USED:',N2
	TYPE *,'NUMBER OF SPOTS partial:',pcount,'   NUMBER full:',fcount
	if (n2.gt.0) then
	write(6,*)' average of sigma(I)/I:',sumr/n2,
     . '   sum of sigma/sum of I:',sums/sumI
	end if
	GOTO 30
501	CONTINUE
	END