NCEPLIBS-bufr
11.7.0
|
Remove leading and trailing blanks from a character string. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | strsuc (STR1, STR2, LENS) |
This subroutine removes leading and trailing blanks from a character string. More... | |
Remove leading and trailing blanks from a character string.
Definition in file strsuc.f.
subroutine strsuc | ( | character*(*) | STR1, |
character*(*) | STR2, | ||
LENS | |||
) |
This subroutine removes leading and trailing blanks from a character string.
The string may not contain any embedded blanks.
[in] | STR1 | – character*(*): String |
[out] | STR2 | – character*(*): Copy of STR1 with leading and trailing blanks removed |
[out] | LENS | – integer: Length of STR2
|
Program History Log:
Date | Programmer | Comments |
---|---|---|
1994-01-06 | J. Woollen | Original author |
2003-11-04 | J. Ator | Added documentation |
2009-04-21 | J. Ator | Use errwrt() |
Definition at line 23 of file strsuc.f.
References errwrt().
Referenced by dxdump(), fdebufr(), gettagre(), hold4wlc(), mtfnam(), mtinfo(), nemspecs(), strnum(), and ufdump().