dag_get_vertex Function

private function dag_get_vertex(me, i) result(v)

Get the ith vertex.

The program will stop if vertex i does not exist.

Type Bound

dag

Arguments

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

vertex number

Return Value type(vertex)


Source Code

    function dag_get_vertex(me,i) result(v)

    class(dag),intent(inout) :: me
    integer(ip),intent(in) :: i !! vertex number
    type(vertex) :: v

    if (i<0 .or. i>me%n) then
        error stop 'Error in dag_get_vertex: invalid vertex number'
    else
        v = me%vertices(i)
    end if

    end function dag_get_vertex