|
◆ 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 878 del file char_utilities.F90.
878 SUBROUTINE line_split_delete(this) 879 TYPE(line_split), INTENT(inout) :: this 881 IF ( ASSOCIATED(this%paragraph)) DEALLOCATE(this%paragraph) 882 IF ( ASSOCIATED(this%word_start)) DEALLOCATE(this%word_start) 883 IF ( ASSOCIATED(this%word_end)) DEALLOCATE(this%word_end) 885 END SUBROUTINE line_split_delete 889 FUNCTION line_split_get_nlines(this) RESULT(nlines) 890 TYPE(line_split), INTENT(in) :: this
|