BLOCK DATA INTEGER K(186), KI(30), KT(30) COMMON /STS/ K, KI, KT DATA K(1) /33/, K(2) /44/, K(3) /50/, K(4) /31/, K(5) /41/, K(6) * /34/, K(7) /45/, K(8) /47/, K(9) /34/, K(10) /32/, K(11) * /38/, K(12) /48/, K(13) /38/, K(14) /44/, K(15) /43/ DATA K(16) /47/, K(17) /34/, K(18) /30/, K(19) /41/ DATA K(20) /38/, K(21) /43/, K(22) /49/, K(23) /34/, K(24) /36/, * K(25) /34/, K(26) /47/ DATA K(27) /32/, K(28) /44/, K(29) /42/, K(30) /45/, K(31) /41/, * K(32) /34/, K(33) /53/, K(34) /41/, K(35) /44/, K(36) /36/, * K(37) /38/, K(38) /32/, K(39) /30/, K(40) /41/ DATA K(41) /34/, K(42) /53/, K(43) /49/, K(44) /34/, K(45) /47/, * K(46) /43/, K(47) /30/, K(48) /41/, K(49) /33/, K(50) /38/, * K(51) /42/, K(52) /34/, K(53) /43/, K(54) /48/, K(55) /38/, * K(56) /44/, K(57) /43/, K(58) /32/, K(59) /44/, K(60) /42/, * K(61) /42/, K(62) /44/, K(63) /43/, K(64) /48/, K(65) /50/, * K(66) /31/, K(67) /47/, K(68) /44/, K(69) /50/, K(70) /49/, * K(71) /38/, K(72) /43/, K(73) /34/ DATA K(74) /35/, K(75) /50/, K(76) /43/, K(77) /32/, K(78) /49/, * K(79) /38/, K(80) /44/, K(81) /43/, K(82) /31/, K(83) /41/, * K(84) /44/, K(85) /32/, K(86) /40/, K(87) /33/, K(88) /30/, * K(89) /49/, K(90) /30/, K(91) /34/, K(92) /46/, K(93) /50/, * K(94) /38/, K(95) /51/, K(96) /30/, K(97) /41/, K(98) /34/, * K(99) /43/, K(100) /32/, K(101) /34/, K(102) /33/, K(103) * /30/, K(104) /49/, K(105) /30/ DATA K(106) /30/, K(107) /48/, K(108) /48/, K(109) /38/, K(110) * /36/, K(111) /43/, K(112) /36/, K(113) /44/, K(114) /49/, * K(115) /44/, K(116) /47/, K(117) /34/, K(118) /49/, K(119) * /50/, K(120) /47/, K(121) /43/ DATA K(122) /32/, K(123) /44/, K(124) /43/, K(125) /49/, K(126) * /38/, K(127) /43/, K(128) /50/, K(129) /34/, K(130) /32/, * K(131) /30/, K(132) /41/, K(133) /41/, K(134) /48/, K(135) * /49/, K(136) /44/, K(137) /45/, K(138) /38/, K(139) /35/, * K(140) /33/, K(141) /44/, K(142) /45/, K(143) /30/, K(144) * /50/, K(145) /48/, K(146) /34/ DATA K(147) /47/, K(148) /34/, K(149) /30/, K(150) /33/, K(151) * /52/, K(152) /47/, K(153) /38/, K(154) /49/, K(155) /34/, * K(156) /47/, K(157) /34/, K(158) /52/, K(159) /38/, K(160) * /43/, K(161) /33/, K(162) /34/, K(163) /43/, K(164) /33/, * K(165) /35/, K(166) /38/, K(167) /41/, K(168) /34/, K(169) * /31/, K(170) /30/, K(171) /32/, K(172) /40/, K(173) /48/, * K(174) /45/, K(175) /30/, K(176) /32/, K(177) /34/, K(178) * /34/, K(179) /43/, K(180) /33/ DATA K(181) /35/, K(182) /44/, K(183) /47/, K(184) /42/, K(185) * /30/, K(186) /49/ DATA KI(1) /15/, KI(2) /4/, KI(3) /7/, KI(4) /7/, KI(5) /7/, * KI(6) /8/, KI(7) /9/, KI(8) /6/, KI(9) /10/, KI(10) /8/, * KI(11) /9/, KI(12) /11/, KI(13) /4/, KI(14) /6/, KI(15) /4/, * KI(16) /6/, KI(17) /8/, KI(18) /4/, KI(19) /4/, KI(20) /2/, * KI(21) /2/, KI(22) /5/, KI(23) /4/, KI(24) /5/, KI(25) /6/, * KI(26) /7/, KI(27) /9/, KI(28) /3/, KI(29) /6/, KI(30) /0/ DATA KT(1), KT(2), KT(3), KT(4), KT(5), KT(6), KT(7), KT(8) * /8*1/, KT(9), KT(10), KT(11) /3*0/, KT(12) /2/, KT(13) /3/, * KT(14), KT(15), KT(16), KT(17), KT(18), KT(19), KT(20), * KT(21), KT(22), KT(23), KT(24), KT(25), KT(26), KT(27) * /14*5/, KT(29), KT(30) /2*5/, KT(28) /6/ END