From 8f1baae04840a0a103db27f941511335bc53ec78 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Sun, 13 Jan 2019 09:25:30 -0600
Subject: [PATCH] If delay=0.0 make Watterson use only a single component to
 simulate flat fading.

---
 lib/ft8/watterson.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/ft8/watterson.f90 b/lib/ft8/watterson.f90
index a1131d7b1..fc3dca113 100644
--- a/lib/ft8/watterson.f90
+++ b/lib/ft8/watterson.f90
@@ -46,7 +46,11 @@ subroutine watterson(c,npts,nsig,fs,delay,fspread)
   endif
 
   nshift=nint(0.001*delay*fs)
-  c2(0:npts-1)=cshift(c(0:npts-1),nshift)
+  if(delay.gt.0.0) then
+     c2(0:npts-1)=cshift(c(0:npts-1),nshift)
+  else
+     c2(0:npts-1)=0.0
+  endif
   sq=0.
   do i=0,npts-1
      if(nonzero.gt.1) then