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