WSJT-X/lib/jt9sync.f90
Joe Taylor b5f0ab772c Add the file "jt9sync.f90", which defines the new sync vector.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2683 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-22 19:22:50 +00:00

23 lines
1017 B
Fortran

integer ii(16) !Locations of sync symbols
! data ii/1,6,11,16,21,26,31,39,45,51,57,63,69,75,81,85/
data ii/ 1,2,5,10,16,23,33,35,51,52,55,60,66,73,83,85/
integer ii2(16) !Locations of sync half-symbols
! data ii2/1,11,21,31,41,51,61,77,89,101,113,125,137,149,161,169/
data ii2/1,3,9,19,31,45,65,69,101,103,109,119,131,145,165,169/
integer isync(85) !Sync vector
! data isync/ &
! 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0, &
! 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0, &
! 0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0, &
! 0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0, &
! 1,0,0,0,1/
data isync/ &
1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0, &
0,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0, &
0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,0,0,0,0,1, &
0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0, &
0,0,1,0,1/