unmpiswitch_cent.f90

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

        subroutine unmpiswitch_cent(j3,n1dfft,Jp2stf,J2stf,lot,max1,md1,m1,n1,md2proc,nd3proc,nproc,zw,zmpi1)
        implicit real*8 (a-h,o-z)
        dimension zmpi1(2,md1,md2proc,nd3proc,nproc),zw(2,lot,n1)

        mfft=0
        do 300,Jp2=Jp2stf,nproc
        do 200,J2=J2stf,md2proc
        mfft=mfft+1
        if (mfft.gt.n1dfft) then
        Jp2stf=Jp2
        J2stf=J2
        return
        endif

!       Here, zero and positive frequencies
        do 90,I1=1,max1+1
        zmpi1(1,I1,J2,j3,Jp2)=zw(1,mfft,I1)
        zmpi1(2,I1,J2,j3,Jp2)=zw(2,mfft,I1)
90      continue

!       Here, negative frequencies
        do 110,I1=max1+2,m1
        zmpi1(1,I1,J2,j3,Jp2)=zw(1,mfft,I1+n1-m1)
        zmpi1(2,I1,J2,j3,Jp2)=zw(2,mfft,I1+n1-m1)
110     continue

200     continue
        J2stf=1
300     continue
        end