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
|
C Version 4.46 11/28/01
CHARACTER* 14 CHARS
INTEGER NODE(20, 14)
DIMENSION NODE0(20,10)
DIMENSION NODE1(20, 4)
EQUIVALENCE ( NODE(1, 1) , NODE0(1,1) )
EQUIVALENCE ( NODE(1, 11) , NODE1(1,1) )
DATA NCHARS / 14 /
DATA CHARS( 1: 14) / '0123456789ABCD' /
DATA NODE0 /
& 24848,14880,18080,18016,11616,11680,14880, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24848,14880,16480,18064,18032,16416,13216,11632,11664,13280,
& 14880, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24848,14886,18128,11528,14886, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24885,14811,21148,18548, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 22175,17521,22121,17575, 0, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24848,14882,18248,14814,11448,14882, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24848,14868,18168,14810,11568,14868, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21669,14848,14810,24848,18069, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24886,14848,11627,24848,18027, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 23078,16618,23018,16678,21448,18248, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
DATA NODE1 /
& 21866,17830,21830,17866,24882,14814, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21680,18016,11616,18080,11680, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 21616,18080,18016,11680,11616, 0, 0, 0, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
& 24848,14859,11559,16917,14884,12717,18159,14859, 0, 0,
& 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
|