                                                                                                                                    
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
