From 396bf1a0132dc8c2585a029c1a0cef1bb80e2636 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 17 Jun 2019 11:26:46 -0400
Subject: [PATCH] Correct a flaw in ft8sim when generating data with large
 abs(DT).

---
 lib/ft8/ft8sim.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ft8/ft8sim.f90 b/lib/ft8/ft8sim.f90
index bbec600d4..c5dd82bb7 100644
--- a/lib/ft8/ft8sim.f90
+++ b/lib/ft8/ft8sim.f90
@@ -91,7 +91,7 @@ program ft8sim
   msg0=msg
   do ifile=1,nfiles
      k=nint((xdt+0.5)/dt)
-     ia=k
+     ia=max(1,k)
      phi=0.0 
      c0=0.0
      do j=1,NN                             !Generate complex waveform
@@ -105,7 +105,7 @@ program ft8sim
      if(fspread.ne.0.0 .or. delay.ne.0.0) call watterson(c0,NMAX,NWAVE,fs,delay,fspread)
      c=sig*c0
   
-     ib=k
+     ib=min(k,NMAX)
      wave=real(c)
      peak=maxval(abs(wave(ia:ib)))
      nslots=1