/dports/math/fftw-float/fftw-2.1.5/threads/ |
H A D | rexec_threads.c | 104 d.istride = istride; in spawn_h2hc_recurse_threads() 280 istride, istride, -istride); in rexecutor_simple_inplace_threads() 286 istride, -istride, istride); in rexecutor_simple_inplace_threads() 410 d.istride = istride; in rexecutor_many_threads() 441 d.istride = istride; in rexecutor_many_threads() 469 d.istride = istride; in rexecutor_many_threads() 518 istride, istride, -istride); in rexecutor_many_inplace_threads() 527 d.istride = istride; in rexecutor_many_inplace_threads() 549 istride, -istride, istride); in rexecutor_many_inplace_threads() 558 d.istride = istride; in rexecutor_many_inplace_threads() [all …]
|
H A D | fftw_threads_test.c | 210 c_re(in1[i * istride + j]) = i * istride + j; in test_out_of_place() 211 c_im(in1[i * istride + j]) = i * istride - j; in test_out_of_place() 236 c_im(in1[i * istride + j]) == i * istride - j, in test_out_of_place() 292 c_re(in1[i * istride + j]) = i * istride + j; in test_in_place() 293 c_im(in1[i * istride + j]) = i * istride - j; in test_in_place() 311 c_im(in1[i * istride + j]) == i * istride - j, in test_in_place() 393 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 400 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 442 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_out_of_place() 529 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_in_place() [all …]
|
H A D | rfftwnd_threads.c | 133 in, istride, (n_after * istride) * 2, in rfftwnd_real2c_threads_aux() 134 out, istride, n_after * istride, in rfftwnd_real2c_threads_aux() 150 d.istride = istride; in rfftwnd_real2c_threads_aux() 200 n_after * istride, n_after, istride, in rfftwnd_c2real_threads_aux() 207 in, istride, n_after * istride, in rfftwnd_c2real_threads_aux() 208 out, istride, (n_after * istride) * 2, in rfftwnd_c2real_threads_aux() 212 in, istride, n_after * istride, in rfftwnd_c2real_threads_aux() 224 d.istride = istride; in rfftwnd_c2real_threads_aux() 437 d.istride = istride; d.idist = idist; in rfftwnd_real2c_aux_howmany_threads() 472 d.istride = istride; in rfftwnd_real2c_aux_howmany_threads() [all …]
|
H A D | executor_threads.c | 53 int istride = d->istride, ostride = d->ostride; in executor_simple_thread() local 126 d.istride = istride; in executor_simple_threads() 181 d.istride = istride; in executor_simple_threads() 224 d.istride = istride; in executor_simple_threads() 356 d.istride = istride; in executor_many_threads() 384 d.istride = istride; in executor_many_threads() 415 int idist = d->idist, istride = d->istride; in executor_many_inplace_codelet_thread() local 421 istride, istride); in executor_many_inplace_codelet_thread() 465 istride, istride); in fftw_executor_many_inplace_threads() 472 d.istride = istride; in fftw_executor_many_inplace_threads() [all …]
|
H A D | rfftw_threads_test.c | 252 in1[(j * n + i) * istride] = in1[i * istride]; in test_out_of_place() 284 in1[i * istride + j] = i * istride + j; in test_out_of_place() 304 CHECK(in1[i * istride + j] == i * istride + j, in test_out_of_place() 371 in1[(j * n + i) * istride] = in1[i * istride]; in test_in_place() 403 in1[i * istride + j] = i * istride + j; in test_in_place() 517 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 524 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 575 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_out_of_place() 591 int howmany = (istride < ostride) ? istride : ostride; in testnd_out_of_place() 715 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_in_place() [all …]
|
H A D | fftwnd_threads.c | 31 int istride, ostride; member 42 int istride = d->istride, ostride = d->ostride; in fftwnd_aux_many_thread() local 47 in + min*istride*distance,istride, in fftwnd_aux_many_thread() 73 d.istride = istride; in fftwnd_aux_many_threads() 92 in, istride, n_after * istride, in fftwnd_threads_aux() 96 in, istride, n_after * istride, in fftwnd_threads_aux() 104 in, istride, out, ostride); in fftwnd_threads_aux() 123 in, istride, idist, in fftwnd_threads() 127 in, istride, idist, in fftwnd_threads() 136 ostride = istride; in fftwnd_threads() [all …]
|
/dports/math/fftw/fftw-2.1.5/threads/ |
H A D | rexec_threads.c | 104 d.istride = istride; in spawn_h2hc_recurse_threads() 280 istride, istride, -istride); in rexecutor_simple_inplace_threads() 286 istride, -istride, istride); in rexecutor_simple_inplace_threads() 410 d.istride = istride; in rexecutor_many_threads() 441 d.istride = istride; in rexecutor_many_threads() 469 d.istride = istride; in rexecutor_many_threads() 518 istride, istride, -istride); in rexecutor_many_inplace_threads() 527 d.istride = istride; in rexecutor_many_inplace_threads() 549 istride, -istride, istride); in rexecutor_many_inplace_threads() 558 d.istride = istride; in rexecutor_many_inplace_threads() [all …]
|
H A D | fftw_threads_test.c | 210 c_re(in1[i * istride + j]) = i * istride + j; in test_out_of_place() 211 c_im(in1[i * istride + j]) = i * istride - j; in test_out_of_place() 236 c_im(in1[i * istride + j]) == i * istride - j, in test_out_of_place() 292 c_re(in1[i * istride + j]) = i * istride + j; in test_in_place() 293 c_im(in1[i * istride + j]) = i * istride - j; in test_in_place() 311 c_im(in1[i * istride + j]) == i * istride - j, in test_in_place() 393 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 400 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 442 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_out_of_place() 529 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_in_place() [all …]
|
H A D | rfftwnd_threads.c | 133 in, istride, (n_after * istride) * 2, in rfftwnd_real2c_threads_aux() 134 out, istride, n_after * istride, in rfftwnd_real2c_threads_aux() 150 d.istride = istride; in rfftwnd_real2c_threads_aux() 200 n_after * istride, n_after, istride, in rfftwnd_c2real_threads_aux() 207 in, istride, n_after * istride, in rfftwnd_c2real_threads_aux() 208 out, istride, (n_after * istride) * 2, in rfftwnd_c2real_threads_aux() 212 in, istride, n_after * istride, in rfftwnd_c2real_threads_aux() 224 d.istride = istride; in rfftwnd_c2real_threads_aux() 437 d.istride = istride; d.idist = idist; in rfftwnd_real2c_aux_howmany_threads() 472 d.istride = istride; in rfftwnd_real2c_aux_howmany_threads() [all …]
|
H A D | executor_threads.c | 53 int istride = d->istride, ostride = d->ostride; in executor_simple_thread() local 126 d.istride = istride; in executor_simple_threads() 181 d.istride = istride; in executor_simple_threads() 224 d.istride = istride; in executor_simple_threads() 356 d.istride = istride; in executor_many_threads() 384 d.istride = istride; in executor_many_threads() 415 int idist = d->idist, istride = d->istride; in executor_many_inplace_codelet_thread() local 421 istride, istride); in executor_many_inplace_codelet_thread() 465 istride, istride); in fftw_executor_many_inplace_threads() 472 d.istride = istride; in fftw_executor_many_inplace_threads() [all …]
|
H A D | rfftw_threads_test.c | 252 in1[(j * n + i) * istride] = in1[i * istride]; in test_out_of_place() 284 in1[i * istride + j] = i * istride + j; in test_out_of_place() 304 CHECK(in1[i * istride + j] == i * istride + j, in test_out_of_place() 371 in1[(j * n + i) * istride] = in1[i * istride]; in test_in_place() 403 in1[i * istride + j] = i * istride + j; in test_in_place() 517 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 524 for (istride = 1; istride <= MAX_STRIDE; ++istride) in test_correctness() 575 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_out_of_place() 591 int howmany = (istride < ostride) ? istride : ostride; in testnd_out_of_place() 715 for (istride = 1; istride <= MAX_STRIDE; ++istride) { in testnd_in_place() [all …]
|
H A D | fftwnd_threads.c | 31 int istride, ostride; member 42 int istride = d->istride, ostride = d->ostride; in fftwnd_aux_many_thread() local 47 in + min*istride*distance,istride, in fftwnd_aux_many_thread() 73 d.istride = istride; in fftwnd_aux_many_threads() 92 in, istride, n_after * istride, in fftwnd_threads_aux() 96 in, istride, n_after * istride, in fftwnd_threads_aux() 104 in, istride, out, ostride); in fftwnd_threads_aux() 123 in, istride, idist, in fftwnd_threads() 127 in, istride, idist, in fftwnd_threads() 136 ostride = istride; in fftwnd_threads() [all …]
|
/dports/math/fftw/fftw-2.1.5/rfftw/ |
H A D | rexec.c | 56 int istride, in rexecutor_many() argument 84 istride, -istride, ostride); in rexecutor_many() 104 int istride, in rexecutor_many_vector() argument 131 istride, -istride, ostride); in rexecutor_many_vector() 165 W, m * istride, m, istride); in rexecutor_many_vector() 245 istride, -istride, ostride); in rfftw_executor_simple() 288 codelet(in, W, m * istride, m, istride); in rfftw_executor_simple() 383 istride, istride, -istride); in rexecutor_simple_inplace() 389 istride, -istride, istride); in rexecutor_simple_inplace() 428 istride, istride, -istride); in rexecutor_many_inplace() [all …]
|
H A D | rfftwnd.c | 220 in, istride, (n_after * istride) * 2, in rfftwnd_real2c_aux() 221 out, istride, n_after * istride, in rfftwnd_real2c_aux() 225 in, istride, p->plans[p->rank - 1]->n * istride, in rfftwnd_real2c_aux() 240 in + i * n_after_r * istride, istride, in rfftwnd_real2c_aux() 260 in, n_after * istride, istride, in rfftwnd_c2real_aux() 267 in, istride, n_after * istride, in rfftwnd_c2real_aux() 268 out, istride, (n_after * istride) * 2, in rfftwnd_c2real_aux() 272 in, istride, n_after * istride, in rfftwnd_c2real_aux() 287 in + i * n_after * istride, istride, in rfftwnd_c2real_aux() 342 in + i * n_after_r * istride, istride, idist, in rfftwnd_real2c_aux_howmany() [all …]
|
/dports/math/fftw-float/fftw-2.1.5/rfftw/ |
H A D | rexec.c | 56 int istride, in rexecutor_many() argument 84 istride, -istride, ostride); in rexecutor_many() 104 int istride, in rexecutor_many_vector() argument 131 istride, -istride, ostride); in rexecutor_many_vector() 165 W, m * istride, m, istride); in rexecutor_many_vector() 245 istride, -istride, ostride); in rfftw_executor_simple() 288 codelet(in, W, m * istride, m, istride); in rfftw_executor_simple() 383 istride, istride, -istride); in rexecutor_simple_inplace() 389 istride, -istride, istride); in rexecutor_simple_inplace() 428 istride, istride, -istride); in rexecutor_many_inplace() [all …]
|
H A D | rfftwnd.c | 220 in, istride, (n_after * istride) * 2, in rfftwnd_real2c_aux() 221 out, istride, n_after * istride, in rfftwnd_real2c_aux() 225 in, istride, p->plans[p->rank - 1]->n * istride, in rfftwnd_real2c_aux() 240 in + i * n_after_r * istride, istride, in rfftwnd_real2c_aux() 260 in, n_after * istride, istride, in rfftwnd_c2real_aux() 267 in, istride, n_after * istride, in rfftwnd_c2real_aux() 268 out, istride, (n_after * istride) * 2, in rfftwnd_c2real_aux() 272 in, istride, n_after * istride, in rfftwnd_c2real_aux() 287 in + i * n_after * istride, istride, in rfftwnd_c2real_aux() 342 in + i * n_after_r * istride, istride, idist, in rfftwnd_real2c_aux_howmany() [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/mp_correct/src/ |
H A D | pd00.f | 48 integer iarr(n), ichunk, init, istride local 62 integer iarr(n), ichunk, init, istride local 75 integer iarr(n), ichunk, init, istride local 88 integer iarr(n), ichunk, init, istride local 92 do i = init, n, istride 102 integer iarr(n), ichunk, init, istride local 116 integer iarr(n), ichunk, init, istride local 120 do i = init, n, istride 130 integer iarr(n), ichunk, init, istride local 133 do i = init, n, istride [all …]
|
/dports/audio/praat/praat-6.2.03/external/gsl/ |
H A D | gsl_fft__c_pass_n.c | 22 const size_t istride, in FUNCTION() 43 REAL(out,ostride,i) = REAL(in,istride,i); in FUNCTION() 44 IMAG(out,ostride,i) = IMAG(in,istride,i); in FUNCTION() 53 REAL(out,ostride,idx) = REAL(in,istride,idx) + REAL(in,istride,idxc); in FUNCTION() 54 IMAG(out,ostride,idx) = IMAG(in,istride,idx) + IMAG(in,istride,idxc); in FUNCTION() 55 REAL(out,ostride,idxc) = REAL(in,istride,idx) - REAL(in,istride,idxc); in FUNCTION() 56 IMAG(out,ostride,idxc) = IMAG(in,istride,idx) - IMAG(in,istride,idxc); in FUNCTION() 64 REAL(in,istride,i) = REAL(out,ostride,i); in FUNCTION() 65 IMAG(in,istride,i) = IMAG(out,ostride,i); in FUNCTION() 144 REAL(out,ostride,k1) = REAL(in,istride,k1); in FUNCTION() [all …]
|
/dports/math/gsl/gsl-2.7/fft/ |
H A D | c_pass_n.c | 22 const size_t istride, in FUNCTION() 43 REAL(out,ostride,i) = REAL(in,istride,i); in FUNCTION() 44 IMAG(out,ostride,i) = IMAG(in,istride,i); in FUNCTION() 53 REAL(out,ostride,idx) = REAL(in,istride,idx) + REAL(in,istride,idxc); in FUNCTION() 54 IMAG(out,ostride,idx) = IMAG(in,istride,idx) + IMAG(in,istride,idxc); in FUNCTION() 55 REAL(out,ostride,idxc) = REAL(in,istride,idx) - REAL(in,istride,idxc); in FUNCTION() 56 IMAG(out,ostride,idxc) = IMAG(in,istride,idx) - IMAG(in,istride,idxc); in FUNCTION() 64 REAL(in,istride,i) = REAL(out,ostride,i); in FUNCTION() 65 IMAG(in,istride,i) = IMAG(out,ostride,i); in FUNCTION() 144 REAL(out,ostride,k1) = REAL(in,istride,k1); in FUNCTION() [all …]
|
/dports/math/fftw-float/fftw-2.1.5/cilk/ |
H A D | fftwnd_cilk.cilk | 161 in, istride, n1 * istride, 186 in, istride, n2 * istride, 220 in, istride, p->n[p->rank - 1] * istride, 257 in_out, istride, istride * n1, 262 in_out, istride * n1, istride, 281 in_out, istride, n2 * istride, 292 d.istride = n2*istride; 302 n1 * n2 * istride, istride, 314 in_out, istride, p->n[p->rank - 1] * istride, 319 in_out, p->n_after[0] * istride, istride, [all …]
|
H A D | executor_cilk.cilk | 153 int istride) 157 (*p->nodeu.notw.codelet) (in, in, istride, istride); 206 istride = d->istride; 237 istride = d->istride; 265 d.istride = istride; 283 d.istride = istride; 309 istride = d->istride; 315 istride, istride); 338 istride = d->istride; 362 d.istride = istride; [all …]
|
/dports/math/fftw/fftw-2.1.5/cilk/ |
H A D | fftwnd_cilk.cilk | 161 in, istride, n1 * istride, 186 in, istride, n2 * istride, 220 in, istride, p->n[p->rank - 1] * istride, 257 in_out, istride, istride * n1, 262 in_out, istride * n1, istride, 281 in_out, istride, n2 * istride, 292 d.istride = n2*istride; 302 n1 * n2 * istride, istride, 314 in_out, istride, p->n[p->rank - 1] * istride, 319 in_out, p->n_after[0] * istride, istride, [all …]
|
H A D | executor_cilk.cilk | 153 int istride) 157 (*p->nodeu.notw.codelet) (in, in, istride, istride); 206 istride = d->istride; 237 istride = d->istride; 265 d.istride = istride; 283 d.istride = istride; 309 istride = d->istride; 315 istride, istride); 338 istride = d->istride; 362 d.istride = istride; [all …]
|
/dports/math/fftw/fftw-2.1.5/fftw/ |
H A D | executor.c | 71 int istride, in executor_many() argument 87 istride, ostride); in executor_many() 95 p, istride, ostride, in executor_many() 107 int istride, in executor_many_vector() argument 122 istride, ostride); in executor_many_vector() 215 int istride, in fftw_executor_simple() argument 327 int istride, in executor_simple_inplace() argument 333 (p->nodeu.notw.codelet)(in, in, istride, istride); in executor_simple_inplace() 359 int istride, in executor_many_inplace() argument 373 istride, istride); in executor_many_inplace() [all …]
|
/dports/math/fftw-float/fftw-2.1.5/fftw/ |
H A D | executor.c | 71 int istride, in executor_many() argument 87 istride, ostride); in executor_many() 95 p, istride, ostride, in executor_many() 107 int istride, in executor_many_vector() argument 122 istride, ostride); in executor_many_vector() 215 int istride, in fftw_executor_simple() argument 327 int istride, in executor_simple_inplace() argument 333 (p->nodeu.notw.codelet)(in, in, istride, istride); in executor_simple_inplace() 359 int istride, in executor_many_inplace() argument 373 istride, istride); in executor_many_inplace() [all …]
|