LBLANK()

Fortran version:

    INTEGER FUNCTION LBLANK( BUFFER )
        CHARACTER*(*), INTENT(IN   ) :: BUFFER 

NO C version:

Summary:

Returns the number of leading blanks in the Fortran character string argument 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()

Preconditions:

none

Fortran Usage:

    ...
    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 ) , '"'
    ...

C Usage:

don't


Previous: JUNIT

Next: LEN2

Up: Utility Routines

To: Models-3/EDSS I/O API: The Help Pages