swap_str Subroutine

private pure elemental subroutine swap_str(i1, i2)

Swap two character string values

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: i1
character(len=*), intent(inout) :: i2

Called by

proc~~swap_str~~CalledByGraph proc~swap_str aoc_utilities::swap_str interface~swap~2 aoc_utilities::swap interface~swap~2->proc~swap_str proc~sort_ascending aoc_utilities::sort_ascending proc~sort_ascending->interface~swap~2 interface~sort aoc_utilities::sort interface~sort->proc~sort_ascending 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 swap_str(i1,i2)

    character(len=*),intent(inout) :: i1
    character(len=*),intent(inout) :: i2

    character(len=len(i1)) :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap_str