NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
jstnum.f File Reference

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...
 

Detailed Description

Author
WOOLLEN
Date
1994-01-06

Definition in file jstnum.f.

Function/Subroutine Documentation

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().