/dports/science/octopus/octopus-10.5/src/math/ |
H A D | nfft.F90 | 179 nfft%dim = dim 180 nfft%M(:) = M(:) 181 nfft%N(:) = N(:) 191 nfft%M(dim+1:3) = 1 342 FLOAT :: x1_(1:nfft%M(1)), x2_(1:nfft%M(2)), x3_(1:nfft%M(3)) 343 FLOAT :: length, cc, eps, dX1(1:nfft%M(1)-1), dX2(1:nfft%M(2)-1), dX3(1:nfft%M(3)-1) 384 call oct_nfft_precompute_one_psi_2d(nfft%plan, nfft%M, x1_, x2_) 400 call oct_nfft_precompute_one_psi_1d(nfft%plan,nfft%M(1),x1_) 490 call zoct_set_f_hat(nfft%plan, nfft%dim, in(ix,iy,iz), ix, iy, iz) 500 call zoct_get_f(nfft%plan, nfft%M, nfft%dim, out(ix,iy,iz), ix, iy, iz) [all …]
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | timf2.f90 | 25 complex cx0(0:nfft-1),cx1(0:nfft-1) 26 complex cy0(0:nfft-1),cy1(0:nfft-1) 50 nh=nfft/2 51 kstep=nfft 67 if(nwindow.eq.2) cx(0:nfft-1)=w(0:nfft-1)*cx(0:nfft-1) 72 if(nwindow.eq.2) cy(0:nfft-1)=w(0:nfft-1)*cy(0:nfft-1) 89 cxt(0:nfft-1)=cx(0:nfft-1) 106 cyt(0:nfft-1)=cy(0:nfft-1) 118 ave=sum(s(0:nfft-1))/nfft 119 lstrong(0:nfft-1)=s(0:nfft-1).gt.10.0*ave [all …]
|
/dports/audio/jamulus/jamulus-r3_8_1/libs/opus/celt/tests/ |
H A D | test_unit_mdct.c | 54 for (k=0;k<nfft;++k) { in check() 55 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 58 re /= nfft/4; in check() 85 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 138 for (k=0;k<nfft;++k) { in test1d() 142 for (k=0;k<nfft/2;++k) { in test1d() 145 for (k=0;k<nfft;++k) { in test1d() 152 in[k] /= nfft; in test1d() 156 for (k=0;k<nfft;++k) in test1d() 162 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/www/chromium-legacy/chromium-88.0.4324.182/third_party/opus/src/celt/tests/ |
H A D | test_unit_mdct.c | 54 for (k=0;k<nfft;++k) { in check() 55 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 58 re /= nfft/4; in check() 85 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 138 for (k=0;k<nfft;++k) { in test1d() 142 for (k=0;k<nfft/2;++k) { in test1d() 145 for (k=0;k<nfft;++k) { in test1d() 152 in[k] /= nfft; in test1d() 156 for (k=0;k<nfft;++k) in test1d() 162 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/audio/opus/opus-1.3.1/celt/tests/ |
H A D | test_unit_mdct.c | 54 for (k=0;k<nfft;++k) { in check() 55 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 58 re /= nfft/4; in check() 85 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 138 for (k=0;k<nfft;++k) { in test1d() 142 for (k=0;k<nfft/2;++k) { in test1d() 145 for (k=0;k<nfft;++k) { in test1d() 152 in[k] /= nfft; in test1d() 156 for (k=0;k<nfft;++k) in test1d() 162 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/comms/wsjtz/wsjtx/lib/ |
H A D | chkfft2.f90 | 31 nfft=-1 83 if(nfft.eq.-1) n2=999999 109 if(nfft.gt.NMAX) go to 900 110 a(1:nfft)=b(1:nfft) !Copy test data into a() 135 a(1:nfft)=b(1:nfft) !Copy test data into a() 148 a(1:nfft)=a(1:nfft)/nfft 153 do i=1,nfft 157 do i=1,nfft 161 rms=sqrt(sq/nfft) 163 freq=1.e-6*nfft/time [all …]
|
H A D | chkfft.f90 | 30 nfft=-1 76 if(nfft.eq.-1) n2=999999 102 if(nfft.gt.NMAX) go to 900 103 a(1:nfft)=b(1:nfft) !Copy test data into a() 112 a(1:nfft)=b(1:nfft) !Copy test data into a() 126 a(1:nfft)=a(1:nfft)/nfft 131 do i=1,nfft 135 do i=1,nfft 139 rms=sqrt(sq/nfft) 141 freq=1.e-6*nfft/time [all …]
|
H A D | chkfft3.f90 | 32 nfft=-1 84 if(nfft.eq.-1) n2=999999 110 if(nfft.gt.NMAX) go to 900 111 a(1:nfft)=b(1:nfft) !Copy test data into a() 126 a(1:nfft)=b(1:nfft) !Copy test data into a() 139 a(1:nfft)=a(1:nfft)/nfft 144 do i=1,nfft 148 do i=1,nfft 152 rms=sqrt(sq/nfft) 154 freq=1.e-6*nfft/time [all …]
|
H A D | timefft.f90 | 26 call c_f_pointer(pa,a,[nfft]) 27 call c_f_pointer(pa,ar,[nfft]) 30 call c_f_pointer(pb,b,[nfft]) 31 call c_f_pointer(pb,br,[nfft]) 34 call c_f_pointer(pc,c,[nfft]) 55 a(1:nfft)=b(1:nfft) !Copy test data into a() 108 gflops=5.0/(1.e9*time/(nfft*log(float(nfft))/log(2.0))) 109 a(1:nfft)=a(1:nfft)/nfft !Normalize the back-transformed data 114 do i=1,nfft 118 do i=1,nfft [all …]
|
/dports/audio/sdl2_mixer/SDL2_mixer-2.0.4/external/opus-1.0.3/celt/tests/ |
H A D | test_unit_mdct.c | 63 for (k=0;k<nfft;++k) { 64 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; 67 re /= nfft/4; 94 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; 127 for (k=0;k<nfft;++k) { 131 for (k=0;k<nfft/2;++k) { 134 for (k=0;k<nfft;++k) { 140 for (k=0;k<nfft;++k) { 141 in[k] /= nfft; 145 for (k=0;k<nfft;++k) [all …]
|
/dports/devel/godot/godot-3.2.3-stable/thirdparty/opus/celt/tests/ |
H A D | test_unit_mdct.c | 79 for (k=0;k<nfft;++k) { in check() 80 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 83 re /= nfft/4; in check() 110 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 143 for (k=0;k<nfft;++k) { in test1d() 147 for (k=0;k<nfft/2;++k) { in test1d() 150 for (k=0;k<nfft;++k) { in test1d() 157 in[k] /= nfft; in test1d() 161 for (k=0;k<nfft;++k) in test1d() 167 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/devel/godot-tools/godot-3.2.3-stable/thirdparty/opus/celt/tests/ |
H A D | test_unit_mdct.c | 79 for (k=0;k<nfft;++k) { in check() 80 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 83 re /= nfft/4; in check() 110 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 143 for (k=0;k<nfft;++k) { in test1d() 147 for (k=0;k<nfft/2;++k) { in test1d() 150 for (k=0;k<nfft;++k) { in test1d() 157 in[k] /= nfft; in test1d() 161 for (k=0;k<nfft;++k) in test1d() 167 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/devel/godot2-tools/godot-2.1.6-stable/thirdparty/opus/celt/tests/ |
H A D | test_unit_mdct.c | 79 for (k=0;k<nfft;++k) { in check() 80 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 83 re /= nfft/4; in check() 110 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 143 for (k=0;k<nfft;++k) { in test1d() 147 for (k=0;k<nfft/2;++k) { in test1d() 150 for (k=0;k<nfft;++k) { in test1d() 157 in[k] /= nfft; in test1d() 161 for (k=0;k<nfft;++k) in test1d() 167 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/devel/godot2/godot-2.1.6-stable/thirdparty/opus/celt/tests/ |
H A D | test_unit_mdct.c | 79 for (k=0;k<nfft;++k) { in check() 80 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 83 re /= nfft/4; in check() 110 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 143 for (k=0;k<nfft;++k) { in test1d() 147 for (k=0;k<nfft/2;++k) { in test1d() 150 for (k=0;k<nfft;++k) { in test1d() 157 in[k] /= nfft; in test1d() 161 for (k=0;k<nfft;++k) in test1d() 167 for (k=0;k<nfft;++k) in test1d() [all …]
|
/dports/audio/mumble/mumble-1.3.3/3rdparty/celt-0.11.0-src/tests/ |
H A D | mdct-test.c | 38 for (k=0;k<nfft;++k) { in check() 39 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 42 re /= nfft/4; in check() 68 for (k=0;k<nfft/2;++k) { in check_inv() 69 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 101 for (k=0;k<nfft;++k) { in test1d() 105 for (k=0;k<nfft/2;++k) { in test1d() 109 for (k=0;k<nfft;++k) { in test1d() 116 for (k=0;k<nfft;++k) { in test1d() 117 in[k] /= nfft; in test1d() [all …]
|
/dports/audio/mumble/mumble-1.3.3/3rdparty/celt-0.7.0-src/tests/ |
H A D | mdct-test.c | 30 for (k=0;k<nfft;++k) { in check() 31 double phase = 2*M_PI*(k+.5+.25*nfft)*(bin+.5)/nfft; in check() 34 re /= nfft/4; in check() 60 for (k=0;k<nfft/2;++k) { in check_inv() 61 double phase = 2*M_PI*(bin+.5+.25*nfft)*(k+.5)/nfft; in check_inv() 93 for (k=0;k<nfft;++k) { in test1d() 97 for (k=0;k<nfft/2;++k) { in test1d() 101 for (k=0;k<nfft;++k) { in test1d() 108 for (k=0;k<nfft;++k) { in test1d() 109 in[k] /= nfft; in test1d() [all …]
|
/dports/comms/liquid-dsp/liquid-dsp-1.3.2/sandbox/ |
H A D | fft_rader_prime_test.c | 73 unsigned int nfft = 17; in main() local 86 if ( nfft <= 2 || !is_prime(nfft)) { in main() 101 for (i=0; i<nfft; i++) { in main() 119 for (i=0; i<nfft-1; i++) in main() 126 for (i=0; i<nfft-1; i++) in main() 136 for (i=0; i<nfft-1; i++) in main() 143 for (i=0; i<nfft-1; i++) { in main() 151 for (i=0; i<nfft-1; i++) in main() 157 for (i=0; i<nfft; i++) in main() 177 for (i=0; i<nfft; i++) { in main() [all …]
|
/dports/graphics/bonzomatic/Bonzomatic-2021-03-07/external/kiss_fft/test/ |
H A D | twotonetest.c | 24 double f1 = bin1*2*M_PI/nfft; in two_tone_test() 25 double f2 = bin2*2*M_PI/nfft; in two_tone_test() 39 for (i = 0; i < nfft; i++) { in two_tone_test() 51 for (i=0;i < (nfft/2+1);++i) { in two_tone_test() 60 if (i!=0 && i!= nfft/2) in two_tone_test() 76 int nfft = 4*2*2*3*5; in main() local 77 if (argc>1) nfft = atoi(argv[1]); in main() 83 for (i=0;i<nfft/2;i+= (nfft>>4)+1) { in main() 84 for (j=i;j<nfft/2;j+=(nfft>>4)+7) { in main() 85 snr = two_tone_test(nfft,i,j); in main() [all …]
|
/dports/audio/chromaprint/chromaprint-v1.5.0/vendor/kissfft/test/ |
H A D | twotonetest.c | 10 double two_tone_test( int nfft, int bin1,int bin2) in two_tone_test() argument 17 double f1 = bin1*2*M_PI/nfft; in two_tone_test() 18 double f2 = bin2*2*M_PI/nfft; in two_tone_test() 32 for (i = 0; i < nfft; i++) { in two_tone_test() 44 for (i=0;i < (nfft/2+1);++i) { in two_tone_test() 53 if (i!=0 && i!= nfft/2) in two_tone_test() 69 int nfft = 4*2*2*3*5; in main() local 70 if (argc>1) nfft = atoi(argv[1]); in main() 76 for (i=0;i<nfft/2;i+= (nfft>>4)+1) { in main() 77 for (j=i;j<nfft/2;j+=(nfft>>4)+7) { in main() [all …]
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/kiss_fft130/test/ |
H A D | twotonetest.c | 10 double two_tone_test( int nfft, int bin1,int bin2) in two_tone_test() argument 17 double f1 = bin1*2*M_PI/nfft; in two_tone_test() 18 double f2 = bin2*2*M_PI/nfft; in two_tone_test() 32 for (i = 0; i < nfft; i++) { in two_tone_test() 44 for (i=0;i < (nfft/2+1);++i) { in two_tone_test() 53 if (i!=0 && i!= nfft/2) in two_tone_test() 69 int nfft = 4*2*2*3*5; in main() local 70 if (argc>1) nfft = atoi(argv[1]); in main() 76 for (i=0;i<nfft/2;i+= (nfft>>4)+1) { in main() 77 for (j=i;j<nfft/2;j+=(nfft>>4)+7) { in main() [all …]
|
/dports/math/eigen3/eigen-3.3.9/unsupported/Eigen/src/FFT/ |
H A D | ei_fftw_impl.h | 60 void fwd(complex_type * dst,complex_type * src,int nfft) { 70 void fwd(complex_type * dst,scalar_type * src,int nfft) { 75 void inv(scalar_type * dst,complex_type * src,int nfft) { 190 void fwd( Complex * dst,const Complex *src,int nfft) 192 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src),nfft ); 197 void fwd( Complex * dst,const Scalar * src,int nfft) 199 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src) ,nfft); 211 void inv(Complex * dst,const Complex *src,int nfft) 213 get_plan(nfft,true,dst,src).inv(fftw_cast(dst), fftw_cast(src),nfft ); 218 void inv( Scalar * dst,const Complex * src,int nfft) [all …]
|
/dports/math/stanmath/math-4.2.0/lib/eigen_3.3.9/unsupported/Eigen/src/FFT/ |
H A D | ei_fftw_impl.h | 60 void fwd(complex_type * dst,complex_type * src,int nfft) { 70 void fwd(complex_type * dst,scalar_type * src,int nfft) { 75 void inv(scalar_type * dst,complex_type * src,int nfft) { 190 void fwd( Complex * dst,const Complex *src,int nfft) 192 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src),nfft ); 197 void fwd( Complex * dst,const Scalar * src,int nfft) 199 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src) ,nfft); 211 void inv(Complex * dst,const Complex *src,int nfft) 213 get_plan(nfft,true,dst,src).inv(fftw_cast(dst), fftw_cast(src),nfft ); 218 void inv( Scalar * dst,const Complex * src,int nfft) [all …]
|
/dports/math/R-cran-RcppEigen/RcppEigen/inst/include/unsupported/Eigen/src/FFT/ |
H A D | ei_fftw_impl.h | 60 void fwd(complex_type * dst,complex_type * src,int nfft) { 70 void fwd(complex_type * dst,scalar_type * src,int nfft) { 75 void inv(scalar_type * dst,complex_type * src,int nfft) { 190 void fwd( Complex * dst,const Complex *src,int nfft) 192 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src),nfft ); 197 void fwd( Complex * dst,const Scalar * src,int nfft) 199 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src) ,nfft); 211 void inv(Complex * dst,const Complex *src,int nfft) 213 get_plan(nfft,true,dst,src).inv(fftw_cast(dst), fftw_cast(src),nfft ); 218 void inv( Scalar * dst,const Complex * src,int nfft) [all …]
|
/dports/devel/upp/upp/uppsrc/plugin/Eigen/unsupported/Eigen/src/FFT/ |
H A D | ei_fftw_impl.h | 60 void fwd(complex_type * dst,complex_type * src,int nfft) { 70 void fwd(complex_type * dst,scalar_type * src,int nfft) { 75 void inv(scalar_type * dst,complex_type * src,int nfft) { 190 void fwd( Complex * dst,const Complex *src,int nfft) 192 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src),nfft ); 197 void fwd( Complex * dst,const Scalar * src,int nfft) 199 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src) ,nfft); 211 void inv(Complex * dst,const Complex *src,int nfft) 213 get_plan(nfft,true,dst,src).inv(fftw_cast(dst), fftw_cast(src),nfft ); 218 void inv( Scalar * dst,const Complex * src,int nfft) [all …]
|
/dports/math/libmesh/libmesh-1.6.2/contrib/eigen/3.2.9/unsupported/Eigen/src/FFT/ |
H A D | ei_fftw_impl.h | 60 void fwd(complex_type * dst,complex_type * src,int nfft) { 70 void fwd(complex_type * dst,scalar_type * src,int nfft) { 75 void inv(scalar_type * dst,complex_type * src,int nfft) { 190 void fwd( Complex * dst,const Complex *src,int nfft) 192 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src),nfft ); 197 void fwd( Complex * dst,const Scalar * src,int nfft) 199 get_plan(nfft,false,dst,src).fwd(fftw_cast(dst), fftw_cast(src) ,nfft); 211 void inv(Complex * dst,const Complex *src,int nfft) 213 get_plan(nfft,true,dst,src).inv(fftw_cast(dst), fftw_cast(src),nfft ); 218 void inv( Scalar * dst,const Complex * src,int nfft) [all …]
|