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

Clean up compiler warnings.

Browse Source 
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 508594428a
commit 518dd76c6b
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 type(C_PTR) :: pa,pb,pc
integer(C_INT) iret integer(C_INT) iret
integer*8 count0,count1,clkfreq integer*8 count0,count1,clkfreq
character infile*12,arg*8,problem*9 character problem*9
logical linplace,lcomplex logical linplace,lcomplex
! Get command-line parameters ! Get command-line parameters
@ -70,7 +70,7 @@ program timefft
endif endif
endif endif
call system_clock(count1,clkfreq) 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. total=0.
do iter=1,iters !Do many iterations do iter=1,iters !Do many iterations
@ -95,7 +95,7 @@ program timefft
endif endif
endif endif
call system_clock(count1,clkfreq) 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 if(total.ge.1.0) go to 40 !Cut iterations short if t>1 s
enddo enddo
iter=iters iter=iters