From 7ce6e29a7ebe60b8ad212f0fdefbe15a7b7049e8 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Mon, 19 Feb 2024 13:21:03 -0600
Subject: [PATCH] Make watterson.f90 spreading function the same as that used
 in ITU report ITU-R F.1487.

---
 lib/ft8/watterson.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/watterson.f90 b/lib/ft8/watterson.f90
index 38637f9c9..6fd0edf83 100644
--- a/lib/ft8/watterson.f90
+++ b/lib/ft8/watterson.f90
@@ -24,7 +24,7 @@ subroutine watterson(c,npts,nsig,fs,delay,fspread)
      do i=0,npts-1
         f=i*df
         if(i.gt.npts/2) f=(i-npts)*df
-        x=(f/(0.707*fspread))**2
+        x=(f/fspread)**2
         a=0.
         if(x.le.50.0) then
            a=exp(-x)