From abb5364581b2df70915f8da44de5ea8ea546063b Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 4 May 2016 18:44:05 +0000
Subject: [PATCH] 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
---
 lib/decode65a.f90   | 2 +-
 lib/jt65_decode.f90 | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

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)