w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-10 06:22:15 -05: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
write(*,1000)
1000 format('Problem Threads Plan Time Gflops RMS'/ &
'--------------------------------------------------')
1000 format(/'Problem Threads Plan Time Gflops RMS iters'/ &
'--------------------------------------------------------')
! Try nthreads = 1,maxthreads
do nthreads=1,maxthreads
@ -118,8 +118,8 @@ program timefft
rms=sqrt(sq/nfft)
! Display results
write(*,1050) problem,nthreads,tplan,time,gflops,rms
1050 format(a9,i4,f8.3,f10.6,f7.2,f11.7)
write(*,1050) problem,nthreads,tplan,time,gflops,rms,iter
1050 format(a9,i4,f8.3,f10.6,f7.2,f11.7,i5)
enddo
! Export accumulated FFTW wisdom
@ -128,8 +128,10 @@ program timefft
! Clean up
call fftwf_destroy_plan(plan1)
call fftwf_destroy_plan(plan2)
call fftwf_free(pa)
call fftwf_free(pb)
call fftwf_free(pc)
call fftwf_cleanup()
call fftwf_cleanup_threads()
call fftwf_cleanup()
end program timefft