diff --git a/qmap/libqmap/fftbig.f90 b/qmap/libqmap/fftbig.f90 index 8ae160ed9..085fd39f6 100644 --- a/qmap/libqmap/fftbig.f90 +++ b/qmap/libqmap/fftbig.f90 @@ -14,7 +14,7 @@ subroutine fftbig(dd,nmax) logical first common/cacb/ca equivalence (rfilt,cfilt) - data first/.true./,npatience/1/ + data first/.true./,npatience/0/ save if(nmax.lt.0) go to 900 diff --git a/qmap/libqmap/ftninit.f90 b/qmap/libqmap/ftninit.f90 index 450d2b8c0..e68719689 100644 --- a/qmap/libqmap/ftninit.f90 +++ b/qmap/libqmap/ftninit.f90 @@ -16,9 +16,5 @@ subroutine ftninit open(17,file=appd//'/red.dat',status='unknown') open(19,file=appd//'/livecq.txt',status='unknown') - iret=fftwf_init_threads() !Initialize FFTW threading -! Default to 1 thread, but use nthreads for the big ones - call fftwf_plan_with_nthreads(1) - return end subroutine ftninit