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/