From 6caf9955a490a013ecc93c953b2419c8845c9bc6 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 18 Jun 2019 11:35:54 -0500 Subject: [PATCH] Back off to 77 AP bits for RR73 decodes, for now. --- lib/ft4_decode.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90 index 0ec43dd99..3e4fa0916 100644 --- a/lib/ft4_decode.f90 +++ b/lib/ft4_decode.f90 @@ -401,8 +401,8 @@ contains if(iaptype.eq.4 .or. iaptype.eq.5 .or. iaptype.eq.6) then apmask=0 if(ncontest.le.4) then - apmask(1:91)=1 ! mycall, hiscall, RRR|73|RR73 - if(iaptype.eq.6) llrd(1:91)=apmag*apbits(1:91) + apmask(1:77)=1 ! mycall, hiscall, RRR|73|RR73 + if(iaptype.eq.6) llrd(1:77)=apmag*apbits(1:77) endif endif