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

Update the utility program chkfft.

Browse Source 
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 61a643c5a5
commit c2f8d8ce81
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
open(12,file='chkfft.out',status='unknown')
open(13,file='fftwf_wisdom.dat',status='unknown')
if(nr.ne.0) then
call import_wisdom_from_file(isuccess,13)
if(isuccess.eq.0) then
isuccess=fftwf_import_wisdom_from_filename('fftwf_wisdom.dat'//char(0))
if(isuccess.eq.1) then
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
endif
endif
@ -164,10 +166,9 @@ program chkfft
900 continue
if(nw.eq.1) then
rewind 13
call export_wisdom_to_file(13)
! write(*,1070)
!1070 format(/'Exported FFTW wisdom')
ierr=fftwf_export_wisdom_to_filename('fftwf_wisdom.dat'//char(0))
write(*,1070)
1070 format(/'Exported FFTW wisdom')
endif
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