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

strsuc()

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