V10/cmd/pfort/BLOCKDATA3.f

      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