w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 20:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make Watterson simulator causal.

Browse Source
This commit is contained in:
Steve Franke 2019-01-25 16:26:13 -06:00
parent 9fa08d3838
commit c52f755afc
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

@ -47,7 +47,7 @@ subroutine watterson(c,npts,nsig,fs,delay,fspread)
nshift=nint(0.001*delay*fs) nshift=nint(0.001*delay*fs)
if(delay.gt.0.0) then if(delay.gt.0.0) then
c2(0:npts-1)=cshift(c(0:npts-1),nshift) c2(0:npts-1)=cshift(c(0:npts-1),-nshift) !negative shifts are right shifts
else else
c2(0:npts-1)=0.0 c2(0:npts-1)=0.0
endif endif