From a5cc419351907ec2dc666af549d131a2fb3f6100 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 20 Apr 2017 12:55:11 +0000
Subject: [PATCH] Correct a scaling error in the Watterson model.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7644 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fsk4hf/watterson.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/fsk4hf/watterson.f90 b/lib/fsk4hf/watterson.f90
index 4b6799cb2..f62139247 100644
--- a/lib/fsk4hf/watterson.f90
+++ b/lib/fsk4hf/watterson.f90
@@ -42,8 +42,8 @@ subroutine watterson(c,fs,delay,fspread)
      cs1=cs1/NZ
      cs2=cs2/NZ
   endif
-  
-  nshift=0.001*delay*12000.0
+
+  nshift=nint(0.001*delay*fs)
   c2=cshift(c,nshift)
   sq=0.
   do i=0,NZ-1