C C C MARXER.FOR C* ********************************************** C CHARACTER*7 LABEL CHARACTER*50 INFILE,OUTFILE,FILENAME CHARACTER*40 FNAME,ASTRING integer*2 h,k,l LOGICAL EFLG WRITE(6,1000) 1000 FORMAT(//' Enter name of file w h,k,l,f,sigma to format:') 5 write(6,1100) 1100 FORMAT(/'$Input filename (CR to quit): ') READ(5,1200) INFILE 1200 FORMAT(A) IF (INFILE(:5).EQ.' ') STOP INQUIRE(FILE=INFILE, NAME=FILENAME,EXIST=EFLG) IF (.NOT.EFLG) GOTO 5 OPEN (UNIT=2,FILE=INFILE,readonly,STATUS='OLD') C WRITE(6,1600) C1600 FORMAT('$Output filename: ') C READ(5,1200) OUTFILE c OPEN(UNIT=3,FILE=OUTFILE,STATUS='NEW',RECL=1200) c OPEN (UNIT=3,FILE='temp.rfl',STATUS='NEW') 200 read(2,300,end=990)label,x,y,z write(6,300)label,x,y,z c write(3,300)h,k,l,fobs,sigma 300 FORMAT (A6,4F9.6) goto 200 990 CLOSE(UNIT=2) CLOSE (UNIT=3) END