dag_get_vertex_metadata Function

private pure function dag_get_vertex_metadata(me, ivertex) result(m)

Returns the metadata for a vertex (node) in the dag.

Type Bound

dag

Arguments

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

vertex number

Return Value class(*), allocatable


Source Code

    pure function dag_get_vertex_metadata(me,ivertex) result(m)

    class(dag),intent(in) :: me
    integer(ip),intent(in) :: ivertex !! vertex number
    class(*),allocatable :: m

    if (allocated(me%vertices(ivertex)%metadata)) &
        allocate(m, source = me%vertices(ivertex)%metadata)

    end function dag_get_vertex_metadata