From 32a3a75bb55de7f5580b315769699009f32ffd18 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 2 Nov 2021 11:08:44 -0400 Subject: [PATCH] Revert "Add 'TNX 73 GL' to the list of possible messages for q3 decodes." This reverts commit 8f2dc74b5254b9fb1f3ff139f095e31b41c79e31. --- lib/qra/q65/q65.f90 | 2 +- lib/qra/q65/q65_set_list.f90 | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 0d9d09d16..349e38c91 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -9,7 +9,7 @@ module q65 integer apmask(13),apsymbols(13) integer,dimension(22) :: isync = (/1,9,12,13,15,22,23,26,27,33,35, & 38,46,50,55,60,62,66,69,74,76,85/) - integer codewords(63,207) + integer codewords(63,206) integer ibwa,ibwb,ncw,nsps,mode_q65,nfa,nfb,nqd integer idfbest,idtbest,ibw,ndistbest,maxiters,max_drift integer istep,nsmo,lag1,lag2,npasses,nused,iseq,ncand,nrc diff --git a/lib/qra/q65/q65_set_list.f90 b/lib/qra/q65/q65_set_list.f90 index 2fe1269ee..22d501a5f 100644 --- a/lib/qra/q65/q65_set_list.f90 +++ b/lib/qra/q65/q65_set_list.f90 @@ -1,6 +1,6 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) - parameter (MAX_NCW=207) + parameter (MAX_NCW=206) character*12 mycall,hiscall character*6 hisgrid character*37 msg0,msg,msgsent @@ -44,7 +44,6 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) if(msg(j0+1:j0+1).eq.' ') msg(j0+1:j0+1)='+' endif endif - if(i.eq.207) msg='TNX 73 GL' 10 call genq65(msg,0,msgsent,itone,i3,n3) i0=1