NCEPLIBS-bufr
11.5.0
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | strsuc (STR1, STR2, LENS) |
THIS SUBROUTINE REMOVES LEADING AND TRAILING BLANKS FROM A STRING. More... | |
Definition in file strsuc.f.
subroutine strsuc | ( | character*(*) | STR1, |
character*(*) | STR2, | ||
LENS | |||
) |
THIS SUBROUTINE REMOVES LEADING AND TRAILING BLANKS FROM A STRING.
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 – UNIFIED/PORTABLE FOR WRF; ADDED HISTORY DOCUMENTATION; ADDED MORE COMPLETE DIAGNOSTIC INFO WHEN UNUSUAL THINGS HAPPEN 2009-04-21 J. ATOR – USE ERRWRT
USAGE: CALL STRSUC (STR1, STR2, LENS) INPUT ARGUMENT LIST: STR1 - CHARACTER*(*): STRING
OUTPUT ARGUMENT LIST: STR2 - CHARACTER*(*): COPY OF STR1 WITH LEADING AND TRAILING BLANKS REMOVED LENS - INTEGER: LENGTH OF STR2: -1 = STR1 contained embedded blanks
REMARKS: THIS ROUTINE CALLS: ERRWRT THIS ROUTINE IS CALLED BY: DXDUMP GETTAGRE HOLD4WLC MTFNAM MTINFO NEMSPECS STRNUM UFDUMP Normally not called by any application programs but it could be.
Definition at line 34 of file strsuc.f.
References errwrt().
Referenced by dxdump(), fdebufr(), gettagre(), hold4wlc(), mtfnam(), mtinfo(), nemspecs(), strnum(), and ufdump().