get_data Subroutine

private subroutine get_data(me, key, value)

Returns a pointer to the data stored in the list.

Type Bound

list

Arguments

Type IntentOptional Attributes Name
class(list), intent(in) :: me
class(*), intent(in) :: key
class(*), intent(out), pointer :: value

Calls

proc~~get_data~~CallsGraph proc~get_data list%get_data proc~get_node list%get_node proc~get_data->proc~get_node proc~keys_equal list%keys_equal proc~get_node->proc~keys_equal proc~uppercase uppercase proc~keys_equal->proc~uppercase

Source Code

    subroutine get_data(me,key,value)

    implicit none

    class(list),intent(in)       :: me
    class(*),intent(in)          :: key
    class(*),pointer,intent(out) :: value

    type(node),pointer :: p

    call me%get_node(key,p)
    if (associated(p)) then
        value => p%value
    else
        value => null()
    end if

    end subroutine get_data