swap Subroutine

private impure elemental subroutine swap(i1, i2)

Swap two edge values.

Arguments

Type IntentOptional Attributes Name
type(edge), intent(inout) :: i1
type(edge), intent(inout) :: i2

Called by

proc~~swap~~CalledByGraph proc~swap swap proc~sort_ascending sort_ascending proc~sort_ascending->proc~swap proc~add_edge vertex%add_edge proc~add_edge->proc~sort_ascending proc~set_edge_vector_vector vertex%set_edge_vector_vector proc~set_edge_vector_vector->proc~sort_ascending proc~unique unique proc~unique->proc~sort_ascending none~set_edges vertex%set_edges none~set_edges->proc~add_edge none~set_edges->proc~set_edge_vector_vector proc~dag_add_edge dag%dag_add_edge proc~dag_add_edge->none~set_edges proc~dag_set_edges_no_atts dag%dag_set_edges_no_atts proc~dag_set_edges_no_atts->none~set_edges proc~dag_set_edges_vector_atts dag%dag_set_edges_vector_atts proc~dag_set_edges_vector_atts->none~set_edges

Source Code

    impure elemental subroutine swap(i1,i2)

    type(edge),intent(inout) :: i1
    type(edge),intent(inout) :: i2

    type(edge) :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap