Belle II Software development
NeutronWeight.h
1/**************************************************************************
2 * basf2 (Belle II Analysis Software Framework) *
3 * Author: The Belle II Collaboration *
4 * *
5 * See git log for contributors and copyright holders. *
6 * This file is licensed under LGPL-3.0, see LICENSE.md. *
7 **************************************************************************/
8// ==================================================
9// Get weighting factors to obtain 1MeV-equivalent neutron flux
10// Data is taken from:
11// http://sesam.desy.de/members/gunnar/Si-dfuncs.html
12// ==================================================
13
14double getNeutronWeight(double kin)
15{
16
17 if (kin < 1.025E-10) return 0;
18 else if (kin < 1.025E-10) return 1.575E-02;
19 else if (kin < 1.075E-10) return 1.537E-02;
20 else if (kin < 1.125E-10) return 1.503E-02;
21 else if (kin < 1.175E-10) return 1.470E-02;
22 else if (kin < 1.238E-10) return 1.432E-02;
23 else if (kin < 1.313E-10) return 1.391E-02;
24 else if (kin < 1.388E-10) return 1.353E-02;
25 else if (kin < 1.463E-10) return 1.317E-02;
26 else if (kin < 1.550E-10) return 1.280E-02;
27 else if (kin < 1.650E-10) return 1.242E-02;
28 else if (kin < 1.750E-10) return 1.206E-02;
29 else if (kin < 1.850E-10) return 1.172E-02;
30 else if (kin < 1.950E-10) return 1.142E-02;
31 else if (kin < 2.050E-10) return 1.113E-02;
32 else if (kin < 2.150E-10) return 1.087E-02;
33 else if (kin < 2.250E-10) return 1.063E-02;
34 else if (kin < 2.350E-10) return 1.039E-02;
35 else if (kin < 2.475E-10) return 1.013E-02;
36 else if (kin < 2.625E-10) return 9.834E-03;
37 else if (kin < 2.750E-10) return 9.609E-03;
38 else if (kin < 2.900E-10) return 9.356E-03;
39 else if (kin < 3.100E-10) return 9.048E-03;
40 else if (kin < 3.300E-10) return 8.770E-03;
41 else if (kin < 3.500E-10) return 8.516E-03;
42 else if (kin < 3.700E-10) return 8.290E-03;
43 else if (kin < 3.900E-10) return 8.075E-03;
44 else if (kin < 4.125E-10) return 7.847E-03;
45 else if (kin < 4.375E-10) return 7.622E-03;
46 else if (kin < 4.625E-10) return 7.410E-03;
47 else if (kin < 4.875E-10) return 7.219E-03;
48 else if (kin < 5.125E-10) return 7.039E-03;
49 else if (kin < 5.375E-10) return 6.875E-03;
50 else if (kin < 5.625E-10) return 6.718E-03;
51 else if (kin < 5.875E-10) return 6.575E-03;
52 else if (kin < 6.150E-10) return 6.425E-03;
53 else if (kin < 6.450E-10) return 6.274E-03;
54 else if (kin < 6.750E-10) return 6.134E-03;
55 else if (kin < 7.050E-10) return 6.002E-03;
56 else if (kin < 7.400E-10) return 5.864E-03;
57 else if (kin < 7.800E-10) return 5.709E-03;
58 else if (kin < 8.200E-10) return 5.567E-03;
59 else if (kin < 8.600E-10) return 5.438E-03;
60 else if (kin < 9.000E-10) return 5.312E-03;
61 else if (kin < 9.400E-10) return 5.200E-03;
62 else if (kin < 9.800E-10) return 5.091E-03;
63 else if (kin < 1.025E-09) return 4.978E-03;
64 else if (kin < 1.075E-09) return 4.861E-03;
65 else if (kin < 1.125E-09) return 4.751E-03;
66 else if (kin < 1.175E-09) return 4.649E-03;
67 else if (kin < 1.238E-09) return 4.530E-03;
68 else if (kin < 1.313E-09) return 4.398E-03;
69 else if (kin < 1.388E-09) return 4.278E-03;
70 else if (kin < 1.463E-09) return 4.171E-03;
71 else if (kin < 1.550E-09) return 4.049E-03;
72 else if (kin < 1.650E-09) return 3.925E-03;
73 else if (kin < 1.750E-09) return 3.810E-03;
74 else if (kin < 1.850E-09) return 3.706E-03;
75 else if (kin < 1.950E-09) return 3.609E-03;
76 else if (kin < 2.050E-09) return 3.520E-03;
77 else if (kin < 2.150E-09) return 3.437E-03;
78 else if (kin < 2.250E-09) return 3.360E-03;
79 else if (kin < 2.350E-09) return 3.287E-03;
80 else if (kin < 2.475E-09) return 3.203E-03;
81 else if (kin < 2.625E-09) return 3.110E-03;
82 else if (kin < 2.750E-09) return 3.039E-03;
83 else if (kin < 2.900E-09) return 2.962E-03;
84 else if (kin < 3.100E-09) return 2.864E-03;
85 else if (kin < 3.300E-09) return 2.776E-03;
86 else if (kin < 3.500E-09) return 2.695E-03;
87 else if (kin < 3.700E-09) return 2.621E-03;
88 else if (kin < 3.900E-09) return 2.552E-03;
89 else if (kin < 4.125E-09) return 2.482E-03;
90 else if (kin < 4.375E-09) return 2.409E-03;
91 else if (kin < 4.625E-09) return 2.344E-03;
92 else if (kin < 4.875E-09) return 2.283E-03;
93 else if (kin < 5.125E-09) return 2.226E-03;
94 else if (kin < 5.375E-09) return 2.174E-03;
95 else if (kin < 5.625E-09) return 2.125E-03;
96 else if (kin < 5.875E-09) return 2.082E-03;
97 else if (kin < 6.150E-09) return 2.034E-03;
98 else if (kin < 6.450E-09) return 1.985E-03;
99 else if (kin < 6.750E-09) return 1.941E-03;
100 else if (kin < 7.050E-09) return 1.898E-03;
101 else if (kin < 7.400E-09) return 1.853E-03;
102 else if (kin < 7.800E-09) return 1.805E-03;
103 else if (kin < 8.200E-09) return 1.760E-03;
104 else if (kin < 8.600E-09) return 1.718E-03;
105 else if (kin < 9.000E-09) return 1.680E-03;
106 else if (kin < 9.400E-09) return 1.644E-03;
107 else if (kin < 9.800E-09) return 1.610E-03;
108 else if (kin < 1.025E-08) return 1.574E-03;
109 else if (kin < 1.075E-08) return 1.537E-03;
110 else if (kin < 1.125E-08) return 1.503E-03;
111 else if (kin < 1.175E-08) return 1.472E-03;
112 else if (kin < 1.238E-08) return 1.433E-03;
113 else if (kin < 1.313E-08) return 1.392E-03;
114 else if (kin < 1.388E-08) return 1.353E-03;
115 else if (kin < 1.463E-08) return 1.318E-03;
116 else if (kin < 1.550E-08) return 1.280E-03;
117 else if (kin < 1.650E-08) return 1.241E-03;
118 else if (kin < 1.750E-08) return 1.204E-03;
119 else if (kin < 1.850E-08) return 1.172E-03;
120 else if (kin < 1.950E-08) return 1.141E-03;
121 else if (kin < 2.050E-08) return 1.113E-03;
122 else if (kin < 2.150E-08) return 1.087E-03;
123 else if (kin < 2.250E-08) return 1.062E-03;
124 else if (kin < 2.350E-08) return 1.040E-03;
125 else if (kin < 2.475E-08) return 1.013E-03;
126 else if (kin < 2.625E-08) return 9.841E-04;
127 else if (kin < 2.750E-08) return 9.619E-04;
128 else if (kin < 2.900E-08) return 9.359E-04;
129 else if (kin < 3.100E-08) return 9.058E-04;
130 else if (kin < 3.300E-08) return 8.773E-04;
131 else if (kin < 3.500E-08) return 8.523E-04;
132 else if (kin < 3.700E-08) return 8.285E-04;
133 else if (kin < 3.900E-08) return 8.073E-04;
134 else if (kin < 4.125E-08) return 7.847E-04;
135 else if (kin < 4.375E-08) return 7.619E-04;
136 else if (kin < 4.625E-08) return 7.410E-04;
137 else if (kin < 4.875E-08) return 7.215E-04;
138 else if (kin < 5.125E-08) return 7.036E-04;
139 else if (kin < 5.375E-08) return 6.871E-04;
140 else if (kin < 5.625E-08) return 6.716E-04;
141 else if (kin < 5.875E-08) return 6.578E-04;
142 else if (kin < 6.150E-08) return 6.428E-04;
143 else if (kin < 6.450E-08) return 6.273E-04;
144 else if (kin < 6.750E-08) return 6.136E-04;
145 else if (kin < 7.050E-08) return 6.001E-04;
146 else if (kin < 7.400E-08) return 5.861E-04;
147 else if (kin < 7.800E-08) return 5.707E-04;
148 else if (kin < 8.200E-08) return 5.567E-04;
149 else if (kin < 8.600E-08) return 5.434E-04;
150 else if (kin < 9.000E-08) return 5.313E-04;
151 else if (kin < 9.400E-08) return 5.197E-04;
152 else if (kin < 9.800E-08) return 5.090E-04;
153 else if (kin < 1.025E-07) return 4.976E-04;
154 else if (kin < 1.075E-07) return 4.864E-04;
155 else if (kin < 1.125E-07) return 4.753E-04;
156 else if (kin < 1.175E-07) return 4.646E-04;
157 else if (kin < 1.238E-07) return 4.531E-04;
158 else if (kin < 1.313E-07) return 4.397E-04;
159 else if (kin < 1.388E-07) return 4.279E-04;
160 else if (kin < 1.463E-07) return 4.166E-04;
161 else if (kin < 1.550E-07) return 4.049E-04;
162 else if (kin < 1.650E-07) return 3.924E-04;
163 else if (kin < 1.750E-07) return 3.810E-04;
164 else if (kin < 1.850E-07) return 3.705E-04;
165 else if (kin < 1.950E-07) return 3.607E-04;
166 else if (kin < 2.050E-07) return 3.518E-04;
167 else if (kin < 2.150E-07) return 3.437E-04;
168 else if (kin < 2.250E-07) return 3.362E-04;
169 else if (kin < 2.350E-07) return 3.286E-04;
170 else if (kin < 2.475E-07) return 3.204E-04;
171 else if (kin < 2.625E-07) return 3.111E-04;
172 else if (kin < 2.750E-07) return 3.039E-04;
173 else if (kin < 2.900E-07) return 2.962E-04;
174 else if (kin < 3.100E-07) return 2.865E-04;
175 else if (kin < 3.300E-07) return 2.775E-04;
176 else if (kin < 3.500E-07) return 2.695E-04;
177 else if (kin < 3.700E-07) return 2.620E-04;
178 else if (kin < 3.900E-07) return 2.551E-04;
179 else if (kin < 4.125E-07) return 2.483E-04;
180 else if (kin < 4.375E-07) return 2.410E-04;
181 else if (kin < 4.625E-07) return 2.343E-04;
182 else if (kin < 4.875E-07) return 2.284E-04;
183 else if (kin < 5.125E-07) return 2.226E-04;
184 else if (kin < 5.375E-07) return 2.176E-04;
185 else if (kin < 5.625E-07) return 2.128E-04;
186 else if (kin < 5.875E-07) return 2.082E-04;
187 else if (kin < 6.150E-07) return 2.034E-04;
188 else if (kin < 6.450E-07) return 1.985E-04;
189 else if (kin < 6.750E-07) return 1.941E-04;
190 else if (kin < 7.050E-07) return 1.898E-04;
191 else if (kin < 7.400E-07) return 1.852E-04;
192 else if (kin < 7.800E-07) return 1.805E-04;
193 else if (kin < 8.200E-07) return 1.762E-04;
194 else if (kin < 8.600E-07) return 1.718E-04;
195 else if (kin < 9.000E-07) return 1.679E-04;
196 else if (kin < 9.400E-07) return 1.645E-04;
197 else if (kin < 9.800E-07) return 1.610E-04;
198 else if (kin < 1.025E-06) return 1.575E-04;
199 else if (kin < 1.075E-06) return 1.542E-04;
200 else if (kin < 1.125E-06) return 1.508E-04;
201 else if (kin < 1.175E-06) return 1.474E-04;
202 else if (kin < 1.238E-06) return 1.434E-04;
203 else if (kin < 1.313E-06) return 1.393E-04;
204 else if (kin < 1.388E-06) return 1.356E-04;
205 else if (kin < 1.463E-06) return 1.318E-04;
206 else if (kin < 1.550E-06) return 1.281E-04;
207 else if (kin < 1.650E-06) return 1.242E-04;
208 else if (kin < 1.750E-06) return 1.204E-04;
209 else if (kin < 1.850E-06) return 1.172E-04;
210 else if (kin < 1.950E-06) return 1.141E-04;
211 else if (kin < 2.050E-06) return 1.114E-04;
212 else if (kin < 2.150E-06) return 1.090E-04;
213 else if (kin < 2.250E-06) return 1.066E-04;
214 else if (kin < 2.350E-06) return 1.042E-04;
215 else if (kin < 2.475E-06) return 1.013E-04;
216 else if (kin < 2.625E-06) return 9.853E-05;
217 else if (kin < 2.750E-06) return 9.627E-05;
218 else if (kin < 2.900E-06) return 9.360E-05;
219 else if (kin < 3.100E-06) return 9.056E-05;
220 else if (kin < 3.300E-06) return 8.776E-05;
221 else if (kin < 3.500E-06) return 8.513E-05;
222 else if (kin < 3.700E-06) return 8.287E-05;
223 else if (kin < 3.900E-06) return 8.065E-05;
224 else if (kin < 4.125E-06) return 7.860E-05;
225 else if (kin < 4.375E-06) return 7.644E-05;
226 else if (kin < 4.625E-06) return 7.428E-05;
227 else if (kin < 4.875E-06) return 7.217E-05;
228 else if (kin < 5.125E-06) return 7.045E-05;
229 else if (kin < 5.375E-06) return 6.885E-05;
230 else if (kin < 5.625E-06) return 6.725E-05;
231 else if (kin < 5.875E-06) return 6.569E-05;
232 else if (kin < 6.150E-06) return 6.427E-05;
233 else if (kin < 6.450E-06) return 6.278E-05;
234 else if (kin < 6.750E-06) return 6.129E-05;
235 else if (kin < 7.050E-06) return 5.998E-05;
236 else if (kin < 7.400E-06) return 5.858E-05;
237 else if (kin < 7.800E-06) return 5.701E-05;
238 else if (kin < 8.200E-06) return 5.572E-05;
239 else if (kin < 8.600E-06) return 5.450E-05;
240 else if (kin < 9.000E-06) return 5.327E-05;
241 else if (kin < 9.400E-06) return 5.205E-05;
242 else if (kin < 9.800E-06) return 5.087E-05;
243 else if (kin < 1.025E-05) return 4.981E-05;
244 else if (kin < 1.075E-05) return 4.868E-05;
245 else if (kin < 1.125E-05) return 4.754E-05;
246 else if (kin < 1.175E-05) return 4.644E-05;
247 else if (kin < 1.238E-05) return 4.531E-05;
248 else if (kin < 1.313E-05) return 4.399E-05;
249 else if (kin < 1.388E-05) return 4.274E-05;
250 else if (kin < 1.463E-05) return 4.167E-05;
251 else if (kin < 1.550E-05) return 4.045E-05;
252 else if (kin < 1.650E-05) return 3.929E-05;
253 else if (kin < 1.750E-05) return 3.821E-05;
254 else if (kin < 1.850E-05) return 3.712E-05;
255 else if (kin < 1.950E-05) return 3.607E-05;
256 else if (kin < 2.050E-05) return 3.522E-05;
257 else if (kin < 2.150E-05) return 3.442E-05;
258 else if (kin < 2.250E-05) return 3.361E-05;
259 else if (kin < 2.350E-05) return 3.284E-05;
260 else if (kin < 2.475E-05) return 3.204E-05;
261 else if (kin < 2.625E-05) return 3.110E-05;
262 else if (kin < 2.750E-05) return 3.035E-05;
263 else if (kin < 2.900E-05) return 2.959E-05;
264 else if (kin < 3.100E-05) return 2.860E-05;
265 else if (kin < 3.300E-05) return 2.778E-05;
266 else if (kin < 3.500E-05) return 2.702E-05;
267 else if (kin < 3.700E-05) return 2.625E-05;
268 else if (kin < 3.900E-05) return 2.550E-05;
269 else if (kin < 4.125E-05) return 2.483E-05;
270 else if (kin < 4.375E-05) return 2.412E-05;
271 else if (kin < 4.625E-05) return 2.342E-05;
272 else if (kin < 4.875E-05) return 2.282E-05;
273 else if (kin < 5.125E-05) return 2.227E-05;
274 else if (kin < 5.375E-05) return 2.172E-05;
275 else if (kin < 5.625E-05) return 2.123E-05;
276 else if (kin < 5.875E-05) return 2.079E-05;
277 else if (kin < 6.150E-05) return 2.030E-05;
278 else if (kin < 6.450E-05) return 1.985E-05;
279 else if (kin < 6.750E-05) return 1.944E-05;
280 else if (kin < 7.050E-05) return 1.904E-05;
281 else if (kin < 7.400E-05) return 1.856E-05;
282 else if (kin < 7.800E-05) return 1.803E-05;
283 else if (kin < 8.200E-05) return 1.761E-05;
284 else if (kin < 8.600E-05) return 1.721E-05;
285 else if (kin < 9.000E-05) return 1.681E-05;
286 else if (kin < 9.400E-05) return 1.642E-05;
287 else if (kin < 9.800E-05) return 1.610E-05;
288 else if (kin < 1.025E-04) return 1.575E-05;
289 else if (kin < 1.075E-04) return 1.536E-05;
290 else if (kin < 1.125E-04) return 1.502E-05;
291 else if (kin < 1.175E-04) return 1.470E-05;
292 else if (kin < 1.238E-04) return 1.432E-05;
293 else if (kin < 1.313E-04) return 1.393E-05;
294 else if (kin < 1.388E-04) return 1.357E-05;
295 else if (kin < 1.463E-04) return 1.321E-05;
296 else if (kin < 1.550E-04) return 1.714E-05;
297 else if (kin < 1.650E-04) return 6.792E-05;
298 else if (kin < 1.750E-04) return 1.315E-04;
299 else if (kin < 1.850E-04) return 1.938E-04;
300 else if (kin < 1.950E-04) return 2.250E-04;
301 else if (kin < 2.050E-04) return 2.433E-04;
302 else if (kin < 2.150E-04) return 2.614E-04;
303 else if (kin < 2.250E-04) return 2.754E-04;
304 else if (kin < 2.350E-04) return 2.867E-04;
305 else if (kin < 2.475E-04) return 3.007E-04;
306 else if (kin < 2.625E-04) return 3.177E-04;
307 else if (kin < 2.750E-04) return 3.318E-04;
308 else if (kin < 2.900E-04) return 3.486E-04;
309 else if (kin < 3.100E-04) return 3.712E-04;
310 else if (kin < 3.300E-04) return 3.937E-04;
311 else if (kin < 3.500E-04) return 4.163E-04;
312 else if (kin < 3.700E-04) return 4.388E-04;
313 else if (kin < 3.900E-04) return 4.613E-04;
314 else if (kin < 4.125E-04) return 4.865E-04;
315 else if (kin < 4.375E-04) return 5.146E-04;
316 else if (kin < 4.625E-04) return 5.426E-04;
317 else if (kin < 4.875E-04) return 5.706E-04;
318 else if (kin < 5.125E-04) return 5.985E-04;
319 else if (kin < 5.375E-04) return 6.264E-04;
320 else if (kin < 5.625E-04) return 6.543E-04;
321 else if (kin < 5.875E-04) return 6.822E-04;
322 else if (kin < 6.150E-04) return 7.128E-04;
323 else if (kin < 6.450E-04) return 7.462E-04;
324 else if (kin < 6.750E-04) return 7.795E-04;
325 else if (kin < 7.050E-04) return 8.128E-04;
326 else if (kin < 7.400E-04) return 8.515E-04;
327 else if (kin < 7.800E-04) return 8.957E-04;
328 else if (kin < 8.200E-04) return 9.399E-04;
329 else if (kin < 8.600E-04) return 9.840E-04;
330 else if (kin < 9.000E-04) return 1.028E-03;
331 else if (kin < 9.400E-04) return 1.072E-03;
332 else if (kin < 9.800E-04) return 1.116E-03;
333 else if (kin < 1.025E-03) return 1.165E-03;
334 else if (kin < 1.075E-03) return 1.220E-03;
335 else if (kin < 1.125E-03) return 1.274E-03;
336 else if (kin < 1.175E-03) return 1.329E-03;
337 else if (kin < 1.238E-03) return 1.397E-03;
338 else if (kin < 1.313E-03) return 1.478E-03;
339 else if (kin < 1.388E-03) return 1.559E-03;
340 else if (kin < 1.463E-03) return 1.640E-03;
341 else if (kin < 1.550E-03) return 1.734E-03;
342 else if (kin < 1.650E-03) return 1.842E-03;
343 else if (kin < 1.750E-03) return 1.949E-03;
344 else if (kin < 1.850E-03) return 2.056E-03;
345 else if (kin < 1.950E-03) return 2.162E-03;
346 else if (kin < 2.050E-03) return 2.269E-03;
347 else if (kin < 2.150E-03) return 2.382E-03;
348 else if (kin < 2.250E-03) return 4.405E-03;
349 else if (kin < 2.350E-03) return 2.589E-03;
350 else if (kin < 2.475E-03) return 2.717E-03;
351 else if (kin < 2.625E-03) return 2.874E-03;
352 else if (kin < 2.750E-03) return 3.004E-03;
353 else if (kin < 2.900E-03) return 3.159E-03;
354 else if (kin < 3.100E-03) return 3.366E-03;
355 else if (kin < 3.300E-03) return 3.573E-03;
356 else if (kin < 3.500E-03) return 3.778E-03;
357 else if (kin < 3.700E-03) return 3.982E-03;
358 else if (kin < 3.900E-03) return 4.186E-03;
359 else if (kin < 4.125E-03) return 4.413E-03;
360 else if (kin < 4.375E-03) return 4.666E-03;
361 else if (kin < 4.625E-03) return 4.917E-03;
362 else if (kin < 4.875E-03) return 5.492E-03;
363 else if (kin < 5.125E-03) return 5.419E-03;
364 else if (kin < 5.375E-03) return 5.662E-03;
365 else if (kin < 5.625E-03) return 5.907E-03;
366 else if (kin < 5.875E-03) return 6.151E-03;
367 else if (kin < 6.150E-03) return 6.418E-03;
368 else if (kin < 6.450E-03) return 6.710E-03;
369 else if (kin < 6.750E-03) return 6.999E-03;
370 else if (kin < 7.050E-03) return 7.285E-03;
371 else if (kin < 7.400E-03) return 7.618E-03;
372 else if (kin < 7.800E-03) return 7.998E-03;
373 else if (kin < 8.200E-03) return 8.372E-03;
374 else if (kin < 8.600E-03) return 8.745E-03;
375 else if (kin < 9.000E-03) return 9.115E-03;
376 else if (kin < 9.400E-03) return 9.477E-03;
377 else if (kin < 9.800E-03) return 9.838E-03;
378 else if (kin < 1.025E-02) return 1.024E-02;
379 else if (kin < 1.075E-02) return 1.069E-02;
380 else if (kin < 1.125E-02) return 1.115E-02;
381 else if (kin < 1.175E-02) return 1.159E-02;
382 else if (kin < 1.238E-02) return 1.213E-02;
383 else if (kin < 1.313E-02) return 1.277E-02;
384 else if (kin < 1.388E-02) return 1.340E-02;
385 else if (kin < 1.463E-02) return 1.403E-02;
386 else if (kin < 1.550E-02) return 1.557E-02;
387 else if (kin < 1.650E-02) return 1.554E-02;
388 else if (kin < 1.750E-02) return 1.634E-02;
389 else if (kin < 1.850E-02) return 1.710E-02;
390 else if (kin < 1.950E-02) return 1.782E-02;
391 else if (kin < 2.050E-02) return 1.854E-02;
392 else if (kin < 2.150E-02) return 1.926E-02;
393 else if (kin < 2.250E-02) return 1.998E-02;
394 else if (kin < 2.350E-02) return 2.069E-02;
395 else if (kin < 2.475E-02) return 2.150E-02;
396 else if (kin < 2.625E-02) return 2.245E-02;
397 else if (kin < 2.750E-02) return 2.317E-02;
398 else if (kin < 2.900E-02) return 2.400E-02;
399 else if (kin < 3.100E-02) return 2.509E-02;
400 else if (kin < 3.300E-02) return 2.599E-02;
401 else if (kin < 3.500E-02) return 2.675E-02;
402 else if (kin < 3.700E-02) return 2.743E-02;
403 else if (kin < 3.900E-02) return 3.247E-02;
404 else if (kin < 4.125E-02) return 2.792E-02;
405 else if (kin < 4.375E-02) return 2.739E-02;
406 else if (kin < 4.625E-02) return 2.598E-02;
407 else if (kin < 4.875E-02) return 2.288E-02;
408 else if (kin < 5.125E-02) return 1.626E-02;
409 else if (kin < 5.375E-02) return 1.485E-02;
410 else if (kin < 5.625E-02) return 5.078E-01;
411 else if (kin < 5.875E-02) return 1.145E-01;
412 else if (kin < 6.150E-02) return 7.793E-02;
413 else if (kin < 6.450E-02) return 6.706E-02;
414 else if (kin < 6.750E-02) return 6.455E-02;
415 else if (kin < 7.050E-02) return 5.988E-02;
416 else if (kin < 7.400E-02) return 5.797E-02;
417 else if (kin < 7.800E-02) return 5.636E-02;
418 else if (kin < 8.200E-02) return 5.494E-02;
419 else if (kin < 8.600E-02) return 5.374E-02;
420 else if (kin < 9.000E-02) return 5.188E-02;
421 else if (kin < 9.400E-02) return 4.992E-02;
422 else if (kin < 9.800E-02) return 4.790E-02;
423 else if (kin < 1.025E-01) return 4.526E-02;
424 else if (kin < 1.075E-01) return 4.162E-02;
425 else if (kin < 1.125E-01) return 3.764E-02;
426 else if (kin < 1.175E-01) return 3.297E-02;
427 else if (kin < 1.238E-01) return 2.645E-02;
428 else if (kin < 1.313E-01) return 1.826E-02;
429 else if (kin < 1.388E-01) return 1.121E-02;
430 else if (kin < 1.463E-01) return 1.090E-02;
431 else if (kin < 1.550E-01) return 4.848E-02;
432 else if (kin < 1.650E-01) return 2.173E-01;
433 else if (kin < 1.750E-01) return 6.987E-01;
434 else if (kin < 1.850E-01) return 1.196E+00;
435 else if (kin < 1.950E-01) return 1.162E+00;
436 else if (kin < 2.050E-01) return 9.710E-01;
437 else if (kin < 2.150E-01) return 8.288E-01;
438 else if (kin < 2.250E-01) return 7.334E-01;
439 else if (kin < 2.350E-01) return 6.709E-01;
440 else if (kin < 2.475E-01) return 6.172E-01;
441 else if (kin < 2.625E-01) return 5.768E-01;
442 else if (kin < 2.750E-01) return 5.547E-01;
443 else if (kin < 2.900E-01) return 5.393E-01;
444 else if (kin < 3.100E-01) return 5.237E-01;
445 else if (kin < 3.300E-01) return 5.198E-01;
446 else if (kin < 3.500E-01) return 5.097E-01;
447 else if (kin < 3.700E-01) return 5.036E-01;
448 else if (kin < 3.900E-01) return 5.320E-01;
449 else if (kin < 4.125E-01) return 5.403E-01;
450 else if (kin < 4.375E-01) return 5.451E-01;
451 else if (kin < 4.625E-01) return 5.581E-01;
452 else if (kin < 4.875E-01) return 5.740E-01;
453 else if (kin < 5.125E-01) return 5.987E-01;
454 else if (kin < 5.375E-01) return 7.554E-01;
455 else if (kin < 5.625E-01) return 1.280E+00;
456 else if (kin < 5.875E-01) return 5.997E-01;
457 else if (kin < 6.150E-01) return 5.425E-01;
458 else if (kin < 6.450E-01) return 5.536E-01;
459 else if (kin < 6.750E-01) return 5.786E-01;
460 else if (kin < 7.050E-01) return 6.019E-01;
461 else if (kin < 7.400E-01) return 6.724E-01;
462 else if (kin < 7.800E-01) return 9.209E-01;
463 else if (kin < 8.200E-01) return 1.459E+00;
464 else if (kin < 8.600E-01) return 8.318E-01;
465 else if (kin < 9.000E-01) return 9.434E-01;
466 else if (kin < 9.400E-01) return 1.172E+00;
467 else if (kin < 9.800E-01) return 1.174E+00;
468 else if (kin < 1.050E+00) return 8.020E-01;
469 else if (kin < 1.150E+00) return 6.578E-01;
470 else if (kin < 1.250E+00) return 9.680E-01;
471 else if (kin < 1.350E+00) return 9.410E-01;
472 else if (kin < 1.450E+00) return 1.079E+00;
473 else if (kin < 1.550E+00) return 1.128E+00;
474 else if (kin < 1.650E+00) return 1.766E+00;
475 else if (kin < 1.750E+00) return 8.366E-01;
476 else if (kin < 1.850E+00) return 1.411E+00;
477 else if (kin < 1.950E+00) return 1.393E+00;
478 else if (kin < 2.050E+00) return 1.022E+00;
479 else if (kin < 2.150E+00) return 1.159E+00;
480 else if (kin < 2.250E+00) return 1.126E+00;
481 else if (kin < 2.350E+00) return 1.106E+00;
482 else if (kin < 2.450E+00) return 1.267E+00;
483 else if (kin < 2.550E+00) return 1.384E+00;
484 else if (kin < 2.650E+00) return 1.238E+00;
485 else if (kin < 2.750E+00) return 1.153E+00;
486 else if (kin < 2.850E+00) return 1.437E+00;
487 else if (kin < 2.950E+00) return 1.061E+00;
488 else if (kin < 3.050E+00) return 1.278E+00;
489 else if (kin < 3.150E+00) return 1.427E+00;
490 else if (kin < 3.250E+00) return 1.281E+00;
491 else if (kin < 3.350E+00) return 1.217E+00;
492 else if (kin < 3.450E+00) return 1.259E+00;
493 else if (kin < 3.550E+00) return 1.213E+00;
494 else if (kin < 3.650E+00) return 7.506E-01;
495 else if (kin < 3.750E+00) return 1.235E+00;
496 else if (kin < 3.850E+00) return 1.187E+00;
497 else if (kin < 3.950E+00) return 1.452E+00;
498 else if (kin < 4.050E+00) return 1.431E+00;
499 else if (kin < 4.150E+00) return 1.147E+00;
500 else if (kin < 4.250E+00) return 1.782E+00;
501 else if (kin < 4.350E+00) return 1.442E+00;
502 else if (kin < 4.450E+00) return 1.509E+00;
503 else if (kin < 4.550E+00) return 1.498E+00;
504 else if (kin < 4.650E+00) return 1.673E+00;
505 else if (kin < 4.750E+00) return 2.003E+00;
506 else if (kin < 4.850E+00) return 1.717E+00;
507 else if (kin < 4.950E+00) return 1.579E+00;
508 else if (kin < 5.050E+00) return 1.612E+00;
509 else if (kin < 5.150E+00) return 1.831E+00;
510 else if (kin < 5.250E+00) return 1.605E+00;
511 else if (kin < 5.350E+00) return 1.336E+00;
512 else if (kin < 5.450E+00) return 1.277E+00;
513 else if (kin < 5.550E+00) return 1.567E+00;
514 else if (kin < 5.650E+00) return 1.616E+00;
515 else if (kin < 5.750E+00) return 1.929E+00;
516 else if (kin < 5.850E+00) return 1.794E+00;
517 else if (kin < 5.950E+00) return 1.468E+00;
518 else if (kin < 6.050E+00) return 1.666E+00;
519 else if (kin < 6.150E+00) return 1.364E+00;
520 else if (kin < 6.250E+00) return 1.900E+00;
521 else if (kin < 6.350E+00) return 1.641E+00;
522 else if (kin < 6.450E+00) return 1.514E+00;
523 else if (kin < 6.550E+00) return 1.314E+00;
524 else if (kin < 6.650E+00) return 1.611E+00;
525 else if (kin < 6.750E+00) return 1.778E+00;
526 else if (kin < 6.850E+00) return 1.577E+00;
527 else if (kin < 6.950E+00) return 1.521E+00;
528 else if (kin < 7.050E+00) return 1.770E+00;
529 else if (kin < 7.150E+00) return 1.470E+00;
530 else if (kin < 7.250E+00) return 1.803E+00;
531 else if (kin < 7.350E+00) return 1.818E+00;
532 else if (kin < 7.450E+00) return 1.793E+00;
533 else if (kin < 7.550E+00) return 1.757E+00;
534 else if (kin < 7.650E+00) return 1.794E+00;
535 else if (kin < 7.750E+00) return 1.866E+00;
536 else if (kin < 7.850E+00) return 1.861E+00;
537 else if (kin < 7.950E+00) return 1.992E+00;
538 else if (kin < 8.050E+00) return 1.806E+00;
539 else if (kin < 8.150E+00) return 1.663E+00;
540 else if (kin < 8.250E+00) return 1.743E+00;
541 else if (kin < 8.350E+00) return 1.768E+00;
542 else if (kin < 8.450E+00) return 1.782E+00;
543 else if (kin < 8.550E+00) return 1.771E+00;
544 else if (kin < 8.650E+00) return 1.769E+00;
545 else if (kin < 8.750E+00) return 1.589E+00;
546 else if (kin < 8.850E+00) return 1.685E+00;
547 else if (kin < 8.950E+00) return 1.871E+00;
548 else if (kin < 9.050E+00) return 1.876E+00;
549 else if (kin < 9.150E+00) return 1.686E+00;
550 else if (kin < 9.250E+00) return 1.619E+00;
551 else if (kin < 9.350E+00) return 1.751E+00;
552 else if (kin < 9.450E+00) return 1.824E+00;
553 else if (kin < 9.550E+00) return 1.767E+00;
554 else if (kin < 9.650E+00) return 1.669E+00;
555 else if (kin < 9.750E+00) return 1.707E+00;
556 else if (kin < 9.850E+00) return 1.754E+00;
557 else if (kin < 9.950E+00) return 1.780E+00;
558 else if (kin < 1.005E+01) return 1.760E+00;
559 else if (kin < 1.015E+01) return 1.782E+00;
560 else if (kin < 1.025E+01) return 1.764E+00;
561 else if (kin < 1.035E+01) return 1.772E+00;
562 else if (kin < 1.045E+01) return 1.709E+00;
563 else if (kin < 1.055E+01) return 1.696E+00;
564 else if (kin < 1.065E+01) return 1.674E+00;
565 else if (kin < 1.075E+01) return 1.726E+00;
566 else if (kin < 1.085E+01) return 1.765E+00;
567 else if (kin < 1.095E+01) return 1.765E+00;
568 else if (kin < 1.105E+01) return 1.736E+00;
569 else if (kin < 1.115E+01) return 1.680E+00;
570 else if (kin < 1.125E+01) return 1.692E+00;
571 else if (kin < 1.135E+01) return 1.735E+00;
572 else if (kin < 1.145E+01) return 1.765E+00;
573 else if (kin < 1.155E+01) return 1.778E+00;
574 else if (kin < 1.165E+01) return 1.767E+00;
575 else if (kin < 1.175E+01) return 1.751E+00;
576 else if (kin < 1.185E+01) return 1.754E+00;
577 else if (kin < 1.195E+01) return 1.767E+00;
578 else if (kin < 1.205E+01) return 1.784E+00;
579 else if (kin < 1.215E+01) return 1.812E+00;
580 else if (kin < 1.225E+01) return 1.816E+00;
581 else if (kin < 1.235E+01) return 1.822E+00;
582 else if (kin < 1.245E+01) return 1.791E+00;
583 else if (kin < 1.255E+01) return 1.757E+00;
584 else if (kin < 1.265E+01) return 1.837E+00;
585 else if (kin < 1.275E+01) return 1.856E+00;
586 else if (kin < 1.285E+01) return 1.850E+00;
587 else if (kin < 1.295E+01) return 1.853E+00;
588 else if (kin < 1.305E+01) return 1.862E+00;
589 else if (kin < 1.315E+01) return 1.828E+00;
590 else if (kin < 1.325E+01) return 1.793E+00;
591 else if (kin < 1.335E+01) return 1.806E+00;
592 else if (kin < 1.345E+01) return 1.839E+00;
593 else if (kin < 1.355E+01) return 1.802E+00;
594 else if (kin < 1.365E+01) return 1.780E+00;
595 else if (kin < 1.375E+01) return 1.804E+00;
596 else if (kin < 1.385E+01) return 1.870E+00;
597 else if (kin < 1.395E+01) return 1.808E+00;
598 else if (kin < 1.405E+01) return 1.787E+00;
599 else if (kin < 1.415E+01) return 1.817E+00;
600 else if (kin < 1.425E+01) return 1.830E+00;
601 else if (kin < 1.435E+01) return 1.843E+00;
602 else if (kin < 1.445E+01) return 1.845E+00;
603 else if (kin < 1.455E+01) return 1.791E+00;
604 else if (kin < 1.465E+01) return 1.765E+00;
605 else if (kin < 1.475E+01) return 1.774E+00;
606 else if (kin < 1.485E+01) return 1.808E+00;
607 else if (kin < 1.495E+01) return 1.813E+00;
608 else if (kin < 1.505E+01) return 1.773E+00;
609 else if (kin < 1.515E+01) return 1.801E+00;
610 else if (kin < 1.525E+01) return 1.842E+00;
611 else if (kin < 1.535E+01) return 1.841E+00;
612 else if (kin < 1.545E+01) return 1.828E+00;
613 else if (kin < 1.555E+01) return 1.808E+00;
614 else if (kin < 1.565E+01) return 1.806E+00;
615 else if (kin < 1.575E+01) return 1.817E+00;
616 else if (kin < 1.585E+01) return 1.858E+00;
617 else if (kin < 1.595E+01) return 1.891E+00;
618 else if (kin < 1.605E+01) return 1.899E+00;
619 else if (kin < 1.615E+01) return 1.899E+00;
620 else if (kin < 1.625E+01) return 1.893E+00;
621 else if (kin < 1.635E+01) return 1.880E+00;
622 else if (kin < 1.645E+01) return 1.869E+00;
623 else if (kin < 1.655E+01) return 1.918E+00;
624 else if (kin < 1.665E+01) return 1.970E+00;
625 else if (kin < 1.675E+01) return 1.952E+00;
626 else if (kin < 1.685E+01) return 1.929E+00;
627 else if (kin < 1.695E+01) return 1.935E+00;
628 else if (kin < 1.705E+01) return 1.940E+00;
629 else if (kin < 1.715E+01) return 1.937E+00;
630 else if (kin < 1.725E+01) return 1.934E+00;
631 else if (kin < 1.735E+01) return 1.935E+00;
632 else if (kin < 1.745E+01) return 1.932E+00;
633 else if (kin < 1.755E+01) return 1.917E+00;
634 else if (kin < 1.765E+01) return 1.906E+00;
635 else if (kin < 1.775E+01) return 1.914E+00;
636 else if (kin < 1.785E+01) return 1.926E+00;
637 else if (kin < 1.795E+01) return 1.951E+00;
638 else if (kin < 1.805E+01) return 1.974E+00;
639 else if (kin < 1.815E+01) return 1.965E+00;
640 else if (kin < 1.825E+01) return 1.950E+00;
641 else if (kin < 1.835E+01) return 1.938E+00;
642 else if (kin < 1.845E+01) return 1.926E+00;
643 else if (kin < 1.855E+01) return 1.945E+00;
644 else if (kin < 1.865E+01) return 1.986E+00;
645 else if (kin < 1.875E+01) return 2.008E+00;
646 else if (kin < 1.885E+01) return 1.999E+00;
647 else if (kin < 1.895E+01) return 1.989E+00;
648 else if (kin < 1.905E+01) return 1.974E+00;
649 else if (kin < 1.915E+01) return 1.960E+00;
650 else if (kin < 1.925E+01) return 1.955E+00;
651 else if (kin < 1.935E+01) return 1.953E+00;
652 else if (kin < 1.945E+01) return 1.953E+00;
653 else if (kin < 1.955E+01) return 1.955E+00;
654 else if (kin < 1.965E+01) return 1.958E+00;
655 else if (kin < 1.975E+01) return 1.963E+00;
656 else if (kin < 1.985E+01) return 1.969E+00;
657 else if (kin < 1.995E+01) return 1.975E+00;
658 else if (kin < 8.050E+02) return 6.004E-01;
659 else if (kin < 8.150E+02) return 5.980E-01;
660 else if (kin < 8.250E+02) return 5.959E-01;
661 else if (kin < 8.350E+02) return 5.942E-01;
662 else if (kin < 8.450E+02) return 5.932E-01;
663 else if (kin < 8.550E+02) return 5.922E-01;
664 else if (kin < 8.650E+02) return 5.912E-01;
665 else if (kin < 8.750E+02) return 5.902E-01;
666 else if (kin < 8.850E+02) return 5.892E-01;
667 else if (kin < 8.950E+02) return 5.883E-01;
668 else if (kin < 9.050E+02) return 5.873E-01;
669 else if (kin < 9.150E+02) return 5.863E-01;
670 else if (kin < 9.250E+02) return 5.854E-01;
671 else if (kin < 9.350E+02) return 5.845E-01;
672 else if (kin < 9.450E+02) return 5.836E-01;
673 else if (kin < 9.550E+02) return 5.828E-01;
674 else if (kin < 9.650E+02) return 5.819E-01;
675 else if (kin < 9.750E+02) return 5.810E-01;
676 else if (kin < 9.850E+02) return 5.801E-01;
677 else if (kin < 9.950E+02) return 5.793E-01;
678 else if (kin < 1.005E+03) return 5.784E-01;
679 else if (kin < 1.015E+03) return 5.773E-01;
680 else if (kin < 1.025E+03) return 5.763E-01;
681 else if (kin < 1.035E+03) return 5.752E-01;
682 else if (kin < 1.045E+03) return 5.741E-01;
683 else if (kin < 1.055E+03) return 5.734E-01;
684 else if (kin < 1.065E+03) return 5.728E-01;
685 else if (kin < 1.075E+03) return 5.722E-01;
686 else if (kin < 1.085E+03) return 5.716E-01;
687 else if (kin < 1.095E+03) return 5.711E-01;
688 else if (kin < 1.105E+03) return 5.708E-01;
689 else if (kin < 1.115E+03) return 5.704E-01;
690 else if (kin < 1.125E+03) return 5.701E-01;
691 else if (kin < 1.135E+03) return 5.698E-01;
692 else if (kin < 1.145E+03) return 5.694E-01;
693 else if (kin < 1.155E+03) return 5.691E-01;
694 else if (kin < 1.165E+03) return 5.688E-01;
695 else if (kin < 1.175E+03) return 5.684E-01;
696 else if (kin < 1.185E+03) return 5.681E-01;
697 else if (kin < 1.195E+03) return 5.678E-01;
698 else if (kin < 1.205E+03) return 5.674E-01;
699 else if (kin < 1.215E+03) return 5.671E-01;
700 else if (kin < 1.225E+03) return 5.668E-01;
701 else if (kin < 1.235E+03) return 5.664E-01;
702 else if (kin < 1.245E+03) return 5.661E-01;
703 else if (kin < 1.255E+03) return 5.658E-01;
704 else if (kin < 1.265E+03) return 5.655E-01;
705 else if (kin < 1.275E+03) return 5.650E-01;
706 else if (kin < 1.285E+03) return 5.643E-01;
707 else if (kin < 1.295E+03) return 5.636E-01;
708 else if (kin < 1.305E+03) return 5.628E-01;
709 else if (kin < 1.315E+03) return 5.621E-01;
710 else if (kin < 1.325E+03) return 5.614E-01;
711 else if (kin < 1.335E+03) return 5.607E-01;
712 else if (kin < 1.345E+03) return 5.600E-01;
713 else if (kin < 1.355E+03) return 5.593E-01;
714 else if (kin < 1.365E+03) return 5.587E-01;
715 else if (kin < 1.375E+03) return 5.581E-01;
716 else if (kin < 1.385E+03) return 5.575E-01;
717 else if (kin < 1.395E+03) return 5.569E-01;
718 else if (kin < 1.405E+03) return 5.563E-01;
719 else if (kin < 1.415E+03) return 5.557E-01;
720 else if (kin < 1.425E+03) return 5.551E-01;
721 else if (kin < 1.435E+03) return 5.545E-01;
722 else if (kin < 1.445E+03) return 5.539E-01;
723 else if (kin < 1.455E+03) return 5.533E-01;
724 else if (kin < 1.465E+03) return 5.527E-01;
725 else if (kin < 1.485E+03) return 5.515E-01;
726 else if (kin < 1.495E+03) return 5.510E-01;
727 else if (kin < 1.505E+03) return 5.504E-01;
728 else if (kin < 1.515E+03) return 5.498E-01;
729 else if (kin < 1.535E+03) return 5.486E-01;
730 else if (kin < 1.545E+03) return 5.480E-01;
731 else if (kin < 1.555E+03) return 5.474E-01;
732 else if (kin < 1.565E+03) return 5.468E-01;
733 else if (kin < 1.585E+03) return 5.457E-01;
734 else if (kin < 1.595E+03) return 5.451E-01;
735 else if (kin < 1.605E+03) return 5.445E-01;
736 else if (kin < 1.615E+03) return 5.439E-01;
737 else if (kin < 1.635E+03) return 5.427E-01;
738 else if (kin < 1.645E+03) return 5.421E-01;
739 else if (kin < 1.655E+03) return 5.416E-01;
740 else if (kin < 1.665E+03) return 5.410E-01;
741 else if (kin < 1.695E+03) return 5.392E-01;
742 else if (kin < 1.705E+03) return 5.387E-01;
743 else if (kin < 1.715E+03) return 5.381E-01;
744 else if (kin < 1.735E+03) return 5.369E-01;
745 else if (kin < 1.755E+03) return 5.358E-01;
746 else if (kin < 1.765E+03) return 5.354E-01;
747 else if (kin < 1.785E+03) return 5.345E-01;
748 else if (kin < 1.795E+03) return 5.341E-01;
749 else if (kin < 1.815E+03) return 5.332E-01;
750 else if (kin < 1.835E+03) return 5.323E-01;
751 else if (kin < 1.845E+03) return 5.319E-01;
752 else if (kin < 1.855E+03) return 5.315E-01;
753 else if (kin < 1.885E+03) return 5.302E-01;
754 else if (kin < 1.895E+03) return 5.297E-01;
755 else if (kin < 1.905E+03) return 5.293E-01;
756 else if (kin < 1.915E+03) return 5.289E-01;
757 else if (kin < 1.945E+03) return 5.276E-01;
758 else if (kin < 1.955E+03) return 5.272E-01;
759 else if (kin < 1.965E+03) return 5.267E-01;
760 else if (kin < 1.985E+03) return 5.259E-01;
761 else if (kin < 2.005E+03) return 5.250E-01;
762 else if (kin < 2.015E+03) return 5.246E-01;
763 else if (kin < 2.035E+03) return 5.237E-01;
764 else if (kin < 2.045E+03) return 5.233E-01;
765 else if (kin < 2.065E+03) return 5.225E-01;
766 else if (kin < 2.085E+03) return 5.216E-01;
767 else if (kin < 2.095E+03) return 5.212E-01;
768 else if (kin < 2.105E+03) return 5.208E-01;
769 else if (kin < 2.135E+03) return 5.195E-01;
770 else if (kin < 2.145E+03) return 5.191E-01;
771 else if (kin < 2.155E+03) return 5.187E-01;
772 else if (kin < 2.165E+03) return 5.182E-01;
773 else if (kin < 2.195E+03) return 5.170E-01;
774 else if (kin < 2.205E+03) return 5.166E-01;
775 else if (kin < 2.215E+03) return 5.161E-01;
776 else if (kin < 2.235E+03) return 5.153E-01;
777 else if (kin < 2.255E+03) return 5.145E-01;
778 else if (kin < 2.265E+03) return 5.140E-01;
779 else if (kin < 2.285E+03) return 5.137E-01;
780 else if (kin < 2.295E+03) return 5.136E-01;
781 else if (kin < 2.315E+03) return 5.134E-01;
782 else if (kin < 2.335E+03) return 5.132E-01;
783 else if (kin < 2.345E+03) return 5.131E-01;
784 else if (kin < 2.355E+03) return 5.130E-01;
785 else if (kin < 2.385E+03) return 5.126E-01;
786 else if (kin < 2.395E+03) return 5.125E-01;
787 else if (kin < 2.405E+03) return 5.124E-01;
788 else if (kin < 2.415E+03) return 5.123E-01;
789 else if (kin < 2.435E+03) return 5.121E-01;
790 else if (kin < 2.445E+03) return 5.120E-01;
791 else if (kin < 2.455E+03) return 5.119E-01;
792 else if (kin < 2.465E+03) return 5.118E-01;
793 else if (kin < 2.485E+03) return 5.115E-01;
794 else if (kin < 2.495E+03) return 5.114E-01;
795 else if (kin < 2.505E+03) return 5.113E-01;
796 else if (kin < 2.515E+03) return 5.112E-01;
797 else if (kin < 2.535E+03) return 5.110E-01;
798 else if (kin < 2.545E+03) return 5.109E-01;
799 else if (kin < 2.555E+03) return 5.108E-01;
800 else if (kin < 2.565E+03) return 5.107E-01;
801 else if (kin < 2.585E+03) return 5.105E-01;
802 else if (kin < 2.595E+03) return 5.104E-01;
803 else if (kin < 2.605E+03) return 5.102E-01;
804 else if (kin < 2.615E+03) return 5.101E-01;
805 else if (kin < 2.635E+03) return 5.099E-01;
806 else if (kin < 2.645E+03) return 5.098E-01;
807 else if (kin < 2.655E+03) return 5.097E-01;
808 else if (kin < 2.665E+03) return 5.096E-01;
809 else if (kin < 2.685E+03) return 5.094E-01;
810 else if (kin < 2.695E+03) return 5.093E-01;
811 else if (kin < 2.705E+03) return 5.092E-01;
812 else if (kin < 2.715E+03) return 5.091E-01;
813 else if (kin < 2.735E+03) return 5.088E-01;
814 else if (kin < 2.745E+03) return 5.087E-01;
815 else if (kin < 2.755E+03) return 5.086E-01;
816 else if (kin < 2.765E+03) return 5.085E-01;
817 else if (kin < 2.785E+03) return 5.083E-01;
818 else if (kin < 2.795E+03) return 5.082E-01;
819 else if (kin < 2.805E+03) return 5.081E-01;
820 else if (kin < 2.815E+03) return 5.080E-01;
821 else if (kin < 2.835E+03) return 5.078E-01;
822 else if (kin < 2.845E+03) return 5.077E-01;
823 else if (kin < 2.855E+03) return 5.076E-01;
824 else if (kin < 2.865E+03) return 5.074E-01;
825 else if (kin < 2.885E+03) return 5.072E-01;
826 else if (kin < 2.895E+03) return 5.071E-01;
827 else if (kin < 2.905E+03) return 5.070E-01;
828 else if (kin < 2.915E+03) return 5.069E-01;
829 else if (kin < 2.935E+03) return 5.067E-01;
830 else if (kin < 2.945E+03) return 5.066E-01;
831 else if (kin < 2.955E+03) return 5.065E-01;
832 else if (kin < 2.965E+03) return 5.064E-01;
833 else if (kin < 2.985E+03) return 5.062E-01;
834 else if (kin < 2.995E+03) return 5.060E-01;
835 else if (kin < 3.005E+03) return 5.059E-01;
836 else if (kin < 3.015E+03) return 5.058E-01;
837 else if (kin < 3.035E+03) return 5.056E-01;
838 else if (kin < 3.045E+03) return 5.055E-01;
839 else if (kin < 3.055E+03) return 5.054E-01;
840 else if (kin < 3.065E+03) return 5.053E-01;
841 else if (kin < 3.085E+03) return 5.051E-01;
842 else if (kin < 3.095E+03) return 5.050E-01;
843 else if (kin < 3.105E+03) return 5.049E-01;
844 else if (kin < 3.115E+03) return 5.048E-01;
845 else if (kin < 3.135E+03) return 5.046E-01;
846 else if (kin < 3.145E+03) return 5.044E-01;
847 else if (kin < 3.155E+03) return 5.043E-01;
848 else if (kin < 3.165E+03) return 5.042E-01;
849 else if (kin < 3.185E+03) return 5.040E-01;
850 else if (kin < 3.195E+03) return 5.039E-01;
851 else if (kin < 3.205E+03) return 5.038E-01;
852 else if (kin < 3.215E+03) return 5.037E-01;
853 else if (kin < 3.235E+03) return 5.035E-01;
854 else if (kin < 3.245E+03) return 5.034E-01;
855 else if (kin < 3.255E+03) return 5.033E-01;
856 else if (kin < 3.265E+03) return 5.032E-01;
857 else if (kin < 3.285E+03) return 5.030E-01;
858 else if (kin < 3.295E+03) return 5.028E-01;
859 else if (kin < 3.305E+03) return 5.027E-01;
860 else if (kin < 3.315E+03) return 5.026E-01;
861 else if (kin < 3.335E+03) return 5.024E-01;
862 else if (kin < 3.345E+03) return 5.023E-01;
863 else if (kin < 3.355E+03) return 5.022E-01;
864 else if (kin < 3.365E+03) return 5.021E-01;
865 else if (kin < 3.385E+03) return 5.019E-01;
866 else if (kin < 3.395E+03) return 5.018E-01;
867 else if (kin < 3.405E+03) return 5.017E-01;
868 else if (kin < 3.415E+03) return 5.016E-01;
869 else if (kin < 3.435E+03) return 5.014E-01;
870 else if (kin < 3.445E+03) return 5.013E-01;
871 else if (kin < 3.455E+03) return 5.011E-01;
872 else if (kin < 3.465E+03) return 5.010E-01;
873 else if (kin < 3.485E+03) return 5.008E-01;
874 else if (kin < 3.495E+03) return 5.007E-01;
875 else if (kin < 3.505E+03) return 5.006E-01;
876 else if (kin < 3.515E+03) return 5.005E-01;
877 else if (kin < 3.535E+03) return 5.003E-01;
878 else if (kin < 3.545E+03) return 5.002E-01;
879 else if (kin < 3.555E+03) return 5.001E-01;
880 else if (kin < 3.565E+03) return 5.000E-01;
881 else if (kin < 3.585E+03) return 4.998E-01;
882 else if (kin < 3.595E+03) return 4.997E-01;
883 else if (kin < 3.605E+03) return 4.996E-01;
884 else if (kin < 3.615E+03) return 4.995E-01;
885 else if (kin < 3.635E+03) return 4.992E-01;
886 else if (kin < 3.645E+03) return 4.991E-01;
887 else if (kin < 3.655E+03) return 4.990E-01;
888 else if (kin < 3.665E+03) return 4.989E-01;
889 else if (kin < 3.685E+03) return 4.987E-01;
890 else if (kin < 3.695E+03) return 4.986E-01;
891 else if (kin < 3.705E+03) return 4.985E-01;
892 else if (kin < 3.715E+03) return 4.984E-01;
893 else if (kin < 3.735E+03) return 4.982E-01;
894 else if (kin < 3.745E+03) return 4.981E-01;
895 else if (kin < 3.755E+03) return 4.980E-01;
896 else if (kin < 3.765E+03) return 4.979E-01;
897 else if (kin < 3.785E+03) return 4.977E-01;
898 else if (kin < 3.795E+03) return 4.976E-01;
899 else if (kin < 3.805E+03) return 4.975E-01;
900 else if (kin < 3.815E+03) return 4.974E-01;
901 else if (kin < 3.835E+03) return 4.971E-01;
902 else if (kin < 3.845E+03) return 4.970E-01;
903 else if (kin < 3.855E+03) return 4.969E-01;
904 else if (kin < 3.865E+03) return 4.968E-01;
905 else if (kin < 3.885E+03) return 4.966E-01;
906 else if (kin < 3.895E+03) return 4.965E-01;
907 else if (kin < 3.905E+03) return 4.964E-01;
908 else if (kin < 3.915E+03) return 4.963E-01;
909 else if (kin < 3.935E+03) return 4.961E-01;
910 else if (kin < 3.945E+03) return 4.960E-01;
911 else if (kin < 3.955E+03) return 4.959E-01;
912 else if (kin < 3.965E+03) return 4.958E-01;
913 else if (kin < 3.985E+03) return 4.956E-01;
914 else if (kin < 3.995E+03) return 4.955E-01;
915 else if (kin < 4.005E+03) return 4.954E-01;
916 else if (kin < 4.015E+03) return 4.953E-01;
917 else if (kin < 4.025E+03) return 4.952E-01;
918 else if (kin < 4.035E+03) return 4.950E-01;
919 else if (kin < 4.045E+03) return 4.949E-01;
920 else if (kin < 4.055E+03) return 4.948E-01;
921 else if (kin < 4.065E+03) return 4.947E-01;
922 else if (kin < 4.075E+03) return 4.946E-01;
923 else if (kin < 4.085E+03) return 4.945E-01;
924 else if (kin < 4.095E+03) return 4.944E-01;
925 else if (kin < 4.105E+03) return 4.943E-01;
926 else if (kin < 4.115E+03) return 4.942E-01;
927 else if (kin < 4.125E+03) return 4.941E-01;
928 else if (kin < 4.135E+03) return 4.940E-01;
929 else if (kin < 4.145E+03) return 4.939E-01;
930 else if (kin < 4.155E+03) return 4.938E-01;
931 else if (kin < 4.165E+03) return 4.937E-01;
932 else if (kin < 4.175E+03) return 4.936E-01;
933 else if (kin < 4.185E+03) return 4.935E-01;
934 else if (kin < 4.195E+03) return 4.934E-01;
935 else if (kin < 4.205E+03) return 4.933E-01;
936 else if (kin < 4.215E+03) return 4.932E-01;
937 else if (kin < 4.225E+03) return 4.931E-01;
938 else if (kin < 4.235E+03) return 4.930E-01;
939 else if (kin < 4.245E+03) return 4.929E-01;
940 else if (kin < 4.255E+03) return 4.928E-01;
941 else if (kin < 4.265E+03) return 4.927E-01;
942 else if (kin < 4.275E+03) return 4.925E-01;
943 else if (kin < 4.285E+03) return 4.924E-01;
944 else if (kin < 4.295E+03) return 4.923E-01;
945 else if (kin < 4.305E+03) return 4.922E-01;
946 else if (kin < 4.315E+03) return 4.921E-01;
947 else if (kin < 4.325E+03) return 4.920E-01;
948 else if (kin < 4.335E+03) return 4.919E-01;
949 else if (kin < 4.345E+03) return 4.918E-01;
950 else if (kin < 4.355E+03) return 4.917E-01;
951 else if (kin < 4.365E+03) return 4.916E-01;
952 else if (kin < 4.375E+03) return 4.915E-01;
953 else if (kin < 4.385E+03) return 4.914E-01;
954 else if (kin < 4.395E+03) return 4.913E-01;
955 else if (kin < 4.405E+03) return 4.912E-01;
956 else if (kin < 4.415E+03) return 4.911E-01;
957 else if (kin < 4.425E+03) return 4.910E-01;
958 else if (kin < 4.435E+03) return 4.909E-01;
959 else if (kin < 4.445E+03) return 4.908E-01;
960 else if (kin < 4.455E+03) return 4.907E-01;
961 else if (kin < 4.465E+03) return 4.906E-01;
962 else if (kin < 4.475E+03) return 4.905E-01;
963 else if (kin < 4.485E+03) return 4.904E-01;
964 else if (kin < 4.495E+03) return 4.903E-01;
965 else if (kin < 4.505E+03) return 4.902E-01;
966 else if (kin < 4.515E+03) return 4.901E-01;
967 else if (kin < 4.525E+03) return 4.900E-01;
968 else if (kin < 4.535E+03) return 4.899E-01;
969 else if (kin < 4.545E+03) return 4.898E-01;
970 else if (kin < 4.555E+03) return 4.897E-01;
971 else if (kin < 4.565E+03) return 4.895E-01;
972 else if (kin < 4.575E+03) return 4.894E-01;
973 else if (kin < 4.585E+03) return 4.893E-01;
974 else if (kin < 4.595E+03) return 4.892E-01;
975 else if (kin < 4.605E+03) return 4.891E-01;
976 else if (kin < 4.615E+03) return 4.890E-01;
977 else if (kin < 4.625E+03) return 4.889E-01;
978 else if (kin < 4.635E+03) return 4.888E-01;
979 else if (kin < 4.645E+03) return 4.887E-01;
980 else if (kin < 4.655E+03) return 4.886E-01;
981 else if (kin < 4.665E+03) return 4.885E-01;
982 else if (kin < 4.675E+03) return 4.884E-01;
983 else if (kin < 4.685E+03) return 4.883E-01;
984 else if (kin < 4.695E+03) return 4.882E-01;
985 else if (kin < 4.705E+03) return 4.881E-01;
986 else if (kin < 4.715E+03) return 4.880E-01;
987 else if (kin < 4.725E+03) return 4.879E-01;
988 else if (kin < 4.735E+03) return 4.878E-01;
989 else if (kin < 4.745E+03) return 4.877E-01;
990 else if (kin < 4.755E+03) return 4.876E-01;
991 else if (kin < 4.765E+03) return 4.875E-01;
992 else if (kin < 4.775E+03) return 4.874E-01;
993 else if (kin < 4.785E+03) return 4.873E-01;
994 else if (kin < 4.795E+03) return 4.872E-01;
995 else if (kin < 4.805E+03) return 4.871E-01;
996 else if (kin < 4.815E+03) return 4.870E-01;
997 else if (kin < 4.825E+03) return 4.869E-01;
998 else if (kin < 4.835E+03) return 4.868E-01;
999 else if (kin < 4.845E+03) return 4.867E-01;
1000 else if (kin < 4.855E+03) return 4.866E-01;
1001 else if (kin < 4.865E+03) return 4.865E-01;
1002 else if (kin < 4.875E+03) return 4.864E-01;
1003 else if (kin < 4.885E+03) return 4.863E-01;
1004 else if (kin < 4.895E+03) return 4.862E-01;
1005 else if (kin < 4.905E+03) return 4.861E-01;
1006 else if (kin < 4.915E+03) return 4.860E-01;
1007 else if (kin < 4.925E+03) return 4.859E-01;
1008 else if (kin < 4.935E+03) return 4.858E-01;
1009 else if (kin < 4.945E+03) return 4.857E-01;
1010 else if (kin < 4.955E+03) return 4.856E-01;
1011 else if (kin < 4.965E+03) return 4.854E-01;
1012 else if (kin < 4.975E+03) return 4.853E-01;
1013 else if (kin < 4.985E+03) return 4.852E-01;
1014 else if (kin < 4.995E+03) return 4.851E-01;
1015 else if (kin < 5.005E+03) return 4.850E-01;
1016 else if (kin < 5.015E+03) return 4.849E-01;
1017 else if (kin < 5.025E+03) return 4.848E-01;
1018 else if (kin < 5.035E+03) return 4.847E-01;
1019 else if (kin < 5.045E+03) return 4.846E-01;
1020 else if (kin < 5.055E+03) return 4.845E-01;
1021 else if (kin < 5.065E+03) return 4.844E-01;
1022 else if (kin < 5.075E+03) return 4.843E-01;
1023 else if (kin < 5.085E+03) return 4.842E-01;
1024 else if (kin < 5.095E+03) return 4.841E-01;
1025 else if (kin < 5.105E+03) return 4.840E-01;
1026 else if (kin < 5.115E+03) return 4.839E-01;
1027 else if (kin < 5.125E+03) return 4.838E-01;
1028 else if (kin < 5.135E+03) return 4.837E-01;
1029 else if (kin < 5.145E+03) return 4.836E-01;
1030 else if (kin < 5.155E+03) return 4.835E-01;
1031 else if (kin < 5.165E+03) return 4.834E-01;
1032 else if (kin < 5.175E+03) return 4.833E-01;
1033 else if (kin < 5.185E+03) return 4.832E-01;
1034 else if (kin < 5.195E+03) return 4.831E-01;
1035 else if (kin < 5.205E+03) return 4.830E-01;
1036 else if (kin < 5.215E+03) return 4.829E-01;
1037 else if (kin < 5.225E+03) return 4.828E-01;
1038 else if (kin < 5.235E+03) return 4.827E-01;
1039 else if (kin < 5.245E+03) return 4.826E-01;
1040 else if (kin < 5.255E+03) return 4.825E-01;
1041 else if (kin < 5.265E+03) return 4.824E-01;
1042 else if (kin < 5.275E+03) return 4.823E-01;
1043 else if (kin < 5.285E+03) return 4.822E-01;
1044 else if (kin < 5.295E+03) return 4.821E-01;
1045 else if (kin < 5.305E+03) return 4.820E-01;
1046 else if (kin < 5.315E+03) return 4.819E-01;
1047 else if (kin < 5.325E+03) return 4.818E-01;
1048 else if (kin < 5.335E+03) return 4.817E-01;
1049 else if (kin < 5.345E+03) return 4.816E-01;
1050 else if (kin < 5.355E+03) return 4.815E-01;
1051 else if (kin < 5.365E+03) return 4.814E-01;
1052 else if (kin < 5.375E+03) return 4.813E-01;
1053 else if (kin < 5.385E+03) return 4.812E-01;
1054 else if (kin < 5.395E+03) return 4.811E-01;
1055 else if (kin < 5.405E+03) return 4.810E-01;
1056 else if (kin < 5.415E+03) return 4.809E-01;
1057 else if (kin < 5.425E+03) return 4.808E-01;
1058 else if (kin < 5.435E+03) return 4.807E-01;
1059 else if (kin < 5.445E+03) return 4.806E-01;
1060 else if (kin < 5.455E+03) return 4.805E-01;
1061 else if (kin < 5.465E+03) return 4.804E-01;
1062 else if (kin < 5.475E+03) return 4.803E-01;
1063 else if (kin < 5.485E+03) return 4.802E-01;
1064 else if (kin < 5.495E+03) return 4.801E-01;
1065 else if (kin < 5.505E+03) return 4.800E-01;
1066 else if (kin < 5.515E+03) return 4.799E-01;
1067 else if (kin < 5.525E+03) return 4.798E-01;
1068 else if (kin < 5.535E+03) return 4.797E-01;
1069 else if (kin < 5.545E+03) return 4.796E-01;
1070 else if (kin < 5.555E+03) return 4.795E-01;
1071 else if (kin < 5.565E+03) return 4.794E-01;
1072 else if (kin < 5.575E+03) return 4.793E-01;
1073 else if (kin < 5.585E+03) return 4.792E-01;
1074 else if (kin < 5.595E+03) return 4.791E-01;
1075 else if (kin < 5.605E+03) return 4.790E-01;
1076 else if (kin < 5.615E+03) return 4.789E-01;
1077 else if (kin < 5.625E+03) return 4.788E-01;
1078 else if (kin < 5.635E+03) return 4.787E-01;
1079 else if (kin < 5.645E+03) return 4.786E-01;
1080 else if (kin < 5.655E+03) return 4.785E-01;
1081 else if (kin < 5.665E+03) return 4.784E-01;
1082 else if (kin < 5.675E+03) return 4.783E-01;
1083 else if (kin < 5.685E+03) return 4.782E-01;
1084 else if (kin < 5.695E+03) return 4.781E-01;
1085 else if (kin < 5.705E+03) return 4.780E-01;
1086 else if (kin < 5.715E+03) return 4.779E-01;
1087 else if (kin < 5.725E+03) return 4.778E-01;
1088 else if (kin < 5.735E+03) return 4.777E-01;
1089 else if (kin < 5.745E+03) return 4.776E-01;
1090 else if (kin < 5.755E+03) return 4.775E-01;
1091 else if (kin < 5.765E+03) return 4.774E-01;
1092 else if (kin < 5.775E+03) return 4.773E-01;
1093 else if (kin < 5.785E+03) return 4.772E-01;
1094 else if (kin < 5.795E+03) return 4.771E-01;
1095 else if (kin < 5.805E+03) return 4.770E-01;
1096 else if (kin < 5.815E+03) return 4.769E-01;
1097 else if (kin < 5.825E+03) return 4.768E-01;
1098 else if (kin < 5.835E+03) return 4.767E-01;
1099 else if (kin < 5.845E+03) return 4.766E-01;
1100 else if (kin < 5.855E+03) return 4.765E-01;
1101 else if (kin < 5.865E+03) return 4.764E-01;
1102 else if (kin < 5.875E+03) return 4.763E-01;
1103 else if (kin < 5.885E+03) return 4.762E-01;
1104 else if (kin < 5.895E+03) return 4.761E-01;
1105 else if (kin < 5.905E+03) return 4.760E-01;
1106 else if (kin < 5.915E+03) return 4.759E-01;
1107 else if (kin < 5.925E+03) return 4.758E-01;
1108 else if (kin < 5.935E+03) return 4.757E-01;
1109 else if (kin < 5.945E+03) return 4.756E-01;
1110 else if (kin < 5.955E+03) return 4.755E-01;
1111 else if (kin < 5.965E+03) return 4.754E-01;
1112 else if (kin < 5.975E+03) return 4.753E-01;
1113 else if (kin < 5.985E+03) return 4.752E-01;
1114 else if (kin < 5.995E+03) return 4.751E-01;
1115 else if (kin < 6.005E+03) return 4.750E-01;
1116 else if (kin < 6.015E+03) return 4.749E-01;
1117 else if (kin < 6.025E+03) return 4.748E-01;
1118 else if (kin < 6.035E+03) return 4.747E-01;
1119 else if (kin < 6.045E+03) return 4.746E-01;
1120 else if (kin < 6.055E+03) return 4.745E-01;
1121 else if (kin < 6.065E+03) return 4.744E-01;
1122 else if (kin < 6.075E+03) return 4.743E-01;
1123 else if (kin < 6.085E+03) return 4.742E-01;
1124 else if (kin < 6.095E+03) return 4.741E-01;
1125 else if (kin < 6.105E+03) return 4.740E-01;
1126 else if (kin < 6.115E+03) return 4.739E-01;
1127 else if (kin < 6.125E+03) return 4.738E-01;
1128 else if (kin < 6.135E+03) return 4.737E-01;
1129 else if (kin < 6.145E+03) return 4.736E-01;
1130 else if (kin < 6.155E+03) return 4.735E-01;
1131 else if (kin < 6.165E+03) return 4.734E-01;
1132 else if (kin < 6.175E+03) return 4.733E-01;
1133 else if (kin < 6.185E+03) return 4.732E-01;
1134 else if (kin < 6.195E+03) return 4.731E-01;
1135 else if (kin < 6.205E+03) return 4.730E-01;
1136 else if (kin < 6.215E+03) return 4.729E-01;
1137 else if (kin < 6.225E+03) return 4.728E-01;
1138 else if (kin < 6.235E+03) return 4.727E-01;
1139 else if (kin < 6.245E+03) return 4.726E-01;
1140 else if (kin < 6.255E+03) return 4.725E-01;
1141 else if (kin < 6.265E+03) return 4.724E-01;
1142 else if (kin < 6.275E+03) return 4.723E-01;
1143 else if (kin < 6.285E+03) return 4.722E-01;
1144 else if (kin < 6.295E+03) return 4.721E-01;
1145 else if (kin < 6.305E+03) return 4.720E-01;
1146 else if (kin < 6.315E+03) return 4.719E-01;
1147 else if (kin < 6.325E+03) return 4.718E-01;
1148 else if (kin < 6.335E+03) return 4.717E-01;
1149 else if (kin < 6.345E+03) return 4.716E-01;
1150 else if (kin < 6.355E+03) return 4.715E-01;
1151 else if (kin < 6.365E+03) return 4.714E-01;
1152 else if (kin < 6.375E+03) return 4.713E-01;
1153 else if (kin < 6.385E+03) return 4.712E-01;
1154 else if (kin < 6.395E+03) return 4.711E-01;
1155 else if (kin < 6.405E+03) return 4.710E-01;
1156 else if (kin < 6.415E+03) return 4.709E-01;
1157 else if (kin < 6.425E+03) return 4.708E-01;
1158 else if (kin < 6.435E+03) return 4.707E-01;
1159 else if (kin < 6.445E+03) return 4.706E-01;
1160 else if (kin < 6.455E+03) return 4.705E-01;
1161 else if (kin < 6.465E+03) return 4.704E-01;
1162 else if (kin < 6.475E+03) return 4.703E-01;
1163 else if (kin < 6.485E+03) return 4.702E-01;
1164 else if (kin < 6.495E+03) return 4.701E-01;
1165 else if (kin < 6.505E+03) return 4.700E-01;
1166 else if (kin < 6.515E+03) return 4.699E-01;
1167 else if (kin < 6.525E+03) return 4.698E-01;
1168 else if (kin < 6.535E+03) return 4.697E-01;
1169 else if (kin < 6.545E+03) return 4.696E-01;
1170 else if (kin < 6.555E+03) return 4.695E-01;
1171 else if (kin < 6.565E+03) return 4.695E-01;
1172 else if (kin < 6.575E+03) return 4.694E-01;
1173 else if (kin < 6.585E+03) return 4.693E-01;
1174 else if (kin < 6.595E+03) return 4.692E-01;
1175 else if (kin < 6.605E+03) return 4.691E-01;
1176 else if (kin < 6.615E+03) return 4.690E-01;
1177 else if (kin < 6.625E+03) return 4.689E-01;
1178 else if (kin < 6.635E+03) return 4.688E-01;
1179 else if (kin < 6.645E+03) return 4.687E-01;
1180 else if (kin < 6.655E+03) return 4.686E-01;
1181 else if (kin < 6.665E+03) return 4.685E-01;
1182 else if (kin < 6.675E+03) return 4.684E-01;
1183 else if (kin < 6.685E+03) return 4.683E-01;
1184 else if (kin < 6.695E+03) return 4.682E-01;
1185 else if (kin < 6.705E+03) return 4.681E-01;
1186 else if (kin < 6.715E+03) return 4.680E-01;
1187 else if (kin < 6.725E+03) return 4.679E-01;
1188 else if (kin < 6.735E+03) return 4.678E-01;
1189 else if (kin < 6.745E+03) return 4.677E-01;
1190 else if (kin < 6.755E+03) return 4.676E-01;
1191 else if (kin < 6.765E+03) return 4.675E-01;
1192 else if (kin < 6.775E+03) return 4.674E-01;
1193 else if (kin < 6.785E+03) return 4.673E-01;
1194 else if (kin < 6.795E+03) return 4.672E-01;
1195 else if (kin < 6.805E+03) return 4.671E-01;
1196 else if (kin < 6.815E+03) return 4.670E-01;
1197 else if (kin < 6.825E+03) return 4.669E-01;
1198 else if (kin < 6.835E+03) return 4.668E-01;
1199 else if (kin < 6.845E+03) return 4.667E-01;
1200 else if (kin < 6.855E+03) return 4.666E-01;
1201 else if (kin < 6.865E+03) return 4.665E-01;
1202 else if (kin < 6.875E+03) return 4.664E-01;
1203 else if (kin < 6.885E+03) return 4.663E-01;
1204 else if (kin < 6.895E+03) return 4.662E-01;
1205 else if (kin < 6.905E+03) return 4.661E-01;
1206 else if (kin < 6.915E+03) return 4.660E-01;
1207 else if (kin < 6.925E+03) return 4.659E-01;
1208 else if (kin < 6.935E+03) return 4.658E-01;
1209 else if (kin < 6.945E+03) return 4.657E-01;
1210 else if (kin < 6.955E+03) return 4.656E-01;
1211 else if (kin < 6.965E+03) return 4.656E-01;
1212 else if (kin < 6.975E+03) return 4.655E-01;
1213 else if (kin < 6.985E+03) return 4.654E-01;
1214 else if (kin < 6.995E+03) return 4.653E-01;
1215 else if (kin < 7.005E+03) return 4.652E-01;
1216 else if (kin < 7.015E+03) return 4.651E-01;
1217 else if (kin < 7.025E+03) return 4.650E-01;
1218 else if (kin < 7.035E+03) return 4.649E-01;
1219 else if (kin < 7.045E+03) return 4.648E-01;
1220 else if (kin < 7.055E+03) return 4.647E-01;
1221 else if (kin < 7.065E+03) return 4.646E-01;
1222 else if (kin < 7.075E+03) return 4.645E-01;
1223 else if (kin < 7.085E+03) return 4.644E-01;
1224 else if (kin < 7.095E+03) return 4.643E-01;
1225 else if (kin < 7.105E+03) return 4.642E-01;
1226 else if (kin < 7.115E+03) return 4.641E-01;
1227 else if (kin < 7.125E+03) return 4.640E-01;
1228 else if (kin < 7.135E+03) return 4.639E-01;
1229 else if (kin < 7.145E+03) return 4.638E-01;
1230 else if (kin < 7.155E+03) return 4.637E-01;
1231 else if (kin < 7.165E+03) return 4.636E-01;
1232 else if (kin < 7.185E+03) return 4.634E-01;
1233 else if (kin < 7.195E+03) return 4.633E-01;
1234 else if (kin < 7.205E+03) return 4.632E-01;
1235 else if (kin < 7.225E+03) return 4.630E-01;
1236 else if (kin < 7.235E+03) return 4.629E-01;
1237 else if (kin < 7.245E+03) return 4.628E-01;
1238 else if (kin < 7.255E+03) return 4.627E-01;
1239 else if (kin < 7.275E+03) return 4.626E-01;
1240 else if (kin < 7.285E+03) return 4.625E-01;
1241 else if (kin < 7.295E+03) return 4.624E-01;
1242 else if (kin < 7.315E+03) return 4.622E-01;
1243 else if (kin < 7.325E+03) return 4.621E-01;
1244 else if (kin < 7.335E+03) return 4.620E-01;
1245 else if (kin < 7.345E+03) return 4.619E-01;
1246 else if (kin < 7.365E+03) return 4.617E-01;
1247 else if (kin < 7.375E+03) return 4.616E-01;
1248 else if (kin < 7.385E+03) return 4.615E-01;
1249 else if (kin < 7.395E+03) return 4.614E-01;
1250 else if (kin < 7.415E+03) return 4.612E-01;
1251 else if (kin < 7.425E+03) return 4.611E-01;
1252 else if (kin < 7.435E+03) return 4.610E-01;
1253 else if (kin < 7.445E+03) return 4.609E-01;
1254 else if (kin < 7.465E+03) return 4.607E-01;
1255 else if (kin < 7.475E+03) return 4.606E-01;
1256 else if (kin < 7.485E+03) return 4.605E-01;
1257 else if (kin < 7.495E+03) return 4.604E-01;
1258 else if (kin < 7.515E+03) return 4.603E-01;
1259 else if (kin < 7.525E+03) return 4.602E-01;
1260 else if (kin < 7.535E+03) return 4.601E-01;
1261 else if (kin < 7.545E+03) return 4.600E-01;
1262 else if (kin < 7.565E+03) return 4.598E-01;
1263 else if (kin < 7.575E+03) return 4.597E-01;
1264 else if (kin < 7.585E+03) return 4.596E-01;
1265 else if (kin < 7.595E+03) return 4.595E-01;
1266 else if (kin < 7.615E+03) return 4.593E-01;
1267 else if (kin < 7.625E+03) return 4.592E-01;
1268 else if (kin < 7.635E+03) return 4.591E-01;
1269 else if (kin < 7.645E+03) return 4.590E-01;
1270 else if (kin < 7.665E+03) return 4.588E-01;
1271 else if (kin < 7.675E+03) return 4.587E-01;
1272 else if (kin < 7.685E+03) return 4.586E-01;
1273 else if (kin < 7.695E+03) return 4.585E-01;
1274 else if (kin < 7.715E+03) return 4.583E-01;
1275 else if (kin < 7.725E+03) return 4.582E-01;
1276 else if (kin < 7.735E+03) return 4.582E-01;
1277 else if (kin < 7.745E+03) return 4.581E-01;
1278 else if (kin < 7.765E+03) return 4.579E-01;
1279 else if (kin < 7.775E+03) return 4.578E-01;
1280 else if (kin < 7.785E+03) return 4.577E-01;
1281 else if (kin < 7.795E+03) return 4.576E-01;
1282 else if (kin < 7.815E+03) return 4.574E-01;
1283 else if (kin < 7.825E+03) return 4.573E-01;
1284 else if (kin < 7.835E+03) return 4.572E-01;
1285 else if (kin < 7.845E+03) return 4.571E-01;
1286 else if (kin < 7.865E+03) return 4.569E-01;
1287 else if (kin < 7.875E+03) return 4.568E-01;
1288 else if (kin < 7.885E+03) return 4.567E-01;
1289 else if (kin < 7.895E+03) return 4.566E-01;
1290 else if (kin < 7.915E+03) return 4.564E-01;
1291 else if (kin < 7.925E+03) return 4.564E-01;
1292 else if (kin < 7.935E+03) return 4.563E-01;
1293 else if (kin < 7.945E+03) return 4.562E-01;
1294 else if (kin < 7.965E+03) return 4.560E-01;
1295 else if (kin < 7.975E+03) return 4.559E-01;
1296 else if (kin < 7.985E+03) return 4.558E-01;
1297 else if (kin < 7.995E+03) return 4.557E-01;
1298 else if (kin < 8.015E+03) return 4.555E-01;
1299 else if (kin < 8.025E+03) return 4.554E-01;
1300 else if (kin < 8.035E+03) return 4.553E-01;
1301 else if (kin < 8.045E+03) return 4.552E-01;
1302 else if (kin < 8.065E+03) return 4.550E-01;
1303 else if (kin < 8.075E+03) return 4.549E-01;
1304 else if (kin < 8.085E+03) return 4.548E-01;
1305 else if (kin < 8.095E+03) return 4.547E-01;
1306 else if (kin < 8.115E+03) return 4.546E-01;
1307 else if (kin < 8.125E+03) return 4.545E-01;
1308 else if (kin < 8.135E+03) return 4.544E-01;
1309 else if (kin < 8.145E+03) return 4.543E-01;
1310 else if (kin < 8.165E+03) return 4.541E-01;
1311 else if (kin < 8.175E+03) return 4.540E-01;
1312 else if (kin < 8.185E+03) return 4.539E-01;
1313 else if (kin < 8.195E+03) return 4.538E-01;
1314 else if (kin < 8.215E+03) return 4.536E-01;
1315 else if (kin < 8.225E+03) return 4.535E-01;
1316 else if (kin < 8.235E+03) return 4.534E-01;
1317 else if (kin < 8.245E+03) return 4.533E-01;
1318 else if (kin < 8.265E+03) return 4.531E-01;
1319 else if (kin < 8.275E+03) return 4.531E-01;
1320 else if (kin < 8.285E+03) return 4.530E-01;
1321 else if (kin < 8.295E+03) return 4.529E-01;
1322 else if (kin < 8.315E+03) return 4.527E-01;
1323 else if (kin < 8.325E+03) return 4.526E-01;
1324 else if (kin < 8.335E+03) return 4.525E-01;
1325 else if (kin < 8.345E+03) return 4.524E-01;
1326 else if (kin < 8.365E+03) return 4.522E-01;
1327 else if (kin < 8.375E+03) return 4.521E-01;
1328 else if (kin < 8.385E+03) return 4.520E-01;
1329 else if (kin < 8.395E+03) return 4.519E-01;
1330 else if (kin < 8.415E+03) return 4.517E-01;
1331 else if (kin < 8.425E+03) return 4.516E-01;
1332 else if (kin < 8.435E+03) return 4.516E-01;
1333 else if (kin < 8.445E+03) return 4.515E-01;
1334 else if (kin < 8.465E+03) return 4.513E-01;
1335 else if (kin < 8.475E+03) return 4.512E-01;
1336 else if (kin < 8.485E+03) return 4.511E-01;
1337 else if (kin < 8.495E+03) return 4.510E-01;
1338 else if (kin < 8.515E+03) return 4.508E-01;
1339 else if (kin < 8.525E+03) return 4.507E-01;
1340 else if (kin < 8.535E+03) return 4.506E-01;
1341 else if (kin < 8.545E+03) return 4.505E-01;
1342 else if (kin < 8.565E+03) return 4.503E-01;
1343 else if (kin < 8.575E+03) return 4.502E-01;
1344 else if (kin < 8.585E+03) return 4.502E-01;
1345 else if (kin < 8.595E+03) return 4.501E-01;
1346 else if (kin < 8.615E+03) return 4.499E-01;
1347 else if (kin < 8.625E+03) return 4.498E-01;
1348 else if (kin < 8.635E+03) return 4.497E-01;
1349 else if (kin < 8.645E+03) return 4.496E-01;
1350 else if (kin < 8.665E+03) return 4.494E-01;
1351 else if (kin < 8.675E+03) return 4.493E-01;
1352 else if (kin < 8.685E+03) return 4.492E-01;
1353 else if (kin < 8.695E+03) return 4.491E-01;
1354 else if (kin < 8.715E+03) return 4.489E-01;
1355 else if (kin < 8.725E+03) return 4.489E-01;
1356 else if (kin < 8.735E+03) return 4.488E-01;
1357 else if (kin < 8.745E+03) return 4.487E-01;
1358 else if (kin < 8.765E+03) return 4.485E-01;
1359 else if (kin < 8.775E+03) return 4.484E-01;
1360 else if (kin < 8.785E+03) return 4.483E-01;
1361 else if (kin < 8.795E+03) return 4.482E-01;
1362 else if (kin < 8.815E+03) return 4.480E-01;
1363 else if (kin < 8.825E+03) return 4.479E-01;
1364 else if (kin < 8.835E+03) return 4.478E-01;
1365 else if (kin < 8.845E+03) return 4.477E-01;
1366 else if (kin < 8.865E+03) return 4.476E-01;
1367 else if (kin < 8.875E+03) return 4.475E-01;
1368 else if (kin < 8.885E+03) return 4.474E-01;
1369 else if (kin < 8.895E+03) return 4.473E-01;
1370 else if (kin < 8.915E+03) return 4.471E-01;
1371 else if (kin < 8.925E+03) return 4.470E-01;
1372 else if (kin < 8.935E+03) return 4.469E-01;
1373 else if (kin < 8.945E+03) return 4.468E-01;
1374 else if (kin < 8.965E+03) return 4.466E-01;
1375 else if (kin < 8.975E+03) return 4.465E-01;
1376 else if (kin < 8.995E+03) return 4.464E-01;
1377 else if (kin < 2.000E+01) return 2.071E+00;
1378 else if (kin < 2.500E+01) return 2.049E+00;
1379 else if (kin < 3.000E+01) return 2.041E+00;
1380 else if (kin < 4.000E+01) return 2.012E+00;
1381 else if (kin < 5.000E+01) return 1.805E+00;
1382 else if (kin < 6.000E+01) return 1.644E+00;
1383 else if (kin < 7.000E+01) return 1.499E+00;
1384 else if (kin < 8.000E+01) return 1.378E+00;
1385 else if (kin < 9.000E+01) return 1.264E+00;
1386 else if (kin < 1.000E+02) return 1.168E+00;
1387 else if (kin < 1.300E+02) return 9.740E-01;
1388 else if (kin < 1.600E+02) return 8.650E-01;
1389 else if (kin < 2.000E+02) return 7.910E-01;
1390 else if (kin < 2.500E+02) return 7.330E-01;
1391 else if (kin < 3.000E+02) return 6.960E-01;
1392 else if (kin < 3.500E+02) return 6.930E-01;
1393 else if (kin < 4.000E+02) return 6.850E-01;
1394 else if (kin < 4.500E+02) return 6.850E-01;
1395 else if (kin < 5.000E+02) return 6.810E-01;
1396 else if (kin < 6.000E+02) return 6.790E-01;
1397 else if (kin < 7.000E+02) return 6.770E-01;
1398 else if (kin < 8.000E+02) return 6.720E-01;
1399 else return 0;
1400}