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