dag_set_vertex_info Subroutine

private subroutine dag_set_vertex_info(me, ivertex, label, attributes)

set info about a vertex in a dag.

Type Bound

dag

Arguments

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

vertex number
character(len=*), intent(in), optional :: label

if a label is not set, then the integer vertex number is used.
character(len=*), intent(in), optional :: attributes

other attributes when saving as a diagraph.

Calls

proc~~dag_set_vertex_info~~CallsGraph proc~dag_set_vertex_info dag_module::dag%dag_set_vertex_info proc~integer_to_string~2 dag_module::integer_to_string proc~dag_set_vertex_info->proc~integer_to_string~2

Called by

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

Source Code

    subroutine dag_set_vertex_info(me,ivertex,label,attributes)

    class(dag),intent(inout) :: me
    integer,intent(in)                   :: ivertex !! vertex number
    character(len=*),intent(in),optional :: label !! if a label is not set,
                                                  !! then the integer vertex
                                                  !! number is used.
    character(len=*),intent(in),optional :: attributes !! other attributes when
                                                       !! saving as a diagraph.

    if (present(label)) then
        me%vertices(ivertex)%label = label
    else
        ! just use the vertex number
        me%vertices(ivertex)%label = integer_to_string(ivertex)
    end if

    if (present(attributes)) then
        me%vertices(ivertex)%attributes = attributes
    end if

    end subroutine dag_set_vertex_info