1 #include "astro.h"
2 
3 double	mercfp[] =
4 {
5 	0.013,		0.6807,
6 	0.048,		0.6283,
7 	0.185,		0.6231,
8 	0.711,		0.6191,
9 	0.285,		0.5784,
10 	0.075,		0.5411,
11 	0.019,		0.5585,
12 	0.010,		2.8449,
13 	0.039,		2.8117,
14 	0.147,		2.8135,
15 	0.552,		2.8126,
16 	2.100,		2.8126,
17 	3.724,		2.8046,
18 	0.729,		2.7883,
19 	0.186,		2.7890,
20 	0.049,		2.7943,
21 	0.013,		2.7402,
22 	0.033,		1.8361,
23 	0.118,		1.8396,
24 	0.431,		1.8391,
25 	1.329,		1.8288,
26 	0.539,		4.8686,
27 	0.111,		4.8904,
28 	0.027,		4.8956,
29 	0.012,		3.9794,
30 	0.056,		3.9636,
31 	0.294,		3.9910,
32 	0.484,		3.9514,
33 	0.070,		3.9270,
34 	0.018,		3.9270,
35 	0.013,		6.1261,
36 	0.050,		6.1052,
37 	0.185,		6.1069,
38 	0.685,		6.1011,
39 	2.810,		6.1062,
40 	7.356,		6.0699,
41 	1.471,		6.0685,
42 	0.375,		6.0687,
43 	0.098,		6.0720,
44 	0.026,		6.0476,
45 	0.062,		5.1540,
46 	0.122,		5.1191,
47 	0.011,		0.9076,
48 	0.074,		1.0123,
49 	0.106,		0.9372,
50 	0.017,		0.9425,
51 	0.020,		0.0506,
52 	0.052,		0.0384,
53 	0.052,		3.0281,
54 	0.012,		3.0543,
55 	0.011,		2.1642,
56 	0.016,		2.2340,
57 	0.040,		4.3912,
58 	0.080,		4.4262,
59 	0.016,		4.4506,
60 	0,
61 
62 	0.014,		1.0996,
63 	0.056,		1.1153,
64 	0.219,		1.1160,
65 	0.083,		1.0734,
66 	0.024,		0.9442,
67 	0.018,		3.8432,
68 	0.070,		3.8293,
69 	0.256,		3.8230,
70 	0.443,		3.8132,
71 	0.080,		3.7647,
72 	0.020,		3.7734,
73 	0.019,		0.0000,
74 	0.133,		0.1134,
75 	0.129,		6.2588,
76 	0.026,		6.2413,
77 	0.026,		2.6599,
78 	0.087,		2.6232,
79 	0.374,		2.6496,
80 	0.808,		2.5470,
81 	0.129,		2.5587,
82 	0.019,		2.5534,
83 	0.012,		2.1642,
84 	0,
85 
86 	0.014,		3.1416,
87 	0.047,		3.1625,
88 	0.179,		3.1695,
89 	0.697,		3.1603,
90 	0.574,		4.1315,
91 	0.181,		4.2537,
92 	0.047,		4.2481,
93 	0.013,		4.2062,
94 	0.018,		0.6650,
95 	0.069,		0.6405,
96 	0.253,		0.6449,
97 	0.938,		0.6454,
98 	3.275,		0.6458,
99 	0.499,		0.5569,
100 	0.119,		0.5271,
101 	0.032,		0.5184,
102 	0.030,		0.4939,
103 	0.106,		0.4171,
104 	0.353,		0.4510,
105 	0.056,		0.3840,
106 	0.013,		0.3142,
107 	0.028,		0.2531,
108 	0,
109 
110 	0.034,		0.9512,
111 	0.060,		4.7962,
112 	0.028,		4.7124,
113 	0.028,		4.1836,
114 	0.102,		4.1871,
115 	0.380,		4.1864,
116 	0.059,		4.1818,
117 	0.015,		4.2185,
118 	0.012,		4.1713,
119 	0.050,		4.1870,
120 	0,
121 
122 	0.218e-6,	5.3369,
123 	0.491e-6,	5.3281,
124 	0.172e-6,	2.1642,
125 	0.091e-6,	2.1084,
126 	0.204e-6,	1.2460,
127 	0.712e-6,	1.2413,
128 	2.370e-6,	1.2425,
129 	0.899e-6,	1.2303,
130 	0.763e-6,	4.3633,
131 	0.236e-6,	4.3590,
132 	0.163e-6,	0.2705,
133 	0.541e-6,	0.2710,
134 	1.157e-6,	0.2590,
135 	0.099e-6,	0.1798,
136 	0.360e-6,	2.4237,
137 	0.234e-6,	2.3740,
138 	0.253e-6,	4.5365,
139 	0.849e-6,	4.5293,
140 	2.954e-6,	4.5364,
141 	0.282e-6,	4.4581,
142 	1.550e-6,	1.3570,
143 	0.472e-6,	1.3561,
144 	0.135e-6,	1.3579,
145 	0.081e-6,	3.5936,
146 	0.087e-6,	3.5500,
147 	0.087e-6,	5.7334,
148 	0,
149 
150 	0.181e-6,	5.8275,
151 	0.095e-6,	2.2427,
152 	0.319e-6,	2.2534,
153 	0.256e-6,	2.2403,
154 	0.157e-6,	4.8292,
155 	0.106e-6,	1.0332,
156 	0.397e-6,	1.0756,
157 	0.143e-6,	4.0980,
158 	0,
159 
160 	0.222e-6,	1.6024,
161 	0.708e-6,	1.5949,
162 	0.191e-6,	5.7914,
163 	0.100e-6,	5.3564,
164 	0.347e-6,	5.3548,
165 	1.185e-6,	5.3576,
166 	3.268e-6,	5.3579,
167 	0.371e-6,	2.2148,
168 	0.160e-6,	2.1241,
169 	0.134e-6,	5.1260,
170 	0.347e-6,	5.1620,
171 	0
172 };
173 
174 char	merccp[] =
175 {
176 	 4,	1,
177 	 3,	1,
178 	 2,	1,
179 	 1,	1,
180 	 0,	1,
181 	-1,	1,
182 	-2,	1,
183 	 6,	2,
184 	 5,	2,
185 	 4,	2,
186 	 3,	2,
187 	 2,	2,
188 	 1,	2,
189 	 0,	2,
190 	-1,	2,
191 	-2,	2,
192 	-3,	2,
193 	 5,	3,
194 	 4,	3,
195 	 3,	3,
196 	 2,	3,
197 	 1,	3,
198 	 0,	3,
199 	-1,	3,
200 	 5,	4,
201 	 4,	4,
202 	 3,	4,
203 	 2,	4,
204 	 1,	4,
205 	 0,	4,
206 	 7,	5,
207 	 6,	5,
208 	 5,	5,
209 	 4,	5,
210 	 3,	5,
211 	 2,	5,
212 	 1,	5,
213 	 0,	5,
214 	-1,	5,
215 	-2,	5,
216 	 4,	6,
217 	 3,	6,
218 	 5,	7,
219 	 4,	7,
220 	 3,	7,
221 	 2,	7,
222 	 5,	8,
223 	 4,	8,
224 	 3,	8,
225 	 2,	8,
226 	 5,	9,
227 	 4,	9,
228 	 5,	10,
229 	 4,	10,
230 	 3,	10,
231 
232 	 3,	1,
233 	 2,	1,
234 	 1,	1,
235 	 0,	1,
236 	-1,	1,
237 	 4,	2,
238 	 3,	2,
239 	 2,	2,
240 	 1,	2,
241 	 0,	2,
242 	-1,	2,
243 	 3,	3,
244 	 2,	3,
245 	 1,	3,
246 	 0,	3,
247 	 4,	4,
248 	 3,	4,
249 	 2,	4,
250 	 1,	4,
251 	 0,	4,
252 	-1,	4,
253 	 2,	5,
254 
255 	 4,	1,
256 	 3,	1,
257 	 2,	1,
258 	 1,	1,
259 	 0,	1,
260 	-1,	1,
261 	-2,	1,
262 	-3,	1,
263 	 5,	2,
264 	 4,	2,
265 	 3,	2,
266 	 2,	2,
267 	 1,	2,
268 	 0,	2,
269 	-1,	2,
270 	-2,	2,
271 	 3,	3,
272 	 2,	3,
273 	 1,	3,
274 	 0,	3,
275 	-1,	3,
276 	 1,	4,
277 
278 	 1,	1,
279 	 0,	1,
280 	-1,	1,
281 	 3,	2,
282 	 2,	2,
283 	 1,	2,
284 	 0,	2,
285 	-1,	2,
286 	 2,	3,
287 	 1,	3,
288 
289 	 2,	1,
290 	 1,	1,
291 	 0,	1,
292 	-1,	1,
293 	 4,	2,
294 	 3,	2,
295 	 2,	2,
296 	 1,	2,
297 	 0,	2,
298 	-1,	2,
299 	 4,	3,
300 	 3,	3,
301 	 2,	3,
302 	 0,	3,
303 	 3,	4,
304 	 2,	4,
305 	 5,	5,
306 	 4,	5,
307 	 3,	5,
308 	 2,	5,
309 	 1,	5,
310 	 0,	5,
311 	-1,	5,
312 	 4,	6,
313 	 3,	6,
314 	 4,	7,
315 
316 	 1,	1,
317 	 3,	2,
318 	 2,	2,
319 	 1,	2,
320 	 2,	3,
321 	 3,	4,
322 	 2,	4,
323 	 0,	4,
324 
325 	 2,	1,
326 	 1,	1,
327 	-1,	1,
328 	 4,	2,
329 	 3,	2,
330 	 2,	2,
331 	 1,	2,
332 	 0,	2,
333 	-1,	2,
334 	 2,	3,
335 	 1,	3
336 };