From e2978abcf5d74a9332c24c79f4e41cc6586501f0 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 29 Oct 2020 10:33:54 -0400 Subject: [PATCH] Pass ncontest and lapcqonly to the Q65 decoder. --- lib/decoder.f90 | 2 +- lib/q65_decode.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 911352277..4c3b58c84 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -203,7 +203,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample) 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) + mycall,hiscall,hisgrid,ncontest,logical(params%lapcqonly)) call timer('dec_q65 ',1) go to 800 endif diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index ec96ad4ec..bcd280b71 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -29,7 +29,7 @@ module q65_decode contains subroutine decode(this,callback,iwave,nutc,ntrperiod,nsubmode,nfqso, & - ntol,ndepth,mycall,hiscall,hisgrid) + ntol,ndepth,mycall,hiscall,hisgrid,ncontest,lapcqonly) ! Decodes Q65 signals ! Input: iwave Raw data, i*2 @@ -54,7 +54,7 @@ contains integer*2 iwave(NMAX) !Raw data real, allocatable :: dd(:) !Raw data 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 :: c0(:) !Analytic signal, 6000 Sa/s data nc1z/-1/,nc2z/-1/,ng2z/-1/,maxaptypez/-1/,nsubmodez/-1/