aboutsummaryrefslogtreecommitdiff
path: root/plotlib/MATH.INC
blob: ac04cd90aece6f78d635d665020d1df79e1303db (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 /
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21688,12488,25288,16088,21616,12416,25216,16016,22016,15688,
     & 21988,15516,22188,15716,    0,    0,    0,    0,    0,    0,
     & 21216,13988,16416,11216,21318,16118,13884,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22816,14816,22888,14888,23788,13716,23988,13916,22575,11461,
     & 11443,12529,15129,16243,16261,15175,12575,    0,    0,    0,
     & 25888,16180,16188,11688,22288,12216,22488,12416,21616,13016,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 20490,11096,11064,21964,13196,23890,14396,15296,15691,15684,
     & 13871,13864,15664,    0,    0,    0,    0,    0,    0,    0,
     & 26694,16696,16396,16191,15982,15346,15014,14805,14600,14300,
     & 14302,25014,15754,15982,    0,    0,    0,    0,    0,    0,
     & 26396,16196,15891,15573,14923,14605,14300,14100,24956,14552,
     & 14544,14940,15540,15944,15952,15556,14956,    0,    0,    0 /
      DATA NODE1 /
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21516,12616,24916,16116,21816,13888,15816,25616,13784,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22890,13396,13362,22962,13762,20479,12079,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 24416,16769,12169,14416,26565,12565,14518,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21616,14067,16416,11616,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22416,13216,24416,15216,22716,12788,22916,12988,24716,14788,
     & 24916,14988,21888,11683,11688,16088,16083,15888,    0,    0,
     & 22716,14816,15933,15971,14888,12888,11771,11733,12716,23052,
     & 14652,23056,13048,24656,14648,21973,11931,25773,15731,    0,
     & 23058,13658,14507,16196,17296,23658,13858,14613,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25616,16125,16016,11616,14654,12088,21688,15988,16179,21688,
     & 14452,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21347,11755,12255,12451,12235,12422,12916,13816,14522,15134,
     & 15552,15670,15582,14888,13988,13484,13277,13468,14362,16153 /
      DATA NODE2 /
     & 23016,14616,21674,11984,12588,13184,13766,13716,26074,15784,
     & 15188,14584,13966,13916,23184,13966,24584,13766,    0,    0,
     & 22124,13642,14456,14870,14983,14888,14688,14486,14080,13670,
     & 13253,12935,12924,13118,13516,14216,15019,15926,    0,    0,
     & 21522,11716,13016,11548,11567,12283,13188,14588,15483,16167,
     & 16148,14616,15916,16122,21976,11758,11940,25776,15958,15740,
     & 21626,11716,15916,16026,21678,11788,15988,16078,22660,12644,
     & 25060,15044,22654,15054,22650,15050,21720,15920,21784,15984,
     & 23088,14688,23016,14616,23788,13716,23988,13916,21474,11769,
     & 11842,13029,14629,15842,15969,16274,21769,12040,25969,15640,
     & 22088,11680,11688,16088,11816,16016,16025,15616,21816,11616,
     & 15888,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 26064,15554,14937,14323,13617,12916,12217,11722,11534,11746,
     & 12256,12962,13564,14064,14460,14750,14737,14919,15416,16120,
     & 21508,12655,13276,13986,14688,15287,15682,15671,15161,14256,
     & 12757,24256,15449,15837,15626,14918,13816,13016,11820,    0,
     & 21504,15866,25504,15104,14709,14317,13349,12662,12266,11866,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25184,14987,14588,13888,13485,13177,13267,13861,14857,15345,
     & 15233,14722,13716,12816,11922,11734,12150,12857,13861,    0 /
      DATA NODE3 /
     & 25559,14664,13764,12760,12052,11739,11729,12220,13116,14116,
     & 15220,21842,14142,    0,    0,    0,    0,    0,    0,    0,
     & 21645,12057,12863,13864,14962,15556,15744,15332,14427,13326,
     & 12427,11733,11645,23004,14388,    0,    0,    0,    0,    0,
     & 21557,12164,12867,13662,14246,14325,14113,13804,13500,13305,
     & 13416,13932,14950,16063,    0,    0,    0,    0,    0,    0,
     & 21759,11962,12264,12563,12661,12755,11916,22755,13360,14164,
     & 14864,15361,15556,15546,14804,    0,    0,    0,    0,    0,
     & 23164,12424,12618,13016,14116,15018,15724,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22666,12060,11751,11740,12232,13329,14329,15333,15841,16049,
     & 15958,15662,15064,14564,14160,13747,13004,    0,    0,    0,
     & 22464,11616,25764,15264,14862,13448,12037,22843,13924,14218,
     & 14616,15116,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22788,13288,13685,14074,14627,15018,15316,15716,21316,14256,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22764,11600,22130,12122,12517,12916,13716,14418,14922,15664,
     & 24922,15017,15316,15616,    0,    0,    0,    0,    0,    0,
     & 22064,12364,12562,12645,12631,12416,13825,15037,15753,15759,
     & 15662,15564,15264,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE4 /
     & 21641,12052,12962,13964,15062,15651,15641,15428,14418,13316,
     & 12119,11628,11641,    0,    0,    0,    0,    0,    0,    0,
     & 21559,11963,12566,15966,23266,12216,24766,14444,14430,14716,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 25554,12154,12469,12779,13285,13988,14788,15285,15579,15669,
     & 15554,15236,14824,14319,13816,13016,12519,12224,12036,12154,
     & 21500,12244,12655,13161,13864,14764,15460,15752,15640,15330,
     & 14223,13022,11923,    0,    0,    0,    0,    0,    0,    0,
     & 26264,13964,12962,12052,11641,11628,12119,13316,14418,15428,
     & 15641,15551,14961,13763,    0,    0,    0,    0,    0,    0,
     & 21655,12061,12764,15964,23864,13016,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21958,12162,12464,12663,12658,12239,12224,12716,13716,14521,
     & 15333,15645,15657,15463,15164,    0,    0,    0,    0,    0,
     & 25660,14964,14264,13464,12761,12254,12147,12542,11936,11728,
     & 12020,12816,13816,14618,15321,22542,14042,    0,    0,    0,
     & 22764,12056,11645,11432,11621,12116,12716,13320,13816,14416,
     & 15120,15731,15942,15953,15564,23320,13740,    0,    0,    0,
     & 25386,14086,12977,12765,13357,14457,23357,12044,11733,12023,
     & 13317,15016,15213,14810,24086,13392,    0,    0,    0,    0 /
      DATA NODE5 /
     & 21865,12163,12357,11947,11736,12025,12822,14222,15228,15938,
     & 16051,15865,23004,14388,    0,    0,    0,    0,    0,    0,
     & 25482,14482,13473,12560,11942,11931,12422,13617,15016,15314,
     & 14809,23990,14482,    0,    0,    0,    0,    0,    0,    0,
     & 21272,11864,13064,13672,13688,13096,11896,11288,11272,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21687,12496,12460,21660,13260,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21290,11896,13196,13690,13683,11268,11260,13660,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21391,11896,13196,13691,13684,13179,12079,23179,13674,13666,
     & 13060,11860,11266,    0,    0,    0,    0,    0,    0,    0,
     & 21296,11271,13771,23296,13260,22860,13560,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23696,11296,11280,13180,13675,13666,13060,11860,11266,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23691,13196,11896,11290,11266,11860,13060,13666,13675,13279,
     & 11679,11275,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21296,13696,13692,12268,12260,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE6 /
     & 21779,11284,11291,11796,13196,13691,13684,13179,13675,13665,
     & 13060,11860,11265,11275,11779,13179,    0,    0,    0,    0,
     & 23682,13177,11777,11282,11290,11896,13096,13690,13666,13060,
     & 11860,11266,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22604,13215,12616,12624,13424,13416,12604,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22624,12616,13416,13424,12624,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21620,11616,12016,12020,11620,23820,13816,14216,14220,13820,
     & 26020,16016,16416,16420,16020,    0,    0,    0,    0,    0,
     & 21466,11890,12590,11466,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22696,13496,14092,14486,14478,14072,13468,12668,12072,11678,
     & 11686,12092,12696,    0,    0,    0,    0,    0,    0,    0,
     & 23130,12822,13622,13530,13130,23441,13588,14488,13441,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE7 /
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22064,15232,22032,15264,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23775,14380,15480,16075,16365,16242,15826,15016,13716,13021,
     & 12834,13245,14153,15053,16249,    0,    0,    0,    0,    0,
     & 21648,15648,23464,13460,13860,13864,13464,23436,13432,13832,
     & 13836,13436,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22001,11201,10708,10716,11223,12023,13601,14401,14908,14916,
     & 14423,13623,12001,    0,    0,    0,    0,    0,    0,    0,
     & 23696,13608,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 24872,14159,13941,14121,14808,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22472,13159,13340,13121,12408,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /
      DATA NODE8 /
     & 24266,11648,14230,26066,13448,16030,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 21666,14248,11630,23466,16048,13430,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 27280,14016,17216,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22282,15482,24882,14786,15882,14578,14882,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 20896,17296,    0,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 23668,13628,21648,15648,    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,
     & 23146,13150,13453,13853,14150,14146,13843,13443,13146,23450,
     & 13846,23850,13446,    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 /
     & 22480,14088,15680,    0,    0,    0,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     & 22480,12985,13685,14479,15179,15684,    0,    0,    0,    0,
     &     0,    0,    0,    0,    0,    0,    0,    0,    0,    0 /