libsim Versione 7.1.11
|
◆ f_nblnk()
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.
Definizione alla linea 896 del file char_utilities.F90. 897 nlines = 0
898ENDIF
899
900END FUNCTION line_split_get_nlines
901
902
907FUNCTION line_split_get_line(this, nline) RESULT(line)
908TYPE(line_split), INTENT(in) :: this
909INTEGER, INTENT(in) :: nline
910
911CHARACTER(len=SIZE(this%paragraph, 1)) :: line
912IF (nline > 0 .AND. nline <= SIZE(this%paragraph, 2)) THEN
|