libsim Versione 7.1.11

◆ uppercase()

character( len( input_string ) ) function, public uppercase ( character( * ), intent(in)  input_string)

Convert a CHARACTER variable to uppercase.

Parametri
[in]input_stringvariable to be converted

Definizione alla linea 809 del file char_utilities.F90.

810! split the input line
811nwords = word_split(line, this%word_start, this%word_end)
812! count the lines required to accomodate the input line in a paragraph
813nlines = 0
814nw = 0
815DO WHILE(nw < nwords)
816 columns_in_line = 0
817 words_in_line = 0
818 DO WHILE(nw < nwords)
819 nw = nw + 1
820 ncols_next_word = this%word_end(nw) - this%word_start(nw) + 1
821 IF (words_in_line > 0) ncols_next_word = ncols_next_word + 1 ! previous space
822 IF (columns_in_line + ncols_next_word <= this%ncols .OR. &
823 words_in_line == 0) THEN ! accept the word

Generated with Doxygen.