| /external/fft2d/src/fft2d/fft2d/ |
| D | fftsg2d.f | 312 subroutine cdft2d(n1max, n1, n2, isgn, a, t, ip, w) argument
313 integer n1max, n1, n2, isgn, ip(0 : *), n, j local
314 real*8 a(0 : n1max - 1, 0 : n2 - 1), t(0 : 8 * n2 - 1),
323 call cdft2d_sub(n1max, n1, n2, isgn, a, t, ip, w)
326 subroutine rdft2d(n1max, n1, n2, isgn, a, t, ip, w) argument
327 integer n1max, n1, n2, isgn, ip(0 : *), n, nw, nc, j local
328 real*8 a(0 : n1max - 1, 0 : n2 - 1), t(0 : 8 * n2 - 1),
342 call rdft2d_sub(n1max, n1, n2, isgn, a)
343 call cdft2d_sub(n1max, n1, n2, isgn, a, t, ip, w)
349 call cdft2d_sub(n1max, n1, n2, isgn, a, t, ip, w)
[all …]
|
| D | fft4f2d.f | 291 subroutine cdft2d(n1max, n1, n2, isgn, a, ip, w) argument
292 integer n1max, n1, n2, isgn, ip(0 : *), n local
293 real*8 a(0 : n1max - 1, 0 : n2 - 1), w(0 : *)
299 call bitrv2row(n1max, n1, n2, ip(2), a)
302 call bitrv2col(n1max, n1, n2, ip(2), a)
305 call cftfrow(n1max, n1, n2, a, w)
306 call cftfcol(n1max, n1, n2, a, w)
308 call cftbrow(n1max, n1, n2, a, w)
309 call cftbcol(n1max, n1, n2, a, w)
313 subroutine rdft2d(n1max, n1, n2, isgn, a, ip, w) argument
[all …]
|
| 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 …]
|
| /external/fft2d/src/fft2d/fft2d/sample2d/ |
| D | fftsg2dt.f | 60 subroutine putdata2d(n1max, n1, n2, a) argument
61 integer n1max, n1, n2, j1, j2, seed local
62 real*8 a(0 : n1max - 1, 0 : *), drnd
72 function errorcheck2d(n1max, n1, n2, scale, a)
73 integer n1max, n1, n2, j1, j2, seed local
74 real*8 scale, a(0 : n1max - 1, 0 : *), drnd, err, e,
|
| D | fft4f2dt.f | 61 subroutine putdata2d(n1max, n1, n2, a) argument
62 integer n1max, n1, n2, j1, j2, seed local
63 real*8 a(0 : n1max - 1, 0 : *), drnd
73 function errorcheck2d(n1max, n1, n2, scale, a)
74 integer n1max, n1, n2, j1, j2, seed local
75 real*8 scale, a(0 : n1max - 1, 0 : *), drnd, err, e,
|
| D | fftsg3dt.f | 81 subroutine putdata3d(n1max, n2max, n1, n2, n3, a) argument
82 integer n1max, n2max, n1, n2, n3, j1, j2, j3, seed local
83 real*8 a(0 : n1max - 1, 0 : n2max - 1, 0 : *), drnd
95 function errorcheck3d(n1max, n2max, n1, n2, n3, scale, a)
96 integer n1max, n2max, n1, n2, n3, j1, j2, j3, seed local
97 real*8 scale, a(0 : n1max - 1, 0 : n2max - 1, 0 : *),
|