dag_destroy Subroutine

private subroutine dag_destroy(me)

Destroy the dag.

Type Bound

Arguments

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

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