w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-23 19:25:37 -05: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'
common/patience/npatience,nthreads
common/decstats/ntry65a,ntry65b,n65a,n65b,num9,numfano
data npatience/1/,nthreads/1/
data npatience/1/,nthreads/1/,wisfile/' '/
iwspr=0
nsubmode = 0
@ -325,8 +325,8 @@ program jt9
999 continue
! Output decoder statistics
call fini_timer ()
! Save wisdom and free memory
iret=fftwf_export_wisdom_to_filename(wisfile)
! Save FFTW wisdom and free memory
if(len(trim(wisfile)).gt.0) iret=fftwf_export_wisdom_to_filename(wisfile)
call four2a(a,-1,1,1,1)
call filbig(a,-1,1,0.0,0,0,0,0,0) !used for FFT plans
call fftwf_cleanup_threads()