From 77f05e9e1027f4e93a92096e80a66612e96cedda Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Wed, 10 Jun 2020 08:22:14 -0500
Subject: [PATCH] In gen_ft8wave, make sure that wave() is not referenced
 unless icmplx=0.

---
 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 02e7fdbd0..9e2773758 100644
--- a/lib/ft8/gen_ft8wave.f90
+++ b/lib/ft8/gen_ft8wave.f90
@@ -45,7 +45,7 @@ subroutine gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
 ! Calculate and insert the audio waveform
   phi=0.0
   dphi = dphi + twopi*f0*dt                      !Shift frequency up by f0
-  wave=0.
+  if(icmplx .eq. 0) wave=0.
   if(icmplx .ne. 0) cwave=0. !Avoid writing to memory we may not have access to
 
   call timer('gen_loop',0)