INTEGER FUNCTION LBLANK( BUFFER )
CHARACTER*(*) BUFFER
See also TRIMLEN() and LUSTR(); supersedes LEN2()
...
CHARACTER*256 BUFFER
INTEGER L, M
INTEGER LBLANK, TRIMLEN
...
L = LBLANK ( BUFFER ) + 1
M = TRIMLEN( BUFFER )
WRITE (*,*)
& 'The effective contents of BUFFER is &qout;',
& BUFFER( L:M ) , '"'
...
To: Models-3/EDSS I/O API: The Help Pages