From 00e8a7a0c8b53505d7108b75370259c4c5954ac2 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 29 Jan 2015 19:16:37 +0000 Subject: [PATCH] Clean up compiler warnings. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4912 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/timefft.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/timefft.f90 b/lib/timefft.f90 index fc8c07926..c20c034a8 100644 --- a/lib/timefft.f90 +++ b/lib/timefft.f90 @@ -11,7 +11,7 @@ program timefft type(C_PTR) :: pa,pb,pc integer(C_INT) iret integer*8 count0,count1,clkfreq - character infile*12,arg*8,problem*9 + character problem*9 logical linplace,lcomplex ! Get command-line parameters @@ -70,7 +70,7 @@ program timefft endif endif call system_clock(count1,clkfreq) - tplan=0.5*(count1-count0)/float(clkfreq) !Plan time for one transform + tplan=0.5*float(count1-count0)/float(clkfreq) !Plan time for one transform total=0. do iter=1,iters !Do many iterations @@ -95,7 +95,7 @@ program timefft endif endif call system_clock(count1,clkfreq) - total=total + (count1-count0)/float(clkfreq) + total=total + float(count1-count0)/float(clkfreq) if(total.ge.1.0) go to 40 !Cut iterations short if t>1 s enddo iter=iters