switch.f90

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

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

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