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