CTITLEUSPBYT -- PUT A BYTE                                              00000100
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 L.B. LIN                                   00000200
CA    DESIGNER               L.B. LIN                                   00000300
CA    LANGUAGE               FORTRAN                                    00000400
CA    SYSTEM                 IBM AND CRAY                               00000500
CA    WRITTEN                12/21/84                                   00000600
C     REVISED  MM/DD/YY                                                 00000700
CA                                                                      00000800
CA                                                                      00000900
CA    CALL USPBYT (IBYTE, IBUF, IBX)                                    00001000
CA          INPUT   IBYTE = CHAR*2 WORD WHOSE LOW ORDER BYTE IS TO   A2 00001100
CA                          BE STORED IN IBUF AS THE IBX'TH BYTE.       00001200
CA          OUTPUT   IBUF = BUFFER INTO WHICH BYTE WILL BE STORED  CHAR 00001300
CA          INPUT     IBX = BYTE INDEX WHICH POINTS TO THE DESIRED   I4 00001400
CA                          POSITION IN IBUF. 1 CORRESPONDS TO THE      00001500
CA                          FIRST BYTE IN IBUF.                         00001600
CA                                                                      00001700
CA                                                                      00001800
CA    THIS ROUTINE PUTS A BYTE FOUND IN THE LOW ORDER 8 BITS OF AN      00001900
CA    CHARACTER*2 WORD INTO ANY SELECTED POSITION OF AN OUTPUT BUFFER.  00002000
CA                                                                      00002100
C                                                                       00002200
C                                                                       00002300
      SUBROUTINE USPBYT (IBYTE, IBUF, IBX)                              00002400
      CHARACTER*2 IBYTE                                                 00002500
      CHARACTER*2 IBUF(1)                                               00002600
      CALL S1MVCH(IBYTE,2,IBUF,IBX,1)                                   00002700
      RETURN                                                            00002800
      END                                                               00002900