|
◆ f_nblnk()
elemental integer function, public char_utilities::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_string | string to be scanned |
[in] | blnk | optional blank character, if not provided, a blank space is assumed |
Definizione alla linea 900 del file char_utilities.F90.
907 FUNCTION line_split_get_line(this, nline) RESULT(line)
908 TYPE(line_split), INTENT(in) :: this
909 INTEGER, INTENT(in) :: nline
911 CHARACTER(len=SIZE(this%paragraph, 1)) :: line
912 IF (nline > 0 .AND. nline <= SIZE(this%paragraph, 2)) THEN
913 line = transfer(this%paragraph(:,nline), line)
|