swap_i8 Subroutine

private subroutine swap_i8(arr)

Arguments

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