diff --git a/lib/decode65a.f90 b/lib/decode65a.f90 index 05448483c..faa733a69 100644 --- a/lib/decode65a.f90 +++ b/lib/decode65a.f90 @@ -36,9 +36,9 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, & a=0. a(1)=xdf nflip=0 - go to 900 endif endif + if(nflip.eq.0) go to 900 ! Find best DF, drift, curvature, and DT. Start by downsampling to 344.53125 Hz call timer('fil6521 ',0) diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90 index eaceb3f2f..bf941fce8 100644 --- a/lib/jt65_decode.f90 +++ b/lib/jt65_decode.f90 @@ -174,6 +174,7 @@ contains mode65=2**nsubmode nflip=1 nqd=0 + decoded=' ' decoded0="" freq0=0. prtavg=.false. @@ -191,6 +192,7 @@ contains flip=ca(icand)%flip nflip=flip endif + if(sync1.lt.float(minsync)) nflip=0 if(ipass.eq.1) ntry65a=ntry65a + 1 if(ipass.eq.2) ntry65b=ntry65b + 1 call timer('decod65a',0)