|
◆ 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_string | string to be scanned |
[in] | blnk | optional blank character, if not provided, a blank space is assumed |
Definizione alla linea 893 del file char_utilities.F90.
894 IF ( ASSOCIATED(this%paragraph)) THEN 895 nlines = SIZE(this%paragraph, 2) 900 END FUNCTION line_split_get_nlines 907 FUNCTION line_split_get_line(this, nline) RESULT(line) 908 TYPE(line_split), INTENT(in) :: this
|