Make Watterson simulator causal.

2019-01-25 16:26:13 -06:00 · 2019-01-25 16:26:13 -06:00 · c52f755afc
parent 9fa08d3838
commit c52f755afc
1 changed files with 1 additions and 1 deletions
--- a/lib/ft8/watterson.f90
+++ b/lib/ft8/watterson.f90
@ -47,7 +47,7 @@ subroutine watterson(c,npts,nsig,fs,delay,fspread)

  nshift=nint(0.001*delay*fs)
  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
     c2(0:npts-1)=0.0
  endif