From f93d846c2202e01e5e06047733f13e187ef000d7 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 10 Jan 2024 15:53:05 -0500 Subject: [PATCH] Best (and simplest) performance is with FFTW npatience=0 and no threading. --- qmap/libqmap/fftbig.f90 | 2 +- qmap/libqmap/ftninit.f90 | 4 ---- 2 files changed, 1 insertion(+), 5 deletions(-) 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