From 6117fb237f6f28cec397b765f2884e17785ab35a Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Sun, 27 Jan 2019 16:04:34 +0100
Subject: [PATCH] filter out <...> callsigns

---
 ft8d.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ft8d.f90 b/ft8d.f90
index 28df6be..1628181 100644
--- a/ft8d.f90
+++ b/ft8d.f90
@@ -71,7 +71,7 @@ program ft8d
         nsnr=nint(xsnr)
         xdt=xdt-0.5
         hd=nharderrors+dmin
-        if(nbadcrc.eq.0) then
+        if(nbadcrc.eq.0.and.msgcall(1:1).ne.'<') then
           ldupe=.false.
           do id=1,ndecodes
             if(msg37.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.