upper Function

private elemental function upper(string)

Return a string with all uppercase characters.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string

Input string.

Return Value character(len=len)

Upper case string.


Called by

proc~~upper~~CalledByGraph proc~upper upper proc~colorize_ascii colorize_ascii proc~colorize_ascii->proc~upper proc~colorize_default colorize_default proc~colorize_default->proc~upper proc~colorize_ucs4 colorize_ucs4 proc~colorize_ucs4->proc~upper interface~colorize colorize interface~colorize->proc~colorize_default proc~colors_samples colors_samples proc~colors_samples->interface~colorize proc~styles_samples styles_samples proc~styles_samples->interface~colorize program~face_test_colors face_test_colors program~face_test_colors->interface~colorize program~face_test_styles face_test_styles program~face_test_styles->interface~colorize program~face_test_basic face_test_basic program~face_test_basic->proc~colors_samples program~face_test_basic->proc~styles_samples

Contents

Source Code

upper

Source Code

   elemental function upper(string)
   !< Return a string with all uppercase characters.
   character(len=*), intent(in) :: string !< Input string.
   character(len=len(string))   :: upper  !< Upper case string.
   integer                      :: n1     !< Characters counter.
   integer                      :: n2     !< Characters counter.

   upper = string
   do n1=1, len(string)
      n2 = index(LOWER_ALPHABET, string(n1:n1))
      if (n2>0) upper(n1:n1) = UPPER_ALPHABET(n2:n2)
   enddo
   endfunction upper