      SUBROUTINE VIM5SEC(GAMMA2,SCF,TIME,BAD)
C
C USING 192 SECOND VIM-5 EDR RECORD,
C INTERPOLATE SECONDARY MAG DETAIL (24 SEC) DATA POINTS
C TO PRIMARY MAG DETAIL RATE (.48 SEC).
C
      INTEGER*2 TIME(6)
C
      REAL*4 GAMMA(3,400),GAMMA2(3,8),SCF(3,400)
C
      INCLUDE 'UNPACK.INC'
C
      DO I=1,400
C
C STEP INTERPOLATE 24 SECOND VIM-5 SECONDARY MAG DATA
C
       ISEC = (I-1)/50 + 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 VIM-5 AVERAGING ROUTINES
C
      CALL VIM5PRI(GAMMA,SCF,TIME,BAD)
C
      RETURN
      END
