Avoid zeroing cwave when it is not going to be used.

This commit is contained in:
Steve Franke 2019-04-20 09:37:36 -05:00
parent cf2219173a
commit 561af7f411

View File

@ -35,7 +35,7 @@ subroutine gen_ft4wave(itone,nsym,nsps,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.eq.1) cwave=0.
k=0
do j=0,nwave-1
k=k+1