dag_set_vertices Subroutine

private subroutine dag_set_vertices(me, nvertices)

set the number of vertices in the dag

Type Bound

dag

Arguments

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

number of vertices

Called by

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

Source Code

    subroutine dag_set_vertices(me,nvertices)

    class(dag),intent(inout) :: me
    integer,intent(in)       :: nvertices !! number of vertices

    integer :: i

    me%n = nvertices
    allocate(me%vertices(nvertices))
    me%vertices%ivertex = [(i,i=1,nvertices)]

    end subroutine dag_set_vertices