From 2557fa39f2fe406d0b8466ae5e53132d587da038 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 29 Jan 2015 20:50:05 +0000 Subject: [PATCH] More minor cleanup. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4914 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/timefft.f90 | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lib/timefft.f90 b/lib/timefft.f90 index c20c034a8..0b8b853fb 100644 --- a/lib/timefft.f90 +++ b/lib/timefft.f90 @@ -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