      SUBROUTINE CR5SEC(GAMMA2,SCF,TIME,BAD)
C
C USING 9.6 MINUTE (576 SECONDS) CR-5 EDR RECORD, INTERPOLATE SECONDARY MAG 
C DATA (.96 SEC) TO PRIMARY MAG RATE (.24 SEC).
C
C WRITTEN 10/21/94 BY S. KRAMER, CODE 692.
C MODIFIED TO ACCEPT DELTA MODULATION - SBK 02/21/96
C
      INTEGER*2 TIME(6)
C
      REAL*4 GAMMA(3,2400),GAMMA2(3,600),SCF(3,2400)
C
      INCLUDE 'UNPACK.INC'
C
      DO I=1,2400
C
C STEP INTERPOLATE .96 SECOND CR-5 SECONDARY MAG DATA TO .24 SECOND
C PRIMARY MAG RATE.
C
       ISEC = (I-1)/4 + 1
       GAMMA(1,I) = GAMMA2(1,ISEC)
       GAMMA(2,I) = GAMMA2(2,ISEC)
       GAMMA(3,I) = GAMMA2(3,ISEC)
C
      END DO
C
C CALL CR-5 AVERAGING ROUTINES
C
      CALL CR5PRI(GAMMA,SCF,TIME,BAD)
C
      RETURN
      END
