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