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

Author

J. Woollen

Date

1994-01-06

Definition in file strsuc.F90.

Function/Subroutine Documentation

strsuc()

subroutine strsuc	(	character*(*), intent(in)	str1,
		character*(*), intent(out)	str2,
		integer, intent(out)	lens
	)

This subroutine removes leading and trailing blanks from a character string.

The string may not contain any embedded blanks.

Parameters

[in]	str1	– character*(*): String
[out]	str2	– character*(*): Copy of str1 with leading and trailing blanks removed
[out]	lens	– integer: Length of str2

Author

J. Woollen

Date

1994-01-06

Definition at line 15 of file strsuc.F90.

Referenced by dxdump(), fdebufr_c(), gettagre(), hold4wlc(), mtfnam(), mtinfo(), nemspecs(), strnum(), and ufdump().