From 858cd4e483318db1ff6dcbc6fbb57f257558800b Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 24 May 2021 12:03:27 -0400
Subject: [PATCH] Set tight limits around ipk for the wideband Q65 decode.

---
 map65/libm65/q65b.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index 1e5f3e9d8..72afb6208 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -118,9 +118,9 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
   close(30)
 
   nsubmode=mode_q65-1
-  nfa=100
-  nfb=1900
-  if(nagain.eq.1) then
+  nfa=990                   !Tight limits around ipk for the wideband decode
+  nfb=1010
+  if(nagain.eq.1) then      !For nagain=1, use limits of +/- ntol
      nfa=max(100,1000-ntol)
      nfb=min(2500,1000+ntol)
   endif