From cf2219173a1a1d77e039212581978e9168daa084 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Sat, 20 Apr 2019 01:14:23 +0100
Subject: [PATCH] Squash a SEGV

---
 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 37f3b0cbe..10edc994e 100644
--- a/lib/ft8/gen_ft8wave.f90
+++ b/lib/ft8/gen_ft8wave.f90
@@ -42,7 +42,7 @@ subroutine gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
   phi=0.0
   dphi = dphi + twopi*f0*dt                          !Shift frequency up by f0
   wave=0.
-  cwave=0.
+  if (icmplx .ne. 0) cwave=0. ! avoid writing to memory we may not have access to
   k=0
   do j=nsps,nsps+nwave-1                             !Don't include dummy symbols
      k=k+1