INTEGER FUNCTION LEN2( J1, J2, BUFFER )
INTEGER J1
INTEGER J2
CHARACTER*(*) 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 &qout;',
& BUFFER( L:M ) , '"'
...
To: Models-3/EDSS I/O API: The Help Pages