w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Don't mark shorthands as "synced" for JT65 averaging.

Browse Source
This commit is contained in:
Joe Taylor 2020-05-08 10:32:23 -04:00
parent 3a7eda58ea
commit 558c480b42
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/jt65_decode.f90
View File

@ -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