LBLANK()

Fortran version:

    INTEGER FUNCTION LBLANK( BUFFER )
        CHARACTER*(*)   BUFFER 

NO C version:

Summary:

Returns the number of leading blanks in the Fortran character string argument BUFFER.

For Fortran-90 declarations and interface checking:

    USE M3UTILIO
    

See also TRIMLEN() and LUSTR(); supersedes LEN2()

Preconditions:

none

Fortran Usage:

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

C Usage:

don't


Previous: JUNIT

Next: LEN2

Up: Utility Routines

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