libsim Versione 7.2.4
|
◆ l_nblnk()
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.
Definizione alla linea 867 del file char_utilities.F90. 868 ENDDO
869 nlines = nlines + 1
870ENDDO
871
872END FUNCTION line_split_new
873
874
875! Cleanly destroy a \a line_split object, deallocating all the
876! dynamically allocated space. Use the generic name \a delete rather
877! than this specfoc subroutine.
878SUBROUTINE line_split_delete(this)
879TYPE(line_split), INTENT(inout) :: this ! object to be destroyed
880
881IF (ASSOCIATED(this%paragraph)) DEALLOCATE(this%paragraph)
882IF (ASSOCIATED(this%word_start)) DEALLOCATE(this%word_start)
883IF (ASSOCIATED(this%word_end)) DEALLOCATE(this%word_end)
|