From 558c480b423a5a840f06f95a4c31560905aee96f Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 8 May 2020 10:32:23 -0400
Subject: [PATCH] Don't mark shorthands as "synced" for JT65 averaging.

---
 lib/jt65_decode.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90
index b0b35d2ce..6177492cc 100644
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@@ -430,7 +430,9 @@ contains
        if(mod(iutc(i),2).ne.mod(nutc,2)) cycle  !Use only same (odd/even) seq
        if(abs(dtxx-dtsave(i)).gt.dtdiff) cycle  !DT must match
        if(abs(nfreq-nfsave(i)).gt.ntol) cycle   !Freq must match
+       if(nflipsave(i).eq.0) cycle              !No sync
        if(nflip.ne.nflipsave(i)) cycle          !Sync type (*/#) must match
+
        s3b=s3b + s3save(1:64,1:63,i)
        s1b=s1b + s1save(-255:256,1:126,i)
        syncsum=syncsum + syncsave(i)
@@ -452,8 +454,9 @@ contains
     endif
 
     do i=1,nsave
-       csync='*'
+       csync=' '
        if(nflipsave(i).lt.0.0) csync='#'
+       if(nflipsave(i).gt.0.0) csync='*'
        write(14,1000) cused(i),iutc(i),syncsave(i),dtsave(i)-1.0,nfsave(i),csync
 1000   format(a1,i5.4,f6.1,f6.2,i6,1x,a1)
     enddo