w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Squash a SEGV

This commit is contained in:
Bill Somerville 2019-04-20 01:14:23 +01:00
parent 64bd55910a
commit cf2219173a
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/ft8/gen_ft8wave.f90
View File

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