WSJT-X/lib/jt9sync.f90

15 lines
606 B
Fortran
Raw Normal View History

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/