From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 14-SEP-1990 07:52:51.74
To:	MRGATE::"ARISIA::EVERHART"
CC:	
Subj:	Re: VAX Fortran Questions

Received:  by crdgw1.ge.com (5.57/GE 1.73)
	 id AA18230; Fri, 14 Sep 90 05:40:47 EDT
Received: From NSSDCB.GSFC.NASA.GOV by CRVAX.SRI.COM with TCP; Thu, 13 SEP 90 11:37:13 PDT
Date:    Thu, 13 Sep 1990 14:32:10 EDT
From: TENCATI@NSSDCB.GSFC.NASA.GOV (SPAN Security Manager (301) 286-5223)
Message-Id: <900913143210.20600a03@NSSDCB.GSFC.NASA.GOV>
Subject: Re: VAX Fortran Questions
To: info-vax@kl.sri.com
X-Vmsmail-To: SMTP%"info-vax@kl.sri.com"


I wrote this little utility. It should be declared in the main program
with the statement

	Integer Strlen

Then you just use it by something like:

	Length = Strlen( string_var )

It works for me.. Your actual mileage may vary.


Ron Tencati
Science Applications Research
Lanham, MD
---------------------------------------------------------------------------
Space Physics Analysis Network (SPAN) | ARPA - Tencati@Nssdca.Gsfc.Nasa.Gov
National Space Science Data Center    | SPAN - NCF::TENCATI /6277::TENCATI
NASA/Goddard Space Flight Center      | Tele - +1-301-286-5223
Code 930.2; Greenbelt,MD.; 20771; USA | FAX  - +1-301-286-4952
---------------------------------------------------------------------------


	Integer Function StrLen ( String_Var )
c
c Determine Actual Length of Blank-Filled String Variable
c Usage:
c  Length = StrLen(String) !(variable LENGTH declared as type integer)
c
	Character*(*) String_Var
	Integer*4     I 
c
	I = Len( String_Var )
	Do While ((String_Var(I:I) .eq. ' ').and.(I.gt.0))
	  I = I - 1
	Enddo
	StrLen = I
	Return
	End

