aboutsummaryrefslogtreecommitdiff
path: root/plotlib/CHAR.INC
blob: 925c3ee2f25a69b4699851906e538e6bca3a0fa7 (plain)
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 /