Belle II Software  release-08-01-10
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 
14 double 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 }