w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update the utility program chkfft. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7153 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-10-06 18:30:10 +00:00
parent 216259c71f
commit 2066486115
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/chkfft3.f90
View File

@ -56,13 +56,15 @@ program chkfft
if(npatience.eq.4) nflags=FFTW_EXHAUSTIVE if(npatience.eq.4) nflags=FFTW_EXHAUSTIVE
open(12,file='chkfft.out',status='unknown') open(12,file='chkfft.out',status='unknown')
open(13,file='fftwf_wisdom.dat',status='unknown')
if(nr.ne.0) then if(nr.ne.0) then
call import_wisdom_from_file(isuccess,13) isuccess=fftwf_import_wisdom_from_filename('fftwf_wisdom.dat'//char(0))
if(isuccess.eq.0) then if(isuccess.eq.1) then
write(*,1010) write(*,1010)
1010 format('Failed to import FFTW wisdom.') 1010 format('Imported FFTW wisdom.')
else
write(*,1012)
1012 format('Failed to import FFTW wisdom.')
go to 999 go to 999
endif endif
endif endif
@ -164,10 +166,9 @@ program chkfft
900 continue 900 continue
if(nw.eq.1) then if(nw.eq.1) then
rewind 13 ierr=fftwf_export_wisdom_to_filename('fftwf_wisdom.dat'//char(0))
call export_wisdom_to_file(13) write(*,1070)
! write(*,1070) 1070 format(/'Exported FFTW wisdom')
!1070 format(/'Exported FFTW wisdom')
endif endif
call fftwf_destroy_plan(plan1) call fftwf_destroy_plan(plan1)

1
lib/go_chkfft.cmd Normal file
View File

@ -0,0 +1 @@
gfortran -o chkfft chkfft3.f90 four2a.f90 gran.c /jtsdk/fftw3f/libfftw3f-3.dll