More adjustments for adding AP decoding to Q65.

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

View File

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

View File

@ -29,7 +29,7 @@ module q65_decode
contains contains
subroutine decode(this,callback,iwave,nutc,ntrperiod,nsubmode,nfqso, & 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 ! Decodes Q65 signals
! Input: iwave Raw data, i*2 ! Input: iwave Raw data, i*2
@ -85,7 +85,6 @@ contains
df1=12000.0/nfft1 df1=12000.0/nfft1
this%callback => callback this%callback => callback
if(nutc.eq.-999) print*,lapdx,nfa,nfb,nfqso !Silence warning if(nutc.eq.-999) print*,lapdx,nfa,nfb,nfqso !Silence warning
b90=20.0 !8 to 25 is OK; not very critical
nFadingModel=1 nFadingModel=1
! AP control could be done differently, but this works well: ! AP control could be done differently, but this works well: