unswitch.f90

来自「基于linux操作下的fortran快速付立变换的程序」· F90 代码 · 共 12 行

 	subroutine unswitch(n1dfft,n2,lot,n1,lzt,zw,zt)
	implicit real*8 (a-h,o-z)
	dimension zw(2,lot,n2),zt(2,lzt,n1)

	do 100,j=1,n1dfft
        do 100,i=1,n2
	zt(1,i,j)=zw(1,j,i)
	zt(2,i,j)=zw(2,j,i)
100	continue
	return
	end