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