From 669d54197d4fb60eb6a32cc1d743a250b3784503 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Mon, 24 Sep 2018 19:36:30 -0500
Subject: [PATCH] Polynomial-fit SNR is still not right. Disable it again, for
 now.

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

diff --git a/lib/ft8/ft8b_2.f90 b/lib/ft8/ft8b_2.f90
index 539c8e8da..64be91693 100644
--- a/lib/ft8/ft8b_2.f90
+++ b/lib/ft8/ft8b_2.f90
@@ -312,7 +312,6 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,  &
      endif
 
      msg37='                                     '
-     xsnr=-99.0
      if(nharderrors.lt.0 .or. nharderrors.gt.36) cycle
      if(count(cw.eq.0).eq.174) cycle           !Reject the all-zero codeword
      write(c77,'(77i1)') message77
@@ -337,11 +336,11 @@ 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
+!     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
      if(xsnr .lt. -24.0) xsnr=-24.0