From 017629ac36bf4ca8a056e49b18a115a982defa1f Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 27 Jul 2018 10:43:58 -0400
Subject: [PATCH] Suppress any "QU1RK" decodes, they are necessarily bad.

---
 lib/ft8/ft8b_2.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/ft8/ft8b_2.f90 b/lib/ft8/ft8b_2.f90
index dbcb6ceee..6734454cb 100644
--- a/lib/ft8/ft8b_2.f90
+++ b/lib/ft8/ft8b_2.f90
@@ -322,6 +322,10 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,  &
      read(c77(72:74),'(b3)') n3
      read(c77(75:77),'(b3)') i3
      call unpack77(c77,msg37)
+     if(index(msg37,'QU1RK').gt.0) then
+        nbadcrc=1
+        cycle
+     endif
      call genft8_174_91(msg37,i3,n3,msgsent37,msgbits,itone)
      if(lsubtract) call subtractft8(dd0,itone,f1,xdt) 
      xsig=0.0