From c248d5095a4a96fdf94a54f8c98d109381bb9096 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Sat, 13 May 2017 19:34:47 +0000
Subject: [PATCH] Limit the Rx freq range to 1600-1650 Hz for WSPR-LF.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fsk4hf/getfc1w.f90 | 7 ++++---
 lib/fsk4hf/wspr5d.f90  | 6 ++++--
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/lib/fsk4hf/getfc1w.f90 b/lib/fsk4hf/getfc1w.f90
index a368420b2..878422fec 100644
--- a/lib/fsk4hf/getfc1w.f90
+++ b/lib/fsk4hf/getfc1w.f90
@@ -1,4 +1,4 @@
-subroutine getfc1w(c,fs,fc1,xsnr)
+subroutine getfc1w(c,fs,fa,fb,fc1,xsnr)
 
   include 'wsprlf_params.f90'
 
@@ -25,8 +25,9 @@ subroutine getfc1w(c,fs,fc1,xsnr)
   smax=0.
   ipk=0
   fc1=0.
-  ia=nint(190.0/df1)
-  do i=-ia,ia
+  ia=nint(fa/df1)
+  ib=nint(fb/df1)
+  do i=ia,ib
      f=i*df1
      if(s(i).gt.smax) then
         smax=s(i)
diff --git a/lib/fsk4hf/wspr5d.f90 b/lib/fsk4hf/wspr5d.f90
index f3efd98b8..59614ac71 100644
--- a/lib/fsk4hf/wspr5d.f90
+++ b/lib/fsk4hf/wspr5d.f90
@@ -62,7 +62,7 @@ program wspr5d
   
   open(13,file=trim(data_dir)//'/ALL_WSPR.TXT',status='unknown',   &
        position='append')
-  maxn=6                                 !Default value
+  maxn=8                                 !Default value
   twopi=8.0*atan(1.0)
   fs=NSPS*12000.0/NSPS0                  !Sample rate
   dt=1.0/fs                              !Sample interval (s)
@@ -120,7 +120,9 @@ program wspr5d
         go to 999
      endif
      close(10)
-     call getfc1w(c,fs,fc1,xsnr)               !First approx for freq
+     fa=100.0
+     fb=150.0
+     call getfc1w(c,fs,fa,fb,fc1,xsnr)         !First approx for freq
      call getfc2w(c,csync,fs,fc1,fc2,fc3)      !Refined freq
 
 !NB: Measured performance is about equally good using fc2 or fc3 here: