C********************************************************************** C SUBROUTINE COPY25 C C READ THE DIFFRACTOMETER CALIBRATION FILE AND WRITE C RECORDS 2 THROUGH 5 OF THE RAW DATA FILE. C C CURRENTLY READS THE OLD CONFIGURATION FILE FORMAT C THERE SHOULD ALSO BE A VERSION TO READ DIFFRAC-500 FILE. C INCLUDE 'COMMON.FTN' C C OPEN(UNIT=ICAL,FILE='CONFIG.DAT',STATUS='OLD',READONLY) OPEN(UNIT=ICAL,NAME='CONFIG.DAT',TYPE='OLD',SHARED) C DO 7,I=1,4 READ(ICAL,4) (CNT(J),J=1,32) WRITE(IRAW,4) (CNT(J),J=1,32) 7 CONTINUE 4 FORMAT(32A4) C CLOSE(UNIT=ICAL) RETURN END