Create SwapArray.f90