to_upper Function

public pure function to_upper(in_str) result(string)

Changes a string to upper case

Arguments

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

Return Value character(len=len_trim(in_str))


Contents

Source Code

to_upper

Source Code

    pure function to_upper(in_str) result(string)
        character(*), intent(in) :: in_str
        character(len_trim(in_str)) :: string
        integer :: ic, i

        do i = 1, len(string)
            ic = index(lowercase_chars, in_str(i:i))
            if (ic > 0) then
                string(i:i) = UPPERCASE_chars(ic:ic)
            else
                string(i:i) = in_str(i:i)
            end if
        end do
    end function to_upper