w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-25 05:29:16 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make watterson.f90 spreading function the same as that used in ITU report ITU-R F.1487.

Browse Source
This commit is contained in:
Steven Franke 2024-02-19 13:21:03 -06:00
parent ec0c31d849
commit 7ce6e29a7e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/watterson.f90
View File

@ -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)