C
C SUBROUTINE 'CCPSI2'
C ===================
C
C SET AN INTEGER VALUE FROM 0 TO 65535 INTO THE N'TH UNSIGNED INTEGER*2 ELEMENT
C OF AN INTEGER (OR OTHER) ARRAY.
C NOTE: NO OVERFLOW CHECKING IS DONE.
C
C (MUST BE IMPLEMENTED IF CCPBYT FUNCTION RETURNS .TRUE.)
C
      SUBROUTINE CCPSI2(IVAL,IA,N)
C
C PARAMETERS
C
C    IVAL (I)   THE INTEGER VALUE FROM 0 TO 65535
C      IA (I/O) THE ARRAY INTO WHICH THE UNSIGNED INTEGER*2 VALUE IS TO BE 
C               INSERTED
C       N (I)   THE POSITION IN 'IA' WHERE THE UNSIGNED INTEGER*2 VALUE IS 
C               TO BE INSERTED
C
C ***VAX VERSION***
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      INTEGER*2 IA(*)
      INTEGER*2 JBYT(2)
      EQUIVALENCE (JA,JBYT(1))
C
C SET UNSIGNED INTEGER*2
C ----------------------
C
      JA=IVAL
      IA(N)=JBYT(1)
      RETURN
      END
