dag_get_number_of_vertices Function

private pure function dag_get_number_of_vertices(me) result(nvertices)

Returns the number of vertices (nodes) in the dag.

Type Bound

Arguments

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

Return Value integer(kind=ip)

number of vertices

Source Code

    pure function dag_get_number_of_vertices(me) result(nvertices)

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

    nvertices = me%n

    end function dag_get_number_of_vertices