function swap_array, array

Sz=size(array)
N=Sz(1)

	CASE Sz(0) OF

2:	begin

ft1=make_array(size=size(array))

ft1(0:Sz[1]/2-1, 0:Sz[2]/2-1)=array(Sz[1]/2:*, Sz[2]/2:*)
ft1(0:Sz[1]/2-1, Sz[2]/2:*)=array(Sz[1]/2:*, 0:Sz[2]/2-1)
ft1(Sz[1]/2:*, 0:Sz[2]/2-1)=array(0:Sz[1]/2-1, Sz[2]/2:*)
ft1(Sz[1]/2:*, Sz[2]/2:*)=array(0:Sz[1]/2-1, 0:Sz[2]/2-1)

	end

1:	begin

ft1=make_array(size=size(array))

ft1(0:N/2-1)=array(N/2:*)
ft1(N/2:*)=array(0:N/2-1)

	end

ENDCASE

return, ft1


	end