From 591de66a3130cd5f0c6942c4ba9b79322c9079d5 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Mon, 24 Sep 2018 19:04:34 -0500
Subject: [PATCH] Fix up SNR calculation so that it reverts to SJF SNR when
 polyfit SNR is not sane.

---
 lib/ft8/ft8b_2.f90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/ft8/ft8b_2.f90 b/lib/ft8/ft8b_2.f90
index 3bfee314f..539c8e8da 100644
--- a/lib/ft8/ft8b_2.f90
+++ b/lib/ft8/ft8b_2.f90
@@ -337,12 +337,12 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,  &
      enddo
      xsnr=0.001
      if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0
+     if(.not.nagain) then
+        xbase=10**(xbase/10.0)
+        arg=xsig/xbase/3.6e6-1.0
+        if(arg.gt.0.1) xsnr=arg
+     endif
      xsnr=10.0*log10(xsnr)-27.0
-     xbase=10**(xbase/10.0)
-!    factor=xnoi/xbase
-     factor=3.6e6
-     xsnr2=10*log10(xsig/xbase/factor-1.0)-27.0
-!     if(.not.nagain) xsnr=xsnr2
      if(xsnr .lt. -24.0) xsnr=-24.0
      
      return