Use '$' to flag JT4 mode in the 2-character csync.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6668 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-05-04 18:59:18 +00:00
parent abb5364581
commit bff84e0e37
1 changed files with 2 additions and 2 deletions

View File

@ -174,9 +174,9 @@ contains
char(ichar('A')+ich-1)
end if
else
write(*,1000) utc ,snr, dt, freq
write(*,1000) utc,snr,dt,freq
end if
1000 format(i4.4,i4,f5.2,i5,1x,a1,1x,a22,a2,1x,a1,i3)
1000 format(i4.4,i4,f5.2,i5,1x,'$',a1,1x,a22,a2,1x,a1,i3)
select type(this)
type is (counting_jt4_decoder)
this%decoded = this%decoded + 1