| D | fftsg3d.f | 400 subroutine cdft3d(n1max, n2max, n1, n2, n3, isgn, a, argument
402 integer n1max, n2max, n1, n2, n3, isgn, ip(0 : *), n local
403 real*8 a(0 : n1max - 1, 0 : n2max - 1, 0 : n3 - 1),
410 call xdft3da_sub(n1max, n2max, n1, n2, n3, 0,
412 call cdft3db_sub(n1max, n2max, n1, n2, n3,
416 subroutine rdft3d(n1max, n2max, n1, n2, n3, isgn, a, argument
418 integer n1max, n2max, n1, n2, n3, isgn, ip(0 : *), local
420 real*8 a(0 : n1max - 1, 0 : n2max - 1, 0 : n3 - 1),
435 call rdft3d_sub(n1max, n2max, n1, n2, n3, isgn, a)
436 call cdft3db_sub(n1max, n2max, n1, n2, n3,
[all …]
|