unscramble.f90

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

        subroutine unscramble(i1,j2,lot,n1dfft,md1,n3,md2proc,nnd3,zmpi2,zw)
	implicit real*8 (a-h,o-z)
	dimension zw(2,lot,n3),zmpi2(2,md1,md2proc,nnd3)
	
        do 100,i3=1,n3
	do 100,i=0,n1dfft-1
	zw(1,i+1,i3)=zmpi2(1,i1+i,j2,i3)
	zw(2,i+1,i3)=zmpi2(2,i1+i,j2,i3)
100     continue

	return
	end