libsim Versione 7.1.11
|
◆ lowercase()
Convert a CHARACTER variable to lowercase.
Definizione alla linea 828 del file char_utilities.F90. 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
838nlines = 0
839nw = 0
840DO WHILE(nw < nwords)
841 columns_in_line = 0
842 words_in_line = 0
843 DO WHILE(nw < nwords)
|