From fa071324e5c584a7941bd2f3f4b84c44159fe6ce Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 6 Mar 2020 13:21:04 -0600
Subject: [PATCH] subtractft8: Delete unused variable, i1

---
 lib/ft8/subtractft8.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/subtractft8.f90 b/lib/ft8/subtractft8.f90
index ef2831795..1a374cc27 100644
--- a/lib/ft8/subtractft8.f90
+++ b/lib/ft8/subtractft8.f90
@@ -47,7 +47,7 @@ subroutine subtractft8(dd0,itone,f0,dt,lrefinedt)
      sq0=sqf(0)
      call peakup(sqa,sq0,sqb,dx)
      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.
      sq0=sqf(i2)                       !Do the subtraction with idt=i2
   else