1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
cLast change: change irregularoutieradj/se3 to irregularoutlieradj/se3
c-----------------------------------------------------------------------
c tb1ptr, tb2ptr, tb3ptr, tb4ptr -
c pointers for the TB2DIC, TB2DIC, TB3DIC, TB4DIC data
c dictionaries
c-----------------------------------------------------------------------
DATA tb1ptr /
& 1, 7, 10, 14, 16, 26, 29, 37, 40, 48,
& 51, 62, 64, 79, 82, 96, 99, 110, 112, 123,
& 126, 140, 143, 161, 164, 169, 171, 180, 183, 192,
& 195, 208, 210, 227, 230, 246, 249, 269, 272, 283,
& 286, 298, 301, 317, 320, 327, 330, 337, 340, 348,
& 350, 360, 362, 377, 379, 394, 396, 406, 408, 415,
& 418, 425, 428, 439, 442, 452, 455, 463, 466, 478,
& 481, 484, 487, 494, 497, 501, 504, 512, 515, 530,
& 533, 539, 542, 554, 557, 567, 570, 585, 588, 601,
& 604, 615, 618, 632, 635, 649, 652, 668, 671, 692,
& 695, 711, 714, 730, 733, 747, 750, 756, 759, 769,
& 772, 782, 785, 798, 801, 808, 811, 821, 824, 839,
& 842, 847, 850, 860, 863, 872, 875, 886, 889, 896,
& 899, 908, 911, 916, 919, 936, 939, 948, 951, 970,
& 973, 987, 990, 996, 999,1009,1012,1017,1020,1031,
& 1034,1044,1047,1050,1053,1060,1063,1067,1070,1078,
& 1081,1091,1094,1108,1111,1120,1123,1136,1139,1151,
& 1153,1165,1168,1175,1178,1189,1192,1201,1204,1213,
& 1216,1231,1234,1243,1246,1254,1257,1269,1272,1278,
& 1281,1288,1291,1302,1305,1317,1320,1336,1339,1348,
& 1351,1361,1364,1377,1380,1393,1396,1413,1416,1427,
& 1430,1442,1445,1461,1464,1481,1484,1505,1508,1522,
& 1525,1540,1543,1561,1564,1566,1568,1573,1576,1586,
& 1589,1595,1598,1602,1605,1612,1615 /
c-----------------------------------------------------------------------
DATA tb2ptr /
& 1, 13, 15, 27, 29, 40, 42, 51, 53, 60,
& 62, 69, 71, 78, 80, 90, 92, 96, 98, 110,
& 112, 122, 124, 131, 133, 140, 142, 152, 154, 164,
& 166, 176, 178, 189, 191, 205, 208, 217, 219, 228,
& 230, 239, 241, 250, 252, 264, 267, 274, 276, 283,
& 285, 292, 294, 306, 308, 323, 326, 330, 332, 339,
& 341, 350, 353, 371, 373, 394, 397, 407, 409, 419,
& 421, 429, 431, 442, 445, 456, 459, 467, 470, 481,
& 484, 496, 499, 516, 519, 535, 538, 548, 551, 561,
& 564, 571, 574, 586, 589, 597, 600, 605, 608, 618,
& 621, 631, 634, 644, 647, 657, 660, 670, 673, 682,
& 685, 697, 700, 714, 717, 723, 726, 731, 734, 742,
& 745, 752, 755, 764, 766, 777, 780, 789, 792, 804,
& 807, 817, 820, 828, 831, 846, 849, 864, 867, 877,
& 880, 889, 892, 899, 902, 909, 911, 916, 918, 926,
& 928, 935, 938, 948, 951, 964, 967, 973, 976, 984,
& 987, 998,1000,1013,1016,1027,1030,1042,1045,1056,
& 1059,1068,1071,1084,1087,1098,1101,1110,1113,1122,
& 1125,1135,1138,1145,1148,1160,1163,1178,1181,1193,
& 1196,1211,1214,1220,1222,1228,1230,1241,1244,1251,
& 1253,1264,1267,1277,1280,1287,1290,1296,1299,1310,
& 1313,1323,1326,1341,1344,1358,1361,1369,1372,1379,
& 1382,1391,1394,1402,1405,1418,1421,1433,1436,1446,
& 1449,1460,1463,1475,1478,1495,1498,1515,1518,1536,
& 1539,1547,1550,1556,1559,1573,1576,1590,1593,1604,
& 1607,1616,1619,1630,1633,1646,1649,1660,1663,1676,
& 1679,1693,1696,1708,1711,1725,1728,1742,1745,1757,
& 1760,1774,1777,1795,1798,1814,1817,1835,1838,1849,
& 1852,1861,1864,1875,1878,1889,1892,1902,1905,1916,
& 1919,1934,1937,1955,1958,1969,1972,1981,1984 /
c-----------------------------------------------------------------------
DATA tb3ptr /
& 1, 7, 10, 17, 20, 31, 34, 48, 51, 58,
& 61, 71, 74, 83, 86, 98, 101, 108, 111, 121,
& 124, 133, 136, 148, 151, 158, 161, 171, 174, 183,
& 186, 198, 201, 208, 211, 221, 224, 234, 237, 250,
& 253, 260, 263, 275, 278, 295, 298, 313, 315, 331,
& 334, 354, 357, 376, 379, 385, 388, 395, 398, 408,
& 411, 422, 425, 436, 439, 453, 456, 471, 474, 484,
& 487, 495, 498, 510, 513, 528, 531, 545, 548, 558,
& 561, 570, 573, 584, 587, 601, 604, 616, 619, 634,
& 637, 652, 655, 673, 676, 691, 694, 712, 715, 730,
& 733, 751, 754, 775, 778, 802, 805, 816, 819, 837,
& 840, 858, 861, 873, 876, 886, 889, 897, 900, 911,
& 914, 924, 927, 940, 943, 959, 962, 973, 976, 988,
& 991,1004,1007,1021,1024,1037,1040,1054,1057,1072,
& 1075,1089,1092,1104,1107,1123,1126,1139,1142,1153,
& 1156,1167,1170,1182,1185,1200,1203,1212,1215,1224,
& 1227,1241,1244 /
c-----------------------------------------------------------------------
DATA tb4ptr /
& 1, 6, 9, 19, 22, 30, 33, 44, 47, 56,
& 59, 71, 74, 85, 88, 100, 103, 113, 116, 129,
& 132, 141, 144, 156, 159, 174, 177, 195, 198, 214,
& 217, 238, 241, 261, 264, 279, 282, 297, 300, 311,
& 314, 329, 332, 348, 351, 370, 373, 394, 397, 412,
& 415, 431, 434, 451, 454, 473, 476, 496, 499, 514,
& 517, 535, 538, 549, 552, 564, 567, 581, 584, 599,
& 602, 614, 617, 632, 635, 644, 647, 658, 661, 666,
& 669, 682, 685, 695, 698, 711, 714, 721, 724, 736,
& 739, 760, 763, 782, 785, 795, 798 /
|
