FUNCTION TO_HEX(NUMBER)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Convert a number on the range [0,255] to a 2-digit
C-   hexadecimal string.
C-
C-   Returned value  : A 2-digit hexadecimal string
C-   Inputs  : NUMBER   the number to convert
C-   Outputs : none
C-   Controls: none
C-
C-   Created  14-SEP-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C----------------------------------------------------------------------
C
C       Argument declarations
C
      CHARACTER*2 TO_HEX
      INTEGER NUMBER
C
C       Local declarations
C
      INTEGER TEMP
      CHARACTER*16 HEX_CONV
      DATA HEX_CONV / '0123456789ABCDEF' /
C
      TEMP = MAX( MIN(NUMBER, 255) ,0)
      TEMP = NUMBER / 16 + 1
      TO_HEX(1:1) = HEX_CONV(TEMP:TEMP)
      TEMP = MOD(NUMBER, 16) + 1
      TO_HEX(2:2) = HEX_CONV(TEMP:TEMP)
C
  999 RETURN
      END
C