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

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

Detailed Description

Author
WOOLLEN
Date
1994-01-06

Definition in file strsuc.f.

Function/Subroutine Documentation

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