![[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.