INTEGER FUNCTION LEN2( J1, J2, BUFFER )
INTEGER , INTENT(IN ) :: J1
INTEGER , INTENT(IN ) :: J2
CHARACTER*(*), INTENT(IN ) :: BUFFER
Superseded by LBLANK(). See also TRIMLEN()
...
CHARACTER*256 BUFFER
INTEGER L, M
INTEGER LEN2, TRIMLEN
...
L = 1 + LEN2( 1, 256, BUFFER ) )
M = TRIMLEN( BUFFER ) )
WRITE (*,*)
& 'The effective contents of BUFFER is "',
& BUFFER( L:M ) , '"'
...
To: Models-3/EDSS I/O API: The Help Pages