w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-15 08:31:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

subtractft8: Delete unused variable, i1

Browse Source
This commit is contained in:
Steven Franke 2020-03-06 13:21:04 -06:00
parent 3467ee7924
commit fa071324e5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/subtractft8.f90
View File

@ -47,7 +47,7 @@ subroutine subtractft8(dd0,itone,f0,dt,lrefinedt)
sq0=sqf(0) sq0=sqf(0)
call peakup(sqa,sq0,sqb,dx) call peakup(sqa,sq0,sqb,dx)
if(abs(dx).gt.1.0) return !No acceptable minimum: do not subtract if(abs(dx).gt.1.0) return !No acceptable minimum: do not subtract
i2=nint(90.0*dx) + i1 !Best estimate of idt i2=nint(90.0*dx) !Best estimate of idt
ldt=.false. ldt=.false.
sq0=sqf(i2) !Do the subtraction with idt=i2 sq0=sqf(i2) !Do the subtraction with idt=i2
else else