mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
W3SZ patch: Initialize AP params and set npasses=2 before first call to q65_dec0().
This commit is contained in:
parent
9aa4786f11
commit
21f8303511
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user