forked from etc/pineapple-src
20 lines
752 B
Diff
Executable file
20 lines
752 B
Diff
Executable file
diff --git a/common/src/fft/kiss_fft.c b/common/src/fft/kiss_fft.c
|
|
index a996887..37232bd 100644
|
|
--- a/common/src/fft/kiss_fft.c
|
|
+++ b/common/src/fft/kiss_fft.c
|
|
@@ -260,11 +260,13 @@ void kf_work(
|
|
#if (defined _OPENMP && (_OPENMP <= 201307)) || (defined __GNUC__ && (__GNUC__ >= 6 && __GNUC__ < 9))
|
|
#pragma omp parallel for \
|
|
default(none) \
|
|
- shared(f, factors, Fout, in_stride)
|
|
+ shared(f, factors, Fout, in_stride) \
|
|
+ private(k)
|
|
#else
|
|
#pragma omp parallel for \
|
|
default(none) \
|
|
- shared(f, factors, Fout, fstride, in_stride, m, p, st)
|
|
+ shared(f, factors, Fout, fstride, in_stride, m, p, st) \
|
|
+ private(k)
|
|
#endif
|
|
for (k=0;k<p;++k)
|
|
kf_work( Fout +k*m, f+ fstride*in_stride*k,fstride*p,in_stride,factors,st);
|