swap64 Subroutine

private pure elemental subroutine swap64(i1, i2)

Swap two integer values.

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(inout) :: i1
integer(kind=ip), intent(inout) :: i2

Called by

proc~~swap64~~CalledByGraph proc~swap64 aoc_utilities::swap64 interface~swap~2 aoc_utilities::swap interface~swap~2->proc~swap64 proc~sort_ascending_64 aoc_utilities::sort_ascending_64 proc~sort_ascending_64->proc~swap64 interface~sort aoc_utilities::sort interface~sort->proc~sort_ascending_64 proc~sort_ascending aoc_utilities::sort_ascending interface~sort->proc~sort_ascending proc~sort_ascending->interface~swap~2 proc~unique32 aoc_utilities::unique32 proc~unique32->interface~sort proc~unique64 aoc_utilities::unique64 proc~unique64->interface~sort interface~unique~2 aoc_utilities::unique interface~unique~2->proc~unique32 interface~unique~2->proc~unique64 proc~get_all_pieces_above problem_22::get_all_pieces_above proc~get_all_pieces_above->interface~unique~2 proc~get_all_pieces_above->proc~get_all_pieces_above proc~get_pieces_above problem_22::get_pieces_above proc~get_all_pieces_above->proc~get_pieces_above proc~get_all_pieces_below problem_22::get_all_pieces_below proc~get_all_pieces_below->interface~unique~2 proc~get_all_pieces_below->proc~get_all_pieces_below proc~get_pieces_below problem_22::get_pieces_below proc~get_all_pieces_below->proc~get_pieces_below proc~get_pieces_above->interface~unique~2 proc~get_pieces_below->interface~unique~2 proc~hand_type problem_7::hand_type proc~hand_type->interface~unique~2 program~problem_25 problem_25 program~problem_25->interface~unique~2 proc~beats problem_7::beats proc~beats->proc~hand_type proc~move_piece_down problem_22::move_piece_down proc~move_piece_down->proc~get_pieces_below program~problem_22 problem_22 program~problem_22->proc~get_all_pieces_above program~problem_22->proc~get_all_pieces_below program~problem_22->proc~get_pieces_above program~problem_22->proc~get_pieces_below proc~initialize problem_22::initialize program~problem_22->proc~initialize proc~drop problem_22::drop proc~drop->proc~move_piece_down program~problem_7 problem_7 program~problem_7->proc~beats proc~initialize->proc~drop

Source Code

    pure elemental subroutine swap64(i1,i2)

    integer(ip),intent(inout) :: i1
    integer(ip),intent(inout) :: i2

    integer(ip) :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap64