WSJT-X/lib/jt9sync.f90
Joe Taylor 0348b93a5e Much code cleanup: remove unised variables and code.
Include # channels in audio device offerings.
Start implementing "msgsent" correctly.  (Not finished!)
Include Date in UTC display.
Use the properly computer snrdb.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2718 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-12 16:33:45 +00:00

15 lines
606 B
Fortran

integer ii(16) !Locations of sync symbols
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,3,9,19,31,45,65,69,101,103,109,119,131,145,165,169/
integer isync(85) !Sync vector
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/