real logi0, lgssi0, tti0, sb
c
      common /table/ logi0(7560), lgssi0(7560), tti0(7560), sb(756)