digit.f

Go to the documentation of this file.

C> @file
C> @brief Check whether the characters in a string are all numeric
C>
C> @author J. Woollen @date 1994-01-06
 
C> This logical function checks whether the characters in a string
C> are all numeric.
C>
C> @param[in]  STR -- character*(*): String
C> @returns   digit -- logical: .TRUE. if all characters in STR are
C>                     numeric; .FALSE. otherwise
C>
C> @author J. Woollen @date 1994-01-06
      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