From a9bce0dbd3c3a9ef605f2efb277fb47ca3455209 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sun, 17 Jan 2021 19:50:58 -0500 Subject: [PATCH] Don't allow a decode attempt with previous data if TRperiod has increased. --- lib/decoder.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index e2c762f52..d81128040 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -51,7 +51,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample) character(len=12) :: mycall, hiscall character(len=6) :: mygrid, hisgrid character*60 line - data ndec8/0/ + data ndec8/0/,ntr0/-1/ save type(counting_jt4_decoder) :: my_jt4 type(counting_jt65_decoder) :: my_jt65 @@ -61,7 +61,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample) type(counting_fst4_decoder) :: my_fst4 type(counting_q65_decoder) :: my_q65 - nused=0 + if(params%nagain .and. params%ntr.gt.ntr0) go to 800 + ntr0=params%ntr rms=sqrt(dot_product(float(id2(1:180000)), & float(id2(1:180000)))/180000.0) if(rms.lt.3.0) go to 800