QMcBeaver: Lebedev-Laikov.cpp Source File

00001 #include <iostream>
00002 #include <fstream>
00003 //#include <stdlib.h>
00004 #include <math.h>
00005 //#include "Lebedev-Laikov.h"
00006 using namespace std;
00007 
00009        void GEN_OH(int code, int &num, double* x, double* y, double* z, double* w, double a, double b, double v){
00010 //       implicit logical(a-z)
00011 //       double  x[],y[],z[],w[*];
00012 //       double  a,b,v;
00013 //       int code;
00014 //       int num;
00015        double  c;
00016 /*     ///  
00017 chvd
00018 chvd   This subroutine is part of a set of subroutines that generate
00019 chvd   Lebedev grids [1-6] for integration on a sphere. The original 
00020 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
00021 chvd   translated into fortran by Dr. Christoph van Wuellen.
00022 chvd   This subroutine was translated from C to fortran77 by hand.
00023 chvd
00024 chvd   Users of this code are asked to include reference [1] in their
00025 chvd   publications, and in the user- and programmers-manuals 
00026 chvd   describing their codes.
00027 chvd
00028 chvd   This code was distributed through CCL (http://www.ccl.net/).
00029 chvd
00030 chvd   [1] V.I. Lebedev, and D.N. Laikov
00031 chvd       "A quadrature formula for the sphere of the 131st
00032 chvd        algebraic order of accuracy"
00033 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
00034 chvd
00035 chvd   [2] V.I. Lebedev
00036 chvd       "A quadrature formula for the sphere of 59th algebraic
00037 chvd        order of accuracy"
00038 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
00039 chvd
00040 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
00041 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
00042 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
00043 chvd
00044 chvd   [4] V.I. Lebedev
00045 chvd       "Spherical quadrature formulas exact to orders 25-29"
00046 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
00047 chvd
00048 chvd   [5] V.I. Lebedev
00049 chvd       "Quadratures on a sphere"
00050 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
00051 chvd       1976, pp. 10-24. 
00052 chvd
00053 chvd   [6] V.I. Lebedev
00054 chvd       "Values of the nodes and weights of ninth to seventeenth 
00055 chvd        order Gauss-Markov quadrature formulae invariant under the
00056 chvd        octahedron group with inversion"
00057 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
00058 chvd       1975, pp. 44-51.
00059 chvd
00060 cvw
00061 cvw    Given a point on a sphere (specified by a and b), generate all
00062 cvw    the equivalent points under Oh symmetry, making grid points with
00063 cvw    weight v.
00064 cvw    The variable num is increased by the number of different points
00065 cvw    generated.
00066 cvw
00067 cvw    Depending on code, there are 6...48 different but equivalent
00068 cvw    points.
00069 cvw
00070 cvw    code=1:   (0,0,1) etc                                (  6 points)
00071 cvw    code=2:   (0,a,a) etc, a=1/sqrt(2)                   ( 12 points)
00072 cvw    code=3:   (a,a,a) etc, a=1/sqrt(3)                   (  8 points)
00073 cvw    code=4:   (a,a,b) etc, b=sqrt(1-2 a^2)               ( 24 points)
00074 cvw    code=5:   (a,b,0) etc, b=sqrt(1-a^2), a input        ( 24 points)
00075 cvw    code=6:   (a,b,c) etc, c=sqrt(1-a^2-b^2), a/b input  ( 48 points)
00076 cvw
00077 */
00078 //       goto (1,2,3,4,5,6) code
00079 
00080 //       stop
00081 
00082   switch(code)
00083   {
00084     case 1:
00085 
00086 //    1  continue
00087        a=1.0;
00088        x[0+num] =  a;
00089        y[0+num] =  0.0;
00090        z[0+num] =  0.0;
00091        w[0+num] =  v;
00092        x[1+num] = -a;
00093        y[1+num] =  0.0;
00094        z[1+num] =  0.0;
00095        w[1+num] =  v;
00096        x[2+num] =  0.0;
00097        y[2+num] =  a;
00098        z[2+num] =  0.0;
00099        w[2+num] =  v;
00100        x[3+num] =  0.0;
00101        y[3+num] = -a;
00102        z[3+num] =  0.0;
00103        w[3+num] =  v;
00104        x[4+num] =  0.0;
00105        y[4+num] =  0.0;
00106        z[4+num] =  a;
00107        w[4+num] =  v;
00108        x[5+num] =  0.0;
00109        y[5+num] =  0.0;
00110        z[5+num] = -a;
00111        w[5+num] =  v;
00112 
00113        //std::cout <<  " code = " << code<< "  num = " << num<< " z(0) = " << z[0]
00114        //        << "  w(0) = " << w[0] << std::endl;
00115        
00116        num=num+6;
00117 
00118        
00119        //std::cout <<  " GEN_OH x = " << x[0]<< "  y(0) = " << y[0]<< " z(0) = " << z[0]
00120        //        << "  w(0) = " << w[0] << std::endl;
00121        //       return
00122        //cvw
00123       break;
00124 
00125     case 2:
00126 
00127 //    2  continue
00128        a=sqrt(0.5);
00129        x[0+num] =  0;
00130        y[0+num] =  a;
00131        z[0+num] =  a;
00132        w[0+num] =  v;
00133        x[1+num] =  0;
00134        y[1+num] = -a;
00135        z[1+num] =  a;
00136        w[1+num] =  v;
00137        x[2+num] =  0;
00138        y[2+num] =  a;
00139        z[2+num] = -a;
00140        w[2+num] =  v;
00141        x[3+num] =  0;
00142        y[3+num] = -a;
00143        z[3+num] = -a;
00144        w[3+num] =  v;
00145        x[4+num] =  a;
00146        y[4+num] =  0;
00147        z[4+num] =  a;
00148        w[4+num] =  v;
00149        x[5+num] = -a;
00150        y[5+num] =  0;
00151        z[5+num] =  a;
00152        w[5+num] =  v;
00153        x[6+num] =  a;
00154        y[6+num] =  0;
00155        z[6+num] = -a;
00156        w[6+num] =  v;
00157        x[7+num] = -a;
00158        y[7+num] =  0;
00159        z[7+num] = -a;
00160        w[7+num] =  v;
00161        x[8+num] =  a;
00162        y[8+num] =  a;
00163        z[8+num] =  0;
00164        w[8+num] =  v;
00165        x[9+num] = -a;
00166        y[9+num] =  a;
00167        z[9+num] =  0;
00168        w[9+num] =  v;
00169        x[10+num] =  a;
00170        y[10+num] = -a;
00171        z[10+num] =  0;
00172        w[10+num] =  v;
00173        x[11+num] = -a;
00174        y[11+num] = -a;
00175        z[11+num] =  0;
00176        w[11+num] =  v;
00177        num=num+12;
00178 //       return
00179 //cvw
00180       break;
00181 
00182     case 3:
00183 
00184 //    3  continue
00185        a = sqrt(1.0/3.0);
00186        x[0+num] =  a;
00187        y[0+num] =  a;
00188        z[0+num] =  a;
00189        w[0+num] =  v;
00190        x[1+num] = -a;
00191        y[1+num] =  a;
00192        z[1+num] =  a;
00193        w[1+num] =  v;
00194        x[2+num] =  a;
00195        y[2+num] = -a;
00196        z[2+num] =  a;
00197        w[2+num] =  v;
00198        x[3+num] = -a;
00199        y[3+num] = -a;
00200        z[3+num] =  a;
00201        w[3+num] =  v;
00202        x[4+num] =  a;
00203        y[4+num] =  a;
00204        z[4+num] = -a;
00205        w[4+num] =  v;
00206        x[5+num] = -a;
00207        y[5+num] =  a;
00208        z[5+num] = -a;
00209        w[5+num] =  v;
00210        x[6+num] =  a;
00211        y[6+num] = -a;
00212        z[6+num] = -a;
00213        w[6+num] =  v;
00214        x[7+num] = -a;
00215        y[7+num] = -a;
00216        z[7+num] = -a;
00217        w[7+num] =  v;
00218        num=num+8;
00219 //       return
00220 //cvw
00221       break;
00222 
00223 
00224     case 4:
00225 
00226 //    4  continue
00227        b = sqrt(1 - 2*a*a);
00228        x[0+num] =  a;
00229        y[0+num] =  a;
00230        z[0+num] =  b;
00231        w[0+num] =  v;
00232        x[1+num] = -a;
00233        y[1+num] =  a;
00234        z[1+num] =  b;
00235        w[1+num] =  v;
00236        x[2+num] =  a;
00237        y[2+num] = -a;
00238        z[2+num] =  b;
00239        w[2+num] =  v;
00240        x[3+num] = -a;
00241        y[3+num] = -a;
00242        z[3+num] =  b;
00243        w[3+num] =  v;
00244        x[4+num] =  a;
00245        y[4+num] =  a;
00246        z[4+num] = -b;
00247        w[4+num] =  v;
00248        x[5+num] = -a;
00249        y[5+num] =  a;
00250        z[5+num] = -b;
00251        w[5+num] =  v;
00252        x[6+num] =  a;
00253        y[6+num] = -a;
00254        z[6+num] = -b;
00255        w[6+num] =  v;
00256        x[7+num] = -a;
00257        y[7+num] = -a;
00258        z[7+num] = -b;
00259        w[7+num] =  v;
00260        x[8+num] =  a;
00261        y[8+num] =  b;
00262        z[8+num] =  a;
00263        w[8+num] =  v;
00264        x[9+num] = -a;
00265        y[9+num] =  b;
00266        z[9+num] =  a;
00267        w[9+num] =  v;
00268        x[10+num] =  a;
00269        y[10+num] = -b;
00270        z[10+num] =  a;
00271        w[10+num] =  v;
00272        x[11+num] = -a;
00273        y[11+num] = -b;
00274        z[11+num] =  a;
00275        w[11+num] =  v;
00276        x[12+num] =  a;
00277        y[12+num] =  b;
00278        z[12+num] = -a;
00279        w[12+num] =  v;
00280        x[13+num] = -a;
00281        y[13+num] =  b;
00282        z[13+num] = -a;
00283        w[13+num] =  v;
00284        x[14+num] =  a;
00285        y[14+num] = -b;
00286        z[14+num] = -a;
00287        w[14+num] =  v;
00288        x[15+num] = -a;
00289        y[15+num] = -b;
00290        z[15+num] = -a;
00291        w[15+num] =  v;
00292        x[16+num] =  b;
00293        y[16+num] =  a;
00294        z[16+num] =  a;
00295        w[16+num] =  v;
00296        x[17+num] = -b;
00297        y[17+num] =  a;
00298        z[17+num] =  a;
00299        w[17+num] =  v;
00300        x[18+num] =  b;
00301        y[18+num] = -a;
00302        z[18+num] =  a;
00303        w[18+num] =  v;
00304        x[19+num] = -b;
00305        y[19+num] = -a;
00306        z[19+num] =  a;
00307        w[19+num] =  v;
00308        x[20+num] =  b;
00309        y[20+num] =  a;
00310        z[20+num] = -a;
00311        w[20+num] =  v;
00312        x[21+num] = -b;
00313        y[21+num] =  a;
00314        z[21+num] = -a;
00315        w[21+num] =  v;
00316        x[22+num] =  b;
00317        y[22+num] = -a;
00318        z[22+num] = -a;
00319        w[22+num] =  v;
00320        x[23+num] = -b;
00321        y[23+num] = -a;
00322        z[23+num] = -a;
00323        w[23+num] =  v;
00324        num=num+24;
00325 //       return
00326 //cvw
00327       break;
00328 
00329     case 5:
00330 
00331 //    5  continue
00332        b=sqrt(1-a*a);
00333        x[0+num] =  a;
00334        y[0+num] =  b;
00335        z[0+num] =  0;
00336        w[0+num] =  v;
00337        x[1+num] = -a;
00338        y[1+num] =  b;
00339        z[1+num] =  0;
00340        w[1+num] =  v;
00341        x[2+num] =  a;
00342        y[2+num] = -b;
00343        z[2+num] =  0;
00344        w[2+num] =  v;
00345        x[3+num] = -a;
00346        y[3+num] = -b;
00347        z[3+num] =  0;
00348        w[3+num] =  v;
00349        x[4+num] =  b;
00350        y[4+num] =  a;
00351        z[4+num] =  0;
00352        w[4+num] =  v;
00353        x[5+num] = -b;
00354        y[5+num] =  a;
00355        z[5+num] =  0;
00356        w[5+num] =  v;
00357        x[6+num] =  b;
00358        y[6+num] = -a;
00359        z[6+num] =  0;
00360        w[6+num] =  v;
00361        x[7+num] = -b;
00362        y[7+num] = -a;
00363        z[7+num] =  0;
00364        w[7+num] =  v;
00365        x[8+num] =  a;
00366        y[8+num] =  0;
00367        z[8+num] =  b;
00368        w[8+num] =  v;
00369        x[9+num] = -a;
00370        y[9+num] =  0;
00371        z[9+num] =  b;
00372        w[9+num] =  v;
00373        x[10+num] =  a;
00374        y[10+num] =  0;
00375        z[10+num] = -b;
00376        w[10+num] =  v;
00377        x[11+num] = -a;
00378        y[11+num] =  0;
00379        z[11+num] = -b;
00380        w[11+num] =  v;
00381        x[12+num] =  b;
00382        y[12+num] =  0;
00383        z[12+num] =  a;
00384        w[12+num] =  v;
00385        x[13+num] = -b;
00386        y[13+num] =  0;
00387        z[13+num] =  a;
00388        w[13+num] =  v;
00389        x[14+num] =  b;
00390        y[14+num] =  0;
00391        z[14+num] = -a;
00392        w[14+num] =  v;
00393        x[15+num] = -b;
00394        y[15+num] =  0;
00395        z[15+num] = -a;
00396        w[15+num] =  v;
00397        x[16+num] =  0;
00398        y[16+num] =  a;
00399        z[16+num] =  b;
00400        w[16+num] =  v;
00401        x[17+num] =  0;
00402        y[17+num] = -a;
00403        z[17+num] =  b;
00404        w[17+num] =  v;
00405        x[18+num] =  0;
00406        y[18+num] =  a;
00407        z[18+num] = -b;
00408        w[18+num] =  v;
00409        x[19+num] =  0;
00410        y[19+num] = -a;
00411        z[19+num] = -b;
00412        w[19+num] =  v;
00413        x[20+num] =  0;
00414        y[20+num] =  b;
00415        z[20+num] =  a;
00416        w[20+num] =  v;
00417        x[21+num] =  0;
00418        y[21+num] = -b;
00419        z[21+num] =  a;
00420        w[21+num] =  v;
00421        x[22+num] =  0;
00422        y[22+num] =  b;
00423        z[22+num] = -a;
00424        w[22+num] =  v;
00425        x[23+num] =  0;
00426        y[23+num] = -b;
00427        z[23+num] = -a;
00428        w[23+num] =  v;
00429        num=num+24;
00430 //       return
00431 //cvw
00432      break;
00433 
00434     case 6:
00435 //    6  continue
00436        c=sqrt(1 - a*a - b*b);
00437        x[0+num] =  a;
00438        y[0+num] =  b;
00439        z[0+num] =  c;
00440        w[0+num] =  v;
00441        x[1+num] = -a;
00442        y[1+num] =  b;
00443        z[1+num] =  c;
00444        w[1+num] =  v;
00445        x[2+num] =  a;
00446        y[2+num] = -b;
00447        z[2+num] =  c;
00448        w[2+num] =  v;
00449        x[3+num] = -a;
00450        y[3+num] = -b;
00451        z[3+num] =  c;
00452        w[3+num] =  v;
00453        x[4+num] =  a;
00454        y[4+num] =  b;
00455        z[4+num] = -c;
00456        w[4+num] =  v;
00457        x[5+num] = -a;
00458        y[5+num] =  b;
00459        z[5+num] = -c;
00460        w[5+num] =  v;
00461        x[6+num] =  a;
00462        y[6+num] = -b;
00463        z[6+num] = -c;
00464        w[6+num] =  v;
00465        x[7+num] = -a;
00466        y[7+num] = -b;
00467        z[7+num] = -c;
00468        w[7+num] =  v;
00469        x[8+num] =  a;
00470        y[8+num] =  c;
00471        z[8+num] =  b;
00472        w[8+num] =  v;
00473        x[9+num] = -a;
00474        y[9+num] =  c;
00475        z[9+num] =  b;
00476        w[9+num] =  v;
00477        x[10+num] =  a;
00478        y[10+num] = -c;
00479        z[10+num] =  b;
00480        w[10+num] =  v;
00481        x[11+num] = -a;
00482        y[11+num] = -c;
00483        z[11+num] =  b;
00484        w[11+num] =  v;
00485        x[12+num] =  a;
00486        y[12+num] =  c;
00487        z[12+num] = -b;
00488        w[12+num] =  v;
00489        x[13+num] = -a;
00490        y[13+num] =  c;
00491        z[13+num] = -b;
00492        w[13+num] =  v;
00493        x[14+num] =  a;
00494        y[14+num] = -c;
00495        z[14+num] = -b;
00496        w[14+num] =  v;
00497        x[15+num] = -a;
00498        y[15+num] = -c;
00499        z[15+num] = -b;
00500        w[15+num] =  v;
00501        x[16+num] =  b;
00502        y[16+num] =  a;
00503        z[16+num] =  c;
00504        w[16+num] =  v;
00505        x[17+num] = -b;
00506        y[17+num] =  a;
00507        z[17+num] =  c;
00508        w[17+num] =  v;
00509        x[18+num] =  b;
00510        y[18+num] = -a;
00511        z[18+num] =  c;
00512        w[18+num] =  v;
00513        x[19+num] = -b;
00514        y[19+num] = -a;
00515        z[19+num] =  c;
00516        w[19+num] =  v;
00517        x[20+num] =  b;
00518        y[20+num] =  a;
00519        z[20+num] = -c;
00520        w[20+num] =  v;
00521        x[21+num] = -b;
00522        y[21+num] =  a;
00523        z[21+num] = -c;
00524        w[21+num] =  v;
00525        x[22+num] =  b;
00526        y[22+num] = -a;
00527        z[22+num] = -c;
00528        w[22+num] =  v;
00529        x[23+num] = -b;
00530        y[23+num] = -a;
00531        z[23+num] = -c;
00532        w[23+num] =  v;
00533        x[24+num] =  b;
00534        y[24+num] =  c;
00535        z[24+num] =  a;
00536        w[24+num] =  v;
00537        x[25+num] = -b;
00538        y[25+num] =  c;
00539        z[25+num] =  a;
00540        w[25+num] =  v;
00541        x[26+num] =  b;
00542        y[26+num] = -c;
00543        z[26+num] =  a;
00544        w[26+num] =  v;
00545        x[27+num] = -b;
00546        y[27+num] = -c;
00547        z[27+num] =  a;
00548        w[27+num] =  v;
00549        x[28+num] =  b;
00550        y[28+num] =  c;
00551        z[28+num] = -a;
00552        w[28+num] =  v;
00553        x[29+num] = -b;
00554        y[29+num] =  c;
00555        z[29+num] = -a;
00556        w[29+num] =  v;
00557        x[30+num] =  b;
00558        y[30+num] = -c;
00559        z[30+num] = -a;
00560        w[30+num] =  v;
00561        x[31+num] = -b;
00562        y[31+num] = -c;
00563        z[31+num] = -a;
00564        w[31+num] =  v;
00565        x[32+num] =  c;
00566        y[32+num] =  a;
00567        z[32+num] =  b;
00568        w[32+num] =  v;
00569        x[33+num] = -c;
00570        y[33+num] =  a;
00571        z[33+num] =  b;
00572        w[33+num] =  v;
00573        x[34+num] =  c;
00574        y[34+num] = -a;
00575        z[34+num] =  b;
00576        w[34+num] =  v;
00577        x[35+num] = -c;
00578        y[35+num] = -a;
00579        z[35+num] =  b;
00580        w[35+num] =  v;
00581        x[36+num] =  c;
00582        y[36+num] =  a;
00583        z[36+num] = -b;
00584        w[36+num] =  v;
00585        x[37+num] = -c;
00586        y[37+num] =  a;
00587        z[37+num] = -b;
00588        w[37+num] =  v;
00589        x[38+num] =  c;
00590        y[38+num] = -a;
00591        z[38+num] = -b;
00592        w[38+num] =  v;
00593        x[39+num] = -c;
00594        y[39+num] = -a;
00595        z[39+num] = -b;
00596        w[39+num] =  v;
00597        x[40+num] =  c;
00598        y[40+num] =  b;
00599        z[40+num] =  a;
00600        w[40+num] =  v;
00601        x[41+num] = -c;
00602        y[41+num] =  b;
00603        z[41+num] =  a;
00604        w[41+num] =  v;
00605        x[42+num] =  c;
00606        y[42+num] = -b;
00607        z[42+num] =  a;
00608        w[42+num] =  v;
00609        x[43+num] = -c;
00610        y[43+num] = -b;
00611        z[43+num] =  a;
00612        w[43+num] =  v;
00613        x[44+num] =  c;
00614        y[44+num] =  b;
00615        z[44+num] = -a;
00616        w[44+num] =  v;
00617        x[45+num] = -c;
00618        y[45+num] =  b;
00619        z[45+num] = -a;
00620        w[45+num] =  v;
00621        x[46+num] =  c;
00622        y[46+num] = -b;
00623        z[46+num] = -a;
00624        w[46+num] =  v;
00625        x[47+num] = -c;
00626        y[47+num] = -b;
00627        z[47+num] = -a;
00628        w[47+num] =  v;
00629        num=num+48;
00630 //       return
00631      break;
00632 
00633     default:
00634        std::cout<< "Gen_Oh: Invalid Code" << std::endl;
00635       break;
00636   }
00637 
00638 
00639 
00640 
00641 
00642 
00643 
00644 }
00645 
00646        void LD0006(double* x,double* y,double* z,double* w){
00647 /*       double x[6];
00648        double y[6];
00649        double z[6];
00650        double w[6];    */
00651        int N;
00652        double a=0.0,b=0.0,v=0.0;
00653 /*
00654 CVW
00655 CVW    LEBEDEV    6-POINT ANGULAR GRID
00656 CVW
00657 chvd
00658 chvd   This subroutine is part of a set of subroutines that generate
00659 chvd   Lebedev grids [1-6] for integration on a sphere. The original
00660 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
00661 chvd   translated into fortran by Dr. Christoph van Wuellen.
00662 chvd   This subroutine was translated using a C to fortran77 conversion
00663 chvd   tool written by Dr. Christoph van Wuellen.
00664 chvd
00665 chvd   Users of this code are asked to include reference [1] in their
00666 chvd   publications, and in the user- and programmers-manuals
00667 chvd   describing their codes.
00668 chvd
00669 chvd   This code was distributed through CCL (http://www.ccl.net/).
00670 chvd
00671 chvd   [1] V.I. Lebedev, and D.N. Laikov
00672 chvd       "A quadrature formula for the sphere of the 131st
00673 chvd        algebraic order of accuracy"
00674 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
00675 chvd
00676 chvd   [2] V.I. Lebedev
00677 chvd       "A quadrature formula for the sphere of 59th algebraic
00678 chvd        order of accuracy"
00679 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
00680 chvd
00681 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
00682 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
00683 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
00684 chvd
00685 chvd   [4] V.I. Lebedev
00686 chvd       "Spherical quadrature formulas exact to orders 25-29"
00687 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
00688 chvd
00689 chvd   [5] V.I. Lebedev
00690 chvd       "Quadratures on a sphere"
00691 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
00692 chvd       1976, pp. 10-24.
00693 chvd
00694 chvd   [6] V.I. Lebedev
00695 chvd       "Values of the nodes and weights of ninth to seventeenth
00696 chvd        order Gauss-Markov quadrature formulae invariant under the
00697 chvd        octahedron group with inversion"
00698 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
00699 chvd       1975, pp. 44-51.
00700 chvd
00701 */
00702        N=1;
00703        v=0.1666666666666667;
00704        GEN_OH( 1, N, x, y, z, w, a, b, v);
00705        N=N-1;
00706        //RETURN
00707 }
00708 
00709        void LD0014(double* x,double* y,double* z,double* w){     
00710 /*       double x[14];
00711        double y[14];
00712        double z[14];
00713        double w[14]; */
00714        int N;
00715        double a=0.0,b=0.0,v=0.0;
00716 /*
00717 CVW
00718 CVW    LEBEDEV   14-POINT ANGULAR GRID
00719 CVW
00720 chvd
00721 chvd   This subroutine is part of a set of subroutines that generate
00722 chvd   Lebedev grids [1-6] for integration on a sphere. The original
00723 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
00724 chvd   translated into fortran by Dr. Christoph van Wuellen.
00725 chvd   This subroutine was translated using a C to fortran77 conversion
00726 chvd   tool written by Dr. Christoph van Wuellen.
00727 chvd
00728 chvd   Users of this code are asked to include reference [1] in their
00729 chvd   publications, and in the user- and programmers-manuals
00730 chvd   describing their codes.
00731 chvd
00732 chvd   This code was distributed through CCL (http://www.ccl.net/).
00733 chvd
00734 chvd   [1] V.I. Lebedev, and D.N. Laikov
00735 chvd       "A quadrature formula for the sphere of the 131st
00736 chvd        algebraic order of accuracy"
00737 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
00738 chvd
00739 chvd   [2] V.I. Lebedev
00740 chvd       "A quadrature formula for the sphere of 59th algebraic
00741 chvd        order of accuracy"
00742 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
00743 chvd
00744 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
00745 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
00746 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
00747 chvd
00748 chvd   [4] V.I. Lebedev
00749 chvd       "Spherical quadrature formulas exact to orders 25-29"
00750 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
00751 chvd
00752 chvd   [5] V.I. Lebedev
00753 chvd       "Quadratures on a sphere"
00754 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
00755 chvd       1976, pp. 10-24.
00756 chvd
00757 chvd   [6] V.I. Lebedev
00758 chvd       "Values of the nodes and weights of ninth to seventeenth
00759 chvd        order Gauss-Markov quadrature formulae invariant under the
00760 chvd        octahedron group with inversion"
00761 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
00762 chvd       1975, pp. 44-51.
00763 chvd
00764 */
00765        N=1;
00766        v=0.6666666666666667e-1;
00767        GEN_OH( 1, N, x, y, z, w, a, b, v);
00768        v=0.7500000000000000e-1;
00769        GEN_OH( 3, N, x, y, z, w, a, b, v);
00770        N=N-1;
00771        //RETURN
00772 }
00773 
00774        void LD0026(double* x,double* y,double* z,double* w){
00775 /*       double x[26]
00776        double y[26]
00777        double z[26]
00778        double w[26]    */
00779        int N;
00780        double a=0.0,b=0.0,v=0.0;
00781 /*
00782 CVW
00783 CVW    LEBEDEV   26-POINT ANGULAR GRID
00784 CVW
00785 chvd
00786 chvd   This subroutine is part of a set of subroutines that generate
00787 chvd   Lebedev grids [1-6] for integration on a sphere. The original
00788 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
00789 chvd   translated into fortran by Dr. Christoph van Wuellen.
00790 chvd   This subroutine was translated using a C to fortran77 conversion
00791 chvd   tool written by Dr. Christoph van Wuellen.
00792 chvd
00793 chvd   Users of this code are asked to include reference [1] in their
00794 chvd   publications, and in the user- and programmers-manuals
00795 chvd   describing their codes.
00796 chvd
00797 chvd   This code was distributed through CCL (http://www.ccl.net/).
00798 chvd
00799 chvd   [1] V.I. Lebedev, and D.N. Laikov
00800 chvd       "A quadrature formula for the sphere of the 131st
00801 chvd        algebraic order of accuracy"
00802 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
00803 chvd
00804 chvd   [2] V.I. Lebedev
00805 chvd       "A quadrature formula for the sphere of 59th algebraic
00806 chvd        order of accuracy"
00807 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
00808 chvd
00809 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
00810 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
00811 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
00812 chvd
00813 chvd   [4] V.I. Lebedev
00814 chvd       "Spherical quadrature formulas exact to orders 25-29"
00815 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
00816 chvd
00817 chvd   [5] V.I. Lebedev
00818 chvd       "Quadratures on a sphere"
00819 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
00820 chvd       1976, pp. 10-24.
00821 chvd
00822 chvd   [6] V.I. Lebedev
00823 chvd       "Values of the nodes and weights of ninth to seventeenth
00824 chvd        order Gauss-Markov quadrature formulae invariant under the
00825 chvd        octahedron group with inversion"
00826 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
00827 chvd       1975, pp. 44-51.
00828 chvd
00829 */
00830        N=1;
00831        v=0.4761904761904762e-1;
00832        GEN_OH( 1, N, x, y, z, w, a, b, v);
00833        v=0.3809523809523810e-1;
00834        GEN_OH( 2, N, x, y, z, w, a, b, v);
00835        v=0.3214285714285714e-1;
00836        GEN_OH( 3, N, x, y, z, w, a, b, v);
00837        N=N-1;
00838        //RETURN
00839 }
00840 
00841        void LD0038(double* x,double* y,double* z,double* w){
00842 /*       double x[38];
00843        double y[38];
00844        double z[38];
00845        double w[38];      */
00846        int N;
00847        double a=0.0,b=0.0,v=0.0;
00848 /*
00849 CVW
00850 CVW    LEBEDEV   38-POINT ANGULAR GRID
00851 CVW
00852 chvd
00853 chvd   This subroutine is part of a set of subroutines that generate
00854 chvd   Lebedev grids [1-6] for integration on a sphere. The original
00855 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
00856 chvd   translated into fortran by Dr. Christoph van Wuellen.
00857 chvd   This subroutine was translated using a C to fortran77 conversion
00858 chvd   tool written by Dr. Christoph van Wuellen.
00859 chvd
00860 chvd   Users of this code are asked to include reference [1] in their
00861 chvd   publications, and in the user- and programmers-manuals
00862 chvd   describing their codes.
00863 chvd
00864 chvd   This code was distributed through CCL (http://www.ccl.net/).
00865 chvd
00866 chvd   [1] V.I. Lebedev, and D.N. Laikov
00867 chvd       "A quadrature formula for the sphere of the 131st
00868 chvd        algebraic order of accuracy"
00869 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
00870 chvd
00871 chvd   [2] V.I. Lebedev
00872 chvd       "A quadrature formula for the sphere of 59th algebraic
00873 chvd        order of accuracy"
00874 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
00875 chvd
00876 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
00877 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
00878 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
00879 chvd
00880 chvd   [4] V.I. Lebedev
00881 chvd       "Spherical quadrature formulas exact to orders 25-29"
00882 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
00883 chvd
00884 chvd   [5] V.I. Lebedev
00885 chvd       "Quadratures on a sphere"
00886 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
00887 chvd       1976, pp. 10-24.
00888 chvd
00889 chvd   [6] V.I. Lebedev
00890 chvd       "Values of the nodes and weights of ninth to seventeenth
00891 chvd        order Gauss-Markov quadrature formulae invariant under the
00892 chvd        octahedron group with inversion"
00893 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
00894 chvd       1975, pp. 44-51.
00895 chvd
00896 */
00897        N=1;
00898        v=0.9523809523809524e-2;
00899        GEN_OH( 1, N, x, y, z, w, a, b, v);
00900        v=0.3214285714285714e-1;
00901        GEN_OH( 3, N, x, y, z, w, a, b, v);
00902        a=0.4597008433809831;
00903        v=0.2857142857142857e-1;
00904        GEN_OH( 5, N, x, y, z, w, a, b, v);
00905        N=N-1;
00906        //RETURN
00907 }
00908 
00909        void LD0050(double* x,double* y,double* z,double* w){
00910 /*       double x[50];
00911        double y[50];
00912        double z[50];
00913        double w[50];    */
00914        int N;
00915        double a=0.0,b=0.0,v=0.0;
00916 /*
00917 CVW
00918 CVW    LEBEDEV   50-POINT ANGULAR GRID
00919 CVW
00920 chvd
00921 chvd   This subroutine is part of a set of subroutines that generate
00922 chvd   Lebedev grids [1-6] for integration on a sphere. The original
00923 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
00924 chvd   translated into fortran by Dr. Christoph van Wuellen.
00925 chvd   This subroutine was translated using a C to fortran77 conversion
00926 chvd   tool written by Dr. Christoph van Wuellen.
00927 chvd
00928 chvd   Users of this code are asked to include reference [1] in their
00929 chvd   publications, and in the user- and programmers-manuals
00930 chvd   describing their codes.
00931 chvd
00932 chvd   This code was distributed through CCL (http://www.ccl.net/).
00933 chvd
00934 chvd   [1] V.I. Lebedev, and D.N. Laikov
00935 chvd       "A quadrature formula for the sphere of the 131st
00936 chvd        algebraic order of accuracy"
00937 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
00938 chvd
00939 chvd   [2] V.I. Lebedev
00940 chvd       "A quadrature formula for the sphere of 59th algebraic
00941 chvd        order of accuracy"
00942 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
00943 chvd
00944 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
00945 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
00946 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
00947 chvd
00948 chvd   [4] V.I. Lebedev
00949 chvd       "Spherical quadrature formulas exact to orders 25-29"
00950 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
00951 chvd
00952 chvd   [5] V.I. Lebedev
00953 chvd       "Quadratures on a sphere"
00954 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
00955 chvd       1976, pp. 10-24.
00956 chvd
00957 chvd   [6] V.I. Lebedev
00958 chvd       "Values of the nodes and weights of ninth to seventeenth
00959 chvd        order Gauss-Markov quadrature formulae invariant under the
00960 chvd        octahedron group with inversion"
00961 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
00962 chvd       1975, pp. 44-51.
00963 chvd
00964 */
00965        N=1;
00966        v=0.1269841269841270e-1;
00967        GEN_OH( 1, N, x, y, z, w, a, b, v);
00968        v=0.2257495590828924e-1;
00969        GEN_OH( 2, N, x, y, z, w, a, b, v);
00970        v=0.2109375000000000e-1;
00971        GEN_OH( 3, N, x, y, z, w, a, b, v);
00972        a=0.3015113445777636;
00973        v=0.2017333553791887e-1;
00974        GEN_OH( 4, N, x, y, z, w, a, b, v);
00975        N=N-1;
00976        //RETURN
00977 }
00978 
00979        void LD0074(double* x,double* y,double* z,double* w){
00980 /*       double x[74];
00981        double y[74];
00982        double z[74];
00983        double w[74];     */
00984        int N;
00985        double a=0.0,b=0.0,v=0.0;
00986 /*
00987 CVW
00988 CVW    LEBEDEV   74-POINT ANGULAR GRID
00989 CVW
00990 chvd
00991 chvd   This subroutine is part of a set of subroutines that generate
00992 chvd   Lebedev grids [1-6] for integration on a sphere. The original
00993 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
00994 chvd   translated into fortran by Dr. Christoph van Wuellen.
00995 chvd   This subroutine was translated using a C to fortran77 conversion
00996 chvd   tool written by Dr. Christoph van Wuellen.
00997 chvd
00998 chvd   Users of this code are asked to include reference [1] in their
00999 chvd   publications, and in the user- and programmers-manuals
01000 chvd   describing their codes.
01001 chvd
01002 chvd   This code was distributed through CCL (http://www.ccl.net/).
01003 chvd
01004 chvd   [1] V.I. Lebedev, and D.N. Laikov
01005 chvd       "A quadrature formula for the sphere of the 131st
01006 chvd        algebraic order of accuracy"
01007 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01008 chvd
01009 chvd   [2] V.I. Lebedev
01010 chvd       "A quadrature formula for the sphere of 59th algebraic
01011 chvd        order of accuracy"
01012 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01013 chvd
01014 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01015 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01016 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01017 chvd
01018 chvd   [4] V.I. Lebedev
01019 chvd       "Spherical quadrature formulas exact to orders 25-29"
01020 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01021 chvd
01022 chvd   [5] V.I. Lebedev
01023 chvd       "Quadratures on a sphere"
01024 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01025 chvd       1976, pp. 10-24.
01026 chvd
01027 chvd   [6] V.I. Lebedev
01028 chvd       "Values of the nodes and weights of ninth to seventeenth
01029 chvd        order Gauss-Markov quadrature formulae invariant under the
01030 chvd        octahedron group with inversion"
01031 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01032 chvd       1975, pp. 44-51.
01033 chvd
01034 */
01035        N=1;
01036        v=0.5130671797338464e-3;
01037        GEN_OH( 1, N, x, y, z, w, a, b, v);
01038        v=0.1660406956574204e-1;
01039        GEN_OH( 2, N, x, y, z, w, a, b, v);
01040        v=-0.2958603896103896e-1;
01041        GEN_OH( 3, N, x, y, z, w, a, b, v);
01042        a=0.4803844614152614;
01043        v=0.2657620708215946e-1;
01044        GEN_OH( 4, N, x, y, z, w, a, b, v);
01045        a=0.3207726489807764;
01046        v=0.1652217099371571e-1;
01047        GEN_OH( 5, N, x, y, z, w, a, b, v);
01048        N=N-1;
01049        //RETURN
01050 }
01051 
01052        void LD0086(double* x,double* y,double* z,double* w){
01053 /*       double x[86];
01054        double y[86];
01055        double z[86];
01056        double w[86];     */
01057        int N;
01058        double a=0.0,b=0.0,v=0.0;
01059 /*
01060 CVW
01061 CVW    LEBEDEV   86-POINT ANGULAR GRID
01062 CVW
01063 chvd
01064 chvd   This subroutine is part of a set of subroutines that generate
01065 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01066 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01067 chvd   translated into fortran by Dr. Christoph van Wuellen.
01068 chvd   This subroutine was translated using a C to fortran77 conversion
01069 chvd   tool written by Dr. Christoph van Wuellen.
01070 chvd
01071 chvd   Users of this code are asked to include reference [1] in their
01072 chvd   publications, and in the user- and programmers-manuals
01073 chvd   describing their codes.
01074 chvd
01075 chvd   This code was distributed through CCL (http://www.ccl.net/).
01076 chvd
01077 chvd   [1] V.I. Lebedev, and D.N. Laikov
01078 chvd       "A quadrature formula for the sphere of the 131st
01079 chvd        algebraic order of accuracy"
01080 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01081 chvd
01082 chvd   [2] V.I. Lebedev
01083 chvd       "A quadrature formula for the sphere of 59th algebraic
01084 chvd        order of accuracy"
01085 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01086 chvd
01087 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01088 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01089 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01090 chvd
01091 chvd   [4] V.I. Lebedev
01092 chvd       "Spherical quadrature formulas exact to orders 25-29"
01093 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01094 chvd
01095 chvd   [5] V.I. Lebedev
01096 chvd       "Quadratures on a sphere"
01097 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01098 chvd       1976, pp. 10-24.
01099 chvd
01100 chvd   [6] V.I. Lebedev
01101 chvd       "Values of the nodes and weights of ninth to seventeenth
01102 chvd        order Gauss-Markov quadrature formulae invariant under the
01103 chvd        octahedron group with inversion"
01104 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01105 chvd       1975, pp. 44-51.
01106 chvd
01107 */
01108        N=1;
01109        v=0.1154401154401154e-1;
01110        GEN_OH( 1, N, x, y, z, w, a, b, v);
01111        v=0.1194390908585628e-1;
01112        GEN_OH( 3, N, x, y, z, w, a, b, v);
01113        a=0.3696028464541502;
01114        v=0.1111055571060340e-1;
01115        GEN_OH( 4, N, x, y, z, w, a, b, v);
01116        a=0.6943540066026664;
01117        v=0.1187650129453714e-1;
01118        GEN_OH( 4, N, x, y, z, w, a, b, v);
01119        a=0.3742430390903412;
01120        v=0.1181230374690448e-1;
01121        GEN_OH( 5, N, x, y, z, w, a, b, v);
01122        N=N-1;
01123        //RETURN
01124 }
01125 
01126       void LD0110(double* x,double* y,double* z,double* w){
01127 /*       double x[110];
01128        double y[110];
01129        double z[110];
01130        double w[110];     */
01131        int N;
01132        double a=0.0,b=0.0,v=0.0;
01133 /*CVW
01134 CVW    LEBEDEV  110-POINT ANGULAR GRID
01135 CVW
01136 chvd
01137 chvd   This subroutine is part of a set of subroutines that generate
01138 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01139 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01140 chvd   translated into fortran by Dr. Christoph van Wuellen.
01141 chvd   This subroutine was translated using a C to fortran77 conversion
01142 chvd   tool written by Dr. Christoph van Wuellen.
01143 chvd
01144 chvd   Users of this code are asked to include reference [1] in their
01145 chvd   publications, and in the user- and programmers-manuals
01146 chvd   describing their codes.
01147 chvd
01148 chvd   This code was distributed through CCL (http://www.ccl.net/).
01149 chvd
01150 chvd   [1] V.I. Lebedev, and D.N. Laikov
01151 chvd       "A quadrature formula for the sphere of the 131st
01152 chvd        algebraic order of accuracy"
01153 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01154 chvd
01155 chvd   [2] V.I. Lebedev
01156 chvd       "A quadrature formula for the sphere of 59th algebraic
01157 chvd        order of accuracy"
01158 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01159 chvd
01160 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01161 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01162 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01163 chvd
01164 chvd   [4] V.I. Lebedev
01165 chvd       "Spherical quadrature formulas exact to orders 25-29"
01166 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01167 chvd
01168 chvd   [5] V.I. Lebedev
01169 chvd       "Quadratures on a sphere"
01170 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01171 chvd       1976, pp. 10-24.
01172 chvd
01173 chvd   [6] V.I. Lebedev
01174 chvd       "Values of the nodes and weights of ninth to seventeenth
01175 chvd        order Gauss-Markov quadrature formulae invariant under the
01176 chvd        octahedron group with inversion"
01177 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01178 chvd       1975, pp. 44-51.
01179 chvd  */
01180        N=1;
01181        v=0.3828270494937162e-2;
01182        GEN_OH( 1, N, x, y, z, w, a, b, v);
01183        v=0.9793737512487512e-2;
01184        GEN_OH( 3, N, x, y, z, w, a, b, v);
01185        a=0.1851156353447362;
01186        v=0.8211737283191111e-2;
01187        GEN_OH( 4, N, x, y, z, w, a, b, v);
01188        a=0.6904210483822922;
01189        v=0.9942814891178103e-2;
01190        GEN_OH( 4, N, x, y, z, w, a, b, v);
01191        a=0.3956894730559419;
01192        v=0.9595471336070963e-2;
01193        GEN_OH( 4, N, x, y, z, w, a, b, v);
01194        a=0.4783690288121502;
01195        v=0.9694996361663028e-2;
01196        GEN_OH( 5, N, x, y, z, w, a, b, v);
01197        N=N-1;
01198        //RETURN
01199 }
01200 
01201         void LD0146(double* x,double* y,double* z,double* w){
01202 /*       double x[146];
01203        double y[146];
01204        double z[146];
01205        double w[146];      */
01206        int N;
01207        double a=0.0,b=0.0,v=0.0;
01208 /*CVW
01209 CVW    LEBEDEV  146-POINT ANGULAR GRID
01210 CVW
01211 chvd
01212 chvd   This subroutine is part of a set of subroutines that generate
01213 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01214 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01215 chvd   translated into fortran by Dr. Christoph van Wuellen.
01216 chvd   This subroutine was translated using a C to fortran77 conversion
01217 chvd   tool written by Dr. Christoph van Wuellen.
01218 chvd
01219 chvd   Users of this code are asked to include reference [1] in their
01220 chvd   publications, and in the user- and programmers-manuals
01221 chvd   describing their codes.
01222 chvd
01223 chvd   This code was distributed through CCL (http://www.ccl.net/).
01224 chvd
01225 chvd   [1] V.I. Lebedev, and D.N. Laikov
01226 chvd       "A quadrature formula for the sphere of the 131st
01227 chvd        algebraic order of accuracy"
01228 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01229 chvd
01230 chvd   [2] V.I. Lebedev
01231 chvd       "A quadrature formula for the sphere of 59th algebraic
01232 chvd        order of accuracy"
01233 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01234 chvd
01235 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01236 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01237 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01238 chvd
01239 chvd   [4] V.I. Lebedev
01240 chvd       "Spherical quadrature formulas exact to orders 25-29"
01241 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01242 chvd
01243 chvd   [5] V.I. Lebedev
01244 chvd       "Quadratures on a sphere"
01245 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01246 chvd       1976, pp. 10-24.
01247 chvd
01248 chvd   [6] V.I. Lebedev
01249 chvd       "Values of the nodes and weights of ninth to seventeenth
01250 chvd        order Gauss-Markov quadrature formulae invariant under the
01251 chvd        octahedron group with inversion"
01252 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01253 chvd       1975, pp. 44-51.
01254 chvd    */
01255        N=1;
01256        v=0.5996313688621381e-3;
01257        GEN_OH( 1, N, x, y, z, w, a, b, v);
01258        v=0.7372999718620756e-2;
01259        GEN_OH( 2, N, x, y, z, w, a, b, v);
01260        v=0.7210515360144488e-2;
01261        GEN_OH( 3, N, x, y, z, w, a, b, v);
01262        a=0.6764410400114264;
01263        v=0.7116355493117555e-2;
01264        GEN_OH( 4, N, x, y, z, w, a, b, v);
01265        a=0.4174961227965453;
01266        v=0.6753829486314477e-2;
01267        GEN_OH( 4, N, x, y, z, w, a, b, v);
01268        a=0.1574676672039082;
01269        v=0.7574394159054034e-2;
01270        GEN_OH( 4, N, x, y, z, w, a, b, v);
01271        a=0.1403553811713183;
01272        b=0.4493328323269557;
01273        v=0.6991087353303262e-2;
01274        GEN_OH( 6, N, x, y, z, w, a, b, v);
01275        N=N-1;
01276        //RETURN
01277 }
01278 
01279        void LD0170(double* x,double* y,double* z,double* w){
01280 /*       double x[170];
01281        double y[170];
01282        double z[170];
01283        double w[170];   */
01284        int N;
01285        double a=0.0,b=0.0,v=0.0;
01286 /*CVW
01287 CVW    LEBEDEV  170-POINT ANGULAR GRID
01288 CVW
01289 chvd
01290 chvd   This subroutine is part of a set of subroutines that generate
01291 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01292 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01293 chvd   translated into fortran by Dr. Christoph van Wuellen.
01294 chvd   This subroutine was translated using a C to fortran77 conversion
01295 chvd   tool written by Dr. Christoph van Wuellen.
01296 chvd
01297 chvd   Users of this code are asked to include reference [1] in their
01298 chvd   publications, and in the user- and programmers-manuals
01299 chvd   describing their codes.
01300 chvd
01301 chvd   This code was distributed through CCL (http://www.ccl.net/).
01302 chvd
01303 chvd   [1] V.I. Lebedev, and D.N. Laikov
01304 chvd       "A quadrature formula for the sphere of the 131st
01305 chvd        algebraic order of accuracy"
01306 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01307 chvd
01308 chvd   [2] V.I. Lebedev
01309 chvd       "A quadrature formula for the sphere of 59th algebraic
01310 chvd        order of accuracy"
01311 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01312 chvd
01313 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01314 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01315 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01316 chvd
01317 chvd   [4] V.I. Lebedev
01318 chvd       "Spherical quadrature formulas exact to orders 25-29"
01319 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01320 chvd
01321 chvd   [5] V.I. Lebedev
01322 chvd       "Quadratures on a sphere"
01323 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01324 chvd       1976, pp. 10-24.
01325 chvd
01326 chvd   [6] V.I. Lebedev
01327 chvd       "Values of the nodes and weights of ninth to seventeenth
01328 chvd        order Gauss-Markov quadrature formulae invariant under the
01329 chvd        octahedron group with inversion"
01330 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01331 chvd       1975, pp. 44-51.
01332 chvd   */
01333        N=1;
01334        v=0.5544842902037365e-2;
01335        GEN_OH( 1, N, x, y, z, w, a, b, v);
01336        v=0.6071332770670752e-2;
01337        GEN_OH( 2, N, x, y, z, w, a, b, v);
01338        v=0.6383674773515093e-2;
01339        GEN_OH( 3, N, x, y, z, w, a, b, v);
01340        a=0.2551252621114134;
01341        v=0.5183387587747790e-2;
01342        GEN_OH( 4, N, x, y, z, w, a, b, v);
01343        a=0.6743601460362766;
01344        v=0.6317929009813725e-2;
01345        GEN_OH( 4, N, x, y, z, w, a, b, v);
01346        a=0.4318910696719410 ;
01347        v=0.6201670006589077e-2;
01348        GEN_OH( 4, N, x, y, z, w, a, b, v);
01349        a=0.2613931360335988;
01350        v=0.5477143385137348e-2;
01351        GEN_OH( 5, N, x, y, z, w, a, b, v);
01352        a=0.4990453161796037;
01353        b=0.1446630744325115;
01354        v=0.5968383987681156e-2;
01355        GEN_OH( 6, N, x, y, z, w, a, b, v);
01356        N=N-1;
01357        //RETURN
01358 }
01359 
01360         void LD0194(double* x,double* y,double* z,double* w){
01361 /*     double x[194];
01362        double y[194];
01363        double z[194];
01364        double w[194]; */
01365        int N;
01366        double a=0.0,b=0.0,v=0.0;
01367 /*CVW
01368 CVW    LEBEDEV  194-POINT ANGULAR GRID
01369 CVW
01370 chvd
01371 chvd   This subroutine is part of a set of subroutines that generate
01372 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01373 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01374 chvd   translated into fortran by Dr. Christoph van Wuellen.
01375 chvd   This subroutine was translated using a C to fortran77 conversion
01376 chvd   tool written by Dr. Christoph van Wuellen.
01377 chvd
01378 chvd   Users of this code are asked to include reference [1] in their
01379 chvd   publications, and in the user- and programmers-manuals
01380 chvd   describing their codes.
01381 chvd
01382 chvd   This code was distributed through CCL (http://www.ccl.net/).
01383 chvd
01384 chvd   [1] V.I. Lebedev, and D.N. Laikov
01385 chvd       "A quadrature formula for the sphere of the 131st
01386 chvd        algebraic order of accuracy"
01387 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01388 chvd
01389 chvd   [2] V.I. Lebedev
01390 chvd       "A quadrature formula for the sphere of 59th algebraic
01391 chvd        order of accuracy"
01392 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01393 chvd
01394 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01395 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01396 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01397 chvd
01398 chvd   [4] V.I. Lebedev
01399 chvd       "Spherical quadrature formulas exact to orders 25-29"
01400 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01401 chvd
01402 chvd   [5] V.I. Lebedev
01403 chvd       "Quadratures on a sphere"
01404 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01405 chvd       1976, pp. 10-24.
01406 chvd
01407 chvd   [6] V.I. Lebedev
01408 chvd       "Values of the nodes and weights of ninth to seventeenth
01409 chvd        order Gauss-Markov quadrature formulae invariant under the
01410 chvd        octahedron group with inversion"
01411 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01412 chvd       1975, pp. 44-51.
01413 chvd    */
01414        N=1;
01415        v=0.1782340447244611e-2;
01416        GEN_OH( 1, N, x, y, z, w, a, b, v);
01417        v=0.5716905949977102e-2;
01418        GEN_OH( 2, N, x, y, z, w, a, b, v);
01419        v=0.5573383178848738e-2;
01420        GEN_OH( 3, N, x, y, z, w, a, b, v);
01421        a=0.6712973442695226;
01422        v=0.5608704082587997e-2;
01423        GEN_OH( 4, N, x, y, z, w, a, b, v);
01424        a=0.2892465627575439;
01425        v=0.5158237711805383e-2;
01426        GEN_OH( 4, N, x, y, z, w, a, b, v);
01427        a=0.4446933178717437;
01428        v=0.5518771467273614e-2;
01429        GEN_OH( 4, N, x, y, z, w, a, b, v);
01430        a=0.1299335447650067 ;
01431        v=0.4106777028169394e-2;
01432        GEN_OH( 4, N, x, y, z, w, a, b, v);
01433        a=0.3457702197611283;
01434        v=0.5051846064614808e-2;
01435        GEN_OH( 5, N, x, y, z, w, a, b, v);
01436        a=0.1590417105383530;
01437        b=0.8360360154824589;
01438        v=0.5530248916233094e-2;
01439        GEN_OH( 6, N, x, y, z, w, a, b, v);
01440        N=N-1;
01441        //RETURN
01442 }
01443 
01444         void LD0230(double* x,double* y,double* z,double* w){
01445 /*     double x[230];
01446        double y[230];
01447        double z[230];
01448        double w[230];   */
01449        int N;
01450        double a=0.0,b=0.0,v=0.0;
01451 /*
01452 CVW
01453 CVW    LEBEDEV  230-POINT ANGULAR GRID
01454 CVW
01455 chvd
01456 chvd   This subroutine is part of a set of subroutines that generate
01457 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01458 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01459 chvd   translated into fortran by Dr. Christoph van Wuellen.
01460 chvd   This subroutine was translated using a C to fortran77 conversion
01461 chvd   tool written by Dr. Christoph van Wuellen.
01462 chvd
01463 chvd   Users of this code are asked to include reference [1] in their
01464 chvd   publications, and in the user- and programmers-manuals
01465 chvd   describing their codes.
01466 chvd
01467 chvd   This code was distributed through CCL (http://www.ccl.net/).
01468 chvd
01469 chvd   [1] V.I. Lebedev, and D.N. Laikov
01470 chvd       "A quadrature formula for the sphere of the 131st
01471 chvd        algebraic order of accuracy"
01472 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01473 chvd
01474 chvd   [2] V.I. Lebedev
01475 chvd       "A quadrature formula for the sphere of 59th algebraic
01476 chvd        order of accuracy"
01477 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01478 chvd
01479 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01480 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01481 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01482 chvd
01483 chvd   [4] V.I. Lebedev
01484 chvd       "Spherical quadrature formulas exact to orders 25-29"
01485 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01486 chvd
01487 chvd   [5] V.I. Lebedev
01488 chvd       "Quadratures on a sphere"
01489 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01490 chvd       1976, pp. 10-24.
01491 chvd
01492 chvd   [6] V.I. Lebedev
01493 chvd       "Values of the nodes and weights of ninth to seventeenth
01494 chvd        order Gauss-Markov quadrature formulae invariant under the
01495 chvd        octahedron group with inversion"
01496 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01497 chvd       1975, pp. 44-51.
01498 chvd
01499 */
01500        N=1;
01501        v=-0.5522639919727325e-1;
01502        GEN_OH( 1, N, x, y, z, w, a, b, v);
01503        v=0.4450274607445226e-2;
01504        GEN_OH( 3, N, x, y, z, w, a, b, v);
01505        a=0.4492044687397611;
01506        v=0.4496841067921404e-2;
01507        GEN_OH( 4, N, x, y, z, w, a, b, v);
01508        a=0.2520419490210201;
01509        v=0.5049153450478750e-2;
01510        GEN_OH( 4, N, x, y, z, w, a, b, v);
01511        a=0.6981906658447242;
01512        v=0.3976408018051883e-2;
01513        GEN_OH( 4, N, x, y, z, w, a, b, v);
01514        a=0.6587405243460960;
01515        v=0.4401400650381014e-2;
01516        GEN_OH( 4, N, x, y, z, w, a, b, v);
01517        a=0.4038544050097660e-1;
01518        v=0.1724544350544401e-1;
01519        GEN_OH( 4, N, x, y, z, w, a, b, v);
01520        a=0.5823842309715585;
01521        v=0.4231083095357343e-2;
01522        GEN_OH( 5, N, x, y, z, w, a, b, v);
01523        a=0.3545877390518688;
01524        v=0.5198069864064399e-2;
01525        GEN_OH( 5, N, x, y, z, w, a, b, v);
01526        a=0.2272181808998187;
01527        b=0.4864661535886647;
01528        v=0.4695720972568883e-2;
01529        GEN_OH( 6, N, x, y, z, w, a, b, v);
01530        N=N-1;
01531        //RETURN
01532 }
01533 
01534         void LD0266(double* x,double* y,double* z,double* w){
01535 /*     double x[266];
01536        double y[266];
01537        double z[266];
01538        double w[266];     */
01539        int N;
01540        double a=0.0,b=0.0,v=0.0;
01541 /*
01542 CVW
01543 CVW    LEBEDEV  266-POINT ANGULAR GRID
01544 CVW
01545 chvd
01546 chvd   This subroutine is part of a set of subroutines that generate
01547 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01548 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01549 chvd   translated into fortran by Dr. Christoph van Wuellen.
01550 chvd   This subroutine was translated using a C to fortran77 conversion
01551 chvd   tool written by Dr. Christoph van Wuellen.
01552 chvd
01553 chvd   Users of this code are asked to include reference [1] in their
01554 chvd   publications, and in the user- and programmers-manuals
01555 chvd   describing their codes.
01556 chvd
01557 chvd   This code was distributed through CCL (http://www.ccl.net/).
01558 chvd
01559 chvd   [1] V.I. Lebedev, and D.N. Laikov
01560 chvd       "A quadrature formula for the sphere of the 131st
01561 chvd        algebraic order of accuracy"
01562 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01563 chvd
01564 chvd   [2] V.I. Lebedev
01565 chvd       "A quadrature formula for the sphere of 59th algebraic
01566 chvd        order of accuracy"
01567 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01568 chvd
01569 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01570 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01571 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01572 chvd
01573 chvd   [4] V.I. Lebedev
01574 chvd       "Spherical quadrature formulas exact to orders 25-29"
01575 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01576 chvd
01577 chvd   [5] V.I. Lebedev
01578 chvd       "Quadratures on a sphere"
01579 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01580 chvd       1976, pp. 10-24.
01581 chvd
01582 chvd   [6] V.I. Lebedev
01583 chvd       "Values of the nodes and weights of ninth to seventeenth
01584 chvd        order Gauss-Markov quadrature formulae invariant under the
01585 chvd        octahedron group with inversion"
01586 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01587 chvd       1975, pp. 44-51.
01588 chvd
01589 */
01590        N=1;
01591        v=-0.1313769127326952e-2;
01592        GEN_OH( 1, N, x, y, z, w, a, b, v);
01593        v=-0.2522728704859336e-2;
01594        GEN_OH( 2, N, x, y, z, w, a, b, v);
01595        v=0.4186853881700583e-2;
01596        GEN_OH( 3, N, x, y, z, w, a, b, v);
01597        a=0.7039373391585475;
01598        v=0.5315167977810885e-2;
01599        GEN_OH( 4, N, x, y, z, w, a, b, v);
01600        a=0.1012526248572414 ;
01601        v=0.4047142377086219e-2;
01602        GEN_OH( 4, N, x, y, z, w, a, b, v);
01603        a=0.4647448726420539;
01604        v=0.4112482394406990e-2;
01605        GEN_OH( 4, N, x, y, z, w, a, b, v);
01606        a=0.3277420654971629;
01607        v=0.3595584899758782e-2;
01608        GEN_OH( 4, N, x, y, z, w, a, b, v);
01609        a=0.6620338663699974 ;
01610        v=0.4256131351428158e-2;
01611        GEN_OH( 4, N, x, y, z, w, a, b, v);
01612        a=0.8506508083520399 ;
01613        v=0.4229582700647240e-2;
01614        GEN_OH( 5, N, x, y, z, w, a, b, v);
01615        a=0.3233484542692899 ;
01616        b=0.1153112011009701;
01617        v=0.4080914225780505e-2;
01618        GEN_OH( 6, N, x, y, z, w, a, b, v);
01619        a=0.2314790158712601;
01620        b=0.5244939240922365 ;
01621        v=0.4071467593830964e-2;
01622        GEN_OH( 6, N, x, y, z, w, a, b, v);
01623        N=N-1;
01624        //RETURN
01625 }
01626 
01627         void LD0302(double* x,double* y,double* z,double* w){
01628 /*     double x[302];
01629        double y[302];
01630        double z[302];
01631        double w[302];    */
01632        int N;
01633        double a=0.0,b=0.0,v=0.0;
01634 /*
01635 CVW
01636 CVW    LEBEDEV  302-POINT ANGULAR GRID
01637 CVW
01638 chvd
01639 chvd   This subroutine is part of a set of subroutines that generate
01640 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01641 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01642 chvd   translated into fortran by Dr. Christoph van Wuellen.
01643 chvd   This subroutine was translated using a C to fortran77 conversion
01644 chvd   tool written by Dr. Christoph van Wuellen.
01645 chvd
01646 chvd   Users of this code are asked to include reference [1] in their
01647 chvd   publications, and in the user- and programmers-manuals
01648 chvd   describing their codes.
01649 chvd
01650 chvd   This code was distributed through CCL (http://www.ccl.net/).
01651 chvd
01652 chvd   [1] V.I. Lebedev, and D.N. Laikov
01653 chvd       "A quadrature formula for the sphere of the 131st
01654 chvd        algebraic order of accuracy"
01655 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01656 chvd
01657 chvd   [2] V.I. Lebedev
01658 chvd       "A quadrature formula for the sphere of 59th algebraic
01659 chvd        order of accuracy"
01660 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01661 chvd
01662 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01663 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01664 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01665 chvd
01666 chvd   [4] V.I. Lebedev
01667 chvd       "Spherical quadrature formulas exact to orders 25-29"
01668 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01669 chvd
01670 chvd   [5] V.I. Lebedev
01671 chvd       "Quadratures on a sphere"
01672 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01673 chvd       1976, pp. 10-24.
01674 chvd
01675 chvd   [6] V.I. Lebedev
01676 chvd       "Values of the nodes and weights of ninth to seventeenth
01677 chvd        order Gauss-Markov quadrature formulae invariant under the
01678 chvd        octahedron group with inversion"
01679 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01680 chvd       1975, pp. 44-51.
01681 chvd
01682 */
01683        N=1;
01684        v=0.8545911725128148e-3;
01685        GEN_OH( 1, N, x, y, z, w, a, b, v);
01686        v=0.3599119285025571e-2;
01687        GEN_OH( 3, N, x, y, z, w, a, b, v);
01688        a=0.3515640345570105;
01689        v=0.3449788424305883e-2;
01690        GEN_OH( 4, N, x, y, z, w, a, b, v);
01691        a=0.6566329410219612;
01692        v=0.3604822601419882e-2;
01693        GEN_OH( 4, N, x, y, z, w, a, b, v);
01694        a=0.4729054132581005;
01695        v=0.3576729661743367e-2;
01696        GEN_OH( 4, N, x, y, z, w, a, b, v);
01697        a=0.9618308522614784e-1;
01698        v=0.2352101413689164e-2;
01699        GEN_OH( 4, N, x, y, z, w, a, b, v);
01700        a=0.2219645236294178 ;
01701        v=0.3108953122413675e-2;
01702        GEN_OH( 4, N, x, y, z, w, a, b, v);
01703        a=0.7011766416089545;
01704        v=0.3650045807677255e-2;
01705        GEN_OH( 4, N, x, y, z, w, a, b, v);
01706        a=0.2644152887060663;
01707        v=0.2982344963171804e-2;
01708        GEN_OH( 5, N, x, y, z, w, a, b, v);
01709        a=0.5718955891878961;
01710        v=0.3600820932216460e-2;
01711        GEN_OH( 5, N, x, y, z, w, a, b, v);
01712        a=0.2510034751770465 ;
01713        b=0.8000727494073952;
01714        v=0.3571540554273387e-2;
01715        GEN_OH( 6, N, x, y, z, w, a, b, v);
01716        a=0.1233548532583327;
01717        b=0.4127724083168531;
01718        v=0.3392312205006170e-2;
01719        GEN_OH( 6, N, x, y, z, w, a, b, v);
01720        N=N-1;
01721        //RETURN
01722 }  //       END
01723 
01724        void LD0350(double* x,double* y,double* z,double* w){
01725 /*     double x[350];
01726        double y[350];
01727        double z[350];
01728        double w[350];    */
01729        int N;
01730        double a=0.0,b=0.0,v=0.0;
01731 /*
01732 CVW
01733 CVW    LEBEDEV  350-POINT ANGULAR GRID
01734 CVW
01735 chvd
01736 chvd   This subroutine is part of a set of subroutines that generate
01737 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01738 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01739 chvd   translated into fortran by Dr. Christoph van Wuellen.
01740 chvd   This subroutine was translated using a C to fortran77 conversion
01741 chvd   tool written by Dr. Christoph van Wuellen.
01742 chvd
01743 chvd   Users of this code are asked to include reference [1] in their
01744 chvd   publications, and in the user- and programmers-manuals
01745 chvd   describing their codes.
01746 chvd
01747 chvd   This code was distributed through CCL (http://www.ccl.net/).
01748 chvd
01749 chvd   [1] V.I. Lebedev, and D.N. Laikov
01750 chvd       "A quadrature formula for the sphere of the 131st
01751 chvd        algebraic order of accuracy"
01752 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01753 chvd
01754 chvd   [2] V.I. Lebedev
01755 chvd       "A quadrature formula for the sphere of 59th algebraic
01756 chvd        order of accuracy"
01757 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01758 chvd
01759 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01760 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01761 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01762 chvd
01763 chvd   [4] V.I. Lebedev
01764 chvd       "Spherical quadrature formulas exact to orders 25-29"
01765 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01766 chvd
01767 chvd   [5] V.I. Lebedev
01768 chvd       "Quadratures on a sphere"
01769 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01770 chvd       1976, pp. 10-24.
01771 chvd
01772 chvd   [6] V.I. Lebedev
01773 chvd       "Values of the nodes and weights of ninth to seventeenth
01774 chvd        order Gauss-Markov quadrature formulae invariant under the
01775 chvd        octahedron group with inversion"
01776 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01777 chvd       1975, pp. 44-51.
01778 chvd
01779 */
01780        N=1;
01781        v=0.3006796749453936e-2;
01782        GEN_OH( 1, N, x, y, z, w, a, b, v);
01783        v=0.3050627745650771e-2;
01784        GEN_OH( 3, N, x, y, z, w, a, b, v);
01785        a=0.7068965463912316;
01786        v=0.1621104600288991e-2;
01787        GEN_OH( 4, N, x, y, z, w, a, b, v);
01788        a=0.4794682625712025;
01789        v=0.3005701484901752e-2;
01790        GEN_OH( 4, N, x, y, z, w, a, b, v);
01791        a=0.1927533154878019 ;
01792        v=0.2990992529653774e-2;
01793        GEN_OH( 4, N, x, y, z, w, a, b, v);
01794        a=0.6930357961327123;
01795        v=0.2982170644107595e-2;
01796        GEN_OH( 4, N, x, y, z, w, a, b, v);
01797        a=0.3608302115520091;
01798        v=0.2721564237310992e-2;
01799        GEN_OH( 4, N, x, y, z, w, a, b, v);
01800        a=0.6498486161496169;
01801        v=0.3033513795811141e-2;
01802        GEN_OH( 4, N, x, y, z, w, a, b, v);
01803        a=0.1932945013230339;
01804        v=0.3007949555218533e-2;
01805        GEN_OH( 5, N, x, y, z, w, a, b, v);
01806        a=0.3800494919899303;
01807        v=0.2881964603055307e-2;
01808        GEN_OH( 5, N, x, y, z, w, a, b, v);
01809        a=0.2899558825499574;
01810        b=0.7934537856582316 ;
01811        v=0.2958357626535696e-2;
01812        GEN_OH( 6, N, x, y, z, w, a, b, v);
01813        a=0.9684121455103957e-1;
01814        b=0.8280801506686862 ;
01815        v=0.3036020026407088e-2;
01816        GEN_OH( 6, N, x, y, z, w, a, b, v);
01817        a=0.1833434647041659;
01818        b=0.9074658265305127;
01819        v=0.2832187403926303e-2;
01820        GEN_OH( 6, N, x, y, z, w, a, b, v);
01821        N=N-1;
01822        //RETURN
01823 }  //       END
01824        void LD0434(double* x,double* y,double* z,double* w){
01825 /*     double x[434];
01826        double y[434];
01827        double z[434];
01828        double w[434];   */
01829        int N;
01830        double a=0.0,b=0.0,v=0.0;
01831 /*
01832 CVW
01833 CVW    LEBEDEV  434-POINT ANGULAR GRID
01834 CVW
01835 chvd
01836 chvd   This subroutine is part of a set of subroutines that generate
01837 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01838 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01839 chvd   translated into fortran by Dr. Christoph van Wuellen.
01840 chvd   This subroutine was translated using a C to fortran77 conversion
01841 chvd   tool written by Dr. Christoph van Wuellen.
01842 chvd
01843 chvd   Users of this code are asked to include reference [1] in their
01844 chvd   publications, and in the user- and programmers-manuals
01845 chvd   describing their codes.
01846 chvd
01847 chvd   This code was distributed through CCL (http://www.ccl.net/).
01848 chvd
01849 chvd   [1] V.I. Lebedev, and D.N. Laikov
01850 chvd       "A quadrature formula for the sphere of the 131st
01851 chvd        algebraic order of accuracy"
01852 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01853 chvd
01854 chvd   [2] V.I. Lebedev
01855 chvd       "A quadrature formula for the sphere of 59th algebraic
01856 chvd        order of accuracy"
01857 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01858 chvd
01859 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01860 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01861 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01862 chvd
01863 chvd   [4] V.I. Lebedev
01864 chvd       "Spherical quadrature formulas exact to orders 25-29"
01865 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01866 chvd
01867 chvd   [5] V.I. Lebedev
01868 chvd       "Quadratures on a sphere"
01869 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01870 chvd       1976, pp. 10-24.
01871 chvd
01872 chvd   [6] V.I. Lebedev
01873 chvd       "Values of the nodes and weights of ninth to seventeenth
01874 chvd        order Gauss-Markov quadrature formulae invariant under the
01875 chvd        octahedron group with inversion"
01876 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01877 chvd       1975, pp. 44-51.
01878 chvd
01879 */
01880        N=1;
01881        v=0.5265897968224436e-3;
01882        GEN_OH( 1, N, x, y, z, w, a, b, v);
01883        v=0.2548219972002607e-2;
01884        GEN_OH( 2, N, x, y, z, w, a, b, v);
01885        v=0.2512317418927307e-2;
01886        GEN_OH( 3, N, x, y, z, w, a, b, v);
01887        a=0.6909346307509111;
01888        v=0.2530403801186355e-2;
01889        GEN_OH( 4, N, x, y, z, w, a, b, v);
01890        a=0.1774836054609158 ;
01891        v=0.2014279020918528e-2;
01892        GEN_OH( 4, N, x, y, z, w, a, b, v);
01893        a=0.4914342637784746;
01894        v=0.2501725168402936e-2;
01895        GEN_OH( 4, N, x, y, z, w, a, b, v);
01896        a=0.6456664707424256;
01897        v=0.2513267174597564e-2;
01898        GEN_OH( 4, N, x, y, z, w, a, b, v);
01899        a=0.2861289010307638;
01900        v=0.2302694782227416e-2;
01901        GEN_OH( 4, N, x, y, z, w, a, b, v);
01902        a=0.7568084367178018e-1;
01903        v=0.1462495621594614e-2;
01904        GEN_OH( 4, N, x, y, z, w, a, b, v);
01905        a=0.3927259763368002 ;
01906        v=0.2445373437312980e-2;
01907        GEN_OH( 4, N, x, y, z, w, a, b, v);
01908        a=0.8818132877794288;
01909        v=0.2417442375638981e-2;
01910        GEN_OH( 5, N, x, y, z, w, a, b, v);
01911        a=0.9776428111182649 ;
01912        v=0.1910951282179532e-2;
01913        GEN_OH( 5, N, x, y, z, w, a, b, v);
01914        a=0.2054823696403044 ;
01915        b=0.8689460322872412;
01916        v=0.2416930044324775e-2;
01917        GEN_OH( 6, N, x, y, z, w, a, b, v);
01918        a=0.5905157048925271 ;
01919        b=0.7999278543857286;
01920        v=0.2512236854563495e-2;
01921        GEN_OH( 6, N, x, y, z, w, a, b, v);
01922        a=0.5550152361076807;
01923        b=0.7717462626915901 ;
01924        v=0.2496644054553086e-2;
01925        GEN_OH( 6, N, x, y, z, w, a, b, v);
01926        a=0.9371809858553722 ;
01927        b=0.3344363145343455  ;
01928        v=0.2236607760437849e-2;
01929        GEN_OH( 6, N, x, y, z, w, a, b, v);
01930        N=N-1;
01931        //RETURN
01932 }  //       END
01933        void LD0590(double* x,double* y,double* z,double* w){
01934 /*     double x[590];
01935        double y[590];
01936        double z[590];
01937        double w[590];     */
01938        int N;
01939        double a=0.0,b=0.0,v=0.0;
01940 /*
01941 CVW
01942 CVW    LEBEDEV  590-POINT ANGULAR GRID
01943 CVW
01944 chvd
01945 chvd   This subroutine is part of a set of subroutines that generate
01946 chvd   Lebedev grids [1-6] for integration on a sphere. The original
01947 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
01948 chvd   translated into fortran by Dr. Christoph van Wuellen.
01949 chvd   This subroutine was translated using a C to fortran77 conversion
01950 chvd   tool written by Dr. Christoph van Wuellen.
01951 chvd
01952 chvd   Users of this code are asked to include reference [1] in their
01953 chvd   publications, and in the user- and programmers-manuals
01954 chvd   describing their codes.
01955 chvd
01956 chvd   This code was distributed through CCL (http://www.ccl.net/).
01957 chvd
01958 chvd   [1] V.I. Lebedev, and D.N. Laikov
01959 chvd       "A quadrature formula for the sphere of the 131st
01960 chvd        algebraic order of accuracy"
01961 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
01962 chvd
01963 chvd   [2] V.I. Lebedev
01964 chvd       "A quadrature formula for the sphere of 59th algebraic
01965 chvd        order of accuracy"
01966 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
01967 chvd
01968 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
01969 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
01970 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
01971 chvd
01972 chvd   [4] V.I. Lebedev
01973 chvd       "Spherical quadrature formulas exact to orders 25-29"
01974 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
01975 chvd
01976 chvd   [5] V.I. Lebedev
01977 chvd       "Quadratures on a sphere"
01978 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
01979 chvd       1976, pp. 10-24.
01980 chvd
01981 chvd   [6] V.I. Lebedev
01982 chvd       "Values of the nodes and weights of ninth to seventeenth
01983 chvd        order Gauss-Markov quadrature formulae invariant under the
01984 chvd        octahedron group with inversion"
01985 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
01986 chvd       1975, pp. 44-51.
01987 chvd
01988 */
01989        N=1;
01990        v=0.3095121295306187e-3;
01991        GEN_OH( 1, N, x, y, z, w, a, b, v);
01992        v=0.1852379698597489e-2;
01993        GEN_OH( 3, N, x, y, z, w, a, b, v);
01994        a=0.7040954938227469;
01995        v=0.1871790639277744e-2;
01996        GEN_OH( 4, N, x, y, z, w, a, b, v);
01997        a=0.6807744066455243 ;
01998        v=0.1858812585438317e-2;
01999        GEN_OH( 4, N, x, y, z, w, a, b, v);
02000        a=0.6372546939258752;
02001        v=0.1852028828296213e-2;
02002        GEN_OH( 4, N, x, y, z, w, a, b, v);
02003        a=0.5044419707800358;
02004        v=0.1846715956151242e-2;
02005        GEN_OH( 4, N, x, y, z, w, a, b, v);
02006        a=0.4215761784010967 ;
02007        v=0.1818471778162769e-2;
02008        GEN_OH( 4, N, x, y, z, w, a, b, v);
02009        a=0.3317920736472123 ;
02010        v=0.1749564657281154e-2;
02011        GEN_OH( 4, N, x, y, z, w, a, b, v);
02012        a=0.2384736701421887 ;
02013        v=0.1617210647254411e-2;
02014        GEN_OH( 4, N, x, y, z, w, a, b, v);
02015        a=0.1459036449157763 ;
02016        v=0.1384737234851692e-2;
02017        GEN_OH( 4, N, x, y, z, w, a, b, v);
02018        a=0.6095034115507196e-1;
02019        v=0.9764331165051050e-3;
02020        GEN_OH( 4, N, x, y, z, w, a, b, v);
02021        a=0.6116843442009876 ;
02022        v=0.1857161196774078e-2;
02023        GEN_OH( 5, N, x, y, z, w, a, b, v);
02024        a=0.3964755348199858 ;
02025        v=0.1705153996395864e-2;
02026        GEN_OH( 5, N, x, y, z, w, a, b, v);
02027        a=0.1724782009907724 ;
02028        v=0.1300321685886048e-2;
02029        GEN_OH( 5, N, x, y, z, w, a, b, v);
02030        a=0.5610263808622060;
02031        b=0.3518280927733519;
02032        v=0.1842866472905286e-2;
02033        GEN_OH( 6, N, x, y, z, w, a, b, v);
02034        a=0.4742392842551980;
02035        b=0.2634716655937950;
02036        v=0.1802658934377451e-2;
02037        GEN_OH( 6, N, x, y, z, w, a, b, v);
02038        a=0.5984126497885380;
02039        b=0.1816640840360209;
02040        v=0.1849830560443660e-2;
02041        GEN_OH( 6, N, x, y, z, w, a, b, v);
02042        a=0.3791035407695563;
02043        b=0.1720795225656878;
02044        v=0.1713904507106709e-2;
02045        GEN_OH( 6, N, x, y, z, w, a, b, v);
02046        a=0.2778673190586244 ;
02047        b=0.8213021581932511e-1;
02048        v=0.1555213603396808e-2;
02049        GEN_OH( 6, N, x, y, z, w, a, b, v);
02050        a=0.5033564271075117;
02051        b=0.8999205842074875e-1;
02052        v=0.1802239128008525e-2;
02053        GEN_OH( 6, N, x, y, z, w, a, b, v);
02054        N=N-1;
02055        //RETURN
02056 }  //       END
02057        void LD0770(double* x,double* y,double* z,double* w){
02058 /*     double x[770];
02059        double y[770];
02060        double z[770];
02061        double w[770];   */
02062        int N;
02063        double a=0.0,b=0.0,v=0.0;
02064 /*
02065 CVW
02066 CVW    LEBEDEV  770-POINT ANGULAR GRID
02067 CVW
02068 chvd
02069 chvd   This subroutine is part of a set of subroutines that generate
02070 chvd   Lebedev grids [1-6] for integration on a sphere. The original
02071 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
02072 chvd   translated into fortran by Dr. Christoph van Wuellen.
02073 chvd   This subroutine was translated using a C to fortran77 conversion
02074 chvd   tool written by Dr. Christoph van Wuellen.
02075 chvd
02076 chvd   Users of this code are asked to include reference [1] in their
02077 chvd   publications, and in the user- and programmers-manuals
02078 chvd   describing their codes.
02079 chvd
02080 chvd   This code was distributed through CCL (http://www.ccl.net/).
02081 chvd
02082 chvd   [1] V.I. Lebedev, and D.N. Laikov
02083 chvd       "A quadrature formula for the sphere of the 131st
02084 chvd        algebraic order of accuracy"
02085 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
02086 chvd
02087 chvd   [2] V.I. Lebedev
02088 chvd       "A quadrature formula for the sphere of 59th algebraic
02089 chvd        order of accuracy"
02090 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
02091 chvd
02092 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
02093 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
02094 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
02095 chvd
02096 chvd   [4] V.I. Lebedev
02097 chvd       "Spherical quadrature formulas exact to orders 25-29"
02098 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
02099 chvd
02100 chvd   [5] V.I. Lebedev
02101 chvd       "Quadratures on a sphere"
02102 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
02103 chvd       1976, pp. 10-24.
02104 chvd
02105 chvd   [6] V.I. Lebedev
02106 chvd       "Values of the nodes and weights of ninth to seventeenth
02107 chvd        order Gauss-Markov quadrature formulae invariant under the
02108 chvd        octahedron group with inversion"
02109 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
02110 chvd       1975, pp. 44-51.
02111 chvd
02112 */
02113        N=1;
02114        v=0.2192942088181184e-3;
02115        GEN_OH( 1, N, x, y, z, w, a, b, v);
02116        v=0.1436433617319080e-2;
02117        GEN_OH( 2, N, x, y, z, w, a, b, v);
02118        v=0.1421940344335877e-2;
02119        GEN_OH( 3, N, x, y, z, w, a, b, v);
02120        a=0.5087204410502360e-1;
02121        v=0.6798123511050502e-3;
02122        GEN_OH( 4, N, x, y, z, w, a, b, v);
02123        a=0.1228198790178831;
02124        v=0.9913184235294912e-3;
02125        GEN_OH( 4, N, x, y, z, w, a, b, v);
02126        a=0.2026890814408786 ;
02127        v=0.1180207833238949e-2;
02128        GEN_OH( 4, N, x, y, z, w, a, b, v);
02129        a=0.2847745156464294 ;
02130        v=0.1296599602080921e-2;
02131        GEN_OH( 4, N, x, y, z, w, a, b, v);
02132        a=0.3656719078978026 ;
02133        v=0.1365871427428316e-2;
02134        GEN_OH( 4, N, x, y, z, w, a, b, v);
02135        a=0.4428264886713469 ;
02136        v=0.1402988604775325e-2;
02137        GEN_OH( 4, N, x, y, z, w, a, b, v);
02138        a=0.5140619627249735 ;
02139        v=0.1418645563595609e-2;
02140        GEN_OH( 4, N, x, y, z, w, a, b, v);
02141        a=0.6306401219166803;
02142        v=0.1421376741851662e-2;
02143        GEN_OH( 4, N, x, y, z, w, a, b, v);
02144        a=0.6716883332022612 ;
02145        v=0.1423996475490962e-2;
02146        GEN_OH( 4, N, x, y, z, w, a, b, v);
02147        a=0.6979792685336881 ;
02148        v=0.1431554042178567e-2;
02149        GEN_OH( 4, N, x, y, z, w, a, b, v);
02150        a=0.1446865674195309;
02151        v=0.9254401499865368e-3;
02152        GEN_OH( 5, N, x, y, z, w, a, b, v);
02153        a=0.3390263475411216 ;
02154        v=0.1250239995053509e-2;
02155        GEN_OH( 5, N, x, y, z, w, a, b, v);
02156        a=0.5335804651263506;
02157        v=0.1394365843329230e-2;
02158        GEN_OH( 5, N, x, y, z, w, a, b, v);
02159        a=0.6944024393349413e-1;
02160        b=0.2355187894242326;
02161        v=0.1127089094671749e-2;
02162        GEN_OH( 6, N, x, y, z, w, a, b, v);
02163        a=0.2269004109529460 ;
02164        b=0.4102182474045730 ;
02165        v=0.1345753760910670e-2;
02166        GEN_OH( 6, N, x, y, z, w, a, b, v);
02167        a=0.8025574607775339e-1;
02168        b=0.6214302417481605 ;
02169        v=0.1424957283316783e-2;
02170        GEN_OH( 6, N, x, y, z, w, a, b, v);
02171        a=0.1467999527896572;
02172        b=0.3245284345717394;
02173        v=0.1261523341237750e-2;
02174        GEN_OH( 6, N, x, y, z, w, a, b, v);
02175        a=0.1571507769824727;
02176        b=0.5224482189696630 ;
02177        v=0.1392547106052696e-2;
02178        GEN_OH( 6, N, x, y, z, w, a, b, v);
02179        a=0.2365702993157246 ;
02180        b=0.6017546634089558;
02181        v=0.1418761677877656e-2;
02182        GEN_OH( 6, N, x, y, z, w, a, b, v);
02183        a=0.7714815866765732e-1;
02184        b=0.4346575516141163 ;
02185        v=0.1338366684479554e-2;
02186        GEN_OH( 6, N, x, y, z, w, a, b, v);
02187        a=0.3062936666210730 ;
02188        b=0.4908826589037616;
02189        v=0.1393700862676131e-2;
02190        GEN_OH( 6, N, x, y, z, w, a, b, v);
02191        a=0.3822477379524787 ;
02192        b=0.5648768149099500;
02193        v=0.1415914757466932e-2;
02194        GEN_OH( 6, N, x, y, z, w, a, b, v);
02195        N=N-1;
02196        //RETURN
02197 }  //       END
02198        void LD0974(double* x,double* y,double* z,double* w){
02199 /*     double x[974];
02200        double y[974];
02201        double z[974];
02202        double w[974];    */
02203        int N;
02204        double a=0.0,b=0.0,v=0.0;
02205 /*
02206 CVW
02207 CVW    LEBEDEV  974-POINT ANGULAR GRID
02208 CVW
02209 chvd
02210 chvd   This subroutine is part of a set of subroutines that generate
02211 chvd   Lebedev grids [1-6] for integration on a sphere. The original
02212 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
02213 chvd   translated into fortran by Dr. Christoph van Wuellen.
02214 chvd   This subroutine was translated using a C to fortran77 conversion
02215 chvd   tool written by Dr. Christoph van Wuellen.
02216 chvd
02217 chvd   Users of this code are asked to include reference [1] in their
02218 chvd   publications, and in the user- and programmers-manuals
02219 chvd   describing their codes.
02220 chvd
02221 chvd   This code was distributed through CCL (http://www.ccl.net/).
02222 chvd
02223 chvd   [1] V.I. Lebedev, and D.N. Laikov
02224 chvd       "A quadrature formula for the sphere of the 131st
02225 chvd        algebraic order of accuracy"
02226 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
02227 chvd
02228 chvd   [2] V.I. Lebedev
02229 chvd       "A quadrature formula for the sphere of 59th algebraic
02230 chvd        order of accuracy"
02231 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
02232 chvd
02233 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
02234 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
02235 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
02236 chvd
02237 chvd   [4] V.I. Lebedev
02238 chvd       "Spherical quadrature formulas exact to orders 25-29"
02239 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
02240 chvd
02241 chvd   [5] V.I. Lebedev
02242 chvd       "Quadratures on a sphere"
02243 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
02244 chvd       1976, pp. 10-24.
02245 chvd
02246 chvd   [6] V.I. Lebedev
02247 chvd       "Values of the nodes and weights of ninth to seventeenth
02248 chvd        order Gauss-Markov quadrature formulae invariant under the
02249 chvd        octahedron group with inversion"
02250 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
02251 chvd       1975, pp. 44-51.
02252 chvd
02253 */
02254        N=1;
02255        v=0.1438294190527431e-3;
02256        GEN_OH( 1, N, x, y, z, w, a, b, v);
02257        v=0.1125772288287004e-2;
02258        GEN_OH( 3, N, x, y, z, w, a, b, v);
02259        a=0.4292963545341347e-1;
02260        v=0.4948029341949241e-3;
02261        GEN_OH( 4, N, x, y, z, w, a, b, v);
02262        a=0.1051426854086404 ;
02263        v=0.7357990109125470e-3;
02264        GEN_OH( 4, N, x, y, z, w, a, b, v);
02265        a=0.1750024867623087 ;
02266        v=0.8889132771304384e-3;
02267        GEN_OH( 4, N, x, y, z, w, a, b, v);
02268        a=0.2477653379650257 ;
02269        v=0.9888347838921435e-3;
02270        GEN_OH( 4, N, x, y, z, w, a, b, v);
02271        a=0.3206567123955957 ;
02272        v=0.1053299681709471e-2;
02273        GEN_OH( 4, N, x, y, z, w, a, b, v);
02274        a=0.3916520749849983 ;
02275        v=0.1092778807014578e-2;
02276        GEN_OH( 4, N, x, y, z, w, a, b, v);
02277        a=0.4590825874187624;
02278        v=0.1114389394063227e-2;
02279        GEN_OH( 4, N, x, y, z, w, a, b, v);
02280        a=0.5214563888415861;
02281        v=0.1123724788051555e-2;
02282        GEN_OH( 4, N, x, y, z, w, a, b, v);
02283        a=0.6253170244654199;
02284        v=0.1125239325243814e-2;
02285        GEN_OH( 4, N, x, y, z, w, a, b, v);
02286        a=0.6637926744523170 ;
02287        v=0.1126153271815905e-2;
02288        GEN_OH( 4, N, x, y, z, w, a, b, v);
02289        a=0.6910410398498301 ;
02290        v=0.1130286931123841e-2;
02291        GEN_OH( 4, N, x, y, z, w, a, b, v);
02292        a=0.7052907007457760;
02293        v=0.1134986534363955e-2;
02294        GEN_OH( 4, N, x, y, z, w, a, b, v);
02295        a=0.1236686762657990 ;
02296        v=0.6823367927109931e-3;
02297        GEN_OH( 5, N, x, y, z, w, a, b, v);
02298        a=0.2940777114468387;
02299        v=0.9454158160447096e-3;
02300        GEN_OH( 5, N, x, y, z, w, a, b, v);
02301        a=0.4697753849207649;
02302        v=0.1074429975385679e-2;
02303        GEN_OH( 5, N, x, y, z, w, a, b, v);
02304        a=0.6334563241139567 ;
02305        v=0.1129300086569132e-2;
02306        GEN_OH( 5, N, x, y, z, w, a, b, v);
02307        a=0.5974048614181342e-1;
02308        b=0.2029128752777523 ;
02309        v=0.8436884500901954e-3;
02310        GEN_OH( 6, N, x, y, z, w, a, b, v);
02311        a=0.1375760408473636;
02312        b=0.4602621942484054;
02313        v=0.1075255720448885e-2;
02314        GEN_OH( 6, N, x, y, z, w, a, b, v);
02315        a=0.3391016526336286 ;
02316        b=0.5030673999662036 ;
02317        v=0.1108577236864462e-2;
02318        GEN_OH( 6, N, x, y, z, w, a, b, v);
02319        a=0.1271675191439820;
02320        b=0.2817606422442134;
02321        v=0.9566475323783357e-3;
02322        GEN_OH( 6, N, x, y, z, w, a, b, v);
02323        a=0.2693120740413512;
02324        b=0.4331561291720157 ;
02325        v=0.1080663250717391e-2;
02326        GEN_OH( 6, N, x, y, z, w, a, b, v);
02327        a=0.1419786452601918;
02328        b=0.6256167358580814 ;
02329        v=0.1126797131196295e-2;
02330        GEN_OH( 6, N, x, y, z, w, a, b, v);
02331        a=0.6709284600738255e-1;
02332        b=0.3798395216859157 ;
02333        v=0.1022568715358061e-2;
02334        GEN_OH( 6, N, x, y, z, w, a, b, v);
02335        a=0.7057738183256172e-1;
02336        b=0.5517505421423520 ;
02337        v=0.1108960267713108e-2;
02338        GEN_OH( 6, N, x, y, z, w, a, b, v);
02339        a=0.2783888477882155 ;
02340        b=0.6029619156159187 ;
02341        v=0.1122790653435766e-2;
02342        GEN_OH( 6, N, x, y, z, w, a, b, v);
02343        a=0.1979578938917407 ;
02344        b=0.3589606329589096;
02345        v=0.1032401847117460e-2;
02346        GEN_OH( 6, N, x, y, z, w, a, b, v);
02347        a=0.2087307061103274 ;
02348        b=0.5348666438135476;
02349        v=0.1107249382283854e-2;
02350        GEN_OH( 6, N, x, y, z, w, a, b, v);
02351        a=0.4055122137872836;
02352        b=0.5674997546074373 ;
02353        v=0.1121780048519972e-2;
02354        GEN_OH( 6, N, x, y, z, w, a, b, v);
02355        N=N-1;
02356 //     RETURN
02357 }
02358 
02359        void LD1202(double* x,double* y,double* z,double* w){
02360 /*     double x[1202];
02361        double y[1202];
02362        double z[1202];
02363        double w[1202];   */
02364        int N;
02365        double a=0.0,b=0.0,v=0.0;
02366 /*
02367 CVW
02368 CVW    LEBEDEV 1202-POINT ANGULAR GRID
02369 CVW
02370 chvd
02371 chvd   This subroutine is part of a set of subroutines that generate
02372 chvd   Lebedev grids [1-6] for integration on a sphere. The original
02373 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
02374 chvd   translated into fortran by Dr. Christoph van Wuellen.
02375 chvd   This subroutine was translated using a C to fortran77 conversion
02376 chvd   tool written by Dr. Christoph van Wuellen.
02377 chvd
02378 chvd   Users of this code are asked to include reference [1] in their
02379 chvd   publications, and in the user- and programmers-manuals
02380 chvd   describing their codes.
02381 chvd
02382 chvd   This code was distributed through CCL (http://www.ccl.net/).
02383 chvd
02384 chvd   [1] V.I. Lebedev, and D.N. Laikov
02385 chvd       "A quadrature formula for the sphere of the 131st
02386 chvd        algebraic order of accuracy"
02387 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
02388 chvd
02389 chvd   [2] V.I. Lebedev
02390 chvd       "A quadrature formula for the sphere of 59th algebraic
02391 chvd        order of accuracy"
02392 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
02393 chvd
02394 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
02395 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
02396 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
02397 chvd
02398 chvd   [4] V.I. Lebedev
02399 chvd       "Spherical quadrature formulas exact to orders 25-29"
02400 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
02401 chvd
02402 chvd   [5] V.I. Lebedev
02403 chvd       "Quadratures on a sphere"
02404 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
02405 chvd       1976, pp. 10-24.
02406 chvd
02407 chvd   [6] V.I. Lebedev
02408 chvd       "Values of the nodes and weights of ninth to seventeenth
02409 chvd        order Gauss-Markov quadrature formulae invariant under the
02410 chvd        octahedron group with inversion"
02411 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
02412 chvd       1975, pp. 44-51.
02413 chvd
02414 */
02415        N=1;
02416        v=0.1105189233267572e-3;
02417        GEN_OH( 1, N, x, y, z, w, a, b, v);
02418        v=0.9205232738090741e-3;
02419        GEN_OH( 2, N, x, y, z, w, a, b, v);
02420        v=0.9133159786443561e-3;
02421        GEN_OH( 3, N, x, y, z, w, a, b, v);
02422        a=0.3712636449657089e-1;
02423        v=0.3690421898017899e-3;
02424        GEN_OH( 4, N, x, y, z, w, a, b, v);
02425        a=0.9140060412262223e-1;
02426        v=0.5603990928680660e-3;
02427        GEN_OH( 4, N, x, y, z, w, a, b, v);
02428        a=0.1531077852469906 ;
02429        v=0.6865297629282609e-3;
02430        GEN_OH( 4, N, x, y, z, w, a, b, v);
02431        a=0.2180928891660612 ;
02432        v=0.7720338551145630e-3;
02433        GEN_OH( 4, N, x, y, z, w, a, b, v);
02434        a=0.2839874532200175;
02435        v=0.8301545958894795e-3;
02436        GEN_OH( 4, N, x, y, z, w, a, b, v);
02437        a=0.3491177600963764;
02438        v=0.8686692550179628e-3;
02439        GEN_OH( 4, N, x, y, z, w, a, b, v);
02440        a=0.4121431461444309 ;
02441        v=0.8927076285846890e-3;
02442        GEN_OH( 4, N, x, y, z, w, a, b, v);
02443        a=0.4718993627149127 ;
02444        v=0.9060820238568219e-3;
02445        GEN_OH( 4, N, x, y, z, w, a, b, v);
02446        a=0.5273145452842337 ;
02447        v=0.9119777254940867e-3;
02448        GEN_OH( 4, N, x, y, z, w, a, b, v);
02449        a=0.6209475332444019 ;
02450        v=0.9128720138604181e-3;
02451        GEN_OH( 4, N, x, y, z, w, a, b, v);
02452        a=0.6569722711857291 ;
02453        v=0.9130714935691735e-3;
02454        GEN_OH( 4, N, x, y, z, w, a, b, v);
02455        a=0.6841788309070143;
02456        v=0.9152873784554116e-3;
02457        GEN_OH( 4, N, x, y, z, w, a, b, v);
02458        a=0.7012604330123631;
02459        v=0.9187436274321654e-3;
02460        GEN_OH( 4, N, x, y, z, w, a, b, v);
02461        a=0.1072382215478166 ;
02462        v=0.5176977312965694e-3;
02463        GEN_OH( 5, N, x, y, z, w, a, b, v);
02464        a=0.2582068959496968;
02465        v=0.7331143682101417e-3;
02466        GEN_OH( 5, N, x, y, z, w, a, b, v);
02467        a=0.4172752955306717;
02468        v=0.8463232836379928e-3;
02469        GEN_OH( 5, N, x, y, z, w, a, b, v);
02470        a=0.5700366911792503;
02471        v=0.9031122694253992e-3;
02472        GEN_OH( 5, N, x, y, z, w, a, b, v);
02473        a=0.9827986018263947;
02474        b=0.1771774022615325 ;
02475        v=0.6485778453163257e-3;
02476        GEN_OH( 6, N, x, y, z, w, a, b, v);
02477        a=0.9624249230326228 ;
02478        b=0.2475716463426288 ;
02479        v=0.7435030910982369e-3;
02480        GEN_OH( 6, N, x, y, z, w, a, b, v);
02481        a=0.9402007994128811;
02482        b=0.3354616289066489 ;
02483        v=0.7998527891839054e-3;
02484        GEN_OH( 6, N, x, y, z, w, a, b, v);
02485        a=0.9320822040143202 ;
02486        b=0.3173615246611977;
02487        v=0.8101731497468018e-3;
02488        GEN_OH( 6, N, x, y, z, w, a, b, v);
02489        a=0.9043674199393299 ;
02490        b=0.4090268427085357 ;
02491        v=0.8483389574594331e-3;
02492        GEN_OH( 6, N, x, y, z, w, a, b, v);
02493        a=0.8912407560074747 ;
02494        b=0.3854291150669224 ;
02495        v=0.8556299257311812e-3;
02496        GEN_OH( 6, N, x, y, z, w, a, b, v);
02497        a=0.8676435628462708;
02498        b=0.4932221184851285;
02499        v=0.8803208679738260e-3;
02500        GEN_OH( 6, N, x, y, z, w, a, b, v);
02501        a=0.8581979986041619;
02502        b=0.4785320675922435 ;
02503        v=0.8811048182425720e-3;
02504        GEN_OH( 6, N, x, y, z, w, a, b, v);
02505        a=0.8396753624049856 ;
02506        b=0.4507422593157064;
02507        v=0.8850282341265444e-3;
02508        GEN_OH( 6, N, x, y, z, w, a, b, v);
02509        a=0.8165288564022188;
02510        b=0.5632123020762100 ;
02511        v=0.9021342299040653e-3;
02512        GEN_OH( 6, N, x, y, z, w, a, b, v);
02513        a=0.8015469370783529 ;
02514        b=0.5434303569693900;
02515        v=0.9010091677105086e-3;
02516        GEN_OH( 6, N, x, y, z, w, a, b, v);
02517        a=0.7773563069070351;
02518        b=0.5123518486419871;
02519        v=0.9022692938426915e-3;
02520        GEN_OH( 6, N, x, y, z, w, a, b, v);
02521        a=0.7661621213900394;
02522        b=0.6394279634749102;
02523        v=0.9158016174693465e-3;
02524        GEN_OH( 6, N, x, y, z, w, a, b, v);
02525        a=0.7553584143533510;
02526        b=0.6269805509024392;
02527        v=0.9131578003189435e-3;
02528        GEN_OH( 6, N, x, y, z, w, a, b, v);
02529        a=0.7344305757559503;
02530        b=0.6031161693096310;
02531        v=0.9107813579482705e-3;
02532        GEN_OH( 6, N, x, y, z, w, a, b, v);
02533        a=0.7043837184021765;
02534        b=0.5693702498468441;
02535        v=0.9105760258970126e-3;
02536        GEN_OH( 6, N, x, y, z, w, a, b, v);
02537        N=N-1;
02538        //RETURN
02539 }  //       END
02540        void LD1454(double* x,double* y,double* z,double* w){
02541 /*     double x[1454];
02542        double y[1454];
02543        double z[1454];
02544        double w[1454];  */
02545        int N;
02546        double a=0.0,b=0.0,v=0.0;
02547 /*
02548 CVW
02549 CVW    LEBEDEV 1454-POINT ANGULAR GRID
02550 CVW
02551 chvd
02552 chvd   This subroutine is part of a set of subroutines that generate
02553 chvd   Lebedev grids [1-6] for integration on a sphere. The original
02554 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
02555 chvd   translated into fortran by Dr. Christoph van Wuellen.
02556 chvd   This subroutine was translated using a C to fortran77 conversion
02557 chvd   tool written by Dr. Christoph van Wuellen.
02558 chvd
02559 chvd   Users of this code are asked to include reference [1] in their
02560 chvd   publications, and in the user- and programmers-manuals
02561 chvd   describing their codes.
02562 chvd
02563 chvd   This code was distributed through CCL (http://www.ccl.net/).
02564 chvd
02565 chvd   [1] V.I. Lebedev, and D.N. Laikov
02566 chvd       "A quadrature formula for the sphere of the 131st
02567 chvd        algebraic order of accuracy"
02568 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
02569 chvd
02570 chvd   [2] V.I. Lebedev
02571 chvd       "A quadrature formula for the sphere of 59th algebraic
02572 chvd        order of accuracy"
02573 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
02574 chvd
02575 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
02576 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
02577 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
02578 chvd
02579 chvd   [4] V.I. Lebedev
02580 chvd       "Spherical quadrature formulas exact to orders 25-29"
02581 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
02582 chvd
02583 chvd   [5] V.I. Lebedev
02584 chvd       "Quadratures on a sphere"
02585 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
02586 chvd       1976, pp. 10-24.
02587 chvd
02588 chvd   [6] V.I. Lebedev
02589 chvd       "Values of the nodes and weights of ninth to seventeenth
02590 chvd        order Gauss-Markov quadrature formulae invariant under the
02591 chvd        octahedron group with inversion"
02592 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
02593 chvd       1975, pp. 44-51.
02594 chvd
02595 */
02596        N=1;
02597        v=0.7777160743261247e-4;
02598        GEN_OH( 1, N, x, y, z, w, a, b, v);
02599        v=0.7557646413004701e-3;
02600        GEN_OH( 3, N, x, y, z, w, a, b, v);
02601        a=0.3229290663413854e-1;
02602        v=0.2841633806090617e-3;
02603        GEN_OH( 4, N, x, y, z, w, a, b, v);
02604        a=0.8036733271462222e-1;
02605        v=0.4374419127053555e-3;
02606        GEN_OH( 4, N, x, y, z, w, a, b, v);
02607        a=0.1354289960531653;
02608        v=0.5417174740872172e-3;
02609        GEN_OH( 4, N, x, y, z, w, a, b, v);
02610        a=0.1938963861114426;
02611        v=0.6148000891358593e-3;
02612        GEN_OH( 4, N, x, y, z, w, a, b, v);
02613        a=0.2537343715011275 ;
02614        v=0.6664394485800705e-3;
02615        GEN_OH( 4, N, x, y, z, w, a, b, v);
02616        a=0.3135251434752570 ;
02617        v=0.7025039356923220e-3;
02618        GEN_OH( 4, N, x, y, z, w, a, b, v);
02619        a=0.3721558339375338 ;
02620        v=0.7268511789249627e-3;
02621        GEN_OH( 4, N, x, y, z, w, a, b, v);
02622        a=0.4286809575195696;
02623        v=0.7422637534208629e-3;
02624        GEN_OH( 4, N, x, y, z, w, a, b, v);
02625        a=0.4822510128282994;
02626        v=0.7509545035841214e-3;
02627        GEN_OH( 4, N, x, y, z, w, a, b, v);
02628        a=0.5320679333566263;
02629        v=0.7548535057718401e-3;
02630        GEN_OH( 4, N, x, y, z, w, a, b, v);
02631        a=0.6172998195394274;
02632        v=0.7554088969774001e-3;
02633        GEN_OH( 4, N, x, y, z, w, a, b, v);
02634        a=0.6510679849127481;
02635        v=0.7553147174442808e-3;
02636        GEN_OH( 4, N, x, y, z, w, a, b, v);
02637        a=0.6777315251687360;
02638        v=0.7564767653292297e-3;
02639        GEN_OH( 4, N, x, y, z, w, a, b, v);
02640        a=0.6963109410648741;
02641        v=0.7587991808518730e-3;
02642        GEN_OH( 4, N, x, y, z, w, a, b, v);
02643        a=0.7058935009831749;
02644        v=0.7608261832033027e-3;
02645        GEN_OH( 4, N, x, y, z, w, a, b, v);
02646        a=0.9955546194091857;
02647        v=0.4021680447874916e-3;
02648        GEN_OH( 5, N, x, y, z, w, a, b, v);
02649        a=0.9734115901794209;
02650        v=0.5804871793945964e-3;
02651        GEN_OH( 5, N, x, y, z, w, a, b, v);
02652        a=0.9275693732388626;
02653        v=0.6792151955945159e-3;
02654        GEN_OH( 5, N, x, y, z, w, a, b, v);
02655        a=0.8568022422795103;
02656        v=0.7336741211286294e-3;
02657        GEN_OH( 5, N, x, y, z, w, a, b, v);
02658        a=0.7623495553719372 ;
02659        v=0.7581866300989608e-3;
02660        GEN_OH( 5, N, x, y, z, w, a, b, v);
02661        a=0.5707522908892223;
02662        b=0.4387028039889501 ;
02663        v=0.7538257859800743e-3;
02664        GEN_OH( 6, N, x, y, z, w, a, b, v);
02665        a=0.5196463388403083;
02666        b=0.3858908414762617;
02667        v=0.7483517247053123e-3;
02668        GEN_OH( 6, N, x, y, z, w, a, b, v);
02669        a=0.4646337531215351;
02670        b=0.3301937372343854;
02671        v=0.7371763661112059e-3;
02672        GEN_OH( 6, N, x, y, z, w, a, b, v);
02673        a=0.4063901697557691;
02674        b=0.2725423573563777;
02675        v=0.7183448895756934e-3;
02676        GEN_OH( 6, N, x, y, z, w, a, b, v);
02677        a=0.3456329466643087;
02678        b=0.2139510237495250;
02679        v=0.6895815529822191e-3;
02680        GEN_OH( 6, N, x, y, z, w, a, b, v);
02681        a=0.2831395121050332;
02682        b=0.1555922309786647;
02683        v=0.6480105801792886e-3;
02684        GEN_OH( 6, N, x, y, z, w, a, b, v);
02685        a=0.2197682022925330;
02686        b=0.9892878979686097e-1;
02687        v=0.5897558896594636e-3;
02688        GEN_OH( 6, N, x, y, z, w, a, b, v);
02689        a=0.1564696098650355;
02690        b=0.4598642910675510e-1;
02691        v=0.5095708849247346e-3;
02692        GEN_OH( 6, N, x, y, z, w, a, b, v);
02693        a=0.6027356673721295;
02694        b=0.3376625140173426;
02695        v=0.7536906428909755e-3;
02696        GEN_OH( 6, N, x, y, z, w, a, b, v);
02697        a=0.5496032320255096;
02698        b=0.2822301309727988;
02699        v=0.7472505965575118e-3;
02700        GEN_OH( 6, N, x, y, z, w, a, b, v);
02701        a=0.4921707755234567;
02702        b=0.2248632342592540;
02703        v=0.7343017132279698e-3;
02704        GEN_OH( 6, N, x, y, z, w, a, b, v);
02705        a=0.4309422998598483;
02706        b=0.1666224723456479;
02707        v=0.7130871582177445e-3;
02708        GEN_OH( 6, N, x, y, z, w, a, b, v);
02709        a=0.3664108182313672;
02710        b=0.1086964901822169;
02711        v=0.6817022032112776e-3;
02712        GEN_OH( 6, N, x, y, z, w, a, b, v);
02713        a=0.2990189057758436 ;
02714        b=0.5251989784120085e-1;
02715        v=0.6380941145604121e-3;
02716        GEN_OH( 6, N, x, y, z, w, a, b, v);
02717        a=0.6268724013144998;
02718        b=0.2297523657550023;
02719        v=0.7550381377920310e-3;
02720        GEN_OH( 6, N, x, y, z, w, a, b, v);
02721        a=0.5707324144834607;
02722        b=0.1723080607093800;
02723        v=0.7478646640144802e-3;
02724        GEN_OH( 6, N, x, y, z, w, a, b, v);
02725        a=0.5096360901960365;
02726        b=0.1140238465390513;
02727        v=0.7335918720601220e-3;
02728        GEN_OH( 6, N, x, y, z, w, a, b, v);
02729        a=0.4438729938312456 ;
02730        b=0.5611522095882537e-1;
02731        v=0.7110120527658118e-3;
02732        GEN_OH( 6, N, x, y, z, w, a, b, v);
02733        a=0.6419978471082389;
02734        b=0.1164174423140873;
02735        v=0.7571363978689501e-3;
02736        GEN_OH( 6, N, x, y, z, w, a, b, v);
02737        a=0.5817218061802611;
02738        b=0.5797589531445219e-1;
02739        v=0.7489908329079234e-3;
02740        GEN_OH( 6, N, x, y, z, w, a, b, v);
02741        N=N-1;
02742        //RETURN
02743 }  //       END
02744        void LD1730(double* x,double* y,double* z,double* w){
02745 /*     double x[1730];
02746        double y[1730];
02747        double z[1730];
02748        double w[1730];      */
02749        int N;
02750        double a=0.0,b=0.0,v=0.0;
02751 /*
02752 CVW
02753 CVW    LEBEDEV 1730-POINT ANGULAR GRID
02754 CVW
02755 chvd
02756 chvd   This subroutine is part of a set of subroutines that generate
02757 chvd   Lebedev grids [1-6] for integration on a sphere. The original
02758 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
02759 chvd   translated into fortran by Dr. Christoph van Wuellen.
02760 chvd   This subroutine was translated using a C to fortran77 conversion
02761 chvd   tool written by Dr. Christoph van Wuellen.
02762 chvd
02763 chvd   Users of this code are asked to include reference [1] in their
02764 chvd   publications, and in the user- and programmers-manuals
02765 chvd   describing their codes.
02766 chvd
02767 chvd   This code was distributed through CCL (http://www.ccl.net/).
02768 chvd
02769 chvd   [1] V.I. Lebedev, and D.N. Laikov
02770 chvd       "A quadrature formula for the sphere of the 131st
02771 chvd        algebraic order of accuracy"
02772 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
02773 chvd
02774 chvd   [2] V.I. Lebedev
02775 chvd       "A quadrature formula for the sphere of 59th algebraic
02776 chvd        order of accuracy"
02777 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
02778 chvd
02779 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
02780 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
02781 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
02782 chvd
02783 chvd   [4] V.I. Lebedev
02784 chvd       "Spherical quadrature formulas exact to orders 25-29"
02785 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
02786 chvd
02787 chvd   [5] V.I. Lebedev
02788 chvd       "Quadratures on a sphere"
02789 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
02790 chvd       1976, pp. 10-24.
02791 chvd
02792 chvd   [6] V.I. Lebedev
02793 chvd       "Values of the nodes and weights of ninth to seventeenth
02794 chvd        order Gauss-Markov quadrature formulae invariant under the
02795 chvd        octahedron group with inversion"
02796 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
02797 chvd       1975, pp. 44-51.
02798 chvd
02799 */
02800        N=1;
02801        v=0.6309049437420976e-4;
02802        GEN_OH( 1, N, x, y, z, w, a, b, v);
02803        v=0.6398287705571748e-3;
02804        GEN_OH( 2, N, x, y, z, w, a, b, v);
02805        v=0.6357185073530720e-3;
02806        GEN_OH( 3, N, x, y, z, w, a, b, v);
02807        a=0.2860923126194662e-1;
02808        v=0.2221207162188168e-3;
02809        GEN_OH( 4, N, x, y, z, w, a, b, v);
02810        a=0.7142556767711522e-1;
02811        v=0.3475784022286848e-3;
02812        GEN_OH( 4, N, x, y, z, w, a, b, v);
02813        a=0.1209199540995559;
02814        v=0.4350742443589804e-3;
02815        GEN_OH( 4, N, x, y, z, w, a, b, v);
02816        a=0.1738673106594379 ;
02817        v=0.4978569136522127e-3;
02818        GEN_OH( 4, N, x, y, z, w, a, b, v);
02819        a=0.2284645438467734;
02820        v=0.5435036221998053e-3;
02821        GEN_OH( 4, N, x, y, z, w, a, b, v);
02822        a=0.2834807671701512;
02823        v=0.5765913388219542e-3;
02824        GEN_OH( 4, N, x, y, z, w, a, b, v);
02825        a=0.3379680145467339;
02826        v=0.6001200359226003e-3;
02827        GEN_OH( 4, N, x, y, z, w, a, b, v);
02828        a=0.3911355454819537;
02829        v=0.6162178172717512e-3;
02830        GEN_OH( 4, N, x, y, z, w, a, b, v);
02831        a=0.4422860353001403;
02832        v=0.6265218152438485e-3;
02833        GEN_OH( 4, N, x, y, z, w, a, b, v);
02834        a=0.4907781568726057;
02835        v=0.6323987160974212e-3;
02836        GEN_OH( 4, N, x, y, z, w, a, b, v);
02837        a=0.5360006153211468;
02838        v=0.6350767851540569e-3;
02839        GEN_OH( 4, N, x, y, z, w, a, b, v);
02840        a=0.6142105973596603;
02841        v=0.6354362775297107e-3;
02842        GEN_OH( 4, N, x, y, z, w, a, b, v);
02843        a=0.6459300387977504;
02844        v=0.6352302462706235e-3;
02845        GEN_OH( 4, N, x, y, z, w, a, b, v);
02846        a=0.6718056125089225;
02847        v=0.6358117881417972e-3;
02848        GEN_OH( 4, N, x, y, z, w, a, b, v);
02849        a=0.6910888533186254;
02850        v=0.6373101590310117e-3;
02851        GEN_OH( 4, N, x, y, z, w, a, b, v);
02852        a=0.7030467416823252;
02853        v=0.6390428961368665e-3;
02854        GEN_OH( 4, N, x, y, z, w, a, b, v);
02855        a=0.8354951166354646e-1;
02856        v=0.3186913449946576e-3;
02857        GEN_OH( 5, N, x, y, z, w, a, b, v);
02858        a=0.2050143009099486;
02859        v=0.4678028558591711e-3;
02860        GEN_OH( 5, N, x, y, z, w, a, b, v);
02861        a=0.3370208290706637;
02862        v=0.5538829697598626e-3;
02863        GEN_OH( 5, N, x, y, z, w, a, b, v);
02864        a=0.4689051484233963;
02865        v=0.6044475907190476e-3;
02866        GEN_OH( 5, N, x, y, z, w, a, b, v);
02867        a=0.5939400424557334;
02868        v=0.6313575103509012e-3;
02869        GEN_OH( 5, N, x, y, z, w, a, b, v);
02870        a=0.1394983311832261;
02871        b=0.4097581162050343e-1;
02872        v=0.4078626431855630e-3;
02873        GEN_OH( 6, N, x, y, z, w, a, b, v);
02874        a=0.1967999180485014;
02875        b=0.8851987391293348e-1;
02876        v=0.4759933057812725e-3;
02877        GEN_OH( 6, N, x, y, z, w, a, b, v);
02878        a=0.2546183732548967;
02879        b=0.1397680182969819;
02880        v=0.5268151186413440e-3;
02881        GEN_OH( 6, N, x, y, z, w, a, b, v);
02882        a=0.3121281074713875;
02883        b=0.1929452542226526;
02884        v=0.5643048560507316e-3;
02885        GEN_OH( 6, N, x, y, z, w, a, b, v);
02886        a=0.3685981078502492;
02887        b=0.2467898337061562;
02888        v=0.5914501076613073e-3;
02889        GEN_OH( 6, N, x, y, z, w, a, b, v);
02890        a=0.4233760321547856;
02891        b=0.3003104124785409;
02892        v=0.6104561257874195e-3;
02893        GEN_OH( 6, N, x, y, z, w, a, b, v);
02894        a=0.4758671236059246;
02895        b=0.3526684328175033;
02896        v=0.6230252860707806e-3;
02897        GEN_OH( 6, N, x, y, z, w, a, b, v);
02898        a=0.5255178579796463;
02899        b=0.4031134861145713;
02900        v=0.6305618761760796e-3;
02901        GEN_OH( 6, N, x, y, z, w, a, b, v);
02902        a=0.5718025633734589;
02903        b=0.4509426448342351;
02904        v=0.6343092767597889e-3;
02905        GEN_OH( 6, N, x, y, z, w, a, b, v);
02906        a=0.2686927772723415;
02907        b=0.4711322502423248e-1;
02908        v=0.5176268945737826e-3;
02909        GEN_OH( 6, N, x, y, z, w, a, b, v);
02910        a=0.3306006819904809;
02911        b=0.9784487303942695e-1;
02912        v=0.5564840313313692e-3;
02913        GEN_OH( 6, N, x, y, z, w, a, b, v);
02914        a=0.3904906850594983;
02915        b=0.1505395810025273;
02916        v=0.5856426671038980e-3;
02917        GEN_OH( 6, N, x, y, z, w, a, b, v);
02918        a=0.4479957951904390;
02919        b=0.2039728156296050;
02920        v=0.6066386925777091e-3;
02921        GEN_OH( 6, N, x, y, z, w, a, b, v);
02922        a=0.5027076848919780;
02923        b=0.2571529941121107;
02924        v=0.6208824962234458e-3;
02925        GEN_OH( 6, N, x, y, z, w, a, b, v);
02926        a=0.5542087392260217;
02927        b=0.3092191375815670;
02928        v=0.6296314297822907e-3;
02929        GEN_OH( 6, N, x, y, z, w, a, b, v);
02930        a=0.6020850887375187;
02931        b=0.3593807506130276;
02932        v=0.6340423756791859e-3;
02933        GEN_OH( 6, N, x, y, z, w, a, b, v);
02934        a=0.4019851409179594;
02935        b=0.5063389934378671e-1;
02936        v=0.5829627677107342e-3;
02937        GEN_OH( 6, N, x, y, z, w, a, b, v);
02938        a=0.4635614567449800;
02939        b=0.1032422269160612;
02940        v=0.6048693376081110e-3;
02941        GEN_OH( 6, N, x, y, z, w, a, b, v);
02942        a=0.5215860931591575;
02943        b=0.1566322094006254;
02944        v=0.6202362317732461e-3;
02945        GEN_OH( 6, N, x, y, z, w, a, b, v);
02946        a=0.5758202499099271;
02947        b=0.2098082827491099;
02948        v=0.6299005328403779e-3;
02949        GEN_OH( 6, N, x, y, z, w, a, b, v);
02950        a=0.6259893683876795;
02951        b=0.2618824114553391;
02952        v=0.6347722390609353e-3;
02953        GEN_OH( 6, N, x, y, z, w, a, b, v);
02954        a=0.5313795124811891;
02955        b=0.5263245019338556e-1;
02956        v=0.6203778981238834e-3;
02957        GEN_OH( 6, N, x, y, z, w, a, b, v);
02958        a=0.5893317955931995;
02959        b=0.1061059730982005;
02960        v=0.6308414671239979e-3;
02961        GEN_OH( 6, N, x, y, z, w, a, b, v);
02962        a=0.6426246321215801;
02963        b=0.1594171564034221;
02964        v=0.6362706466959498e-3;
02965        GEN_OH( 6, N, x, y, z, w, a, b, v);
02966        a=0.6511904367376113;
02967        b=0.5354789536565540e-1;
02968        v=0.6375414170333233e-3;
02969        GEN_OH( 6, N, x, y, z, w, a, b, v);
02970        N=N-1;
02971        //RETURN
02972 }  //       END
02973        void LD2030(double* x,double* y,double* z,double* w){
02974 /*     double x[2030];
02975        double y[2030];
02976        double z[2030];
02977        double w[2030];     */
02978        int N;
02979        double a=0.0,b=0.0,v=0.0;
02980 /*
02981 CVW
02982 CVW    LEBEDEV 2030-POINT ANGULAR GRID
02983 CVW
02984 chvd
02985 chvd   This subroutine is part of a set of subroutines that generate
02986 chvd   Lebedev grids [1-6] for integration on a sphere. The original
02987 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
02988 chvd   translated into fortran by Dr. Christoph van Wuellen.
02989 chvd   This subroutine was translated using a C to fortran77 conversion
02990 chvd   tool written by Dr. Christoph van Wuellen.
02991 chvd
02992 chvd   Users of this code are asked to include reference [1] in their
02993 chvd   publications, and in the user- and programmers-manuals
02994 chvd   describing their codes.
02995 chvd
02996 chvd   This code was distributed through CCL (http://www.ccl.net/).
02997 chvd
02998 chvd   [1] V.I. Lebedev, and D.N. Laikov
02999 chvd       "A quadrature formula for the sphere of the 131st
03000 chvd        algebraic order of accuracy"
03001 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
03002 chvd
03003 chvd   [2] V.I. Lebedev
03004 chvd       "A quadrature formula for the sphere of 59th algebraic
03005 chvd        order of accuracy"
03006 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
03007 chvd
03008 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
03009 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
03010 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
03011 chvd
03012 chvd   [4] V.I. Lebedev
03013 chvd       "Spherical quadrature formulas exact to orders 25-29"
03014 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
03015 chvd
03016 chvd   [5] V.I. Lebedev
03017 chvd       "Quadratures on a sphere"
03018 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
03019 chvd       1976, pp. 10-24.
03020 chvd
03021 chvd   [6] V.I. Lebedev
03022 chvd       "Values of the nodes and weights of ninth to seventeenth
03023 chvd        order Gauss-Markov quadrature formulae invariant under the
03024 chvd        octahedron group with inversion"
03025 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
03026 chvd       1975, pp. 44-51.
03027 chvd
03028 */
03029        N=1;
03030        v=0.4656031899197431e-4;
03031        GEN_OH( 1, N, x, y, z, w, a, b, v);
03032        v=0.5421549195295507e-3;
03033        GEN_OH( 3, N, x, y, z, w, a, b, v);
03034        a=0.2540835336814348e-1;
03035        v=0.1778522133346553e-3;
03036        GEN_OH( 4, N, x, y, z, w, a, b, v);
03037        a=0.6399322800504915e-1;
03038        v=0.2811325405682796e-3;
03039        GEN_OH( 4, N, x, y, z, w, a, b, v);
03040        a=0.1088269469804125;
03041        v=0.3548896312631459e-3;
03042        GEN_OH( 4, N, x, y, z, w, a, b, v);
03043        a=0.1570670798818287;
03044        v=0.4090310897173364e-3;
03045        GEN_OH( 4, N, x, y, z, w, a, b, v);
03046        a=0.2071163932282514;
03047        v=0.4493286134169965e-3;
03048        GEN_OH( 4, N, x, y, z, w, a, b, v);
03049        a=0.2578914044450844;
03050        v=0.4793728447962723e-3;
03051        GEN_OH( 4, N, x, y, z, w, a, b, v);
03052        a=0.3085687558169623;
03053        v=0.5015415319164265e-3;
03054        GEN_OH( 4, N, x, y, z, w, a, b, v);
03055        a=0.3584719706267024;
03056        v=0.5175127372677937e-3;
03057        GEN_OH( 4, N, x, y, z, w, a, b, v);
03058        a=0.4070135594428709;
03059        v=0.5285522262081019e-3;
03060        GEN_OH( 4, N, x, y, z, w, a, b, v);
03061        a=0.4536618626222638;
03062        v=0.5356832703713962e-3;
03063        GEN_OH( 4, N, x, y, z, w, a, b, v);
03064        a=0.4979195686463577;
03065        v=0.5397914736175170e-3;
03066        GEN_OH( 4, N, x, y, z, w, a, b, v);
03067        a=0.5393075111126999;
03068        v=0.5416899441599930e-3;
03069        GEN_OH( 4, N, x, y, z, w, a, b, v);
03070        a=0.6115617676843916;
03071        v=0.5419308476889938e-3;
03072        GEN_OH( 4, N, x, y, z, w, a, b, v);
03073        a=0.6414308435160159;
03074        v=0.5416936902030596e-3;
03075        GEN_OH( 4, N, x, y, z, w, a, b, v);
03076        a=0.6664099412721607;
03077        v=0.5419544338703164e-3;
03078        GEN_OH( 4, N, x, y, z, w, a, b, v);
03079        a=0.6859161771214913;
03080        v=0.5428983656630975e-3;
03081        GEN_OH( 4, N, x, y, z, w, a, b, v);
03082        a=0.6993625593503890;
03083        v=0.5442286500098193e-3;
03084        GEN_OH( 4, N, x, y, z, w, a, b, v);
03085        a=0.7062393387719380;
03086        v=0.5452250345057301e-3;
03087        GEN_OH( 4, N, x, y, z, w, a, b, v);
03088        a=0.7479028168349763e-1;
03089        v=0.2568002497728530e-3;
03090        GEN_OH( 5, N, x, y, z, w, a, b, v);
03091        a=0.1848951153969366;
03092        v=0.3827211700292145e-3;
03093        GEN_OH( 5, N, x, y, z, w, a, b, v);
03094        a=0.3059529066581305;
03095        v=0.4579491561917824e-3;
03096        GEN_OH( 5, N, x, y, z, w, a, b, v);
03097        a=0.4285556101021362;
03098        v=0.5042003969083574e-3;
03099        GEN_OH( 5, N, x, y, z, w, a, b, v);
03100        a=0.5468758653496526;
03101        v=0.5312708889976025e-3;
03102        GEN_OH( 5, N, x, y, z, w, a, b, v);
03103        a=0.6565821978343439;
03104        v=0.5438401790747117e-3;
03105        GEN_OH( 5, N, x, y, z, w, a, b, v);
03106        a=0.1253901572367117;
03107        b=0.3681917226439641e-1;
03108        v=0.3316041873197344e-3;
03109        GEN_OH( 6, N, x, y, z, w, a, b, v);
03110        a=0.1775721510383941;
03111        b=0.7982487607213301e-1;
03112        v=0.3899113567153771e-3;
03113        GEN_OH( 6, N, x, y, z, w, a, b, v);
03114        a=0.2305693358216114;
03115        b=0.1264640966592335;
03116        v=0.4343343327201309e-3;
03117        GEN_OH( 6, N, x, y, z, w, a, b, v);
03118        a=0.2836502845992063;
03119        b=0.1751585683418957;
03120        v=0.4679415262318919e-3;
03121        GEN_OH( 6, N, x, y, z, w, a, b, v);
03122        a=0.3361794746232590;
03123        b=0.2247995907632670;
03124        v=0.4930847981631031e-3;
03125        GEN_OH( 6, N, x, y, z, w, a, b, v);
03126        a=0.3875979172264824;
03127        b=0.2745299257422246;
03128        v=0.5115031867540091e-3;
03129        GEN_OH( 6, N, x, y, z, w, a, b, v);
03130        a=0.4374019316999074;
03131        b=0.3236373482441118;
03132        v=0.5245217148457367e-3;
03133        GEN_OH( 6, N, x, y, z, w, a, b, v);
03134        a=0.4851275843340022;
03135        b=0.3714967859436741;
03136        v=0.5332041499895321e-3;
03137        GEN_OH( 6, N, x, y, z, w, a, b, v);
03138        a=0.5303391803806868;
03139        b=0.4175353646321745;
03140        v=0.5384583126021542e-3;
03141        GEN_OH( 6, N, x, y, z, w, a, b, v);
03142        a=0.5726197380596287;
03143        b=0.4612084406355461;
03144        v=0.5411067210798852e-3;
03145        GEN_OH( 6, N, x, y, z, w, a, b, v);
03146        a=0.2431520732564863;
03147        b=0.4258040133043952e-1;
03148        v=0.4259797391468714e-3;
03149        GEN_OH( 6, N, x, y, z, w, a, b, v);
03150        a=0.3002096800895869;
03151        b=0.8869424306722721e-1;
03152        v=0.4604931368460021e-3;
03153        GEN_OH( 6, N, x, y, z, w, a, b, v);
03154        a=0.3558554457457432;
03155        b=0.1368811706510655;
03156        v=0.4871814878255202e-3;
03157        GEN_OH( 6, N, x, y, z, w, a, b, v);
03158        a=0.4097782537048887;
03159        b=0.1860739985015033;
03160        v=0.5072242910074885e-3;
03161        GEN_OH( 6, N, x, y, z, w, a, b, v);
03162        a=0.4616337666067458;
03163        b=0.2354235077395853;
03164        v=0.5217069845235350e-3;
03165        GEN_OH( 6, N, x, y, z, w, a, b, v);
03166        a=0.5110707008417874 ;
03167        b=0.2842074921347011;
03168        v=0.5315785966280310e-3;
03169        GEN_OH( 6, N, x, y, z, w, a, b, v);
03170        a=0.5577415286163795;
03171        b=0.3317784414984102;
03172        v=0.5376833708758905e-3;
03173        GEN_OH( 6, N, x, y, z, w, a, b, v);
03174        a=0.6013060431366950;
03175        b=0.3775299002040700;
03176        v=0.5408032092069521e-3;
03177        GEN_OH( 6, N, x, y, z, w, a, b, v);
03178        a=0.3661596767261781;
03179        b=0.4599367887164592e-1;
03180        v=0.4842744917904866e-3;
03181        GEN_OH( 6, N, x, y, z, w, a, b, v);
03182        a=0.4237633153506581;
03183        b=0.9404893773654421e-1;
03184        v=0.5048926076188130e-3;
03185        GEN_OH( 6, N, x, y, z, w, a, b, v);
03186        a=0.4786328454658452;
03187        b=0.1431377109091971;
03188        v=0.5202607980478373e-3;
03189        GEN_OH( 6, N, x, y, z, w, a, b, v);
03190        a=0.5305702076789774;
03191        b=0.1924186388843570;
03192        v=0.5309932388325743e-3;
03193        GEN_OH( 6, N, x, y, z, w, a, b, v);
03194        a=0.5793436224231788;
03195        b=0.2411590944775190 ;
03196        v=0.5377419770895208e-3;
03197        GEN_OH( 6, N, x, y, z, w, a, b, v);
03198        a=0.6247069017094747;
03199        b=0.2886871491583605;
03200        v=0.5411696331677717e-3;
03201        GEN_OH( 6, N, x, y, z, w, a, b, v);
03202        a=0.4874315552535204;
03203        b=0.4804978774953206e-1;
03204        v=0.5197996293282420e-3;
03205        GEN_OH( 6, N, x, y, z, w, a, b, v);
03206        a=0.5427337322059053;
03207        b=0.9716857199366665e-1;
03208        v=0.5311120836622945e-3;
03209        GEN_OH( 6, N, x, y, z, w, a, b, v);
03210        a=0.5943493747246700;
03211        b=0.1465205839795055;
03212        v=0.5384309319956951e-3;
03213        GEN_OH( 6, N, x, y, z, w, a, b, v);
03214        a=0.6421314033564943;
03215        b=0.1953579449803574;
03216        v=0.5421859504051886e-3;
03217        GEN_OH( 6, N, x, y, z, w, a, b, v);
03218        a=0.6020628374713980 ;
03219        b=0.4916375015738108e-1;
03220        v=0.5390948355046314e-3;
03221        GEN_OH( 6, N, x, y, z, w, a, b, v);
03222        a=0.6529222529856881 ;
03223        b=0.9861621540127005e-1;
03224        v=0.5433312705027845e-3;
03225        GEN_OH( 6, N, x, y, z, w, a, b, v);
03226        N=N-1;
03227        //RETURN
03228 }  //       END
03229        void LD2354(double* x,double* y,double* z,double* w){
03230 /*     double x[2354];
03231        double y[2354];
03232        double z[2354];
03233        double w[2354];      */
03234        int N;
03235        double a=0.0,b=0.0,v=0.0;
03236 /*
03237 CVW
03238 CVW    LEBEDEV 2354-POINT ANGULAR GRID
03239 CVW
03240 chvd
03241 chvd   This subroutine is part of a set of subroutines that generate
03242 chvd   Lebedev grids [1-6] for integration on a sphere. The original
03243 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
03244 chvd   translated into fortran by Dr. Christoph van Wuellen.
03245 chvd   This subroutine was translated using a C to fortran77 conversion
03246 chvd   tool written by Dr. Christoph van Wuellen.
03247 chvd
03248 chvd   Users of this code are asked to include reference [1] in their
03249 chvd   publications, and in the user- and programmers-manuals
03250 chvd   describing their codes.
03251 chvd
03252 chvd   This code was distributed through CCL (http://www.ccl.net/).
03253 chvd
03254 chvd   [1] V.I. Lebedev, and D.N. Laikov
03255 chvd       "A quadrature formula for the sphere of the 131st
03256 chvd        algebraic order of accuracy"
03257 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
03258 chvd
03259 chvd   [2] V.I. Lebedev
03260 chvd       "A quadrature formula for the sphere of 59th algebraic
03261 chvd        order of accuracy"
03262 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
03263 chvd
03264 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
03265 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
03266 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
03267 chvd
03268 chvd   [4] V.I. Lebedev
03269 chvd       "Spherical quadrature formulas exact to orders 25-29"
03270 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
03271 chvd
03272 chvd   [5] V.I. Lebedev
03273 chvd       "Quadratures on a sphere"
03274 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
03275 chvd       1976, pp. 10-24.
03276 chvd
03277 chvd   [6] V.I. Lebedev
03278 chvd       "Values of the nodes and weights of ninth to seventeenth
03279 chvd        order Gauss-Markov quadrature formulae invariant under the
03280 chvd        octahedron group with inversion"
03281 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
03282 chvd       1975, pp. 44-51.
03283 chvd
03284 */
03285        N=1;
03286        v=0.3922616270665292e-4;
03287        GEN_OH( 1, N, x, y, z, w, a, b, v);
03288        v=0.4703831750854424e-3;
03289        GEN_OH( 2, N, x, y, z, w, a, b, v);
03290        v=0.4678202801282136e-3;
03291        GEN_OH( 3, N, x, y, z, w, a, b, v);
03292        a=0.2290024646530589e-1;
03293        v=0.1437832228979900e-3;
03294        GEN_OH( 4, N, x, y, z, w, a, b, v);
03295        a=0.5779086652271284e-1;
03296        v=0.2303572493577644e-3;
03297        GEN_OH( 4, N, x, y, z, w, a, b, v);
03298        a=0.9863103576375984e-1;
03299        v=0.2933110752447454e-3;
03300        GEN_OH( 4, N, x, y, z, w, a, b, v);
03301        a=0.1428155792982185;
03302        v=0.3402905998359838e-3;
03303        GEN_OH( 4, N, x, y, z, w, a, b, v);
03304        a=0.1888978116601463 ;
03305        v=0.3759138466870372e-3;
03306        GEN_OH( 4, N, x, y, z, w, a, b, v);
03307        a=0.2359091682970210;
03308        v=0.4030638447899798e-3;
03309        GEN_OH( 4, N, x, y, z, w, a, b, v);
03310        a=0.2831228833706171 ;
03311        v=0.4236591432242211e-3;
03312        GEN_OH( 4, N, x, y, z, w, a, b, v);
03313        a=0.3299495857966693;
03314        v=0.4390522656946746e-3;
03315        GEN_OH( 4, N, x, y, z, w, a, b, v);
03316        a=0.3758840802660796 ;
03317        v=0.4502523466626247e-3;
03318        GEN_OH( 4, N, x, y, z, w, a, b, v);
03319        a=0.4204751831009480 ;
03320        v=0.4580577727783541e-3;
03321        GEN_OH( 4, N, x, y, z, w, a, b, v);
03322        a=0.4633068518751051;
03323        v=0.4631391616615899e-3;
03324        GEN_OH( 4, N, x, y, z, w, a, b, v);
03325        a=0.5039849474507313;
03326        v=0.4660928953698676e-3;
03327        GEN_OH( 4, N, x, y, z, w, a, b, v);
03328        a=0.5421265793440747;
03329        v=0.4674751807936953e-3;
03330        GEN_OH( 4, N, x, y, z, w, a, b, v);
03331        a=0.6092660230557310;
03332        v=0.4676414903932920e-3;
03333        GEN_OH( 4, N, x, y, z, w, a, b, v);
03334        a=0.6374654204984869 ;
03335        v=0.4674086492347870e-3;
03336        GEN_OH( 4, N, x, y, z, w, a, b, v);
03337        a=0.6615136472609892;
03338        v=0.4674928539483207e-3;
03339        GEN_OH( 4, N, x, y, z, w, a, b, v);
03340        a=0.6809487285958127 ;
03341        v=0.4680748979686447e-3;
03342        GEN_OH( 4, N, x, y, z, w, a, b, v);
03343        a=0.6952980021665196;
03344        v=0.4690449806389040e-3;
03345        GEN_OH( 4, N, x, y, z, w, a, b, v);
03346        a=0.7041245497695400;
03347        v=0.4699877075860818e-3;
03348        GEN_OH( 4, N, x, y, z, w, a, b, v);
03349        a=0.6744033088306065e-1;
03350        v=0.2099942281069176e-3;
03351        GEN_OH( 5, N, x, y, z, w, a, b, v);
03352        a=0.1678684485334166 ;
03353        v=0.3172269150712804e-3;
03354        GEN_OH( 5, N, x, y, z, w, a, b, v);
03355        a=0.2793559049539613;
03356        v=0.3832051358546523e-3;
03357        GEN_OH( 5, N, x, y, z, w, a, b, v);
03358        a=0.3935264218057639 ;
03359        v=0.4252193818146985e-3;
03360        GEN_OH( 5, N, x, y, z, w, a, b, v);
03361        a=0.5052629268232558;
03362        v=0.4513807963755000e-3;
03363        GEN_OH( 5, N, x, y, z, w, a, b, v);
03364        a=0.6107905315437531;
03365        v=0.4657797469114178e-3;
03366        GEN_OH( 5, N, x, y, z, w, a, b, v);
03367        a=0.1135081039843524 ;
03368        b=0.3331954884662588e-1;
03369        v=0.2733362800522836e-3;
03370        GEN_OH( 6, N, x, y, z, w, a, b, v);
03371        a=0.1612866626099378;
03372        b=0.7247167465436538e-1;
03373        v=0.3235485368463559e-3;
03374        GEN_OH( 6, N, x, y, z, w, a, b, v);
03375        a=0.2100786550168205;
03376        b=0.1151539110849745 ;
03377        v=0.3624908726013453e-3;
03378        GEN_OH( 6, N, x, y, z, w, a, b, v);
03379        a=0.2592282009459942 ;
03380        b=0.1599491097143677;
03381        v=0.3925540070712828e-3;
03382        GEN_OH( 6, N, x, y, z, w, a, b, v);
03383        a=0.3081740561320203;
03384        b=0.2058699956028027;
03385        v=0.4156129781116235e-3;
03386        GEN_OH( 6, N, x, y, z, w, a, b, v);
03387        a=0.3564289781578164;
03388        b=0.2521624953502911 ;
03389        v=0.4330644984623263e-3;
03390        GEN_OH( 6, N, x, y, z, w, a, b, v);
03391        a=0.4035587288240703;
03392        b=0.2982090785797674 ;
03393        v=0.4459677725921312e-3;
03394        GEN_OH( 6, N, x, y, z, w, a, b, v);
03395        a=0.4491671196373903;
03396        b=0.3434762087235733;
03397        v=0.4551593004456795e-3;
03398        GEN_OH( 6, N, x, y, z, w, a, b, v);
03399        a=0.4928854782917489;
03400        b=0.3874831357203437;
03401        v=0.4613341462749918e-3;
03402        GEN_OH( 6, N, x, y, z, w, a, b, v);
03403        a=0.5343646791958988;
03404        b=0.4297814821746926;
03405        v=0.4651019618269806e-3;
03406        GEN_OH( 6, N, x, y, z, w, a, b, v);
03407        a=0.5732683216530990 ;
03408        b=0.4699402260943537;
03409        v=0.4670249536100625e-3;
03410        GEN_OH( 6, N, x, y, z, w, a, b, v);
03411        a=0.2214131583218986 ;
03412        b=0.3873602040643895e-1;
03413        v=0.3549555576441708e-3;
03414        GEN_OH( 6, N, x, y, z, w, a, b, v);
03415        a=0.2741796504750071 ;
03416        b=0.8089496256902013e-1;
03417        v=0.3856108245249010e-3;
03418        GEN_OH( 6, N, x, y, z, w, a, b, v);
03419        a=0.3259797439149485 ;
03420        b=0.1251732177620872;
03421        v=0.4098622845756882e-3;
03422        GEN_OH( 6, N, x, y, z, w, a, b, v);
03423        a=0.3765441148826891;
03424        b=0.1706260286403185 ;
03425        v=0.4286328604268950e-3;
03426        GEN_OH( 6, N, x, y, z, w, a, b, v);
03427        a=0.4255773574530558 ;
03428        b=0.2165115147300408;
03429        v=0.4427802198993945e-3;
03430        GEN_OH( 6, N, x, y, z, w, a, b, v);
03431        a=0.4727795117058430;
03432        b=0.2622089812225259;
03433        v=0.4530473511488561e-3;
03434        GEN_OH( 6, N, x, y, z, w, a, b, v);
03435        a=0.5178546895819012;
03436        b=0.3071721431296201;
03437        v=0.4600805475703138e-3;
03438        GEN_OH( 6, N, x, y, z, w, a, b, v);
03439        a=0.5605141192097460;
03440        b=0.3508998998801138;
03441        v=0.4644599059958017e-3;
03442        GEN_OH( 6, N, x, y, z, w, a, b, v);
03443        a=0.6004763319352512;
03444        b=0.3929160876166931;
03445        v=0.4667274455712508e-3;
03446        GEN_OH( 6, N, x, y, z, w, a, b, v);
03447        a=0.3352842634946949;
03448        b=0.4202563457288019e-1;
03449        v=0.4069360518020356e-3;
03450        GEN_OH( 6, N, x, y, z, w, a, b, v);
03451        a=0.3891971629814670;
03452        b=0.8614309758870850e-1;
03453        v=0.4260442819919195e-3;
03454        GEN_OH( 6, N, x, y, z, w, a, b, v);
03455        a=0.4409875565542281;
03456        b=0.1314500879380001;
03457        v=0.4408678508029063e-3;
03458        GEN_OH( 6, N, x, y, z, w, a, b, v);
03459        a=0.4904893058592484;
03460        b=0.1772189657383859 ;
03461        v=0.4518748115548597e-3;
03462        GEN_OH( 6, N, x, y, z, w, a, b, v);
03463        a=0.5375056138769549;
03464        b=0.2228277110050294;
03465        v=0.4595564875375116e-3;
03466        GEN_OH( 6, N, x, y, z, w, a, b, v);
03467        a=0.5818255708669969;
03468        b=0.2677179935014386 ;
03469        v=0.4643988774315846e-3;
03470        GEN_OH( 6, N, x, y, z, w, a, b, v);
03471        a=0.6232334858144959;
03472        b=0.3113675035544165;
03473        v=0.4668827491646946e-3;
03474        GEN_OH( 6, N, x, y, z, w, a, b, v);
03475        a=0.4489485354492058;
03476        b=0.4409162378368174e-1;
03477        v=0.4400541823741973e-3;
03478        GEN_OH( 6, N, x, y, z, w, a, b, v);
03479        a=0.5015136875933150;
03480        b=0.8939009917748489e-1;
03481        v=0.4514512890193797e-3;
03482        GEN_OH( 6, N, x, y, z, w, a, b, v);
03483        a=0.5511300550512623;
03484        b=0.1351806029383365;
03485        v=0.4596198627347549e-3;
03486        GEN_OH( 6, N, x, y, z, w, a, b, v);
03487        a=0.5976720409858000;
03488        b=0.1808370355053196;
03489        v=0.4648659016801781e-3;
03490        GEN_OH( 6, N, x, y, z, w, a, b, v);
03491        a=0.6409956378989354 ;
03492        b=0.2257852192301602;
03493        v=0.4675502017157673e-3;
03494        GEN_OH( 6, N, x, y, z, w, a, b, v);
03495        a=0.5581222330827514 ;
03496        b=0.4532173421637160e-1;
03497        v=0.4598494476455523e-3;
03498        GEN_OH( 6, N, x, y, z, w, a, b, v);
03499        a=0.6074705984161695;
03500        b=0.9117488031840314e-1;
03501        v=0.4654916955152048e-3;
03502        GEN_OH( 6, N, x, y, z, w, a, b, v);
03503        a=0.6532272537379033;
03504        b=0.1369294213140155;
03505        v=0.4684709779505137e-3;
03506        GEN_OH( 6, N, x, y, z, w, a, b, v);
03507        a=0.6594761494500487;
03508        b=0.4589901487275583e-1;
03509        v=0.4691445539106986e-3;
03510        GEN_OH( 6, N, x, y, z, w, a, b, v);
03511        N=N-1;
03512        //RETURN
03513 }  //       END
03514        void LD2702(double* x,double* y,double* z,double* w){
03515 /*     double x[2702];
03516        double y[2702];
03517        double z[2702];
03518        double w[2702];   */
03519        int N;
03520        double a=0.0,b=0.0,v=0.0;
03521 /*
03522 CVW
03523 CVW    LEBEDEV 2702-POINT ANGULAR GRID
03524 CVW
03525 chvd
03526 chvd   This subroutine is part of a set of subroutines that generate
03527 chvd   Lebedev grids [1-6] for integration on a sphere. The original
03528 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
03529 chvd   translated into fortran by Dr. Christoph van Wuellen.
03530 chvd   This subroutine was translated using a C to fortran77 conversion
03531 chvd   tool written by Dr. Christoph van Wuellen.
03532 chvd
03533 chvd   Users of this code are asked to include reference [1] in their
03534 chvd   publications, and in the user- and programmers-manuals
03535 chvd   describing their codes.
03536 chvd
03537 chvd   This code was distributed through CCL (http://www.ccl.net/).
03538 chvd
03539 chvd   [1] V.I. Lebedev, and D.N. Laikov
03540 chvd       "A quadrature formula for the sphere of the 131st
03541 chvd        algebraic order of accuracy"
03542 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
03543 chvd
03544 chvd   [2] V.I. Lebedev
03545 chvd       "A quadrature formula for the sphere of 59th algebraic
03546 chvd        order of accuracy"
03547 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
03548 chvd
03549 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
03550 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
03551 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
03552 chvd
03553 chvd   [4] V.I. Lebedev
03554 chvd       "Spherical quadrature formulas exact to orders 25-29"
03555 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
03556 chvd
03557 chvd   [5] V.I. Lebedev
03558 chvd       "Quadratures on a sphere"
03559 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
03560 chvd       1976, pp. 10-24.
03561 chvd
03562 chvd   [6] V.I. Lebedev
03563 chvd       "Values of the nodes and weights of ninth to seventeenth
03564 chvd        order Gauss-Markov quadrature formulae invariant under the
03565 chvd        octahedron group with inversion"
03566 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
03567 chvd       1975, pp. 44-51.
03568 chvd
03569 */
03570        N=1;
03571        v=0.2998675149888161e-4;
03572        GEN_OH( 1, N, x, y, z, w, a, b, v);
03573        v=0.4077860529495355e-3;
03574        GEN_OH( 3, N, x, y, z, w, a, b, v);
03575        a=0.2065562538818703e-1;
03576        v=0.1185349192520667e-3;
03577        GEN_OH( 4, N, x, y, z, w, a, b, v);
03578        a=0.5250918173022379e-1;
03579        v=0.1913408643425751e-3;
03580        GEN_OH( 4, N, x, y, z, w, a, b, v);
03581        a=0.8993480082038376e-1;
03582        v=0.2452886577209897e-3;
03583        GEN_OH( 4, N, x, y, z, w, a, b, v);
03584        a=0.1306023924436019;
03585        v=0.2862408183288702e-3;
03586        GEN_OH( 4, N, x, y, z, w, a, b, v);
03587        a=0.1732060388531418;
03588        v=0.3178032258257357e-3;
03589        GEN_OH( 4, N, x, y, z, w, a, b, v);
03590        a=0.2168727084820249;
03591        v=0.3422945667633690e-3;
03592        GEN_OH( 4, N, x, y, z, w, a, b, v);
03593        a=0.2609528309173586;
03594        v=0.3612790520235922e-3;
03595        GEN_OH( 4, N, x, y, z, w, a, b, v);
03596        a=0.3049252927938952;
03597        v=0.3758638229818521e-3;
03598        GEN_OH( 4, N, x, y, z, w, a, b, v);
03599        a=0.3483484138084404;
03600        v=0.3868711798859953e-3;
03601        GEN_OH( 4, N, x, y, z, w, a, b, v);
03602        a=0.3908321549106406;
03603        v=0.3949429933189938e-3;
03604        GEN_OH( 4, N, x, y, z, w, a, b, v);
03605        a=0.4320210071894814;
03606        v=0.4006068107541156e-3;
03607        GEN_OH( 4, N, x, y, z, w, a, b, v);
03608        a=0.4715824795890053;
03609        v=0.4043192149672723e-3;
03610        GEN_OH( 4, N, x, y, z, w, a, b, v);
03611        a=0.5091984794078453;
03612        v=0.4064947495808078e-3;
03613        GEN_OH( 4, N, x, y, z, w, a, b, v);
03614        a=0.5445580145650803;
03615        v=0.4075245619813152e-3;
03616        GEN_OH( 4, N, x, y, z, w, a, b, v);
03617        a=0.6072575796841768;
03618        v=0.4076423540893566e-3;
03619        GEN_OH( 4, N, x, y, z, w, a, b, v);
03620        a=0.6339484505755803;
03621        v=0.4074280862251555e-3;
03622        GEN_OH( 4, N, x, y, z, w, a, b, v);
03623        a=0.6570718257486958;
03624        v=0.4074163756012244e-3;
03625        GEN_OH( 4, N, x, y, z, w, a, b, v);
03626        a=0.6762557330090709;
03627        v=0.4077647795071246e-3;
03628        GEN_OH( 4, N, x, y, z, w, a, b, v);
03629        a=0.6911161696923790;
03630        v=0.4084517552782530e-3;
03631        GEN_OH( 4, N, x, y, z, w, a, b, v);
03632        a=0.7012841911659961;
03633        v=0.4092468459224052e-3;
03634        GEN_OH( 4, N, x, y, z, w, a, b, v);
03635        a=0.7064559272410020;
03636        v=0.4097872687240906e-3;
03637        GEN_OH( 4, N, x, y, z, w, a, b, v);
03638        a=0.6123554989894765e-1;
03639        v=0.1738986811745028e-3;
03640        GEN_OH( 5, N, x, y, z, w, a, b, v);
03641        a=0.1533070348312393;
03642        v=0.2659616045280191e-3;
03643        GEN_OH( 5, N, x, y, z, w, a, b, v);
03644        a=0.2563902605244206;
03645        v=0.3240596008171533e-3;
03646        GEN_OH( 5, N, x, y, z, w, a, b, v);
03647        a=0.3629346991663361;
03648        v=0.3621195964432943e-3;
03649        GEN_OH( 5, N, x, y, z, w, a, b, v);
03650        a=0.4683949968987538;
03651        v=0.3868838330760539e-3;
03652        GEN_OH( 5, N, x, y, z, w, a, b, v);
03653        a=0.5694479240657952;
03654        v=0.4018911532693111e-3;
03655        GEN_OH( 5, N, x, y, z, w, a, b, v);
03656        a=0.6634465430993955;
03657        v=0.4089929432983252e-3;
03658        GEN_OH( 5, N, x, y, z, w, a, b, v);
03659        a=0.1033958573552305;
03660        b=0.3034544009063584e-1;
03661        v=0.2279907527706409e-3;
03662        GEN_OH( 6, N, x, y, z, w, a, b, v);
03663        a=0.1473521412414395;
03664        b=0.6618803044247135e-1;
03665        v=0.2715205490578897e-3;
03666        GEN_OH( 6, N, x, y, z, w, a, b, v);
03667        a=0.1924552158705967;
03668        b=0.1054431128987715;
03669        v=0.3057917896703976e-3;
03670        GEN_OH( 6, N, x, y, z, w, a, b, v);
03671        a=0.2381094362890328;
03672        b=0.1468263551238858;
03673        v=0.3326913052452555e-3;
03674        GEN_OH( 6, N, x, y, z, w, a, b, v);
03675        a=0.2838121707936760;
03676        b=0.1894486108187886;
03677        v=0.3537334711890037e-3;
03678        GEN_OH( 6, N, x, y, z, w, a, b, v);
03679        a=0.3291323133373415;
03680        b=0.2326374238761579;
03681        v=0.3700567500783129e-3;
03682        GEN_OH( 6, N, x, y, z, w, a, b, v);
03683        a=0.3736896978741460;
03684        b=0.2758485808485768;
03685        v=0.3825245372589122e-3;
03686        GEN_OH( 6, N, x, y, z, w, a, b, v);
03687        a=0.4171406040760013;
03688        b=0.3186179331996921;
03689        v=0.3918125171518296e-3;
03690        GEN_OH( 6, N, x, y, z, w, a, b, v);
03691        a=0.4591677985256915;
03692        b=0.3605329796303794;
03693        v=0.3984720419937579e-3;
03694        GEN_OH( 6, N, x, y, z, w, a, b, v);
03695        a=0.4994733831718418;
03696        b=0.4012147253586509;
03697        v=0.4029746003338211e-3;
03698        GEN_OH( 6, N, x, y, z, w, a, b, v);
03699        a=0.5377731830445096;
03700        b=0.4403050025570692;
03701        v=0.4057428632156627e-3;
03702        GEN_OH( 6, N, x, y, z, w, a, b, v);
03703        a=0.5737917830001331;
03704        b=0.4774565904277483;
03705        v=0.4071719274114857e-3;
03706        GEN_OH( 6, N, x, y, z, w, a, b, v);
03707        a=0.2027323586271389;
03708        b=0.3544122504976147e-1;
03709        v=0.2990236950664119e-3;
03710        GEN_OH( 6, N, x, y, z, w, a, b, v);
03711        a=0.2516942375187273;
03712        b=0.7418304388646328e-1;
03713        v=0.3262951734212878e-3;
03714        GEN_OH( 6, N, x, y, z, w, a, b, v);
03715        a=0.3000227995257181;
03716        b=0.1150502745727186;
03717        v=0.3482634608242413e-3;
03718        GEN_OH( 6, N, x, y, z, w, a, b, v);
03719        a=0.3474806691046342;
03720        b=0.1571963371209364;
03721        v=0.3656596681700892e-3;
03722        GEN_OH( 6, N, x, y, z, w, a, b, v);
03723        a=0.3938103180359209;
03724        b=0.1999631877247100;
03725        v=0.3791740467794218e-3;
03726        GEN_OH( 6, N, x, y, z, w, a, b, v);
03727        a=0.4387519590455703;
03728        b=0.2428073457846535;
03729        v=0.3894034450156905e-3;
03730        GEN_OH( 6, N, x, y, z, w, a, b, v);
03731        a=0.4820503960077787;
03732        b=0.2852575132906155;
03733        v=0.3968600245508371e-3;
03734        GEN_OH( 6, N, x, y, z, w, a, b, v);
03735        a=0.5234573778475101;
03736        b=0.3268884208674639;
03737        v=0.4019931351420050e-3;
03738        GEN_OH( 6, N, x, y, z, w, a, b, v);
03739        a=0.5627318647235282;
03740        b=0.3673033321675939;
03741        v=0.4052108801278599e-3;
03742        GEN_OH( 6, N, x, y, z, w, a, b, v);
03743        a=0.5996390607156954;
03744        b=0.4061211551830290;
03745        v=0.4068978613940934e-3;
03746        GEN_OH( 6, N, x, y, z, w, a, b, v);
03747        a=0.3084780753791947;
03748        b=0.3860125523100059e-1;
03749        v=0.3454275351319704e-3;
03750        GEN_OH( 6, N, x, y, z, w, a, b, v);
03751        a=0.3589988275920223;
03752        b=0.7928938987104867e-1;
03753        v=0.3629963537007920e-3;
03754        GEN_OH( 6, N, x, y, z, w, a, b, v);
03755        a=0.4078628415881973;
03756        b=0.1212614643030087;
03757        v=0.3770187233889873e-3;
03758        GEN_OH( 6, N, x, y, z, w, a, b, v);
03759        a=0.4549287258889735;
03760        b=0.1638770827382693;
03761        v=0.3878608613694378e-3;
03762        GEN_OH( 6, N, x, y, z, w, a, b, v);
03763        a=0.5000278512957279;
03764        b=0.2065965798260176;
03765        v=0.3959065270221274e-3;
03766        GEN_OH( 6, N, x, y, z, w, a, b, v);
03767        a=0.5429785044928199;
03768        b=0.2489436378852235;
03769        v=0.4015286975463570e-3;
03770        GEN_OH( 6, N, x, y, z, w, a, b, v);
03771        a=0.5835939850491711;
03772        b=0.2904811368946891;
03773        v=0.4050866785614717e-3;
03774        GEN_OH( 6, N, x, y, z, w, a, b, v);
03775        a=0.6216870353444856;
03776        b=0.3307941957666609;
03777        v=0.4069320185051913e-3;
03778        GEN_OH( 6, N, x, y, z, w, a, b, v);
03779        a=0.4151104662709091;
03780        b=0.4064829146052554e-1;
03781        v=0.3760120964062763e-3;
03782        GEN_OH( 6, N, x, y, z, w, a, b, v);
03783        a=0.4649804275009218;
03784        b=0.8258424547294755e-1;
03785        v=0.3870969564418064e-3;
03786        GEN_OH( 6, N, x, y, z, w, a, b, v);
03787        a=0.5124695757009662;
03788        b=0.1251841962027289;
03789        v=0.3955287790534055e-3;
03790        GEN_OH( 6, N, x, y, z, w, a, b, v);
03791        a=0.5574711100606224;
03792        b=0.1679107505976331;
03793        v=0.4015361911302668e-3;
03794        GEN_OH( 6, N, x, y, z, w, a, b, v);
03795        a=0.5998597333287227;
03796        b=0.2102805057358715;
03797        v=0.4053836986719548e-3;
03798        GEN_OH( 6, N, x, y, z, w, a, b, v);
03799        a=0.6395007148516600;
03800        b=0.2518418087774107;
03801        v=0.4073578673299117e-3;
03802        GEN_OH( 6, N, x, y, z, w, a, b, v);
03803        a=0.5188456224746252;
03804        b=0.4194321676077518e-1;
03805        v=0.3954628379231406e-3;
03806        GEN_OH( 6, N, x, y, z, w, a, b, v);
03807        a=0.5664190707942778;
03808        b=0.8457661551921499e-1;
03809        v=0.4017645508847530e-3;
03810        GEN_OH( 6, N, x, y, z, w, a, b, v);
03811        a=0.6110464353283153;
03812        b=0.1273652932519396 ;
03813        v=0.4059030348651293e-3;
03814        GEN_OH( 6, N, x, y, z, w, a, b, v);
03815        a=0.6526430302051563;
03816        b=0.1698173239076354;
03817        v=0.4080565809484880e-3;
03818        GEN_OH( 6, N, x, y, z, w, a, b, v);
03819        a=0.6167551880377548;
03820        b=0.4266398851548864e-1;
03821        v=0.4063018753664651e-3;
03822        GEN_OH( 6, N, x, y, z, w, a, b, v);
03823        a=0.6607195418355383;
03824        b=0.8551925814238349e-1;
03825        v=0.4087191292799671e-3;
03826        GEN_OH( 6, N, x, y, z, w, a, b, v);
03827        N=N-1;
03828        //RETURN
03829 }  //       END
03830        void LD3074(double* x,double* y,double* z,double* w){
03831 /*     double x[3074];
03832        double y[3074];
03833        double z[3074];
03834        double w[3074];     */
03835        int N;
03836        double a=0.0,b=0.0,v=0.0;
03837 /*
03838 CVW
03839 CVW    LEBEDEV 3074-POINT ANGULAR GRID
03840 CVW
03841 chvd
03842 chvd   This subroutine is part of a set of subroutines that generate
03843 chvd   Lebedev grids [1-6] for integration on a sphere. The original
03844 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
03845 chvd   translated into fortran by Dr. Christoph van Wuellen.
03846 chvd   This subroutine was translated using a C to fortran77 conversion
03847 chvd   tool written by Dr. Christoph van Wuellen.
03848 chvd
03849 chvd   Users of this code are asked to include reference [1] in their
03850 chvd   publications, and in the user- and programmers-manuals
03851 chvd   describing their codes.
03852 chvd
03853 chvd   This code was distributed through CCL (http://www.ccl.net/).
03854 chvd
03855 chvd   [1] V.I. Lebedev, and D.N. Laikov
03856 chvd       "A quadrature formula for the sphere of the 131st
03857 chvd        algebraic order of accuracy"
03858 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
03859 chvd
03860 chvd   [2] V.I. Lebedev
03861 chvd       "A quadrature formula for the sphere of 59th algebraic
03862 chvd        order of accuracy"
03863 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
03864 chvd
03865 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
03866 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
03867 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
03868 chvd
03869 chvd   [4] V.I. Lebedev
03870 chvd       "Spherical quadrature formulas exact to orders 25-29"
03871 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
03872 chvd
03873 chvd   [5] V.I. Lebedev
03874 chvd       "Quadratures on a sphere"
03875 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
03876 chvd       1976, pp. 10-24.
03877 chvd
03878 chvd   [6] V.I. Lebedev
03879 chvd       "Values of the nodes and weights of ninth to seventeenth
03880 chvd        order Gauss-Markov quadrature formulae invariant under the
03881 chvd        octahedron group with inversion"
03882 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
03883 chvd       1975, pp. 44-51.
03884 chvd
03885 */
03886        N=1;
03887        v=0.2599095953754734e-4;
03888        GEN_OH( 1, N, x, y, z, w, a, b, v);
03889        v=0.3603134089687541e-3;
03890        GEN_OH( 2, N, x, y, z, w, a, b, v);
03891        v=0.3586067974412447e-3;
03892        GEN_OH( 3, N, x, y, z, w, a, b, v);
03893        a=0.1886108518723392e-1;
03894        v=0.9831528474385880e-4;
03895        GEN_OH( 4, N, x, y, z, w, a, b, v);
03896        a=0.4800217244625303e-1;
03897        v=0.1605023107954450e-3;
03898        GEN_OH( 4, N, x, y, z, w, a, b, v);
03899        a=0.8244922058397242e-1;
03900        v=0.2072200131464099e-3;
03901        GEN_OH( 4, N, x, y, z, w, a, b, v);
03902        a=0.1200408362484023;
03903        v=0.2431297618814187e-3;
03904        GEN_OH( 4, N, x, y, z, w, a, b, v);
03905        a=0.1595773530809965;
03906        v=0.2711819064496707e-3;
03907        GEN_OH( 4, N, x, y, z, w, a, b, v);
03908        a=0.2002635973434064;
03909        v=0.2932762038321116e-3;
03910        GEN_OH( 4, N, x, y, z, w, a, b, v);
03911        a=0.2415127590139982;
03912        v=0.3107032514197368e-3;
03913        GEN_OH( 4, N, x, y, z, w, a, b, v);
03914        a=0.2828584158458477;
03915        v=0.3243808058921213e-3;
03916        GEN_OH( 4, N, x, y, z, w, a, b, v);
03917        a=0.3239091015338138;
03918        v=0.3349899091374030e-3;
03919        GEN_OH( 4, N, x, y, z, w, a, b, v);
03920        a=0.3643225097962194;
03921        v=0.3430580688505218e-3;
03922        GEN_OH( 4, N, x, y, z, w, a, b, v);
03923        a=0.4037897083691802;
03924        v=0.3490124109290343e-3;
03925        GEN_OH( 4, N, x, y, z, w, a, b, v);
03926        a=0.4420247515194127;
03927        v=0.3532148948561955e-3;
03928        GEN_OH( 4, N, x, y, z, w, a, b, v);
03929        a=0.4787572538464938;
03930        v=0.3559862669062833e-3;
03931        GEN_OH( 4, N, x, y, z, w, a, b, v);
03932        a=0.5137265251275234;
03933        v=0.3576224317551411e-3;
03934        GEN_OH( 4, N, x, y, z, w, a, b, v);
03935        a=0.5466764056654611;
03936        v=0.3584050533086076e-3;
03937        GEN_OH( 4, N, x, y, z, w, a, b, v);
03938        a=0.6054859420813535;
03939        v=0.3584903581373224e-3;
03940        GEN_OH( 4, N, x, y, z, w, a, b, v);
03941        a=0.6308106701764562;
03942        v=0.3582991879040586e-3;
03943        GEN_OH( 4, N, x, y, z, w, a, b, v);
03944        a=0.6530369230179584;
03945        v=0.3582371187963125e-3;
03946        GEN_OH( 4, N, x, y, z, w, a, b, v);
03947        a=0.6718609524611158;
03948        v=0.3584353631122350e-3;
03949        GEN_OH( 4, N, x, y, z, w, a, b, v);
03950        a=0.6869676499894013;
03951        v=0.3589120166517785e-3;
03952        GEN_OH( 4, N, x, y, z, w, a, b, v);
03953        a=0.6980467077240748;
03954        v=0.3595445704531601e-3;
03955        GEN_OH( 4, N, x, y, z, w, a, b, v);
03956        a=0.7048241721250522;
03957        v=0.3600943557111074e-3;
03958        GEN_OH( 4, N, x, y, z, w, a, b, v);
03959        a=0.5591105222058232e-1;
03960        v=0.1456447096742039e-3;
03961        GEN_OH( 5, N, x, y, z, w, a, b, v);
03962        a=0.1407384078513916;
03963        v=0.2252370188283782e-3;
03964        GEN_OH( 5, N, x, y, z, w, a, b, v);
03965        a=0.2364035438976309;
03966        v=0.2766135443474897e-3;
03967        GEN_OH( 5, N, x, y, z, w, a, b, v);
03968        a=0.3360602737818170;
03969        v=0.3110729491500851e-3;
03970        GEN_OH( 5, N, x, y, z, w, a, b, v);
03971        a=0.4356292630054665;
03972        v=0.3342506712303391e-3;
03973        GEN_OH( 5, N, x, y, z, w, a, b, v);
03974        a=0.5321569415256174;
03975        v=0.3491981834026860e-3;
03976        GEN_OH( 5, N, x, y, z, w, a, b, v);
03977        a=0.6232956305040554;
03978        v=0.3576003604348932e-3;
03979        GEN_OH( 5, N, x, y, z, w, a, b, v);
03980        a=0.9469870086838469e-1;
03981        b=0.2778748387309470e-1;
03982        v=0.1921921305788564e-3;
03983        GEN_OH( 6, N, x, y, z, w, a, b, v);
03984        a=0.1353170300568141;
03985        b=0.6076569878628364e-1;
03986        v=0.2301458216495632e-3;
03987        GEN_OH( 6, N, x, y, z, w, a, b, v);
03988        a=0.1771679481726077;
03989        b=0.9703072762711040e-1;
03990        v=0.2604248549522893e-3;
03991        GEN_OH( 6, N, x, y, z, w, a, b, v);
03992        a=0.2197066664231751;
03993        b=0.1354112458524762;
03994        v=0.2845275425870697e-3;
03995        GEN_OH( 6, N, x, y, z, w, a, b, v);
03996        a=0.2624783557374927;
03997        b=0.1750996479744100;
03998        v=0.3036870897974840e-3;
03999        GEN_OH( 6, N, x, y, z, w, a, b, v);
04000        a=0.3050969521214442;
04001        b=0.2154896907449802;
04002        v=0.3188414832298066e-3;
04003        GEN_OH( 6, N, x, y, z, w, a, b, v);
04004        a=0.3472252637196021;
04005        b=0.2560954625740152;
04006        v=0.3307046414722089e-3;
04007        GEN_OH( 6, N, x, y, z, w, a, b, v);
04008        a=0.3885610219026360;
04009        b=0.2965070050624096;
04010        v=0.3398330969031360e-3;
04011        GEN_OH( 6, N, x, y, z, w, a, b, v);
04012        a=0.4288273776062765;
04013        b=0.3363641488734497;
04014        v=0.3466757899705373e-3;
04015        GEN_OH( 6, N, x, y, z, w, a, b, v);
04016        a=0.4677662471302948;
04017        b=0.3753400029836788;
04018        v=0.3516095923230054e-3;
04019        GEN_OH( 6, N, x, y, z, w, a, b, v);
04020        a=0.5051333589553359;
04021        b=0.4131297522144286;
04022        v=0.3549645184048486e-3;
04023        GEN_OH( 6, N, x, y, z, w, a, b, v);
04024        a=0.5406942145810492;
04025        b=0.4494423776081795;
04026        v=0.3570415969441392e-3;
04027        GEN_OH( 6, N, x, y, z, w, a, b, v);
04028        a=0.5742204122576457;
04029        b=0.4839938958841502;
04030        v=0.3581251798496118e-3;
04031        GEN_OH( 6, N, x, y, z, w, a, b, v);
04032        a=0.1865407027225188;
04033        b=0.3259144851070796e-1;
04034        v=0.2543491329913348e-3;
04035        GEN_OH( 6, N, x, y, z, w, a, b, v);
04036        a=0.2321186453689432;
04037        b=0.6835679505297343e-1;
04038        v=0.2786711051330776e-3;
04039        GEN_OH( 6, N, x, y, z, w, a, b, v);
04040        a=0.2773159142523882;
04041        b=0.1062284864451989;
04042        v=0.2985552361083679e-3;
04043        GEN_OH( 6, N, x, y, z, w, a, b, v);
04044        a=0.3219200192237254;
04045        b=0.1454404409323047;
04046        v=0.3145867929154039e-3;
04047        GEN_OH( 6, N, x, y, z, w, a, b, v);
04048        a=0.3657032593944029;
04049        b=0.1854018282582510;
04050        v=0.3273290662067609e-3;
04051        GEN_OH( 6, N, x, y, z, w, a, b, v);
04052        a=0.4084376778363622;
04053        b=0.2256297412014750;
04054        v=0.3372705511943501e-3;
04055        GEN_OH( 6, N, x, y, z, w, a, b, v);
04056        a=0.4499004945751427;
04057        b=0.2657104425000896;
04058        v=0.3448274437851510e-3;
04059        GEN_OH( 6, N, x, y, z, w, a, b, v);
04060        a=0.4898758141326335;
04061        b=0.3052755487631557;
04062        v=0.3503592783048583e-3;
04063        GEN_OH( 6, N, x, y, z, w, a, b, v);
04064        a=0.5281547442266309;
04065        b=0.3439863920645423;
04066        v=0.3541854792663162e-3;
04067        GEN_OH( 6, N, x, y, z, w, a, b, v);
04068        a=0.5645346989813992;
04069        b=0.3815229456121914;
04070        v=0.3565995517909428e-3;
04071        GEN_OH( 6, N, x, y, z, w, a, b, v);
04072        a=0.5988181252159848;
04073        b=0.4175752420966734;
04074        v=0.3578802078302898e-3;
04075        GEN_OH( 6, N, x, y, z, w, a, b, v);
04076        a=0.2850425424471603;
04077        b=0.3562149509862536e-1;
04078        v=0.2958644592860982e-3;
04079        GEN_OH( 6, N, x, y, z, w, a, b, v);
04080        a=0.3324619433027876;
04081        b=0.7330318886871096e-1;
04082        v=0.3119548129116835e-3;
04083        GEN_OH( 6, N, x, y, z, w, a, b, v);
04084        a=0.3785848333076282;
04085        b=0.1123226296008472;
04086        v=0.3250745225005984e-3;
04087        GEN_OH( 6, N, x, y, z, w, a, b, v);
04088        a=0.4232891028562115;
04089        b=0.1521084193337708;
04090        v=0.3355153415935208e-3;
04091        GEN_OH( 6, N, x, y, z, w, a, b, v);
04092        a=0.4664287050829722;
04093        b=0.1921844459223610;
04094        v=0.3435847568549328e-3;
04095        GEN_OH( 6, N, x, y, z, w, a, b, v);
04096        a=0.5078458493735726;
04097        b=0.2321360989678303 ;
04098        v=0.3495786831622488e-3;
04099        GEN_OH( 6, N, x, y, z, w, a, b, v);
04100        a=0.5473779816204180;
04101        b=0.2715886486360520;
04102        v=0.3537767805534621e-3;
04103        GEN_OH( 6, N, x, y, z, w, a, b, v);
04104        a=0.5848617133811376;
04105        b=0.3101924707571355;
04106        v=0.3564459815421428e-3;
04107        GEN_OH( 6, N, x, y, z, w, a, b, v);
04108        a=0.6201348281584888;
04109        b=0.3476121052890973;
04110        v=0.3578464061225468e-3;
04111        GEN_OH( 6, N, x, y, z, w, a, b, v);
04112        a=0.3852191185387871;
04113        b=0.3763224880035108e-1;
04114        v=0.3239748762836212e-3;
04115        GEN_OH( 6, N, x, y, z, w, a, b, v);
04116        a=0.4325025061073423;
04117        b=0.7659581935637135e-1;
04118        v=0.3345491784174287e-3;
04119        GEN_OH( 6, N, x, y, z, w, a, b, v);
04120        a=0.4778486229734490;
04121        b=0.1163381306083900;
04122        v=0.3429126177301782e-3;
04123        GEN_OH( 6, N, x, y, z, w, a, b, v);
04124        a=0.5211663693009000;
04125        b=0.1563890598752899;
04126        v=0.3492420343097421e-3;
04127        GEN_OH( 6, N, x, y, z, w, a, b, v);
04128        a=0.5623469504853703;
04129        b=0.1963320810149200;
04130        v=0.3537399050235257e-3;
04131        GEN_OH( 6, N, x, y, z, w, a, b, v);
04132        a=0.6012718188659246;
04133        b=0.2357847407258738;
04134        v=0.3566209152659172e-3;
04135        GEN_OH( 6, N, x, y, z, w, a, b, v);
04136        a=0.6378179206390117;
04137        b=0.2743846121244060;
04138        v=0.3581084321919782e-3;
04139        GEN_OH( 6, N, x, y, z, w, a, b, v);
04140        a=0.4836936460214534;
04141        b=0.3895902610739024e-1;
04142        v=0.3426522117591512e-3;
04143        GEN_OH( 6, N, x, y, z, w, a, b, v);
04144        a=0.5293792562683797;
04145        b=0.7871246819312640e-1;
04146        v=0.3491848770121379e-3;
04147        GEN_OH( 6, N, x, y, z, w, a, b, v);
04148        a=0.5726281253100033;
04149        b=0.1187963808202981;
04150        v=0.3539318235231476e-3;
04151        GEN_OH( 6, N, x, y, z, w, a, b, v);
04152        a=0.6133658776169068;
04153        b=0.1587914708061787;
04154        v=0.3570231438458694e-3;
04155        GEN_OH( 6, N, x, y, z, w, a, b, v);
04156        a=0.6515085491865307 ;
04157        b=0.1983058575227646;
04158        v=0.3586207335051714e-3;
04159        GEN_OH( 6, N, x, y, z, w, a, b, v);
04160        a=0.5778692716064976;
04161        b=0.3977209689791542e-1;
04162        v=0.3541196205164025e-3;
04163        GEN_OH( 6, N, x, y, z, w, a, b, v);
04164        a=0.6207904288086192;
04165        b=0.7990157592981152e-1;
04166        v=0.3574296911573953e-3;
04167        GEN_OH( 6, N, x, y, z, w, a, b, v);
04168        a=0.6608688171046802;
04169        b=0.1199671308754309;
04170        v=0.3591993279818963e-3;
04171        GEN_OH( 6, N, x, y, z, w, a, b, v);
04172        a=0.6656263089489130;
04173        b=0.4015955957805969e-1;
04174        v=0.3595855034661997e-3;
04175        GEN_OH( 6, N, x, y, z, w, a, b, v);
04176        N=N-1;
04177        //RETURN
04178 }  //       END
04179        void LD3470(double* x,double* y,double* z,double* w){
04180 /*     double x[3470];
04181        double y[3470];
04182        double z[3470];
04183        double w[3470];     */
04184        int N;
04185        double a=0.0,b=0.0,v=0.0;
04186 /*
04187 CVW
04188 CVW    LEBEDEV 3470-POINT ANGULAR GRID
04189 CVW
04190 chvd
04191 chvd   This subroutine is part of a set of subroutines that generate
04192 chvd   Lebedev grids [1-6] for integration on a sphere. The original
04193 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
04194 chvd   translated into fortran by Dr. Christoph van Wuellen.
04195 chvd   This subroutine was translated using a C to fortran77 conversion
04196 chvd   tool written by Dr. Christoph van Wuellen.
04197 chvd
04198 chvd   Users of this code are asked to include reference [1] in their
04199 chvd   publications, and in the user- and programmers-manuals
04200 chvd   describing their codes.
04201 chvd
04202 chvd   This code was distributed through CCL (http://www.ccl.net/).
04203 chvd
04204 chvd   [1] V.I. Lebedev, and D.N. Laikov
04205 chvd       "A quadrature formula for the sphere of the 131st
04206 chvd        algebraic order of accuracy"
04207 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
04208 chvd
04209 chvd   [2] V.I. Lebedev
04210 chvd       "A quadrature formula for the sphere of 59th algebraic
04211 chvd        order of accuracy"
04212 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
04213 chvd
04214 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
04215 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
04216 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
04217 chvd
04218 chvd   [4] V.I. Lebedev
04219 chvd       "Spherical quadrature formulas exact to orders 25-29"
04220 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
04221 chvd
04222 chvd   [5] V.I. Lebedev
04223 chvd       "Quadratures on a sphere"
04224 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
04225 chvd       1976, pp. 10-24.
04226 chvd
04227 chvd   [6] V.I. Lebedev
04228 chvd       "Values of the nodes and weights of ninth to seventeenth
04229 chvd        order Gauss-Markov quadrature formulae invariant under the
04230 chvd        octahedron group with inversion"
04231 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
04232 chvd       1975, pp. 44-51.
04233 chvd
04234 */
04235        N=1;
04236        v=0.2040382730826330e-4;
04237        GEN_OH( 1, N, x, y, z, w, a, b, v);
04238        v=0.3178149703889544e-3;
04239        GEN_OH( 3, N, x, y, z, w, a, b, v);
04240        a=0.1721420832906233e-1;
04241        v=0.8288115128076110e-4;
04242        GEN_OH( 4, N, x, y, z, w, a, b, v);
04243        a=0.4408875374981770e-1;
04244        v=0.1360883192522954e-3;
04245        GEN_OH( 4, N, x, y, z, w, a, b, v);
04246        a=0.7594680813878681e-1;
04247        v=0.1766854454542662e-3;
04248        GEN_OH( 4, N, x, y, z, w, a, b, v);
04249        a=0.1108335359204799;;
04250        v=0.2083153161230153e-3;
04251        GEN_OH( 4, N, x, y, z, w, a, b, v);
04252        a=0.1476517054388567;
04253        v=0.2333279544657158e-3;
04254        GEN_OH( 4, N, x, y, z, w, a, b, v);
04255        a=0.1856731870860615;
04256        v=0.2532809539930247e-3;
04257        GEN_OH( 4, N, x, y, z, w, a, b, v);
04258        a=0.2243634099428821;
04259        v=0.2692472184211158e-3;
04260        GEN_OH( 4, N, x, y, z, w, a, b, v);
04261        a=0.2633006881662727;
04262        v=0.2819949946811885e-3;
04263        GEN_OH( 4, N, x, y, z, w, a, b, v);
04264        a=0.3021340904916283;
04265        v=0.2920953593973030e-3;
04266        GEN_OH( 4, N, x, y, z, w, a, b, v);
04267        a=0.3405594048030089;
04268        v=0.2999889782948352e-3;
04269        GEN_OH( 4, N, x, y, z, w, a, b, v);
04270        a=0.3783044434007372;
04271        v=0.3060292120496902e-3;
04272        GEN_OH( 4, N, x, y, z, w, a, b, v);
04273        a=0.4151194767407910;
04274        v=0.3105109167522192e-3;
04275        GEN_OH( 4, N, x, y, z, w, a, b, v);
04276        a=0.4507705766443257;
04277        v=0.3136902387550312e-3;
04278        GEN_OH( 4, N, x, y, z, w, a, b, v);
04279        a=0.4850346056573187;
04280        v=0.3157984652454632e-3;
04281        GEN_OH( 4, N, x, y, z, w, a, b, v);
04282        a=0.5176950817792470;
04283        v=0.3170516518425422e-3;
04284        GEN_OH( 4, N, x, y, z, w, a, b, v);
04285        a=0.5485384240820989;
04286        v=0.3176568425633755e-3;
04287        GEN_OH( 4, N, x, y, z, w, a, b, v);
04288        a=0.6039117238943308;
04289        v=0.3177198411207062e-3;
04290        GEN_OH( 4, N, x, y, z, w, a, b, v);
04291        a=0.6279956655573113 ;
04292        v=0.3175519492394733e-3;
04293        GEN_OH( 4, N, x, y, z, w, a, b, v);
04294        a=0.6493636169568952;
04295        v=0.3174654952634756e-3;
04296        GEN_OH( 4, N, x, y, z, w, a, b, v);
04297        a=0.6677644117704504;
04298        v=0.3175676415467654e-3;
04299        GEN_OH( 4, N, x, y, z, w, a, b, v);
04300        a=0.6829368572115624;
04301        v=0.3178923417835410e-3;
04302        GEN_OH( 4, N, x, y, z, w, a, b, v);
04303        a=0.6946195818184121;
04304        v=0.3183788287531909e-3;
04305        GEN_OH( 4, N, x, y, z, w, a, b, v);
04306        a=0.7025711542057026;
04307        v=0.3188755151918807e-3;
04308        GEN_OH( 4, N, x, y, z, w, a, b, v);
04309        a=0.7066004767140119;
04310        v=0.3191916889313849e-3;
04311        GEN_OH( 4, N, x, y, z, w, a, b, v);
04312        a=0.5132537689946062e-1;
04313        v=0.1231779611744508e-3;
04314        GEN_OH( 5, N, x, y, z, w, a, b, v);
04315        a=0.1297994661331225;
04316        v=0.1924661373839880e-3;
04317        GEN_OH( 5, N, x, y, z, w, a, b, v);
04318        a=0.2188852049401307;
04319        v=0.2380881867403424e-3;
04320        GEN_OH( 5, N, x, y, z, w, a, b, v);
04321        a=0.3123174824903457;
04322        v=0.2693100663037885e-3;
04323        GEN_OH( 5, N, x, y, z, w, a, b, v);
04324        a=0.4064037620738195;
04325        v=0.2908673382834366e-3;
04326        GEN_OH( 5, N, x, y, z, w, a, b, v);
04327        a=0.4984958396944782;
04328        v=0.3053914619381535e-3;
04329        GEN_OH( 5, N, x, y, z, w, a, b, v);
04330        a=0.5864975046021365;
04331        v=0.3143916684147777e-3;
04332        GEN_OH( 5, N, x, y, z, w, a, b, v);
04333        a=0.6686711634580175;
04334        v=0.3187042244055363e-3;
04335        GEN_OH( 5, N, x, y, z, w, a, b, v);
04336        a=0.8715738780835950e-1;
04337        b=0.2557175233367578e-1;
04338        v=0.1635219535869790e-3;
04339        GEN_OH( 6, N, x, y, z, w, a, b, v);
04340        a=0.1248383123134007;
04341        b=0.5604823383376681e-1;
04342        v=0.1968109917696070e-3;
04343        GEN_OH( 6, N, x, y, z, w, a, b, v);
04344        a=0.1638062693383378;
04345        b=0.8968568601900765e-1;
04346        v=0.2236754342249974e-3;
04347        GEN_OH( 6, N, x, y, z, w, a, b, v);
04348        a=0.2035586203373176;
04349        b=0.1254086651976279;
04350        v=0.2453186687017181e-3;
04351        GEN_OH( 6, N, x, y, z, w, a, b, v);
04352        a=0.2436798975293774;
04353        b=0.1624780150162012;
04354        v=0.2627551791580541e-3;
04355        GEN_OH( 6, N, x, y, z, w, a, b, v);
04356        a=0.2838207507773806;
04357        b=0.2003422342683208;
04358        v=0.2767654860152220e-3;
04359        GEN_OH( 6, N, x, y, z, w, a, b, v);
04360        a=0.3236787502217692;
04361        b=0.2385628026255263;
04362        v=0.2879467027765895e-3;
04363        GEN_OH( 6, N, x, y, z, w, a, b, v);
04364        a=0.3629849554840691;
04365        b=0.2767731148783578;
04366        v=0.2967639918918702e-3;
04367        GEN_OH( 6, N, x, y, z, w, a, b, v);
04368        a=0.4014948081992087;
04369        b=0.3146542308245309;
04370        v=0.3035900684660351e-3;
04371        GEN_OH( 6, N, x, y, z, w, a, b, v);
04372        a=0.4389818379260225;
04373        b=0.3519196415895088;
04374        v=0.3087338237298308e-3;
04375        GEN_OH( 6, N, x, y, z, w, a, b, v);
04376        a=0.4752331143674377;
04377        b=0.3883050984023654;
04378        v=0.3124608838860167e-3;
04379        GEN_OH( 6, N, x, y, z, w, a, b, v);
04380        a=0.5100457318374018;
04381        b=0.4235613423908649;
04382        v=0.3150084294226743e-3;
04383        GEN_OH( 6, N, x, y, z, w, a, b, v);
04384        a=0.5432238388954868;
04385        b=0.4574484717196220;
04386        v=0.3165958398598402e-3;
04387        GEN_OH( 6, N, x, y, z, w, a, b, v);
04388        a=0.5745758685072442;
04389        b=0.4897311639255524;
04390        v=0.3174320440957372e-3;
04391        GEN_OH( 6, N, x, y, z, w, a, b, v);
04392        a=0.1723981437592809;
04393        b=0.3010630597881105e-1;
04394        v=0.2182188909812599e-3;
04395        GEN_OH( 6, N, x, y, z, w, a, b, v);
04396        a=0.2149553257844597;
04397        b=0.6326031554204694e-1;
04398        v=0.2399727933921445e-3;
04399        GEN_OH( 6, N, x, y, z, w, a, b, v);
04400        a=0.2573256081247422;
04401        b=0.9848566980258631e-1;
04402        v=0.2579796133514652e-3;
04403        GEN_OH( 6, N, x, y, z, w, a, b, v);
04404        a=0.2993163751238106;
04405        b=0.1350835952384266;
04406        v=0.2727114052623535e-3;
04407        GEN_OH( 6, N, x, y, z, w, a, b, v);
04408        a=0.3407238005148000;
04409        b=0.1725184055442181;
04410        v=0.2846327656281355e-3;
04411        GEN_OH( 6, N, x, y, z, w, a, b, v);
04412        a=0.3813454978483264;
04413        b=0.2103559279730725;
04414        v=0.2941491102051334e-3;
04415        GEN_OH( 6, N, x, y, z, w, a, b, v);
04416        a=0.4209848104423343;
04417        b=0.2482278774554860;
04418        v=0.3016049492136107e-3;
04419        GEN_OH( 6, N, x, y, z, w, a, b, v);
04420        a=0.4594519699996300;
04421        b=0.2858099509982883;
04422        v=0.3072949726175648e-3;
04423        GEN_OH( 6, N, x, y, z, w, a, b, v);
04424        a=0.4965640166185930;
04425        b=0.3228075659915428;
04426        v=0.3114768142886460e-3;
04427        GEN_OH( 6, N, x, y, z, w, a, b, v);
04428        a=0.5321441655571562;
04429        b=0.3589459907204151;
04430        v=0.3143823673666223e-3;
04431        GEN_OH( 6, N, x, y, z, w, a, b, v);
04432        a=0.5660208438582166;
04433        b=0.3939630088864310;
04434        v=0.3162269764661535e-3;
04435        GEN_OH( 6, N, x, y, z, w, a, b, v);
04436        a=0.5980264315964364;
04437        b=0.4276029922949089;
04438        v=0.3172164663759821e-3;
04439        GEN_OH( 6, N, x, y, z, w, a, b, v);
04440        a=0.2644215852350733;
04441        b=0.3300939429072552e-1;
04442        v=0.2554575398967435e-3;
04443        GEN_OH( 6, N, x, y, z, w, a, b, v);
04444        a=0.3090113743443063;
04445        b=0.6803887650078501e-1;
04446        v=0.2701704069135677e-3;
04447        GEN_OH( 6, N, x, y, z, w, a, b, v);
04448        a=0.3525871079197808;
04449        b=0.1044326136206709;
04450        v=0.2823693413468940e-3;
04451        GEN_OH( 6, N, x, y, z, w, a, b, v);
04452        a=0.3950418005354029;
04453        b=0.1416751597517679;
04454        v=0.2922898463214289e-3;
04455        GEN_OH( 6, N, x, y, z, w, a, b, v);
04456        a=0.4362475663430163;
04457        b=0.1793408610504821;
04458        v=0.3001829062162428e-3;
04459        GEN_OH( 6, N, x, y, z, w, a, b, v);
04460        a=0.4760661812145854;
04461        b=0.2170630750175722;
04462        v=0.3062890864542953e-3;
04463        GEN_OH( 6, N, x, y, z, w, a, b, v);
04464        a=0.5143551042512103;
04465        b=0.2545145157815807;
04466        v=0.3108328279264746e-3;
04467        GEN_OH( 6, N, x, y, z, w, a, b, v);
04468        a=0.5509709026935597;
04469        b=0.2913940101706601;
04470        v=0.3140243146201245e-3;
04471        GEN_OH( 6, N, x, y, z, w, a, b, v);
04472        a=0.5857711030329428;
04473        b=0.3274169910910705;
04474        v=0.3160638030977130e-3;
04475        GEN_OH( 6, N, x, y, z, w, a, b, v);
04476        a=0.6186149917404392;
04477        b=0.3623081329317265;
04478        v=0.3171462882206275e-3;
04479        GEN_OH( 6, N, x, y, z, w, a, b, v);
04480        a=0.3586894569557064;
04481        b=0.3497354386450040e-1;
04482        v=0.2812388416031796e-3;
04483        GEN_OH( 6, N, x, y, z, w, a, b, v);
04484        a=0.4035266610019441;
04485        b=0.7129736739757095e-1;
04486        v=0.2912137500288045e-3;
04487        GEN_OH( 6, N, x, y, z, w, a, b, v);
04488        a=0.4467775312332510;
04489        b=0.1084758620193165;
04490        v=0.2993241256502206e-3;
04491        GEN_OH( 6, N, x, y, z, w, a, b, v);
04492        a=0.4883638346608543;
04493        b=0.1460915689241772;
04494        v=0.3057101738983822e-3;
04495        GEN_OH( 6, N, x, y, z, w, a, b, v);
04496        a=0.5281908348434601;
04497        b=0.1837790832369980;
04498        v=0.3105319326251432e-3;
04499        GEN_OH( 6, N, x, y, z, w, a, b, v);
04500        a=0.5661542687149311;
04501        b=0.2212075390874021;
04502        v=0.3139565514428167e-3;
04503        GEN_OH( 6, N, x, y, z, w, a, b, v);
04504        a=0.6021450102031452 ;
04505        b=0.2580682841160985 ;
04506        v=0.3161543006806366e-3;
04507        GEN_OH( 6, N, x, y, z, w, a, b, v);
04508        a=0.6360520783610050 ;
04509        b=0.2940656362094121;
04510        v=0.3172985960613294e-3;
04511        GEN_OH( 6, N, x, y, z, w, a, b, v);
04512        a=0.4521611065087196;
04513        b=0.3631055365867002e-1;
04514        v=0.2989400336901431e-3;
04515        GEN_OH( 6, N, x, y, z, w, a, b, v);
04516        a=0.4959365651560963;
04517        b=0.7348318468484350e-1;
04518        v=0.3054555883947677e-3;
04519        GEN_OH( 6, N, x, y, z, w, a, b, v);
04520        a=0.5376815804038283;
04521        b=0.1111087643812648;
04522        v=0.3104764960807702e-3;
04523        GEN_OH( 6, N, x, y, z, w, a, b, v);
04524        a=0.5773314480243768;
04525        b=0.1488226085145408;
04526        v=0.3141015825977616e-3;
04527        GEN_OH( 6, N, x, y, z, w, a, b, v);
04528        a=0.6148113245575056;
04529        b=0.1862892274135151;
04530        v=0.3164520621159896e-3;
04531        GEN_OH( 6, N, x, y, z, w, a, b, v);
04532        a=0.6500407462842380;
04533        b=0.2231909701714456;
04534        v=0.3176652305912204e-3;
04535        GEN_OH( 6, N, x, y, z, w, a, b, v);
04536        a=0.5425151448707213;
04537        b=0.3718201306118944e-1;
04538        v=0.3105097161023939e-3;
04539        GEN_OH( 6, N, x, y, z, w, a, b, v);
04540        a=0.5841860556907931;
04541        b=0.7483616335067346e-1;
04542        v=0.3143014117890550e-3;
04543        GEN_OH( 6, N, x, y, z, w, a, b, v);
04544        a=0.6234632186851500;
04545        b=0.1125990834266120;
04546        v=0.3168172866287200e-3;
04547        GEN_OH( 6, N, x, y, z, w, a, b, v);
04548        a=0.6602934551848843;
04549        b=0.1501303813157619;
04550        v=0.3181401865570968e-3;
04551        GEN_OH( 6, N, x, y, z, w, a, b, v);
04552        a=0.6278573968375105;
04553        b=0.3767559930245720e-1;
04554        v=0.3170663659156037e-3;
04555        GEN_OH( 6, N, x, y, z, w, a, b, v);
04556        a=0.6665611711264577;
04557        b=0.7548443301360158e-1;
04558        v=0.3185447944625510e-3;
04559        GEN_OH( 6, N, x, y, z, w, a, b, v);
04560        N=N-1;
04561        //RETURN
04562 }  //       END
04563        void LD3890(double* x,double* y,double* z,double* w){
04564 /*     double x[3890];
04565        double y[3890];
04566        double z[3890];
04567        double w[3890];      */
04568        int N;
04569        double a=0.0,b=0.0,v=0.0;
04570 /*
04571 CVW
04572 CVW    LEBEDEV 3890-POINT ANGULAR GRID
04573 CVW
04574 chvd
04575 chvd   This subroutine is part of a set of subroutines that generate
04576 chvd   Lebedev grids [1-6] for integration on a sphere. The original
04577 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
04578 chvd   translated into fortran by Dr. Christoph van Wuellen.
04579 chvd   This subroutine was translated using a C to fortran77 conversion
04580 chvd   tool written by Dr. Christoph van Wuellen.
04581 chvd
04582 chvd   Users of this code are asked to include reference [1] in their
04583 chvd   publications, and in the user- and programmers-manuals
04584 chvd   describing their codes.
04585 chvd
04586 chvd   This code was distributed through CCL (http://www.ccl.net/).
04587 chvd
04588 chvd   [1] V.I. Lebedev, and D.N. Laikov
04589 chvd       "A quadrature formula for the sphere of the 131st
04590 chvd        algebraic order of accuracy"
04591 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
04592 chvd
04593 chvd   [2] V.I. Lebedev
04594 chvd       "A quadrature formula for the sphere of 59th algebraic
04595 chvd        order of accuracy"
04596 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
04597 chvd
04598 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
04599 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
04600 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
04601 chvd
04602 chvd   [4] V.I. Lebedev
04603 chvd       "Spherical quadrature formulas exact to orders 25-29"
04604 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
04605 chvd
04606 chvd   [5] V.I. Lebedev
04607 chvd       "Quadratures on a sphere"
04608 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
04609 chvd       1976, pp. 10-24.
04610 chvd
04611 chvd   [6] V.I. Lebedev
04612 chvd       "Values of the nodes and weights of ninth to seventeenth
04613 chvd        order Gauss-Markov quadrature formulae invariant under the
04614 chvd        octahedron group with inversion"
04615 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
04616 chvd       1975, pp. 44-51.
04617 chvd
04618 */
04619        N=1;
04620        v=0.1807395252196920e-4;
04621        GEN_OH( 1, N, x, y, z, w, a, b, v);
04622        v=0.2848008782238827e-3;
04623        GEN_OH( 2, N, x, y, z, w, a, b, v);
04624        v=0.2836065837530581e-3;
04625        GEN_OH( 3, N, x, y, z, w, a, b, v);
04626        a=0.1587876419858352e-1;
04627        v=0.7013149266673816e-4;
04628        GEN_OH( 4, N, x, y, z, w, a, b, v);
04629        a=0.4069193593751206e-1;
04630        v=0.1162798021956766e-3;
04631        GEN_OH( 4, N, x, y, z, w, a, b, v);
04632        a=0.7025888115257997e-1;
04633        v=0.1518728583972105e-3;
04634        GEN_OH( 4, N, x, y, z, w, a, b, v);
04635        a=0.1027495450028704;
04636        v=0.1798796108216934e-3;
04637        GEN_OH( 4, N, x, y, z, w, a, b, v);
04638        a=0.1371457730893426;
04639        v=0.2022593385972785e-3;
04640        GEN_OH( 4, N, x, y, z, w, a, b, v);
04641        a=0.1727758532671953;
04642        v=0.2203093105575464e-3;
04643        GEN_OH( 4, N, x, y, z, w, a, b, v);
04644        a=0.2091492038929037;
04645        v=0.2349294234299855e-3;
04646        GEN_OH( 4, N, x, y, z, w, a, b, v);
04647        a=0.2458813281751915;
04648        v=0.2467682058747003e-3;
04649        GEN_OH( 4, N, x, y, z, w, a, b, v);
04650        a=0.2826545859450066;
04651        v=0.2563092683572224e-3;
04652        GEN_OH( 4, N, x, y, z, w, a, b, v);
04653        a=0.3191957291799622;
04654        v=0.2639253896763318e-3;
04655        GEN_OH( 4, N, x, y, z, w, a, b, v);
04656        a=0.3552621469299578;
04657        v=0.2699137479265108e-3;
04658        GEN_OH( 4, N, x, y, z, w, a, b, v);
04659        a=0.3906329503406230;
04660        v=0.2745196420166739e-3;
04661        GEN_OH( 4, N, x, y, z, w, a, b, v);
04662        a=0.4251028614093031;
04663        v=0.2779529197397593e-3;
04664        GEN_OH( 4, N, x, y, z, w, a, b, v);
04665        a=0.4584777520111870;
04666        v=0.2803996086684265e-3;
04667        GEN_OH( 4, N, x, y, z, w, a, b, v);
04668        a=0.4905711358710193;
04669        v=0.2820302356715842e-3;
04670        GEN_OH( 4, N, x, y, z, w, a, b, v);
04671        a=0.5212011669847385;
04672        v=0.2830056747491068e-3;
04673        GEN_OH( 4, N, x, y, z, w, a, b, v);
04674        a=0.5501878488737995;
04675        v=0.2834808950776839e-3;
04676        GEN_OH( 4, N, x, y, z, w, a, b, v);
04677        a=0.6025037877479342;
04678        v=0.2835282339078929e-3;
04679        GEN_OH( 4, N, x, y, z, w, a, b, v);
04680        a=0.6254572689549016 ;
04681        v=0.2833819267065800e-3;
04682        GEN_OH( 4, N, x, y, z, w, a, b, v);
04683        a=0.6460107179528248;
04684        v=0.2832858336906784e-3;
04685        GEN_OH( 4, N, x, y, z, w, a, b, v);
04686        a=0.6639541138154251;
04687        v=0.2833268235451244e-3;
04688        GEN_OH( 4, N, x, y, z, w, a, b, v);
04689        a=0.6790688515667495;
04690        v=0.2835432677029253e-3;
04691        GEN_OH( 4, N, x, y, z, w, a, b, v);
04692        a=0.6911338580371512;
04693        v=0.2839091722743049e-3;
04694        GEN_OH( 4, N, x, y, z, w, a, b, v);
04695        a=0.6999385956126490;
04696        v=0.2843308178875841e-3;
04697        GEN_OH( 4, N, x, y, z, w, a, b, v);
04698        a=0.7053037748656896;
04699        v=0.2846703550533846e-3;
04700        GEN_OH( 4, N, x, y, z, w, a, b, v);
04701        a=0.4732224387180115e-1;
04702        v=0.1051193406971900e-3;
04703        GEN_OH( 5, N, x, y, z, w, a, b, v);
04704        a=0.1202100529326803;
04705        v=0.1657871838796974e-3;
04706        GEN_OH( 5, N, x, y, z, w, a, b, v);
04707        a=0.2034304820664855;
04708        v=0.2064648113714232e-3;
04709        GEN_OH( 5, N, x, y, z, w, a, b, v);
04710        a=0.2912285643573002;
04711        v=0.2347942745819741e-3;
04712        GEN_OH( 5, N, x, y, z, w, a, b, v);
04713        a=0.3802361792726768;
04714        v=0.2547775326597726e-3;
04715        GEN_OH( 5, N, x, y, z, w, a, b, v);
04716        a=0.4680598511056146;
04717        v=0.2686876684847025e-3;
04718        GEN_OH( 5, N, x, y, z, w, a, b, v);
04719        a=0.5528151052155599;
04720        v=0.2778665755515867e-3;
04721        GEN_OH( 5, N, x, y, z, w, a, b, v);
04722        a=0.6329386307803041;
04723        v=0.2830996616782929e-3;
04724        GEN_OH( 5, N, x, y, z, w, a, b, v);
04725        a=0.8056516651369069e-1;
04726        b=0.2363454684003124e-1;
04727        v=0.1403063340168372e-3;
04728        GEN_OH( 6, N, x, y, z, w, a, b, v);
04729        a=0.1156476077139389;
04730        b=0.5191291632545936e-1;
04731        v=0.1696504125939477e-3;
04732        GEN_OH( 6, N, x, y, z, w, a, b, v);
04733        a=0.1520473382760421;
04734        b=0.8322715736994519e-1;
04735        v=0.1935787242745390e-3;
04736        GEN_OH( 6, N, x, y, z, w, a, b, v);
04737        a=0.1892986699745931;
04738        b=0.1165855667993712;
04739        v=0.2130614510521968e-3;
04740        GEN_OH( 6, N, x, y, z, w, a, b, v);
04741        a=0.2270194446777792;
04742        b=0.1513077167409504;
04743        v=0.2289381265931048e-3;
04744        GEN_OH( 6, N, x, y, z, w, a, b, v);
04745        a=0.2648908185093273;
04746        b=0.1868882025807859;
04747        v=0.2418630292816186e-3;
04748        GEN_OH( 6, N, x, y, z, w, a, b, v);
04749        a=0.3026389259574136;
04750        b=0.2229277629776224;
04751        v=0.2523400495631193e-3;
04752        GEN_OH( 6, N, x, y, z, w, a, b, v);
04753        a=0.3400220296151384;
04754        b=0.2590951840746235;
04755        v=0.2607623973449605e-3;
04756        GEN_OH( 6, N, x, y, z, w, a, b, v);
04757        a=0.3768217953335510;
04758        b=0.2951047291750847;
04759        v=0.2674441032689209e-3;
04760        GEN_OH( 6, N, x, y, z, w, a, b, v);
04761        a=0.4128372900921884;
04762        b=0.3307019714169930;
04763        v=0.2726432360343356e-3;
04764        GEN_OH( 6, N, x, y, z, w, a, b, v);
04765        a=0.4478807131815630;
04766        b=0.3656544101087634;
04767        v=0.2765787685924545e-3;
04768        GEN_OH( 6, N, x, y, z, w, a, b, v);
04769        a=0.4817742034089257;
04770        b=0.3997448951939695;
04771        v=0.2794428690642224e-3;
04772        GEN_OH( 6, N, x, y, z, w, a, b, v);
04773        a=0.5143472814653344;
04774        b=0.4327667110812024;
04775        v=0.2814099002062895e-3;
04776        GEN_OH( 6, N, x, y, z, w, a, b, v);
04777        a=0.5454346213905650;
04778        b=0.4645196123532293;
04779        v=0.2826429531578994e-3;
04780        GEN_OH( 6, N, x, y, z, w, a, b, v);
04781        a=0.5748739313170252;
04782        b=0.4948063555703345;
04783        v=0.2832983542550884e-3;
04784        GEN_OH( 6, N, x, y, z, w, a, b, v);
04785        a=0.1599598738286342;
04786        b=0.2792357590048985e-1;
04787        v=0.1886695565284976e-3;
04788        GEN_OH( 6, N, x, y, z, w, a, b, v);
04789        a=0.1998097412500951;
04790        b=0.5877141038139065e-1;
04791        v=0.2081867882748234e-3;
04792        GEN_OH( 6, N, x, y, z, w, a, b, v);
04793        a=0.2396228952566202;
04794        b=0.9164573914691377e-1;
04795        v=0.2245148680600796e-3;
04796        GEN_OH( 6, N, x, y, z, w, a, b, v);
04797        a=0.2792228341097746;
04798        b=0.1259049641962687;
04799        v=0.2380370491511872e-3;
04800        GEN_OH( 6, N, x, y, z, w, a, b, v);
04801        a=0.3184251107546741;
04802        b=0.1610594823400863;
04803        v=0.2491398041852455e-3;
04804        GEN_OH( 6, N, x, y, z, w, a, b, v);
04805        a=0.3570481164426244;
04806        b=0.1967151653460898;
04807        v=0.2581632405881230e-3;
04808        GEN_OH( 6, N, x, y, z, w, a, b, v);
04809        a=0.3949164710492144;
04810        b=0.2325404606175168;
04811        v=0.2653965506227417e-3;
04812        GEN_OH( 6, N, x, y, z, w, a, b, v);
04813        a=0.4318617293970503;
04814        b=0.2682461141151439;
04815        v=0.2710857216747087e-3;
04816        GEN_OH( 6, N, x, y, z, w, a, b, v);
04817        a=0.4677221009931678;
04818        b=0.3035720116011973;
04819        v=0.2754434093903659e-3;
04820        GEN_OH( 6, N, x, y, z, w, a, b, v);
04821        a=0.5023417939270955 ;
04822        b=0.3382781859197439;
04823        v=0.2786579932519380e-3;
04824        GEN_OH( 6, N, x, y, z, w, a, b, v);
04825        a=0.5355701836636128;
04826        b=0.3721383065625942;
04827        v=0.2809011080679474e-3;
04828        GEN_OH( 6, N, x, y, z, w, a, b, v);
04829        a=0.5672608451328771;
04830        b=0.4049346360466055;
04831        v=0.2823336184560987e-3;
04832        GEN_OH( 6, N, x, y, z, w, a, b, v);
04833        a=0.5972704202540162;
04834        b=0.4364538098633802;
04835        v=0.2831101175806309e-3;
04836        GEN_OH( 6, N, x, y, z, w, a, b, v);
04837        a=0.2461687022333596;
04838        b=0.3070423166833368e-1;
04839        v=0.2221679970354546e-3;
04840        GEN_OH( 6, N, x, y, z, w, a, b, v);
04841        a=0.2881774566286831;
04842        b=0.6338034669281885e-1;
04843        v=0.2356185734270703e-3;
04844        GEN_OH( 6, N, x, y, z, w, a, b, v);
04845        a=0.3293963604116978;
04846        b=0.9742862487067941e-1;
04847        v=0.2469228344805590e-3;
04848        GEN_OH( 6, N, x, y, z, w, a, b, v);
04849        a=0.3697303822241377;
04850        b=0.1323799532282290;
04851        v=0.2562726348642046e-3;
04852        GEN_OH( 6, N, x, y, z, w, a, b, v);
04853        a=0.4090663023135127;
04854        b=0.1678497018129336;
04855        v=0.2638756726753028e-3;
04856        GEN_OH( 6, N, x, y, z, w, a, b, v);
04857        a=0.4472819355411712;
04858        b=0.2035095105326114;
04859        v=0.2699311157390862e-3;
04860        GEN_OH( 6, N, x, y, z, w, a, b, v);
04861        a=0.4842513377231437;
04862        b=0.2390692566672091;
04863        v=0.2746233268403837e-3;
04864        GEN_OH( 6, N, x, y, z, w, a, b, v);
04865        a=0.5198477629962928;
04866        b=0.2742649818076149;
04867        v=0.2781225674454771e-3;
04868        GEN_OH( 6, N, x, y, z, w, a, b, v);
04869        a=0.5539453011883145;
04870        b=0.3088503806580094;
04871        v=0.2805881254045684e-3;
04872        GEN_OH( 6, N, x, y, z, w, a, b, v);
04873        a=0.5864196762401251;
04874        b=0.3425904245906614;
04875        v=0.2821719877004913e-3;
04876        GEN_OH( 6, N, x, y, z, w, a, b, v);
04877        a=0.6171484466668390;
04878        b=0.3752562294789468;
04879        v=0.2830222502333124e-3;
04880        GEN_OH( 6, N, x, y, z, w, a, b, v);
04881        a=0.3350337830565727;
04882        b=0.3261589934634747e-1;
04883        v=0.2457995956744870e-3;
04884        GEN_OH( 6, N, x, y, z, w, a, b, v);
04885        a=0.3775773224758284;
04886        b=0.6658438928081572e-1;
04887        v=0.2551474407503706e-3;
04888        GEN_OH( 6, N, x, y, z, w, a, b, v);
04889        a=0.4188155229848973;
04890        b=0.1014565797157954;
04891        v=0.2629065335195311e-3;
04892        GEN_OH( 6, N, x, y, z, w, a, b, v);
04893        a=0.4586805892009344;
04894        b=0.1368573320843822;
04895        v=0.2691900449925075e-3;
04896        GEN_OH( 6, N, x, y, z, w, a, b, v);
04897        a=0.4970895714224235;
04898        b=0.1724614851951608;
04899        v=0.2741275485754276e-3;
04900        GEN_OH( 6, N, x, y, z, w, a, b, v);
04901        a=0.5339505133960747;
04902        b=0.2079779381416412;
04903        v=0.2778530970122595e-3;
04904        GEN_OH( 6, N, x, y, z, w, a, b, v);
04905        a=0.5691665792531440;
04906        b=0.2431385788322288;
04907        v=0.2805010567646741e-3;
04908        GEN_OH( 6, N, x, y, z, w, a, b, v);
04909        a=0.6026387682680377;
04910        b=0.2776901883049853;
04911        v=0.2822055834031040e-3;
04912        GEN_OH( 6, N, x, y, z, w, a, b, v);
04913        a=0.6342676150163307;
04914        b=0.3113881356386632;
04915        v=0.2831016901243473e-3;
04916        GEN_OH( 6, N, x, y, z, w, a, b, v);
04917        a=0.4237951119537067;
04918        b=0.3394877848664351e-1;
04919        v=0.2624474901131803e-3;
04920        GEN_OH( 6, N, x, y, z, w, a, b, v);
04921        a=0.4656918683234929;
04922        b=0.6880219556291447e-1;
04923        v=0.2688034163039377e-3;
04924        GEN_OH( 6, N, x, y, z, w, a, b, v);
04925        a=0.5058857069185980;
04926        b=0.1041946859721635;
04927        v=0.2738932751287636e-3;
04928        GEN_OH( 6, N, x, y, z, w, a, b, v);
04929        a=0.5443204666713996;
04930        b=0.1398039738736393;
04931        v=0.2777944791242523e-3;
04932        GEN_OH( 6, N, x, y, z, w, a, b, v);
04933        a=0.5809298813759742;
04934        b=0.1753373381196155;
04935        v=0.2806011661660987e-3;
04936        GEN_OH( 6, N, x, y, z, w, a, b, v);
04937        a=0.6156416039447128;
04938        b=0.2105215793514010;
04939        v=0.2824181456597460e-3;
04940        GEN_OH( 6, N, x, y, z, w, a, b, v);
04941        a=0.6483801351066604;
04942        b=0.2450953312157051;
04943        v=0.2833585216577828e-3;
04944        GEN_OH( 6, N, x, y, z, w, a, b, v);
04945        a=0.5103616577251688;
04946        b=0.3485560643800719e-1;
04947        v=0.2738165236962878e-3;
04948        GEN_OH( 6, N, x, y, z, w, a, b, v);
04949        a=0.5506738792580681;
04950        b=0.7026308631512033e-1;
04951        v=0.2778365208203180e-3;
04952        GEN_OH( 6, N, x, y, z, w, a, b, v);
04953        a=0.5889573040995292;
04954        b=0.1059035061296403;
04955        v=0.2807852940418966e-3;
04956        GEN_OH( 6, N, x, y, z, w, a, b, v);
04957        a=0.6251641589516930;
04958        b=0.1414823925236026;
04959        v=0.2827245949674705e-3;
04960        GEN_OH( 6, N, x, y, z, w, a, b, v);
04961        a=0.6592414921570178;
04962        b=0.1767207908214530;
04963        v=0.2837342344829828e-3;
04964        GEN_OH( 6, N, x, y, z, w, a, b, v);
04965        a=0.5930314017533384;
04966        b=0.3542189339561672e-1;
04967        v=0.2809233907610981e-3;
04968        GEN_OH( 6, N, x, y, z, w, a, b, v);
04969        a=0.6309812253390175;
04970        b=0.7109574040369549e-1;
04971        v=0.2829930809742694e-3;
04972        GEN_OH( 6, N, x, y, z, w, a, b, v);
04973        a=0.6666296011353230;
04974        b=0.1067259792282730;
04975        v=0.2841097874111479e-3;
04976        GEN_OH( 6, N, x, y, z, w, a, b, v);
04977        a=0.6703715271049922;
04978        b=0.3569455268820809e-1;
04979        v=0.2843455206008783e-3;
04980        GEN_OH( 6, N, x, y, z, w, a, b, v);
04981        N=N-1;
04982        //RETURN
04983 }  //       END
04984        void LD4334(double* x,double* y,double* z,double* w){
04985 /*     double x[4334];
04986        double y[4334];
04987        double z[4334];
04988        double w[4334];   */
04989        int N;
04990        double a=0.0,b=0.0,v=0.0;
04991 /*
04992 CVW
04993 CVW    LEBEDEV 4334-POINT ANGULAR GRID
04994 CVW
04995 chvd
04996 chvd   This subroutine is part of a set of subroutines that generate
04997 chvd   Lebedev grids [1-6] for integration on a sphere. The original
04998 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
04999 chvd   translated into fortran by Dr. Christoph van Wuellen.
05000 chvd   This subroutine was translated using a C to fortran77 conversion
05001 chvd   tool written by Dr. Christoph van Wuellen.
05002 chvd
05003 chvd   Users of this code are asked to include reference [1] in their
05004 chvd   publications, and in the user- and programmers-manuals
05005 chvd   describing their codes.
05006 chvd
05007 chvd   This code was distributed through CCL (http://www.ccl.net/).
05008 chvd
05009 chvd   [1] V.I. Lebedev, and D.N. Laikov
05010 chvd       "A quadrature formula for the sphere of the 131st
05011 chvd        algebraic order of accuracy"
05012 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
05013 chvd
05014 chvd   [2] V.I. Lebedev
05015 chvd       "A quadrature formula for the sphere of 59th algebraic
05016 chvd        order of accuracy"
05017 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
05018 chvd
05019 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
05020 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
05021 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
05022 chvd
05023 chvd   [4] V.I. Lebedev
05024 chvd       "Spherical quadrature formulas exact to orders 25-29"
05025 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
05026 chvd
05027 chvd   [5] V.I. Lebedev
05028 chvd       "Quadratures on a sphere"
05029 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
05030 chvd       1976, pp. 10-24.
05031 chvd
05032 chvd   [6] V.I. Lebedev
05033 chvd       "Values of the nodes and weights of ninth to seventeenth
05034 chvd        order Gauss-Markov quadrature formulae invariant under the
05035 chvd        octahedron group with inversion"
05036 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
05037 chvd       1975, pp. 44-51.
05038 chvd
05039 */
05040        N=1;
05041        v=0.1449063022537883e-4;
05042        GEN_OH( 1, N, x, y, z, w, a, b, v);
05043        v=0.2546377329828424e-3;
05044        GEN_OH( 3, N, x, y, z, w, a, b, v);
05045        a=0.1462896151831013e-1;
05046        v=0.6018432961087496e-4;
05047        GEN_OH( 4, N, x, y, z, w, a, b, v);
05048        a=0.3769840812493139e-1;
05049        v=0.1002286583263673e-3;
05050        GEN_OH( 4, N, x, y, z, w, a, b, v);
05051        a=0.6524701904096891e-1;
05052        v=0.1315222931028093e-3;
05053        GEN_OH( 4, N, x, y, z, w, a, b, v);
05054        a=0.9560543416134648e-1;
05055        v=0.1564213746876724e-3;
05056        GEN_OH( 4, N, x, y, z, w, a, b, v);
05057        a=0.1278335898929198;
05058        v=0.1765118841507736e-3;
05059        GEN_OH( 4, N, x, y, z, w, a, b, v);
05060        a=0.1613096104466031;
05061        v=0.1928737099311080e-3;
05062        GEN_OH( 4, N, x, y, z, w, a, b, v);
05063        a=0.1955806225745371;
05064        v=0.2062658534263270e-3;
05065        GEN_OH( 4, N, x, y, z, w, a, b, v);
05066        a=0.2302935218498028;
05067        v=0.2172395445953787e-3;
05068        GEN_OH( 4, N, x, y, z, w, a, b, v);
05069        a=0.2651584344113027;
05070        v=0.2262076188876047e-3;
05071        GEN_OH( 4, N, x, y, z, w, a, b, v);
05072        a=0.2999276825183209;
05073        v=0.2334885699462397e-3;
05074        GEN_OH( 4, N, x, y, z, w, a, b, v);
05075        a=0.3343828669718798;
05076        v=0.2393355273179203e-3;
05077        GEN_OH( 4, N, x, y, z, w, a, b, v);
05078        a=0.3683265013750518;
05079        v=0.2439559200468863e-3;
05080        GEN_OH( 4, N, x, y, z, w, a, b, v);
05081        a=0.4015763206518108;
05082        v=0.2475251866060002e-3;
05083        GEN_OH( 4, N, x, y, z, w, a, b, v);
05084        a=0.4339612026399770;
05085        v=0.2501965558158773e-3;
05086        GEN_OH( 4, N, x, y, z, w, a, b, v);
05087        a=0.4653180651114582;
05088        v=0.2521081407925925e-3;
05089        GEN_OH( 4, N, x, y, z, w, a, b, v);
05090        a=0.4954893331080803;
05091        v=0.2533881002388081e-3;
05092        GEN_OH( 4, N, x, y, z, w, a, b, v);
05093        a=0.5243207068924930;
05094        v=0.2541582900848261e-3;
05095        GEN_OH( 4, N, x, y, z, w, a, b, v);
05096        a=0.5516590479041704;
05097        v=0.2545365737525860e-3;
05098        GEN_OH( 4, N, x, y, z, w, a, b, v);
05099        a=0.6012371927804176;
05100        v=0.2545726993066799e-3;
05101        GEN_OH( 4, N, x, y, z, w, a, b, v);
05102        a=0.6231574466449819;
05103        v=0.2544456197465555e-3;
05104        GEN_OH( 4, N, x, y, z, w, a, b, v);
05105        a=0.6429416514181271;
05106        v=0.2543481596881064e-3;
05107        GEN_OH( 4, N, x, y, z, w, a, b, v);
05108        a=0.6604124272943595;
05109        v=0.2543506451429194e-3;
05110        GEN_OH( 4, N, x, y, z, w, a, b, v);
05111        a=0.6753851470408250;
05112        v=0.2544905675493763e-3;
05113        GEN_OH( 4, N, x, y, z, w, a, b, v);
05114        a=0.6876717970626160;
05115        v=0.2547611407344429e-3;
05116        GEN_OH( 4, N, x, y, z, w, a, b, v);
05117        a=0.6970895061319234;
05118        v=0.2551060375448869e-3;
05119        GEN_OH( 4, N, x, y, z, w, a, b, v);
05120        a=0.7034746912553310;
05121        v=0.2554291933816039e-3;
05122        GEN_OH( 4, N, x, y, z, w, a, b, v);
05123        a=0.7067017217542295;
05124        v=0.2556255710686343e-3;
05125        GEN_OH( 4, N, x, y, z, w, a, b, v);
05126        a=0.4382223501131123e-1;
05127        v=0.9041339695118195e-4;
05128        GEN_OH( 5, N, x, y, z, w, a, b, v);
05129        a=0.1117474077400006;
05130        v=0.1438426330079022e-3;
05131        GEN_OH( 5, N, x, y, z, w, a, b, v);
05132        a=0.1897153252911440;
05133        v=0.1802523089820518e-3;
05134        GEN_OH( 5, N, x, y, z, w, a, b, v);
05135        a=0.2724023009910331;
05136        v=0.2060052290565496e-3;
05137        GEN_OH( 5, N, x, y, z, w, a, b, v);
05138        a=0.3567163308709902;
05139        v=0.2245002248967466e-3;
05140        GEN_OH( 5, N, x, y, z, w, a, b, v);
05141        a=0.4404784483028087;
05142        v=0.2377059847731150e-3;
05143        GEN_OH( 5, N, x, y, z, w, a, b, v);
05144        a=0.5219833154161411;
05145        v=0.2468118955882525e-3;
05146        GEN_OH( 5, N, x, y, z, w, a, b, v);
05147        a=0.5998179868977553;
05148        v=0.2525410872966528e-3;
05149        GEN_OH( 5, N, x, y, z, w, a, b, v);
05150        a=0.6727803154548222;
05151        v=0.2553101409933397e-3;
05152        GEN_OH( 5, N, x, y, z, w, a, b, v);
05153        a=0.7476563943166086e-1;
05154        b=0.2193168509461185e-1;
05155        v=0.1212879733668632e-3;
05156        GEN_OH( 6, N, x, y, z, w, a, b, v);
05157        a=0.1075341482001416;
05158        b=0.4826419281533887e-1;
05159        v=0.1472872881270931e-3;
05160        GEN_OH( 6, N, x, y, z, w, a, b, v);
05161        a=0.1416344885203259;
05162        b=0.7751191883575742e-1;
05163        v=0.1686846601010828e-3;
05164        GEN_OH( 6, N, x, y, z, w, a, b, v);
05165        a=0.1766325315388586;
05166        b=0.1087558139247680;
05167        v=0.1862698414660208e-3;
05168        GEN_OH( 6, N, x, y, z, w, a, b, v);
05169        a=0.2121744174481514;
05170        b=0.1413661374253096;
05171        v=0.2007430956991861e-3;
05172        GEN_OH( 6, N, x, y, z, w, a, b, v);
05173        a=0.2479669443408145;
05174        b=0.1748768214258880;
05175        v=0.2126568125394796e-3;
05176        GEN_OH( 6, N, x, y, z, w, a, b, v);
05177        a=0.2837600452294113;
05178        b=0.2089216406612073;
05179        v=0.2224394603372113e-3;
05180        GEN_OH( 6, N, x, y, z, w, a, b, v);
05181        a=0.3193344933193984;
05182        b=0.2431987685545972;
05183        v=0.2304264522673135e-3;
05184        GEN_OH( 6, N, x, y, z, w, a, b, v);
05185        a=0.3544935442438745;
05186        b=0.2774497054377770;
05187        v=0.2368854288424087e-3;
05188        GEN_OH( 6, N, x, y, z, w, a, b, v);
05189        a=0.3890571932288154;
05190        b=0.3114460356156915;
05191        v=0.2420352089461772e-3;
05192        GEN_OH( 6, N, x, y, z, w, a, b, v);
05193        a=0.4228581214259090;
05194        b=0.3449806851913012;
05195        v=0.2460597113081295e-3;
05196        GEN_OH( 6, N, x, y, z, w, a, b, v);
05197        a=0.4557387211304052;
05198        b=0.3778618641248256;
05199        v=0.2491181912257687e-3;
05200        GEN_OH( 6, N, x, y, z, w, a, b, v);
05201        a=0.4875487950541643;
05202        b=0.4099086391698978;
05203        v=0.2513528194205857e-3;
05204        GEN_OH( 6, N, x, y, z, w, a, b, v);
05205        a=0.5181436529962997;
05206        b=0.4409474925853973;
05207        v=0.2528943096693220e-3;
05208        GEN_OH( 6, N, x, y, z, w, a, b, v);
05209        a=0.5473824095600661;
05210        b=0.4708094517711291;
05211        v=0.2538660368488136e-3;
05212        GEN_OH( 6, N, x, y, z, w, a, b, v);
05213        a=0.5751263398976174;
05214        b=0.4993275140354637;
05215        v=0.2543868648299022e-3;
05216        GEN_OH( 6, N, x, y, z, w, a, b, v);
05217        a=0.1489515746840028;
05218        b=0.2599381993267017e-1;
05219        v=0.1642595537825183e-3;
05220        GEN_OH( 6, N, x, y, z, w, a, b, v);
05221        a=0.1863656444351767;
05222        b=0.5479286532462190e-1;
05223        v=0.1818246659849308e-3;
05224        GEN_OH( 6, N, x, y, z, w, a, b, v);
05225        a=0.2238602880356348;
05226        b=0.8556763251425254e-1;
05227        v=0.1966565649492420e-3;
05228        GEN_OH( 6, N, x, y, z, w, a, b, v);
05229        a=0.2612723375728160;
05230        b=0.1177257802267011;
05231        v=0.2090677905657991e-3;
05232        GEN_OH( 6, N, x, y, z, w, a, b, v);
05233        a=0.2984332990206190;
05234        b=0.1508168456192700;
05235        v=0.2193820409510504e-3;
05236        GEN_OH( 6, N, x, y, z, w, a, b, v);
05237        a=0.3351786584663333;
05238        b=0.1844801892177727;
05239        v=0.2278870827661928e-3;
05240        GEN_OH( 6, N, x, y, z, w, a, b, v);
05241        a=0.3713505522209120;
05242        b=0.2184145236087598;
05243        v=0.2348283192282090e-3;
05244        GEN_OH( 6, N, x, y, z, w, a, b, v);
05245        a=0.4067981098954663;
05246        b=0.2523590641486229;
05247        v=0.2404139755581477e-3;
05248        GEN_OH( 6, N, x, y, z, w, a, b, v);
05249        a=0.4413769993687534;
05250        b=0.2860812976901373;
05251        v=0.2448227407760734e-3;
05252        GEN_OH( 6, N, x, y, z, w, a, b, v);
05253        a=0.4749487182516394;
05254        b=0.3193686757808996;
05255        v=0.2482110455592573e-3;
05256        GEN_OH( 6, N, x, y, z, w, a, b, v);
05257        a=0.5073798105075426;
05258        b=0.3520226949547602;
05259        v=0.2507192397774103e-3;
05260        GEN_OH( 6, N, x, y, z, w, a, b, v);
05261        a=0.5385410448878654;
05262        b=0.3838544395667890;
05263        v=0.2524765968534880e-3;
05264        GEN_OH( 6, N, x, y, z, w, a, b, v);
05265        a=0.5683065353670530;
05266        b=0.4146810037640963;
05267        v=0.2536052388539425e-3;
05268        GEN_OH( 6, N, x, y, z, w, a, b, v);
05269        a=0.5965527620663510;
05270        b=0.4443224094681121;
05271        v=0.2542230588033068e-3;
05272        GEN_OH( 6, N, x, y, z, w, a, b, v);
05273        a=0.2299227700856157;
05274        b=0.2865757664057584e-1;
05275        v=0.1944817013047896e-3;
05276        GEN_OH( 6, N, x, y, z, w, a, b, v);
05277        a=0.2695752998553267;
05278        b=0.5923421684485993e-1;
05279        v=0.2067862362746635e-3;
05280        GEN_OH( 6, N, x, y, z, w, a, b, v);
05281        a=0.3086178716611389;
05282        b=0.9117817776057715e-1;
05283        v=0.2172440734649114e-3;
05284        GEN_OH( 6, N, x, y, z, w, a, b, v);
05285        a=0.3469649871659077;
05286        b=0.1240593814082605;
05287        v=0.2260125991723423e-3;
05288        GEN_OH( 6, N, x, y, z, w, a, b, v);
05289        a=0.3845153566319655;
05290        b=0.1575272058259175;
05291        v=0.2332655008689523e-3;
05292        GEN_OH( 6, N, x, y, z, w, a, b, v);
05293        a=0.4211600033403215;
05294        b=0.1912845163525413;
05295        v=0.2391699681532458e-3;
05296        GEN_OH( 6, N, x, y, z, w, a, b, v);
05297        a=0.4567867834329882;
05298        b=0.2250710177858171;
05299        v=0.2438801528273928e-3;
05300        GEN_OH( 6, N, x, y, z, w, a, b, v);
05301        a=0.4912829319232061;
05302        b=0.2586521303440910;
05303        v=0.2475370504260665e-3;
05304        GEN_OH( 6, N, x, y, z, w, a, b, v);
05305        a=0.5245364793303812;
05306        b=0.2918112242865407;
05307        v=0.2502707235640574e-3;
05308        GEN_OH( 6, N, x, y, z, w, a, b, v);
05309        a=0.5564369788915756;
05310        b=0.3243439239067890;
05311        v=0.2522031701054241e-3;
05312        GEN_OH( 6, N, x, y, z, w, a, b, v);
05313        a=0.5868757697775287;
05314        b=0.3560536787835351 ;
05315        v=0.2534511269978784e-3;
05316        GEN_OH( 6, N, x, y, z, w, a, b, v);
05317        a=0.6157458853519617;
05318        b=0.3867480821242581;
05319        v=0.2541284914955151e-3;
05320        GEN_OH( 6, N, x, y, z, w, a, b, v);
05321        a=0.3138461110672113;
05322        b=0.3051374637507278e-1;
05323        v=0.2161509250688394e-3;
05324        GEN_OH( 6, N, x, y, z, w, a, b, v);
05325        a=0.3542495872050569;
05326        b=0.6237111233730755e-1;
05327        v=0.2248778513437852e-3;
05328        GEN_OH( 6, N, x, y, z, w, a, b, v);
05329        a=0.3935751553120181;
05330        b=0.9516223952401907e-1;
05331        v=0.2322388803404617e-3;
05332        GEN_OH( 6, N, x, y, z, w, a, b, v);
05333        a=0.4317634668111147;
05334        b=0.1285467341508517;
05335        v=0.2383265471001355e-3;
05336        GEN_OH( 6, N, x, y, z, w, a, b, v);
05337        a=0.4687413842250821;
05338        b=0.1622318931656033;
05339        v=0.2432476675019525e-3;
05340        GEN_OH( 6, N, x, y, z, w, a, b, v);
05341        a=0.5044274237060283;
05342        b=0.1959581153836453;
05343        v=0.2471122223750674e-3;
05344        GEN_OH( 6, N, x, y, z, w, a, b, v);
05345        a=0.5387354077925727;
05346        b=0.2294888081183837;
05347        v=0.2500291752486870e-3;
05348        GEN_OH( 6, N, x, y, z, w, a, b, v);
05349        a=0.5715768898356105;
05350        b=0.2626031152713945;
05351        v=0.2521055942764682e-3;
05352        GEN_OH( 6, N, x, y, z, w, a, b, v);
05353        a=0.6028627200136111;
05354        b=0.2950904075286713;
05355        v=0.2534472785575503e-3;
05356        GEN_OH( 6, N, x, y, z, w, a, b, v);
05357        a=0.6325039812653463;
05358        b=0.3267458451113286;
05359        v=0.2541599713080121e-3;
05360        GEN_OH( 6, N, x, y, z, w, a, b, v);
05361        a=0.3981986708423407;
05362        b=0.3183291458749821e-1;
05363        v=0.2317380975862936e-3;
05364        GEN_OH( 6, N, x, y, z, w, a, b, v);
05365        a=0.4382791182133300;
05366        b=0.6459548193880908e-1;
05367        v=0.2378550733719775e-3;
05368        GEN_OH( 6, N, x, y, z, w, a, b, v);
05369        a=0.4769233057218166;
05370        b=0.9795757037087952e-1;
05371        v=0.2428884456739118e-3;
05372        GEN_OH( 6, N, x, y, z, w, a, b, v);
05373        a=0.5140823911194238;
05374        b=0.1316307235126655;
05375        v=0.2469002655757292e-3;
05376        GEN_OH( 6, N, x, y, z, w, a, b, v);
05377        a=0.5496977833862983;
05378        b=0.1653556486358704;
05379        v=0.2499657574265851e-3;
05380        GEN_OH( 6, N, x, y, z, w, a, b, v);
05381        a=0.5837047306512727;
05382        b=0.1988931724126510;
05383        v=0.2521676168486082e-3;
05384        GEN_OH( 6, N, x, y, z, w, a, b, v);
05385        a=0.6160349566926879;
05386        b=0.2320174581438950;
05387        v=0.2535935662645334e-3;
05388        GEN_OH( 6, N, x, y, z, w, a, b, v);
05389        a=0.6466185353209440;
05390        b=0.2645106562168662;
05391        v=0.2543356743363214e-3;
05392        GEN_OH( 6, N, x, y, z, w, a, b, v);
05393        a=0.4810835158795404;
05394        b=0.3275917807743992e-1;
05395        v=0.2427353285201535e-3;
05396        GEN_OH( 6, N, x, y, z, w, a, b, v);
05397        a=0.5199925041324341;
05398        b=0.6612546183967181e-1;
05399        v=0.2468258039744386e-3;
05400        GEN_OH( 6, N, x, y, z, w, a, b, v);
05401        a=0.5571717692207494;
05402        b=0.9981498331474143e-1;
05403        v=0.2500060956440310e-3;
05404        GEN_OH( 6, N, x, y, z, w, a, b, v);
05405        a=0.5925789250836378;
05406        b=0.1335687001410374;
05407        v=0.2523238365420979e-3;
05408        GEN_OH( 6, N, x, y, z, w, a, b, v);
05409        a=0.6261658523859670;
05410        b=0.1671444402896463;
05411        v=0.2538399260252846e-3;
05412        GEN_OH( 6, N, x, y, z, w, a, b, v);
05413        a=0.6578811126669331;
05414        b=0.2003106382156076;
05415        v=0.2546255927268069e-3;
05416        GEN_OH( 6, N, x, y, z, w, a, b, v);
05417        a=0.5609624612998100;
05418        b=0.3337500940231335e-1;
05419        v=0.2500583360048449e-3;
05420        GEN_OH( 6, N, x, y, z, w, a, b, v);
05421        a=0.5979959659984670;
05422        b=0.6708750335901803e-1;
05423        v=0.2524777638260203e-3;
05424        GEN_OH( 6, N, x, y, z, w, a, b, v);
05425        a=0.6330523711054002;
05426        b=0.1008792126424850;
05427        v=0.2540951193860656e-3;
05428        GEN_OH( 6, N, x, y, z, w, a, b, v);
05429        a=0.6660960998103972;
05430        b=0.1345050343171794;
05431        v=0.2549524085027472e-3;
05432        GEN_OH( 6, N, x, y, z, w, a, b, v);
05433        a=0.6365384364585819;
05434        b=0.3372799460737052e-1;
05435        v=0.2542569507009158e-3;
05436        GEN_OH( 6, N, x, y, z, w, a, b, v);
05437        a=0.6710994302899275;
05438        b=0.6755249309678028e-1;
05439        v=0.2552114127580376e-3;
05440        GEN_OH( 6, N, x, y, z, w, a, b, v);
05441        N=N-1;
05442        //RETURN
05443 }  //       END
05444        void LD4802(double* x,double* y,double* z,double* w){
05445 /*     double x[4802];
05446        double y[4802];
05447        double z[4802];
05448        double w[4802];    */
05449        int N;
05450        double a=0.0,b=0.0,v=0.0;
05451 /*
05452 CVW
05453 CVW    LEBEDEV 4802-POINT ANGULAR GRID
05454 CVW
05455 chvd
05456 chvd   This subroutine is part of a set of subroutines that generate
05457 chvd   Lebedev grids [1-6] for integration on a sphere. The original
05458 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
05459 chvd   translated into fortran by Dr. Christoph van Wuellen.
05460 chvd   This subroutine was translated using a C to fortran77 conversion
05461 chvd   tool written by Dr. Christoph van Wuellen.
05462 chvd
05463 chvd   Users of this code are asked to include reference [1] in their
05464 chvd   publications, and in the user- and programmers-manuals
05465 chvd   describing their codes.
05466 chvd
05467 chvd   This code was distributed through CCL (http://www.ccl.net/).
05468 chvd
05469 chvd   [1] V.I. Lebedev, and D.N. Laikov
05470 chvd       "A quadrature formula for the sphere of the 131st
05471 chvd        algebraic order of accuracy"
05472 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
05473 chvd
05474 chvd   [2] V.I. Lebedev
05475 chvd       "A quadrature formula for the sphere of 59th algebraic
05476 chvd        order of accuracy"
05477 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
05478 chvd
05479 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
05480 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
05481 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
05482 chvd
05483 chvd   [4] V.I. Lebedev
05484 chvd       "Spherical quadrature formulas exact to orders 25-29"
05485 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
05486 chvd
05487 chvd   [5] V.I. Lebedev
05488 chvd       "Quadratures on a sphere"
05489 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
05490 chvd       1976, pp. 10-24.
05491 chvd
05492 chvd   [6] V.I. Lebedev
05493 chvd       "Values of the nodes and weights of ninth to seventeenth
05494 chvd        order Gauss-Markov quadrature formulae invariant under the
05495 chvd        octahedron group with inversion"
05496 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
05497 chvd       1975, pp. 44-51.
05498 chvd
05499 */
05500        N=1;
05501        v=0.9687521879420705e-4;
05502        GEN_OH( 1, N, x, y, z, w, a, b, v);
05503        v=0.2307897895367918e-3;
05504        GEN_OH( 2, N, x, y, z, w, a, b, v);
05505        v=0.2297310852498558e-3;
05506        GEN_OH( 3, N, x, y, z, w, a, b, v);
05507        a=0.2335728608887064e-1;
05508        v=0.7386265944001919e-4;
05509        GEN_OH( 4, N, x, y, z, w, a, b, v);
05510        a=0.4352987836550653e-1;
05511        v=0.8257977698542210e-4;
05512        GEN_OH( 4, N, x, y, z, w, a, b, v);
05513        a=0.6439200521088801e-1;
05514        v=0.9706044762057630e-4;
05515        GEN_OH( 4, N, x, y, z, w, a, b, v);
05516        a=0.9003943631993181e-1;
05517        v=0.1302393847117003e-3;
05518        GEN_OH( 4, N, x, y, z, w, a, b, v);
05519        a=0.1196706615548473;
05520        v=0.1541957004600968e-3;
05521        GEN_OH( 4, N, x, y, z, w, a, b, v);
05522        a=0.1511715412838134;
05523        v=0.1704459770092199e-3;
05524        GEN_OH( 4, N, x, y, z, w, a, b, v);
05525        a=0.1835982828503801;
05526        v=0.1827374890942906e-3;
05527        GEN_OH( 4, N, x, y, z, w, a, b, v);
05528        a=0.2165081259155405;
05529        v=0.1926360817436107e-3;
05530        GEN_OH( 4, N, x, y, z, w, a, b, v);
05531        a=0.2496208720417563;
05532        v=0.2008010239494833e-3;
05533        GEN_OH( 4, N, x, y, z, w, a, b, v);
05534        a=0.2827200673567900;
05535        v=0.2075635983209175e-3;
05536        GEN_OH( 4, N, x, y, z, w, a, b, v);
05537        a=0.3156190823994346;
05538        v=0.2131306638690909e-3;
05539        GEN_OH( 4, N, x, y, z, w, a, b, v);
05540        a=0.3481476793749115;
05541        v=0.2176562329937335e-3;
05542        GEN_OH( 4, N, x, y, z, w, a, b, v);
05543        a=0.3801466086947226;
05544        v=0.2212682262991018e-3;
05545        GEN_OH( 4, N, x, y, z, w, a, b, v);
05546        a=0.4114652119634011;
05547        v=0.2240799515668565e-3;
05548        GEN_OH( 4, N, x, y, z, w, a, b, v);
05549        a=0.4419598786519751;
05550        v=0.2261959816187525e-3;
05551        GEN_OH( 4, N, x, y, z, w, a, b, v);
05552        a=0.4714925949329543;
05553        v=0.2277156368808855e-3;
05554        GEN_OH( 4, N, x, y, z, w, a, b, v);
05555        a=0.4999293972879466;
05556        v=0.2287351772128336e-3;
05557        GEN_OH( 4, N, x, y, z, w, a, b, v);
05558        a=0.5271387221431248;
05559        v=0.2293490814084085e-3;
05560        GEN_OH( 4, N, x, y, z, w, a, b, v);
05561        a=0.5529896780837761;
05562        v=0.2296505312376273e-3;
05563        GEN_OH( 4, N, x, y, z, w, a, b, v);
05564        a=0.6000856099481712;
05565        v=0.2296793832318756e-3;
05566        GEN_OH( 4, N, x, y, z, w, a, b, v);
05567        a=0.6210562192785175;
05568        v=0.2295785443842974e-3;
05569        GEN_OH( 4, N, x, y, z, w, a, b, v);
05570        a=0.6401165879934240;
05571        v=0.2295017931529102e-3;
05572        GEN_OH( 4, N, x, y, z, w, a, b, v);
05573        a=0.6571144029244334;
05574        v=0.2295059638184868e-3;
05575        GEN_OH( 4, N, x, y, z, w, a, b, v);
05576        a=0.6718910821718863;
05577        v=0.2296232343237362e-3;
05578        GEN_OH( 4, N, x, y, z, w, a, b, v);
05579        a=0.6842845591099010;
05580        v=0.2298530178740771e-3;
05581        GEN_OH( 4, N, x, y, z, w, a, b, v);
05582        a=0.6941353476269816;
05583        v=0.2301579790280501e-3;
05584        GEN_OH( 4, N, x, y, z, w, a, b, v);
05585        a=0.7012965242212991;
05586        v=0.2304690404996513e-3;
05587        GEN_OH( 4, N, x, y, z, w, a, b, v);
05588        a=0.7056471428242644;
05589        v=0.2307027995907102e-3;
05590        GEN_OH( 4, N, x, y, z, w, a, b, v);
05591        a=0.4595557643585895e-1;
05592        v=0.9312274696671092e-4;
05593        GEN_OH( 5, N, x, y, z, w, a, b, v);
05594        a=0.1049316742435023;
05595        v=0.1199919385876926e-3;
05596        GEN_OH( 5, N, x, y, z, w, a, b, v);
05597        a=0.1773548879549274;
05598        v=0.1598039138877690e-3;
05599        GEN_OH( 5, N, x, y, z, w, a, b, v);
05600        a=0.2559071411236127;
05601        v=0.1822253763574900e-3;
05602        GEN_OH( 5, N, x, y, z, w, a, b, v);
05603        a=0.3358156837985898 ;
05604        v=0.1988579593655040e-3;
05605        GEN_OH( 5, N, x, y, z, w, a, b, v);
05606        a=0.4155835743763893;
05607        v=0.2112620102533307e-3;
05608        GEN_OH( 5, N, x, y, z, w, a, b, v);
05609        a=0.4937894296167472;
05610        v=0.2201594887699007e-3;
05611        GEN_OH( 5, N, x, y, z, w, a, b, v);
05612        a=0.5691569694793316;
05613        v=0.2261622590895036e-3;
05614        GEN_OH( 5, N, x, y, z, w, a, b, v);
05615        a=0.6405840854894251;
05616        v=0.2296458453435705e-3;
05617        GEN_OH( 5, N, x, y, z, w, a, b, v);
05618        a=0.7345133894143348e-1;
05619        b=0.2177844081486067e-1;
05620        v=0.1006006990267000e-3;
05621        GEN_OH( 6, N, x, y, z, w, a, b, v);
05622        a=0.1009859834044931;
05623        b=0.4590362185775188e-1;
05624        v=0.1227676689635876e-3;
05625        GEN_OH( 6, N, x, y, z, w, a, b, v);
05626        a=0.1324289619748758;
05627        b=0.7255063095690877e-1;
05628        v=0.1467864280270117e-3;
05629        GEN_OH( 6, N, x, y, z, w, a, b, v);
05630        a=0.1654272109607127;
05631        b=0.1017825451960684;
05632        v=0.1644178912101232e-3;
05633        GEN_OH( 6, N, x, y, z, w, a, b, v);
05634        a=0.1990767186776461;
05635        b=0.1325652320980364;
05636        v=0.1777664890718961e-3;
05637        GEN_OH( 6, N, x, y, z, w, a, b, v);
05638        a=0.2330125945523278;
05639        b=0.1642765374496765;
05640        v=0.1884825664516690e-3;
05641        GEN_OH( 6, N, x, y, z, w, a, b, v);
05642        a=0.2670080611108287;
05643        b=0.1965360374337889;
05644        v=0.1973269246453848e-3;
05645        GEN_OH( 6, N, x, y, z, w, a, b, v);
05646        a=0.3008753376294316;
05647        b=0.2290726770542238;
05648        v=0.2046767775855328e-3;
05649        GEN_OH( 6, N, x, y, z, w, a, b, v);
05650        a=0.3344475596167860;
05651        b=0.2616645495370823;
05652        v=0.2107600125918040e-3;
05653        GEN_OH( 6, N, x, y, z, w, a, b, v);
05654        a=0.3675709724070786;
05655        b=0.2941150728843141;
05656        v=0.2157416362266829e-3;
05657        GEN_OH( 6, N, x, y, z, w, a, b, v);
05658        a=0.4001000887587812;
05659        b=0.3262440400919066;
05660        v=0.2197557816920721e-3;
05661        GEN_OH( 6, N, x, y, z, w, a, b, v);
05662        a=0.4318956350436028;
05663        b=0.3578835350611916;
05664        v=0.2229192611835437e-3;
05665        GEN_OH( 6, N, x, y, z, w, a, b, v);
05666        a=0.4628239056795531;
05667        b=0.3888751854043678 ;
05668        v=0.2253385110212775e-3;
05669        GEN_OH( 6, N, x, y, z, w, a, b, v);
05670        a=0.4927563229773636;
05671        b=0.4190678003222840 ;
05672        v=0.2271137107548774e-3;
05673        GEN_OH( 6, N, x, y, z, w, a, b, v);
05674        a=0.5215687136707969;
05675        b=0.4483151836883852;
05676        v=0.2283414092917525e-3;
05677        GEN_OH( 6, N, x, y, z, w, a, b, v);
05678        a=0.5491402346984905;
05679        b=0.4764740676087880;
05680        v=0.2291161673130077e-3;
05681        GEN_OH( 6, N, x, y, z, w, a, b, v);
05682        a=0.5753520160126075;
05683        b=0.5034021310998277;
05684        v=0.2295313908576598e-3;
05685        GEN_OH( 6, N, x, y, z, w, a, b, v);
05686        a=0.1388326356417754;
05687        b=0.2435436510372806e-1;
05688        v=0.1438204721359031e-3;
05689        GEN_OH( 6, N, x, y, z, w, a, b, v);
05690        a=0.1743686900537244;
05691        b=0.5118897057342652e-1;
05692        v=0.1607738025495257e-3;
05693        GEN_OH( 6, N, x, y, z, w, a, b, v);
05694        a=0.2099737037950268;
05695        b=0.8014695048539634e-1;
05696        v=0.1741483853528379e-3;
05697        GEN_OH( 6, N, x, y, z, w, a, b, v);
05698        a=0.2454492590908548;
05699        b=0.1105117874155699;
05700        v=0.1851918467519151e-3;
05701        GEN_OH( 6, N, x, y, z, w, a, b, v);
05702        a=0.2807219257864278;
05703        b=0.1417950531570966;
05704        v=0.1944628638070613e-3;
05705        GEN_OH( 6, N, x, y, z, w, a, b, v);
05706        a=0.3156842271975842;
05707        b=0.1736604945719597;
05708        v=0.2022495446275152e-3;
05709        GEN_OH( 6, N, x, y, z, w, a, b, v);
05710        a=0.3502090945177752 ;
05711        b=0.2058466324693981;
05712        v=0.2087462382438514e-3;
05713        GEN_OH( 6, N, x, y, z, w, a, b, v);
05714        a=0.3841684849519686;
05715        b=0.2381284261195919;
05716        v=0.2141074754818308e-3;
05717        GEN_OH( 6, N, x, y, z, w, a, b, v);
05718        a=0.4174372367906016;
05719        b=0.2703031270422569;
05720        v=0.2184640913748162e-3;
05721        GEN_OH( 6, N, x, y, z, w, a, b, v);
05722        a=0.4498926465011892;
05723        b=0.3021845683091309 ;
05724        v=0.2219309165220329e-3;
05725        GEN_OH( 6, N, x, y, z, w, a, b, v);
05726        a=0.4814146229807701;
05727        b=0.3335993355165720;
05728        v=0.2246123118340624e-3;
05729        GEN_OH( 6, N, x, y, z, w, a, b, v);
05730        a=0.5118863625734701;
05731        b=0.3643833735518232 ;
05732        v=0.2266062766915125e-3;
05733        GEN_OH( 6, N, x, y, z, w, a, b, v);
05734        a=0.5411947455119144;
05735        b=0.3943789541958179;
05736        v=0.2280072952230796e-3;
05737        GEN_OH( 6, N, x, y, z, w, a, b, v);
05738        a=0.5692301500357246;
05739        b=0.4234320144403542;
05740        v=0.2289082025202583e-3;
05741        GEN_OH( 6, N, x, y, z, w, a, b, v);
05742        a=0.5958857204139576 ;
05743        b=0.4513897947419260;
05744        v=0.2294012695120025e-3;
05745        GEN_OH( 6, N, x, y, z, w, a, b, v);
05746        a=0.2156270284785766;
05747        b=0.2681225755444491e-1;
05748        v=0.1722434488736947e-3;
05749        GEN_OH( 6, N, x, y, z, w, a, b, v);
05750        a=0.2532385054909710;
05751        b=0.5557495747805614e-1;
05752        v=0.1830237421455091e-3;
05753        GEN_OH( 6, N, x, y, z, w, a, b, v);
05754        a=0.2902564617771537;
05755        b=0.8569368062950249e-1;
05756        v=0.1923855349997633e-3;
05757        GEN_OH( 6, N, x, y, z, w, a, b, v);
05758        a=0.3266979823143256;
05759        b=0.1167367450324135;
05760        v=0.2004067861936271e-3;
05761        GEN_OH( 6, N, x, y, z, w, a, b, v);
05762        a=0.3625039627493614;
05763        b=0.1483861994003304;
05764        v=0.2071817297354263e-3;
05765        GEN_OH( 6, N, x, y, z, w, a, b, v);
05766        a=0.3975838937548699;
05767        b=0.1803821503011405;
05768        v=0.2128250834102103e-3;
05769        GEN_OH( 6, N, x, y, z, w, a, b, v);
05770        a=0.4318396099009774;
05771        b=0.2124962965666424;
05772        v=0.2174513719440102e-3;
05773        GEN_OH( 6, N, x, y, z, w, a, b, v);
05774        a=0.4651706555732742;
05775        b=0.2445221837805913;
05776        v=0.2211661839150214e-3;
05777        GEN_OH( 6, N, x, y, z, w, a, b, v);
05778        a=0.4974752649620969;
05779        b=0.2762701224322987;
05780        v=0.2240665257813102e-3;
05781        GEN_OH( 6, N, x, y, z, w, a, b, v);
05782        a=0.5286517579627517;
05783        b=0.3075627775211328 ;
05784        v=0.2262439516632620e-3;
05785        GEN_OH( 6, N, x, y, z, w, a, b, v);
05786        a=0.5586001195731895;
05787        b=0.3382311089826877;
05788        v=0.2277874557231869e-3;
05789        GEN_OH( 6, N, x, y, z, w, a, b, v);
05790        a=0.5872229902021319;
05791        b=0.3681108834741399;
05792        v=0.2287854314454994e-3;
05793        GEN_OH( 6, N, x, y, z, w, a, b, v);
05794        a=0.6144258616235123;
05795        b=0.3970397446872839;
05796        v=0.2293268499615575e-3;
05797        GEN_OH( 6, N, x, y, z, w, a, b, v);
05798        a=0.2951676508064861;
05799        b=0.2867499538750441e-1;
05800        v=0.1912628201529828e-3;
05801        GEN_OH( 6, N, x, y, z, w, a, b, v);
05802        a=0.3335085485472725;
05803        b=0.5867879341903510e-1;
05804        v=0.1992499672238701e-3;
05805        GEN_OH( 6, N, x, y, z, w, a, b, v);
05806        a=0.3709561760636381;
05807        b=0.8961099205022284e-1;
05808        v=0.2061275533454027e-3;
05809        GEN_OH( 6, N, x, y, z, w, a, b, v);
05810        a=0.4074722861667498;
05811        b=0.1211627927626297;
05812        v=0.2119318215968572e-3;
05813        GEN_OH( 6, N, x, y, z, w, a, b, v);
05814        a=0.4429923648839117;
05815        b=0.1530748903554898 ;
05816        v=0.2167416581882652e-3;
05817        GEN_OH( 6, N, x, y, z, w, a, b, v);
05818        a=0.4774428052721736;
05819        b=0.1851176436721877;
05820        v=0.2206430730516600e-3;
05821        GEN_OH( 6, N, x, y, z, w, a, b, v);
05822        a=0.5107446539535904;
05823        b=0.2170829107658179;
05824        v=0.2237186938699523e-3;
05825        GEN_OH( 6, N, x, y, z, w, a, b, v);
05826        a=0.5428151370542935;
05827        b=0.2487786689026271;
05828        v=0.2260480075032884e-3;
05829        GEN_OH( 6, N, x, y, z, w, a, b, v);
05830        a=0.5735699292556964;
05831        b=0.2800239952795016;
05832        v=0.2277098884558542e-3;
05833        GEN_OH( 6, N, x, y, z, w, a, b, v);
05834        a=0.6029253794562866;
05835        b=0.3106445702878119 ;
05836        v=0.2287845715109671e-3;
05837        GEN_OH( 6, N, x, y, z, w, a, b, v);
05838        a=0.6307998987073145;
05839        b=0.3404689500841194;
05840        v=0.2293547268236294e-3;
05841        GEN_OH( 6, N, x, y, z, w, a, b, v);
05842        a=0.3752652273692719;
05843        b=0.2997145098184479e-1;
05844        v=0.2056073839852528e-3;
05845        GEN_OH( 6, N, x, y, z, w, a, b, v);
05846        a=0.4135383879344028;
05847        b=0.6086725898678011e-1;
05848        v=0.2114235865831876e-3;
05849        GEN_OH( 6, N, x, y, z, w, a, b, v);
05850        a=0.4506113885153907;
05851        b=0.9238849548435643e-1;
05852        v=0.2163175629770551e-3;
05853        GEN_OH( 6, N, x, y, z, w, a, b, v);
05854        a=0.4864401554606072 ;
05855        b=0.1242786603851851 ;
05856        v=0.2203392158111650e-3;
05857        GEN_OH( 6, N, x, y, z, w, a, b, v);
05858        a=0.5209708076611709;
05859        b=0.1563086731483386;
05860        v=0.2235473176847839e-3;
05861        GEN_OH( 6, N, x, y, z, w, a, b, v);
05862        a=0.5541422135830122 ;
05863        b=0.1882696509388506;
05864        v=0.2260024141501235e-3;
05865        GEN_OH( 6, N, x, y, z, w, a, b, v);
05866        a=0.5858880915113817;
05867        b=0.2199672979126059 ;
05868        v=0.2277675929329182e-3;
05869        GEN_OH( 6, N, x, y, z, w, a, b, v);
05870        a=0.6161399390603444;
05871        b=0.2512165482924867;
05872        v=0.2289102112284834e-3;
05873        GEN_OH( 6, N, x, y, z, w, a, b, v);
05874        a=0.6448296482255090;
05875        b=0.2818368701871888;
05876        v=0.2295027954625118e-3;
05877        GEN_OH( 6, N, x, y, z, w, a, b, v);
05878        a=0.4544796274917948;
05879        b=0.3088970405060312e-1;
05880        v=0.2161281589879992e-3;
05881        GEN_OH( 6, N, x, y, z, w, a, b, v);
05882        a=0.4919389072146628;
05883        b=0.6240947677636835e-1;
05884        v=0.2201980477395102e-3;
05885        GEN_OH( 6, N, x, y, z, w, a, b, v);
05886        a=0.5279313026985183;
05887        b=0.9430706144280313e-1;
05888        v=0.2234952066593166e-3;
05889        GEN_OH( 6, N, x, y, z, w, a, b, v);
05890        a=0.5624169925571135 ;
05891        b=0.1263547818770374 ;
05892        v=0.2260540098520838e-3;
05893        GEN_OH( 6, N, x, y, z, w, a, b, v);
05894        a=0.5953484627093287;
05895        b=0.1583430788822594;
05896        v=0.2279157981899988e-3;
05897        GEN_OH( 6, N, x, y, z, w, a, b, v);
05898        a=0.6266730715339185;
05899        b=0.1900748462555988;
05900        v=0.2291296918565571e-3;
05901        GEN_OH( 6, N, x, y, z, w, a, b, v);
05902        a=0.6563363204278871;
05903        b=0.2213599519592567;
05904        v=0.2297533752536649e-3;
05905        GEN_OH( 6, N, x, y, z, w, a, b, v);
05906        a=0.5314574716585696 ;
05907        b=0.3152508811515374e-1;
05908        v=0.2234927356465995e-3;
05909        GEN_OH( 6, N, x, y, z, w, a, b, v);
05910        a=0.5674614932298185;
05911        b=0.6343865291465561e-1;
05912        v=0.2261288012985219e-3;
05913        GEN_OH( 6, N, x, y, z, w, a, b, v);
05914        a=0.6017706004970264;
05915        b=0.9551503504223951e-1;
05916        v=0.2280818160923688e-3;
05917        GEN_OH( 6, N, x, y, z, w, a, b, v);
05918        a=0.6343471270264178;
05919        b=0.1275440099801196 ;
05920        v=0.2293773295180159e-3;
05921        GEN_OH( 6, N, x, y, z, w, a, b, v);
05922        a=0.6651494599127802;
05923        b=0.1593252037671960;
05924        v=0.2300528767338634e-3;
05925        GEN_OH( 6, N, x, y, z, w, a, b, v);
05926        a=0.6050184986005704;
05927        b=0.3192538338496105e-1;
05928        v=0.2281893855065666e-3;
05929        GEN_OH( 6, N, x, y, z, w, a, b, v);
05930        a=0.6390163550880400;
05931        b=0.6402824353962306e-1;
05932        v=0.2295720444840727e-3;
05933        GEN_OH( 6, N, x, y, z, w, a, b, v);
05934        a=0.6711199107088448 ;
05935        b=0.9609805077002909e-1;
05936        v=0.2303227649026753e-3;
05937        GEN_OH( 6, N, x, y, z, w, a, b, v);
05938        a=0.6741354429572275;
05939        b=0.3211853196273233e-1;
05940        v=0.2304831913227114e-3;
05941        GEN_OH( 6, N, x, y, z, w, a, b, v);
05942        N=N-1;
05943        //RETURN
05944 }  //       END
05945        void LD5294(double* x,double* y,double* z,double* w){
05946 /*     double x[5294];
05947        double y[5294];
05948        double z[5294];
05949        double w[5294];      */
05950        int N;
05951        double a=0.0,b=0.0,v=0.0;
05952 /*
05953 CVW
05954 CVW    LEBEDEV 5294-POINT ANGULAR GRID
05955 CVW
05956 chvd
05957 chvd   This subroutine is part of a set of subroutines that generate
05958 chvd   Lebedev grids [1-6] for integration on a sphere. The original
05959 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
05960 chvd   translated into fortran by Dr. Christoph van Wuellen.
05961 chvd   This subroutine was translated using a C to fortran77 conversion
05962 chvd   tool written by Dr. Christoph van Wuellen.
05963 chvd
05964 chvd   Users of this code are asked to include reference [1] in their
05965 chvd   publications, and in the user- and programmers-manuals
05966 chvd   describing their codes.
05967 chvd
05968 chvd   This code was distributed through CCL (http://www.ccl.net/).
05969 chvd
05970 chvd   [1] V.I. Lebedev, and D.N. Laikov
05971 chvd       "A quadrature formula for the sphere of the 131st
05972 chvd        algebraic order of accuracy"
05973 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
05974 chvd
05975 chvd   [2] V.I. Lebedev
05976 chvd       "A quadrature formula for the sphere of 59th algebraic
05977 chvd        order of accuracy"
05978 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
05979 chvd
05980 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
05981 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
05982 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
05983 chvd
05984 chvd   [4] V.I. Lebedev
05985 chvd       "Spherical quadrature formulas exact to orders 25-29"
05986 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
05987 chvd
05988 chvd   [5] V.I. Lebedev
05989 chvd       "Quadratures on a sphere"
05990 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
05991 chvd       1976, pp. 10-24.
05992 chvd
05993 chvd   [6] V.I. Lebedev
05994 chvd       "Values of the nodes and weights of ninth to seventeenth
05995 chvd        order Gauss-Markov quadrature formulae invariant under the
05996 chvd        octahedron group with inversion"
05997 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
05998 chvd       1975, pp. 44-51.
05999 chvd
06000 */
06001        N=1;
06002        v=0.9080510764308163e-4;
06003        GEN_OH( 1, N, x, y, z, w, a, b, v);
06004        v=0.2084824361987793e-3;
06005        GEN_OH( 3, N, x, y, z, w, a, b, v);
06006        a=0.2303261686261450e-1;
06007        v=0.5011105657239616e-4;
06008        GEN_OH( 4, N, x, y, z, w, a, b, v);
06009        a=0.3757208620162394e-1;
06010        v=0.5942520409683854e-4;
06011        GEN_OH( 4, N, x, y, z, w, a, b, v);
06012        a=0.5821912033821852e-1;
06013        v=0.9564394826109721e-4;
06014        GEN_OH( 4, N, x, y, z, w, a, b, v);
06015        a=0.8403127529194872e-1;
06016        v=0.1185530657126338e-3;
06017        GEN_OH( 4, N, x, y, z, w, a, b, v);
06018        a=0.1122927798060578 ;
06019        v=0.1364510114230331e-3;
06020        GEN_OH( 4, N, x, y, z, w, a, b, v);
06021        a=0.1420125319192987;
06022        v=0.1505828825605415e-3;
06023        GEN_OH( 4, N, x, y, z, w, a, b, v);
06024        a=0.1726396437341978;
06025        v=0.1619298749867023e-3;
06026        GEN_OH( 4, N, x, y, z, w, a, b, v);
06027        a=0.2038170058115696;
06028        v=0.1712450504267789e-3;
06029        GEN_OH( 4, N, x, y, z, w, a, b, v);
06030        a=0.2352849892876508;
06031        v=0.1789891098164999e-3;
06032        GEN_OH( 4, N, x, y, z, w, a, b, v);
06033        a=0.2668363354312461;
06034        v=0.1854474955629795e-3;
06035        GEN_OH( 4, N, x, y, z, w, a, b, v);
06036        a=0.2982941279900452 ;
06037        v=0.1908148636673661e-3;
06038        GEN_OH( 4, N, x, y, z, w, a, b, v);
06039        a=0.3295002922087076;
06040        v=0.1952377405281833e-3;
06041        GEN_OH( 4, N, x, y, z, w, a, b, v);
06042        a=0.3603094918363593;
06043        v=0.1988349254282232e-3;
06044        GEN_OH( 4, N, x, y, z, w, a, b, v);
06045        a=0.3905857895173920;
06046        v=0.2017079807160050e-3;
06047        GEN_OH( 4, N, x, y, z, w, a, b, v);
06048        a=0.4202005758160837;
06049        v=0.2039473082709094e-3;
06050        GEN_OH( 4, N, x, y, z, w, a, b, v);
06051        a=0.4490310061597227;
06052        v=0.2056360279288953e-3;
06053        GEN_OH( 4, N, x, y, z, w, a, b, v);
06054        a=0.4769586160311491;
06055        v=0.2068525823066865e-3;
06056        GEN_OH( 4, N, x, y, z, w, a, b, v);
06057        a=0.5038679887049750;
06058        v=0.2076724877534488e-3;
06059        GEN_OH( 4, N, x, y, z, w, a, b, v);
06060        a=0.5296454286519961;
06061        v=0.2081694278237885e-3;
06062        GEN_OH( 4, N, x, y, z, w, a, b, v);
06063        a=0.5541776207164850;
06064        v=0.2084157631219326e-3;
06065        GEN_OH( 4, N, x, y, z, w, a, b, v);
06066        a=0.5990467321921213;
06067        v=0.2084381531128593e-3;
06068        GEN_OH( 4, N, x, y, z, w, a, b, v);
06069        a=0.6191467096294587;
06070        v=0.2083476277129307e-3;
06071        GEN_OH( 4, N, x, y, z, w, a, b, v);
06072        a=0.6375251212901849;
06073        v=0.2082686194459732e-3;
06074        GEN_OH( 4, N, x, y, z, w, a, b, v);
06075        a=0.6540514381131168;
06076        v=0.2082475686112415e-3;
06077        GEN_OH( 4, N, x, y, z, w, a, b, v);
06078        a=0.6685899064391510;
06079        v=0.2083139860289915e-3;
06080        GEN_OH( 4, N, x, y, z, w, a, b, v);
06081        a=0.6810013009681648;
06082        v=0.2084745561831237e-3;
06083        GEN_OH( 4, N, x, y, z, w, a, b, v);
06084        a=0.6911469578730340;
06085        v=0.2087091313375890e-3;
06086        GEN_OH( 4, N, x, y, z, w, a, b, v);
06087        a=0.6988956915141736 ;
06088        v=0.2089718413297697e-3;
06089        GEN_OH( 4, N, x, y, z, w, a, b, v);
06090        a=0.7041335794868720;
06091        v=0.2092003303479793e-3;
06092        GEN_OH( 4, N, x, y, z, w, a, b, v);
06093        a=0.7067754398018567;
06094        v=0.2093336148263241e-3;
06095        GEN_OH( 4, N, x, y, z, w, a, b, v);
06096        a=0.3840368707853623e-1;
06097        v=0.7591708117365267e-4;
06098        GEN_OH( 5, N, x, y, z, w, a, b, v);
06099        a=0.9835485954117399e-1;
06100        v=0.1083383968169186e-3;
06101        GEN_OH( 5, N, x, y, z, w, a, b, v);
06102        a=0.1665774947612998;
06103        v=0.1403019395292510e-3;
06104        GEN_OH( 5, N, x, y, z, w, a, b, v);
06105        a=0.2405702335362910 ;
06106        v=0.1615970179286436e-3;
06107        GEN_OH( 5, N, x, y, z, w, a, b, v);
06108        a=0.3165270770189046;
06109        v=0.1771144187504911e-3;
06110        GEN_OH( 5, N, x, y, z, w, a, b, v);
06111        a=0.3927386145645443;
06112        v=0.1887760022988168e-3;
06113        GEN_OH( 5, N, x, y, z, w, a, b, v);
06114        a=0.4678825918374656;
06115        v=0.1973474670768214e-3;
06116        GEN_OH( 5, N, x, y, z, w, a, b, v);
06117        a=0.5408022024266935;
06118        v=0.2033787661234659e-3;
06119        GEN_OH( 5, N, x, y, z, w, a, b, v);
06120        a=0.6104967445752438;
06121        v=0.2072343626517331e-3;
06122        GEN_OH( 5, N, x, y, z, w, a, b, v);
06123        a=0.6760910702685738;
06124        v=0.2091177834226918e-3;
06125        GEN_OH( 5, N, x, y, z, w, a, b, v);
06126        a=0.6655644120217392e-1;
06127        b=0.1936508874588424e-1;
06128        v=0.9316684484675566e-4;
06129        GEN_OH( 6, N, x, y, z, w, a, b, v);
06130        a=0.9446246161270182e-1;
06131        b=0.4252442002115869e-1;
06132        v=0.1116193688682976e-3;
06133        GEN_OH( 6, N, x, y, z, w, a, b, v);
06134        a=0.1242651925452509;
06135        b=0.6806529315354374e-1;
06136        v=0.1298623551559414e-3;
06137        GEN_OH( 6, N, x, y, z, w, a, b, v);
06138        a=0.1553438064846751;
06139        b=0.9560957491205369e-1;
06140        v=0.1450236832456426e-3;
06141        GEN_OH( 6, N, x, y, z, w, a, b, v);
06142        a=0.1871137110542670 ;
06143        b=0.1245931657452888;
06144        v=0.1572719958149914e-3;
06145        GEN_OH( 6, N, x, y, z, w, a, b, v);
06146        a=0.2192612628836257;
06147        b=0.1545385828778978 ;
06148        v=0.1673234785867195e-3;
06149        GEN_OH( 6, N, x, y, z, w, a, b, v);
06150        a=0.2515682807206955;
06151        b=0.1851004249723368;
06152        v=0.1756860118725188e-3;
06153        GEN_OH( 6, N, x, y, z, w, a, b, v);
06154        a=0.2838535866287290;
06155        b=0.2160182608272384;
06156        v=0.1826776290439367e-3;
06157        GEN_OH( 6, N, x, y, z, w, a, b, v);
06158        a=0.3159578817528521;
06159        b=0.2470799012277111;
06160        v=0.1885116347992865e-3;
06161        GEN_OH( 6, N, x, y, z, w, a, b, v);
06162        a=0.3477370882791392;
06163        b=0.2781014208986402;
06164        v=0.1933457860170574e-3;
06165        GEN_OH( 6, N, x, y, z, w, a, b, v);
06166        a=0.3790576960890540;
06167        b=0.3089172523515731;
06168        v=0.1973060671902064e-3;
06169        GEN_OH( 6, N, x, y, z, w, a, b, v);
06170        a=0.4097938317810200;
06171        b=0.3393750055472244;
06172        v=0.2004987099616311e-3;
06173        GEN_OH( 6, N, x, y, z, w, a, b, v);
06174        a=0.4398256572859637;
06175        b=0.3693322470987730 ;
06176        v=0.2030170909281499e-3;
06177        GEN_OH( 6, N, x, y, z, w, a, b, v);
06178        a=0.4690384114718480;
06179        b=0.3986541005609877;
06180        v=0.2049461460119080e-3;
06181        GEN_OH( 6, N, x, y, z, w, a, b, v);
06182        a=0.4973216048301053;
06183        b=0.4272112491408562 ;
06184        v=0.2063653565200186e-3;
06185        GEN_OH( 6, N, x, y, z, w, a, b, v);
06186        a=0.5245681526132446;
06187        b=0.4548781735309936;
06188        v=0.2073507927381027e-3;
06189        GEN_OH( 6, N, x, y, z, w, a, b, v);
06190        a=0.5506733911803888;
06191        b=0.4815315355023251;
06192        v=0.2079764593256122e-3;
06193        GEN_OH( 6, N, x, y, z, w, a, b, v);
06194        a=0.5755339829522475;
06195        b=0.5070486445801855;
06196        v=0.2083150534968778e-3;
06197        GEN_OH( 6, N, x, y, z, w, a, b, v);
06198        a=0.1305472386056362;
06199        b=0.2284970375722366e-1;
06200        v=0.1262715121590664e-3;
06201        GEN_OH( 6, N, x, y, z, w, a, b, v);
06202        a=0.1637327908216477 ;
06203        b=0.4812254338288384e-1;
06204        v=0.1414386128545972e-3;
06205        GEN_OH( 6, N, x, y, z, w, a, b, v);
06206        a=0.1972734634149637;
06207        b=0.7531734457511935e-1;
06208        v=0.1538740401313898e-3;
06209        GEN_OH( 6, N, x, y, z, w, a, b, v);
06210        a=0.2308694653110130;
06211        b=0.1039043639882017;
06212        v=0.1642434942331432e-3;
06213        GEN_OH( 6, N, x, y, z, w, a, b, v);
06214        a=0.2643899218338160 ;
06215        b=0.1334526587117626 ;
06216        v=0.1729790609237496e-3;
06217        GEN_OH( 6, N, x, y, z, w, a, b, v);
06218        a=0.2977171599622171;
06219        b=0.1636414868936382;
06220        v=0.1803505190260828e-3;
06221        GEN_OH( 6, N, x, y, z, w, a, b, v);
06222        a=0.3307293903032310 ;
06223        b=0.1942195406166568 ;
06224        v=0.1865475350079657e-3;
06225        GEN_OH( 6, N, x, y, z, w, a, b, v);
06226        a=0.3633069198219073;
06227        b=0.2249752879943753;
06228        v=0.1917182669679069e-3;
06229        GEN_OH( 6, N, x, y, z, w, a, b, v);
06230        a=0.3953346955922727;
06231        b=0.2557218821820032;
06232        v=0.1959851709034382e-3;
06233        GEN_OH( 6, N, x, y, z, w, a, b, v);
06234        a=0.4267018394184914;
06235        b=0.2862897925213193;
06236        v=0.1994529548117882e-3;
06237        GEN_OH( 6, N, x, y, z, w, a, b, v);
06238        a=0.4573009622571704 ;
06239        b=0.3165224536636518 ;
06240        v=0.2022138911146548e-3;
06241        GEN_OH( 6, N, x, y, z, w, a, b, v);
06242        a=0.4870279559856109;
06243        b=0.3462730221636496;
06244        v=0.2043518024208592e-3;
06245        GEN_OH( 6, N, x, y, z, w, a, b, v);
06246        a=0.5157819581450322 ;
06247        b=0.3754016870282835;
06248        v=0.2059450313018110e-3;
06249        GEN_OH( 6, N, x, y, z, w, a, b, v);
06250        a=0.5434651666465393;
06251        b=0.4037733784993613;
06252        v=0.2070685715318472e-3;
06253        GEN_OH( 6, N, x, y, z, w, a, b, v);
06254        a=0.5699823887764627;
06255        b=0.4312557784139123;
06256        v=0.2077955310694373e-3;
06257        GEN_OH( 6, N, x, y, z, w, a, b, v);
06258        a=0.5952403350947741 ;
06259        b=0.4577175367122110;
06260        v=0.2081980387824712e-3;
06261        GEN_OH( 6, N, x, y, z, w, a, b, v);
06262        a=0.2025152599210369;
06263        b=0.2520253617719557e-1;
06264        v=0.1521318610377956e-3;
06265        GEN_OH( 6, N, x, y, z, w, a, b, v);
06266        a=0.2381066653274425;
06267        b=0.5223254506119000e-1;
06268        v=0.1622772720185755e-3;
06269        GEN_OH( 6, N, x, y, z, w, a, b, v);
06270        a=0.2732823383651612;
06271        b=0.8060669688588620e-1;
06272        v=0.1710498139420709e-3;
06273        GEN_OH( 6, N, x, y, z, w, a, b, v);
06274        a=0.3080137692611118;
06275        b=0.1099335754081255;
06276        v=0.1785911149448736e-3;
06277        GEN_OH( 6, N, x, y, z, w, a, b, v);
06278        a=0.3422405614587601;
06279        b=0.1399120955959857;
06280        v=0.1850125313687736e-3;
06281        GEN_OH( 6, N, x, y, z, w, a, b, v);
06282        a=0.3758808773890420;
06283        b=0.1702977801651705;
06284        v=0.1904229703933298e-3;
06285        GEN_OH( 6, N, x, y, z, w, a, b, v);
06286        a=0.4088458383438932;
06287        b=0.2008799256601680 ;
06288        v=0.1949259956121987e-3;
06289        GEN_OH( 6, N, x, y, z, w, a, b, v);
06290        a=0.4410450550841152;
06291        b=0.2314703052180836;
06292        v=0.1986161545363960e-3;
06293        GEN_OH( 6, N, x, y, z, w, a, b, v);
06294        a=0.4723879420561312;
06295        b=0.2618972111375892;
06296        v=0.2015790585641370e-3;
06297        GEN_OH( 6, N, x, y, z, w, a, b, v);
06298        a=0.5027843561874343;
06299        b=0.2920013195600270;
06300        v=0.2038934198707418e-3;
06301        GEN_OH( 6, N, x, y, z, w, a, b, v);
06302        a=0.5321453674452458;
06303        b=0.3216322555190551;
06304        v=0.2056334060538251e-3;
06305        GEN_OH( 6, N, x, y, z, w, a, b, v);
06306        a=0.5603839113834030;
06307        b=0.3506456615934198;
06308        v=0.2068705959462289e-3;
06309        GEN_OH( 6, N, x, y, z, w, a, b, v);
06310        a=0.5874150706875146;
06311        b=0.3789007181306267;
06312        v=0.2076753906106002e-3;
06313        GEN_OH( 6, N, x, y, z, w, a, b, v);
06314        a=0.6131559381660038;
06315        b=0.4062580170572782;
06316        v=0.2081179391734803e-3;
06317        GEN_OH( 6, N, x, y, z, w, a, b, v);
06318        a=0.2778497016394506;
06319        b=0.2696271276876226e-1;
06320        v=0.1700345216228943e-3;
06321        GEN_OH( 6, N, x, y, z, w, a, b, v);
06322        a=0.3143733562261912;
06323        b=0.5523469316960465e-1;
06324        v=0.1774906779990410e-3;
06325        GEN_OH( 6, N, x, y, z, w, a, b, v);
06326        a=0.3501485810261827;
06327        b=0.8445193201626464e-1;
06328        v=0.1839659377002642e-3;
06329        GEN_OH( 6, N, x, y, z, w, a, b, v);
06330        a=0.3851430322303653;
06331        b=0.1143263119336083;
06332        v=0.1894987462975169e-3;
06333        GEN_OH( 6, N, x, y, z, w, a, b, v);
06334        a=0.4193013979470415;
06335        b=0.1446177898344475;
06336        v=0.1941548809452595e-3;
06337        GEN_OH( 6, N, x, y, z, w, a, b, v);
06338        a=0.4525585960458567;
06339        b=0.1751165438438091;
06340        v=0.1980078427252384e-3;
06341        GEN_OH( 6, N, x, y, z, w, a, b, v);
06342        a=0.4848447779622947;
06343        b=0.2056338306745660 ;
06344        v=0.2011296284744488e-3;
06345        GEN_OH( 6, N, x, y, z, w, a, b, v);
06346        a=0.5160871208276894;
06347        b=0.2359965487229226;
06348        v=0.2035888456966776e-3;
06349        GEN_OH( 6, N, x, y, z, w, a, b, v);
06350        a=0.5462112185696926;
06351        b=0.2660430223139146;
06352        v=0.2054516325352142e-3;
06353        GEN_OH( 6, N, x, y, z, w, a, b, v);
06354        a=0.5751425068101757;
06355        b=0.2956193664498032 ;
06356        v=0.2067831033092635e-3;
06357        GEN_OH( 6, N, x, y, z, w, a, b, v);
06358        a=0.6028073872853596;
06359        b=0.3245763905312779 ;
06360        v=0.2076485320284876e-3;
06361        GEN_OH( 6, N, x, y, z, w, a, b, v);
06362        a=0.6291338275278409;
06363        b=0.3527670026206972 ;
06364        v=0.2081141439525255e-3;
06365        GEN_OH( 6, N, x, y, z, w, a, b, v);
06366        a=0.3541797528439391;
06367        b=0.2823853479435550e-1;
06368        v=0.1834383015469222e-3;
06369        GEN_OH( 6, N, x, y, z, w, a, b, v);
06370        a=0.3908234972074657;
06371        b=0.5741296374713106e-1;
06372        v=0.1889540591777677e-3;
06373        GEN_OH( 6, N, x, y, z, w, a, b, v);
06374        a=0.4264408450107590;
06375        b=0.8724646633650199e-1;
06376        v=0.1936677023597375e-3;
06377        GEN_OH( 6, N, x, y, z, w, a, b, v);
06378        a=0.4609949666553286;
06379        b=0.1175034422915616;
06380        v=0.1976176495066504e-3;
06381        GEN_OH( 6, N, x, y, z, w, a, b, v);
06382        a=0.4944389496536006;
06383        b=0.1479755652628428;
06384        v=0.2008536004560983e-3;
06385        GEN_OH( 6, N, x, y, z, w, a, b, v);
06386        a=0.5267194884346086;
06387        b=0.1784740659484352;
06388        v=0.2034280351712291e-3;
06389        GEN_OH( 6, N, x, y, z, w, a, b, v);
06390        a=0.5577787810220990;
06391        b=0.2088245700431244;
06392        v=0.2053944466027758e-3;
06393        GEN_OH( 6, N, x, y, z, w, a, b, v);
06394        a=0.5875563763536670;
06395        b=0.2388628136570763;
06396        v=0.2068077642882360e-3;
06397        GEN_OH( 6, N, x, y, z, w, a, b, v);
06398        a=0.6159910016391269;
06399        b=0.2684308928769185;
06400        v=0.2077250949661599e-3;
06401        GEN_OH( 6, N, x, y, z, w, a, b, v);
06402        a=0.6430219602956268;
06403        b=0.2973740761960252;
06404        v=0.2082062440705320e-3;
06405        GEN_OH( 6, N, x, y, z, w, a, b, v);
06406        a=0.4300647036213646;
06407        b=0.2916399920493977e-1;
06408        v=0.1934374486546626e-3;
06409        GEN_OH( 6, N, x, y, z, w, a, b, v);
06410        a=0.4661486308935531;
06411        b=0.5898803024755659e-1;
06412        v=0.1974107010484300e-3;
06413        GEN_OH( 6, N, x, y, z, w, a, b, v);
06414        a=0.5009658555287261;
06415        b=0.8924162698525409e-1;
06416        v=0.2007129290388658e-3;
06417        GEN_OH( 6, N, x, y, z, w, a, b, v);
06418        a=0.5344824270447704;
06419        b=0.1197185199637321;
06420        v=0.2033736947471293e-3;
06421        GEN_OH( 6, N, x, y, z, w, a, b, v);
06422        a=0.5666575997416371;
06423        b=0.1502300756161382 ;
06424        v=0.2054287125902493e-3;
06425        GEN_OH( 6, N, x, y, z, w, a, b, v);
06426        a=0.5974457471404752;
06427        b=0.1806004191913564;
06428        v=0.2069184936818894e-3;
06429        GEN_OH( 6, N, x, y, z, w, a, b, v);
06430        a=0.6267984444116886;
06431        b=0.2106621764786252;
06432        v=0.2078883689808782e-3;
06433        GEN_OH( 6, N, x, y, z, w, a, b, v);
06434        a=0.6546664713575417;
06435        b=0.2402526932671914;
06436        v=0.2083886366116359e-3;
06437        GEN_OH( 6, N, x, y, z, w, a, b, v);
06438        a=0.5042711004437253;
06439        b=0.2982529203607657e-1;
06440        v=0.2006593275470817e-3;
06441        GEN_OH( 6, N, x, y, z, w, a, b, v);
06442        a=0.5392127456774380;
06443        b=0.6008728062339922e-1;
06444        v=0.2033728426135397e-3;
06445        GEN_OH( 6, N, x, y, z, w, a, b, v);
06446        a=0.5726819437668618;
06447        b=0.9058227674571398e-1;
06448        v=0.2055008781377608e-3;
06449        GEN_OH( 6, N, x, y, z, w, a, b, v);
06450        a=0.6046469254207278 ;
06451        b=0.1211219235803400;
06452        v=0.2070651783518502e-3;
06453        GEN_OH( 6, N, x, y, z, w, a, b, v);
06454        a=0.6350716157434952;
06455        b=0.1515286404791580;
06456        v=0.2080953335094320e-3;
06457        GEN_OH( 6, N, x, y, z, w, a, b, v);
06458        a=0.6639177679185454;
06459        b=0.1816314681255552;
06460        v=0.2086284998988521e-3;
06461        GEN_OH( 6, N, x, y, z, w, a, b, v);
06462        a=0.5757276040972253;
06463        b=0.3026991752575440e-1;
06464        v=0.2055549387644668e-3;
06465        GEN_OH( 6, N, x, y, z, w, a, b, v);
06466        a=0.6090265823139755;
06467        b=0.6078402297870770e-1;
06468        v=0.2071871850267654e-3;
06469        GEN_OH( 6, N, x, y, z, w, a, b, v);
06470        a=0.6406735344387661;
06471        b=0.9135459984176636e-1;
06472        v=0.2082856600431965e-3;
06473        GEN_OH( 6, N, x, y, z, w, a, b, v);
06474        a=0.6706397927793709;
06475        b=0.1218024155966590;
06476        v=0.2088705858819358e-3;
06477        GEN_OH( 6, N, x, y, z, w, a, b, v);
06478        a=0.6435019674426665;
06479        b=0.3052608357660639e-1;
06480        v=0.2083995867536322e-3;
06481        GEN_OH( 6, N, x, y, z, w, a, b, v);
06482        a=0.6747218676375681;
06483        b=0.6112185773983089e-1;
06484        v=0.2090509712889637e-3;
06485        GEN_OH( 6, N, x, y, z, w, a, b, v);
06486        N=N-1;
06487        //RETURN
06488 }  //       END
06489 
06490        void LD5810(double* x,double* y,double* z,double* w){
06491 //       double x[5810];
06492 //       double y[5810];
06493 //       double z[5810];
06494 //       double w[5810];
06495        int N;
06496        double a=0.0,b=0.0,v=0.0;
06497 /*CVW
06498 CVW    LEBEDEV 5810-POINT ANGULAR GRID
06499 CVW
06500 chvd
06501 chvd   This subroutine is part of a set of subroutines that generate
06502 chvd   Lebedev grids [1-6] for integration on a sphere. The original
06503 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
06504 chvd   translated into fortran by Dr. Christoph van Wuellen.
06505 chvd   This subroutine was translated using a C to fortran77 conversion
06506 chvd   tool written by Dr. Christoph van Wuellen.
06507 chvd
06508 chvd   Users of this code are asked to include reference [1] in their
06509 chvd   publications, and in the user- and programmers-manuals
06510 chvd   describing their codes.
06511 chvd
06512 chvd   This code was distributed through CCL (http://www.ccl.net/).
06513 chvd
06514 chvd   [1] V.I. Lebedev, and D.N. Laikov
06515 chvd       "A quadrature formula for the sphere of the 131st
06516 chvd        algebraic order of accuracy"
06517 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
06518 chvd
06519 chvd   [2] V.I. Lebedev
06520 chvd       "A quadrature formula for the sphere of 59th algebraic
06521 chvd        order of accuracy"
06522 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
06523 chvd
06524 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
06525 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
06526 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
06527 chvd
06528 chvd   [4] V.I. Lebedev
06529 chvd       "Spherical quadrature formulas exact to orders 25-29"
06530 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
06531 chvd
06532 chvd   [5] V.I. Lebedev
06533 chvd       "Quadratures on a sphere"
06534 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
06535 chvd       1976, pp. 10-24.
06536 chvd
06537 chvd   [6] V.I. Lebedev
06538 chvd       "Values of the nodes and weights of ninth to seventeenth
06539 chvd        order Gauss-Markov quadrature formulae invariant under the
06540 chvd        octahedron group with inversion"
06541 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
06542 chvd       1975, pp. 44-51.
06543 chvd     */
06544        N=1;
06545        v=0.9735347946175486e-5;
06546        GEN_OH( 1, N, x, y, z, w, a, b, v);
06547        v=0.1907581241803167e-3;
06548        GEN_OH( 2, N, x, y, z, w, a, b, v);
06549        v=0.1901059546737578e-3;
06550        GEN_OH( 3, N, x, y, z, w, a, b, v);
06551        a=0.1182361662400277e-1;
06552        v=0.3926424538919212e-4;
06553        GEN_OH( 4, N, x, y, z, w, a, b, v);
06554        a=0.3062145009138958e-1;
06555        v=0.6667905467294382e-4;
06556        GEN_OH( 4, N, x, y, z, w, a, b, v);
06557        a=0.5329794036834243e-1;
06558        v=0.8868891315019135e-4;
06559        GEN_OH( 4, N, x, y, z, w, a, b, v);
06560        a=0.7848165532862220e-1;
06561        v=0.1066306000958872e-3;
06562        GEN_OH( 4, N, x, y, z, w, a, b, v);
06563        a=0.1054038157636201;
06564        v=0.1214506743336128e-3;
06565        GEN_OH( 4, N, x, y, z, w, a, b, v);
06566        a=0.1335577797766211;
06567        v=0.1338054681640871e-3;
06568        GEN_OH( 4, N, x, y, z, w, a, b, v);
06569        a=0.1625769955502252;
06570        v=0.1441677023628504e-3;
06571        GEN_OH( 4, N, x, y, z, w, a, b, v);
06572        a=0.1921787193412792;
06573        v=0.1528880200826557e-3;
06574        GEN_OH( 4, N, x, y, z, w, a, b, v);
06575        a=0.2221340534690548 ;
06576        v=0.1602330623773609e-3;
06577        GEN_OH( 4, N, x, y, z, w, a, b, v);
06578        a=0.2522504912791132;
06579        v=0.1664102653445244e-3;
06580        GEN_OH( 4, N, x, y, z, w, a, b, v);
06581        a=0.2823610860679697;
06582        v=0.1715845854011323e-3;
06583        GEN_OH( 4, N, x, y, z, w, a, b, v);
06584        a=0.3123173966267560;
06585        v=0.1758901000133069e-3;
06586        GEN_OH( 4, N, x, y, z, w, a, b, v);
06587        a=0.3419847036953789;
06588        v=0.1794382485256736e-3;
06589        GEN_OH( 4, N, x, y, z, w, a, b, v);
06590        a=0.3712386456999758;
06591        v=0.1823238106757407e-3;
06592        GEN_OH( 4, N, x, y, z, w, a, b, v);
06593        a=0.3999627649876828;
06594        v=0.1846293252959976e-3;
06595        GEN_OH( 4, N, x, y, z, w, a, b, v);
06596        a=0.4280466458648093;
06597        v=0.1864284079323098e-3;
06598        GEN_OH( 4, N, x, y, z, w, a, b, v);
06599        a=0.4553844360185711;
06600        v=0.1877882694626914e-3;
06601        GEN_OH( 4, N, x, y, z, w, a, b, v);
06602        a=0.4818736094437834;
06603        v=0.1887716321852025e-3;
06604        GEN_OH( 4, N, x, y, z, w, a, b, v);
06605        a=0.5074138709260629 ;
06606        v=0.1894381638175673e-3;
06607        GEN_OH( 4, N, x, y, z, w, a, b, v);
06608        a=0.5319061304570707;
06609        v=0.1898454899533629e-3;
06610        GEN_OH( 4, N, x, y, z, w, a, b, v);
06611        a=0.5552514978677286;
06612        v=0.1900497929577815e-3;
06613        GEN_OH( 4, N, x, y, z, w, a, b, v);
06614        a=0.5981009025246183;
06615        v=0.1900671501924092e-3;
06616        GEN_OH( 4, N, x, y, z, w, a, b, v);
06617        a=0.6173990192228116;
06618        v=0.1899837555533510e-3;
06619        GEN_OH( 4, N, x, y, z, w, a, b, v);
06620        a=0.6351365239411131;
06621        v=0.1899014113156229e-3;
06622        GEN_OH( 4, N, x, y, z, w, a, b, v);
06623        a=0.6512010228227200;
06624        v=0.1898581257705106e-3;
06625        GEN_OH( 4, N, x, y, z, w, a, b, v);
06626        a=0.6654758363948120;
06627        v=0.1898804756095753e-3;
06628        GEN_OH( 4, N, x, y, z, w, a, b, v);
06629        a=0.6778410414853370;
06630        v=0.1899793610426402e-3;
06631        GEN_OH( 4, N, x, y, z, w, a, b, v);
06632        a=0.6881760887484110;
06633        v=0.1901464554844117e-3;
06634        GEN_OH( 4, N, x, y, z, w, a, b, v);
06635        a=0.6963645267094598;
06636        v=0.1903533246259542e-3;
06637        GEN_OH( 4, N, x, y, z, w, a, b, v);
06638        a=0.7023010617153579;
06639        v=0.1905556158463228e-3;
06640        GEN_OH( 4, N, x, y, z, w, a, b, v);
06641        a=0.7059004636628753;
06642        v=0.1907037155663528e-3;
06643        GEN_OH( 4, N, x, y, z, w, a, b, v);
06644        a=0.3552470312472575e-1;
06645        v=0.5992997844249967e-4;
06646        GEN_OH( 5, N, x, y, z, w, a, b, v);
06647        a=0.9151176620841283e-1;
06648        v=0.9749059382456978e-4;
06649        GEN_OH( 5, N, x, y, z, w, a, b, v);
06650        a=0.1566197930068980;
06651        v=0.1241680804599158e-3;
06652        GEN_OH( 5, N, x, y, z, w, a, b, v);
06653        a=0.2265467599271907;
06654        v=0.1437626154299360e-3;
06655        GEN_OH( 5, N, x, y, z, w, a, b, v);
06656        a=0.2988242318581361;
06657        v=0.1584200054793902e-3;
06658        GEN_OH( 5, N, x, y, z, w, a, b, v);
06659        a=0.3717482419703886;
06660        v=0.1694436550982744e-3;
06661        GEN_OH( 5, N, x, y, z, w, a, b, v);
06662        a=0.4440094491758889;
06663        v=0.1776617014018108e-3;
06664        GEN_OH( 5, N, x, y, z, w, a, b, v);
06665        a=0.5145337096756642;
06666        v=0.1836132434440077e-3;
06667        GEN_OH( 5, N, x, y, z, w, a, b, v);
06668        a=0.5824053672860230;
06669        v=0.1876494727075983e-3;
06670        GEN_OH( 5, N, x, y, z, w, a, b, v);
06671        a=0.6468283961043370;
06672        v=0.1899906535336482e-3;
06673        GEN_OH( 5, N, x, y, z, w, a, b, v);
06674        a=0.6095964259104373e-1;
06675        b=0.1787828275342931e-1;
06676        v=0.8143252820767350e-4;
06677        GEN_OH( 6, N, x, y, z, w, a, b, v);
06678        a=0.8811962270959388e-1;
06679        b=0.3953888740792096e-1;
06680        v=0.9998859890887728e-4;
06681        GEN_OH( 6, N, x, y, z, w, a, b, v);
06682        a=0.1165936722428831;
06683        b=0.6378121797722990e-1;
06684        v=0.1156199403068359e-3;
06685        GEN_OH( 6, N, x, y, z, w, a, b, v);
06686        a=0.1460232857031785;
06687        b=0.8985890813745037e-1;
06688        v=0.1287632092635513e-3;
06689        GEN_OH( 6, N, x, y, z, w, a, b, v);
06690        a=0.1761197110181755;
06691        b=0.1172606510576162 ;
06692        v=0.1398378643365139e-3;
06693        GEN_OH( 6, N, x, y, z, w, a, b, v);
06694        a=0.2066471190463718 ;
06695        b=0.1456102876970995;
06696        v=0.1491876468417391e-3;
06697        GEN_OH( 6, N, x, y, z, w, a, b, v);
06698        a=0.2374076026328152;
06699        b=0.1746153823011775;
06700        v=0.1570855679175456e-3;
06701        GEN_OH( 6, N, x, y, z, w, a, b, v);
06702        a=0.2682305474337051;
06703        b=0.2040383070295584 ;
06704        v=0.1637483948103775e-3;
06705        GEN_OH( 6, N, x, y, z, w, a, b, v);
06706        a=0.2989653312142369;
06707        b=0.2336788634003698 ;
06708        v=0.1693500566632843e-3;
06709        GEN_OH( 6, N, x, y, z, w, a, b, v);
06710        a=0.3294762752772209;
06711        b=0.2633632752654219;
06712        v=0.1740322769393633e-3;
06713        GEN_OH( 6, N, x, y, z, w, a, b, v);
06714        a=0.3596390887276086;
06715        b=0.2929369098051601;
06716        v=0.1779126637278296e-3;
06717        GEN_OH( 6, N, x, y, z, w, a, b, v);
06718        a=0.3893383046398812;
06719        b=0.3222592785275512;
06720        v=0.1810908108835412e-3;
06721        GEN_OH( 6, N, x, y, z, w, a, b, v);
06722        a=0.4184653789358347 ;
06723        b=0.3512004791195743;
06724        v=0.1836529132600190e-3;
06725        GEN_OH( 6, N, x, y, z, w, a, b, v);
06726        a=0.4469172319076166;
06727        b=0.3796385677684537;
06728        v=0.1856752841777379e-3;
06729        GEN_OH( 6, N, x, y, z, w, a, b, v);
06730        a=0.4745950813276976;
06731        b=0.4074575378263879;
06732        v=0.1872270566606832e-3;
06733        GEN_OH( 6, N, x, y, z, w, a, b, v);
06734        a=0.5014034601410262 ;
06735        b=0.4345456906027828 ;
06736        v=0.1883722645591307e-3;
06737        GEN_OH( 6, N, x, y, z, w, a, b, v);
06738        a=0.5272493404551239;
06739        b=0.4607942515205134;
06740        v=0.1891714324525297e-3;
06741        GEN_OH( 6, N, x, y, z, w, a, b, v);
06742        a=0.5520413051846366;
06743        b=0.4860961284181720;
06744        v=0.1896827480450146e-3;
06745        GEN_OH( 6, N, x, y, z, w, a, b, v);
06746        a=0.5756887237503077;
06747        b=0.5103447395342790;
06748        v=0.1899628417059528e-3;
06749        GEN_OH( 6, N, x, y, z, w, a, b, v);
06750        a=0.1225039430588352;
06751        b=0.2136455922655793e-1;
06752        v=0.1123301829001669e-3;
06753        GEN_OH( 6, N, x, y, z, w, a, b, v);
06754        a=0.1539113217321372;
06755        b=0.4520926166137188e-1;
06756        v=0.1253698826711277e-3;
06757        GEN_OH( 6, N, x, y, z, w, a, b, v);
06758        a=0.1856213098637712 ;
06759        b=0.7086468177864818e-1;
06760        v=0.1366266117678531e-3;
06761        GEN_OH( 6, N, x, y, z, w, a, b, v);
06762        a=0.2174998728035131;
06763        b=0.9785239488772918e-1;
06764        v=0.1462736856106918e-3;
06765        GEN_OH( 6, N, x, y, z, w, a, b, v);
06766        a=0.2494128336938330 ;
06767        b=0.1258106396267210;
06768        v=0.1545076466685412e-3;
06769        GEN_OH( 6, N, x, y, z, w, a, b, v);
06770        a=0.2812321562143480;
06771        b=0.1544529125047001;
06772        v=0.1615096280814007e-3;
06773        GEN_OH( 6, N, x, y, z, w, a, b, v);
06774        a=0.3128372276456111 ;
06775        b=0.1835433512202753;
06776        v=0.1674366639741759e-3;
06777        GEN_OH( 6, N, x, y, z, w, a, b, v);
06778        a=0.3441145160177973;
06779        b=0.2128813258619585;
06780        v=0.1724225002437900e-3;
06781        GEN_OH( 6, N, x, y, z, w, a, b, v);
06782        a=0.3749567714853510;
06783        b=0.2422913734880829;
06784        v=0.1765810822987288e-3;
06785        GEN_OH( 6, N, x, y, z, w, a, b, v);
06786        a=0.4052621732015610;
06787        b=0.2716163748391453;
06788        v=0.1800104126010751e-3;
06789        GEN_OH( 6, N, x, y, z, w, a, b, v);
06790        a=0.4349335453522385;
06791        b=0.3007127671240280;
06792        v=0.1827960437331284e-3;
06793        GEN_OH( 6, N, x, y, z, w, a, b, v);
06794        a=0.4638776641524965;
06795        b=0.3294470677216479 ;
06796        v=0.1850140300716308e-3;
06797        GEN_OH( 6, N, x, y, z, w, a, b, v);
06798        a=0.4920046410462687;
06799        b=0.3576932543699155;
06800        v=0.1867333507394938e-3;
06801        GEN_OH( 6, N, x, y, z, w, a, b, v);
06802        a=0.5192273554861704;
06803        b=0.3853307059757764;
06804        v=0.1880178688638289e-3;
06805        GEN_OH( 6, N, x, y, z, w, a, b, v);
06806        a=0.5454609081136522;
06807        b=0.4122425044452694;
06808        v=0.1889278925654758e-3;
06809        GEN_OH( 6, N, x, y, z, w, a, b, v);
06810        a=0.5706220661424140;
06811        b=0.4383139587781027;
06812        v=0.1895213832507346e-3;
06813        GEN_OH( 6, N, x, y, z, w, a, b, v);
06814        a=0.5946286755181518;
06815        b=0.4634312536300553;
06816        v=0.1898548277397420e-3;
06817        GEN_OH( 6, N, x, y, z, w, a, b, v);
06818        a=0.1905370790924295;
06819        b=0.2371311537781979e-1;
06820        v=0.1349105935937341e-3;
06821        GEN_OH( 6, N, x, y, z, w, a, b, v);
06822        a=0.2242518717748009;
06823        b=0.4917878059254806e-1;
06824        v=0.1444060068369326e-3;
06825        GEN_OH( 6, N, x, y, z, w, a, b, v);
06826        a=0.2577190808025936;
06827        b=0.7595498960495142e-1;
06828        v=0.1526797390930008e-3;
06829        GEN_OH( 6, N, x, y, z, w, a, b, v);
06830        a=0.2908724534927187;
06831        b=0.1036991083191100;
06832        v=0.1598208771406474e-3;
06833        GEN_OH( 6, N, x, y, z, w, a, b, v);
06834        a=0.3236354020056219;
06835        b=0.1321348584450234;
06836        v=0.1659354368615331e-3;
06837        GEN_OH( 6, N, x, y, z, w, a, b, v);
06838        a=0.3559267359304543;
06839        b=0.1610316571314789;
06840        v=0.1711279910946440e-3;
06841        GEN_OH( 6, N, x, y, z, w, a, b, v);
06842        a=0.3876637123676956 ;
06843        b=0.1901912080395707 ;
06844        v=0.1754952725601440e-3;
06845        GEN_OH( 6, N, x, y, z, w, a, b, v);
06846        a=0.4187636705218842;
06847        b=0.2194384950137950;
06848        v=0.1791247850802529e-3;
06849        GEN_OH( 6, N, x, y, z, w, a, b, v);
06850        a=0.4491449019883107;
06851        b=0.2486155334763858;
06852        v=0.1820954300877716e-3;
06853        GEN_OH( 6, N, x, y, z, w, a, b, v);
06854        a=0.4787270932425445;
06855        b=0.2775768931812335;
06856        v=0.1844788524548449e-3;
06857        GEN_OH( 6, N, x, y, z, w, a, b, v);
06858        a=0.5074315153055574;
06859        b=0.3061863786591120;
06860        v=0.1863409481706220e-3;
06861        GEN_OH( 6, N, x, y, z, w, a, b, v);
06862        a=0.5351810507738336;
06863        b=0.3343144718152556;
06864        v=0.1877433008795068e-3;
06865        GEN_OH( 6, N, x, y, z, w, a, b, v);
06866        a=0.5619001025975381;
06867        b=0.3618362729028427;
06868        v=0.1887444543705232e-3;
06869        GEN_OH( 6, N, x, y, z, w, a, b, v);
06870        a=0.5875144035268046;
06871        b=0.3886297583620408;
06872        v=0.1894009829375006e-3;
06873        GEN_OH( 6, N, x, y, z, w, a, b, v);
06874        a=0.6119507308734495;
06875        b=0.4145742277792031;
06876        v=0.1897683345035198e-3;
06877        GEN_OH( 6, N, x, y, z, w, a, b, v);
06878        a=0.2619733870119463;
06879        b=0.2540047186389353e-1;
06880        v=0.1517327037467653e-3;
06881        GEN_OH( 6, N, x, y, z, w, a, b, v);
06882        a=0.2968149743237949 ;
06883        b=0.5208107018543989e-1;
06884        v=0.1587740557483543e-3;
06885        GEN_OH( 6, N, x, y, z, w, a, b, v);
06886        a=0.3310451504860488;
06887        b=0.7971828470885599e-1;
06888        v=0.1649093382274097e-3;
06889        GEN_OH( 6, N, x, y, z, w, a, b, v);
06890        a=0.3646215567376676;
06891        b=0.1080465999177927;
06892        v=0.1701915216193265e-3;
06893        GEN_OH( 6, N, x, y, z, w, a, b, v);
06894        a=0.3974916785279360;
06895        b=0.1368413849366629;
06896        v=0.1746847753144065e-3;
06897        GEN_OH( 6, N, x, y, z, w, a, b, v);
06898        a=0.4295967403772029;
06899        b=0.1659073184763559;
06900        v=0.1784555512007570e-3;
06901        GEN_OH( 6, N, x, y, z, w, a, b, v);
06902        a=0.4608742854473447;
06903        b=0.1950703730454614;
06904        v=0.1815687562112174e-3;
06905        GEN_OH( 6, N, x, y, z, w, a, b, v);
06906        a=0.4912598858949903;
06907        b=0.2241721144376724;
06908        v=0.1840864370663302e-3;
06909        GEN_OH( 6, N, x, y, z, w, a, b, v);
06910        a=0.5206882758945558;
06911        b=0.2530655255406489;
06912        v=0.1860676785390006e-3;
06913        GEN_OH( 6, N, x, y, z, w, a, b, v);
06914        a=0.5490940914019819;
06915        b=0.2816118409731066;
06916        v=0.1875690583743703e-3;
06917        GEN_OH( 6, N, x, y, z, w, a, b, v);
06918        a=0.5764123302025542;
06919        b=0.3096780504593238;
06920        v=0.1886453236347225e-3;
06921        GEN_OH( 6, N, x, y, z, w, a, b, v);
06922        a=0.6025786004213506;
06923        b=0.3371348366394987;
06924        v=0.1893501123329645e-3;
06925        GEN_OH( 6, N, x, y, z, w, a, b, v);
06926        a=0.6275291964794956;
06927        b=0.3638547827694396;
06928        v=0.1897366184519868e-3;
06929        GEN_OH( 6, N, x, y, z, w, a, b, v);
06930        a=0.3348189479861771;
06931        b=0.2664841935537443e-1;
06932        v=0.1643908815152736e-3;
06933        GEN_OH( 6, N, x, y, z, w, a, b, v);
06934        a=0.3699515545855295;
06935        b=0.5424000066843495e-1;
06936        v=0.1696300350907768e-3;
06937        GEN_OH( 6, N, x, y, z, w, a, b, v);
06938        a=0.4042003071474669;
06939        b=0.8251992715430854e-1;
06940        v=0.1741553103844483e-3;
06941        GEN_OH( 6, N, x, y, z, w, a, b, v);
06942        a=0.4375320100182624;
06943        b=0.1112695182483710;
06944        v=0.1780015282386092e-3;
06945        GEN_OH( 6, N, x, y, z, w, a, b, v);
06946        a=0.4699054490335947;
06947        b=0.1402964116467816;
06948        v=0.1812116787077125e-3;
06949        GEN_OH( 6, N, x, y, z, w, a, b, v);
06950        a=0.5012739879431952;
06951        b=0.1694275117584291;
06952        v=0.1838323158085421e-3;
06953        GEN_OH( 6, N, x, y, z, w, a, b, v);
06954        a=0.5315874883754966;
06955        b=0.1985038235312689;
06956        v=0.1859113119837737e-3;
06957        GEN_OH( 6, N, x, y, z, w, a, b, v);
06958        a=0.5607937109622117;
06959        b=0.2273765660020893;
06960        v=0.1874969220221698e-3;
06961        GEN_OH( 6, N, x, y, z, w, a, b, v);
06962        a=0.5888393223495521;
06963        b=0.2559041492849764 ;
06964        v=0.1886375612681076e-3;
06965        GEN_OH( 6, N, x, y, z, w, a, b, v);
06966        a=0.6156705979160163;
06967        b=0.2839497251976899;
06968        v=0.1893819575809276e-3;
06969        GEN_OH( 6, N, x, y, z, w, a, b, v);
06970        a=0.6412338809078123;
06971        b=0.3113791060500690;
06972        v=0.1897794748256767e-3;
06973        GEN_OH( 6, N, x, y, z, w, a, b, v);
06974        a=0.4076051259257167;
06975        b=0.2757792290858463e-1;
06976        v=0.1738963926584846e-3;
06977        GEN_OH( 6, N, x, y, z, w, a, b, v);
06978        a=0.4423788125791520;
06979        b=0.5584136834984293e-1;
06980        v=0.1777442359873466e-3;
06981        GEN_OH( 6, N, x, y, z, w, a, b, v);
06982        a=0.4760480917328258;
06983        b=0.8457772087727143e-1;
06984        v=0.1810010815068719e-3;
06985        GEN_OH( 6, N, x, y, z, w, a, b, v);
06986        a=0.5085838725946297;
06987        b=0.1135975846359248 ;
06988        v=0.1836920318248129e-3;
06989        GEN_OH( 6, N, x, y, z, w, a, b, v);
06990        a=0.5399513637391218;
06991        b=0.1427286904765053;
06992        v=0.1858489473214328e-3;
06993        GEN_OH( 6, N, x, y, z, w, a, b, v);
06994        a=0.5701118433636380;
06995        b=0.1718112740057635;
06996        v=0.1875079342496592e-3;
06997        GEN_OH( 6, N, x, y, z, w, a, b, v);
06998        a=0.5990240530606021;
06999        b=0.2006944855985351;
07000        v=0.1887080239102310e-3;
07001        GEN_OH( 6, N, x, y, z, w, a, b, v);
07002        a=0.6266452685139695;
07003        b=0.2292335090598907;
07004        v=0.1894905752176822e-3;
07005        GEN_OH( 6, N, x, y, z, w, a, b, v);
07006        a=0.6529320971415942;
07007        b=0.2572871512353714;
07008        v=0.1898991061200695e-3;
07009        GEN_OH( 6, N, x, y, z, w, a, b, v);
07010        a=0.4791583834610126;
07011        b=0.2826094197735932e-1;
07012        v=0.1809065016458791e-3;
07013        GEN_OH( 6, N, x, y, z, w, a, b, v);
07014        a=0.5130373952796940;
07015        b=0.5699871359683649e-1;
07016        v=0.1836297121596799e-3;
07017        GEN_OH( 6, N, x, y, z, w, a, b, v);
07018        a=0.5456252429628476;
07019        b=0.8602712528554394e-1;
07020        v=0.1858426916241869e-3;
07021        GEN_OH( 6, N, x, y, z, w, a, b, v);
07022        a=0.5768956329682385;
07023        b=0.1151748137221281 ;
07024        v=0.1875654101134641e-3;
07025        GEN_OH( 6, N, x, y, z, w, a, b, v);
07026        a=0.6068186944699046;
07027        b=0.1442811654136362 ;
07028        v=0.1888240751833503e-3;
07029        GEN_OH( 6, N, x, y, z, w, a, b, v);
07030        a=0.6353622248024907;
07031        b=0.1731930321657680;
07032        v=0.1896497383866979e-3;
07033        GEN_OH( 6, N, x, y, z, w, a, b, v);
07034        a=0.6624927035731797;
07035        b=0.2017619958756061;
07036        v=0.1900775530219121e-3;
07037        GEN_OH( 6, N, x, y, z, w, a, b, v);
07038        a=0.5484933508028488 ;
07039        b=0.2874219755907391e-1;
07040        v=0.1858525041478814e-3 ;
07041        GEN_OH( 6, N, x, y, z, w, a, b, v);
07042        a=0.5810207682142106;
07043        b=0.5778312123713695e-1 ;
07044        v=0.1876248690077947e-3;
07045        GEN_OH( 6, N, x, y, z, w, a, b, v);
07046        a=0.6120955197181352 ;
07047        b=0.8695262371439526e-1 ;
07048        v=0.1889404439064607e-3;
07049        GEN_OH( 6, N, x, y, z, w, a, b, v);
07050        a=0.6416944284294319 ;
07051        b=0.1160893767057166 ;
07052        v=0.1898168539265290e-3 ;
07053        GEN_OH( 6, N, x, y, z, w, a, b, v);
07054        a=0.6697926391731260 ;
07055        b=0.1450378826743251 ;
07056        v=0.1902779940661772e-3 ;
07057        GEN_OH( 6, N, x, y, z, w, a, b, v);
07058        a=0.6147594390585488;
07059        b=0.2904957622341456e-1 ;
07060        v=0.1890125641731815e-3;
07061        GEN_OH( 6, N, x, y, z, w, a, b, v);
07062        a=0.6455390026356783 ;
07063        b=0.5823809152617197e-1;
07064        v=0.1899434637795751e-3 ;
07065        GEN_OH( 6, N, x, y, z, w, a, b, v);
07066        a=0.6747258588365477 ;
07067        b=0.8740384899884715e-1 ;
07068        v=0.1904520856831751e-3 ;
07069        GEN_OH( 6, N, x, y, z, w, a, b, v);
07070        a=0.6772135750395347;
07071        b=0.2919946135808105e-1;
07072        v=0.1905534498734563e-3 ;
07073        GEN_OH( 6, N, x, y, z, w, a, b, v);
07074        N=N-1;
07075        //RETURN
07076 }
07077 
07079 
07080 
07081 
07082        void GEN_OH_test(int code, int &num, double a, double b, double v){
07083 //       void GEN_OH(int code, int num, double* x, double* y, double* z, double* w, double a, double b, double v){
07084 //       implicit logical(a-z)
07085 //       double  x[],y[],z[],w[*];
07086 //       double  a,b,v;
07087 //       int code;
07088 //       int num;
07089        double  c;
07090 //       extern const int NSize;
07091 //       extern double x[NSize],y[],z[],w[];
07092        double x[194],y[194],z[194],w[194];
07093 /*
07094 chvd
07095 chvd   This subroutine is part of a set of subroutines that generate
07096 chvd   Lebedev grids [1-6] for integration on a sphere. The original
07097 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
07098 chvd   translated into fortran by Dr. Christoph van Wuellen.
07099 chvd   This subroutine was translated from C to fortran77 by hand.
07100 chvd
07101 chvd   Users of this code are asked to include reference [1] in their
07102 chvd   publications, and in the user- and programmers-manuals
07103 chvd   describing their codes.
07104 chvd
07105 chvd   This code was distributed through CCL (http://www.ccl.net/).
07106 chvd
07107 chvd   [1] V.I. Lebedev, and D.N. Laikov
07108 chvd       "A quadrature formula for the sphere of the 131st
07109 chvd        algebraic order of accuracy"
07110 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
07111 chvd
07112 chvd   [2] V.I. Lebedev
07113 chvd       "A quadrature formula for the sphere of 59th algebraic
07114 chvd        order of accuracy"
07115 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
07116 chvd
07117 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
07118 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
07119 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
07120 chvd
07121 chvd   [4] V.I. Lebedev
07122 chvd       "Spherical quadrature formulas exact to orders 25-29"
07123 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
07124 chvd
07125 chvd   [5] V.I. Lebedev
07126 chvd       "Quadratures on a sphere"
07127 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
07128 chvd       1976, pp. 10-24.
07129 chvd
07130 chvd   [6] V.I. Lebedev
07131 chvd       "Values of the nodes and weights of ninth to seventeenth
07132 chvd        order Gauss-Markov quadrature formulae invariant under the
07133 chvd        octahedron group with inversion"
07134 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
07135 chvd       1975, pp. 44-51.
07136 chvd
07137 cvw
07138 cvw    Given a point on a sphere (specified by a and b), generate all
07139 cvw    the equivalent points under Oh symmetry, making grid points with
07140 cvw    weight v.
07141 cvw    The variable num is increased by the number of different points
07142 cvw    generated.
07143 cvw
07144 cvw    Depending on code, there are 6...48 different but equivalent
07145 cvw    points.
07146 cvw
07147 cvw    code=1:   (0,0,1) etc                                (  6 points)
07148 cvw    code=2:   (0,a,a) etc, a=1/sqrt(2)                   ( 12 points)
07149 cvw    code=3:   (a,a,a) etc, a=1/sqrt(3)                   (  8 points)
07150 cvw    code=4:   (a,a,b) etc, b=sqrt(1-2 a^2)               ( 24 points)
07151 cvw    code=5:   (a,b,0) etc, b=sqrt(1-a^2), a input        ( 24 points)
07152 cvw    code=6:   (a,b,c) etc, c=sqrt(1-a^2-b^2), a/b input  ( 48 points)
07153 cvw
07154 */
07155 //       goto (1,2,3,4,5,6) code
07156 
07157 //       stop
07158 
07159   switch(code)
07160   {
07161     case 1:
07162 
07163 //    1  continue
07164        a=1.0;
07165        x[0+num] =  a;
07166        y[0+num] =  0.0;
07167        z[0+num] =  0.0;
07168        w[0+num] =  v;
07169        x[1+num] = -a;
07170        y[1+num] =  0.0;
07171        z[1+num] =  0.0;
07172        w[1+num] =  v;
07173        x[2+num] =  0.0;
07174        y[2+num] =  a;
07175        z[2+num] =  0.0;
07176        w[2+num] =  v;
07177        x[3+num] =  0.0;
07178        y[3+num] = -a;
07179        z[3+num] =  0.0;
07180        w[3+num] =  v;
07181        x[4+num] =  0.0;
07182        y[4+num] =  0.0;
07183        z[4+num] =  a;
07184        w[4+num] =  v;
07185        x[5+num] =  0.0;
07186        y[5+num] =  0.0;
07187        z[5+num] = -a;
07188        w[5+num] =  v;
07189        //std::cout <<  " code = " << code<< "  num = " << num<< " z(0) = " << z[0]
07190        //<< "  w(0) = " << w[0] << std::endl;
07191 
07192        num=num+6;
07193 
07194 
07195        //std::cout <<  " GEN_OH x = " << x[0]<< "  y(0) = " << y[0]<< " z(0) = " << z[0]
07196        //<< "  w(0) = " << w[0] << std::endl;
07197 //       return
07198 //cvw
07199       break;
07200 
07201     case 2:
07202 
07203 //    2  continue
07204        a=sqrt(0.5);
07205        x[0+num] =  0;
07206        y[0+num] =  a;
07207        z[0+num] =  a;
07208        w[0+num] =  v;
07209        x[1+num] =  0;
07210        y[1+num] = -a;
07211        z[1+num] =  a;
07212        w[1+num] =  v;
07213        x[2+num] =  0;
07214        y[2+num] =  a;
07215        z[2+num] = -a;
07216        w[2+num] =  v;
07217        x[3+num] =  0;
07218        y[3+num] = -a;
07219        z[3+num] = -a;
07220        w[3+num] =  v;
07221        x[4+num] =  a;
07222        y[4+num] =  0;
07223        z[4+num] =  a;
07224        w[4+num] =  v;
07225        x[5+num] = -a;
07226        y[5+num] =  0;
07227        z[5+num] =  a;
07228        w[5+num] =  v;
07229        x[6+num] =  a;
07230        y[6+num] =  0;
07231        z[6+num] = -a;
07232        w[6+num] =  v;
07233        x[7+num] = -a;
07234        y[7+num] =  0;
07235        z[7+num] = -a;
07236        w[7+num] =  v;
07237        x[8+num] =  a;
07238        y[8+num] =  a;
07239        z[8+num] =  0;
07240        w[8+num] =  v;
07241        x[9+num] = -a;
07242        y[9+num] =  a;
07243        z[9+num] =  0;
07244        w[9+num] =  v;
07245        x[10+num] =  a;
07246        y[10+num] = -a;
07247        z[10+num] =  0;
07248        w[10+num] =  v;
07249        x[11+num] = -a;
07250        y[11+num] = -a;
07251        z[11+num] =  0;
07252        w[11+num] =  v;
07253        num=num+12;
07254 //       return
07255 //cvw
07256       break;
07257 
07258     case 3:
07259 
07260 //    3  continue
07261        a = sqrt(1.0/3.0);
07262        x[0+num] =  a;
07263        y[0+num] =  a;
07264        z[0+num] =  a;
07265        w[0+num] =  v;
07266        x[1+num] = -a;
07267        y[1+num] =  a;
07268        z[1+num] =  a;
07269        w[1+num] =  v;
07270        x[2+num] =  a;
07271        y[2+num] = -a;
07272        z[2+num] =  a;
07273        w[2+num] =  v;
07274        x[3+num] = -a;
07275        y[3+num] = -a;
07276        z[3+num] =  a;
07277        w[3+num] =  v;
07278        x[4+num] =  a;
07279        y[4+num] =  a;
07280        z[4+num] = -a;
07281        w[4+num] =  v;
07282        x[5+num] = -a;
07283        y[5+num] =  a;
07284        z[5+num] = -a;
07285        w[5+num] =  v;
07286        x[6+num] =  a;
07287        y[6+num] = -a;
07288        z[6+num] = -a;
07289        w[6+num] =  v;
07290        x[7+num] = -a;
07291        y[7+num] = -a;
07292        z[7+num] = -a;
07293        w[7+num] =  v;
07294        num=num+8;
07295 //       return
07296 //cvw
07297       break;
07298 
07299 
07300     case 4:
07301 
07302 //    4  continue
07303        b = sqrt(1 - 2*a*a);
07304        x[0+num] =  a;
07305        y[0+num] =  a;
07306        z[0+num] =  b;
07307        w[0+num] =  v;
07308        x[1+num] = -a;
07309        y[1+num] =  a;
07310        z[1+num] =  b;
07311        w[1+num] =  v;
07312        x[2+num] =  a;
07313        y[2+num] = -a;
07314        z[2+num] =  b;
07315        w[2+num] =  v;
07316        x[3+num] = -a;
07317        y[3+num] = -a;
07318        z[3+num] =  b;
07319        w[3+num] =  v;
07320        x[4+num] =  a;
07321        y[4+num] =  a;
07322        z[4+num] = -b;
07323        w[4+num] =  v;
07324        x[5+num] = -a;
07325        y[5+num] =  a;
07326        z[5+num] = -b;
07327        w[5+num] =  v;
07328        x[6+num] =  a;
07329        y[6+num] = -a;
07330        z[6+num] = -b;
07331        w[6+num] =  v;
07332        x[7+num] = -a;
07333        y[7+num] = -a;
07334        z[7+num] = -b;
07335        w[7+num] =  v;
07336        x[8+num] =  a;
07337        y[8+num] =  b;
07338        z[8+num] =  a;
07339        w[8+num] =  v;
07340        x[9+num] = -a;
07341        y[9+num] =  b;
07342        z[9+num] =  a;
07343        w[9+num] =  v;
07344        x[10+num] =  a;
07345        y[10+num] = -b;
07346        z[10+num] =  a;
07347        w[10+num] =  v;
07348        x[11+num] = -a;
07349        y[11+num] = -b;
07350        z[11+num] =  a;
07351        w[11+num] =  v;
07352        x[12+num] =  a;
07353        y[12+num] =  b;
07354        z[12+num] = -a;
07355        w[12+num] =  v;
07356        x[13+num] = -a;
07357        y[13+num] =  b;
07358        z[13+num] = -a;
07359        w[13+num] =  v;
07360        x[14+num] =  a;
07361        y[14+num] = -b;
07362        z[14+num] = -a;
07363        w[14+num] =  v;
07364        x[15+num] = -a;
07365        y[15+num] = -b;
07366        z[15+num] = -a;
07367        w[15+num] =  v;
07368        x[16+num] =  b;
07369        y[16+num] =  a;
07370        z[16+num] =  a;
07371        w[16+num] =  v;
07372        x[17+num] = -b;
07373        y[17+num] =  a;
07374        z[17+num] =  a;
07375        w[17+num] =  v;
07376        x[18+num] =  b;
07377        y[18+num] = -a;
07378        z[18+num] =  a;
07379        w[18+num] =  v;
07380        x[19+num] = -b;
07381        y[19+num] = -a;
07382        z[19+num] =  a;
07383        w[19+num] =  v;
07384        x[20+num] =  b;
07385        y[20+num] =  a;
07386        z[20+num] = -a;
07387        w[20+num] =  v;
07388        x[21+num] = -b;
07389        y[21+num] =  a;
07390        z[21+num] = -a;
07391        w[21+num] =  v;
07392        x[22+num] =  b;
07393        y[22+num] = -a;
07394        z[22+num] = -a;
07395        w[22+num] =  v;
07396        x[23+num] = -b;
07397        y[23+num] = -a;
07398        z[23+num] = -a;
07399        w[23+num] =  v;
07400        num=num+24;
07401 //       return
07402 //cvw
07403       break;
07404 
07405     case 5:
07406 
07407 //    5  continue
07408        b=sqrt(1-a*a);
07409        x[0+num] =  a;
07410        y[0+num] =  b;
07411        z[0+num] =  0;
07412        w[0+num] =  v;
07413        x[1+num] = -a;
07414        y[1+num] =  b;
07415        z[1+num] =  0;
07416        w[1+num] =  v;
07417        x[2+num] =  a;
07418        y[2+num] = -b;
07419        z[2+num] =  0;
07420        w[2+num] =  v;
07421        x[3+num] = -a;
07422        y[3+num] = -b;
07423        z[3+num] =  0;
07424        w[3+num] =  v;
07425        x[4+num] =  b;
07426        y[4+num] =  a;
07427        z[4+num] =  0;
07428        w[4+num] =  v;
07429        x[5+num] = -b;
07430        y[5+num] =  a;
07431        z[5+num] =  0;
07432        w[5+num] =  v;
07433        x[6+num] =  b;
07434        y[6+num] = -a;
07435        z[6+num] =  0;
07436        w[6+num] =  v;
07437        x[7+num] = -b;
07438        y[7+num] = -a;
07439        z[7+num] =  0;
07440        w[7+num] =  v;
07441        x[8+num] =  a;
07442        y[8+num] =  0;
07443        z[8+num] =  b;
07444        w[8+num] =  v;
07445        x[9+num] = -a;
07446        y[9+num] =  0;
07447        z[9+num] =  b;
07448        w[9+num] =  v;
07449        x[10+num] =  a;
07450        y[10+num] =  0;
07451        z[10+num] = -b;
07452        w[10+num] =  v;
07453        x[11+num] = -a;
07454        y[11+num] =  0;
07455        z[11+num] = -b;
07456        w[11+num] =  v;
07457        x[12+num] =  b;
07458        y[12+num] =  0;
07459        z[12+num] =  a;
07460        w[12+num] =  v;
07461        x[13+num] = -b;
07462        y[13+num] =  0;
07463        z[13+num] =  a;
07464        w[13+num] =  v;
07465        x[14+num] =  b;
07466        y[14+num] =  0;
07467        z[14+num] = -a;
07468        w[14+num] =  v;
07469        x[15+num] = -b;
07470        y[15+num] =  0;
07471        z[15+num] = -a;
07472        w[15+num] =  v;
07473        x[16+num] =  0;
07474        y[16+num] =  a;
07475        z[16+num] =  b;
07476        w[16+num] =  v;
07477        x[17+num] =  0;
07478        y[17+num] = -a;
07479        z[17+num] =  b;
07480        w[17+num] =  v;
07481        x[18+num] =  0;
07482        y[18+num] =  a;
07483        z[18+num] = -b;
07484        w[18+num] =  v;
07485        x[19+num] =  0;
07486        y[19+num] = -a;
07487        z[19+num] = -b;
07488        w[19+num] =  v;
07489        x[20+num] =  0;
07490        y[20+num] =  b;
07491        z[20+num] =  a;
07492        w[20+num] =  v;
07493        x[21+num] =  0;
07494        y[21+num] = -b;
07495        z[21+num] =  a;
07496        w[21+num] =  v;
07497        x[22+num] =  0;
07498        y[22+num] =  b;
07499        z[22+num] = -a;
07500        w[22+num] =  v;
07501        x[23+num] =  0;
07502        y[23+num] = -b;
07503        z[23+num] = -a;
07504        w[23+num] =  v;
07505        num=num+24;
07506 //       return
07507 //cvw
07508      break;
07509 
07510     case 6:
07511 //    6  continue
07512        c=sqrt(1 - a*a - b*b);
07513        x[0+num] =  a;
07514        y[0+num] =  b;
07515        z[0+num] =  c;
07516        w[0+num] =  v;
07517        x[1+num] = -a;
07518        y[1+num] =  b;
07519        z[1+num] =  c;
07520        w[1+num] =  v;
07521        x[2+num] =  a;
07522        y[2+num] = -b;
07523        z[2+num] =  c;
07524        w[2+num] =  v;
07525        x[3+num] = -a;
07526        y[3+num] = -b;
07527        z[3+num] =  c;
07528        w[3+num] =  v;
07529        x[4+num] =  a;
07530        y[4+num] =  b;
07531        z[4+num] = -c;
07532        w[4+num] =  v;
07533        x[5+num] = -a;
07534        y[5+num] =  b;
07535        z[5+num] = -c;
07536        w[5+num] =  v;
07537        x[6+num] =  a;
07538        y[6+num] = -b;
07539        z[6+num] = -c;
07540        w[6+num] =  v;
07541        x[7+num] = -a;
07542        y[7+num] = -b;
07543        z[7+num] = -c;
07544        w[7+num] =  v;
07545        x[8+num] =  a;
07546        y[8+num] =  c;
07547        z[8+num] =  b;
07548        w[8+num] =  v;
07549        x[9+num] = -a;
07550        y[9+num] =  c;
07551        z[9+num] =  b;
07552        w[9+num] =  v;
07553        x[10+num] =  a;
07554        y[10+num] = -c;
07555        z[10+num] =  b;
07556        w[10+num] =  v;
07557        x[11+num] = -a;
07558        y[11+num] = -c;
07559        z[11+num] =  b;
07560        w[11+num] =  v;
07561        x[12+num] =  a;
07562        y[12+num] =  c;
07563        z[12+num] = -b;
07564        w[12+num] =  v;
07565        x[13+num] = -a;
07566        y[13+num] =  c;
07567        z[13+num] = -b;
07568        w[13+num] =  v;
07569        x[14+num] =  a;
07570        y[14+num] = -c;
07571        z[14+num] = -b;
07572        w[14+num] =  v;
07573        x[15+num] = -a;
07574        y[15+num] = -c;
07575        z[15+num] = -b;
07576        w[15+num] =  v;
07577        x[16+num] =  b;
07578        y[16+num] =  a;
07579        z[16+num] =  c;
07580        w[16+num] =  v;
07581        x[17+num] = -b;
07582        y[17+num] =  a;
07583        z[17+num] =  c;
07584        w[17+num] =  v;
07585        x[18+num] =  b;
07586        y[18+num] = -a;
07587        z[18+num] =  c;
07588        w[18+num] =  v;
07589        x[19+num] = -b;
07590        y[19+num] = -a;
07591        z[19+num] =  c;
07592        w[19+num] =  v;
07593        x[20+num] =  b;
07594        y[20+num] =  a;
07595        z[20+num] = -c;
07596        w[20+num] =  v;
07597        x[21+num] = -b;
07598        y[21+num] =  a;
07599        z[21+num] = -c;
07600        w[21+num] =  v;
07601        x[22+num] =  b;
07602        y[22+num] = -a;
07603        z[22+num] = -c;
07604        w[22+num] =  v;
07605        x[23+num] = -b;
07606        y[23+num] = -a;
07607        z[23+num] = -c;
07608        w[23+num] =  v;
07609        x[24+num] =  b;
07610        y[24+num] =  c;
07611        z[24+num] =  a;
07612        w[24+num] =  v;
07613        x[25+num] = -b;
07614        y[25+num] =  c;
07615        z[25+num] =  a;
07616        w[25+num] =  v;
07617        x[26+num] =  b;
07618        y[26+num] = -c;
07619        z[26+num] =  a;
07620        w[26+num] =  v;
07621        x[27+num] = -b;
07622        y[27+num] = -c;
07623        z[27+num] =  a;
07624        w[27+num] =  v;
07625        x[28+num] =  b;
07626        y[28+num] =  c;
07627        z[28+num] = -a;
07628        w[28+num] =  v;
07629        x[29+num] = -b;
07630        y[29+num] =  c;
07631        z[29+num] = -a;
07632        w[29+num] =  v;
07633        x[30+num] =  b;
07634        y[30+num] = -c;
07635        z[30+num] = -a;
07636        w[30+num] =  v;
07637        x[31+num] = -b;
07638        y[31+num] = -c;
07639        z[31+num] = -a;
07640        w[31+num] =  v;
07641        x[32+num] =  c;
07642        y[32+num] =  a;
07643        z[32+num] =  b;
07644        w[32+num] =  v;
07645        x[33+num] = -c;
07646        y[33+num] =  a;
07647        z[33+num] =  b;
07648        w[33+num] =  v;
07649        x[34+num] =  c;
07650        y[34+num] = -a;
07651        z[34+num] =  b;
07652        w[34+num] =  v;
07653        x[35+num] = -c;
07654        y[35+num] = -a;
07655        z[35+num] =  b;
07656        w[35+num] =  v;
07657        x[36+num] =  c;
07658        y[36+num] =  a;
07659        z[36+num] = -b;
07660        w[36+num] =  v;
07661        x[37+num] = -c;
07662        y[37+num] =  a;
07663        z[37+num] = -b;
07664        w[37+num] =  v;
07665        x[38+num] =  c;
07666        y[38+num] = -a;
07667        z[38+num] = -b;
07668        w[38+num] =  v;
07669        x[39+num] = -c;
07670        y[39+num] = -a;
07671        z[39+num] = -b;
07672        w[39+num] =  v;
07673        x[40+num] =  c;
07674        y[40+num] =  b;
07675        z[40+num] =  a;
07676        w[40+num] =  v;
07677        x[41+num] = -c;
07678        y[41+num] =  b;
07679        z[41+num] =  a;
07680        w[41+num] =  v;
07681        x[42+num] =  c;
07682        y[42+num] = -b;
07683        z[42+num] =  a;
07684        w[42+num] =  v;
07685        x[43+num] = -c;
07686        y[43+num] = -b;
07687        z[43+num] =  a;
07688        w[43+num] =  v;
07689        x[44+num] =  c;
07690        y[44+num] =  b;
07691        z[44+num] = -a;
07692        w[44+num] =  v;
07693        x[45+num] = -c;
07694        y[45+num] =  b;
07695        z[45+num] = -a;
07696        w[45+num] =  v;
07697        x[46+num] =  c;
07698        y[46+num] = -b;
07699        z[46+num] = -a;
07700        w[46+num] =  v;
07701        x[47+num] = -c;
07702        y[47+num] = -b;
07703        z[47+num] = -a;
07704        w[47+num] =  v;
07705        num=num+48;
07706 //       return
07707      break;
07708 
07709     default:
07710        std::cout<< "Gen_Oh: Invalid Code" << std::endl;
07711       break;
07712   }
07713 }
07714 
07715 
07717 
07718         void LD0194_test(double* x,double* y,double* z,double* w){
07719 /*     double x[194];
07720        double y[194];
07721        double z[194];
07722        double w[194]; */
07723        int N;
07724        double a=0.0,b=0.0,v=0.0;
07725 /*CVW
07726 CVW    LEBEDEV  194-POINT ANGULAR GRID
07727 CVW
07728 chvd
07729 chvd   This subroutine is part of a set of subroutines that generate
07730 chvd   Lebedev grids [1-6] for integration on a sphere. The original
07731 chvd   C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
07732 chvd   translated into fortran by Dr. Christoph van Wuellen.
07733 chvd   This subroutine was translated using a C to fortran77 conversion
07734 chvd   tool written by Dr. Christoph van Wuellen.
07735 chvd
07736 chvd   Users of this code are asked to include reference [1] in their
07737 chvd   publications, and in the user- and programmers-manuals
07738 chvd   describing their codes.
07739 chvd
07740 chvd   This code was distributed through CCL (http://www.ccl.net/).
07741 chvd
07742 chvd   [1] V.I. Lebedev, and D.N. Laikov
07743 chvd       "A quadrature formula for the sphere of the 131st
07744 chvd        algebraic order of accuracy"
07745 chvd       Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
07746 chvd
07747 chvd   [2] V.I. Lebedev
07748 chvd       "A quadrature formula for the sphere of 59th algebraic
07749 chvd        order of accuracy"
07750 chvd       Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
07751 chvd
07752 chvd   [3] V.I. Lebedev, and A.L. Skorokhodov
07753 chvd       "Quadrature formulas of orders 41, 47, and 53 for the sphere"
07754 chvd       Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
07755 chvd
07756 chvd   [4] V.I. Lebedev
07757 chvd       "Spherical quadrature formulas exact to orders 25-29"
07758 chvd       Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
07759 chvd
07760 chvd   [5] V.I. Lebedev
07761 chvd       "Quadratures on a sphere"
07762 chvd       Computational Mathematics and Mathematical Physics, Vol. 16,
07763 chvd       1976, pp. 10-24.
07764 chvd
07765 chvd   [6] V.I. Lebedev
07766 chvd       "Values of the nodes and weights of ninth to seventeenth
07767 chvd        order Gauss-Markov quadrature formulae invariant under the
07768 chvd        octahedron group with inversion"
07769 chvd       Computational Mathematics and Mathematical Physics, Vol. 15,
07770 chvd       1975, pp. 44-51.
07771 chvd    */
07772        N=1;
07773        v=0.1782340447244611e-2;
07774        GEN_OH( 1, N, x, y, z, w, a, b, v);
07775        v=0.5716905949977102e-2;
07776        GEN_OH( 2, N, x, y, z, w, a, b, v);
07777        v=0.5573383178848738e-2;
07778        GEN_OH( 3, N, x, y, z, w, a, b, v);
07779        a=0.6712973442695226;
07780        v=0.5608704082587997e-2;
07781        GEN_OH( 4, N, x, y, z, w, a, b, v);
07782        a=0.2892465627575439;
07783        v=0.5158237711805383e-2;
07784        GEN_OH( 4, N, x, y, z, w, a, b, v);
07785        a=0.4446933178717437;
07786        v=0.5518771467273614e-2;
07787        GEN_OH( 4, N, x, y, z, w, a, b, v);
07788        a=0.1299335447650067 ;
07789        v=0.4106777028169394e-2;
07790        GEN_OH( 4, N, x, y, z, w, a, b, v);
07791        a=0.3457702197611283;
07792        v=0.5051846064614808e-2;
07793        GEN_OH( 5, N, x, y, z, w, a, b, v);
07794        a=0.1590417105383530;
07795        b=0.8360360154824589;
07796        v=0.5530248916233094e-2;
07797        GEN_OH( 6, N, x, y, z, w, a, b, v);
07798        N=N-1;
07799        //RETURN
07800 }