From bb1e8f6692bd7d80e3627d681ebecda4ee7657c7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 1 Jul 2016 15:25:41 +0000
Subject: [PATCH] Minor tweaks to QRA sync handling.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6844 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/decoder.f90 | 6 +++---
 lib/qra02.f90   | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 7b81c99c2..91f4add36 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -245,11 +245,11 @@ contains
 
     if(ft.ge.80) then
        nft=ft-100
-       if(snr.eq.-30 .and. decoded.eq.'                      ') then
-          csync=': '
+       csync=': '
+       if(snr.gt.-30) csync=':*'
+       if(nft.lt.0) then
           write(*,1009) params%nutc,snr,dt,freq,csync,decoded
        else
-          csync=':*'
           write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft
 1009      format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2)
        endif
diff --git a/lib/qra02.f90 b/lib/qra02.f90
index f255c8117..9e59e1133 100644
--- a/lib/qra02.f90
+++ b/lib/qra02.f90
@@ -29,7 +29,7 @@ subroutine qra02(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq,    &
 !  rewind 76
 
   decoded='                      '
-  nft=100
+  nft=99
   nsnr=-30
   nsps=6912
   istep=nsps/2