From 7dc0298b18591859d255297afd70a2180efd38d1 Mon Sep 17 00:00:00 2001
From: Jordan Sherer <jordan@widefido.com>
Date: Wed, 11 Dec 2019 16:56:43 -0500
Subject: [PATCH] I believe SNR should be the min between xbase and
 xnoi...let's try

---
 lib/ft8/ft8b.f90   | 2 +-
 lib/js8/js8dec.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index 30f1def..8bd8659 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -397,7 +397,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
         if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0
         xsnr=10.0*log10(xsnr)-27.0
         xsnr2=db(xsig/xbase - 1.0) - 32.0
-        if(.not.nagain) xsnr=xsnr2
+        if(.not.nagain) xsnr=min(xsnr, xsnr2)
         if(xsnr .lt. -24.0) xsnr=-24.0
 
         msg37=origmsg//'               '
diff --git a/lib/js8/js8dec.f90 b/lib/js8/js8dec.f90
index 510216e..3370767 100644
--- a/lib/js8/js8dec.f90
+++ b/lib/js8/js8dec.f90
@@ -476,7 +476,7 @@ subroutine js8dec(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
         if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0
         xsnr=10.0*log10(xsnr)-27.0
         xsnr2=db(xsig/xbase - 1.0) - 32.0
-        if(.not.nagain) xsnr=xsnr2
+        if(.not.nagain) xsnr=min(xsnr, xsnr2)
         if(xsnr .lt. -28.0) xsnr=-28.0
 
         msg37=origmsg//'               '