w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-27 15:46:51 -04:00
Code Issues Packages Projects Releases Wiki Activity

Do not write an FFTW wisdom file if usage message has been issued.

Browse Source
This commit is contained in:
Joe Taylor 2020-07-26 10:50:05 -04:00
parent ceeafa5bed
commit 7e24f9be20
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/jt9.f90
View File

@ -79,7 +79,7 @@ program jt9
character(len=6) :: mygrid='', hisgrid='EN37' character(len=6) :: mygrid='', hisgrid='EN37'
common/patience/npatience,nthreads common/patience/npatience,nthreads
common/decstats/ntry65a,ntry65b,n65a,n65b,num9,numfano common/decstats/ntry65a,ntry65b,n65a,n65b,num9,numfano
data npatience/1/,nthreads/1/ data npatience/1/,nthreads/1/,wisfile/' '/
iwspr=0 iwspr=0
nsubmode = 0 nsubmode = 0
@ -325,8 +325,8 @@ program jt9
999 continue 999 continue
! Output decoder statistics ! Output decoder statistics
call fini_timer () call fini_timer ()
! Save wisdom and free memory ! Save FFTW wisdom and free memory
iret=fftwf_export_wisdom_to_filename(wisfile) if(len(trim(wisfile)).gt.0) iret=fftwf_export_wisdom_to_filename(wisfile)
call four2a(a,-1,1,1,1) call four2a(a,-1,1,1,1)
call filbig(a,-1,1,0.0,0,0,0,0,0) !used for FFT plans call filbig(a,-1,1,0.0,0,0,0,0,0) !used for FFT plans
call fftwf_cleanup_threads() call fftwf_cleanup_threads()