w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-24 04:58:46 -04:00
Code Issues Packages Projects Releases Wiki Activity

More adjustments for adding AP decoding to Q65.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-29 10:53:30 -04:00
parent e2978abcf5
commit 1c30b97228
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/decoder.f90
View File

@ -202,8 +202,9 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
! We're in Q65 mode
call timer('dec_q65 ',0)
call my_q65%decode(q65_decoded,id2,params%nutc,params%ntr, &
params%nsubmode,params%nfqso,params%ntol,params%ndepth, &
mycall,hiscall,hisgrid,ncontest,logical(params%lapcqonly))
params%nsubmode,params%nfqso,params%ntol,params%ndepth, &
mycall,hiscall,hisgrid,params%nQSOProgress,ncontest, &
logical(params%lapcqonly))
call timer('dec_q65 ',1)
go to 800
endif

5
lib/q65_decode.f90
View File

@ -29,7 +29,7 @@ module q65_decode
contains
subroutine decode(this,callback,iwave,nutc,ntrperiod,nsubmode,nfqso, &
ntol,ndepth,mycall,hiscall,hisgrid,ncontest,lapcqonly)
ntol,ndepth,mycall,hiscall,hisgrid,nQSOprogress,ncontest,lapcqonly)
! Decodes Q65 signals
! Input: iwave Raw data, i*2
@ -83,9 +83,8 @@ contains
npts=ntrperiod*12000
baud=12000.0/nsps
df1=12000.0/nfft1
this%callback => callback
this%callback => callback
if(nutc.eq.-999) print*,lapdx,nfa,nfb,nfqso !Silence warning
b90=20.0 !8 to 25 is OK; not very critical
nFadingModel=1
! AP control could be done differently, but this works well: