INTEGER FUNCTION TRIMLEN( ASTRING )
CHARACTER*(*) ASTRING ! string to find effective length for
Note that this is equivalent to new Fortran-90 intrinsic
LEN_TRIM(); furthermore note that Fortran-90 added new
intrinsics TRIM(), ADJUSTL(), and
ADJUSTR() that frequently help in directly doing the tasks
the programmer is really attempting.
See also LBLANK() for trimming leading blanks.
...
CHARACTER*256 ASTRING
INTEGER L
INTEGER TRIMLEN
...
L = TRIMLEN( ASTRING )
WRITE (*,*)
& 'ASTRING-squared is "', ASTRING( 1:L ) , ASTRING( 1:L ), '"'
...
To: Models-3/EDSS I/O API: The Help Pages