w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-fst280' of bitbucket.org:k1jt/wsjtx into feat-fst280

Browse Source
This commit is contained in:
Bill Somerville 2020-07-26 16:21:11 +01:00
commit 64c49f7dee
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
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()