list_finalizer Subroutine

private impure elemental subroutine list_finalizer(me)

just a wrapper for destroy_list.

Arguments

Type IntentOptional Attributes Name
type(list), intent(inout) :: me

Calls

proc~~list_finalizer~~CallsGraph proc~list_finalizer list_finalizer proc~destroy_list list%destroy_list proc~list_finalizer->proc~destroy_list proc~destroy_node destroy_node proc~destroy_list->proc~destroy_node proc~destroy_node->proc~destroy_node proc~destroy_node_data node%destroy_node_data proc~destroy_node->proc~destroy_node_data

Source Code

    impure elemental subroutine list_finalizer(me)

    implicit none

    type(list),intent(inout) :: me

    call me%destroy()

    end subroutine list_finalizer