From f224790569cabec8479ed0d2e49052b0fa7110ac Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Fri, 12 Jul 2019 10:41:09 -0500
Subject: [PATCH] Tweak for consistency.

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

diff --git a/lib/ft8/subtractft8.f90 b/lib/ft8/subtractft8.f90
index 200139a2b..ec0beea9a 100644
--- a/lib/ft8/subtractft8.f90
+++ b/lib/ft8/subtractft8.f90
@@ -20,12 +20,11 @@ subroutine subtractft8(dd,itone,f0,dt)
   save first
 
   nstart=dt*12000+1
-!  call genft8refsig(itone,cref,f0)
   nsym=79
   nsps=1920
   fs=12000.0
   icmplx=1
-  bt=4.0      ! Temporary compromise?
+  bt=2.0 
   call gen_ft8wave(itone,nsym,nsps,bt,fs,f0,cref,xjunk,icmplx,NFRAME)
   camp=0.
   do i=1,nframe