mirror of https://github.com/saitohirga/WSJT-X.git
23 lines
1017 B
Fortran
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/
|