From 5dc70b18db152f6ed227d2af2eb1d3b2ae11bd5c Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 15 Feb 2022 16:28:19 -0500
Subject: [PATCH] Reject a7 decodes of the form "CQ <std_call>" with no grid.

---
 lib/ft8/ft8_a7.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/ft8/ft8_a7.f90 b/lib/ft8/ft8_a7.f90
index d02c77fbf..51e73d7b9 100644
--- a/lib/ft8/ft8_a7.f90
+++ b/lib/ft8/ft8_a7.f90
@@ -369,6 +369,7 @@ subroutine ft8_a7d(dd0,newdat,call_1,call_2,grid4,xdt,f1,nharderrors,dmin,  &
 !3041 format(i3,2f7.1,f7.2,f7.1,1x,a)
   if(dmin.gt.100.0 .or. dmin2/dmin.lt.1.3) nharderrors=-1
   msg37=msgbest
+  if(msg37(1:3).eq.'CQ ' .and. std_2 .and. grid4.eq.'    ') nharderrors=-1
 
   return
 end subroutine ft8_a7d