swap_hands Subroutine

pure elemental subroutine swap_hands(i1, i2)

swap function for hand type

Arguments

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

Called by

proc~~swap_hands~~CalledByGraph proc~swap_hands problem_7::swap_hands program~problem_7 problem_7 program~problem_7->proc~swap_hands

Source Code

    pure elemental subroutine swap_hands(i1,i2)
    !! swap function for hand type
    type(hand),intent(inout) :: i1
    type(hand),intent(inout) :: i2
    type(hand) :: tmp
    tmp = i1
    i1  = i2
    i2  = tmp
    end subroutine swap_hands