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 /