INTEGER FUNCTION LBLANK( BUFFER )
CHARACTER*(*), INTENT(IN ) :: BUFFER
Mostly-obsolete: Note that many applications can be
coded more effectively by using Fortran-90 intrinsic function
ADJUSTL().
For Fortran-90 declarations and interface checking:
USE M3UTILIO
See also TRIMLEN() and LUSTR(); supersedes LEN2()
...
USE M3UTILIO
...
CHARACTER*256 BUFFER
INTEGER L, M
...
L = LBLANK ( BUFFER ) + 1
M = TRIMLEN( BUFFER )
WRITE (*,*)
& 'The effective contents of BUFFER is "',
& BUFFER( L:M ) , '"'
...
To: Models-3/EDSS I/O API: The Help Pages