libsim  Versione6.3.0

◆ l_nblnk()

elemental integer function, public char_utilities::l_nblnk ( character(len=*), intent(in)  input_string,
character(len=1), intent(in), optional  blnk 
)

Return the index of last character in input_string which is not a blank space.

If the string is zero-length or contains only blank spaces, zero is returned. It is named l_nblnk and not lnblnk in order to avoid conflict with a nondefault intrinsic Fortran function with the same name, available on some compilers.

Parametri
[in]input_stringstring to be scanned
[in]blnkoptional blank character, if not provided, a blank space is assumed

Definizione alla linea 893 del file char_utilities.F90.

893 
894 IF (ASSOCIATED(this%paragraph)) THEN
895  nlines = SIZE(this%paragraph, 2)
896 ELSE
897  nlines = 0
898 ENDIF
899 
900 END FUNCTION line_split_get_nlines
901 
902 
907 FUNCTION line_split_get_line(this, nline) RESULT(line)
908 TYPE(line_split), INTENT(in) :: this

Generated with Doxygen.