w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 05:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Pass ncontest and lapcqonly to the Q65 decoder.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-29 10:33:54 -04:00
parent 7786101dcf
commit e2978abcf5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/decoder.f90
View File

@ -203,7 +203,7 @@ 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) mycall,hiscall,hisgrid,ncontest,logical(params%lapcqonly))
call timer('dec_q65 ',1) call timer('dec_q65 ',1)
go to 800 go to 800
endif endif

4
lib/q65_decode.f90
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) ntol,ndepth,mycall,hiscall,hisgrid,ncontest,lapcqonly)
! Decodes Q65 signals ! Decodes Q65 signals
! Input: iwave Raw data, i*2 ! Input: iwave Raw data, i*2
@ -54,7 +54,7 @@ contains
integer*2 iwave(NMAX) !Raw data integer*2 iwave(NMAX) !Raw data
real, allocatable :: dd(:) !Raw data real, allocatable :: dd(:) !Raw data
integer dat4(13) !Decoded message as 12 6-bit integers integer dat4(13) !Decoded message as 12 6-bit integers
logical unpk77_success logical lapcqonly,unpk77_success
complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s
complex, allocatable :: c0(:) !Analytic signal, 6000 Sa/s complex, allocatable :: c0(:) !Analytic signal, 6000 Sa/s
data nc1z/-1/,nc2z/-1/,ng2z/-1/,maxaptypez/-1/,nsubmodez/-1/ data nc1z/-1/,nc2z/-1/,ng2z/-1/,maxaptypez/-1/,nsubmodez/-1/