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
2024-12-23 19:25:37 -05:00 · 2016-07-01 15:25:41 +00:00 · 2016-07-01 15:25:41 +00:00 · bb1e8f6692
commit bb1e8f6692
parent e23017d9e3
2 changed files with 4 additions and 4 deletions
--- 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
--- 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