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

q65sim: nonzero step size ==> Doppler tracking; otherwise, linear drift.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-05 10:42:19 -05:00
parent b8bd745816
commit f82356e199
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/qra/q65/q65sim.f90
View File

@ -22,7 +22,10 @@ program q65sim
if(nargs.ne.10) then
print*,'Usage: q65sim "msg" A-E freq fDop DT f1 Stp TRp Nfile SNR'
print*,'Example: q65sim "K1ABC W9XYZ EN37" A 1500 0.0 0.0 0.0 1 60 1 -26'
print*,' fDop: Doppler spread; f1: drift rate (Hz/min); Stp: step size (Hz)'
print*,' fDop = Doppler spread'
print*,' f1 = Drift or Doppler rate (Hz/min)'
print*,' Stp = Step size (Hz)'
print*,' Stp = 0 implies no Doppler tracking'
go to 999
endif
call getarg(1,msg)
@ -125,9 +128,9 @@ program q65sim
isym=i/nsps + 1
if(isym.gt.nsym) exit
if(isym.ne.isym0) then
freq = f0 + f1*i*dt/60.0
if(nstp.ne.0) freq=nstp*nint(freq/nstp)
freq=freq + itone(isym)*baud*mode65
freq_drift=f1*i*dt/60.0
if(nstp.ne.0) freq_drift=freq_drift - nstp*nint(freq_drift/nstp)
freq = f0 + freq_drift + itone(isym)*baud*mode65
dphi=twopi*freq*dt
isym0=isym
endif