swap Subroutine

private pure 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 dag_module::swap proc~sort_ascending dag_module::sort_ascending proc~sort_ascending->proc~swap proc~add_edge dag_module::vertex%add_edge proc~add_edge->proc~sort_ascending proc~set_edge_vector_vector dag_module::vertex%set_edge_vector_vector proc~set_edge_vector_vector->proc~sort_ascending proc~unique dag_module::unique proc~unique->proc~sort_ascending none~set_edges dag_module::vertex%set_edges none~set_edges->proc~add_edge none~set_edges->proc~set_edge_vector_vector proc~dag_add_edge dag_module::dag%dag_add_edge proc~dag_add_edge->none~set_edges proc~dag_set_edges_no_atts dag_module::dag%dag_set_edges_no_atts proc~dag_set_edges_no_atts->none~set_edges proc~dag_set_edges_vector_atts dag_module::dag%dag_set_edges_vector_atts proc~dag_set_edges_vector_atts->none~set_edges

Source Code

    pure 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