      SUBROUTINE CR6SEC(GAMMA2,SCF,TIME,BAD)
C
C USING 24 MINUTE (1440 SECONDS) CR-6 EDR RECORD, INTERPOLATE SECONDARY MAG 
C DATA (3.84 SEC) TO PRIMARY MAG RATE (1.92 SEC).
C
C ORIGINAL SOURCE WRITTEN BY SANDY KRAMER, HUGHES STX CODE 692 - 03/21/96
C
      INTEGER*2 TIME(6)
C
      REAL*4 GAMMA(3,750),GAMMA2(3,375),SCF(3,750)
C
      INCLUDE 'UNPACK.INC'
C
      DO I=1,750
C
C STEP INTERPOLATE 3.84 SECOND CR-6 SECONDARY MAG DATA TO 1.92 SECOND
C PRIMARY MAG RATE.
C
       ISEC = (I-1)/2 + 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-6 AVERAGING ROUTINES
C
      CALL CR6PRI(GAMMA,SCF,TIME,BAD)
C
      RETURN
      END
