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