C
C SUBROUTINE 'CCPBYI'
C ===================
C
C COPY AN ARRAY OF UNSIGNED (OR SIGNED) BYTES INTO AN INTEGER ARRAY
C
C (MUST BE IMPLEMENTED IF CCPBYT FUNCTION RETURNS .TRUE.)
C
      SUBROUTINE CCPBYI(IA,IBYT,NB)
C
C PARAMETERS
C
C      IA (O)   ARRAY TO RETURN INTEGER VALUES
C    IBYT (I)   ARRAY HOLDING BYTE DATA (MAY BE AN INTEGER ARRAY FOR EXAMPLE
C               WITH DATA PACKED INTO ADJACANT BYTES
C      NB (I)   IF >0, THE NUMBER OF UNSIGNED BYTES TO BE COPIED 
C               IF <0, -THE NUMBER OF SIGNED BYTES TO BE COPIED
C
C ***CONVEX VERSION***
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      INTEGER IA(*)
      BYTE IBYT(*)
      BYTE JBYT(4)
      EQUIVALENCE (JA,JBYT(1))
C
C COPY DATA
C ---------
C
      NE = NB
      IF (NE.GT.0) THEN
         JA=0
         DO 10 I=1,NE
         JBYT(4)=IBYT(I)
         IA(I)=JA
10       CONTINUE
      ELSE
         NE = -NE
         DO 20 I=1,NE
         IA(I) = IBYT(I)
20       CONTINUE
      END IF
      RETURN
      END
