libsim Versione 7.2.4

◆ f_nblnk()

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

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

If the string is zero-length or contains only blank spaces, LEN(input_string)+1 is returned.

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

Definizione alla linea 890 del file char_utilities.F90.

891
892INTEGER :: nlines
893
894IF (ASSOCIATED(this%paragraph)) THEN
895 nlines = SIZE(this%paragraph, 2)
896ELSE
897 nlines = 0
898ENDIF
899
900END FUNCTION line_split_get_nlines
901
902

Generated with Doxygen.