w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Steve Franke 2019-04-20 09:37:36 -05:00
parent cf2219173a
commit 561af7f411
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft4/gen_ft4wave.f90
View File

@ -35,7 +35,7 @@ subroutine gen_ft4wave(itone,nsym,nsps,fsample,f0,cwave,wave,icmplx,nwave)
phi=0.0 phi=0.0
dphi = dphi + twopi*f0*dt !Shift frequency up by f0 dphi = dphi + twopi*f0*dt !Shift frequency up by f0
wave=0. wave=0.
cwave=0. if(icmplx.eq.1) cwave=0.
k=0 k=0
do j=0,nwave-1 do j=0,nwave-1
k=k+1 k=k+1