swap_i Subroutine

private subroutine swap_i(arr)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout), DIMENSION(2) :: arr