From d3f87935785d47bef1e4956f3b300d706445b451 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 4 May 2020 10:55:53 -0400
Subject: [PATCH] Better correction for very weak false decodes in ft8b.f90. 
 Revert an incorrect change in jt9.f90.

---
 lib/ft8/ft8b.f90 | 13 ++++++++-----
 lib/jt9.f90      |  3 +--
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index 68b06a645..1f77878ae 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -175,7 +175,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
   enddo
 ! hard sync sum - max is 21
   nsync=is1+is2+is3
-  if(nsync .le. 7) then ! bail out
+  if(nsync .le. 6) then ! bail out
     nbadcrc=1
     return
   endif
@@ -451,10 +451,13 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
      xsnr2=10.0*log10(xsnr2)-27.0
      if(.not.nagain) then
        xsnr=xsnr2
-     endif
-     if(xsnr .lt. -24.0) xsnr=-24.0
-     
-     return
+    endif
+    if(nsync.le.7 .and. xsnr.lt.-24.0) then    !bail out, likely false decode
+       nbadcrc=1
+       return
+    endif
+    if(xsnr .lt. -24.0) xsnr=-24.0
+    return
   enddo
   return
 end subroutine ft8b
diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 5d657bbe2..7656f51e2 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -316,10 +316,9 @@ program jt9
         id2a(nearly*3456+1:)=0
         call multimode_decoder(shared_data%ss,id2a,      &
              shared_data%params,nfsample)
-        nearly=50
         id2a(nearly*3456+1:50*3456)=shared_data%id2(nearly*3456+1:50*3456)
         id2a(50*3456+1:)=0
-        shared_data%params%nzhsym=nearly
+        shared_data%params%nzhsym=50
         call multimode_decoder(shared_data%ss,id2a,      &
              shared_data%params,nfsample)
         cycle