dag_remove_edge Subroutine

private subroutine dag_remove_edge(me, ivertex, iedge)

Remove an edge from a dag.

Type Bound

dag

Arguments

Type IntentOptional Attributes Name
class(dag), intent(inout) :: me
integer(kind=ip), intent(in) :: ivertex

vertex number
integer(kind=ip), intent(in) :: iedge

the edge to remove

Calls

proc~~dag_remove_edge~~CallsGraph proc~dag_remove_edge dag_module::dag%dag_remove_edge proc~remove_edge dag_module::vertex%remove_edge proc~dag_remove_edge->proc~remove_edge

Source Code

    subroutine dag_remove_edge(me,ivertex,iedge)

    class(dag),intent(inout) :: me
    integer(ip),intent(in)   :: ivertex !! vertex number
    integer(ip),intent(in)   :: iedge   !! the edge to remove

    call me%vertices(ivertex)%remove_edge(iedge)

    end subroutine dag_remove_edge