In gen_ft8wave, make sure that wave() is not referenced unless icmplx=0.

This commit is contained in:
Steven Franke 2020-06-10 08:22:14 -05:00 committed by Bill Somerville
parent abd7739573
commit 77f05e9e10
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

View File

@ -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)