libsim Versione 7.2.1
|
◆ lowercase()
Convert a CHARACTER variable to lowercase.
Definizione alla linea 822 del file char_utilities.F90. 823 words_in_line == 0) THEN ! accept the word
824 columns_in_line = columns_in_line + ncols_next_word
825 words_in_line = words_in_line + 1
826 ELSE ! refuse the word
827 nw = nw - 1
828 EXIT
829 ENDIF
830 ENDDO
831 nlines = nlines + 1
832ENDDO
833
834!IF (nlines == 0)
835ALLOCATE(this%paragraph(this%ncols, nlines))
836this%paragraph = ' '
837! repeat filling the paragraph
|