SUBROUTINE UNPACKDEC(INBUF)
C
C DRIVER TO UNPACK VOYAGER DECOMMUTATION RECORD
C
C   240 BYTE HEADER (60 WORDS)
C    28 BYTE SUBHEADER (7 WORDS)
C   448 BYTE DECOMMUTATION MAP DATA (112 WORDS)
C  ----
C   716 BYTE DECOMMUTATION EDR
C
C WRITTEN BY S. KRAMER, CODE 692, 06/07/94
C
C
      LOGICAL*1 INBUF(11280),SUB(28),DEC(448)
C
      INCLUDE 'UNPACK.INC'
C
C SEPARATE SUBHEADER SPARES (28 BYTES)
C
      DO I = 241,268
       J = I - 240
       SUB(J) = INBUF(I)
      END DO
C
C SEPARATE DECOMMUTATION DATA (448 BYTES)
C
      DO I = 269,716
       J = I - 268
       DEC(J) = INBUF(I)
C      WRITE(6,'(1X,I4,1X,Z2,1X,I3)') J,DEC(J),ZEXT(DEC(J))
      END DO
C 
      CALL DECOMM(DEC)
C
      RETURN 
      END