From 924876e92cb9e1bd6f820ae5b7a65c7e04bb76dc Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 13 Jul 2021 13:22:10 -0400 Subject: [PATCH] Correct the logic for clearing ldecoded() to all .false. --- map65/libm65/map65a.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90 index 16945a614..ee73004b9 100644 --- a/map65/libm65/map65a.f90 +++ b/map65/libm65/map65a.f90 @@ -40,7 +40,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/ save - if(nhsym.eq.nhsym1 .or. newdat.ne.0 .or. nagain.ne.0) ldecoded=.false. +! Clean start for Q65 at early decode + if(nhsym.eq.nhsym1 .or. nagain.ne.0) ldecoded=.false. + nkhz_center=nint(1000.0*(fcenter-int(fcenter))) mfa=nfa-nkhz_center+48 mfb=nfb-nkhz_center+48 @@ -50,8 +52,6 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & nts_jt65=2**(mode65-1) !JT65 tone separation factor nts_q65=2**(mode_q65-1) !Q65 tone separation factor xpol=(nxpol.ne.0) - - if(nhsym.eq.nhsym1) ldecoded=.false. !Clean start for Q65 at early decode ! No second decode for JT65? if(nhsym.eq.nhsym2 .and. (nstandalone.eq.1 .or. ndiskdat.eq.0)) mode65=0