Fix a minor flaw in the "flip" logic.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6667 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-05-04 18:44:05 +00:00
parent a402645e75
commit abb5364581
2 changed files with 3 additions and 1 deletions

View File

@ -36,9 +36,9 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, &
a=0. a=0.
a(1)=xdf a(1)=xdf
nflip=0 nflip=0
go to 900
endif endif
endif endif
if(nflip.eq.0) go to 900
! Find best DF, drift, curvature, and DT. Start by downsampling to 344.53125 Hz ! Find best DF, drift, curvature, and DT. Start by downsampling to 344.53125 Hz
call timer('fil6521 ',0) call timer('fil6521 ',0)

View File

@ -174,6 +174,7 @@ contains
mode65=2**nsubmode mode65=2**nsubmode
nflip=1 nflip=1
nqd=0 nqd=0
decoded=' '
decoded0="" decoded0=""
freq0=0. freq0=0.
prtavg=.false. prtavg=.false.
@ -191,6 +192,7 @@ contains
flip=ca(icand)%flip flip=ca(icand)%flip
nflip=flip nflip=flip
endif endif
if(sync1.lt.float(minsync)) nflip=0
if(ipass.eq.1) ntry65a=ntry65a + 1 if(ipass.eq.1) ntry65a=ntry65a + 1
if(ipass.eq.2) ntry65b=ntry65b + 1 if(ipass.eq.2) ntry65b=ntry65b + 1
call timer('decod65a',0) call timer('decod65a',0)