From 74789783059ae71beaebb43298bd1ca6b5894251 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Tue, 16 Jun 2020 11:09:46 -0500
Subject: [PATCH] FT8: make sure that nbadcrc is initialized to true before
 each decoding attempt.

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

diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index f4dd60183..d96cbd9c7 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -95,7 +95,6 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
 
   max_iterations=30
   nharderrors=-1
-  nbadcrc=1  ! this is used upstream to flag good decodes. 
   fs2=12000.0/NDOWN
   dt2=1.0/fs2
   twopi=8.0*atan(1.0)
@@ -417,6 +416,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
      call timer('dec174_91 ',1)
 
      msg37='                                     '
+     nbadcrc=1
      if(nharderrors.lt.0 .or. nharderrors.gt.36) cycle
      if(count(cw.eq.0).eq.174) cycle           !Reject the all-zero codeword
      write(c77,'(77i1)') message77