to_upper Function

public elemental function to_upper(string) result(upper_string)

Convert character variable to upper case

Version: experimental

Arguments

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

Return Value character(len=len)


Calls

proc~~to_upper~~CallsGraph proc~to_upper to_upper proc~char_to_upper char_to_upper proc~to_upper->proc~char_to_upper

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   elemental function to_upper(string) result(upper_string)
      character(len=*), intent(in) :: string
      character(len=len(string)) :: upper_string
      integer :: i

      do i = 1, len(string)
         upper_string(i:i) = char_to_upper(string(i:i))
      end do

   end function to_upper