CTITLEUSNUM  -- DETERMINE WHETHER A CHARACTER IS NUMERIC OR NOT.
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       J. M. PONTON
CA    DESIGNER     J. M. PONTON
CA    LANGUAGE     VS FORTRAN
CA    SYSTEM       IBM S/370
CA    WRITTEN      09-27-84
C     REVISED      MO-DA-YR BY PROGRAMMER FOR REASON
CA
CA    I = USNUM(CARD, CHAR)
CA
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION
CA    ------  --------  ----  -----------
CA      IN    CARD      20A4  CARD IMAGE CONTAINING THE CHARACTER.
CA
CA      IN    CHAR       I4   CHARACTER OF CARD TO BE EXAMINED.
CA
CA     OUT    USNUM      I4   RETURNS 0 IF NOT NUMERIC.
CA                                    1 IF NUMERIC.
CA
CA
CA    TESTS A CHARACTER OF 'CARD'. IF NUMERIC, USNUM = 1. OTHER-
CA    WISE, USNUM = 0.
CA
C     EJECT
C
      INTEGER FUNCTION USNUM(CARD, CHAR)
      IMPLICIT INTEGER (A-Z)
C
      INTEGER CARD(1)
      USNUM = 0
      IF (S1CPCH(CARD, CHAR, '0', 1, 1) .GE. 0 .AND.
     *    S1CPCH(CARD, CHAR, '9', 1, 1) .LE. 0) USNUM = 1
      RETURN
      END