C
C SUBROUTINE 'CCPGTB'
C ===================
C
C GET AN UNSIGNED BYTE VALUE FROM 0 TO 255 FROM THE N'TH BYTE OF AN INTEGER
C (OR OTHER) ARRAY.
C
C (MUST BE IMPLEMENTED IF CCPBYT FUNCTION RETURNS .TRUE.)
C
      SUBROUTINE CCPGTB(IVAL,IA,N)
C
C PARAMETERS
C
C    IVAL (O)   THE RETURNED INTEGER VALUE FROM 0 TO 255
C      IA (I/O) THE ARRAY FROM WHICH THE BYTE VALUE IS TO BE RETRIEVED
C       N (I)   THE POSITION IN 'IA' WHERE THE BYTE VALUE IS TO BE RETRIEVED
C
C ***VAX VERSION***
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      BYTE IA(*)
      BYTE JBYT(4)
      EQUIVALENCE (JA,JBYT(1))
C
C GET BYTE
C --------
C
      JA=0
      JBYT(1)=IA(N)
      IVAL=JA
      RETURN
      END