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 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224
|
C Version 4.46 11/28/01
CHARACTER* 92 CHARS
INTEGER NODE(20, 92)
DIMENSION NODE0(20,10)
DIMENSION NODE1(20,10)
DIMENSION NODE2(20,10)
DIMENSION NODE3(20,10)
DIMENSION NODE4(20,10)
DIMENSION NODE5(20,10)
DIMENSION NODE6(20,10)
DIMENSION NODE7(20,10)
DIMENSION NODE8(20,10)
DIMENSION NODE9(20, 2)
EQUIVALENCE ( NODE(1, 1) , NODE0(1,1) )
EQUIVALENCE ( NODE(1, 11) , NODE1(1,1) )
EQUIVALENCE ( NODE(1, 21) , NODE2(1,1) )
EQUIVALENCE ( NODE(1, 31) , NODE3(1,1) )
EQUIVALENCE ( NODE(1, 41) , NODE4(1,1) )
EQUIVALENCE ( NODE(1, 51) , NODE5(1,1) )
EQUIVALENCE ( NODE(1, 61) , NODE6(1,1) )
EQUIVALENCE ( NODE(1, 71) , NODE7(1,1) )
EQUIVALENCE ( NODE(1, 81) , NODE8(1,1) )
EQUIVALENCE ( NODE(1, 91) , NODE9(1,1) )
DATA NCHARS / 92 /
DATA CHARS( 1: 26) / 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /
DATA CHARS( 27: 52) / 'abcdefghijklmnopqrstuvwxyz' /
DATA CHARS( 53: 78) / '0123456789,.;:`"!?@#$%&|()' /
DATA CHARS( 79: 92) / '[]{}<>_+-*=/^~' /
DATA NODE0 /
& 21616,11672,12183,12888,14488,15183,15672,15616,21650,15650,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21616,11688,14288,15284,15676,15668,15260,14256,15252,15644,
& 15628,15220,14216,11616,21656,14256, 0, 0, 0, 0,
& 25674,15183,14488,12888,12183,11672,11632,12121,12816,14416,
& 15121,15629, 0, 0, 0, 0, 0, 0, 0, 0,
& 21416,14416,15121,15632,15672,15183,14488,11488,21816,11888,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25616,11616,11688,15688,21656,14756, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21616,11688,15688,21656,14656, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25674,15183,14488,12888,12183,11672,11632,12121,12816,14416,
& 15121,15632,15650,14050, 0, 0, 0, 0, 0, 0,
& 21616,11688,25616,15688,21656,15656, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 23888,13816,22616,15016,22688,15088, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21430,11921,12616,13916,14621,15132,15188,25788,13688, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE1 /
& 21688,11616,25688,11645,22858,15616, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22088,12016,16016, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21416,11488,13648,15888,15816, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21616,11688,15616,15688, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21632,11672,12183,12888,14488,15183,15672,15632,15121,14416,
& 12816,12121,11632, 0, 0, 0, 0, 0, 0, 0,
& 21616,11688,14288,15283,15676,15662,15255,14250,11650, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21632,11672,12183,12888,14488,15183,15672,15632,15121,14416,
& 12816,12121,11632,24131,15616, 0, 0, 0, 0, 0,
& 21616,11688,14288,15283,15676,15662,15255,14250,11650,24250,
& 15816, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25676,15183,14288,13088,12183,11674,11670,12161,13056,14256,
& 15151,15642,15630,15121,14216,13016,12121,11630, 0, 0,
& 23688,13616,21488,15888, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE2 /
& 21688,11632,12121,12816,14416,15121,15632,15688, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21688,11682,13616,15682,15688, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21488,11452,11639,12516,13437,13646,13837,14716,15639,15852,
& 15888,23646,13654, 0, 0, 0, 0, 0, 0, 0,
& 21688,11682,15622,15616,25688,15682,11622,11616, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21688,11682,13656,15682,15688,23656,13616, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21688,15688,11616,15616,22756,14556, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22064,14264,15159,15650,15616,25642,12842,12038,11630,11628,
& 12020,12816,14416,15220,15628, 0, 0, 0, 0, 0,
& 21888,11816,21852,12260,13064,14664,15460,15852,15828,15420,
& 14616,13016,12220,11828, 0, 0, 0, 0, 0, 0,
& 25652,15260,14464,12864,12060,11652,11628,12020,12816,14416,
& 15220,15628, 0, 0, 0, 0, 0, 0, 0, 0,
& 25488,15416,25452,15060,14264,12664,11860,11452,11428,11820,
& 12616,14216,15020,15428, 0, 0, 0, 0, 0, 0 /
DATA NODE3 /
& 25626,15220,14416,12816,12020,11628,11652,12060,12864,14464,
& 15260,15652,15641,11641, 0, 0, 0, 0, 0, 0,
& 26072,15680,14884,13684,12880,12472,12416,21656,14256, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21616,12008,12804,14404,15208,15616,15664,25652,15260,14464,
& 12864,12060,11652,11637,12029,12825,14425,15229,15637, 0,
& 21688,11616,21652,12060,12864,14464,15260,15652,15616, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22416,15216,24016,14062,12962,23377,13380,13582,13882,14080,
& 14077,13875,13575,13377, 0, 0, 0, 0, 0, 0,
& 21416,11808,12604,13804,14608,15016,15062,13862,24375,14177,
& 14180,14382,14682,14880,14877,14675,14375, 0, 0, 0,
& 21888,11816,21844,15268,22750,15816, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22316,14916,23616,13688,12788, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21464,11416,21453,11760,12364,12764,13360,13653,13960,14564,
& 14964,15560,15853,15816,23653,13624, 0, 0, 0, 0,
& 21664,11616,21652,12060,12864,14464,15260,15652,15616, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE4 /
& 21628,11652,12060,12864,14464,15260,15652,15628,15220,14416,
& 12816,12020,11628, 0, 0, 0, 0, 0, 0, 0,
& 21864,11800,21852,12260,13064,14664,15460,15852,15836,15428,
& 14624,13024,12228,11836, 0, 0, 0, 0, 0, 0,
& 25464,15400,25452,15060,14264,12664,11860,11452,11436,11828,
& 12624,14224,15028,15436, 0, 0, 0, 0, 0, 0,
& 22064,12016,22052,12460,13264,14664,15460,15852, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25656,15361,14664,12664,11961,11654,11651,11945,12641,14641,
& 15337,15631,15626,15319,14616,12616,11919,11624, 0, 0,
& 22484,12428,12820,13616,14816,15620,16028,21666,14266, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21664,11628,12020,12816,14416,15220,15628,25664,15616, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21664,11657,11849,13616,15449,15657,15664, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21464,11440,11630,12516,13429,13636,13829,14716,15630,15840,
& 15864,23636,13642, 0, 0, 0, 0, 0, 0, 0,
& 21864,15616,25464,11616, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE5 /
& 21664,11637,12029,12825,14425,15229,15637,25664,15616,15208,
& 14404,12804,12008,11616, 0, 0, 0, 0, 0, 0,
& 21864,15464,11616,15616,22742,14442, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21628,11676,12084,12888,14488,15284,15676,15628,15220,14416,
& 12816,12020,11628, 0, 0, 0, 0, 0, 0, 0,
& 22678,13688,13616,22616,14616, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21676,12084,12888,14488,15284,15676,15666,15258,12036,11628,
& 11616,15616, 0, 0, 0, 0, 0, 0, 0, 0,
& 21878,12284,13088,14488,15284,15676,15669,15261,14457,15253,
& 15644,15628,15220,14416,12816,12020,11626,24457,12857, 0,
& 25088,15016,24016,16016,26040,11640,11688, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25488,11688,11657,14457,15253,15645,15628,15220,14416,12816,
& 12020,11628, 0, 0, 0, 0, 0, 0, 0, 0,
& 25678,15284,14488,12888,12084,11676,11628,12020,12816,14416,
& 15220,15628,15645,15253,14457,12857,12053,11645, 0, 0,
& 21688,15688,15679,13228,13216, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE6 /
& 24757,12557,11667,11676,12084,12888,14488,15284,15676,15667,
& 14757,15647,15628,15220,14416,12816,12020,11628,11647,12557,
& 21626,12020,12816,14416,15220,15628,15676,15284,14488,12888,
& 12084,11676,11659,12051,12847,14447,15251,15659, 0, 0,
& 22604,13416,13424,12624,12616,13215,12604, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22624,13424,13416,12616,12624, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22604,13215,12616,12624,13424,13416,12604,22656,12648,13448,
& 13456,12656, 0, 0, 0, 0, 0, 0, 0, 0,
& 22624,12616,13416,13424,12624,22656,12648,13448,13456,12656,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25284,16268,15884,15284, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22184,12666,12784,12184,23784,14266,14384,13784, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 23524,13316,13916,13724,13524,23639,14088,13288,13639,23685,
& 13646, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22074,12283,13088,14288,15083,15274,14866,14160,13754,13647,
& 13639,23524,13316,13916,13724,13524, 0, 0, 0, 0 /
DATA NODE7 /
& 24543,13738,12843,12854,13761,14758,14543,14939,15439,15949,
& 15865,15075,13877,12674,11863,11647,11931,13222,14422,15627,
& 23278,12622,24778,14122,21959,15759,21640,15440, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25176,12976,12273,11967,11959,12254,12852,14452,15050,15445,
& 15437,15031,14328,12128,23616,13688, 0, 0, 0, 0,
& 21616,15688,22488,12084,12079,12475,12975,13379,13384,12988,
& 12488,25116,15520,15525,15129,14629,14225,14220,14616,15116,
& 25636,15023,14418,13716,12816,12021,11629,11637,12246,13956,
& 14564,14572,14377,13880,13280,12677,12469,12758,15616, 0,
& 23696,13608, 0, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 25092,14382,13965,13850,13935,14318,15008,24417,14230,14150,
& 14270,14483, 0, 0, 0, 0, 0, 0, 0, 0,
& 22292,12982,13365,13450,13335,12918,12208,22883,13070,13150,
& 13030,12817, 0, 0, 0, 0, 0, 0, 0, 0,
& 25294,13894,13806,15206,24094,14006, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22094,13494,13406,12006,23294,13206, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE8 /
& 24896,13890,13853,12850,13846,13810,14804,24009,14045,13846,
& 24091,14054,13853, 0, 0, 0, 0, 0, 0, 0,
& 22496,13490,13453,14450,13446,13410,12304,23209,13245,13446,
& 23291,13254,13453, 0, 0, 0, 0, 0, 0, 0,
& 25666,11648,15630, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21666,15648,11630, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 20800,17200, 0, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21648,15648,23668,13628, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21648,15648, 0, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22765,14531,22731,14565,21748,15548, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21656,15656,21640,15640, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21208,16096, 0, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE9 /
& 21854,13868,15854, 0, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21546,11951,12754,13452,14344,14942,15745,16150, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
|