From d9c99601aeb7ca418cf15dfd63ffa9bbe0b54aef Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 21 Feb 2019 15:56:21 -0600
Subject: [PATCH] Fix bugs in gen_ft8wave.f90.

---
 lib/ft8/gen_ft8wave.f90 | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/lib/ft8/gen_ft8wave.f90 b/lib/ft8/gen_ft8wave.f90
index 609cb2000..13abd0b3f 100644
--- a/lib/ft8/gen_ft8wave.f90
+++ b/lib/ft8/gen_ft8wave.f90
@@ -7,16 +7,12 @@ subroutine gen_ft8wave(itone,nsym,nsps,fsample,f0,cwave,nwave)
   real wave(nwave)
   complex cwave(nwave)
   real pulse(5760)
-  real dphi(0:(nsym+2)*nint(fsample)-1)
+  real dphi(0:(nsym+2)*nsps-1)
   integer itone(nsym)
   logical first
   data first/.true./
   save pulse,first,twopi,dt,hmod
 
-  if(nsave .gt. MAX_SECONDS*nint(fsample)) then
-    print*,"gen_ft8wave: ERROR - waveform length too large."
-  endif
-
   if(first) then
      twopi=8.0*atan(1.0)
      dt=1.0/fsample