Lines Matching refs:nnfft3d
310 integer i,c,nnfft3d
326 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb))*nq1(nb)
327 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb))*nq2(nb)
328 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb))*nq3(nb)
332 do i=1,nnfft3d
387 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb))*nq1(nb)
388 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb))*nq2(nb)
389 if ((op.eq.2).or.(op.eq.5)) nnfft3d = (nz(nb))*nq3(nb)
393 do i=1,nnfft3d
453 integer i,c,nnfft3d
469 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb))*nq1(nb)
470 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb))*nq2(nb)
471 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb))*nq3(nb)
475 do i=1,nnfft3d
530 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb))*nq1(nb)
531 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb))*nq2(nb)
532 if ((op.eq.2).or.(op.eq.5)) nnfft3d = (nz(nb))*nq3(nb)
536 do i=1,nnfft3d