w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-02 22:22:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

Enable mode QRA66B in qra66sim.

Browse Source
This commit is contained in:
Joe Taylor 2020-07-31 11:16:03 -04:00
parent 09686b9958
commit 77b7e71424
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/qra/qra66/qra66sim.f90
View File

@ -42,8 +42,12 @@ program qra66sim
twopi=8.d0*atan(1.d0) twopi=8.d0*atan(1.d0)
npts=NMAX !Total samples in .wav file npts=NMAX !Total samples in .wav file
nsps=1920 nsps=1920
baud=12000.d0/nsps !Keying rate = 6.25 baud
nsym=85 !Number of channel symbols nsym=85 !Number of channel symbols
if(csubmode.eq.'B') then
nsps=960
nsym=169
endif
baud=12000.d0/nsps !Keying rate = 6.25 baud
h=default_header(12000,npts) h=default_header(12000,npts)
ichk=66 !Flag sent to genqra64 ichk=66 !Flag sent to genqra64
@ -76,8 +80,9 @@ program qra66sim
do i=1,npts !Add this signal into cdat() do i=1,npts !Add this signal into cdat()
isym=i/nsps + 1 isym=i/nsps + 1
if(isym.gt.nsym) exit if(isym.gt.nsym) exit
if(csubmode.eq.'B' .and. isym.gt.84) isym=isym-84
if(isym.ne.isym0) then if(isym.ne.isym0) then
freq=f0 + itone(isym)*baud*mode66 freq=f0 + itone(isym)*baud
dphi=twopi*freq*dt dphi=twopi*freq*dt
isym0=isym isym0=isym
endif endif