fill.f90

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

        subroutine fill(nd1,nd3,lot,n1dfft,n3,zf,zw)
        implicit real*8 (a-h,o-z)
        dimension zw(2,lot,n3),zf(2,nd1,nd3)

        do 100,i3=1,n3
        do 100,i1=1,n1dfft
        zw(1,i1,i3)=zf(1,i1,i3)
        zw(2,i1,i3)=zf(2,i1,i3)
100     continue

        return
        end