From f21f37ad05761bca9182bac513381e13702d12c9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 14 Feb 2024 16:30:37 -0500
Subject: [PATCH] Correct the definition of fspread in watterson.f90.

---
 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 7c3aa35d3..38637f9c9 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.5*fspread))**2
+        x=(f/(0.707*fspread))**2
         a=0.
         if(x.le.50.0) then
            a=exp(-x)