From 0224e76c44208549b82ff879ccb88fa40fdd90f8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 15 Mar 2016 14:28:07 +0000
Subject: [PATCH] Change the definition of "d" so that width of generated tones
 is equal to the requested Doppler spread.  Previously they were wider by the
 factor 2*sqrt(log(2)).

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

diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90
index af8edb298..d94695253 100644
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@@ -200,9 +200,14 @@ program jt65sim
         cspread(0)=1.0
         cspread(NH)=0.
 
+! The following statement was added 3/15/2016 to make the half-power tone 
+! widths equal to the requested Doppler spread.  (Previously we effectively 
+! used b=1.0, which made the tones 1.665 times wider.)
+        b=2.0*sqrt(log(2.0))
+
         do i=1,NH
            f=i*df
-           x=f/fspread
+           x=b*f/fspread
            z=0.
            a=0.
            if(x.lt.50.0) then