From 6caf9955a490a013ecc93c953b2419c8845c9bc6 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 18 Jun 2019 11:35:54 -0500 Subject: [PATCH 1/2] 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 From c68679bd10e27e6940c1692ac047f42916b69c4f Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Wed, 19 Jun 2019 09:07:08 -0500 Subject: [PATCH 2/2] Tweak to reduce the number of bad candidates. --- lib/ft4_decode.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90 index 3e4fa0916..1fd60efa6 100644 --- a/lib/ft4_decode.f90 +++ b/lib/ft4_decode.f90 @@ -282,7 +282,7 @@ contains call timer('sync4d ',1) enddo if(iseg.eq.1) smax1=smax - if(smax.lt.0.7) cycle + if(smax.lt.1.2) cycle if(iseg.gt.1 .and. smax.lt.smax1) cycle f1=f0+real(idfbest) if( f1.le.10.0 .or. f1.ge.4990.0 ) cycle