remove_by_key Subroutine

private subroutine remove_by_key(me, key)

Remove an item from the list (given the key).

Type Bound

list

Arguments

Type IntentOptional Attributes Name
class(list), intent(inout) :: me
class(*), intent(in) :: key

Calls

proc~~remove_by_key~~CallsGraph proc~remove_by_key list%remove_by_key proc~get_node list%get_node proc~remove_by_key->proc~get_node proc~remove_by_pointer list%remove_by_pointer proc~remove_by_key->proc~remove_by_pointer proc~keys_equal list%keys_equal proc~get_node->proc~keys_equal proc~destroy_node_data node%destroy_node_data proc~remove_by_pointer->proc~destroy_node_data proc~uppercase uppercase proc~keys_equal->proc~uppercase

Source Code

    subroutine remove_by_key(me,key)

    implicit none

    class(list),intent(inout) :: me
    class(*),intent(in)       :: key

    type(node),pointer :: p

    call me%get_node(key,p)
    call me%remove_by_pointer(p)

    end subroutine remove_by_key