Home
last modified time | relevance | path

Searched refs:wsave (Results 1 – 25 of 157) sorted by relevance

1234567

/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/
H A Didd_sfft.f53 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 Didz_sfft.f53 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 Dfftpack.h62 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 Dfftpack.h62 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 Dfftpack.h62 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 Dfftpack.h62 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 DDOC57 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 Dezfftf.c63 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 Dsint.c61 /* 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 Drfftb.c70 /* 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 Drfftf.c71 /* 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 Dcfftb.c59 /* 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 Dcfftf.c60 /* 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 Ddrfftf.F4 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 Ddrfftb.F4 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 Dsrfftb.F4 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 Dsrfftf.F4 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 Ddcfftb.F4 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 Ddcfftf.F4 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 Dscfftf.F4 subroutine scfftf (n,c,wsave) argument
6 dimension c(*),wsave(*)
10 call scftf1 (n,c,wsave,wsave(iw1),wsave(iw2))
H A Dscfftb.F4 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 Ddrfftb.F4 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 Ddrfftf.F4 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 Ddcfftf.F4 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 Ddcfftb.F4 subroutine dcfftb (n,c,wsave) argument
8 double precision c(1), wsave(1)
14 call dcftb1 (n,c,wsave,wsave(iw1),wsave(iw2))

1234567