1 /*
2  *                This source code is part of
3  *
4  *                     E  R  K  A  L  E
5  *                             -
6  *                       DFT from Hel
7  *
8  * Written by Susi Lehtola, 2010-2011
9  * Copyright (c) 2010-2011, Susi Lehtola
10  *
11  * This program is free software; you can redistribute it and/or
12  * modify it under the terms of the GNU General Public License
13  * as published by the Free Software Foundation; either version 2
14  * of the License, or (at your option) any later version.
15  */
16 
17 
18 
19 /*
20   % getLebedevSphere
21   % @author Rob Parrish, The Sherrill Group, CCMST Georgia Tech
22   % @email robparrish@gmail.com
23   % @date 03/24/2010
24   %
25   % @description - function to compute normalized points and weights
26   % for Lebedev quadratures on the surface of the unit sphere at double precision.
27   % **********Relative error is generally expected to be ~2.0E-14 [1]********
28   % Lebedev quadratures are superbly accurate and efficient quadrature rules for
29   % approximating integrals of the form $v = \iint_{4\pi}  f(\Omega) \ \ud
30   % \Omega$, where $\Omega is the solid angle on the surface of the unit
31   % sphere. Lebedev quadratures integrate all spherical harmonics up to $l =
32   % order$, where $degree \approx order(order+1)/3$. These grids may be easily
33   % combined with radial quadratures to provide robust cubature formulae. For
34   % example, see 'A. Becke, 1988c, J. Chem. Phys., 88(4), pp. 2547' (The first
35   % paper on tractable molecular Density Functional Theory methods, of which
36   % Lebedev grids and numerical cubature are an intrinsic part).
37   %
38   % @param degree - positive integer specifying number of points in the
39   % requested quadrature. Allowed values are (degree -> order):
40   % degree: { 6, 14, 26, 38, 50, 74, 86, 110, 146, 170, 194, 230, 266, 302,
41   %   350, 434, 590, 770, 974, 1202, 1454, 1730, 2030, 2354, 2702, 3074,
42   %   3470, 3890, 4334, 4802, 5294, 5810 };
43   % order: {3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,35,41,47,53,59,65,71,77,
44   %   83,89,95,101,107,113,119,125,131};
45   %
46   %
47   % @return leb_tmp - struct containing fields:
48   %   x - x values of quadrature, constrained to unit sphere
49   %   y - y values of quadrature, constrained to unit sphere
50   %   z - z values of quadrature, constrained to unit sphere
51   %   w - quadrature weights, normalized to $4\pi$.
52   %
53   % @example: $\int_S x^2+y^2-z^2 \ud \Omega = 4.188790204786399$
54   %   f = @(x,y,z) x.^2+y.^2-z.^2;
55   %   leb = getLebedevSphere(590);
56   %   v = f(leb.x,leb.y,leb.z);
57   %   int = sum(v.*leb.w);
58   %
59   % @citation - Translated from a Fortran code kindly provided by Christoph van
60   % Wuellen (Ruhr-Universitaet, Bochum, Germany), which in turn came from the
61   % original C routines coded by Dmitri Laikov (Moscow State University,
62   % Moscow, Russia). The MATLAB implementation of this code is designed for
63   % benchmarking of new DFT integration techniques to be implemented in the
64   % open source Psi4 ab initio quantum chemistry program.
65   %
66   % As per Professor Wuellen's request, any papers published using this code
67   % or its derivatives are requested to include the following citation:
68   %
69   % [1] V.I. Lebedev, and D.N. Laikov
70   %    "A quadrature formula for the sphere of the 131st
71   %     algebraic order of accuracy"
72   %    Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
73 */
74 
75 /*
76   The original MATLAB routine, obtained via email directly from Rob
77   Parrish, was translated into C++ by Susi Lehtola.
78   The original version was under the BSD license, but the C++ version
79   has been relicensed to the General Public License version 2 (or
80   later).
81 
82   The original MATLAB routine is also available at
83   http://www.mathworks.com/matlabcentral/fileexchange/27097-getlebedevsphere
84 */
85 
86 #include "global.h"
87 #include "lebedev.h"
88 
89 #include <cmath>
90 #include <cstdio>
91 #include <sstream>
92 #include <stdexcept>
93 
lebedev_sphere(int order)94 std::vector<lebedev_point_t> lebedev_sphere(int order) {
95   for(size_t i=0;i<sizeof(lebedev_orders)/sizeof(lebedev_orders[0]);i++)
96     if(lebedev_orders[i]==order)
97       return getLebedevSphere(lebedev_degrees[i]);
98 
99   // We should not be here.
100   std::ostringstream oss;
101   oss << "Wanted order of Lebedev quadrature " << order << " not implemented.\n";
102   throw std::runtime_error(oss.str());
103 
104   std::vector<lebedev_point_t> dummy;
105   return dummy;
106 }
107 
next_lebedev(int order)108 int next_lebedev(int order) {
109 
110   for(size_t i=0;i<sizeof(lebedev_orders)/sizeof(lebedev_orders[0]);i++)
111     if(lebedev_orders[i]>order)
112       return lebedev_orders[i];
113 
114   // We should not be here.
115   ERROR_INFO();
116   std::ostringstream oss;
117   oss << "Cannot find a higher order Lebedev rule than "<<order<<".";
118   throw std::runtime_error(oss.str());
119 
120   return 0;
121 }
122 
closest_lebedev(int order)123 int closest_lebedev(int order) {
124 
125   for(size_t i=0;i<sizeof(lebedev_orders)/sizeof(lebedev_orders[0]);i++)
126     if(lebedev_orders[i]>=order)
127       return lebedev_orders[i];
128 
129   // We should not be here.
130   std::ostringstream oss;
131   oss << "Cannot find a higher order Lebedev rule than "<<order<<".";
132   throw std::runtime_error(oss.str());
133 
134   return 0;
135 }
136 
getLebedevSphere(int degree)137 std::vector<lebedev_point_t> getLebedevSphere(int degree) {
138 
139   std::vector<lebedev_point_t> leb_tmp(degree);
140 
141   int start = 0;
142   double a = 0.0;
143   double b = 0.0;
144   double v = 0.0;
145 
146   switch (degree) {
147 
148   case(6):
149     v=0.1666666666666667E+0;
150     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
151     break;
152 
153 
154   case(14):
155     v=0.6666666666666667E-1;
156     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
157     v=0.7500000000000000E-1;
158     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
159     break;
160 
161   case(26):
162 
163     v=0.4761904761904762E-1;
164     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
165     v=0.3809523809523810E-1;
166     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
167     v=0.3214285714285714E-1;
168     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
169     break;
170 
171   case(38):
172 
173     v=0.9523809523809524E-2;
174     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
175     v=0.3214285714285714E-1;
176     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
177     a=0.4597008433809831E+0;
178     v=0.2857142857142857E-1;
179     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
180     break;
181 
182   case(50):
183 
184     v=0.1269841269841270E-1;
185     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
186     v=0.2257495590828924E-1;
187     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
188     v=0.2109375000000000E-1;
189     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
190     a=0.3015113445777636E+0;
191     v=0.2017333553791887E-1;
192     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
193     break;
194 
195   case(74):
196 
197     v=0.5130671797338464E-3;
198     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
199     v=0.1660406956574204E-1;
200     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
201     v=-0.2958603896103896E-1;
202     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
203     a=0.4803844614152614E+0;
204     v=0.2657620708215946E-1;
205     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
206     a=0.3207726489807764E+0;
207     v=0.1652217099371571E-1;
208     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
209     break;
210 
211   case(86):
212 
213     v=0.1154401154401154E-1;
214     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
215     v=0.1194390908585628E-1;
216     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
217     a=0.3696028464541502E+0;
218     v=0.1111055571060340E-1;
219     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
220     a=0.6943540066026664E+0;
221     v=0.1187650129453714E-1;
222     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
223     a=0.3742430390903412E+0;
224     v=0.1181230374690448E-1;
225     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
226     break;
227 
228   case(110):
229 
230     v=0.3828270494937162E-2;
231     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
232     v=0.9793737512487512E-2;
233     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
234     a=0.1851156353447362E+0;
235     v=0.8211737283191111E-2;
236     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
237     a=0.6904210483822922E+0;
238     v=0.9942814891178103E-2;
239     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
240     a=0.3956894730559419E+0;
241     v=0.9595471336070963E-2;
242     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
243     a=0.4783690288121502E+0;
244     v=0.9694996361663028E-2;
245     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
246     break;
247 
248   case(146):
249 
250     v=0.5996313688621381E-3;
251     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
252     v=0.7372999718620756E-2;
253     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
254     v=0.7210515360144488E-2;
255     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
256     a=0.6764410400114264E+0;
257     v=0.7116355493117555E-2;
258     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
259     a=0.4174961227965453E+0;
260     v=0.6753829486314477E-2;
261     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
262     a=0.1574676672039082E+0;
263     v=0.7574394159054034E-2;
264     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
265     a=0.1403553811713183E+0;
266     b=0.4493328323269557E+0;
267     v=0.6991087353303262E-2;
268     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
269     break;
270 
271   case(170):
272 
273     v=0.5544842902037365E-2;
274     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
275     v=0.6071332770670752E-2;
276     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
277     v=0.6383674773515093E-2;
278     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
279     a=0.2551252621114134E+0;
280     v=0.5183387587747790E-2;
281     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
282     a=0.6743601460362766E+0;
283     v=0.6317929009813725E-2;
284     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
285     a=0.4318910696719410E+0;
286     v=0.6201670006589077E-2;
287     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
288     a=0.2613931360335988E+0;
289     v=0.5477143385137348E-2;
290     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
291     a=0.4990453161796037E+0;
292     b=0.1446630744325115E+0;
293     v=0.5968383987681156E-2;
294     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
295     break;
296 
297   case(194):
298 
299     v=0.1782340447244611E-2;
300     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
301     v=0.5716905949977102E-2;
302     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
303     v=0.5573383178848738E-2;
304     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
305     a=0.6712973442695226E+0;
306     v=0.5608704082587997E-2;
307     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
308     a=0.2892465627575439E+0;
309     v=0.5158237711805383E-2;
310     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
311     a=0.4446933178717437E+0;
312     v=0.5518771467273614E-2;
313     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
314     a=0.1299335447650067E+0;
315     v=0.4106777028169394E-2;
316     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
317     a=0.3457702197611283E+0;
318     v=0.5051846064614808E-2;
319     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
320     a=0.1590417105383530E+0;
321     b=0.8360360154824589E+0;
322     v=0.5530248916233094E-2;
323     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
324     break;
325 
326   case(230):
327 
328     v=-0.5522639919727325E-1;
329     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
330     v=0.4450274607445226E-2;
331     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
332     a=0.4492044687397611E+0;
333     v=0.4496841067921404E-2;
334     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
335     a=0.2520419490210201E+0;
336     v=0.5049153450478750E-2;
337     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
338     a=0.6981906658447242E+0;
339     v=0.3976408018051883E-2;
340     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
341     a=0.6587405243460960E+0;
342     v=0.4401400650381014E-2;
343     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
344     a=0.4038544050097660E-1;
345     v=0.1724544350544401E-1;
346     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
347     a=0.5823842309715585E+0;
348     v=0.4231083095357343E-2;
349     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
350     a=0.3545877390518688E+0;
351     v=0.5198069864064399E-2;
352     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
353     a=0.2272181808998187E+0;
354     b=0.4864661535886647E+0;
355     v=0.4695720972568883E-2;
356     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
357     break;
358 
359   case(266):
360 
361     v=-0.1313769127326952E-2;
362     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
363     v=-0.2522728704859336E-2;
364     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
365     v=0.4186853881700583E-2;
366     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
367     a=0.7039373391585475E+0;
368     v=0.5315167977810885E-2;
369     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
370     a=0.1012526248572414E+0;
371     v=0.4047142377086219E-2;
372     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
373     a=0.4647448726420539E+0;
374     v=0.4112482394406990E-2;
375     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
376     a=0.3277420654971629E+0;
377     v=0.3595584899758782E-2;
378     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
379     a=0.6620338663699974E+0;
380     v=0.4256131351428158E-2;
381     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
382     a=0.8506508083520399E+0;
383     v=0.4229582700647240E-2;
384     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
385     a=0.3233484542692899E+0;
386     b=0.1153112011009701E+0;
387     v=0.4080914225780505E-2;
388     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
389     a=0.2314790158712601E+0;
390     b=0.5244939240922365E+0;
391     v=0.4071467593830964E-2;
392     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
393     break;
394 
395   case(302):
396 
397     v=0.8545911725128148E-3;
398     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
399     v=0.3599119285025571E-2;
400     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
401     a=0.3515640345570105E+0;
402     v=0.3449788424305883E-2;
403     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
404     a=0.6566329410219612E+0;
405     v=0.3604822601419882E-2;
406     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
407     a=0.4729054132581005E+0;
408     v=0.3576729661743367E-2;
409     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
410     a=0.9618308522614784E-1;
411     v=0.2352101413689164E-2;
412     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
413     a=0.2219645236294178E+0;
414     v=0.3108953122413675E-2;
415     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
416     a=0.7011766416089545E+0;
417     v=0.3650045807677255E-2;
418     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
419     a=0.2644152887060663E+0;
420     v=0.2982344963171804E-2;
421     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
422     a=0.5718955891878961E+0;
423     v=0.3600820932216460E-2;
424     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
425     a=0.2510034751770465E+0;
426     b=0.8000727494073952E+0;
427     v=0.3571540554273387E-2;
428     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
429     a=0.1233548532583327E+0;
430     b=0.4127724083168531E+0;
431     v=0.3392312205006170E-2;
432     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
433     break;
434 
435   case(350):
436 
437     v=0.3006796749453936E-2;
438     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
439     v=0.3050627745650771E-2;
440     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
441     a=0.7068965463912316E+0;
442     v=0.1621104600288991E-2;
443     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
444     a=0.4794682625712025E+0;
445     v=0.3005701484901752E-2;
446     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
447     a=0.1927533154878019E+0;
448     v=0.2990992529653774E-2;
449     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
450     a=0.6930357961327123E+0;
451     v=0.2982170644107595E-2;
452     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
453     a=0.3608302115520091E+0;
454     v=0.2721564237310992E-2;
455     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
456     a=0.6498486161496169E+0;
457     v=0.3033513795811141E-2;
458     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
459     a=0.1932945013230339E+0;
460     v=0.3007949555218533E-2;
461     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
462     a=0.3800494919899303E+0;
463     v=0.2881964603055307E-2;
464     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
465     a=0.2899558825499574E+0;
466     b=0.7934537856582316E+0;
467     v=0.2958357626535696E-2;
468     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
469     a=0.9684121455103957E-1;
470     b=0.8280801506686862E+0;
471     v=0.3036020026407088E-2;
472     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
473     a=0.1833434647041659E+0;
474     b=0.9074658265305127E+0;
475     v=0.2832187403926303E-2;
476     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
477     break;
478 
479   case(434):
480 
481     v=0.5265897968224436E-3;
482     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
483     v=0.2548219972002607E-2;
484     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
485     v=0.2512317418927307E-2;
486     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
487     a=0.6909346307509111E+0;
488     v=0.2530403801186355E-2;
489     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
490     a=0.1774836054609158E+0;
491     v=0.2014279020918528E-2;
492     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
493     a=0.4914342637784746E+0;
494     v=0.2501725168402936E-2;
495     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
496     a=0.6456664707424256E+0;
497     v=0.2513267174597564E-2;
498     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
499     a=0.2861289010307638E+0;
500     v=0.2302694782227416E-2;
501     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
502     a=0.7568084367178018E-1;
503     v=0.1462495621594614E-2;
504     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
505     a=0.3927259763368002E+0;
506     v=0.2445373437312980E-2;
507     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
508     a=0.8818132877794288E+0;
509     v=0.2417442375638981E-2;
510     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
511     a=0.9776428111182649E+0;
512     v=0.1910951282179532E-2;
513     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
514     a=0.2054823696403044E+0;
515     b=0.8689460322872412E+0;
516     v=0.2416930044324775E-2;
517     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
518     a=0.5905157048925271E+0;
519     b=0.7999278543857286E+0;
520     v=0.2512236854563495E-2;
521     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
522     a=0.5550152361076807E+0;
523     b=0.7717462626915901E+0;
524     v=0.2496644054553086E-2;
525     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
526     a=0.9371809858553722E+0;
527     b=0.3344363145343455E+0;
528     v=0.2236607760437849E-2;
529     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
530     break;
531 
532   case(590):
533 
534     v=0.3095121295306187E-3;
535     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
536     v=0.1852379698597489E-2;
537     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
538     a=0.7040954938227469E+0;
539     v=0.1871790639277744E-2;
540     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
541     a=0.6807744066455243E+0;
542     v=0.1858812585438317E-2;
543     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
544     a=0.6372546939258752E+0;
545     v=0.1852028828296213E-2;
546     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
547     a=0.5044419707800358E+0;
548     v=0.1846715956151242E-2;
549     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
550     a=0.4215761784010967E+0;
551     v=0.1818471778162769E-2;
552     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
553     a=0.3317920736472123E+0;
554     v=0.1749564657281154E-2;
555     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
556     a=0.2384736701421887E+0;
557     v=0.1617210647254411E-2;
558     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
559     a=0.1459036449157763E+0;
560     v=0.1384737234851692E-2;
561     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
562     a=0.6095034115507196E-1;
563     v=0.9764331165051050E-3;
564     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
565     a=0.6116843442009876E+0;
566     v=0.1857161196774078E-2;
567     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
568     a=0.3964755348199858E+0;
569     v=0.1705153996395864E-2;
570     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
571     a=0.1724782009907724E+0;
572     v=0.1300321685886048E-2;
573     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
574     a=0.5610263808622060E+0;
575     b=0.3518280927733519E+0;
576     v=0.1842866472905286E-2;
577     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
578     a=0.4742392842551980E+0;
579     b=0.2634716655937950E+0;
580     v=0.1802658934377451E-2;
581     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
582     a=0.5984126497885380E+0;
583     b=0.1816640840360209E+0;
584     v=0.1849830560443660E-2;
585     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
586     a=0.3791035407695563E+0;
587     b=0.1720795225656878E+0;
588     v=0.1713904507106709E-2;
589     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
590     a=0.2778673190586244E+0;
591     b=0.8213021581932511E-1;
592     v=0.1555213603396808E-2;
593     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
594     a=0.5033564271075117E+0;
595     b=0.8999205842074875E-1;
596     v=0.1802239128008525E-2;
597     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
598     break;
599 
600   case(770):
601 
602     v=0.2192942088181184E-3;
603     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
604     v=0.1436433617319080E-2;
605     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
606     v=0.1421940344335877E-2;
607     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
608     a=0.5087204410502360E-1;
609     v=0.6798123511050502E-3;
610     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
611     a=0.1228198790178831E+0;
612     v=0.9913184235294912E-3;
613     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
614     a=0.2026890814408786E+0;
615     v=0.1180207833238949E-2;
616     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
617     a=0.2847745156464294E+0;
618     v=0.1296599602080921E-2;
619     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
620     a=0.3656719078978026E+0;
621     v=0.1365871427428316E-2;
622     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
623     a=0.4428264886713469E+0;
624     v=0.1402988604775325E-2;
625     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
626     a=0.5140619627249735E+0;
627     v=0.1418645563595609E-2;
628     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
629     a=0.6306401219166803E+0;
630     v=0.1421376741851662E-2;
631     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
632     a=0.6716883332022612E+0;
633     v=0.1423996475490962E-2;
634     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
635     a=0.6979792685336881E+0;
636     v=0.1431554042178567E-2;
637     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
638     a=0.1446865674195309E+0;
639     v=0.9254401499865368E-3;
640     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
641     a=0.3390263475411216E+0;
642     v=0.1250239995053509E-2;
643     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
644     a=0.5335804651263506E+0;
645     v=0.1394365843329230E-2;
646     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
647     a=0.6944024393349413E-1;
648     b=0.2355187894242326E+0;
649     v=0.1127089094671749E-2;
650     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
651     a=0.2269004109529460E+0;
652     b=0.4102182474045730E+0;
653     v=0.1345753760910670E-2;
654     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
655     a=0.8025574607775339E-1;
656     b=0.6214302417481605E+0;
657     v=0.1424957283316783E-2;
658     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
659     a=0.1467999527896572E+0;
660     b=0.3245284345717394E+0;
661     v=0.1261523341237750E-2;
662     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
663     a=0.1571507769824727E+0;
664     b=0.5224482189696630E+0;
665     v=0.1392547106052696E-2;
666     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
667     a=0.2365702993157246E+0;
668     b=0.6017546634089558E+0;
669     v=0.1418761677877656E-2;
670     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
671     a=0.7714815866765732E-1;
672     b=0.4346575516141163E+0;
673     v=0.1338366684479554E-2;
674     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
675     a=0.3062936666210730E+0;
676     b=0.4908826589037616E+0;
677     v=0.1393700862676131E-2;
678     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
679     a=0.3822477379524787E+0;
680     b=0.5648768149099500E+0;
681     v=0.1415914757466932E-2;
682     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
683     break;
684 
685   case(974):
686 
687     v=0.1438294190527431E-3;
688     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
689     v=0.1125772288287004E-2;
690     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
691     a=0.4292963545341347E-1;
692     v=0.4948029341949241E-3;
693     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
694     a=0.1051426854086404E+0;
695     v=0.7357990109125470E-3;
696     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
697     a=0.1750024867623087E+0;
698     v=0.8889132771304384E-3;
699     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
700     a=0.2477653379650257E+0;
701     v=0.9888347838921435E-3;
702     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
703     a=0.3206567123955957E+0;
704     v=0.1053299681709471E-2;
705     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
706     a=0.3916520749849983E+0;
707     v=0.1092778807014578E-2;
708     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
709     a=0.4590825874187624E+0;
710     v=0.1114389394063227E-2;
711     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
712     a=0.5214563888415861E+0;
713     v=0.1123724788051555E-2;
714     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
715     a=0.6253170244654199E+0;
716     v=0.1125239325243814E-2;
717     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
718     a=0.6637926744523170E+0;
719     v=0.1126153271815905E-2;
720     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
721     a=0.6910410398498301E+0;
722     v=0.1130286931123841E-2;
723     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
724     a=0.7052907007457760E+0;
725     v=0.1134986534363955E-2;
726     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
727     a=0.1236686762657990E+0;
728     v=0.6823367927109931E-3;
729     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
730     a=0.2940777114468387E+0;
731     v=0.9454158160447096E-3;
732     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
733     a=0.4697753849207649E+0;
734     v=0.1074429975385679E-2;
735     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
736     a=0.6334563241139567E+0;
737     v=0.1129300086569132E-2;
738     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
739     a=0.5974048614181342E-1;
740     b=0.2029128752777523E+0;
741     v=0.8436884500901954E-3;
742     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
743     a=0.1375760408473636E+0;
744     b=0.4602621942484054E+0;
745     v=0.1075255720448885E-2;
746     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
747     a=0.3391016526336286E+0;
748     b=0.5030673999662036E+0;
749     v=0.1108577236864462E-2;
750     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
751     a=0.1271675191439820E+0;
752     b=0.2817606422442134E+0;
753     v=0.9566475323783357E-3;
754     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
755     a=0.2693120740413512E+0;
756     b=0.4331561291720157E+0;
757     v=0.1080663250717391E-2;
758     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
759     a=0.1419786452601918E+0;
760     b=0.6256167358580814E+0;
761     v=0.1126797131196295E-2;
762     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
763     a=0.6709284600738255E-1;
764     b=0.3798395216859157E+0;
765     v=0.1022568715358061E-2;
766     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
767     a=0.7057738183256172E-1;
768     b=0.5517505421423520E+0;
769     v=0.1108960267713108E-2;
770     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
771     a=0.2783888477882155E+0;
772     b=0.6029619156159187E+0;
773     v=0.1122790653435766E-2;
774     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
775     a=0.1979578938917407E+0;
776     b=0.3589606329589096E+0;
777     v=0.1032401847117460E-2;
778     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
779     a=0.2087307061103274E+0;
780     b=0.5348666438135476E+0;
781     v=0.1107249382283854E-2;
782     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
783     a=0.4055122137872836E+0;
784     b=0.5674997546074373E+0;
785     v=0.1121780048519972E-2;
786     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
787     break;
788 
789   case(1202):
790 
791     v=0.1105189233267572E-3;
792     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
793     v=0.9205232738090741E-3;
794     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
795     v=0.9133159786443561E-3;
796     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
797     a=0.3712636449657089E-1;
798     v=0.3690421898017899E-3;
799     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
800     a=0.9140060412262223E-1;
801     v=0.5603990928680660E-3;
802     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
803     a=0.1531077852469906E+0;
804     v=0.6865297629282609E-3;
805     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
806     a=0.2180928891660612E+0;
807     v=0.7720338551145630E-3;
808     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
809     a=0.2839874532200175E+0;
810     v=0.8301545958894795E-3;
811     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
812     a=0.3491177600963764E+0;
813     v=0.8686692550179628E-3;
814     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
815     a=0.4121431461444309E+0;
816     v=0.8927076285846890E-3;
817     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
818     a=0.4718993627149127E+0;
819     v=0.9060820238568219E-3;
820     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
821     a=0.5273145452842337E+0;
822     v=0.9119777254940867E-3;
823     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
824     a=0.6209475332444019E+0;
825     v=0.9128720138604181E-3;
826     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
827     a=0.6569722711857291E+0;
828     v=0.9130714935691735E-3;
829     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
830     a=0.6841788309070143E+0;
831     v=0.9152873784554116E-3;
832     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
833     a=0.7012604330123631E+0;
834     v=0.9187436274321654E-3;
835     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
836     a=0.1072382215478166E+0;
837     v=0.5176977312965694E-3;
838     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
839     a=0.2582068959496968E+0;
840     v=0.7331143682101417E-3;
841     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
842     a=0.4172752955306717E+0;
843     v=0.8463232836379928E-3;
844     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
845     a=0.5700366911792503E+0;
846     v=0.9031122694253992E-3;
847     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
848     a=0.9827986018263947E+0;
849     b=0.1771774022615325E+0;
850     v=0.6485778453163257E-3;
851     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
852     a=0.9624249230326228E+0;
853     b=0.2475716463426288E+0;
854     v=0.7435030910982369E-3;
855     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
856     a=0.9402007994128811E+0;
857     b=0.3354616289066489E+0;
858     v=0.7998527891839054E-3;
859     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
860     a=0.9320822040143202E+0;
861     b=0.3173615246611977E+0;
862     v=0.8101731497468018E-3;
863     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
864     a=0.9043674199393299E+0;
865     b=0.4090268427085357E+0;
866     v=0.8483389574594331E-3;
867     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
868     a=0.8912407560074747E+0;
869     b=0.3854291150669224E+0;
870     v=0.8556299257311812E-3;
871     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
872     a=0.8676435628462708E+0;
873     b=0.4932221184851285E+0;
874     v=0.8803208679738260E-3;
875     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
876     a=0.8581979986041619E+0;
877     b=0.4785320675922435E+0;
878     v=0.8811048182425720E-3;
879     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
880     a=0.8396753624049856E+0;
881     b=0.4507422593157064E+0;
882     v=0.8850282341265444E-3;
883     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
884     a=0.8165288564022188E+0;
885     b=0.5632123020762100E+0;
886     v=0.9021342299040653E-3;
887     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
888     a=0.8015469370783529E+0;
889     b=0.5434303569693900E+0;
890     v=0.9010091677105086E-3;
891     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
892     a=0.7773563069070351E+0;
893     b=0.5123518486419871E+0;
894     v=0.9022692938426915E-3;
895     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
896     a=0.7661621213900394E+0;
897     b=0.6394279634749102E+0;
898     v=0.9158016174693465E-3;
899     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
900     a=0.7553584143533510E+0;
901     b=0.6269805509024392E+0;
902     v=0.9131578003189435E-3;
903     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
904     a=0.7344305757559503E+0;
905     b=0.6031161693096310E+0;
906     v=0.9107813579482705E-3;
907     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
908     a=0.7043837184021765E+0;
909     b=0.5693702498468441E+0;
910     v=0.9105760258970126E-3;
911     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
912     break;
913 
914   case(1454):
915 
916     v=0.7777160743261247E-4;
917     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
918     v=0.7557646413004701E-3;
919     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
920     a=0.3229290663413854E-1;
921     v=0.2841633806090617E-3;
922     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
923     a=0.8036733271462222E-1;
924     v=0.4374419127053555E-3;
925     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
926     a=0.1354289960531653E+0;
927     v=0.5417174740872172E-3;
928     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
929     a=0.1938963861114426E+0;
930     v=0.6148000891358593E-3;
931     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
932     a=0.2537343715011275E+0;
933     v=0.6664394485800705E-3;
934     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
935     a=0.3135251434752570E+0;
936     v=0.7025039356923220E-3;
937     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
938     a=0.3721558339375338E+0;
939     v=0.7268511789249627E-3;
940     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
941     a=0.4286809575195696E+0;
942     v=0.7422637534208629E-3;
943     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
944     a=0.4822510128282994E+0;
945     v=0.7509545035841214E-3;
946     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
947     a=0.5320679333566263E+0;
948     v=0.7548535057718401E-3;
949     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
950     a=0.6172998195394274E+0;
951     v=0.7554088969774001E-3;
952     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
953     a=0.6510679849127481E+0;
954     v=0.7553147174442808E-3;
955     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
956     a=0.6777315251687360E+0;
957     v=0.7564767653292297E-3;
958     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
959     a=0.6963109410648741E+0;
960     v=0.7587991808518730E-3;
961     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
962     a=0.7058935009831749E+0;
963     v=0.7608261832033027E-3;
964     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
965     a=0.9955546194091857E+0;
966     v=0.4021680447874916E-3;
967     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
968     a=0.9734115901794209E+0;
969     v=0.5804871793945964E-3;
970     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
971     a=0.9275693732388626E+0;
972     v=0.6792151955945159E-3;
973     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
974     a=0.8568022422795103E+0;
975     v=0.7336741211286294E-3;
976     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
977     a=0.7623495553719372E+0;
978     v=0.7581866300989608E-3;
979     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
980     a=0.5707522908892223E+0;
981     b=0.4387028039889501E+0;
982     v=0.7538257859800743E-3;
983     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
984     a=0.5196463388403083E+0;
985     b=0.3858908414762617E+0;
986     v=0.7483517247053123E-3;
987     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
988     a=0.4646337531215351E+0;
989     b=0.3301937372343854E+0;
990     v=0.7371763661112059E-3;
991     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
992     a=0.4063901697557691E+0;
993     b=0.2725423573563777E+0;
994     v=0.7183448895756934E-3;
995     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
996     a=0.3456329466643087E+0;
997     b=0.2139510237495250E+0;
998     v=0.6895815529822191E-3;
999     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1000     a=0.2831395121050332E+0;
1001     b=0.1555922309786647E+0;
1002     v=0.6480105801792886E-3;
1003     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1004     a=0.2197682022925330E+0;
1005     b=0.9892878979686097E-1;
1006     v=0.5897558896594636E-3;
1007     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1008     a=0.1564696098650355E+0;
1009     b=0.4598642910675510E-1;
1010     v=0.5095708849247346E-3;
1011     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1012     a=0.6027356673721295E+0;
1013     b=0.3376625140173426E+0;
1014     v=0.7536906428909755E-3;
1015     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1016     a=0.5496032320255096E+0;
1017     b=0.2822301309727988E+0;
1018     v=0.7472505965575118E-3;
1019     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1020     a=0.4921707755234567E+0;
1021     b=0.2248632342592540E+0;
1022     v=0.7343017132279698E-3;
1023     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1024     a=0.4309422998598483E+0;
1025     b=0.1666224723456479E+0;
1026     v=0.7130871582177445E-3;
1027     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1028     a=0.3664108182313672E+0;
1029     b=0.1086964901822169E+0;
1030     v=0.6817022032112776E-3;
1031     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1032     a=0.2990189057758436E+0;
1033     b=0.5251989784120085E-1;
1034     v=0.6380941145604121E-3;
1035     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1036     a=0.6268724013144998E+0;
1037     b=0.2297523657550023E+0;
1038     v=0.7550381377920310E-3;
1039     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1040     a=0.5707324144834607E+0;
1041     b=0.1723080607093800E+0;
1042     v=0.7478646640144802E-3;
1043     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1044     a=0.5096360901960365E+0;
1045     b=0.1140238465390513E+0;
1046     v=0.7335918720601220E-3;
1047     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1048     a=0.4438729938312456E+0;
1049     b=0.5611522095882537E-1;
1050     v=0.7110120527658118E-3;
1051     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1052     a=0.6419978471082389E+0;
1053     b=0.1164174423140873E+0;
1054     v=0.7571363978689501E-3;
1055     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1056     a=0.5817218061802611E+0;
1057     b=0.5797589531445219E-1;
1058     v=0.7489908329079234E-3;
1059     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1060     break;
1061 
1062   case(1730):
1063 
1064     v=0.6309049437420976E-4;
1065     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
1066     v=0.6398287705571748E-3;
1067     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
1068     v=0.6357185073530720E-3;
1069     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
1070     a=0.2860923126194662E-1;
1071     v=0.2221207162188168E-3;
1072     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1073     a=0.7142556767711522E-1;
1074     v=0.3475784022286848E-3;
1075     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1076     a=0.1209199540995559E+0;
1077     v=0.4350742443589804E-3;
1078     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1079     a=0.1738673106594379E+0;
1080     v=0.4978569136522127E-3;
1081     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1082     a=0.2284645438467734E+0;
1083     v=0.5435036221998053E-3;
1084     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1085     a=0.2834807671701512E+0;
1086     v=0.5765913388219542E-3;
1087     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1088     a=0.3379680145467339E+0;
1089     v=0.6001200359226003E-3;
1090     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1091     a=0.3911355454819537E+0;
1092     v=0.6162178172717512E-3;
1093     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1094     a=0.4422860353001403E+0;
1095     v=0.6265218152438485E-3;
1096     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1097     a=0.4907781568726057E+0;
1098     v=0.6323987160974212E-3;
1099     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1100     a=0.5360006153211468E+0;
1101     v=0.6350767851540569E-3;
1102     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1103     a=0.6142105973596603E+0;
1104     v=0.6354362775297107E-3;
1105     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1106     a=0.6459300387977504E+0;
1107     v=0.6352302462706235E-3;
1108     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1109     a=0.6718056125089225E+0;
1110     v=0.6358117881417972E-3;
1111     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1112     a=0.6910888533186254E+0;
1113     v=0.6373101590310117E-3;
1114     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1115     a=0.7030467416823252E+0;
1116     v=0.6390428961368665E-3;
1117     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1118     a=0.8354951166354646E-1;
1119     v=0.3186913449946576E-3;
1120     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1121     a=0.2050143009099486E+0;
1122     v=0.4678028558591711E-3;
1123     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1124     a=0.3370208290706637E+0;
1125     v=0.5538829697598626E-3;
1126     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1127     a=0.4689051484233963E+0;
1128     v=0.6044475907190476E-3;
1129     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1130     a=0.5939400424557334E+0;
1131     v=0.6313575103509012E-3;
1132     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1133     a=0.1394983311832261E+0;
1134     b=0.4097581162050343E-1;
1135     v=0.4078626431855630E-3;
1136     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1137     a=0.1967999180485014E+0;
1138     b=0.8851987391293348E-1;
1139     v=0.4759933057812725E-3;
1140     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1141     a=0.2546183732548967E+0;
1142     b=0.1397680182969819E+0;
1143     v=0.5268151186413440E-3;
1144     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1145     a=0.3121281074713875E+0;
1146     b=0.1929452542226526E+0;
1147     v=0.5643048560507316E-3;
1148     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1149     a=0.3685981078502492E+0;
1150     b=0.2467898337061562E+0;
1151     v=0.5914501076613073E-3;
1152     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1153     a=0.4233760321547856E+0;
1154     b=0.3003104124785409E+0;
1155     v=0.6104561257874195E-3;
1156     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1157     a=0.4758671236059246E+0;
1158     b=0.3526684328175033E+0;
1159     v=0.6230252860707806E-3;
1160     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1161     a=0.5255178579796463E+0;
1162     b=0.4031134861145713E+0;
1163     v=0.6305618761760796E-3;
1164     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1165     a=0.5718025633734589E+0;
1166     b=0.4509426448342351E+0;
1167     v=0.6343092767597889E-3;
1168     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1169     a=0.2686927772723415E+0;
1170     b=0.4711322502423248E-1;
1171     v=0.5176268945737826E-3;
1172     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1173     a=0.3306006819904809E+0;
1174     b=0.9784487303942695E-1;
1175     v=0.5564840313313692E-3;
1176     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1177     a=0.3904906850594983E+0;
1178     b=0.1505395810025273E+0;
1179     v=0.5856426671038980E-3;
1180     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1181     a=0.4479957951904390E+0;
1182     b=0.2039728156296050E+0;
1183     v=0.6066386925777091E-3;
1184     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1185     a=0.5027076848919780E+0;
1186     b=0.2571529941121107E+0;
1187     v=0.6208824962234458E-3;
1188     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1189     a=0.5542087392260217E+0;
1190     b=0.3092191375815670E+0;
1191     v=0.6296314297822907E-3;
1192     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1193     a=0.6020850887375187E+0;
1194     b=0.3593807506130276E+0;
1195     v=0.6340423756791859E-3;
1196     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1197     a=0.4019851409179594E+0;
1198     b=0.5063389934378671E-1;
1199     v=0.5829627677107342E-3;
1200     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1201     a=0.4635614567449800E+0;
1202     b=0.1032422269160612E+0;
1203     v=0.6048693376081110E-3;
1204     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1205     a=0.5215860931591575E+0;
1206     b=0.1566322094006254E+0;
1207     v=0.6202362317732461E-3;
1208     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1209     a=0.5758202499099271E+0;
1210     b=0.2098082827491099E+0;
1211     v=0.6299005328403779E-3;
1212     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1213     a=0.6259893683876795E+0;
1214     b=0.2618824114553391E+0;
1215     v=0.6347722390609353E-3;
1216     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1217     a=0.5313795124811891E+0;
1218     b=0.5263245019338556E-1;
1219     v=0.6203778981238834E-3;
1220     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1221     a=0.5893317955931995E+0;
1222     b=0.1061059730982005E+0;
1223     v=0.6308414671239979E-3;
1224     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1225     a=0.6426246321215801E+0;
1226     b=0.1594171564034221E+0;
1227     v=0.6362706466959498E-3;
1228     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1229     a=0.6511904367376113E+0;
1230     b=0.5354789536565540E-1;
1231     v=0.6375414170333233E-3;
1232     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1233     break;
1234 
1235   case(2030):
1236 
1237     v=0.4656031899197431E-4;
1238     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
1239     v=0.5421549195295507E-3;
1240     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
1241     a=0.2540835336814348E-1;
1242     v=0.1778522133346553E-3;
1243     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1244     a=0.6399322800504915E-1;
1245     v=0.2811325405682796E-3;
1246     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1247     a=0.1088269469804125E+0;
1248     v=0.3548896312631459E-3;
1249     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1250     a=0.1570670798818287E+0;
1251     v=0.4090310897173364E-3;
1252     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1253     a=0.2071163932282514E+0;
1254     v=0.4493286134169965E-3;
1255     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1256     a=0.2578914044450844E+0;
1257     v=0.4793728447962723E-3;
1258     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1259     a=0.3085687558169623E+0;
1260     v=0.5015415319164265E-3;
1261     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1262     a=0.3584719706267024E+0;
1263     v=0.5175127372677937E-3;
1264     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1265     a=0.4070135594428709E+0;
1266     v=0.5285522262081019E-3;
1267     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1268     a=0.4536618626222638E+0;
1269     v=0.5356832703713962E-3;
1270     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1271     a=0.4979195686463577E+0;
1272     v=0.5397914736175170E-3;
1273     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1274     a=0.5393075111126999E+0;
1275     v=0.5416899441599930E-3;
1276     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1277     a=0.6115617676843916E+0;
1278     v=0.5419308476889938E-3;
1279     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1280     a=0.6414308435160159E+0;
1281     v=0.5416936902030596E-3;
1282     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1283     a=0.6664099412721607E+0;
1284     v=0.5419544338703164E-3;
1285     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1286     a=0.6859161771214913E+0;
1287     v=0.5428983656630975E-3;
1288     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1289     a=0.6993625593503890E+0;
1290     v=0.5442286500098193E-3;
1291     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1292     a=0.7062393387719380E+0;
1293     v=0.5452250345057301E-3;
1294     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1295     a=0.7479028168349763E-1;
1296     v=0.2568002497728530E-3;
1297     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1298     a=0.1848951153969366E+0;
1299     v=0.3827211700292145E-3;
1300     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1301     a=0.3059529066581305E+0;
1302     v=0.4579491561917824E-3;
1303     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1304     a=0.4285556101021362E+0;
1305     v=0.5042003969083574E-3;
1306     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1307     a=0.5468758653496526E+0;
1308     v=0.5312708889976025E-3;
1309     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1310     a=0.6565821978343439E+0;
1311     v=0.5438401790747117E-3;
1312     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1313     a=0.1253901572367117E+0;
1314     b=0.3681917226439641E-1;
1315     v=0.3316041873197344E-3;
1316     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1317     a=0.1775721510383941E+0;
1318     b=0.7982487607213301E-1;
1319     v=0.3899113567153771E-3;
1320     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1321     a=0.2305693358216114E+0;
1322     b=0.1264640966592335E+0;
1323     v=0.4343343327201309E-3;
1324     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1325     a=0.2836502845992063E+0;
1326     b=0.1751585683418957E+0;
1327     v=0.4679415262318919E-3;
1328     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1329     a=0.3361794746232590E+0;
1330     b=0.2247995907632670E+0;
1331     v=0.4930847981631031E-3;
1332     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1333     a=0.3875979172264824E+0;
1334     b=0.2745299257422246E+0;
1335     v=0.5115031867540091E-3;
1336     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1337     a=0.4374019316999074E+0;
1338     b=0.3236373482441118E+0;
1339     v=0.5245217148457367E-3;
1340     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1341     a=0.4851275843340022E+0;
1342     b=0.3714967859436741E+0;
1343     v=0.5332041499895321E-3;
1344     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1345     a=0.5303391803806868E+0;
1346     b=0.4175353646321745E+0;
1347     v=0.5384583126021542E-3;
1348     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1349     a=0.5726197380596287E+0;
1350     b=0.4612084406355461E+0;
1351     v=0.5411067210798852E-3;
1352     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1353     a=0.2431520732564863E+0;
1354     b=0.4258040133043952E-1;
1355     v=0.4259797391468714E-3;
1356     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1357     a=0.3002096800895869E+0;
1358     b=0.8869424306722721E-1;
1359     v=0.4604931368460021E-3;
1360     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1361     a=0.3558554457457432E+0;
1362     b=0.1368811706510655E+0;
1363     v=0.4871814878255202E-3;
1364     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1365     a=0.4097782537048887E+0;
1366     b=0.1860739985015033E+0;
1367     v=0.5072242910074885E-3;
1368     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1369     a=0.4616337666067458E+0;
1370     b=0.2354235077395853E+0;
1371     v=0.5217069845235350E-3;
1372     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1373     a=0.5110707008417874E+0;
1374     b=0.2842074921347011E+0;
1375     v=0.5315785966280310E-3;
1376     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1377     a=0.5577415286163795E+0;
1378     b=0.3317784414984102E+0;
1379     v=0.5376833708758905E-3;
1380     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1381     a=0.6013060431366950E+0;
1382     b=0.3775299002040700E+0;
1383     v=0.5408032092069521E-3;
1384     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1385     a=0.3661596767261781E+0;
1386     b=0.4599367887164592E-1;
1387     v=0.4842744917904866E-3;
1388     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1389     a=0.4237633153506581E+0;
1390     b=0.9404893773654421E-1;
1391     v=0.5048926076188130E-3;
1392     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1393     a=0.4786328454658452E+0;
1394     b=0.1431377109091971E+0;
1395     v=0.5202607980478373E-3;
1396     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1397     a=0.5305702076789774E+0;
1398     b=0.1924186388843570E+0;
1399     v=0.5309932388325743E-3;
1400     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1401     a=0.5793436224231788E+0;
1402     b=0.2411590944775190E+0;
1403     v=0.5377419770895208E-3;
1404     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1405     a=0.6247069017094747E+0;
1406     b=0.2886871491583605E+0;
1407     v=0.5411696331677717E-3;
1408     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1409     a=0.4874315552535204E+0;
1410     b=0.4804978774953206E-1;
1411     v=0.5197996293282420E-3;
1412     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1413     a=0.5427337322059053E+0;
1414     b=0.9716857199366665E-1;
1415     v=0.5311120836622945E-3;
1416     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1417     a=0.5943493747246700E+0;
1418     b=0.1465205839795055E+0;
1419     v=0.5384309319956951E-3;
1420     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1421     a=0.6421314033564943E+0;
1422     b=0.1953579449803574E+0;
1423     v=0.5421859504051886E-3;
1424     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1425     a=0.6020628374713980E+0;
1426     b=0.4916375015738108E-1;
1427     v=0.5390948355046314E-3;
1428     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1429     a=0.6529222529856881E+0;
1430     b=0.9861621540127005E-1;
1431     v=0.5433312705027845E-3;
1432     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1433     break;
1434 
1435   case(2354):
1436 
1437     v=0.3922616270665292E-4;
1438     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
1439     v=0.4703831750854424E-3;
1440     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
1441     v=0.4678202801282136E-3;
1442     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
1443     a=0.2290024646530589E-1;
1444     v=0.1437832228979900E-3;
1445     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1446     a=0.5779086652271284E-1;
1447     v=0.2303572493577644E-3;
1448     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1449     a=0.9863103576375984E-1;
1450     v=0.2933110752447454E-3;
1451     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1452     a=0.1428155792982185E+0;
1453     v=0.3402905998359838E-3;
1454     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1455     a=0.1888978116601463E+0;
1456     v=0.3759138466870372E-3;
1457     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1458     a=0.2359091682970210E+0;
1459     v=0.4030638447899798E-3;
1460     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1461     a=0.2831228833706171E+0;
1462     v=0.4236591432242211E-3;
1463     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1464     a=0.3299495857966693E+0;
1465     v=0.4390522656946746E-3;
1466     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1467     a=0.3758840802660796E+0;
1468     v=0.4502523466626247E-3;
1469     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1470     a=0.4204751831009480E+0;
1471     v=0.4580577727783541E-3;
1472     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1473     a=0.4633068518751051E+0;
1474     v=0.4631391616615899E-3;
1475     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1476     a=0.5039849474507313E+0;
1477     v=0.4660928953698676E-3;
1478     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1479     a=0.5421265793440747E+0;
1480     v=0.4674751807936953E-3;
1481     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1482     a=0.6092660230557310E+0;
1483     v=0.4676414903932920E-3;
1484     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1485     a=0.6374654204984869E+0;
1486     v=0.4674086492347870E-3;
1487     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1488     a=0.6615136472609892E+0;
1489     v=0.4674928539483207E-3;
1490     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1491     a=0.6809487285958127E+0;
1492     v=0.4680748979686447E-3;
1493     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1494     a=0.6952980021665196E+0;
1495     v=0.4690449806389040E-3;
1496     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1497     a=0.7041245497695400E+0;
1498     v=0.4699877075860818E-3;
1499     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1500     a=0.6744033088306065E-1;
1501     v=0.2099942281069176E-3;
1502     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1503     a=0.1678684485334166E+0;
1504     v=0.3172269150712804E-3;
1505     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1506     a=0.2793559049539613E+0;
1507     v=0.3832051358546523E-3;
1508     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1509     a=0.3935264218057639E+0;
1510     v=0.4252193818146985E-3;
1511     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1512     a=0.5052629268232558E+0;
1513     v=0.4513807963755000E-3;
1514     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1515     a=0.6107905315437531E+0;
1516     v=0.4657797469114178E-3;
1517     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1518     a=0.1135081039843524E+0;
1519     b=0.3331954884662588E-1;
1520     v=0.2733362800522836E-3;
1521     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1522     a=0.1612866626099378E+0;
1523     b=0.7247167465436538E-1;
1524     v=0.3235485368463559E-3;
1525     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1526     a=0.2100786550168205E+0;
1527     b=0.1151539110849745E+0;
1528     v=0.3624908726013453E-3;
1529     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1530     a=0.2592282009459942E+0;
1531     b=0.1599491097143677E+0;
1532     v=0.3925540070712828E-3;
1533     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1534     a=0.3081740561320203E+0;
1535     b=0.2058699956028027E+0;
1536     v=0.4156129781116235E-3;
1537     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1538     a=0.3564289781578164E+0;
1539     b=0.2521624953502911E+0;
1540     v=0.4330644984623263E-3;
1541     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1542     a=0.4035587288240703E+0;
1543     b=0.2982090785797674E+0;
1544     v=0.4459677725921312E-3;
1545     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1546     a=0.4491671196373903E+0;
1547     b=0.3434762087235733E+0;
1548     v=0.4551593004456795E-3;
1549     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1550     a=0.4928854782917489E+0;
1551     b=0.3874831357203437E+0;
1552     v=0.4613341462749918E-3;
1553     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1554     a=0.5343646791958988E+0;
1555     b=0.4297814821746926E+0;
1556     v=0.4651019618269806E-3;
1557     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1558     a=0.5732683216530990E+0;
1559     b=0.4699402260943537E+0;
1560     v=0.4670249536100625E-3;
1561     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1562     a=0.2214131583218986E+0;
1563     b=0.3873602040643895E-1;
1564     v=0.3549555576441708E-3;
1565     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1566     a=0.2741796504750071E+0;
1567     b=0.8089496256902013E-1;
1568     v=0.3856108245249010E-3;
1569     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1570     a=0.3259797439149485E+0;
1571     b=0.1251732177620872E+0;
1572     v=0.4098622845756882E-3;
1573     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1574     a=0.3765441148826891E+0;
1575     b=0.1706260286403185E+0;
1576     v=0.4286328604268950E-3;
1577     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1578     a=0.4255773574530558E+0;
1579     b=0.2165115147300408E+0;
1580     v=0.4427802198993945E-3;
1581     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1582     a=0.4727795117058430E+0;
1583     b=0.2622089812225259E+0;
1584     v=0.4530473511488561E-3;
1585     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1586     a=0.5178546895819012E+0;
1587     b=0.3071721431296201E+0;
1588     v=0.4600805475703138E-3;
1589     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1590     a=0.5605141192097460E+0;
1591     b=0.3508998998801138E+0;
1592     v=0.4644599059958017E-3;
1593     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1594     a=0.6004763319352512E+0;
1595     b=0.3929160876166931E+0;
1596     v=0.4667274455712508E-3;
1597     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1598     a=0.3352842634946949E+0;
1599     b=0.4202563457288019E-1;
1600     v=0.4069360518020356E-3;
1601     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1602     a=0.3891971629814670E+0;
1603     b=0.8614309758870850E-1;
1604     v=0.4260442819919195E-3;
1605     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1606     a=0.4409875565542281E+0;
1607     b=0.1314500879380001E+0;
1608     v=0.4408678508029063E-3;
1609     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1610     a=0.4904893058592484E+0;
1611     b=0.1772189657383859E+0;
1612     v=0.4518748115548597E-3;
1613     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1614     a=0.5375056138769549E+0;
1615     b=0.2228277110050294E+0;
1616     v=0.4595564875375116E-3;
1617     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1618     a=0.5818255708669969E+0;
1619     b=0.2677179935014386E+0;
1620     v=0.4643988774315846E-3;
1621     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1622     a=0.6232334858144959E+0;
1623     b=0.3113675035544165E+0;
1624     v=0.4668827491646946E-3;
1625     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1626     a=0.4489485354492058E+0;
1627     b=0.4409162378368174E-1;
1628     v=0.4400541823741973E-3;
1629     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1630     a=0.5015136875933150E+0;
1631     b=0.8939009917748489E-1;
1632     v=0.4514512890193797E-3;
1633     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1634     a=0.5511300550512623E+0;
1635     b=0.1351806029383365E+0;
1636     v=0.4596198627347549E-3;
1637     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1638     a=0.5976720409858000E+0;
1639     b=0.1808370355053196E+0;
1640     v=0.4648659016801781E-3;
1641     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1642     a=0.6409956378989354E+0;
1643     b=0.2257852192301602E+0;
1644     v=0.4675502017157673E-3;
1645     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1646     a=0.5581222330827514E+0;
1647     b=0.4532173421637160E-1;
1648     v=0.4598494476455523E-3;
1649     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1650     a=0.6074705984161695E+0;
1651     b=0.9117488031840314E-1;
1652     v=0.4654916955152048E-3;
1653     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1654     a=0.6532272537379033E+0;
1655     b=0.1369294213140155E+0;
1656     v=0.4684709779505137E-3;
1657     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1658     a=0.6594761494500487E+0;
1659     b=0.4589901487275583E-1;
1660     v=0.4691445539106986E-3;
1661     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1662     break;
1663 
1664   case(2702):
1665     v=0.2998675149888161E-4;
1666     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
1667     v=0.4077860529495355E-3;
1668     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
1669     a=0.2065562538818703E-1;
1670     v=0.1185349192520667E-3;
1671     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1672     a=0.5250918173022379E-1;
1673     v=0.1913408643425751E-3;
1674     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1675     a=0.8993480082038376E-1;
1676     v=0.2452886577209897E-3;
1677     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1678     a=0.1306023924436019E+0;
1679     v=0.2862408183288702E-3;
1680     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1681     a=0.1732060388531418E+0;
1682     v=0.3178032258257357E-3;
1683     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1684     a=0.2168727084820249E+0;
1685     v=0.3422945667633690E-3;
1686     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1687     a=0.2609528309173586E+0;
1688     v=0.3612790520235922E-3;
1689     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1690     a=0.3049252927938952E+0;
1691     v=0.3758638229818521E-3;
1692     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1693     a=0.3483484138084404E+0;
1694     v=0.3868711798859953E-3;
1695     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1696     a=0.3908321549106406E+0;
1697     v=0.3949429933189938E-3;
1698     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1699     a=0.4320210071894814E+0;
1700     v=0.4006068107541156E-3;
1701     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1702     a=0.4715824795890053E+0;
1703     v=0.4043192149672723E-3;
1704     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1705     a=0.5091984794078453E+0;
1706     v=0.4064947495808078E-3;
1707     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1708     a=0.5445580145650803E+0;
1709     v=0.4075245619813152E-3;
1710     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1711     a=0.6072575796841768E+0;
1712     v=0.4076423540893566E-3;
1713     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1714     a=0.6339484505755803E+0;
1715     v=0.4074280862251555E-3;
1716     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1717     a=0.6570718257486958E+0;
1718     v=0.4074163756012244E-3;
1719     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1720     a=0.6762557330090709E+0;
1721     v=0.4077647795071246E-3;
1722     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1723     a=0.6911161696923790E+0;
1724     v=0.4084517552782530E-3;
1725     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1726     a=0.7012841911659961E+0;
1727     v=0.4092468459224052E-3;
1728     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1729     a=0.7064559272410020E+0;
1730     v=0.4097872687240906E-3;
1731     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1732     a=0.6123554989894765E-1;
1733     v=0.1738986811745028E-3;
1734     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1735     a=0.1533070348312393E+0;
1736     v=0.2659616045280191E-3;
1737     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1738     a=0.2563902605244206E+0;
1739     v=0.3240596008171533E-3;
1740     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1741     a=0.3629346991663361E+0;
1742     v=0.3621195964432943E-3;
1743     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1744     a=0.4683949968987538E+0;
1745     v=0.3868838330760539E-3;
1746     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1747     a=0.5694479240657952E+0;
1748     v=0.4018911532693111E-3;
1749     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1750     a=0.6634465430993955E+0;
1751     v=0.4089929432983252E-3;
1752     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
1753     a=0.1033958573552305E+0;
1754     b=0.3034544009063584E-1;
1755     v=0.2279907527706409E-3;
1756     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1757     a=0.1473521412414395E+0;
1758     b=0.6618803044247135E-1;
1759     v=0.2715205490578897E-3;
1760     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1761     a=0.1924552158705967E+0;
1762     b=0.1054431128987715E+0;
1763     v=0.3057917896703976E-3;
1764     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1765     a=0.2381094362890328E+0;
1766     b=0.1468263551238858E+0;
1767     v=0.3326913052452555E-3;
1768     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1769     a=0.2838121707936760E+0;
1770     b=0.1894486108187886E+0;
1771     v=0.3537334711890037E-3;
1772     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1773     a=0.3291323133373415E+0;
1774     b=0.2326374238761579E+0;
1775     v=0.3700567500783129E-3;
1776     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1777     a=0.3736896978741460E+0;
1778     b=0.2758485808485768E+0;
1779     v=0.3825245372589122E-3;
1780     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1781     a=0.4171406040760013E+0;
1782     b=0.3186179331996921E+0;
1783     v=0.3918125171518296E-3;
1784     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1785     a=0.4591677985256915E+0;
1786     b=0.3605329796303794E+0;
1787     v=0.3984720419937579E-3;
1788     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1789     a=0.4994733831718418E+0;
1790     b=0.4012147253586509E+0;
1791     v=0.4029746003338211E-3;
1792     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1793     a=0.5377731830445096E+0;
1794     b=0.4403050025570692E+0;
1795     v=0.4057428632156627E-3;
1796     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1797     a=0.5737917830001331E+0;
1798     b=0.4774565904277483E+0;
1799     v=0.4071719274114857E-3;
1800     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1801     a=0.2027323586271389E+0;
1802     b=0.3544122504976147E-1;
1803     v=0.2990236950664119E-3;
1804     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1805     a=0.2516942375187273E+0;
1806     b=0.7418304388646328E-1;
1807     v=0.3262951734212878E-3;
1808     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1809     a=0.3000227995257181E+0;
1810     b=0.1150502745727186E+0;
1811     v=0.3482634608242413E-3;
1812     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1813     a=0.3474806691046342E+0;
1814     b=0.1571963371209364E+0;
1815     v=0.3656596681700892E-3;
1816     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1817     a=0.3938103180359209E+0;
1818     b=0.1999631877247100E+0;
1819     v=0.3791740467794218E-3;
1820     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1821     a=0.4387519590455703E+0;
1822     b=0.2428073457846535E+0;
1823     v=0.3894034450156905E-3;
1824     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1825     a=0.4820503960077787E+0;
1826     b=0.2852575132906155E+0;
1827     v=0.3968600245508371E-3;
1828     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1829     a=0.5234573778475101E+0;
1830     b=0.3268884208674639E+0;
1831     v=0.4019931351420050E-3;
1832     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1833     a=0.5627318647235282E+0;
1834     b=0.3673033321675939E+0;
1835     v=0.4052108801278599E-3;
1836     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1837     a=0.5996390607156954E+0;
1838     b=0.4061211551830290E+0;
1839     v=0.4068978613940934E-3;
1840     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1841     a=0.3084780753791947E+0;
1842     b=0.3860125523100059E-1;
1843     v=0.3454275351319704E-3;
1844     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1845     a=0.3589988275920223E+0;
1846     b=0.7928938987104867E-1;
1847     v=0.3629963537007920E-3;
1848     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1849     a=0.4078628415881973E+0;
1850     b=0.1212614643030087E+0;
1851     v=0.3770187233889873E-3;
1852     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1853     a=0.4549287258889735E+0;
1854     b=0.1638770827382693E+0;
1855     v=0.3878608613694378E-3;
1856     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1857     a=0.5000278512957279E+0;
1858     b=0.2065965798260176E+0;
1859     v=0.3959065270221274E-3;
1860     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1861     a=0.5429785044928199E+0;
1862     b=0.2489436378852235E+0;
1863     v=0.4015286975463570E-3;
1864     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1865     a=0.5835939850491711E+0;
1866     b=0.2904811368946891E+0;
1867     v=0.4050866785614717E-3;
1868     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1869     a=0.6216870353444856E+0;
1870     b=0.3307941957666609E+0;
1871     v=0.4069320185051913E-3;
1872     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1873     a=0.4151104662709091E+0;
1874     b=0.4064829146052554E-1;
1875     v=0.3760120964062763E-3;
1876     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1877     a=0.4649804275009218E+0;
1878     b=0.8258424547294755E-1;
1879     v=0.3870969564418064E-3;
1880     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1881     a=0.5124695757009662E+0;
1882     b=0.1251841962027289E+0;
1883     v=0.3955287790534055E-3;
1884     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1885     a=0.5574711100606224E+0;
1886     b=0.1679107505976331E+0;
1887     v=0.4015361911302668E-3;
1888     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1889     a=0.5998597333287227E+0;
1890     b=0.2102805057358715E+0;
1891     v=0.4053836986719548E-3;
1892     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1893     a=0.6395007148516600E+0;
1894     b=0.2518418087774107E+0;
1895     v=0.4073578673299117E-3;
1896     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1897     a=0.5188456224746252E+0;
1898     b=0.4194321676077518E-1;
1899     v=0.3954628379231406E-3;
1900     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1901     a=0.5664190707942778E+0;
1902     b=0.8457661551921499E-1;
1903     v=0.4017645508847530E-3;
1904     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1905     a=0.6110464353283153E+0;
1906     b=0.1273652932519396E+0;
1907     v=0.4059030348651293E-3;
1908     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1909     a=0.6526430302051563E+0;
1910     b=0.1698173239076354E+0;
1911     v=0.4080565809484880E-3;
1912     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1913     a=0.6167551880377548E+0;
1914     b=0.4266398851548864E-1;
1915     v=0.4063018753664651E-3;
1916     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1917     a=0.6607195418355383E+0;
1918     b=0.8551925814238349E-1;
1919     v=0.4087191292799671E-3;
1920     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
1921     break;
1922 
1923   case(3074):
1924 
1925     v=0.2599095953754734E-4;
1926     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
1927     v=0.3603134089687541E-3;
1928     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
1929     v=0.3586067974412447E-3;
1930     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
1931     a=0.1886108518723392E-1;
1932     v=0.9831528474385880E-4;
1933     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1934     a=0.4800217244625303E-1;
1935     v=0.1605023107954450E-3;
1936     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1937     a=0.8244922058397242E-1;
1938     v=0.2072200131464099E-3;
1939     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1940     a=0.1200408362484023E+0;
1941     v=0.2431297618814187E-3;
1942     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1943     a=0.1595773530809965E+0;
1944     v=0.2711819064496707E-3;
1945     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1946     a=0.2002635973434064E+0;
1947     v=0.2932762038321116E-3;
1948     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1949     a=0.2415127590139982E+0;
1950     v=0.3107032514197368E-3;
1951     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1952     a=0.2828584158458477E+0;
1953     v=0.3243808058921213E-3;
1954     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1955     a=0.3239091015338138E+0;
1956     v=0.3349899091374030E-3;
1957     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1958     a=0.3643225097962194E+0;
1959     v=0.3430580688505218E-3;
1960     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1961     a=0.4037897083691802E+0;
1962     v=0.3490124109290343E-3;
1963     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1964     a=0.4420247515194127E+0;
1965     v=0.3532148948561955E-3;
1966     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1967     a=0.4787572538464938E+0;
1968     v=0.3559862669062833E-3;
1969     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1970     a=0.5137265251275234E+0;
1971     v=0.3576224317551411E-3;
1972     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1973     a=0.5466764056654611E+0;
1974     v=0.3584050533086076E-3;
1975     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1976     a=0.6054859420813535E+0;
1977     v=0.3584903581373224E-3;
1978     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1979     a=0.6308106701764562E+0;
1980     v=0.3582991879040586E-3;
1981     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1982     a=0.6530369230179584E+0;
1983     v=0.3582371187963125E-3;
1984     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1985     a=0.6718609524611158E+0;
1986     v=0.3584353631122350E-3;
1987     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1988     a=0.6869676499894013E+0;
1989     v=0.3589120166517785E-3;
1990     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1991     a=0.6980467077240748E+0;
1992     v=0.3595445704531601E-3;
1993     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1994     a=0.7048241721250522E+0;
1995     v=0.3600943557111074E-3;
1996     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
1997     a=0.5591105222058232E-1;
1998     v=0.1456447096742039E-3;
1999     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2000     a=0.1407384078513916E+0;
2001     v=0.2252370188283782E-3;
2002     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2003     a=0.2364035438976309E+0;
2004     v=0.2766135443474897E-3;
2005     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2006     a=0.3360602737818170E+0;
2007     v=0.3110729491500851E-3;
2008     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2009     a=0.4356292630054665E+0;
2010     v=0.3342506712303391E-3;
2011     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2012     a=0.5321569415256174E+0;
2013     v=0.3491981834026860E-3;
2014     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2015     a=0.6232956305040554E+0;
2016     v=0.3576003604348932E-3;
2017     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2018     a=0.9469870086838469E-1;
2019     b=0.2778748387309470E-1;
2020     v=0.1921921305788564E-3;
2021     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2022     a=0.1353170300568141E+0;
2023     b=0.6076569878628364E-1;
2024     v=0.2301458216495632E-3;
2025     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2026     a=0.1771679481726077E+0;
2027     b=0.9703072762711040E-1;
2028     v=0.2604248549522893E-3;
2029     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2030     a=0.2197066664231751E+0;
2031     b=0.1354112458524762E+0;
2032     v=0.2845275425870697E-3;
2033     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2034     a=0.2624783557374927E+0;
2035     b=0.1750996479744100E+0;
2036     v=0.3036870897974840E-3;
2037     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2038     a=0.3050969521214442E+0;
2039     b=0.2154896907449802E+0;
2040     v=0.3188414832298066E-3;
2041     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2042     a=0.3472252637196021E+0;
2043     b=0.2560954625740152E+0;
2044     v=0.3307046414722089E-3;
2045     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2046     a=0.3885610219026360E+0;
2047     b=0.2965070050624096E+0;
2048     v=0.3398330969031360E-3;
2049     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2050     a=0.4288273776062765E+0;
2051     b=0.3363641488734497E+0;
2052     v=0.3466757899705373E-3;
2053     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2054     a=0.4677662471302948E+0;
2055     b=0.3753400029836788E+0;
2056     v=0.3516095923230054E-3;
2057     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2058     a=0.5051333589553359E+0;
2059     b=0.4131297522144286E+0;
2060     v=0.3549645184048486E-3;
2061     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2062     a=0.5406942145810492E+0;
2063     b=0.4494423776081795E+0;
2064     v=0.3570415969441392E-3;
2065     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2066     a=0.5742204122576457E+0;
2067     b=0.4839938958841502E+0;
2068     v=0.3581251798496118E-3;
2069     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2070     a=0.1865407027225188E+0;
2071     b=0.3259144851070796E-1;
2072     v=0.2543491329913348E-3;
2073     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2074     a=0.2321186453689432E+0;
2075     b=0.6835679505297343E-1;
2076     v=0.2786711051330776E-3;
2077     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2078     a=0.2773159142523882E+0;
2079     b=0.1062284864451989E+0;
2080     v=0.2985552361083679E-3;
2081     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2082     a=0.3219200192237254E+0;
2083     b=0.1454404409323047E+0;
2084     v=0.3145867929154039E-3;
2085     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2086     a=0.3657032593944029E+0;
2087     b=0.1854018282582510E+0;
2088     v=0.3273290662067609E-3;
2089     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2090     a=0.4084376778363622E+0;
2091     b=0.2256297412014750E+0;
2092     v=0.3372705511943501E-3;
2093     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2094     a=0.4499004945751427E+0;
2095     b=0.2657104425000896E+0;
2096     v=0.3448274437851510E-3;
2097     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2098     a=0.4898758141326335E+0;
2099     b=0.3052755487631557E+0;
2100     v=0.3503592783048583E-3;
2101     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2102     a=0.5281547442266309E+0;
2103     b=0.3439863920645423E+0;
2104     v=0.3541854792663162E-3;
2105     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2106     a=0.5645346989813992E+0;
2107     b=0.3815229456121914E+0;
2108     v=0.3565995517909428E-3;
2109     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2110     a=0.5988181252159848E+0;
2111     b=0.4175752420966734E+0;
2112     v=0.3578802078302898E-3;
2113     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2114     a=0.2850425424471603E+0;
2115     b=0.3562149509862536E-1;
2116     v=0.2958644592860982E-3;
2117     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2118     a=0.3324619433027876E+0;
2119     b=0.7330318886871096E-1;
2120     v=0.3119548129116835E-3;
2121     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2122     a=0.3785848333076282E+0;
2123     b=0.1123226296008472E+0;
2124     v=0.3250745225005984E-3;
2125     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2126     a=0.4232891028562115E+0;
2127     b=0.1521084193337708E+0;
2128     v=0.3355153415935208E-3;
2129     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2130     a=0.4664287050829722E+0;
2131     b=0.1921844459223610E+0;
2132     v=0.3435847568549328E-3;
2133     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2134     a=0.5078458493735726E+0;
2135     b=0.2321360989678303E+0;
2136     v=0.3495786831622488E-3;
2137     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2138     a=0.5473779816204180E+0;
2139     b=0.2715886486360520E+0;
2140     v=0.3537767805534621E-3;
2141     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2142     a=0.5848617133811376E+0;
2143     b=0.3101924707571355E+0;
2144     v=0.3564459815421428E-3;
2145     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2146     a=0.6201348281584888E+0;
2147     b=0.3476121052890973E+0;
2148     v=0.3578464061225468E-3;
2149     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2150     a=0.3852191185387871E+0;
2151     b=0.3763224880035108E-1;
2152     v=0.3239748762836212E-3;
2153     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2154     a=0.4325025061073423E+0;
2155     b=0.7659581935637135E-1;
2156     v=0.3345491784174287E-3;
2157     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2158     a=0.4778486229734490E+0;
2159     b=0.1163381306083900E+0;
2160     v=0.3429126177301782E-3;
2161     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2162     a=0.5211663693009000E+0;
2163     b=0.1563890598752899E+0;
2164     v=0.3492420343097421E-3;
2165     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2166     a=0.5623469504853703E+0;
2167     b=0.1963320810149200E+0;
2168     v=0.3537399050235257E-3;
2169     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2170     a=0.6012718188659246E+0;
2171     b=0.2357847407258738E+0;
2172     v=0.3566209152659172E-3;
2173     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2174     a=0.6378179206390117E+0;
2175     b=0.2743846121244060E+0;
2176     v=0.3581084321919782E-3;
2177     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2178     a=0.4836936460214534E+0;
2179     b=0.3895902610739024E-1;
2180     v=0.3426522117591512E-3;
2181     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2182     a=0.5293792562683797E+0;
2183     b=0.7871246819312640E-1;
2184     v=0.3491848770121379E-3;
2185     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2186     a=0.5726281253100033E+0;
2187     b=0.1187963808202981E+0;
2188     v=0.3539318235231476E-3;
2189     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2190     a=0.6133658776169068E+0;
2191     b=0.1587914708061787E+0;
2192     v=0.3570231438458694E-3;
2193     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2194     a=0.6515085491865307E+0;
2195     b=0.1983058575227646E+0;
2196     v=0.3586207335051714E-3;
2197     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2198     a=0.5778692716064976E+0;
2199     b=0.3977209689791542E-1;
2200     v=0.3541196205164025E-3;
2201     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2202     a=0.6207904288086192E+0;
2203     b=0.7990157592981152E-1;
2204     v=0.3574296911573953E-3;
2205     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2206     a=0.6608688171046802E+0;
2207     b=0.1199671308754309E+0;
2208     v=0.3591993279818963E-3;
2209     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2210     a=0.6656263089489130E+0;
2211     b=0.4015955957805969E-1;
2212     v=0.3595855034661997E-3;
2213     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2214     break;
2215 
2216   case(3470):
2217 
2218     v=0.2040382730826330E-4;
2219     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
2220     v=0.3178149703889544E-3;
2221     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
2222     a=0.1721420832906233E-1;
2223     v=0.8288115128076110E-4;
2224     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2225     a=0.4408875374981770E-1;
2226     v=0.1360883192522954E-3;
2227     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2228     a=0.7594680813878681E-1;
2229     v=0.1766854454542662E-3;
2230     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2231     a=0.1108335359204799E+0;
2232     v=0.2083153161230153E-3;
2233     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2234     a=0.1476517054388567E+0;
2235     v=0.2333279544657158E-3;
2236     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2237     a=0.1856731870860615E+0;
2238     v=0.2532809539930247E-3;
2239     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2240     a=0.2243634099428821E+0;
2241     v=0.2692472184211158E-3;
2242     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2243     a=0.2633006881662727E+0;
2244     v=0.2819949946811885E-3;
2245     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2246     a=0.3021340904916283E+0;
2247     v=0.2920953593973030E-3;
2248     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2249     a=0.3405594048030089E+0;
2250     v=0.2999889782948352E-3;
2251     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2252     a=0.3783044434007372E+0;
2253     v=0.3060292120496902E-3;
2254     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2255     a=0.4151194767407910E+0;
2256     v=0.3105109167522192E-3;
2257     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2258     a=0.4507705766443257E+0;
2259     v=0.3136902387550312E-3;
2260     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2261     a=0.4850346056573187E+0;
2262     v=0.3157984652454632E-3;
2263     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2264     a=0.5176950817792470E+0;
2265     v=0.3170516518425422E-3;
2266     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2267     a=0.5485384240820989E+0;
2268     v=0.3176568425633755E-3;
2269     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2270     a=0.6039117238943308E+0;
2271     v=0.3177198411207062E-3;
2272     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2273     a=0.6279956655573113E+0;
2274     v=0.3175519492394733E-3;
2275     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2276     a=0.6493636169568952E+0;
2277     v=0.3174654952634756E-3;
2278     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2279     a=0.6677644117704504E+0;
2280     v=0.3175676415467654E-3;
2281     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2282     a=0.6829368572115624E+0;
2283     v=0.3178923417835410E-3;
2284     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2285     a=0.6946195818184121E+0;
2286     v=0.3183788287531909E-3;
2287     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2288     a=0.7025711542057026E+0;
2289     v=0.3188755151918807E-3;
2290     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2291     a=0.7066004767140119E+0;
2292     v=0.3191916889313849E-3;
2293     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2294     a=0.5132537689946062E-1;
2295     v=0.1231779611744508E-3;
2296     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2297     a=0.1297994661331225E+0;
2298     v=0.1924661373839880E-3;
2299     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2300     a=0.2188852049401307E+0;
2301     v=0.2380881867403424E-3;
2302     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2303     a=0.3123174824903457E+0;
2304     v=0.2693100663037885E-3;
2305     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2306     a=0.4064037620738195E+0;
2307     v=0.2908673382834366E-3;
2308     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2309     a=0.4984958396944782E+0;
2310     v=0.3053914619381535E-3;
2311     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2312     a=0.5864975046021365E+0;
2313     v=0.3143916684147777E-3;
2314     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2315     a=0.6686711634580175E+0;
2316     v=0.3187042244055363E-3;
2317     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2318     a=0.8715738780835950E-1;
2319     b=0.2557175233367578E-1;
2320     v=0.1635219535869790E-3;
2321     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2322     a=0.1248383123134007E+0;
2323     b=0.5604823383376681E-1;
2324     v=0.1968109917696070E-3;
2325     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2326     a=0.1638062693383378E+0;
2327     b=0.8968568601900765E-1;
2328     v=0.2236754342249974E-3;
2329     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2330     a=0.2035586203373176E+0;
2331     b=0.1254086651976279E+0;
2332     v=0.2453186687017181E-3;
2333     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2334     a=0.2436798975293774E+0;
2335     b=0.1624780150162012E+0;
2336     v=0.2627551791580541E-3;
2337     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2338     a=0.2838207507773806E+0;
2339     b=0.2003422342683208E+0;
2340     v=0.2767654860152220E-3;
2341     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2342     a=0.3236787502217692E+0;
2343     b=0.2385628026255263E+0;
2344     v=0.2879467027765895E-3;
2345     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2346     a=0.3629849554840691E+0;
2347     b=0.2767731148783578E+0;
2348     v=0.2967639918918702E-3;
2349     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2350     a=0.4014948081992087E+0;
2351     b=0.3146542308245309E+0;
2352     v=0.3035900684660351E-3;
2353     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2354     a=0.4389818379260225E+0;
2355     b=0.3519196415895088E+0;
2356     v=0.3087338237298308E-3;
2357     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2358     a=0.4752331143674377E+0;
2359     b=0.3883050984023654E+0;
2360     v=0.3124608838860167E-3;
2361     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2362     a=0.5100457318374018E+0;
2363     b=0.4235613423908649E+0;
2364     v=0.3150084294226743E-3;
2365     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2366     a=0.5432238388954868E+0;
2367     b=0.4574484717196220E+0;
2368     v=0.3165958398598402E-3;
2369     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2370     a=0.5745758685072442E+0;
2371     b=0.4897311639255524E+0;
2372     v=0.3174320440957372E-3;
2373     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2374     a=0.1723981437592809E+0;
2375     b=0.3010630597881105E-1;
2376     v=0.2182188909812599E-3;
2377     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2378     a=0.2149553257844597E+0;
2379     b=0.6326031554204694E-1;
2380     v=0.2399727933921445E-3;
2381     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2382     a=0.2573256081247422E+0;
2383     b=0.9848566980258631E-1;
2384     v=0.2579796133514652E-3;
2385     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2386     a=0.2993163751238106E+0;
2387     b=0.1350835952384266E+0;
2388     v=0.2727114052623535E-3;
2389     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2390     a=0.3407238005148000E+0;
2391     b=0.1725184055442181E+0;
2392     v=0.2846327656281355E-3;
2393     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2394     a=0.3813454978483264E+0;
2395     b=0.2103559279730725E+0;
2396     v=0.2941491102051334E-3;
2397     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2398     a=0.4209848104423343E+0;
2399     b=0.2482278774554860E+0;
2400     v=0.3016049492136107E-3;
2401     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2402     a=0.4594519699996300E+0;
2403     b=0.2858099509982883E+0;
2404     v=0.3072949726175648E-3;
2405     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2406     a=0.4965640166185930E+0;
2407     b=0.3228075659915428E+0;
2408     v=0.3114768142886460E-3;
2409     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2410     a=0.5321441655571562E+0;
2411     b=0.3589459907204151E+0;
2412     v=0.3143823673666223E-3;
2413     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2414     a=0.5660208438582166E+0;
2415     b=0.3939630088864310E+0;
2416     v=0.3162269764661535E-3;
2417     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2418     a=0.5980264315964364E+0;
2419     b=0.4276029922949089E+0;
2420     v=0.3172164663759821E-3;
2421     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2422     a=0.2644215852350733E+0;
2423     b=0.3300939429072552E-1;
2424     v=0.2554575398967435E-3;
2425     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2426     a=0.3090113743443063E+0;
2427     b=0.6803887650078501E-1;
2428     v=0.2701704069135677E-3;
2429     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2430     a=0.3525871079197808E+0;
2431     b=0.1044326136206709E+0;
2432     v=0.2823693413468940E-3;
2433     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2434     a=0.3950418005354029E+0;
2435     b=0.1416751597517679E+0;
2436     v=0.2922898463214289E-3;
2437     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2438     a=0.4362475663430163E+0;
2439     b=0.1793408610504821E+0;
2440     v=0.3001829062162428E-3;
2441     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2442     a=0.4760661812145854E+0;
2443     b=0.2170630750175722E+0;
2444     v=0.3062890864542953E-3;
2445     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2446     a=0.5143551042512103E+0;
2447     b=0.2545145157815807E+0;
2448     v=0.3108328279264746E-3;
2449     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2450     a=0.5509709026935597E+0;
2451     b=0.2913940101706601E+0;
2452     v=0.3140243146201245E-3;
2453     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2454     a=0.5857711030329428E+0;
2455     b=0.3274169910910705E+0;
2456     v=0.3160638030977130E-3;
2457     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2458     a=0.6186149917404392E+0;
2459     b=0.3623081329317265E+0;
2460     v=0.3171462882206275E-3;
2461     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2462     a=0.3586894569557064E+0;
2463     b=0.3497354386450040E-1;
2464     v=0.2812388416031796E-3;
2465     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2466     a=0.4035266610019441E+0;
2467     b=0.7129736739757095E-1;
2468     v=0.2912137500288045E-3;
2469     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2470     a=0.4467775312332510E+0;
2471     b=0.1084758620193165E+0;
2472     v=0.2993241256502206E-3;
2473     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2474     a=0.4883638346608543E+0;
2475     b=0.1460915689241772E+0;
2476     v=0.3057101738983822E-3;
2477     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2478     a=0.5281908348434601E+0;
2479     b=0.1837790832369980E+0;
2480     v=0.3105319326251432E-3;
2481     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2482     a=0.5661542687149311E+0;
2483     b=0.2212075390874021E+0;
2484     v=0.3139565514428167E-3;
2485     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2486     a=0.6021450102031452E+0;
2487     b=0.2580682841160985E+0;
2488     v=0.3161543006806366E-3;
2489     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2490     a=0.6360520783610050E+0;
2491     b=0.2940656362094121E+0;
2492     v=0.3172985960613294E-3;
2493     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2494     a=0.4521611065087196E+0;
2495     b=0.3631055365867002E-1;
2496     v=0.2989400336901431E-3;
2497     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2498     a=0.4959365651560963E+0;
2499     b=0.7348318468484350E-1;
2500     v=0.3054555883947677E-3;
2501     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2502     a=0.5376815804038283E+0;
2503     b=0.1111087643812648E+0;
2504     v=0.3104764960807702E-3;
2505     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2506     a=0.5773314480243768E+0;
2507     b=0.1488226085145408E+0;
2508     v=0.3141015825977616E-3;
2509     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2510     a=0.6148113245575056E+0;
2511     b=0.1862892274135151E+0;
2512     v=0.3164520621159896E-3;
2513     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2514     a=0.6500407462842380E+0;
2515     b=0.2231909701714456E+0;
2516     v=0.3176652305912204E-3;
2517     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2518     a=0.5425151448707213E+0;
2519     b=0.3718201306118944E-1;
2520     v=0.3105097161023939E-3;
2521     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2522     a=0.5841860556907931E+0;
2523     b=0.7483616335067346E-1;
2524     v=0.3143014117890550E-3;
2525     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2526     a=0.6234632186851500E+0;
2527     b=0.1125990834266120E+0;
2528     v=0.3168172866287200E-3;
2529     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2530     a=0.6602934551848843E+0;
2531     b=0.1501303813157619E+0;
2532     v=0.3181401865570968E-3;
2533     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2534     a=0.6278573968375105E+0;
2535     b=0.3767559930245720E-1;
2536     v=0.3170663659156037E-3;
2537     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2538     a=0.6665611711264577E+0;
2539     b=0.7548443301360158E-1;
2540     v=0.3185447944625510E-3;
2541     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2542     break;
2543 
2544   case(3890):
2545 
2546     v=0.1807395252196920E-4;
2547     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
2548     v=0.2848008782238827E-3;
2549     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
2550     v=0.2836065837530581E-3;
2551     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
2552     a=0.1587876419858352E-1;
2553     v=0.7013149266673816E-4;
2554     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2555     a=0.4069193593751206E-1;
2556     v=0.1162798021956766E-3;
2557     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2558     a=0.7025888115257997E-1;
2559     v=0.1518728583972105E-3;
2560     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2561     a=0.1027495450028704E+0;
2562     v=0.1798796108216934E-3;
2563     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2564     a=0.1371457730893426E+0;
2565     v=0.2022593385972785E-3;
2566     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2567     a=0.1727758532671953E+0;
2568     v=0.2203093105575464E-3;
2569     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2570     a=0.2091492038929037E+0;
2571     v=0.2349294234299855E-3;
2572     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2573     a=0.2458813281751915E+0;
2574     v=0.2467682058747003E-3;
2575     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2576     a=0.2826545859450066E+0;
2577     v=0.2563092683572224E-3;
2578     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2579     a=0.3191957291799622E+0;
2580     v=0.2639253896763318E-3;
2581     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2582     a=0.3552621469299578E+0;
2583     v=0.2699137479265108E-3;
2584     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2585     a=0.3906329503406230E+0;
2586     v=0.2745196420166739E-3;
2587     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2588     a=0.4251028614093031E+0;
2589     v=0.2779529197397593E-3;
2590     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2591     a=0.4584777520111870E+0;
2592     v=0.2803996086684265E-3;
2593     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2594     a=0.4905711358710193E+0;
2595     v=0.2820302356715842E-3;
2596     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2597     a=0.5212011669847385E+0;
2598     v=0.2830056747491068E-3;
2599     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2600     a=0.5501878488737995E+0;
2601     v=0.2834808950776839E-3;
2602     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2603     a=0.6025037877479342E+0;
2604     v=0.2835282339078929E-3;
2605     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2606     a=0.6254572689549016E+0;
2607     v=0.2833819267065800E-3;
2608     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2609     a=0.6460107179528248E+0;
2610     v=0.2832858336906784E-3;
2611     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2612     a=0.6639541138154251E+0;
2613     v=0.2833268235451244E-3;
2614     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2615     a=0.6790688515667495E+0;
2616     v=0.2835432677029253E-3;
2617     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2618     a=0.6911338580371512E+0;
2619     v=0.2839091722743049E-3;
2620     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2621     a=0.6999385956126490E+0;
2622     v=0.2843308178875841E-3;
2623     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2624     a=0.7053037748656896E+0;
2625     v=0.2846703550533846E-3;
2626     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2627     a=0.4732224387180115E-1;
2628     v=0.1051193406971900E-3;
2629     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2630     a=0.1202100529326803E+0;
2631     v=0.1657871838796974E-3;
2632     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2633     a=0.2034304820664855E+0;
2634     v=0.2064648113714232E-3;
2635     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2636     a=0.2912285643573002E+0;
2637     v=0.2347942745819741E-3;
2638     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2639     a=0.3802361792726768E+0;
2640     v=0.2547775326597726E-3;
2641     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2642     a=0.4680598511056146E+0;
2643     v=0.2686876684847025E-3;
2644     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2645     a=0.5528151052155599E+0;
2646     v=0.2778665755515867E-3;
2647     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2648     a=0.6329386307803041E+0;
2649     v=0.2830996616782929E-3;
2650     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2651     a=0.8056516651369069E-1;
2652     b=0.2363454684003124E-1;
2653     v=0.1403063340168372E-3;
2654     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2655     a=0.1156476077139389E+0;
2656     b=0.5191291632545936E-1;
2657     v=0.1696504125939477E-3;
2658     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2659     a=0.1520473382760421E+0;
2660     b=0.8322715736994519E-1;
2661     v=0.1935787242745390E-3;
2662     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2663     a=0.1892986699745931E+0;
2664     b=0.1165855667993712E+0;
2665     v=0.2130614510521968E-3;
2666     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2667     a=0.2270194446777792E+0;
2668     b=0.1513077167409504E+0;
2669     v=0.2289381265931048E-3;
2670     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2671     a=0.2648908185093273E+0;
2672     b=0.1868882025807859E+0;
2673     v=0.2418630292816186E-3;
2674     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2675     a=0.3026389259574136E+0;
2676     b=0.2229277629776224E+0;
2677     v=0.2523400495631193E-3;
2678     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2679     a=0.3400220296151384E+0;
2680     b=0.2590951840746235E+0;
2681     v=0.2607623973449605E-3;
2682     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2683     a=0.3768217953335510E+0;
2684     b=0.2951047291750847E+0;
2685     v=0.2674441032689209E-3;
2686     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2687     a=0.4128372900921884E+0;
2688     b=0.3307019714169930E+0;
2689     v=0.2726432360343356E-3;
2690     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2691     a=0.4478807131815630E+0;
2692     b=0.3656544101087634E+0;
2693     v=0.2765787685924545E-3;
2694     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2695     a=0.4817742034089257E+0;
2696     b=0.3997448951939695E+0;
2697     v=0.2794428690642224E-3;
2698     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2699     a=0.5143472814653344E+0;
2700     b=0.4327667110812024E+0;
2701     v=0.2814099002062895E-3;
2702     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2703     a=0.5454346213905650E+0;
2704     b=0.4645196123532293E+0;
2705     v=0.2826429531578994E-3;
2706     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2707     a=0.5748739313170252E+0;
2708     b=0.4948063555703345E+0;
2709     v=0.2832983542550884E-3;
2710     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2711     a=0.1599598738286342E+0;
2712     b=0.2792357590048985E-1;
2713     v=0.1886695565284976E-3;
2714     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2715     a=0.1998097412500951E+0;
2716     b=0.5877141038139065E-1;
2717     v=0.2081867882748234E-3;
2718     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2719     a=0.2396228952566202E+0;
2720     b=0.9164573914691377E-1;
2721     v=0.2245148680600796E-3;
2722     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2723     a=0.2792228341097746E+0;
2724     b=0.1259049641962687E+0;
2725     v=0.2380370491511872E-3;
2726     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2727     a=0.3184251107546741E+0;
2728     b=0.1610594823400863E+0;
2729     v=0.2491398041852455E-3;
2730     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2731     a=0.3570481164426244E+0;
2732     b=0.1967151653460898E+0;
2733     v=0.2581632405881230E-3;
2734     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2735     a=0.3949164710492144E+0;
2736     b=0.2325404606175168E+0;
2737     v=0.2653965506227417E-3;
2738     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2739     a=0.4318617293970503E+0;
2740     b=0.2682461141151439E+0;
2741     v=0.2710857216747087E-3;
2742     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2743     a=0.4677221009931678E+0;
2744     b=0.3035720116011973E+0;
2745     v=0.2754434093903659E-3;
2746     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2747     a=0.5023417939270955E+0;
2748     b=0.3382781859197439E+0;
2749     v=0.2786579932519380E-3;
2750     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2751     a=0.5355701836636128E+0;
2752     b=0.3721383065625942E+0;
2753     v=0.2809011080679474E-3;
2754     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2755     a=0.5672608451328771E+0;
2756     b=0.4049346360466055E+0;
2757     v=0.2823336184560987E-3;
2758     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2759     a=0.5972704202540162E+0;
2760     b=0.4364538098633802E+0;
2761     v=0.2831101175806309E-3;
2762     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2763     a=0.2461687022333596E+0;
2764     b=0.3070423166833368E-1;
2765     v=0.2221679970354546E-3;
2766     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2767     a=0.2881774566286831E+0;
2768     b=0.6338034669281885E-1;
2769     v=0.2356185734270703E-3;
2770     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2771     a=0.3293963604116978E+0;
2772     b=0.9742862487067941E-1;
2773     v=0.2469228344805590E-3;
2774     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2775     a=0.3697303822241377E+0;
2776     b=0.1323799532282290E+0;
2777     v=0.2562726348642046E-3;
2778     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2779     a=0.4090663023135127E+0;
2780     b=0.1678497018129336E+0;
2781     v=0.2638756726753028E-3;
2782     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2783     a=0.4472819355411712E+0;
2784     b=0.2035095105326114E+0;
2785     v=0.2699311157390862E-3;
2786     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2787     a=0.4842513377231437E+0;
2788     b=0.2390692566672091E+0;
2789     v=0.2746233268403837E-3;
2790     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2791     a=0.5198477629962928E+0;
2792     b=0.2742649818076149E+0;
2793     v=0.2781225674454771E-3;
2794     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2795     a=0.5539453011883145E+0;
2796     b=0.3088503806580094E+0;
2797     v=0.2805881254045684E-3;
2798     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2799     a=0.5864196762401251E+0;
2800     b=0.3425904245906614E+0;
2801     v=0.2821719877004913E-3;
2802     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2803     a=0.6171484466668390E+0;
2804     b=0.3752562294789468E+0;
2805     v=0.2830222502333124E-3;
2806     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2807     a=0.3350337830565727E+0;
2808     b=0.3261589934634747E-1;
2809     v=0.2457995956744870E-3;
2810     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2811     a=0.3775773224758284E+0;
2812     b=0.6658438928081572E-1;
2813     v=0.2551474407503706E-3;
2814     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2815     a=0.4188155229848973E+0;
2816     b=0.1014565797157954E+0;
2817     v=0.2629065335195311E-3;
2818     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2819     a=0.4586805892009344E+0;
2820     b=0.1368573320843822E+0;
2821     v=0.2691900449925075E-3;
2822     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2823     a=0.4970895714224235E+0;
2824     b=0.1724614851951608E+0;
2825     v=0.2741275485754276E-3;
2826     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2827     a=0.5339505133960747E+0;
2828     b=0.2079779381416412E+0;
2829     v=0.2778530970122595E-3;
2830     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2831     a=0.5691665792531440E+0;
2832     b=0.2431385788322288E+0;
2833     v=0.2805010567646741E-3;
2834     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2835     a=0.6026387682680377E+0;
2836     b=0.2776901883049853E+0;
2837     v=0.2822055834031040E-3;
2838     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2839     a=0.6342676150163307E+0;
2840     b=0.3113881356386632E+0;
2841     v=0.2831016901243473E-3;
2842     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2843     a=0.4237951119537067E+0;
2844     b=0.3394877848664351E-1;
2845     v=0.2624474901131803E-3;
2846     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2847     a=0.4656918683234929E+0;
2848     b=0.6880219556291447E-1;
2849     v=0.2688034163039377E-3;
2850     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2851     a=0.5058857069185980E+0;
2852     b=0.1041946859721635E+0;
2853     v=0.2738932751287636E-3;
2854     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2855     a=0.5443204666713996E+0;
2856     b=0.1398039738736393E+0;
2857     v=0.2777944791242523E-3;
2858     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2859     a=0.5809298813759742E+0;
2860     b=0.1753373381196155E+0;
2861     v=0.2806011661660987E-3;
2862     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2863     a=0.6156416039447128E+0;
2864     b=0.2105215793514010E+0;
2865     v=0.2824181456597460E-3;
2866     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2867     a=0.6483801351066604E+0;
2868     b=0.2450953312157051E+0;
2869     v=0.2833585216577828E-3;
2870     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2871     a=0.5103616577251688E+0;
2872     b=0.3485560643800719E-1;
2873     v=0.2738165236962878E-3;
2874     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2875     a=0.5506738792580681E+0;
2876     b=0.7026308631512033E-1;
2877     v=0.2778365208203180E-3;
2878     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2879     a=0.5889573040995292E+0;
2880     b=0.1059035061296403E+0;
2881     v=0.2807852940418966E-3;
2882     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2883     a=0.6251641589516930E+0;
2884     b=0.1414823925236026E+0;
2885     v=0.2827245949674705E-3;
2886     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2887     a=0.6592414921570178E+0;
2888     b=0.1767207908214530E+0;
2889     v=0.2837342344829828E-3;
2890     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2891     a=0.5930314017533384E+0;
2892     b=0.3542189339561672E-1;
2893     v=0.2809233907610981E-3;
2894     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2895     a=0.6309812253390175E+0;
2896     b=0.7109574040369549E-1;
2897     v=0.2829930809742694E-3;
2898     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2899     a=0.6666296011353230E+0;
2900     b=0.1067259792282730E+0;
2901     v=0.2841097874111479E-3;
2902     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2903     a=0.6703715271049922E+0;
2904     b=0.3569455268820809E-1;
2905     v=0.2843455206008783E-3;
2906     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
2907     break;
2908 
2909   case(4334):
2910 
2911     v=0.1449063022537883E-4;
2912     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
2913     v=0.2546377329828424E-3;
2914     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
2915     a=0.1462896151831013E-1;
2916     v=0.6018432961087496E-4;
2917     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2918     a=0.3769840812493139E-1;
2919     v=0.1002286583263673E-3;
2920     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2921     a=0.6524701904096891E-1;
2922     v=0.1315222931028093E-3;
2923     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2924     a=0.9560543416134648E-1;
2925     v=0.1564213746876724E-3;
2926     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2927     a=0.1278335898929198E+0;
2928     v=0.1765118841507736E-3;
2929     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2930     a=0.1613096104466031E+0;
2931     v=0.1928737099311080E-3;
2932     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2933     a=0.1955806225745371E+0;
2934     v=0.2062658534263270E-3;
2935     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2936     a=0.2302935218498028E+0;
2937     v=0.2172395445953787E-3;
2938     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2939     a=0.2651584344113027E+0;
2940     v=0.2262076188876047E-3;
2941     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2942     a=0.2999276825183209E+0;
2943     v=0.2334885699462397E-3;
2944     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2945     a=0.3343828669718798E+0;
2946     v=0.2393355273179203E-3;
2947     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2948     a=0.3683265013750518E+0;
2949     v=0.2439559200468863E-3;
2950     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2951     a=0.4015763206518108E+0;
2952     v=0.2475251866060002E-3;
2953     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2954     a=0.4339612026399770E+0;
2955     v=0.2501965558158773E-3;
2956     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2957     a=0.4653180651114582E+0;
2958     v=0.2521081407925925E-3;
2959     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2960     a=0.4954893331080803E+0;
2961     v=0.2533881002388081E-3;
2962     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2963     a=0.5243207068924930E+0;
2964     v=0.2541582900848261E-3;
2965     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2966     a=0.5516590479041704E+0;
2967     v=0.2545365737525860E-3;
2968     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2969     a=0.6012371927804176E+0;
2970     v=0.2545726993066799E-3;
2971     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2972     a=0.6231574466449819E+0;
2973     v=0.2544456197465555E-3;
2974     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2975     a=0.6429416514181271E+0;
2976     v=0.2543481596881064E-3;
2977     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2978     a=0.6604124272943595E+0;
2979     v=0.2543506451429194E-3;
2980     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2981     a=0.6753851470408250E+0;
2982     v=0.2544905675493763E-3;
2983     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2984     a=0.6876717970626160E+0;
2985     v=0.2547611407344429E-3;
2986     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2987     a=0.6970895061319234E+0;
2988     v=0.2551060375448869E-3;
2989     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2990     a=0.7034746912553310E+0;
2991     v=0.2554291933816039E-3;
2992     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2993     a=0.7067017217542295E+0;
2994     v=0.2556255710686343E-3;
2995     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
2996     a=0.4382223501131123E-1;
2997     v=0.9041339695118195E-4;
2998     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
2999     a=0.1117474077400006E+0;
3000     v=0.1438426330079022E-3;
3001     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3002     a=0.1897153252911440E+0;
3003     v=0.1802523089820518E-3;
3004     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3005     a=0.2724023009910331E+0;
3006     v=0.2060052290565496E-3;
3007     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3008     a=0.3567163308709902E+0;
3009     v=0.2245002248967466E-3;
3010     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3011     a=0.4404784483028087E+0;
3012     v=0.2377059847731150E-3;
3013     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3014     a=0.5219833154161411E+0;
3015     v=0.2468118955882525E-3;
3016     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3017     a=0.5998179868977553E+0;
3018     v=0.2525410872966528E-3;
3019     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3020     a=0.6727803154548222E+0;
3021     v=0.2553101409933397E-3;
3022     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3023     a=0.7476563943166086E-1;
3024     b=0.2193168509461185E-1;
3025     v=0.1212879733668632E-3;
3026     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3027     a=0.1075341482001416E+0;
3028     b=0.4826419281533887E-1;
3029     v=0.1472872881270931E-3;
3030     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3031     a=0.1416344885203259E+0;
3032     b=0.7751191883575742E-1;
3033     v=0.1686846601010828E-3;
3034     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3035     a=0.1766325315388586E+0;
3036     b=0.1087558139247680E+0;
3037     v=0.1862698414660208E-3;
3038     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3039     a=0.2121744174481514E+0;
3040     b=0.1413661374253096E+0;
3041     v=0.2007430956991861E-3;
3042     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3043     a=0.2479669443408145E+0;
3044     b=0.1748768214258880E+0;
3045     v=0.2126568125394796E-3;
3046     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3047     a=0.2837600452294113E+0;
3048     b=0.2089216406612073E+0;
3049     v=0.2224394603372113E-3;
3050     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3051     a=0.3193344933193984E+0;
3052     b=0.2431987685545972E+0;
3053     v=0.2304264522673135E-3;
3054     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3055     a=0.3544935442438745E+0;
3056     b=0.2774497054377770E+0;
3057     v=0.2368854288424087E-3;
3058     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3059     a=0.3890571932288154E+0;
3060     b=0.3114460356156915E+0;
3061     v=0.2420352089461772E-3;
3062     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3063     a=0.4228581214259090E+0;
3064     b=0.3449806851913012E+0;
3065     v=0.2460597113081295E-3;
3066     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3067     a=0.4557387211304052E+0;
3068     b=0.3778618641248256E+0;
3069     v=0.2491181912257687E-3;
3070     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3071     a=0.4875487950541643E+0;
3072     b=0.4099086391698978E+0;
3073     v=0.2513528194205857E-3;
3074     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3075     a=0.5181436529962997E+0;
3076     b=0.4409474925853973E+0;
3077     v=0.2528943096693220E-3;
3078     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3079     a=0.5473824095600661E+0;
3080     b=0.4708094517711291E+0;
3081     v=0.2538660368488136E-3;
3082     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3083     a=0.5751263398976174E+0;
3084     b=0.4993275140354637E+0;
3085     v=0.2543868648299022E-3;
3086     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3087     a=0.1489515746840028E+0;
3088     b=0.2599381993267017E-1;
3089     v=0.1642595537825183E-3;
3090     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3091     a=0.1863656444351767E+0;
3092     b=0.5479286532462190E-1;
3093     v=0.1818246659849308E-3;
3094     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3095     a=0.2238602880356348E+0;
3096     b=0.8556763251425254E-1;
3097     v=0.1966565649492420E-3;
3098     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3099     a=0.2612723375728160E+0;
3100     b=0.1177257802267011E+0;
3101     v=0.2090677905657991E-3;
3102     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3103     a=0.2984332990206190E+0;
3104     b=0.1508168456192700E+0;
3105     v=0.2193820409510504E-3;
3106     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3107     a=0.3351786584663333E+0;
3108     b=0.1844801892177727E+0;
3109     v=0.2278870827661928E-3;
3110     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3111     a=0.3713505522209120E+0;
3112     b=0.2184145236087598E+0;
3113     v=0.2348283192282090E-3;
3114     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3115     a=0.4067981098954663E+0;
3116     b=0.2523590641486229E+0;
3117     v=0.2404139755581477E-3;
3118     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3119     a=0.4413769993687534E+0;
3120     b=0.2860812976901373E+0;
3121     v=0.2448227407760734E-3;
3122     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3123     a=0.4749487182516394E+0;
3124     b=0.3193686757808996E+0;
3125     v=0.2482110455592573E-3;
3126     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3127     a=0.5073798105075426E+0;
3128     b=0.3520226949547602E+0;
3129     v=0.2507192397774103E-3;
3130     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3131     a=0.5385410448878654E+0;
3132     b=0.3838544395667890E+0;
3133     v=0.2524765968534880E-3;
3134     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3135     a=0.5683065353670530E+0;
3136     b=0.4146810037640963E+0;
3137     v=0.2536052388539425E-3;
3138     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3139     a=0.5965527620663510E+0;
3140     b=0.4443224094681121E+0;
3141     v=0.2542230588033068E-3;
3142     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3143     a=0.2299227700856157E+0;
3144     b=0.2865757664057584E-1;
3145     v=0.1944817013047896E-3;
3146     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3147     a=0.2695752998553267E+0;
3148     b=0.5923421684485993E-1;
3149     v=0.2067862362746635E-3;
3150     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3151     a=0.3086178716611389E+0;
3152     b=0.9117817776057715E-1;
3153     v=0.2172440734649114E-3;
3154     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3155     a=0.3469649871659077E+0;
3156     b=0.1240593814082605E+0;
3157     v=0.2260125991723423E-3;
3158     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3159     a=0.3845153566319655E+0;
3160     b=0.1575272058259175E+0;
3161     v=0.2332655008689523E-3;
3162     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3163     a=0.4211600033403215E+0;
3164     b=0.1912845163525413E+0;
3165     v=0.2391699681532458E-3;
3166     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3167     a=0.4567867834329882E+0;
3168     b=0.2250710177858171E+0;
3169     v=0.2438801528273928E-3;
3170     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3171     a=0.4912829319232061E+0;
3172     b=0.2586521303440910E+0;
3173     v=0.2475370504260665E-3;
3174     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3175     a=0.5245364793303812E+0;
3176     b=0.2918112242865407E+0;
3177     v=0.2502707235640574E-3;
3178     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3179     a=0.5564369788915756E+0;
3180     b=0.3243439239067890E+0;
3181     v=0.2522031701054241E-3;
3182     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3183     a=0.5868757697775287E+0;
3184     b=0.3560536787835351E+0;
3185     v=0.2534511269978784E-3;
3186     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3187     a=0.6157458853519617E+0;
3188     b=0.3867480821242581E+0;
3189     v=0.2541284914955151E-3;
3190     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3191     a=0.3138461110672113E+0;
3192     b=0.3051374637507278E-1;
3193     v=0.2161509250688394E-3;
3194     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3195     a=0.3542495872050569E+0;
3196     b=0.6237111233730755E-1;
3197     v=0.2248778513437852E-3;
3198     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3199     a=0.3935751553120181E+0;
3200     b=0.9516223952401907E-1;
3201     v=0.2322388803404617E-3;
3202     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3203     a=0.4317634668111147E+0;
3204     b=0.1285467341508517E+0;
3205     v=0.2383265471001355E-3;
3206     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3207     a=0.4687413842250821E+0;
3208     b=0.1622318931656033E+0;
3209     v=0.2432476675019525E-3;
3210     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3211     a=0.5044274237060283E+0;
3212     b=0.1959581153836453E+0;
3213     v=0.2471122223750674E-3;
3214     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3215     a=0.5387354077925727E+0;
3216     b=0.2294888081183837E+0;
3217     v=0.2500291752486870E-3;
3218     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3219     a=0.5715768898356105E+0;
3220     b=0.2626031152713945E+0;
3221     v=0.2521055942764682E-3;
3222     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3223     a=0.6028627200136111E+0;
3224     b=0.2950904075286713E+0;
3225     v=0.2534472785575503E-3;
3226     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3227     a=0.6325039812653463E+0;
3228     b=0.3267458451113286E+0;
3229     v=0.2541599713080121E-3;
3230     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3231     a=0.3981986708423407E+0;
3232     b=0.3183291458749821E-1;
3233     v=0.2317380975862936E-3;
3234     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3235     a=0.4382791182133300E+0;
3236     b=0.6459548193880908E-1;
3237     v=0.2378550733719775E-3;
3238     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3239     a=0.4769233057218166E+0;
3240     b=0.9795757037087952E-1;
3241     v=0.2428884456739118E-3;
3242     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3243     a=0.5140823911194238E+0;
3244     b=0.1316307235126655E+0;
3245     v=0.2469002655757292E-3;
3246     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3247     a=0.5496977833862983E+0;
3248     b=0.1653556486358704E+0;
3249     v=0.2499657574265851E-3;
3250     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3251     a=0.5837047306512727E+0;
3252     b=0.1988931724126510E+0;
3253     v=0.2521676168486082E-3;
3254     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3255     a=0.6160349566926879E+0;
3256     b=0.2320174581438950E+0;
3257     v=0.2535935662645334E-3;
3258     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3259     a=0.6466185353209440E+0;
3260     b=0.2645106562168662E+0;
3261     v=0.2543356743363214E-3;
3262     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3263     a=0.4810835158795404E+0;
3264     b=0.3275917807743992E-1;
3265     v=0.2427353285201535E-3;
3266     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3267     a=0.5199925041324341E+0;
3268     b=0.6612546183967181E-1;
3269     v=0.2468258039744386E-3;
3270     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3271     a=0.5571717692207494E+0;
3272     b=0.9981498331474143E-1;
3273     v=0.2500060956440310E-3;
3274     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3275     a=0.5925789250836378E+0;
3276     b=0.1335687001410374E+0;
3277     v=0.2523238365420979E-3;
3278     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3279     a=0.6261658523859670E+0;
3280     b=0.1671444402896463E+0;
3281     v=0.2538399260252846E-3;
3282     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3283     a=0.6578811126669331E+0;
3284     b=0.2003106382156076E+0;
3285     v=0.2546255927268069E-3;
3286     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3287     a=0.5609624612998100E+0;
3288     b=0.3337500940231335E-1;
3289     v=0.2500583360048449E-3;
3290     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3291     a=0.5979959659984670E+0;
3292     b=0.6708750335901803E-1;
3293     v=0.2524777638260203E-3;
3294     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3295     a=0.6330523711054002E+0;
3296     b=0.1008792126424850E+0;
3297     v=0.2540951193860656E-3;
3298     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3299     a=0.6660960998103972E+0;
3300     b=0.1345050343171794E+0;
3301     v=0.2549524085027472E-3;
3302     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3303     a=0.6365384364585819E+0;
3304     b=0.3372799460737052E-1;
3305     v=0.2542569507009158E-3;
3306     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3307     a=0.6710994302899275E+0;
3308     b=0.6755249309678028E-1;
3309     v=0.2552114127580376E-3;
3310     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3311     break;
3312 
3313   case(4802):
3314 
3315     v=0.9687521879420705E-4;
3316     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
3317     v=0.2307897895367918E-3;
3318     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
3319     v=0.2297310852498558E-3;
3320     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
3321     a=0.2335728608887064E-1;
3322     v=0.7386265944001919E-4;
3323     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3324     a=0.4352987836550653E-1;
3325     v=0.8257977698542210E-4;
3326     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3327     a=0.6439200521088801E-1;
3328     v=0.9706044762057630E-4;
3329     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3330     a=0.9003943631993181E-1;
3331     v=0.1302393847117003E-3;
3332     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3333     a=0.1196706615548473E+0;
3334     v=0.1541957004600968E-3;
3335     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3336     a=0.1511715412838134E+0;
3337     v=0.1704459770092199E-3;
3338     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3339     a=0.1835982828503801E+0;
3340     v=0.1827374890942906E-3;
3341     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3342     a=0.2165081259155405E+0;
3343     v=0.1926360817436107E-3;
3344     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3345     a=0.2496208720417563E+0;
3346     v=0.2008010239494833E-3;
3347     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3348     a=0.2827200673567900E+0;
3349     v=0.2075635983209175E-3;
3350     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3351     a=0.3156190823994346E+0;
3352     v=0.2131306638690909E-3;
3353     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3354     a=0.3481476793749115E+0;
3355     v=0.2176562329937335E-3;
3356     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3357     a=0.3801466086947226E+0;
3358     v=0.2212682262991018E-3;
3359     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3360     a=0.4114652119634011E+0;
3361     v=0.2240799515668565E-3;
3362     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3363     a=0.4419598786519751E+0;
3364     v=0.2261959816187525E-3;
3365     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3366     a=0.4714925949329543E+0;
3367     v=0.2277156368808855E-3;
3368     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3369     a=0.4999293972879466E+0;
3370     v=0.2287351772128336E-3;
3371     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3372     a=0.5271387221431248E+0;
3373     v=0.2293490814084085E-3;
3374     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3375     a=0.5529896780837761E+0;
3376     v=0.2296505312376273E-3;
3377     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3378     a=0.6000856099481712E+0;
3379     v=0.2296793832318756E-3;
3380     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3381     a=0.6210562192785175E+0;
3382     v=0.2295785443842974E-3;
3383     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3384     a=0.6401165879934240E+0;
3385     v=0.2295017931529102E-3;
3386     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3387     a=0.6571144029244334E+0;
3388     v=0.2295059638184868E-3;
3389     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3390     a=0.6718910821718863E+0;
3391     v=0.2296232343237362E-3;
3392     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3393     a=0.6842845591099010E+0;
3394     v=0.2298530178740771E-3;
3395     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3396     a=0.6941353476269816E+0;
3397     v=0.2301579790280501E-3;
3398     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3399     a=0.7012965242212991E+0;
3400     v=0.2304690404996513E-3;
3401     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3402     a=0.7056471428242644E+0;
3403     v=0.2307027995907102E-3;
3404     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3405     a=0.4595557643585895E-1;
3406     v=0.9312274696671092E-4;
3407     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3408     a=0.1049316742435023E+0;
3409     v=0.1199919385876926E-3;
3410     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3411     a=0.1773548879549274E+0;
3412     v=0.1598039138877690E-3;
3413     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3414     a=0.2559071411236127E+0;
3415     v=0.1822253763574900E-3;
3416     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3417     a=0.3358156837985898E+0;
3418     v=0.1988579593655040E-3;
3419     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3420     a=0.4155835743763893E+0;
3421     v=0.2112620102533307E-3;
3422     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3423     a=0.4937894296167472E+0;
3424     v=0.2201594887699007E-3;
3425     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3426     a=0.5691569694793316E+0;
3427     v=0.2261622590895036E-3;
3428     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3429     a=0.6405840854894251E+0;
3430     v=0.2296458453435705E-3;
3431     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3432     a=0.7345133894143348E-1;
3433     b=0.2177844081486067E-1;
3434     v=0.1006006990267000E-3;
3435     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3436     a=0.1009859834044931E+0;
3437     b=0.4590362185775188E-1;
3438     v=0.1227676689635876E-3;
3439     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3440     a=0.1324289619748758E+0;
3441     b=0.7255063095690877E-1;
3442     v=0.1467864280270117E-3;
3443     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3444     a=0.1654272109607127E+0;
3445     b=0.1017825451960684E+0;
3446     v=0.1644178912101232E-3;
3447     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3448     a=0.1990767186776461E+0;
3449     b=0.1325652320980364E+0;
3450     v=0.1777664890718961E-3;
3451     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3452     a=0.2330125945523278E+0;
3453     b=0.1642765374496765E+0;
3454     v=0.1884825664516690E-3;
3455     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3456     a=0.2670080611108287E+0;
3457     b=0.1965360374337889E+0;
3458     v=0.1973269246453848E-3;
3459     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3460     a=0.3008753376294316E+0;
3461     b=0.2290726770542238E+0;
3462     v=0.2046767775855328E-3;
3463     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3464     a=0.3344475596167860E+0;
3465     b=0.2616645495370823E+0;
3466     v=0.2107600125918040E-3;
3467     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3468     a=0.3675709724070786E+0;
3469     b=0.2941150728843141E+0;
3470     v=0.2157416362266829E-3;
3471     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3472     a=0.4001000887587812E+0;
3473     b=0.3262440400919066E+0;
3474     v=0.2197557816920721E-3;
3475     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3476     a=0.4318956350436028E+0;
3477     b=0.3578835350611916E+0;
3478     v=0.2229192611835437E-3;
3479     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3480     a=0.4628239056795531E+0;
3481     b=0.3888751854043678E+0;
3482     v=0.2253385110212775E-3;
3483     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3484     a=0.4927563229773636E+0;
3485     b=0.4190678003222840E+0;
3486     v=0.2271137107548774E-3;
3487     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3488     a=0.5215687136707969E+0;
3489     b=0.4483151836883852E+0;
3490     v=0.2283414092917525E-3;
3491     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3492     a=0.5491402346984905E+0;
3493     b=0.4764740676087880E+0;
3494     v=0.2291161673130077E-3;
3495     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3496     a=0.5753520160126075E+0;
3497     b=0.5034021310998277E+0;
3498     v=0.2295313908576598E-3;
3499     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3500     a=0.1388326356417754E+0;
3501     b=0.2435436510372806E-1;
3502     v=0.1438204721359031E-3;
3503     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3504     a=0.1743686900537244E+0;
3505     b=0.5118897057342652E-1;
3506     v=0.1607738025495257E-3;
3507     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3508     a=0.2099737037950268E+0;
3509     b=0.8014695048539634E-1;
3510     v=0.1741483853528379E-3;
3511     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3512     a=0.2454492590908548E+0;
3513     b=0.1105117874155699E+0;
3514     v=0.1851918467519151E-3;
3515     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3516     a=0.2807219257864278E+0;
3517     b=0.1417950531570966E+0;
3518     v=0.1944628638070613E-3;
3519     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3520     a=0.3156842271975842E+0;
3521     b=0.1736604945719597E+0;
3522     v=0.2022495446275152E-3;
3523     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3524     a=0.3502090945177752E+0;
3525     b=0.2058466324693981E+0;
3526     v=0.2087462382438514E-3;
3527     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3528     a=0.3841684849519686E+0;
3529     b=0.2381284261195919E+0;
3530     v=0.2141074754818308E-3;
3531     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3532     a=0.4174372367906016E+0;
3533     b=0.2703031270422569E+0;
3534     v=0.2184640913748162E-3;
3535     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3536     a=0.4498926465011892E+0;
3537     b=0.3021845683091309E+0;
3538     v=0.2219309165220329E-3;
3539     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3540     a=0.4814146229807701E+0;
3541     b=0.3335993355165720E+0;
3542     v=0.2246123118340624E-3;
3543     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3544     a=0.5118863625734701E+0;
3545     b=0.3643833735518232E+0;
3546     v=0.2266062766915125E-3;
3547     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3548     a=0.5411947455119144E+0;
3549     b=0.3943789541958179E+0;
3550     v=0.2280072952230796E-3;
3551     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3552     a=0.5692301500357246E+0;
3553     b=0.4234320144403542E+0;
3554     v=0.2289082025202583E-3;
3555     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3556     a=0.5958857204139576E+0;
3557     b=0.4513897947419260E+0;
3558     v=0.2294012695120025E-3;
3559     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3560     a=0.2156270284785766E+0;
3561     b=0.2681225755444491E-1;
3562     v=0.1722434488736947E-3;
3563     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3564     a=0.2532385054909710E+0;
3565     b=0.5557495747805614E-1;
3566     v=0.1830237421455091E-3;
3567     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3568     a=0.2902564617771537E+0;
3569     b=0.8569368062950249E-1;
3570     v=0.1923855349997633E-3;
3571     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3572     a=0.3266979823143256E+0;
3573     b=0.1167367450324135E+0;
3574     v=0.2004067861936271E-3;
3575     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3576     a=0.3625039627493614E+0;
3577     b=0.1483861994003304E+0;
3578     v=0.2071817297354263E-3;
3579     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3580     a=0.3975838937548699E+0;
3581     b=0.1803821503011405E+0;
3582     v=0.2128250834102103E-3;
3583     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3584     a=0.4318396099009774E+0;
3585     b=0.2124962965666424E+0;
3586     v=0.2174513719440102E-3;
3587     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3588     a=0.4651706555732742E+0;
3589     b=0.2445221837805913E+0;
3590     v=0.2211661839150214E-3;
3591     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3592     a=0.4974752649620969E+0;
3593     b=0.2762701224322987E+0;
3594     v=0.2240665257813102E-3;
3595     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3596     a=0.5286517579627517E+0;
3597     b=0.3075627775211328E+0;
3598     v=0.2262439516632620E-3;
3599     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3600     a=0.5586001195731895E+0;
3601     b=0.3382311089826877E+0;
3602     v=0.2277874557231869E-3;
3603     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3604     a=0.5872229902021319E+0;
3605     b=0.3681108834741399E+0;
3606     v=0.2287854314454994E-3;
3607     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3608     a=0.6144258616235123E+0;
3609     b=0.3970397446872839E+0;
3610     v=0.2293268499615575E-3;
3611     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3612     a=0.2951676508064861E+0;
3613     b=0.2867499538750441E-1;
3614     v=0.1912628201529828E-3;
3615     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3616     a=0.3335085485472725E+0;
3617     b=0.5867879341903510E-1;
3618     v=0.1992499672238701E-3;
3619     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3620     a=0.3709561760636381E+0;
3621     b=0.8961099205022284E-1;
3622     v=0.2061275533454027E-3;
3623     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3624     a=0.4074722861667498E+0;
3625     b=0.1211627927626297E+0;
3626     v=0.2119318215968572E-3;
3627     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3628     a=0.4429923648839117E+0;
3629     b=0.1530748903554898E+0;
3630     v=0.2167416581882652E-3;
3631     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3632     a=0.4774428052721736E+0;
3633     b=0.1851176436721877E+0;
3634     v=0.2206430730516600E-3;
3635     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3636     a=0.5107446539535904E+0;
3637     b=0.2170829107658179E+0;
3638     v=0.2237186938699523E-3;
3639     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3640     a=0.5428151370542935E+0;
3641     b=0.2487786689026271E+0;
3642     v=0.2260480075032884E-3;
3643     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3644     a=0.5735699292556964E+0;
3645     b=0.2800239952795016E+0;
3646     v=0.2277098884558542E-3;
3647     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3648     a=0.6029253794562866E+0;
3649     b=0.3106445702878119E+0;
3650     v=0.2287845715109671E-3;
3651     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3652     a=0.6307998987073145E+0;
3653     b=0.3404689500841194E+0;
3654     v=0.2293547268236294E-3;
3655     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3656     a=0.3752652273692719E+0;
3657     b=0.2997145098184479E-1;
3658     v=0.2056073839852528E-3;
3659     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3660     a=0.4135383879344028E+0;
3661     b=0.6086725898678011E-1;
3662     v=0.2114235865831876E-3;
3663     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3664     a=0.4506113885153907E+0;
3665     b=0.9238849548435643E-1;
3666     v=0.2163175629770551E-3;
3667     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3668     a=0.4864401554606072E+0;
3669     b=0.1242786603851851E+0;
3670     v=0.2203392158111650E-3;
3671     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3672     a=0.5209708076611709E+0;
3673     b=0.1563086731483386E+0;
3674     v=0.2235473176847839E-3;
3675     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3676     a=0.5541422135830122E+0;
3677     b=0.1882696509388506E+0;
3678     v=0.2260024141501235E-3;
3679     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3680     a=0.5858880915113817E+0;
3681     b=0.2199672979126059E+0;
3682     v=0.2277675929329182E-3;
3683     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3684     a=0.6161399390603444E+0;
3685     b=0.2512165482924867E+0;
3686     v=0.2289102112284834E-3;
3687     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3688     a=0.6448296482255090E+0;
3689     b=0.2818368701871888E+0;
3690     v=0.2295027954625118E-3;
3691     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3692     a=0.4544796274917948E+0;
3693     b=0.3088970405060312E-1;
3694     v=0.2161281589879992E-3;
3695     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3696     a=0.4919389072146628E+0;
3697     b=0.6240947677636835E-1;
3698     v=0.2201980477395102E-3;
3699     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3700     a=0.5279313026985183E+0;
3701     b=0.9430706144280313E-1;
3702     v=0.2234952066593166E-3;
3703     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3704     a=0.5624169925571135E+0;
3705     b=0.1263547818770374E+0;
3706     v=0.2260540098520838E-3;
3707     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3708     a=0.5953484627093287E+0;
3709     b=0.1583430788822594E+0;
3710     v=0.2279157981899988E-3;
3711     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3712     a=0.6266730715339185E+0;
3713     b=0.1900748462555988E+0;
3714     v=0.2291296918565571E-3;
3715     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3716     a=0.6563363204278871E+0;
3717     b=0.2213599519592567E+0;
3718     v=0.2297533752536649E-3;
3719     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3720     a=0.5314574716585696E+0;
3721     b=0.3152508811515374E-1;
3722     v=0.2234927356465995E-3;
3723     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3724     a=0.5674614932298185E+0;
3725     b=0.6343865291465561E-1;
3726     v=0.2261288012985219E-3;
3727     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3728     a=0.6017706004970264E+0;
3729     b=0.9551503504223951E-1;
3730     v=0.2280818160923688E-3;
3731     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3732     a=0.6343471270264178E+0;
3733     b=0.1275440099801196E+0;
3734     v=0.2293773295180159E-3;
3735     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3736     a=0.6651494599127802E+0;
3737     b=0.1593252037671960E+0;
3738     v=0.2300528767338634E-3;
3739     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3740     a=0.6050184986005704E+0;
3741     b=0.3192538338496105E-1;
3742     v=0.2281893855065666E-3;
3743     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3744     a=0.6390163550880400E+0;
3745     b=0.6402824353962306E-1;
3746     v=0.2295720444840727E-3;
3747     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3748     a=0.6711199107088448E+0;
3749     b=0.9609805077002909E-1;
3750     v=0.2303227649026753E-3;
3751     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3752     a=0.6741354429572275E+0;
3753     b=0.3211853196273233E-1;
3754     v=0.2304831913227114E-3;
3755     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3756     break;
3757 
3758   case(5294):
3759 
3760     v=0.9080510764308163E-4;
3761     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
3762     v=0.2084824361987793E-3;
3763     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
3764     a=0.2303261686261450E-1;
3765     v=0.5011105657239616E-4;
3766     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3767     a=0.3757208620162394E-1;
3768     v=0.5942520409683854E-4;
3769     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3770     a=0.5821912033821852E-1;
3771     v=0.9564394826109721E-4;
3772     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3773     a=0.8403127529194872E-1;
3774     v=0.1185530657126338E-3;
3775     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3776     a=0.1122927798060578E+0;
3777     v=0.1364510114230331E-3;
3778     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3779     a=0.1420125319192987E+0;
3780     v=0.1505828825605415E-3;
3781     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3782     a=0.1726396437341978E+0;
3783     v=0.1619298749867023E-3;
3784     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3785     a=0.2038170058115696E+0;
3786     v=0.1712450504267789E-3;
3787     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3788     a=0.2352849892876508E+0;
3789     v=0.1789891098164999E-3;
3790     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3791     a=0.2668363354312461E+0;
3792     v=0.1854474955629795E-3;
3793     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3794     a=0.2982941279900452E+0;
3795     v=0.1908148636673661E-3;
3796     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3797     a=0.3295002922087076E+0;
3798     v=0.1952377405281833E-3;
3799     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3800     a=0.3603094918363593E+0;
3801     v=0.1988349254282232E-3;
3802     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3803     a=0.3905857895173920E+0;
3804     v=0.2017079807160050E-3;
3805     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3806     a=0.4202005758160837E+0;
3807     v=0.2039473082709094E-3;
3808     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3809     a=0.4490310061597227E+0;
3810     v=0.2056360279288953E-3;
3811     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3812     a=0.4769586160311491E+0;
3813     v=0.2068525823066865E-3;
3814     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3815     a=0.5038679887049750E+0;
3816     v=0.2076724877534488E-3;
3817     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3818     a=0.5296454286519961E+0;
3819     v=0.2081694278237885E-3;
3820     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3821     a=0.5541776207164850E+0;
3822     v=0.2084157631219326E-3;
3823     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3824     a=0.5990467321921213E+0;
3825     v=0.2084381531128593E-3;
3826     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3827     a=0.6191467096294587E+0;
3828     v=0.2083476277129307E-3;
3829     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3830     a=0.6375251212901849E+0;
3831     v=0.2082686194459732E-3;
3832     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3833     a=0.6540514381131168E+0;
3834     v=0.2082475686112415E-3;
3835     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3836     a=0.6685899064391510E+0;
3837     v=0.2083139860289915E-3;
3838     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3839     a=0.6810013009681648E+0;
3840     v=0.2084745561831237E-3;
3841     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3842     a=0.6911469578730340E+0;
3843     v=0.2087091313375890E-3;
3844     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3845     a=0.6988956915141736E+0;
3846     v=0.2089718413297697E-3;
3847     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3848     a=0.7041335794868720E+0;
3849     v=0.2092003303479793E-3;
3850     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3851     a=0.7067754398018567E+0;
3852     v=0.2093336148263241E-3;
3853     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
3854     a=0.3840368707853623E-1;
3855     v=0.7591708117365267E-4;
3856     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3857     a=0.9835485954117399E-1;
3858     v=0.1083383968169186E-3;
3859     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3860     a=0.1665774947612998E+0;
3861     v=0.1403019395292510E-3;
3862     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3863     a=0.2405702335362910E+0;
3864     v=0.1615970179286436E-3;
3865     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3866     a=0.3165270770189046E+0;
3867     v=0.1771144187504911E-3;
3868     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3869     a=0.3927386145645443E+0;
3870     v=0.1887760022988168E-3;
3871     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3872     a=0.4678825918374656E+0;
3873     v=0.1973474670768214E-3;
3874     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3875     a=0.5408022024266935E+0;
3876     v=0.2033787661234659E-3;
3877     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3878     a=0.6104967445752438E+0;
3879     v=0.2072343626517331E-3;
3880     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3881     a=0.6760910702685738E+0;
3882     v=0.2091177834226918E-3;
3883     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
3884     a=0.6655644120217392E-1;
3885     b=0.1936508874588424E-1;
3886     v=0.9316684484675566E-4;
3887     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3888     a=0.9446246161270182E-1;
3889     b=0.4252442002115869E-1;
3890     v=0.1116193688682976E-3;
3891     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3892     a=0.1242651925452509E+0;
3893     b=0.6806529315354374E-1;
3894     v=0.1298623551559414E-3;
3895     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3896     a=0.1553438064846751E+0;
3897     b=0.9560957491205369E-1;
3898     v=0.1450236832456426E-3;
3899     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3900     a=0.1871137110542670E+0;
3901     b=0.1245931657452888E+0;
3902     v=0.1572719958149914E-3;
3903     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3904     a=0.2192612628836257E+0;
3905     b=0.1545385828778978E+0;
3906     v=0.1673234785867195E-3;
3907     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3908     a=0.2515682807206955E+0;
3909     b=0.1851004249723368E+0;
3910     v=0.1756860118725188E-3;
3911     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3912     a=0.2838535866287290E+0;
3913     b=0.2160182608272384E+0;
3914     v=0.1826776290439367E-3;
3915     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3916     a=0.3159578817528521E+0;
3917     b=0.2470799012277111E+0;
3918     v=0.1885116347992865E-3;
3919     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3920     a=0.3477370882791392E+0;
3921     b=0.2781014208986402E+0;
3922     v=0.1933457860170574E-3;
3923     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3924     a=0.3790576960890540E+0;
3925     b=0.3089172523515731E+0;
3926     v=0.1973060671902064E-3;
3927     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3928     a=0.4097938317810200E+0;
3929     b=0.3393750055472244E+0;
3930     v=0.2004987099616311E-3;
3931     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3932     a=0.4398256572859637E+0;
3933     b=0.3693322470987730E+0;
3934     v=0.2030170909281499E-3;
3935     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3936     a=0.4690384114718480E+0;
3937     b=0.3986541005609877E+0;
3938     v=0.2049461460119080E-3;
3939     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3940     a=0.4973216048301053E+0;
3941     b=0.4272112491408562E+0;
3942     v=0.2063653565200186E-3;
3943     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3944     a=0.5245681526132446E+0;
3945     b=0.4548781735309936E+0;
3946     v=0.2073507927381027E-3;
3947     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3948     a=0.5506733911803888E+0;
3949     b=0.4815315355023251E+0;
3950     v=0.2079764593256122E-3;
3951     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3952     a=0.5755339829522475E+0;
3953     b=0.5070486445801855E+0;
3954     v=0.2083150534968778E-3;
3955     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3956     a=0.1305472386056362E+0;
3957     b=0.2284970375722366E-1;
3958     v=0.1262715121590664E-3;
3959     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3960     a=0.1637327908216477E+0;
3961     b=0.4812254338288384E-1;
3962     v=0.1414386128545972E-3;
3963     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3964     a=0.1972734634149637E+0;
3965     b=0.7531734457511935E-1;
3966     v=0.1538740401313898E-3;
3967     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3968     a=0.2308694653110130E+0;
3969     b=0.1039043639882017E+0;
3970     v=0.1642434942331432E-3;
3971     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3972     a=0.2643899218338160E+0;
3973     b=0.1334526587117626E+0;
3974     v=0.1729790609237496E-3;
3975     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3976     a=0.2977171599622171E+0;
3977     b=0.1636414868936382E+0;
3978     v=0.1803505190260828E-3;
3979     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3980     a=0.3307293903032310E+0;
3981     b=0.1942195406166568E+0;
3982     v=0.1865475350079657E-3;
3983     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3984     a=0.3633069198219073E+0;
3985     b=0.2249752879943753E+0;
3986     v=0.1917182669679069E-3;
3987     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3988     a=0.3953346955922727E+0;
3989     b=0.2557218821820032E+0;
3990     v=0.1959851709034382E-3;
3991     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3992     a=0.4267018394184914E+0;
3993     b=0.2862897925213193E+0;
3994     v=0.1994529548117882E-3;
3995     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
3996     a=0.4573009622571704E+0;
3997     b=0.3165224536636518E+0;
3998     v=0.2022138911146548E-3;
3999     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4000     a=0.4870279559856109E+0;
4001     b=0.3462730221636496E+0;
4002     v=0.2043518024208592E-3;
4003     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4004     a=0.5157819581450322E+0;
4005     b=0.3754016870282835E+0;
4006     v=0.2059450313018110E-3;
4007     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4008     a=0.5434651666465393E+0;
4009     b=0.4037733784993613E+0;
4010     v=0.2070685715318472E-3;
4011     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4012     a=0.5699823887764627E+0;
4013     b=0.4312557784139123E+0;
4014     v=0.2077955310694373E-3;
4015     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4016     a=0.5952403350947741E+0;
4017     b=0.4577175367122110E+0;
4018     v=0.2081980387824712E-3;
4019     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4020     a=0.2025152599210369E+0;
4021     b=0.2520253617719557E-1;
4022     v=0.1521318610377956E-3;
4023     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4024     a=0.2381066653274425E+0;
4025     b=0.5223254506119000E-1;
4026     v=0.1622772720185755E-3;
4027     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4028     a=0.2732823383651612E+0;
4029     b=0.8060669688588620E-1;
4030     v=0.1710498139420709E-3;
4031     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4032     a=0.3080137692611118E+0;
4033     b=0.1099335754081255E+0;
4034     v=0.1785911149448736E-3;
4035     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4036     a=0.3422405614587601E+0;
4037     b=0.1399120955959857E+0;
4038     v=0.1850125313687736E-3;
4039     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4040     a=0.3758808773890420E+0;
4041     b=0.1702977801651705E+0;
4042     v=0.1904229703933298E-3;
4043     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4044     a=0.4088458383438932E+0;
4045     b=0.2008799256601680E+0;
4046     v=0.1949259956121987E-3;
4047     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4048     a=0.4410450550841152E+0;
4049     b=0.2314703052180836E+0;
4050     v=0.1986161545363960E-3;
4051     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4052     a=0.4723879420561312E+0;
4053     b=0.2618972111375892E+0;
4054     v=0.2015790585641370E-3;
4055     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4056     a=0.5027843561874343E+0;
4057     b=0.2920013195600270E+0;
4058     v=0.2038934198707418E-3;
4059     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4060     a=0.5321453674452458E+0;
4061     b=0.3216322555190551E+0;
4062     v=0.2056334060538251E-3;
4063     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4064     a=0.5603839113834030E+0;
4065     b=0.3506456615934198E+0;
4066     v=0.2068705959462289E-3;
4067     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4068     a=0.5874150706875146E+0;
4069     b=0.3789007181306267E+0;
4070     v=0.2076753906106002E-3;
4071     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4072     a=0.6131559381660038E+0;
4073     b=0.4062580170572782E+0;
4074     v=0.2081179391734803E-3;
4075     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4076     a=0.2778497016394506E+0;
4077     b=0.2696271276876226E-1;
4078     v=0.1700345216228943E-3;
4079     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4080     a=0.3143733562261912E+0;
4081     b=0.5523469316960465E-1;
4082     v=0.1774906779990410E-3;
4083     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4084     a=0.3501485810261827E+0;
4085     b=0.8445193201626464E-1;
4086     v=0.1839659377002642E-3;
4087     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4088     a=0.3851430322303653E+0;
4089     b=0.1143263119336083E+0;
4090     v=0.1894987462975169E-3;
4091     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4092     a=0.4193013979470415E+0;
4093     b=0.1446177898344475E+0;
4094     v=0.1941548809452595E-3;
4095     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4096     a=0.4525585960458567E+0;
4097     b=0.1751165438438091E+0;
4098     v=0.1980078427252384E-3;
4099     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4100     a=0.4848447779622947E+0;
4101     b=0.2056338306745660E+0;
4102     v=0.2011296284744488E-3;
4103     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4104     a=0.5160871208276894E+0;
4105     b=0.2359965487229226E+0;
4106     v=0.2035888456966776E-3;
4107     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4108     a=0.5462112185696926E+0;
4109     b=0.2660430223139146E+0;
4110     v=0.2054516325352142E-3;
4111     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4112     a=0.5751425068101757E+0;
4113     b=0.2956193664498032E+0;
4114     v=0.2067831033092635E-3;
4115     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4116     a=0.6028073872853596E+0;
4117     b=0.3245763905312779E+0;
4118     v=0.2076485320284876E-3;
4119     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4120     a=0.6291338275278409E+0;
4121     b=0.3527670026206972E+0;
4122     v=0.2081141439525255E-3;
4123     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4124     a=0.3541797528439391E+0;
4125     b=0.2823853479435550E-1;
4126     v=0.1834383015469222E-3;
4127     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4128     a=0.3908234972074657E+0;
4129     b=0.5741296374713106E-1;
4130     v=0.1889540591777677E-3;
4131     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4132     a=0.4264408450107590E+0;
4133     b=0.8724646633650199E-1;
4134     v=0.1936677023597375E-3;
4135     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4136     a=0.4609949666553286E+0;
4137     b=0.1175034422915616E+0;
4138     v=0.1976176495066504E-3;
4139     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4140     a=0.4944389496536006E+0;
4141     b=0.1479755652628428E+0;
4142     v=0.2008536004560983E-3;
4143     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4144     a=0.5267194884346086E+0;
4145     b=0.1784740659484352E+0;
4146     v=0.2034280351712291E-3;
4147     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4148     a=0.5577787810220990E+0;
4149     b=0.2088245700431244E+0;
4150     v=0.2053944466027758E-3;
4151     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4152     a=0.5875563763536670E+0;
4153     b=0.2388628136570763E+0;
4154     v=0.2068077642882360E-3;
4155     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4156     a=0.6159910016391269E+0;
4157     b=0.2684308928769185E+0;
4158     v=0.2077250949661599E-3;
4159     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4160     a=0.6430219602956268E+0;
4161     b=0.2973740761960252E+0;
4162     v=0.2082062440705320E-3;
4163     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4164     a=0.4300647036213646E+0;
4165     b=0.2916399920493977E-1;
4166     v=0.1934374486546626E-3;
4167     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4168     a=0.4661486308935531E+0;
4169     b=0.5898803024755659E-1;
4170     v=0.1974107010484300E-3;
4171     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4172     a=0.5009658555287261E+0;
4173     b=0.8924162698525409E-1;
4174     v=0.2007129290388658E-3;
4175     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4176     a=0.5344824270447704E+0;
4177     b=0.1197185199637321E+0;
4178     v=0.2033736947471293E-3;
4179     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4180     a=0.5666575997416371E+0;
4181     b=0.1502300756161382E+0;
4182     v=0.2054287125902493E-3;
4183     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4184     a=0.5974457471404752E+0;
4185     b=0.1806004191913564E+0;
4186     v=0.2069184936818894E-3;
4187     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4188     a=0.6267984444116886E+0;
4189     b=0.2106621764786252E+0;
4190     v=0.2078883689808782E-3;
4191     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4192     a=0.6546664713575417E+0;
4193     b=0.2402526932671914E+0;
4194     v=0.2083886366116359E-3;
4195     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4196     a=0.5042711004437253E+0;
4197     b=0.2982529203607657E-1;
4198     v=0.2006593275470817E-3;
4199     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4200     a=0.5392127456774380E+0;
4201     b=0.6008728062339922E-1;
4202     v=0.2033728426135397E-3;
4203     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4204     a=0.5726819437668618E+0;
4205     b=0.9058227674571398E-1;
4206     v=0.2055008781377608E-3;
4207     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4208     a=0.6046469254207278E+0;
4209     b=0.1211219235803400E+0;
4210     v=0.2070651783518502E-3;
4211     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4212     a=0.6350716157434952E+0;
4213     b=0.1515286404791580E+0;
4214     v=0.2080953335094320E-3;
4215     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4216     a=0.6639177679185454E+0;
4217     b=0.1816314681255552E+0;
4218     v=0.2086284998988521E-3;
4219     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4220     a=0.5757276040972253E+0;
4221     b=0.3026991752575440E-1;
4222     v=0.2055549387644668E-3;
4223     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4224     a=0.6090265823139755E+0;
4225     b=0.6078402297870770E-1;
4226     v=0.2071871850267654E-3;
4227     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4228     a=0.6406735344387661E+0;
4229     b=0.9135459984176636E-1;
4230     v=0.2082856600431965E-3;
4231     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4232     a=0.6706397927793709E+0;
4233     b=0.1218024155966590E+0;
4234     v=0.2088705858819358E-3;
4235     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4236     a=0.6435019674426665E+0;
4237     b=0.3052608357660639E-1;
4238     v=0.2083995867536322E-3;
4239     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4240     a=0.6747218676375681E+0;
4241     b=0.6112185773983089E-1;
4242     v=0.2090509712889637E-3;
4243     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4244     break;
4245 
4246   case(5810):
4247 
4248     v=0.9735347946175486E-5;
4249     getLebedevReccurencePoints(1,start,a,b,v,leb_tmp);
4250     v=0.1907581241803167E-3;
4251     getLebedevReccurencePoints(2,start,a,b,v,leb_tmp);
4252     v=0.1901059546737578E-3;
4253     getLebedevReccurencePoints(3,start,a,b,v,leb_tmp);
4254     a=0.1182361662400277E-1;
4255     v=0.3926424538919212E-4;
4256     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4257     a=0.3062145009138958E-1;
4258     v=0.6667905467294382E-4;
4259     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4260     a=0.5329794036834243E-1;
4261     v=0.8868891315019135E-4;
4262     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4263     a=0.7848165532862220E-1;
4264     v=0.1066306000958872E-3;
4265     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4266     a=0.1054038157636201E+0;
4267     v=0.1214506743336128E-3;
4268     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4269     a=0.1335577797766211E+0;
4270     v=0.1338054681640871E-3;
4271     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4272     a=0.1625769955502252E+0;
4273     v=0.1441677023628504E-3;
4274     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4275     a=0.1921787193412792E+0;
4276     v=0.1528880200826557E-3;
4277     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4278     a=0.2221340534690548E+0;
4279     v=0.1602330623773609E-3;
4280     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4281     a=0.2522504912791132E+0;
4282     v=0.1664102653445244E-3;
4283     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4284     a=0.2823610860679697E+0;
4285     v=0.1715845854011323E-3;
4286     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4287     a=0.3123173966267560E+0;
4288     v=0.1758901000133069E-3;
4289     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4290     a=0.3419847036953789E+0;
4291     v=0.1794382485256736E-3;
4292     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4293     a=0.3712386456999758E+0;
4294     v=0.1823238106757407E-3;
4295     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4296     a=0.3999627649876828E+0;
4297     v=0.1846293252959976E-3;
4298     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4299     a=0.4280466458648093E+0;
4300     v=0.1864284079323098E-3;
4301     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4302     a=0.4553844360185711E+0;
4303     v=0.1877882694626914E-3;
4304     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4305     a=0.4818736094437834E+0;
4306     v=0.1887716321852025E-3;
4307     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4308     a=0.5074138709260629E+0;
4309     v=0.1894381638175673E-3;
4310     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4311     a=0.5319061304570707E+0;
4312     v=0.1898454899533629E-3;
4313     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4314     a=0.5552514978677286E+0;
4315     v=0.1900497929577815E-3;
4316     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4317     a=0.5981009025246183E+0;
4318     v=0.1900671501924092E-3;
4319     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4320     a=0.6173990192228116E+0;
4321     v=0.1899837555533510E-3;
4322     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4323     a=0.6351365239411131E+0;
4324     v=0.1899014113156229E-3;
4325     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4326     a=0.6512010228227200E+0;
4327     v=0.1898581257705106E-3;
4328     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4329     a=0.6654758363948120E+0;
4330     v=0.1898804756095753E-3;
4331     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4332     a=0.6778410414853370E+0;
4333     v=0.1899793610426402E-3;
4334     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4335     a=0.6881760887484110E+0;
4336     v=0.1901464554844117E-3;
4337     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4338     a=0.6963645267094598E+0;
4339     v=0.1903533246259542E-3;
4340     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4341     a=0.7023010617153579E+0;
4342     v=0.1905556158463228E-3;
4343     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4344     a=0.7059004636628753E+0;
4345     v=0.1907037155663528E-3;
4346     getLebedevReccurencePoints(4,start,a,b,v,leb_tmp);
4347     a=0.3552470312472575E-1;
4348     v=0.5992997844249967E-4;
4349     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4350     a=0.9151176620841283E-1;
4351     v=0.9749059382456978E-4;
4352     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4353     a=0.1566197930068980E+0;
4354     v=0.1241680804599158E-3;
4355     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4356     a=0.2265467599271907E+0;
4357     v=0.1437626154299360E-3;
4358     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4359     a=0.2988242318581361E+0;
4360     v=0.1584200054793902E-3;
4361     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4362     a=0.3717482419703886E+0;
4363     v=0.1694436550982744E-3;
4364     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4365     a=0.4440094491758889E+0;
4366     v=0.1776617014018108E-3;
4367     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4368     a=0.5145337096756642E+0;
4369     v=0.1836132434440077E-3;
4370     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4371     a=0.5824053672860230E+0;
4372     v=0.1876494727075983E-3;
4373     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4374     a=0.6468283961043370E+0;
4375     v=0.1899906535336482E-3;
4376     getLebedevReccurencePoints(5,start,a,b,v,leb_tmp);
4377     a=0.6095964259104373E-1;
4378     b=0.1787828275342931E-1;
4379     v=0.8143252820767350E-4;
4380     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4381     a=0.8811962270959388E-1;
4382     b=0.3953888740792096E-1;
4383     v=0.9998859890887728E-4;
4384     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4385     a=0.1165936722428831E+0;
4386     b=0.6378121797722990E-1;
4387     v=0.1156199403068359E-3;
4388     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4389     a=0.1460232857031785E+0;
4390     b=0.8985890813745037E-1;
4391     v=0.1287632092635513E-3;
4392     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4393     a=0.1761197110181755E+0;
4394     b=0.1172606510576162E+0;
4395     v=0.1398378643365139E-3;
4396     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4397     a=0.2066471190463718E+0;
4398     b=0.1456102876970995E+0;
4399     v=0.1491876468417391E-3;
4400     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4401     a=0.2374076026328152E+0;
4402     b=0.1746153823011775E+0;
4403     v=0.1570855679175456E-3;
4404     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4405     a=0.2682305474337051E+0;
4406     b=0.2040383070295584E+0;
4407     v=0.1637483948103775E-3;
4408     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4409     a=0.2989653312142369E+0;
4410     b=0.2336788634003698E+0;
4411     v=0.1693500566632843E-3;
4412     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4413     a=0.3294762752772209E+0;
4414     b=0.2633632752654219E+0;
4415     v=0.1740322769393633E-3;
4416     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4417     a=0.3596390887276086E+0;
4418     b=0.2929369098051601E+0;
4419     v=0.1779126637278296E-3;
4420     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4421     a=0.3893383046398812E+0;
4422     b=0.3222592785275512E+0;
4423     v=0.1810908108835412E-3;
4424     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4425     a=0.4184653789358347E+0;
4426     b=0.3512004791195743E+0;
4427     v=0.1836529132600190E-3;
4428     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4429     a=0.4469172319076166E+0;
4430     b=0.3796385677684537E+0;
4431     v=0.1856752841777379E-3;
4432     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4433     a=0.4745950813276976E+0;
4434     b=0.4074575378263879E+0;
4435     v=0.1872270566606832E-3;
4436     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4437     a=0.5014034601410262E+0;
4438     b=0.4345456906027828E+0;
4439     v=0.1883722645591307E-3;
4440     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4441     a=0.5272493404551239E+0;
4442     b=0.4607942515205134E+0;
4443     v=0.1891714324525297E-3;
4444     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4445     a=0.5520413051846366E+0;
4446     b=0.4860961284181720E+0;
4447     v=0.1896827480450146E-3;
4448     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4449     a=0.5756887237503077E+0;
4450     b=0.5103447395342790E+0;
4451     v=0.1899628417059528E-3;
4452     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4453     a=0.1225039430588352E+0;
4454     b=0.2136455922655793E-1;
4455     v=0.1123301829001669E-3;
4456     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4457     a=0.1539113217321372E+0;
4458     b=0.4520926166137188E-1;
4459     v=0.1253698826711277E-3;
4460     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4461     a=0.1856213098637712E+0;
4462     b=0.7086468177864818E-1;
4463     v=0.1366266117678531E-3;
4464     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4465     a=0.2174998728035131E+0;
4466     b=0.9785239488772918E-1;
4467     v=0.1462736856106918E-3;
4468     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4469     a=0.2494128336938330E+0;
4470     b=0.1258106396267210E+0;
4471     v=0.1545076466685412E-3;
4472     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4473     a=0.2812321562143480E+0;
4474     b=0.1544529125047001E+0;
4475     v=0.1615096280814007E-3;
4476     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4477     a=0.3128372276456111E+0;
4478     b=0.1835433512202753E+0;
4479     v=0.1674366639741759E-3;
4480     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4481     a=0.3441145160177973E+0;
4482     b=0.2128813258619585E+0;
4483     v=0.1724225002437900E-3;
4484     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4485     a=0.3749567714853510E+0;
4486     b=0.2422913734880829E+0;
4487     v=0.1765810822987288E-3;
4488     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4489     a=0.4052621732015610E+0;
4490     b=0.2716163748391453E+0;
4491     v=0.1800104126010751E-3;
4492     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4493     a=0.4349335453522385E+0;
4494     b=0.3007127671240280E+0;
4495     v=0.1827960437331284E-3;
4496     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4497     a=0.4638776641524965E+0;
4498     b=0.3294470677216479E+0;
4499     v=0.1850140300716308E-3;
4500     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4501     a=0.4920046410462687E+0;
4502     b=0.3576932543699155E+0;
4503     v=0.1867333507394938E-3;
4504     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4505     a=0.5192273554861704E+0;
4506     b=0.3853307059757764E+0;
4507     v=0.1880178688638289E-3;
4508     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4509     a=0.5454609081136522E+0;
4510     b=0.4122425044452694E+0;
4511     v=0.1889278925654758E-3;
4512     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4513     a=0.5706220661424140E+0;
4514     b=0.4383139587781027E+0;
4515     v=0.1895213832507346E-3;
4516     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4517     a=0.5946286755181518E+0;
4518     b=0.4634312536300553E+0;
4519     v=0.1898548277397420E-3;
4520     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4521     a=0.1905370790924295E+0;
4522     b=0.2371311537781979E-1;
4523     v=0.1349105935937341E-3;
4524     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4525     a=0.2242518717748009E+0;
4526     b=0.4917878059254806E-1;
4527     v=0.1444060068369326E-3;
4528     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4529     a=0.2577190808025936E+0;
4530     b=0.7595498960495142E-1;
4531     v=0.1526797390930008E-3;
4532     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4533     a=0.2908724534927187E+0;
4534     b=0.1036991083191100E+0;
4535     v=0.1598208771406474E-3;
4536     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4537     a=0.3236354020056219E+0;
4538     b=0.1321348584450234E+0;
4539     v=0.1659354368615331E-3;
4540     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4541     a=0.3559267359304543E+0;
4542     b=0.1610316571314789E+0;
4543     v=0.1711279910946440E-3;
4544     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4545     a=0.3876637123676956E+0;
4546     b=0.1901912080395707E+0;
4547     v=0.1754952725601440E-3;
4548     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4549     a=0.4187636705218842E+0;
4550     b=0.2194384950137950E+0;
4551     v=0.1791247850802529E-3;
4552     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4553     a=0.4491449019883107E+0;
4554     b=0.2486155334763858E+0;
4555     v=0.1820954300877716E-3;
4556     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4557     a=0.4787270932425445E+0;
4558     b=0.2775768931812335E+0;
4559     v=0.1844788524548449E-3;
4560     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4561     a=0.5074315153055574E+0;
4562     b=0.3061863786591120E+0;
4563     v=0.1863409481706220E-3;
4564     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4565     a=0.5351810507738336E+0;
4566     b=0.3343144718152556E+0;
4567     v=0.1877433008795068E-3;
4568     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4569     a=0.5619001025975381E+0;
4570     b=0.3618362729028427E+0;
4571     v=0.1887444543705232E-3;
4572     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4573     a=0.5875144035268046E+0;
4574     b=0.3886297583620408E+0;
4575     v=0.1894009829375006E-3;
4576     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4577     a=0.6119507308734495E+0;
4578     b=0.4145742277792031E+0;
4579     v=0.1897683345035198E-3;
4580     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4581     a=0.2619733870119463E+0;
4582     b=0.2540047186389353E-1;
4583     v=0.1517327037467653E-3;
4584     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4585     a=0.2968149743237949E+0;
4586     b=0.5208107018543989E-1;
4587     v=0.1587740557483543E-3;
4588     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4589     a=0.3310451504860488E+0;
4590     b=0.7971828470885599E-1;
4591     v=0.1649093382274097E-3;
4592     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4593     a=0.3646215567376676E+0;
4594     b=0.1080465999177927E+0;
4595     v=0.1701915216193265E-3;
4596     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4597     a=0.3974916785279360E+0;
4598     b=0.1368413849366629E+0;
4599     v=0.1746847753144065E-3;
4600     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4601     a=0.4295967403772029E+0;
4602     b=0.1659073184763559E+0;
4603     v=0.1784555512007570E-3;
4604     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4605     a=0.4608742854473447E+0;
4606     b=0.1950703730454614E+0;
4607     v=0.1815687562112174E-3;
4608     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4609     a=0.4912598858949903E+0;
4610     b=0.2241721144376724E+0;
4611     v=0.1840864370663302E-3;
4612     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4613     a=0.5206882758945558E+0;
4614     b=0.2530655255406489E+0;
4615     v=0.1860676785390006E-3;
4616     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4617     a=0.5490940914019819E+0;
4618     b=0.2816118409731066E+0;
4619     v=0.1875690583743703E-3;
4620     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4621     a=0.5764123302025542E+0;
4622     b=0.3096780504593238E+0;
4623     v=0.1886453236347225E-3;
4624     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4625     a=0.6025786004213506E+0;
4626     b=0.3371348366394987E+0;
4627     v=0.1893501123329645E-3;
4628     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4629     a=0.6275291964794956E+0;
4630     b=0.3638547827694396E+0;
4631     v=0.1897366184519868E-3;
4632     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4633     a=0.3348189479861771E+0;
4634     b=0.2664841935537443E-1;
4635     v=0.1643908815152736E-3;
4636     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4637     a=0.3699515545855295E+0;
4638     b=0.5424000066843495E-1;
4639     v=0.1696300350907768E-3;
4640     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4641     a=0.4042003071474669E+0;
4642     b=0.8251992715430854E-1;
4643     v=0.1741553103844483E-3;
4644     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4645     a=0.4375320100182624E+0;
4646     b=0.1112695182483710E+0;
4647     v=0.1780015282386092E-3;
4648     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4649     a=0.4699054490335947E+0;
4650     b=0.1402964116467816E+0;
4651     v=0.1812116787077125E-3;
4652     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4653     a=0.5012739879431952E+0;
4654     b=0.1694275117584291E+0;
4655     v=0.1838323158085421E-3;
4656     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4657     a=0.5315874883754966E+0;
4658     b=0.1985038235312689E+0;
4659     v=0.1859113119837737E-3;
4660     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4661     a=0.5607937109622117E+0;
4662     b=0.2273765660020893E+0;
4663     v=0.1874969220221698E-3;
4664     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4665     a=0.5888393223495521E+0;
4666     b=0.2559041492849764E+0;
4667     v=0.1886375612681076E-3;
4668     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4669     a=0.6156705979160163E+0;
4670     b=0.2839497251976899E+0;
4671     v=0.1893819575809276E-3;
4672     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4673     a=0.6412338809078123E+0;
4674     b=0.3113791060500690E+0;
4675     v=0.1897794748256767E-3;
4676     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4677     a=0.4076051259257167E+0;
4678     b=0.2757792290858463E-1;
4679     v=0.1738963926584846E-3;
4680     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4681     a=0.4423788125791520E+0;
4682     b=0.5584136834984293E-1;
4683     v=0.1777442359873466E-3;
4684     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4685     a=0.4760480917328258E+0;
4686     b=0.8457772087727143E-1;
4687     v=0.1810010815068719E-3;
4688     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4689     a=0.5085838725946297E+0;
4690     b=0.1135975846359248E+0;
4691     v=0.1836920318248129E-3;
4692     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4693     a=0.5399513637391218E+0;
4694     b=0.1427286904765053E+0;
4695     v=0.1858489473214328E-3;
4696     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4697     a=0.5701118433636380E+0;
4698     b=0.1718112740057635E+0;
4699     v=0.1875079342496592E-3;
4700     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4701     a=0.5990240530606021E+0;
4702     b=0.2006944855985351E+0;
4703     v=0.1887080239102310E-3;
4704     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4705     a=0.6266452685139695E+0;
4706     b=0.2292335090598907E+0;
4707     v=0.1894905752176822E-3;
4708     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4709     a=0.6529320971415942E+0;
4710     b=0.2572871512353714E+0;
4711     v=0.1898991061200695E-3;
4712     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4713     a=0.4791583834610126E+0;
4714     b=0.2826094197735932E-1;
4715     v=0.1809065016458791E-3;
4716     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4717     a=0.5130373952796940E+0;
4718     b=0.5699871359683649E-1;
4719     v=0.1836297121596799E-3;
4720     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4721     a=0.5456252429628476E+0;
4722     b=0.8602712528554394E-1;
4723     v=0.1858426916241869E-3;
4724     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4725     a=0.5768956329682385E+0;
4726     b=0.1151748137221281E+0;
4727     v=0.1875654101134641E-3;
4728     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4729     a=0.6068186944699046E+0;
4730     b=0.1442811654136362E+0;
4731     v=0.1888240751833503E-3;
4732     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4733     a=0.6353622248024907E+0;
4734     b=0.1731930321657680E+0;
4735     v=0.1896497383866979E-3;
4736     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4737     a=0.6624927035731797E+0;
4738     b=0.2017619958756061E+0;
4739     v=0.1900775530219121E-3;
4740     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4741     a=0.5484933508028488E+0;
4742     b=0.2874219755907391E-1;
4743     v=0.1858525041478814E-3;
4744     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4745     a=0.5810207682142106E+0;
4746     b=0.5778312123713695E-1;
4747     v=0.1876248690077947E-3;
4748     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4749     a=0.6120955197181352E+0;
4750     b=0.8695262371439526E-1;
4751     v=0.1889404439064607E-3;
4752     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4753     a=0.6416944284294319E+0;
4754     b=0.1160893767057166E+0;
4755     v=0.1898168539265290E-3;
4756     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4757     a=0.6697926391731260E+0;
4758     b=0.1450378826743251E+0;
4759     v=0.1902779940661772E-3;
4760     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4761     a=0.6147594390585488E+0;
4762     b=0.2904957622341456E-1;
4763     v=0.1890125641731815E-3;
4764     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4765     a=0.6455390026356783E+0;
4766     b=0.5823809152617197E-1;
4767     v=0.1899434637795751E-3;
4768     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4769     a=0.6747258588365477E+0;
4770     b=0.8740384899884715E-1;
4771     v=0.1904520856831751E-3;
4772     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4773     a=0.6772135750395347E+0;
4774     b=0.2919946135808105E-1;
4775     v=0.1905534498734563E-3;
4776     getLebedevReccurencePoints(6,start,a,b,v,leb_tmp);
4777     break;
4778 
4779   default:
4780     ERROR_INFO();
4781     throw std::domain_error("Angular grid unrecognized, choices are 6, 14, 26, 38, 50, 74, 86, 110, 146, 170, 194, 230, 266, 302, 350, 434, 590, 770, 974, 1202, 1454, 1730, 2030, 2354, 2702, 3074, 3470, 3890, 4334, 4802, 5294, 5810");
4782   }
4783 
4784   return leb_tmp;
4785 }
4786 
getLebedevReccurencePoints(int type,int & start,double a,double b,double v,std::vector<lebedev_point_t> & leb)4787 void getLebedevReccurencePoints(int type, int & start, double a, double b, double v, std::vector<lebedev_point_t> & leb) {
4788 
4789   double c = 0.0;
4790   double pi=M_PI;
4791 
4792   switch (type) {
4793 
4794   case(1):
4795     a = 1.0;
4796 
4797     leb[start].x = a;
4798     leb[start].y = 0.0;
4799     leb[start].z = 0.0;
4800     leb[start].w = 4.0*pi*v;
4801 
4802     leb[start+1].x = -a;
4803     leb[start+1].y = 0.0;
4804     leb[start+1].z = 0.0;
4805     leb[start+1].w = 4.0*pi*v;
4806 
4807     leb[start+2].x = 0.0;
4808     leb[start+2].y = a;
4809     leb[start+2].z = 0.0;
4810     leb[start+2].w = 4.0*pi*v;
4811 
4812     leb[start+3].x = 0.0;
4813     leb[start+3].y = -a;
4814     leb[start+3].z = 0.0;
4815     leb[start+3].w = 4.0*pi*v;
4816 
4817     leb[start+4].x = 0.0;
4818     leb[start+4].y = 0.0;
4819     leb[start+4].z = a;
4820     leb[start+4].w = 4.0*pi*v;
4821 
4822     leb[start+5].x = 0.0;
4823     leb[start+5].y = 0.0;
4824     leb[start+5].z = -a;
4825     leb[start+5].w = 4.0*pi*v;
4826     start = start+6;
4827     break;
4828 
4829 
4830   case(2):
4831     a = sqrt(0.5);
4832     leb[start].x = 0.0;
4833     leb[start].y = a;
4834     leb[start].z = a;
4835     leb[start].w = 4.0*pi*v;
4836 
4837     leb[start+1].x = 0.0;
4838     leb[start+1].y = -a;
4839     leb[start+1].z = a;
4840     leb[start+1].w = 4.0*pi*v;
4841 
4842     leb[start+2].x = 0.0;
4843     leb[start+2].y = a;
4844     leb[start+2].z = -a;
4845     leb[start+2].w = 4.0*pi*v;
4846 
4847     leb[start+3].x = 0.0;
4848     leb[start+3].y = -a;
4849     leb[start+3].z = -a;
4850     leb[start+3].w = 4.0*pi*v;
4851 
4852     leb[start+4].x = a;
4853     leb[start+4].y = 0.0;
4854     leb[start+4].z = a;
4855     leb[start+4].w = 4.0*pi*v;
4856 
4857     leb[start+5].x = a;
4858     leb[start+5].y = 0.0;
4859     leb[start+5].z = -a;
4860     leb[start+5].w = 4.0*pi*v;
4861 
4862     leb[start+6].x = -a;
4863     leb[start+6].y = 0.0;
4864     leb[start+6].z = a;
4865     leb[start+6].w = 4.0*pi*v;
4866 
4867     leb[start+7].x = -a;
4868     leb[start+7].y = 0.0;
4869     leb[start+7].z = -a;
4870     leb[start+7].w = 4.0*pi*v;
4871 
4872     leb[start+8].x = a;
4873     leb[start+8].y = a;
4874     leb[start+8].z = 0.0;
4875     leb[start+8].w = 4.0*pi*v;
4876 
4877     leb[start+9].x = -a;
4878     leb[start+9].y = a;
4879     leb[start+9].z = 0.0;
4880     leb[start+9].w = 4.0*pi*v;
4881 
4882     leb[start+10].x = a;
4883     leb[start+10].y = -a;
4884     leb[start+10].z = 0.0;
4885     leb[start+10].w = 4.0*pi*v;
4886 
4887     leb[start+11].x = -a;
4888     leb[start+11].y = -a;
4889     leb[start+11].z = 0.0;
4890     leb[start+11].w = 4.0*pi*v;
4891     start = start+12;
4892     break;
4893 
4894   case(3):
4895     a = sqrt(1.0/3.0);
4896     leb[start].x = a;
4897     leb[start].y = a;
4898     leb[start].z = a;
4899     leb[start].w = 4.0*pi*v;
4900 
4901     leb[start+1].x = -a;
4902     leb[start+1].y = a;
4903     leb[start+1].z = a;
4904     leb[start+1].w = 4.0*pi*v;
4905 
4906     leb[start+2].x = a;
4907     leb[start+2].y = -a;
4908     leb[start+2].z = a;
4909     leb[start+2].w = 4.0*pi*v;
4910 
4911     leb[start+3].x = a;
4912     leb[start+3].y = a;
4913     leb[start+3].z = -a;
4914     leb[start+3].w = 4.0*pi*v;
4915 
4916     leb[start+4].x = -a;
4917     leb[start+4].y = -a;
4918     leb[start+4].z = a;
4919     leb[start+4].w = 4.0*pi*v;
4920 
4921     leb[start+5].x = a;
4922     leb[start+5].y = -a;
4923     leb[start+5].z = -a;
4924     leb[start+5].w = 4.0*pi*v;
4925 
4926     leb[start+6].x = -a;
4927     leb[start+6].y = a;
4928     leb[start+6].z = -a;
4929     leb[start+6].w = 4.0*pi*v;
4930 
4931     leb[start+7].x = -a;
4932     leb[start+7].y = -a;
4933     leb[start+7].z = -a;
4934     leb[start+7].w = 4.0*pi*v;
4935     start = start+8;
4936     break;
4937 
4938   case(4):
4939     /* In this case A is input */
4940     b = sqrt(1.0 - 2.0*a*a);
4941     leb[start].x = a;
4942     leb[start].y = a;
4943     leb[start].z = b;
4944     leb[start].w = 4.0*pi*v;
4945 
4946     leb[start+1].x = -a;
4947     leb[start+1].y = a;
4948     leb[start+1].z = b;
4949     leb[start+1].w = 4.0*pi*v;
4950 
4951     leb[start+2].x = a;
4952     leb[start+2].y = -a;
4953     leb[start+2].z = b;
4954     leb[start+2].w = 4.0*pi*v;
4955 
4956     leb[start+3].x = a;
4957     leb[start+3].y = a;
4958     leb[start+3].z = -b;
4959     leb[start+3].w = 4.0*pi*v;
4960 
4961     leb[start+4].x = -a;
4962     leb[start+4].y = -a;
4963     leb[start+4].z = b;
4964     leb[start+4].w = 4.0*pi*v;
4965 
4966     leb[start+5].x = -a;
4967     leb[start+5].y = a;
4968     leb[start+5].z = -b;
4969     leb[start+5].w = 4.0*pi*v;
4970 
4971     leb[start+6].x = a;
4972     leb[start+6].y = -a;
4973     leb[start+6].z = -b;
4974     leb[start+6].w = 4.0*pi*v;
4975 
4976     leb[start+7].x = -a;
4977     leb[start+7].y = -a;
4978     leb[start+7].z = -b;
4979     leb[start+7].w = 4.0*pi*v;
4980 
4981     leb[start+8].x = -a;
4982     leb[start+8].y = b;
4983     leb[start+8].z = a;
4984     leb[start+8].w = 4.0*pi*v;
4985 
4986     leb[start+9].x = a;
4987     leb[start+9].y = -b;
4988     leb[start+9].z = a;
4989     leb[start+9].w = 4.0*pi*v;
4990 
4991     leb[start+10].x = a;
4992     leb[start+10].y = b;
4993     leb[start+10].z = -a;
4994     leb[start+10].w = 4.0*pi*v;
4995 
4996     leb[start+11].x = -a;
4997     leb[start+11].y = -b;
4998     leb[start+11].z = a;
4999     leb[start+11].w = 4.0*pi*v;
5000 
5001     leb[start+12].x = -a;
5002     leb[start+12].y = b;
5003     leb[start+12].z = -a;
5004     leb[start+12].w = 4.0*pi*v;
5005 
5006     leb[start+13].x = a;
5007     leb[start+13].y = -b;
5008     leb[start+13].z = -a;
5009     leb[start+13].w = 4.0*pi*v;
5010 
5011     leb[start+14].x = -a;
5012     leb[start+14].y = -b;
5013     leb[start+14].z = -a;
5014     leb[start+14].w = 4.0*pi*v;
5015 
5016     leb[start+15].x = a;
5017     leb[start+15].y = b;
5018     leb[start+15].z = a;
5019     leb[start+15].w = 4.0*pi*v;
5020 
5021     leb[start+16].x = b;
5022     leb[start+16].y = a;
5023     leb[start+16].z = a;
5024     leb[start+16].w = 4.0*pi*v;
5025 
5026     leb[start+17].x = -b;
5027     leb[start+17].y = a;
5028     leb[start+17].z = a;
5029     leb[start+17].w = 4.0*pi*v;
5030 
5031     leb[start+18].x = b;
5032     leb[start+18].y = -a;
5033     leb[start+18].z = a;
5034     leb[start+18].w = 4.0*pi*v;
5035 
5036     leb[start+19].x = b;
5037     leb[start+19].y = a;
5038     leb[start+19].z = -a;
5039     leb[start+19].w = 4.0*pi*v;
5040 
5041     leb[start+20].x = -b;
5042     leb[start+20].y = -a;
5043     leb[start+20].z = a;
5044     leb[start+20].w = 4.0*pi*v;
5045 
5046     leb[start+21].x = -b;
5047     leb[start+21].y = a;
5048     leb[start+21].z = -a;
5049     leb[start+21].w = 4.0*pi*v;
5050 
5051     leb[start+22].x = b;
5052     leb[start+22].y = -a;
5053     leb[start+22].z = -a;
5054     leb[start+22].w = 4.0*pi*v;
5055 
5056     leb[start+23].x = -b;
5057     leb[start+23].y = -a;
5058     leb[start+23].z = -a;
5059     leb[start+23].w = 4.0*pi*v;
5060     start = start + 24;
5061     break;
5062 
5063   case(5):
5064     /* A is input in this case as well*/
5065     b=sqrt(1-a*a);
5066     leb[start].x = a;
5067     leb[start].y = b;
5068     leb[start].z = 0.0;
5069     leb[start].w = 4.0*pi*v;
5070 
5071     leb[start+1].x = -a;
5072     leb[start+1].y = b;
5073     leb[start+1].z = 0.0;
5074     leb[start+1].w = 4.0*pi*v;
5075 
5076     leb[start+2].x = a;
5077     leb[start+2].y = -b;
5078     leb[start+2].z = 0.0;
5079     leb[start+2].w = 4.0*pi*v;
5080 
5081     leb[start+3].x = -a;
5082     leb[start+3].y = -b;
5083     leb[start+3].z = 0.0;
5084     leb[start+3].w = 4.0*pi*v;
5085 
5086     leb[start+4].x = b;
5087     leb[start+4].y = a;
5088     leb[start+4].z = 0.0;
5089     leb[start+4].w = 4.0*pi*v;
5090 
5091     leb[start+5].x = -b;
5092     leb[start+5].y = a;
5093     leb[start+5].z = 0.0;
5094     leb[start+5].w = 4.0*pi*v;
5095 
5096     leb[start+6].x = b;
5097     leb[start+6].y = -a;
5098     leb[start+6].z = 0.0;
5099     leb[start+6].w = 4.0*pi*v;
5100 
5101     leb[start+7].x = -b;
5102     leb[start+7].y = -a;
5103     leb[start+7].z = 0.0;
5104     leb[start+7].w = 4.0*pi*v;
5105 
5106     leb[start+8].x = a;
5107     leb[start+8].y = 0.0;
5108     leb[start+8].z = b;
5109     leb[start+8].w = 4.0*pi*v;
5110 
5111     leb[start+9].x = -a;
5112     leb[start+9].y = 0.0;
5113     leb[start+9].z = b;
5114     leb[start+9].w = 4.0*pi*v;
5115 
5116     leb[start+10].x = a;
5117     leb[start+10].y = 0.0;
5118     leb[start+10].z = -b;
5119     leb[start+10].w = 4.0*pi*v;
5120 
5121     leb[start+11].x = -a;
5122     leb[start+11].y = 0.0;
5123     leb[start+11].z = -b;
5124     leb[start+11].w = 4.0*pi*v;
5125 
5126     leb[start+12].x = b;
5127     leb[start+12].y = 0.0;
5128     leb[start+12].z = a;
5129     leb[start+12].w = 4.0*pi*v;
5130 
5131     leb[start+13].x = -b;
5132     leb[start+13].y = 0.0;
5133     leb[start+13].z = a;
5134     leb[start+13].w = 4.0*pi*v;
5135 
5136     leb[start+14].x = b;
5137     leb[start+14].y = 0.0;
5138     leb[start+14].z = -a;
5139     leb[start+14].w = 4.0*pi*v;
5140 
5141     leb[start+15].x = -b;
5142     leb[start+15].y = 0.0;
5143     leb[start+15].z = -a;
5144     leb[start+15].w = 4.0*pi*v;
5145 
5146     leb[start+16].x = 0.0;
5147     leb[start+16].y = a;
5148     leb[start+16].z = b;
5149     leb[start+16].w = 4.0*pi*v;
5150 
5151     leb[start+17].x = 0.0;
5152     leb[start+17].y = -a;
5153     leb[start+17].z = b;
5154     leb[start+17].w = 4.0*pi*v;
5155 
5156     leb[start+18].x = 0.0;
5157     leb[start+18].y = a;
5158     leb[start+18].z = -b;
5159     leb[start+18].w = 4.0*pi*v;
5160 
5161     leb[start+19].x = 0.0;
5162     leb[start+19].y = -a;
5163     leb[start+19].z = -b;
5164     leb[start+19].w = 4.0*pi*v;
5165 
5166     leb[start+20].x = 0.0;
5167     leb[start+20].y = b;
5168     leb[start+20].z = a;
5169     leb[start+20].w = 4.0*pi*v;
5170 
5171     leb[start+21].x = 0.0;
5172     leb[start+21].y = -b;
5173     leb[start+21].z = a;
5174     leb[start+21].w = 4.0*pi*v;
5175 
5176     leb[start+22].x = 0.0;
5177     leb[start+22].y = b;
5178     leb[start+22].z = -a;
5179     leb[start+22].w = 4.0*pi*v;
5180 
5181     leb[start+23].x = 0.0;
5182     leb[start+23].y = -b;
5183     leb[start+23].z = -a;
5184     leb[start+23].w = 4.0*pi*v;
5185     start = start + 24;
5186     break;
5187 
5188   case(6):
5189     /* both A and B are input in this case */
5190     c=sqrt(1.0 - a*a - b*b);
5191     leb[start].x = a;
5192     leb[start].y = b;
5193     leb[start].z = c;
5194     leb[start].w = 4.0*pi*v;
5195 
5196     leb[start+1].x = -a;
5197     leb[start+1].y = b;
5198     leb[start+1].z = c;
5199     leb[start+1].w = 4.0*pi*v;
5200 
5201     leb[start+2].x = a;
5202     leb[start+2].y = -b;
5203     leb[start+2].z = c;
5204     leb[start+2].w = 4.0*pi*v;
5205 
5206     leb[start+3].x = a;
5207     leb[start+3].y = b;
5208     leb[start+3].z = -c;
5209     leb[start+3].w = 4.0*pi*v;
5210 
5211     leb[start+4].x = -a;
5212     leb[start+4].y = -b;
5213     leb[start+4].z = c;
5214     leb[start+4].w = 4.0*pi*v;
5215 
5216     leb[start+5].x = a;
5217     leb[start+5].y = -b;
5218     leb[start+5].z = -c;
5219     leb[start+5].w = 4.0*pi*v;
5220 
5221     leb[start+6].x = -a;
5222     leb[start+6].y = b;
5223     leb[start+6].z = -c;
5224     leb[start+6].w = 4.0*pi*v;
5225 
5226     leb[start+7].x = -a;
5227     leb[start+7].y = -b;
5228     leb[start+7].z = -c;
5229     leb[start+7].w = 4.0*pi*v;
5230 
5231     leb[start+8].x = b;
5232     leb[start+8].y = a;
5233     leb[start+8].z = c;
5234     leb[start+8].w = 4.0*pi*v;
5235 
5236     leb[start+9].x = -b;
5237     leb[start+9].y = a;
5238     leb[start+9].z = c;
5239     leb[start+9].w = 4.0*pi*v;
5240 
5241     leb[start+10].x = b;
5242     leb[start+10].y = -a;
5243     leb[start+10].z = c;
5244     leb[start+10].w = 4.0*pi*v;
5245 
5246     leb[start+11].x = b;
5247     leb[start+11].y = a;
5248     leb[start+11].z = -c;
5249     leb[start+11].w = 4.0*pi*v;
5250 
5251     leb[start+12].x = -b;
5252     leb[start+12].y = -a;
5253     leb[start+12].z = c;
5254     leb[start+12].w = 4.0*pi*v;
5255 
5256     leb[start+13].x = b;
5257     leb[start+13].y = -a;
5258     leb[start+13].z = -c;
5259     leb[start+13].w = 4.0*pi*v;
5260 
5261     leb[start+14].x = -b;
5262     leb[start+14].y = a;
5263     leb[start+14].z = -c;
5264     leb[start+14].w = 4.0*pi*v;
5265 
5266     leb[start+15].x = -b;
5267     leb[start+15].y = -a;
5268     leb[start+15].z = -c;
5269     leb[start+15].w = 4.0*pi*v;
5270 
5271     leb[start+16].x = c;
5272     leb[start+16].y = a;
5273     leb[start+16].z = b;
5274     leb[start+16].w = 4.0*pi*v;
5275 
5276     leb[start+17].x = -c;
5277     leb[start+17].y = a;
5278     leb[start+17].z = b;
5279     leb[start+17].w = 4.0*pi*v;
5280 
5281     leb[start+18].x = c;
5282     leb[start+18].y = -a;
5283     leb[start+18].z = b;
5284     leb[start+18].w = 4.0*pi*v;
5285 
5286     leb[start+19].x = c;
5287     leb[start+19].y = a;
5288     leb[start+19].z = -b;
5289     leb[start+19].w = 4.0*pi*v;
5290 
5291     leb[start+20].x = -c;
5292     leb[start+20].y = -a;
5293     leb[start+20].z = b;
5294     leb[start+20].w = 4.0*pi*v;
5295 
5296     leb[start+21].x = c;
5297     leb[start+21].y = -a;
5298     leb[start+21].z = -b;
5299     leb[start+21].w = 4.0*pi*v;
5300 
5301     leb[start+22].x = -c;
5302     leb[start+22].y = a;
5303     leb[start+22].z = -b;
5304     leb[start+22].w = 4.0*pi*v;
5305 
5306     leb[start+23].x = -c;
5307     leb[start+23].y = -a;
5308     leb[start+23].z = -b;
5309     leb[start+23].w = 4.0*pi*v;
5310 
5311     leb[start+24].x = c;
5312     leb[start+24].y = b;
5313     leb[start+24].z = a;
5314     leb[start+24].w = 4.0*pi*v;
5315 
5316     leb[start+25].x = -c;
5317     leb[start+25].y = b;
5318     leb[start+25].z = a;
5319     leb[start+25].w = 4.0*pi*v;
5320 
5321     leb[start+26].x = c;
5322     leb[start+26].y = -b;
5323     leb[start+26].z = a;
5324     leb[start+26].w = 4.0*pi*v;
5325 
5326     leb[start+27].x = c;
5327     leb[start+27].y = b;
5328     leb[start+27].z = -a;
5329     leb[start+27].w = 4.0*pi*v;
5330 
5331     leb[start+28].x = -c;
5332     leb[start+28].y = -b;
5333     leb[start+28].z = a;
5334     leb[start+28].w = 4.0*pi*v;
5335 
5336     leb[start+29].x = c;
5337     leb[start+29].y = -b;
5338     leb[start+29].z = -a;
5339     leb[start+29].w = 4.0*pi*v;
5340 
5341     leb[start+30].x = -c;
5342     leb[start+30].y = b;
5343     leb[start+30].z = -a;
5344     leb[start+30].w = 4.0*pi*v;
5345 
5346     leb[start+31].x = -c;
5347     leb[start+31].y = -b;
5348     leb[start+31].z = -a;
5349     leb[start+31].w = 4.0*pi*v;
5350 
5351     leb[start+32].x = a;
5352     leb[start+32].y = c;
5353     leb[start+32].z = b;
5354     leb[start+32].w = 4.0*pi*v;
5355 
5356     leb[start+33].x = -a;
5357     leb[start+33].y = c;
5358     leb[start+33].z = b;
5359     leb[start+33].w = 4.0*pi*v;
5360 
5361     leb[start+34].x = a;
5362     leb[start+34].y = -c;
5363     leb[start+34].z = b;
5364     leb[start+34].w = 4.0*pi*v;
5365 
5366     leb[start+35].x = a;
5367     leb[start+35].y = c;
5368     leb[start+35].z = -b;
5369     leb[start+35].w = 4.0*pi*v;
5370 
5371     leb[start+36].x = -a;
5372     leb[start+36].y = -c;
5373     leb[start+36].z = b;
5374     leb[start+36].w = 4.0*pi*v;
5375 
5376     leb[start+37].x = a;
5377     leb[start+37].y = -c;
5378     leb[start+37].z = -b;
5379     leb[start+37].w = 4.0*pi*v;
5380 
5381     leb[start+38].x = -a;
5382     leb[start+38].y = c;
5383     leb[start+38].z = -b;
5384     leb[start+38].w = 4.0*pi*v;
5385 
5386     leb[start+39].x = -a;
5387     leb[start+39].y = -c;
5388     leb[start+39].z = -b;
5389     leb[start+39].w = 4.0*pi*v;
5390 
5391     leb[start+40].x = b;
5392     leb[start+40].y = c;
5393     leb[start+40].z = a;
5394     leb[start+40].w = 4.0*pi*v;
5395 
5396     leb[start+41].x = -b;
5397     leb[start+41].y = c;
5398     leb[start+41].z = a;
5399     leb[start+41].w = 4.0*pi*v;
5400 
5401     leb[start+42].x = b;
5402     leb[start+42].y = -c;
5403     leb[start+42].z = a;
5404     leb[start+42].w = 4.0*pi*v;
5405 
5406     leb[start+43].x = b;
5407     leb[start+43].y = c;
5408     leb[start+43].z = -a;
5409     leb[start+43].w = 4.0*pi*v;
5410 
5411     leb[start+44].x = -b;
5412     leb[start+44].y = -c;
5413     leb[start+44].z = a;
5414     leb[start+44].w = 4.0*pi*v;
5415 
5416     leb[start+45].x = b;
5417     leb[start+45].y = -c;
5418     leb[start+45].z = -a;
5419     leb[start+45].w = 4.0*pi*v;
5420 
5421     leb[start+46].x = -b;
5422     leb[start+46].y = c;
5423     leb[start+46].z = -a;
5424     leb[start+46].w = 4.0*pi*v;
5425 
5426     leb[start+47].x = -b;
5427     leb[start+47].y = -c;
5428     leb[start+47].z = -a;
5429     leb[start+47].w = 4.0*pi*v;
5430     start = start + 48;
5431     break;
5432 
5433   default:
5434     ERROR_INFO();
5435     throw std::domain_error("Bad grid order.\n");
5436   }
5437 }
5438