uppercase Function

private pure function uppercase(str) result(string)

Convert a string to uppercase.

Arguments

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

Return Value character(len=len)


Called by

proc~~uppercase~~CalledByGraph proc~uppercase uppercase proc~keys_equal list%keys_equal proc~keys_equal->proc~uppercase proc~get_node list%get_node proc~get_node->proc~keys_equal proc~add_pointer list%add_pointer proc~add_pointer->proc~get_node proc~get_data list%get_data proc~get_data->proc~get_node proc~remove_by_key list%remove_by_key proc~remove_by_key->proc~get_node proc~add_clone list%add_clone proc~add_clone->proc~add_pointer

Source Code

    pure function uppercase(str) result(string)

    implicit none

    character(len=*),intent(in) :: str
    character(len=len(str))     :: string

    integer :: i,idx

    character(len=*),parameter :: upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
    character(len=*),parameter :: lower = 'abcdefghijklmnopqrstuvwxyz'

    string = str
    do i = 1, len_trim(str)
        idx = index(lower, str(i:i))
        if (idx > 0) string(i:i) = upper(idx:idx)
    end do

    end function uppercase