WSJT-X/lib/zplot9.f90
Joe Taylor bd103459f1 Added routine "chkss2" to test sync vector for sanity before attenpting
Fano decode.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3270 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2013-05-15 15:17:36 +00:00

30 lines
528 B
Fortran

subroutine zplot9(s)
real s(0:8,85)
character*1 line(85),mark(0:6)
data mark/' ',' ','.','-','+','X','$'/
include 'jt9sync.f90'
do j=8,0,-1
do i=1,85
n=(s(j,i))
if(n.lt.0) n=0
if(n.gt.6) n=6
line(i)=mark(n)
enddo
write(32,1010) j,line
1010 format(i1,1x,85a1)
enddo
do i=1,85
line(i)=' '
if(isync(i).eq.1) line(i)='@'
enddo
write(32,1015)
1015 format(87('-'))
write(32,1020) line
1020 format(2x,85a1)
write(32,1015)
return
end subroutine zplot9