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

If delay=0.0 make Watterson use only a single component to simulate flat fading.

Browse Source
This commit is contained in:
Steve Franke 2019-01-13 09:25:30 -06:00
parent cf1fe6c3d6
commit 8f1baae048
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8/watterson.f90
View File

@ -46,7 +46,11 @@ subroutine watterson(c,npts,nsig,fs,delay,fspread)
endif endif
nshift=nint(0.001*delay*fs) 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)
else
c2(0:npts-1)=0.0
endif
sq=0. sq=0.
do i=0,npts-1 do i=0,npts-1
if(nonzero.gt.1) then if(nonzero.gt.1) then