mirror of https://github.com/saitohirga/WSJT-X.git
Make Watterson simulator causal.
This commit is contained in:
parent
9fa08d3838
commit
c52f755afc
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue