digit.f

Go to the documentation of this file.

C> @file
C> @brief Check whether the characters in a string are all numeric
 
C> This logical function checks whether the characters in a string
C> are all numeric.
C>
C> @author J. Woollen
C> @date 1994-01-06
C>
C> @param[in]  STR -- character*(*): String
C> @returns   digit -- logical: .TRUE. if all characters in STR are
C>                     numeric; .FALSE. otherwise
C>
C> <b>Program History Log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 1994-01-06 | J. Woollen | Original author |
C> | 2007-01-19 | J. Ator    | Simplified logic |
C> | 2009-03-23 | J. Ator    | Fixed minor bug caused by typo |
C>
      LOGICAL FUNCTION digit(STR)
 
      CHARACTER*(*) str
      digit = .false.
      DO i=1,len(str)
        IF( llt(str(i:i),'0') .OR. lgt(str(i:i),'9') ) GOTO 100
      ENDDO
      digit = .true.
 
C  EXIT
C  ----
 
100   RETURN
      END