dag_get_edge_metadata Function

private pure function dag_get_edge_metadata(me, ivertex, iedge) result(m)

Returns the metadata for an edge in the dag.

Type Bound

dag

Arguments

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

vertex number
integer(kind=ip), intent(in) :: iedge

edge vertex

Return Value class(*), allocatable


Calls

proc~~dag_get_edge_metadata~~CallsGraph proc~dag_get_edge_metadata dag_module::dag%dag_get_edge_metadata proc~get_edge_index dag_module::dag%get_edge_index proc~dag_get_edge_metadata->proc~get_edge_index

Source Code

    pure function dag_get_edge_metadata(me,ivertex,iedge) result(m)

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

    associate ( i => me%get_edge_index(ivertex,iedge) )
        if (i>0) allocate(m, source = me%vertices(ivertex)%edges(i)%metadata)
    end associate

    end function dag_get_edge_metadata