SUBROUTINE UNPACKENG(INBUF)
C
C DRIVER TO UNPACK VOYAGER ENGINEERING RECORD
C
C   240 BYTE HEADER
C    20 BYTE SUBHEADER
C  3600 BYTE ENGINEERING DATA
C  ----
C  3860 BYTE ENG EDR
C
C WRITTEN BY S. KRAMER, CODE 692, 06/07/94
C
      LOGICAL*1 INBUF(11280),SUB(20),ENG(3600)
C
      INCLUDE 'UNPACK.INC'
C
C SEPARATE SUBHEADER SPARES (20 BYTES)
C
      DO I = 241,260
       J = I - 240
       SUB(J) = INBUF(I)
      END DO
C
C SEPARATE ENGINEERING DATA (3600 BYTES = 60 MF)
C
      DO I = 261,3860
       J = I - 260
       ENG(J) = INBUF(I)
C      WRITE(6,'(1X,I4,1X,Z2)') J,ENG(J)
      END DO
C
      CALL ENGOUT(ENG)
C
      RETURN 
      END