From e857cb9d051366f457bb0b2ef7d9c8abfed2eec8 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 20 Sep 2018 18:33:57 -0500
Subject: [PATCH] Suppress any decode with a CQ accompanied by a hashed
 callsign.

---
 lib/77bit/packjt77.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 7204f668b..3cda77d9e 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -456,6 +456,7 @@ subroutine unpack77(c77,msg,unpk77_success)
         msg='CQ '//trim(call_2)
      endif
   endif
+  if(msg(1:4).eq.'CQ <') unpk77_success=.false.
 
   return
 end subroutine unpack77