w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 21:40:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Correct a flaw in ft8sim when generating data with large abs(DT).

Browse Source
This commit is contained in:
Joe Taylor 2019-06-17 11:26:46 -04:00
parent c26d0b4f29
commit 396bf1a013
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8/ft8sim.f90
View File

@ -91,7 +91,7 @@ program ft8sim
msg0=msg msg0=msg
do ifile=1,nfiles do ifile=1,nfiles
k=nint((xdt+0.5)/dt) k=nint((xdt+0.5)/dt)
ia=k ia=max(1,k)
phi=0.0 phi=0.0
c0=0.0 c0=0.0
do j=1,NN !Generate complex waveform do j=1,NN !Generate complex waveform
@ -105,7 +105,7 @@ program ft8sim
if(fspread.ne.0.0 .or. delay.ne.0.0) call watterson(c0,NMAX,NWAVE,fs,delay,fspread) if(fspread.ne.0.0 .or. delay.ne.0.0) call watterson(c0,NMAX,NWAVE,fs,delay,fspread)
c=sig*c0 c=sig*c0
ib=k ib=min(k,NMAX)
wave=real(c) wave=real(c)
peak=maxval(abs(wave(ia:ib))) peak=maxval(abs(wave(ia:ib)))
nslots=1 nslots=1