From 92957269311f859db6f5bd524662f473bd51e12d Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Tue, 3 Jul 2018 11:24:42 -0500
Subject: [PATCH] Fix the sign of i3 when trying to subtract a type message.

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

diff --git a/lib/ft8/ft8b_1.f90 b/lib/ft8/ft8b_1.f90
index d2ed64dda..a9ac4b0f9 100644
--- a/lib/ft8/ft8b_1.f90
+++ b/lib/ft8/ft8b_1.f90
@@ -381,7 +381,7 @@ subroutine ft8b_1(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
         call extractmessage174(decoded,message,ncrcflag)
         decoded=decoded0
 ! This needs fixing for messages with i3bit=1:  
-        i3=1  !TEMPORARY  
+        i3=-1  !TEMPORARY  
         n3=0    
         call genft8(message,mygrid6,bcontest,i3,0,msgsent,msgbits,itone)
         if(lsubtract) call subtractft8(dd0,itone,f1,xdt2)