libsim  Versione6.3.0

◆ lowercase()

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

Convert a CHARACTER variable to lowercase.

Parametri
[in]input_stringvariable to be converted

Definizione alla linea 848 del file char_utilities.F90.

848  words_in_line == 0) THEN ! accept the word
849  columns_in_line = columns_in_line + ncols_next_word
850 ! now fill the paragraph
851  IF (columns_in_line <= this%ncols) THEN ! non truncated line
852  IF (words_in_line > 0) THEN ! previous space
853  this%paragraph(columns_in_line-ncols_next_word+1:columns_in_line,nlines+1) = &
854  transfer(' '//line(this%word_start(nw):this%word_end(nw)), this%paragraph)
855  ELSE ! no previous space
856  this%paragraph(columns_in_line-ncols_next_word+1:columns_in_line,nlines+1) = &
857  transfer(line(this%word_start(nw):this%word_end(nw)), this%paragraph)
858  ENDIF
859  ELSE ! truncated line (word longer than line)
860  this%paragraph(1:this%ncols,nlines+1) = &
861  transfer(line(this%word_start(nw):this%word_start(nw)+this%ncols-1), this%paragraph)
862  ENDIF

Generated with Doxygen.