libsim  Versione 7.2.6

◆ uppercase()

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

Convert a CHARACTER variable to uppercase.

Parametri
[in]input_stringvariable to be converted

Definizione alla linea 813 del file char_utilities.F90.

814 nw = 0
815 DO 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
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

Generated with Doxygen.