NCEPLIBS-bufr
11.5.0
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | jstnum (STR, SIGN, IRET) |
THIS SUBROUTINE REMOVES ALL LEADING BLANKS FROM A CHARACTER STRING CONTAINING AN ENCODED INTEGER VALUE. More... | |
Definition in file jstnum.f.
subroutine jstnum | ( | character*(*) | STR, |
character*1 | SIGN, | ||
IRET | |||
) |
THIS SUBROUTINE REMOVES ALL LEADING BLANKS FROM A CHARACTER STRING CONTAINING AN ENCODED INTEGER VALUE.
IF THE VALUE HAS A LEADING SIGN CHARACTER ('+' OR '-'), THEN THIS CHARACTER IS ALSO REMOVED AND IS RETURNED SEPARATELY WITHIN SIGN. IF THE RESULTANT STRING CONTAINS ANY NON-NUMERIC CHARACTERS, THAN AN APPROPRIATE CALL IS MADE TO TO BUFR ARCHIVE LIBRARY SUBROUTINE BORT.
PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR (ENTRY POINT IN JSTIFY) 1998-07-08 J. WOOLLEN – REPLACED CALL TO CRAY LIBRARY ROUTINE "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB ROUTINE "BORT" (IN PARENT ROUTINE JSTIFY) 2002-05-14 J. WOOLLEN – CHANGED FROM AN ENTRY POINT TO INCREASE PORTABILITY TO OTHER PLATFORMS (JSTIFY WAS THEN REMOVED BECAUSE IT WAS JUST A DUMMY ROUTINE WITH ENTRIES) 2003-11-04 J. ATOR – ADDED DOCUMENTATION 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – UNIFIED/PORTABLE FOR WRF; ADDED HISTORY DOCUMENTATION; OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY OR UNUSUAL THINGS HAPPEN 2009-04-21 J. ATOR – USE ERRWRT
USAGE: CALL JSTNUM (STR, SIGN, IRET) INPUT ARGUMENT LIST: STR - CHARACTER*(*): STRING CONTAINING ENCODED INTEGER VALUE
OUTPUT ARGUMENT LIST: STR - CHARACTER*(*): COPY OF INPUT STR WITH LEADING BLANKS AND SIGN CHARACTER REMOVED SIGN - CHARACTER*1: SIGN OF ENCODED INTEGER VALUE: '+' = positive value '-' = negative value IRET - INTEGER: RETURN CODE: 0 = normal return -1 = encoded value within STR was not an integer
REMARKS: THIS ROUTINE CALLS: BORT ERRWRT STRNUM THIS ROUTINE IS CALLED BY: ELEMDX Normally not called by any application programs but it could be.
Definition at line 49 of file jstnum.f.
References bort(), errwrt(), and strnum().
Referenced by elemdx().