Best (and simplest) performance is with FFTW npatience=0 and no threading.

This commit is contained in:
Joe Taylor 2024-01-10 15:53:05 -05:00
parent 42f322e461
commit f93d846c22
2 changed files with 1 additions and 5 deletions

View File

@ -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

View File

@ -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