NCEPLIBS-bufr
11.5.0
|
Go to the source code of this file.
Functions/Subroutines | |
function | numbck (NUMB) |
THIS FUNCTION CHECKS THE INPUT CHARACTER STRING TO DETERMINE WHETHER IT CONTAINS A VALID FXY (DESCRIPTOR) VALUE. More... | |
Definition in file numbck.f.
function numbck | ( | character*6 | NUMB | ) |
THIS FUNCTION CHECKS THE INPUT CHARACTER STRING TO DETERMINE WHETHER IT CONTAINS A VALID FXY (DESCRIPTOR) VALUE.
PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR 2003-11-04 J. ATOR – ADDED DOCUMENTATION 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – SPLIT NON-ZERO RETURN INTO -1 FOR INVALID CHARACTER IN POSITION 1, -2 FOR INVALID CHARACTERS IN POSITIONS 2 THROUGH 6, -3 FOR INVALID CHARACTERS IN POSITIONS 2 AND 3 DUE TO BEING OUT OF RANGE, AND -4 FOR INVALID CHARACTERS IN POSITIONS 4 THROUGH 6 DUE TO BEING OUT OF RANGE (RETURN ONLY -1 BEFORE FOR ALL PROBLEMATIC CASES); UNIFIED/ PORTABLE FOR WRF; ADDED HISTORY DOCUMENTATION 2007-01-19 J. ATOR – CLEANED UP AND SIMPLIFIED LOGIC
USAGE: NUMBCK (NUMB) INPUT ARGUMENT LIST: NUMB - CHARACTER*6: FXY VALUE TO BE CHECKED
OUTPUT ARGUMENT LIST: NUMBCK - INTEGER: INDICATOR AS TO WHETHER NUMB IS VALID: 0 = YES -1 = NO - first character ("F" value) is not '0', '1', '2' OR '3' -2 = NO - remaining characters (2-6) ("X" and "Y" values) are not all numeric -3 = NO - characters 2-3 ("X" value) are not between '00' and '63' -4 = NO - characters 4-6 ("Y" value) are not between '000' and '255'
REMARKS: THIS ROUTINE CALLS: DIGIT THIS ROUTINE IS CALLED BY: IGETFXY RDUSDX Normally not called by any application programs.
Definition at line 46 of file numbck.f.
References digit().