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

Need to reallocate pulse() when nsps changes.

Browse Source
This commit is contained in:
K9AN 2020-06-19 16:49:26 -05:00
parent dff2b7e146
commit 28746dd0b6
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/fst280/gen_fst280wave.f90
View File

@ -9,9 +9,13 @@ subroutine gen_fst280wave(itone,nsym,nsps,nwave,fsample,hmod,f0, &
integer itone(nsym)
logical first
data first/.true./
save first,twopi,dt,tsym
data nsps0/-99/
save first,twopi,dt,tsym,nsps0
if(first) then
if(first.or.nsps.ne.nsps0) then
if(allocated(pulse)) then
deallocate(pulse)
endif
allocate(pulse(3*nsps*int(fsample)))
twopi=8.0*atan(1.0)
dt=1.0/fsample
@ -22,6 +26,7 @@ subroutine gen_fst280wave(itone,nsym,nsps,nwave,fsample,hmod,f0, &
pulse(i)=gfsk_pulse(2.0,tt)
enddo
first=.false.
nsps0=nsps
endif
! Compute the smoothed frequency waveform.
@ -38,7 +43,7 @@ subroutine gen_fst280wave(itone,nsym,nsps,nwave,fsample,hmod,f0, &
! Calculate and insert the audio waveform
phi=0.0
dphi = dphi + twopi*(f0-1.5*hmod/tsym)*dt !Shift frequency up by f0
wave=0.
if(icmplx.eq.0) wave=0.
if(icmplx.eq.1) cwave=0.
k=0
do j=0,(nsym+2)*nsps-1