From f296e37630036c7a52dc02e31363f278b2f4d305 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Fri, 12 Apr 2019 18:54:33 -0500
Subject: [PATCH] Fix a bug that didn't show up when I compiled on the Mac.

---
 lib/ft8/gen_ft8wave.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/gen_ft8wave.f90 b/lib/ft8/gen_ft8wave.f90
index 9dc25812c..550011301 100644
--- a/lib/ft8/gen_ft8wave.f90
+++ b/lib/ft8/gen_ft8wave.f90
@@ -9,7 +9,7 @@ subroutine gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
   real pulse(23040)
   real dphi(0:(nsym+2)*nsps-1)
   integer itone(nsym)
-  data first/.true./,ibt0/0/
+  data ibt0/0/
   save pulse,twopi,dt,hmod,ibt0
 
   ibt=nint(10*bt)