do l=1,ntheterm3
do m=1,ndouble
do mm=1,ndouble
- if iblock.eq.1 then
+ if (iblock.eq.1) then
ffthet_all1(mm,m,l,i,j,k,iparm)=
& ffthet(mm,m,l,i,j,k,iblock)
ggthet_all1(mm,m,l,i,j,k,iparm)=
- &ggthet(mm,m,l,i,j,k)
+ &ggthet(mm,m,l,i,j,k,iblock)
else
ffthet_all2(mm,m,l,i,j,k,iparm)=
& ffthet(mm,m,l,i,j,k,iblock)
ggthet_all2(mm,m,l,i,j,k,iparm)=
- &ggthet(mm,m,l,i,j,k)
+ &ggthet(mm,m,l,i,j,k,iblock)
endif
enddo
enddo
do l=1,ntheterm3
do m=1,ndouble
do mm=1,ndouble
- if iblock.eq.1 then
+ if (iblock.eq.1) then
ffthet(mm,m,l,i,j,k,iblock)=
&ffthet_all1(mm,m,l,i,j,k,iparm)
ggthet(mm,m,l,i,j,k,iblock)=