diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90 index c59d4daa7..9c5c44599 100644 --- a/map65/libm65/map65a.f90 +++ b/map65/libm65/map65a.f90 @@ -38,6 +38,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & save call sec0(0,tquick) + ldecoded=.false. nkhz_center=nint(1000.0*(fcenter-int(fcenter))) mfa=nfa-nkhz_center+48 mfb=nfb-nkhz_center+48 diff --git a/map65/libm65/wideband_sync.f90 b/map65/libm65/wideband_sync.f90 index 548538bac..101df3085 100644 --- a/map65/libm65/wideband_sync.f90 +++ b/map65/libm65/wideband_sync.f90 @@ -44,7 +44,6 @@ subroutine get_candidates(ss,savg,xpol,nfa,nfb,nts_jt65,nts_q65,cand,ncand) if(sum(ss(1,j,1:NFFT)).gt.0.0) exit enddo jz=j - ldecoded=.false. call wb_sync(ss,savg,xpol,jz,nfa,nfb) tstep=2048.0/11025.0 !0.185760 s: 0.5*tsym_jt65, 0.3096*tsym_q65