w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-06 11:55:15 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a bug in gen_ft8wave.f90 that failed to update pulse and ctab when sample rate changes.

Browse Source
This commit is contained in:
Joe Taylor 2021-10-28 11:47:00 -04:00
parent f51a7d4f7d
commit 5a0cb0f0a0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/ft8/gen_ft8wave.f90
View File

@ -9,11 +9,12 @@ subroutine gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
real pulse(23040) real pulse(23040)
real dphi(0:(nsym+2)*nsps-1) real dphi(0:(nsym+2)*nsps-1)
integer itone(nsym) integer itone(nsym)
data ibt0/0/ data fchk0/0.0/
save pulse,twopi,dt,hmod,ibt0,ctab save pulse,twopi,dt,hmod,fchk0,ctab
ibt=nint(10*bt) ibt=nint(10*bt)
if(ibt0.ne.ibt) then fchk=nsym+nsps+bt+fsample
if(fchk.ne.fchk0) then
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
dt=1.0/fsample dt=1.0/fsample
hmod=1.0 hmod=1.0
@ -22,11 +23,11 @@ subroutine gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
tt=(i-1.5*nsps)/real(nsps) tt=(i-1.5*nsps)/real(nsps)
pulse(i)=gfsk_pulse(bt,tt) pulse(i)=gfsk_pulse(bt,tt)
enddo enddo
ibt0=nint(10*bt)
do i=0,NTAB-1 do i=0,NTAB-1
phi=i*twopi/NTAB phi=i*twopi/NTAB
ctab(i)=cmplx(cos(phi),sin(phi)) ctab(i)=cmplx(cos(phi),sin(phi))
enddo enddo
fchk0=fchk
endif endif
! Compute the smoothed frequency waveform. ! Compute the smoothed frequency waveform.