From 2babc3c9c783b9035df14e2ba64da3c8238b1bc8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 12 Apr 2016 13:47:34 +0000
Subject: [PATCH] Need to accommodate cases where radio's filter cuts off
 steeply above 240 or below 4000 Hz.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6613 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/refspectrum.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/refspectrum.f90 b/lib/refspectrum.f90
index a3b356a7d..c186555fa 100644
--- a/lib/refspectrum.f90
+++ b/lib/refspectrum.f90
@@ -62,14 +62,16 @@ subroutine refspectrum(id2,brefspec,buseref,fname)
            endif
         enddo
 
+! Modify these if spectrum falls off steeply inside these stated bounds:
         ia=nint(240.0/df)
+        ib=nint(4000.0/df)
+
         fac=fac0
         do i=ia,1,-1
            fac=fac*fac0
            fil(i)=fac*fil(i)
         enddo
 
-        ib=nint(4000.0/df)
         fac=fac0
         do i=ib,NH
            fac=fac*fac0