dag_set_edges Subroutine

private subroutine dag_set_edges(me, ivertex, edges)

set the edges for a vertex in a dag

Type Bound

dag

Arguments

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

vertex number
integer, intent(in), dimension(:) :: edges

Calls

proc~~dag_set_edges~~CallsGraph proc~dag_set_edges dag_module::dag%dag_set_edges none~set_edges dag_module::vertex%set_edges proc~dag_set_edges->none~set_edges proc~add_edge dag_module::vertex%add_edge none~set_edges->proc~add_edge proc~set_edge_vector dag_module::vertex%set_edge_vector none~set_edges->proc~set_edge_vector proc~set_edge_vector->proc~add_edge

Called by

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

Source Code

    subroutine dag_set_edges(me,ivertex,edges)

    class(dag),intent(inout)        :: me
    integer,intent(in)              :: ivertex !! vertex number
    integer,dimension(:),intent(in) :: edges

    call me%vertices(ivertex)%set_edges(edges)

    end subroutine dag_set_edges