From 96b411cdbb8b37c83350fed2dc1f22492bbd2ca1 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 29 Jun 2007 23:50:55 +0000
Subject: [PATCH] Moves fselect calculation from map65a to spec.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@446 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 map65.py   | 2 +-
 map65a.f90 | 1 -
 spec.f90   | 1 +
 3 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/map65.py b/map65.py
index d96667fcb..08784b0e6 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#-------------------------------------------------------------------- MAP65
+#------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/map65a.f90 b/map65a.f90
index 2a2b9ec59..c80ca8884 100644
--- a/map65a.f90
+++ b/map65a.f90
@@ -36,7 +36,6 @@ subroutine map65a(newdat)
   nutcdata=nutc
   open(23,file='CALL3.TXT',status='old')
 
-  fselect=mousefqso + 1.6
   df=96000.0/NFFT                    !df = 96000/NFFT = 2.930 Hz
   ftol=0.020                          !Frequency tolerance (kHz)
   nfilt=1
diff --git a/spec.f90 b/spec.f90
index fd3afccb7..50f5fc0ec 100644
--- a/spec.f90
+++ b/spec.f90
@@ -37,6 +37,7 @@ subroutine spec(brightness,contrast,ngain,nspeed,a,a2)
   nlines=322/nadd
   call zero(s,NFFT*NY)
   k=0
+  fselect=mousefqso + 1.6
   imid=nint(1000.0*(fselect-125.0+48.0)/df)
   ia=imid-374
   ib=ia+749