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) char(ichar('A')+ich-1)
end if end if
else else
write(*,1000) utc ,snr, dt, freq write(*,1000) utc,snr,dt,freq
end if 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) select type(this)
type is (counting_jt4_decoder) type is (counting_jt4_decoder)
this%decoded = this%decoded + 1 this%decoded = this%decoded + 1