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

W3SZ patch: Initialize AP params and set npasses=2 before first call to q65_dec0().

Browse Source
This commit is contained in:
Joe Taylor 2021-11-09 11:00:55 -05:00
parent 9aa4786f11
commit 21f8303511
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/q65_decode.f90
View File

@ -156,6 +156,13 @@ contains
call q65_enc(dgen,codewords) !Initialize the Q65 codec call q65_enc(dgen,codewords) !Initialize the Q65 codec
nused=1 nused=1
iavg=0 iavg=0
! W3SZ patch: Initialize AP params here, rather than afer the call to ana64().
call ft8apset(mycall,hiscall,ncontest,apsym0,aph10) ! Generate ap symbols
where(apsym0.eq.-1) apsym0=0
npasses=2
if(nQSOprogress.eq.5) npasses=3
call timer('q65_dec0',0) call timer('q65_dec0',0)
! Call top-level routine in q65 module: establish sync and try for a ! Call top-level routine in q65 module: establish sync and try for a
! q3 or q0 decode. ! q3 or q0 decode.
@ -176,11 +183,6 @@ contains
if(ntrperiod.le.30) jpk0=(xdt+0.5)*6000 !For shortest sequences if(ntrperiod.le.30) jpk0=(xdt+0.5)*6000 !For shortest sequences
if(jpk0.lt.0) jpk0=0 if(jpk0.lt.0) jpk0=0
call ana64(iwave,npts,c00) !Convert to complex c00() at 6000 Sa/s call ana64(iwave,npts,c00) !Convert to complex c00() at 6000 Sa/s
call ft8apset(mycall,hiscall,ncontest,apsym0,aph10) ! Generate ap symbols
where(apsym0.eq.-1) apsym0=0
npasses=2
if(nQSOprogress.eq.5) npasses=3
if(lapcqonly) npasses=1 if(lapcqonly) npasses=1
iaptype=0 iaptype=0
do ipass=0,npasses !Loop over AP passes do ipass=0,npasses !Loop over AP passes