From 6414a8624bcdded78af22a7945a383ca4c8524be Mon Sep 17 00:00:00 2001
From: k9an <s.j.franke@icloud.com>
Date: Sat, 26 Mar 2022 18:44:59 -0500
Subject: [PATCH] Make minimum SNR -24 dB for a7 decodes.

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

diff --git a/lib/ft8/ft8_a7.f90 b/lib/ft8/ft8_a7.f90
index 7306c8021..d32c96348 100644
--- a/lib/ft8/ft8_a7.f90
+++ b/lib/ft8/ft8_a7.f90
@@ -364,7 +364,7 @@ subroutine ft8_a7d(dd0,newdat,call_1,call_2,grid4,xdt,f1,xbase,nharderrors,dmin,
   dmin2=dmm(iloc(1))
   xsnr=-24.
   arg=pbest/xbase/3.0e6-1.0
-  if(arg.gt.0.0) xsnr=db(arg)-27.0
+  if(arg.gt.0.0) xsnr=max(-24.0,db(arg)-27.0)
 !  write(41,3041) nharderrors,dmin,dmin2,dmin2/dmin,xsnr,trim(msgbest)
 !3041 format(i3,2f7.1,f7.2,f7.1,1x,a)
   if(dmin.gt.100.0 .or. dmin2/dmin.lt.1.3) nharderrors=-1