NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
strsuc.f File Reference

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

Detailed Description

Remove leading and trailing blanks from a character string.

Definition in file strsuc.f.

Function/Subroutine Documentation

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.

Author
J. Woollen
Date
1994-01-06
Parameters
[in]STR1– character*(*): String
[out]STR2– character*(*): Copy of STR1 with leading and trailing blanks removed
[out]LENS– integer: Length of STR2
  • -1 = STR1 contained embedded blanks

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