w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Clean up compiler warnings. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4912 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-01-29 19:16:37 +00:00
parent 776c78544d
commit 00e8a7a0c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/timefft.f90
View File

@ -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