w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

More minor cleanup.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4914 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-01-29 20:50:05 +00:00
parent 647ae961fa
commit d8f8c0c809
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/timefft.f90
View File

@ -43,8 +43,8 @@ program timefft
iters=100 iters=100
write(*,1000) write(*,1000)
1000 format('Problem Threads Plan Time Gflops RMS'/ & 1000 format(/'Problem Threads Plan Time Gflops RMS iters'/ &
'--------------------------------------------------') '--------------------------------------------------------')
! Try nthreads = 1,maxthreads ! Try nthreads = 1,maxthreads
do nthreads=1,maxthreads do nthreads=1,maxthreads
@ -118,8 +118,8 @@ program timefft
rms=sqrt(sq/nfft) rms=sqrt(sq/nfft)
! Display results ! Display results
write(*,1050) problem,nthreads,tplan,time,gflops,rms write(*,1050) problem,nthreads,tplan,time,gflops,rms,iter
1050 format(a9,i4,f8.3,f10.6,f7.2,f11.7) 1050 format(a9,i4,f8.3,f10.6,f7.2,f11.7,i5)
enddo enddo
! Export accumulated FFTW wisdom ! Export accumulated FFTW wisdom
@ -128,8 +128,10 @@ program timefft
! Clean up ! Clean up
call fftwf_destroy_plan(plan1) call fftwf_destroy_plan(plan1)
call fftwf_destroy_plan(plan2) call fftwf_destroy_plan(plan2)
call fftwf_free(pa)
call fftwf_free(pb)
call fftwf_free(pc) call fftwf_free(pc)
call fftwf_cleanup()
call fftwf_cleanup_threads() call fftwf_cleanup_threads()
call fftwf_cleanup()
end program timefft end program timefft