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 873 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)