w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 13:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct the definition of fspread in watterson.f90.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-14 16:30:37 -05:00
parent ce7d5b8d02
commit f21f37ad05
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 do i=0,npts-1
f=i*df f=i*df
if(i.gt.npts/2) f=(i-npts)*df if(i.gt.npts/2) f=(i-npts)*df
x=(f/(0.5*fspread))**2 x=(f/(0.707*fspread))**2
a=0. a=0.
if(x.le.50.0) then if(x.le.50.0) then
a=exp(-x) a=exp(-x)