aboutsummaryrefslogtreecommitdiff
path: root/plotlib/SLAN.INC
blob: 35f70ab9a4684b4a9bda45bf514e1fed261424ce (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,12472,13183,13888,15488,16183,16472,15616,22150,16150,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21616,12688,15188,16184,16476,16368,15860,14856,15752,16044,
     & 15728,15220,14216,11616,22256,14856,    0,    0,    0,    0,
     & 26474,16183,15488,13888,13183,12472,11832,12121,12816,14416,
     & 15121,15729,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21416,14416,15121,15832,16472,16183,15488,12488,21816,12888,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25616,11616,12688,16688,22256,15356,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21616,12688,16688,22256,15256,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26474,16183,15488,13888,13183,12472,11832,12121,12816,14416,
     & 15121,15832,16150,14550,    0,    0,    0,    0,    0,    0,
     & 21616,12688,25616,16688,22256,16256,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 24888,13816,22616,15016,23688,16088,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21630,11921,12616,13916,14621,15332,16188,26788,14688,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE1 /
     & 22688,11616,26688,12045,23458,15616,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23088,12016,16016,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21416,12488,14048,16888,15816,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21616,12688,15616,16688,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21832,12472,13183,13888,15488,16183,16472,15832,15121,14416,
     & 12816,12121,11832,    0,    0,    0,    0,    0,    0,    0,
     & 21616,12688,15188,16183,16476,16262,15755,14750,12150,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21832,12472,13183,13888,15488,16183,16472,15832,15121,14416,
     & 12816,12121,11832,24331,15616,    0,    0,    0,    0,    0,
     & 21616,12688,15188,16183,16476,16262,15755,14750,12150,24750,
     & 15816,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26576,16183,15288,14088,13183,12474,12470,12761,13656,14856,
     & 15651,15942,15830,15121,14216,13016,12121,11830,    0,    0,
     & 24688,13616,22488,16888,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE2 /
     & 22688,11832,12121,12816,14416,15121,15832,16688,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22688,12582,13616,16582,16688,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22488,11952,11939,12516,13737,14046,14137,14716,15939,16352,
     & 16888,24046,14154,    0,    0,    0,    0,    0,    0,    0,
     & 22688,12582,15622,15616,26688,16582,11622,11616,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22688,12582,14256,16582,16688,24256,13616,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22688,16688,11616,15616,23356,15156,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22764,14964,15759,16150,15616,25942,13142,12338,11730,11728,
     & 12020,12816,14416,15220,15728,    0,    0,    0,    0,    0,
     & 22888,11816,22352,12860,13764,15364,16060,16252,15928,15420,
     & 14616,13016,12220,12028,    0,    0,    0,    0,    0,    0,
     & 26152,15860,15164,13564,12660,12152,11728,12020,12816,14416,
     & 15220,15728,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26488,15416,25952,15660,14964,13364,12460,11952,11528,11820,
     & 12616,14216,15020,15528,    0,    0,    0,    0,    0,    0 /
      DATA NODE3 /
     & 25726,15220,14416,12816,12020,11728,12152,12660,13564,15164,
     & 15860,16152,15941,11941,    0,    0,    0,    0,    0,    0,
     & 26872,16680,15884,14684,13880,13272,12416,22256,14856,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21616,11908,12704,14304,15108,15616,16364,26152,15860,15164,
     & 13564,12660,12152,11937,12129,12925,14525,15329,15937,    0,
     & 22688,11616,22152,12660,13564,15164,15860,16152,15616,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22416,15216,24016,14662,13562,24277,14280,14482,14782,14980,
     & 14977,14675,14375,14277,    0,    0,    0,    0,    0,    0,
     & 21416,11708,12504,13704,14508,15016,15662,14462,25175,15077,
     & 15080,15282,15582,15780,15777,15475,15175,    0,    0,    0,
     & 22888,11816,22244,15968,23250,15816,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22316,14916,23616,14688,13788,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22164,11416,22053,12360,13064,13464,13960,14153,14560,15264,
     & 15664,16160,16353,15816,24153,13724,    0,    0,    0,    0,
     & 22364,11616,22152,12660,13564,15164,15860,16152,15616,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE4 /
     & 21728,12152,12660,13564,15164,15860,16152,15728,15220,14416,
     & 12816,12020,11728,    0,    0,    0,    0,    0,    0,    0,
     & 22564,11600,22352,12860,13764,15364,16060,16352,16136,15528,
     & 14724,13124,12328,12136,    0,    0,    0,    0,    0,    0,
     & 26164,15200,25952,15660,14964,13364,12460,11952,11736,11928,
     & 12724,14324,15128,15736,    0,    0,    0,    0,    0,    0,
     & 22764,12016,22552,13060,13964,15364,16060,16352,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26256,15961,15364,13364,12661,12255,12151,12345,12941,14941,
     & 15637,15831,15726,15319,14616,12616,11919,11724,    0,    0,
     & 23484,12528,12820,13616,14816,15620,16128,22366,14966,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22364,11728,12020,12816,14416,15220,15728,26364,15616,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22364,12154,13616,16154,16364,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22164,11840,11830,12516,13529,13936,14029,14716,15830,16140,
     & 16564,23936,14042,    0,    0,    0,    0,    0,    0,    0,
     & 22564,15616,26164,11616,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE5 /
     & 22364,11937,12129,12925,14525,15329,15937,26364,15616,15108,
     & 14304,12704,11908,11616,    0,    0,    0,    0,    0,    0,
     & 22564,16164,11616,15616,23042,14742,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21728,12576,13084,13888,15488,16284,16576,15728,15220,14416,
     & 12816,12020,11728,    0,    0,    0,    0,    0,    0,    0,
     & 23578,14688,13616,22616,14616,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22576,13084,13888,15488,16284,16576,16466,15858,12336,11728,
     & 11616,15616,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22778,13284,14088,15488,16284,16576,16469,15861,15057,15753,
     & 16044,15728,15220,14416,12816,12020,11726,25057,13457,    0,
     & 26088,15016,24016,16016,26340,11940,12688,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26488,12688,12257,15057,15753,16045,15728,15220,14416,12816,
     & 12020,11728,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26578,16284,15488,13888,13084,12576,11728,12020,12816,14416,
     & 15220,15728,16045,15753,15057,13457,12553,12045,    0,    0,
     & 22688,16688,16579,13328,13216,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE6 /
     & 25357,13157,12467,12576,13084,13888,15488,16284,16576,16367,
     & 15357,16047,15728,15220,14416,12816,12020,11728,12047,13157,
     & 21726,12020,12816,14416,15220,15728,16576,16284,15488,13888,
     & 13084,12576,12259,12551,13247,14847,15751,16259,    0,    0,
     & 22002,12916,13024,12224,12116,12515,12002,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22224,13024,12916,12116,12224,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22002,12515,12116,12224,13024,12916,12002,22656,12548,13348,
     & 13456,12656,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22224,12116,12916,13024,12224,22656,12548,13348,13456,12656,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25784,16468,16384,15784,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22684,12866,13284,12684,24284,14466,14884,14284,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23124,12816,13416,13324,13124,23439,14588,13788,13439,24185,
     & 13546,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22374,12783,13588,14788,15583,15574,15066,14260,13754,13547,
     & 13439,23124,12816,13416,13324,13124,    0,    0,    0,    0 /
      DATA NODE7 /
     & 24443,13538,12743,12854,13861,14858,14443,14739,15239,15849,
     & 16065,15375,14277,12974,12063,11547,11631,12722,13922,15227,
     & 23678,12223,25178,13723,21859,15859,21440,15340,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25576,13376,12573,12167,12059,12254,12852,14452,15050,15345,
     & 15237,14731,13928,11728,23116,14188,    0,    0,    0,    0,
     & 21116,16188,22888,12484,12479,12875,13375,13779,13784,13388,
     & 12888,24616,15020,15025,14629,14129,13725,13720,14116,14616,
     & 25436,14623,13918,13216,12316,11521,11229,11437,12146,14056,
     & 14764,14872,14777,14280,13680,13077,12669,12858,15116,    0,
     & 23696,13608,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26092,15282,14665,14350,14235,14418,14808,24515,14430,14650,
     & 15072,15485,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23492,13882,14065,13950,13635,13018,12208,23784,13870,13650,
     & 13229,12816,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25794,14494,13306,14606,24694,13506,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22794,14094,12906,11606,23894,12706,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE8 /
     & 25696,14490,13853,12750,13746,13310,14304,23509,13945,13746,
     & 24691,14054,13853,    0,    0,    0,    0,    0,    0,    0,
     & 23096,14090,13453,14450,13346,12910,11804,22709,13145,13346,
     & 23890,13254,13453,    0,    0,    0,    0,    0,    0,    0,
     & 25866,11548,15330,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21866,15548,11330,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 20600,17000,    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,
     & 22265,14031,22231,14065,21248,15048,    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,
     & 20608,16696,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE9 /
     & 21634,15634,21648,15648,21662,15662,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21636,15636,21653,12059,12862,13459,13854,14452,15255,15661,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /