      SUBROUTINE DECOMM(DEC)
C
C EXTRACT DECOMMUTATION MAP WORDS
C
      LOGICAL*1 DEC(448),BYTE(4)
C
      INCLUDE 'UNPACK.INC'
C
C EXTRACT 16 BIT DECOMM MAP WORD FROM 32 BIT IBM DATA WORD
C
C      10987654321098765432109876543210   BIT ORDER
C       ______________________________
C      |              ||              |   IBM 32 BIT DATA WORD
C      | MAP WORD(X)  || MAP WORD(X+1)|   CONTENTS
C      |              ||              |   
C       ------------------------------
C
C READ PAIR OF 16 BIT WORDS FROM EACH 32 BIT IBM DATA WORD
C SWAP BYTES FOR PROPER INTERPRETATION UNDER DEC ARCHITECTURE
C 
C 112 32 BIT WORD DECOMMUTATION MAP DATA BLOCK CONTAINS 223 16 BIT
C MAP WORDS AND 1 SPARE 16 BIT WORD
C
      DO I = 1,112
C BIT OFFSET OF LSB IN DATA WORD I 
       J = (I-1)*32
C MAP WORD COUNT 
       K = (I-1)*2
C MOVE MAP WORD DATA INTO 2 BYTE INTEGER VARIABLES
       MAP(K+1) = 0
       MAP(K+2) = 0
       CALL MOVBIT(DEC,    J, 8, MAP(K+1), 8)
       CALL MOVBIT(DEC,  J+8, 8, MAP(K+1), 0)
       CALL MOVBIT(DEC, J+16, 8, MAP(K+2), 8)
       CALL MOVBIT(DEC, J+24, 8, MAP(K+2), 0)
      END DO
C
C     DO I = 1,224,8
C      WRITE(6,800) I,(MAP(I+J),J=0,7)
C     END DO
C
  800 FORMAT(1X,I3,2X,8(1X,I3))
C
      RETURN
      END
