dag_destroy Subroutine

private subroutine dag_destroy(me)

Destroy the dag.

Type Bound

dag

Arguments

Type IntentOptional Attributes Name
class(dag), intent(inout) :: me

Called by

proc~~dag_destroy~~CalledByGraph proc~dag_destroy dag_module::dag%dag_destroy program~dag_example dag_example program~dag_example->proc~dag_destroy program~problem_25 problem_25 program~problem_25->proc~dag_destroy

Source Code

    subroutine dag_destroy(me)

    class(dag),intent(inout) :: me

    me%n = 0
    if (allocated(me%vertices)) deallocate(me%vertices)

    end subroutine dag_destroy