pairSwap Subroutine

public pure subroutine pairSwap(a, i, b, j)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout) :: a
integer(kind=int64), intent(inout) :: i
integer(kind=int64), intent(inout) :: b
integer(kind=int64), intent(inout) :: j

Contents

Source Code

pairSwap

Source Code

    pure subroutine pairSwap(a, i, b, j)
        ! exchange a pair of integers
        integer(int64), intent(inout) :: a, i, b, j

        call swap(a, b)
        call swap(i, j)
    end subroutine pairSwap