w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 13:12:30 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
qmap/libqmap/fftbig.f90
View File

@ -14,7 +14,7 @@ subroutine fftbig(dd,nmax)
logical first logical first
common/cacb/ca common/cacb/ca
equivalence (rfilt,cfilt) equivalence (rfilt,cfilt)
data first/.true./,npatience/1/ data first/.true./,npatience/0/
save save
if(nmax.lt.0) go to 900 if(nmax.lt.0) go to 900

4
qmap/libqmap/ftninit.f90
View File

@ -16,9 +16,5 @@ subroutine ftninit
open(17,file=appd//'/red.dat',status='unknown') open(17,file=appd//'/red.dat',status='unknown')
open(19,file=appd//'/livecq.txt',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 return
end subroutine ftninit end subroutine ftninit