INTEGER FUNCTION LBLANK( BUFFER ) CHARACTER*(*) BUFFER
For Fortran-90 declarations and interface checking:
USE M3UTILIO
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