![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to BLOCKDATA3.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / pfort|
Return to BLOCKDATA3.f CVS log | Up to [Research Unix] / researchv10no / cmd / pfort |
1.1 ! root 1: BLOCK DATA ! 2: INTEGER K(186), KI(30), KT(30) ! 3: COMMON /STS/ K, KI, KT ! 4: DATA K(1) /33/, K(2) /44/, K(3) /50/, K(4) /31/, K(5) /41/, K(6) ! 5: * /34/, K(7) /45/, K(8) /47/, K(9) /34/, K(10) /32/, K(11) ! 6: * /38/, K(12) /48/, K(13) /38/, K(14) /44/, K(15) /43/ ! 7: DATA K(16) /47/, K(17) /34/, K(18) /30/, K(19) /41/ ! 8: DATA K(20) /38/, K(21) /43/, K(22) /49/, K(23) /34/, K(24) /36/, ! 9: * K(25) /34/, K(26) /47/ ! 10: DATA K(27) /32/, K(28) /44/, K(29) /42/, K(30) /45/, K(31) /41/, ! 11: * K(32) /34/, K(33) /53/, K(34) /41/, K(35) /44/, K(36) /36/, ! 12: * K(37) /38/, K(38) /32/, K(39) /30/, K(40) /41/ ! 13: DATA K(41) /34/, K(42) /53/, K(43) /49/, K(44) /34/, K(45) /47/, ! 14: * K(46) /43/, K(47) /30/, K(48) /41/, K(49) /33/, K(50) /38/, ! 15: * K(51) /42/, K(52) /34/, K(53) /43/, K(54) /48/, K(55) /38/, ! 16: * K(56) /44/, K(57) /43/, K(58) /32/, K(59) /44/, K(60) /42/, ! 17: * K(61) /42/, K(62) /44/, K(63) /43/, K(64) /48/, K(65) /50/, ! 18: * K(66) /31/, K(67) /47/, K(68) /44/, K(69) /50/, K(70) /49/, ! 19: * K(71) /38/, K(72) /43/, K(73) /34/ ! 20: DATA K(74) /35/, K(75) /50/, K(76) /43/, K(77) /32/, K(78) /49/, ! 21: * K(79) /38/, K(80) /44/, K(81) /43/, K(82) /31/, K(83) /41/, ! 22: * K(84) /44/, K(85) /32/, K(86) /40/, K(87) /33/, K(88) /30/, ! 23: * K(89) /49/, K(90) /30/, K(91) /34/, K(92) /46/, K(93) /50/, ! 24: * K(94) /38/, K(95) /51/, K(96) /30/, K(97) /41/, K(98) /34/, ! 25: * K(99) /43/, K(100) /32/, K(101) /34/, K(102) /33/, K(103) ! 26: * /30/, K(104) /49/, K(105) /30/ ! 27: DATA K(106) /30/, K(107) /48/, K(108) /48/, K(109) /38/, K(110) ! 28: * /36/, K(111) /43/, K(112) /36/, K(113) /44/, K(114) /49/, ! 29: * K(115) /44/, K(116) /47/, K(117) /34/, K(118) /49/, K(119) ! 30: * /50/, K(120) /47/, K(121) /43/ ! 31: DATA K(122) /32/, K(123) /44/, K(124) /43/, K(125) /49/, K(126) ! 32: * /38/, K(127) /43/, K(128) /50/, K(129) /34/, K(130) /32/, ! 33: * K(131) /30/, K(132) /41/, K(133) /41/, K(134) /48/, K(135) ! 34: * /49/, K(136) /44/, K(137) /45/, K(138) /38/, K(139) /35/, ! 35: * K(140) /33/, K(141) /44/, K(142) /45/, K(143) /30/, K(144) ! 36: * /50/, K(145) /48/, K(146) /34/ ! 37: DATA K(147) /47/, K(148) /34/, K(149) /30/, K(150) /33/, K(151) ! 38: * /52/, K(152) /47/, K(153) /38/, K(154) /49/, K(155) /34/, ! 39: * K(156) /47/, K(157) /34/, K(158) /52/, K(159) /38/, K(160) ! 40: * /43/, K(161) /33/, K(162) /34/, K(163) /43/, K(164) /33/, ! 41: * K(165) /35/, K(166) /38/, K(167) /41/, K(168) /34/, K(169) ! 42: * /31/, K(170) /30/, K(171) /32/, K(172) /40/, K(173) /48/, ! 43: * K(174) /45/, K(175) /30/, K(176) /32/, K(177) /34/, K(178) ! 44: * /34/, K(179) /43/, K(180) /33/ ! 45: DATA K(181) /35/, K(182) /44/, K(183) /47/, K(184) /42/, K(185) ! 46: * /30/, K(186) /49/ ! 47: DATA KI(1) /15/, KI(2) /4/, KI(3) /7/, KI(4) /7/, KI(5) /7/, ! 48: * KI(6) /8/, KI(7) /9/, KI(8) /6/, KI(9) /10/, KI(10) /8/, ! 49: * KI(11) /9/, KI(12) /11/, KI(13) /4/, KI(14) /6/, KI(15) /4/, ! 50: * KI(16) /6/, KI(17) /8/, KI(18) /4/, KI(19) /4/, KI(20) /2/, ! 51: * KI(21) /2/, KI(22) /5/, KI(23) /4/, KI(24) /5/, KI(25) /6/, ! 52: * KI(26) /7/, KI(27) /9/, KI(28) /3/, KI(29) /6/, KI(30) /0/ ! 53: DATA KT(1), KT(2), KT(3), KT(4), KT(5), KT(6), KT(7), KT(8) ! 54: * /8*1/, KT(9), KT(10), KT(11) /3*0/, KT(12) /2/, KT(13) /3/, ! 55: * KT(14), KT(15), KT(16), KT(17), KT(18), KT(19), KT(20), ! 56: * KT(21), KT(22), KT(23), KT(24), KT(25), KT(26), KT(27) ! 57: * /14*5/, KT(29), KT(30) /2*5/, KT(28) /6/ ! 58: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.