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