digit.f File Reference

Go to the source code of this file.

Functions/Subroutines
LOGICAL function	digit (STR)
	THIS LOGICAL FUNCTION TESTS THE CHARACTERS IN A STRING TO DETERMINE IF THEY ARE ALL DIGITS ('0','1','2','3','4','5','6','7', '8' OR '9'). More...

Detailed Description

Author

WOOLLEN

Date

1994-01-06

Definition in file digit.f.

Function/Subroutine Documentation

LOGICAL function digit

(

character*(*)

STR

)

THIS LOGICAL FUNCTION TESTS THE CHARACTERS IN A STRING TO DETERMINE IF THEY ARE ALL DIGITS ('0','1','2','3','4','5','6','7', '8' OR '9').

PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY) 2007-01-19 J. ATOR – SIMPLIFIED LOGIC 2009-03-23 J. ATOR – FIXED MINOR BUG CAUSED BY TYPO

USAGE: DIGIT (STR) INPUT ARGUMENT LIST: STR - CHARACTER*(*): STRING

OUTPUT ARGUMENT LIST: DIGIT - LOGICAL: TRUE IF ALL CHARACTERS IN STR ARE DIGITS ('0' - '9'), OTHERWISE FALSE

REMARKS: THIS ROUTINE CALLS: None THIS ROUTINE IS CALLED BY: CKTABA NUMBCK STNTBIA Normally not called by any application programs but it could be.

Definition at line 31 of file digit.f.

Referenced by cktaba(), numbck(), and stntbia().