From 6a64390eb9a279bac0a0d42d876ee9bdc4377c43 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 27 Jan 2016 18:51:55 +0000
Subject: [PATCH] Correct the sample rate used in tweak1.f90

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

diff --git a/lib/tweak1.f90 b/lib/tweak1.f90
index 8442463da..572b26ff3 100644
--- a/lib/tweak1.f90
+++ b/lib/tweak1.f90
@@ -10,7 +10,7 @@ subroutine tweak1(ca,jz,f0,cb)
 
   if(twopi.eq.0.d0) twopi=8.d0*atan(1.d0)
   w=1.d0
-  dphi=twopi*f0/11025.d0
+  dphi=twopi*f0/12000.d0
   wstep=cmplx(cos(dphi),sin(dphi))
   do i=1,jz
      w=w*wstep