/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/ |
H A D | idd_sfft.f | 53 subroutine idd_sffti(l,ind,n,wsave) argument 72 complex*16 wsave(2*l+15+4*n) local 85 subroutine idd_sffti1(ind,n,wsave) argument 117 subroutine idd_sffti2(l,ind,n,wsave) argument 142 call dffti(nblock,wsave) 230 complex*16 wsave(2*l+15+4*n) local 243 subroutine idd_sfft1(ind,n,v,wsave) argument 263 sumr = sumr+wsave(k)*v(k) 270 sumi = sumi+wsave(n+k)*v(k) 383 sum = sum + wsave(iii+m*idivm+k) * wsave(ii+m*(j-1)+k) [all …]
|
H A D | idz_sfft.f | 53 subroutine idz_sffti(l,ind,n,wsave) argument 69 complex*16 wsave(2*l+15+3*n),ci,twopii local 85 call zffti(nblock,wsave) 103 wsave(ii+m*(j-1)+k) = exp(-twopii*imodm*(k-1)/(r1*m)) 116 subroutine idz_sfft(l,ind,n,wsave,v) argument 154 complex*16 v(n),wsave(2*l+15+3*n),ci,sum local 172 call zfftf(nblock,v(nblock*(k-1)+1),wsave) 182 wsave(iii+m*(j-1)+k) = v(nblock*(k-1)+j) 201 sum = sum + wsave(ii+m*(j-1)+k) * wsave(iii+m*idivm+k)
|
/dports/net-im/tg_owt/tg_owt-d578c76/src/third_party/pffft/src/ |
H A D | fftpack.h | 62 void cffti(fftpack_int n, fftpack_real *wsave); 64 void cfftf(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 66 void cfftb(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 68 void rffti(fftpack_int n, fftpack_real *wsave); 69 void rfftf(fftpack_int n, fftpack_real *r, fftpack_real *wsave); 72 void cosqi(fftpack_int n, fftpack_real *wsave); 76 void costi(fftpack_int n, fftpack_real *wsave); 77 void cost(fftpack_int n, fftpack_real *x, fftpack_real *wsave); 79 void sinqi(fftpack_int n, fftpack_real *wsave); 83 void sinti(fftpack_int n, fftpack_real *wsave); [all …]
|
/dports/www/chromium-legacy/chromium-88.0.4324.182/third_party/pffft/src/ |
H A D | fftpack.h | 62 void cffti(fftpack_int n, fftpack_real *wsave); 64 void cfftf(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 66 void cfftb(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 68 void rffti(fftpack_int n, fftpack_real *wsave); 69 void rfftf(fftpack_int n, fftpack_real *r, fftpack_real *wsave); 72 void cosqi(fftpack_int n, fftpack_real *wsave); 76 void costi(fftpack_int n, fftpack_real *wsave); 77 void cost(fftpack_int n, fftpack_real *x, fftpack_real *wsave); 79 void sinqi(fftpack_int n, fftpack_real *wsave); 83 void sinti(fftpack_int n, fftpack_real *wsave); [all …]
|
/dports/www/qt5-webengine/qtwebengine-everywhere-src-5.15.2/src/3rdparty/chromium/third_party/pffft/src/ |
H A D | fftpack.h | 62 void cffti(fftpack_int n, fftpack_real *wsave); 64 void cfftf(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 66 void cfftb(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 68 void rffti(fftpack_int n, fftpack_real *wsave); 69 void rfftf(fftpack_int n, fftpack_real *r, fftpack_real *wsave); 72 void cosqi(fftpack_int n, fftpack_real *wsave); 76 void costi(fftpack_int n, fftpack_real *wsave); 77 void cost(fftpack_int n, fftpack_real *x, fftpack_real *wsave); 79 void sinqi(fftpack_int n, fftpack_real *wsave); 83 void sinti(fftpack_int n, fftpack_real *wsave); [all …]
|
/dports/www/firefox/firefox-99.0/third_party/libwebrtc/third_party/pffft/src/ |
H A D | fftpack.h | 62 void cffti(fftpack_int n, fftpack_real *wsave); 64 void cfftf(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 66 void cfftb(fftpack_int n, fftpack_real *c, fftpack_real *wsave); 68 void rffti(fftpack_int n, fftpack_real *wsave); 69 void rfftf(fftpack_int n, fftpack_real *r, fftpack_real *wsave); 72 void cosqi(fftpack_int n, fftpack_real *wsave); 76 void costi(fftpack_int n, fftpack_real *wsave); 77 void cost(fftpack_int n, fftpack_real *x, fftpack_real *wsave); 79 void sinqi(fftpack_int n, fftpack_real *wsave); 83 void sinti(fftpack_int n, fftpack_real *wsave); [all …]
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
H A D | DOC | 57 subroutine dffti(n,wsave) 64 stored in wsave. 80 subroutine dfftf(n,r,wsave) 140 subroutine dfftb(n,r,wsave) 198 subroutine dzffti(n,wsave) 205 stored in wsave. 360 stored in wsave. 432 stored in wsave. 506 stored in wsave. 632 stored in wsave. [all …]
|
/dports/science/cdcl/dcl-5.4.8-C/src/math2/fftlib/ |
H A D | ezfftf.c | 63 real *b, real *wsave) in ezfftf_() argument 78 --wsave; in ezfftf_() 101 wsave[i__] = r__[i__]; in ezfftf_() 104 rfftf_(n, &wsave[1], &wsave[*n + 1]); in ezfftf_() 107 *azero = cf * .5f * wsave[1]; in ezfftf_() 112 a[i__] = cf * wsave[i__ * 2]; in ezfftf_() 113 b[i__] = cfm * wsave[(i__ << 1) + 1]; in ezfftf_() 119 a[ns2] = cf * .5f * wsave[*n]; in ezfftf_()
|
H A D | sint.c | 61 /* Subroutine */ int sint_(integer *n, real *x, real *wsave) in sint_() argument 69 --wsave; in sint_() 77 sint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], &wsave[iw3]); in sint_()
|
H A D | rfftb.c | 70 /* Subroutine */ int rfftb_(integer *n, real *r__, real *wsave) in rfftb_() argument 77 --wsave; in rfftb_() 84 rfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]); in rfftb_()
|
H A D | rfftf.c | 71 /* Subroutine */ int rfftf_(integer *n, real *r__, real *wsave) in rfftf_() argument 78 --wsave; in rfftf_() 85 rfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]); in rfftf_()
|
H A D | cfftb.c | 59 /* Subroutine */ int cfftb_(integer *n, real *c__, real *wsave) in cfftb_() argument 67 --wsave; in cfftb_() 76 cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]); in cfftb_()
|
H A D | cfftf.c | 60 /* Subroutine */ int cfftf_(integer *n, real *c__, real *wsave) in cfftf_() argument 68 --wsave; in cfftf_() 77 cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]); in cfftf_()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/fft/pfft1.0/fftpack/ |
H A D | drfftf.F | 4 subroutine drfftf (n,r,wsave) argument 8 double precision r(1), wsave(1) 12 call drftf1 (n,r,wsave,wsave(n+1),wsave(2*n+1))
|
H A D | drfftb.F | 4 subroutine drfftb (n,r,wsave) argument 8 double precision r(1), wsave(1) 12 call drftb1 (n,r,wsave,wsave(n+1),wsave(2*n+1))
|
H A D | srfftb.F | 4 subroutine srfftb(n,r,wsave) argument 6 dimension r(*) ,wsave(*) 8 call srftb1 (n,r,wsave,wsave(n+1),wsave(2*n+1))
|
H A D | srfftf.F | 4 subroutine srfftf (n,r,wsave) argument 6 dimension r(*) ,wsave(*) 9 call srftf1 (n,r,wsave,wsave(n+1),wsave(2*n+1))
|
H A D | dcfftb.F | 4 subroutine dcfftb (n,c,wsave) argument 8 double precision c(1), wsave(1) 14 call dcftb1 (n,c,wsave,wsave(iw1),wsave(iw2))
|
H A D | dcfftf.F | 4 subroutine dcfftf (n,c,wsave) argument 8 double precision c(1), wsave(1) 14 call dcftf1 (n,c,wsave,wsave(iw1),wsave(iw2))
|
H A D | scfftf.F | 4 subroutine scfftf (n,c,wsave) argument 6 dimension c(*),wsave(*) 10 call scftf1 (n,c,wsave,wsave(iw1),wsave(iw2))
|
H A D | scfftb.F | 4 subroutine scfftb (n,c,wsave) argument 6 dimension c(*),wsave(*) 10 call scftb1 (n,c,wsave,wsave(iw1),wsave(iw2))
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/fft/pfft1.0/fftpack/ |
H A D | drfftb.F | 4 subroutine drfftb (n,r,wsave) argument 8 double precision r(1), wsave(1) 12 call drftb1 (n,r,wsave,wsave(n+1),wsave(2*n+1))
|
H A D | drfftf.F | 4 subroutine drfftf (n,r,wsave) argument 8 double precision r(1), wsave(1) 12 call drftf1 (n,r,wsave,wsave(n+1),wsave(2*n+1))
|
H A D | dcfftf.F | 4 subroutine dcfftf (n,c,wsave) argument 8 double precision c(1), wsave(1) 14 call dcftf1 (n,c,wsave,wsave(iw1),wsave(iw2))
|
H A D | dcfftb.F | 4 subroutine dcfftb (n,c,wsave) argument 8 double precision c(1), wsave(1) 14 call dcftb1 (n,c,wsave,wsave(iw1),wsave(iw2))
|