function [ x, y, z, w ] = ld5810 ( )

%*****************************************************************************80;
%
%% LD5810 computes the 5810 point Lebedev angular grid.
%
%  Modified:
%
%    14 September 2010
%
%  Author:
%
%    Dmitri Laikov
%
%  Reference:
%
%    Vyacheslav Lebedev, Dmitri Laikov,
%    A quadrature formula for the sphere of the 131st
%    algebraic order of accuracy,
%    Russian Academy of Sciences Doklady Mathematics,
%    Volume 59, Number 3, 1999, pages 477-481.
%
%  Parameters:
%
%    Output, real X(N), Y(N), Z(N), W(N), the coordinates
%    and weights of the points.
%
  n = 0;
  x = zeros(5810,1);
  y = zeros(5810,1);
  z = zeros(5810,1);
  w = zeros(5810,1);
  a = 0.0;
  b = 0.0;
  v = 0.9735347946175486E-05;
  [ n, x, y, z, w ] = gen_oh ( 1, n, a, b, v, x, y, z, w );
  v = 0.1907581241803167E-03;
  [ n, x, y, z, w ] = gen_oh ( 2, n, a, b, v, x, y, z, w );
  v = 0.1901059546737578E-03;
  [ n, x, y, z, w ] = gen_oh ( 3, n, a, b, v, x, y, z, w );
  a = 0.1182361662400277E-01;
  v = 0.3926424538919212E-04;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3062145009138958E-01;
  v = 0.6667905467294382E-04;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5329794036834243E-01;
  v = 0.8868891315019135E-04;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.7848165532862220E-01;
  v = 0.1066306000958872E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1054038157636201;
  v = 0.1214506743336128E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1335577797766211;
  v = 0.1338054681640871E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1625769955502252;
  v = 0.1441677023628504E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1921787193412792;
  v = 0.1528880200826557E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2221340534690548;
  v = 0.1602330623773609E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2522504912791132;
  v = 0.1664102653445244E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2823610860679697;
  v = 0.1715845854011323E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3123173966267560;
  v = 0.1758901000133069E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3419847036953789;
  v = 0.1794382485256736E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3712386456999758;
  v = 0.1823238106757407E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3999627649876828;
  v = 0.1846293252959976E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.4280466458648093;
  v = 0.1864284079323098E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.4553844360185711;
  v = 0.1877882694626914E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.4818736094437834;
  v = 0.1887716321852025E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5074138709260629;
  v = 0.1894381638175673E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5319061304570707;
  v = 0.1898454899533629E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5552514978677286;
  v = 0.1900497929577815E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5981009025246183;
  v = 0.1900671501924092E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6173990192228116;
  v = 0.1899837555533510E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6351365239411131;
  v = 0.1899014113156229E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6512010228227200;
  v = 0.1898581257705106E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6654758363948120;
  v = 0.1898804756095753E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6778410414853370;
  v = 0.1899793610426402E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6881760887484110;
  v = 0.1901464554844117E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6963645267094598;
  v = 0.1903533246259542E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.7023010617153579;
  v = 0.1905556158463228E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.7059004636628753;
  v = 0.1907037155663528E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3552470312472575E-01;
  v = 0.5992997844249967E-04;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.9151176620841283E-01;
  v = 0.9749059382456978E-04;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.1566197930068980;
  v = 0.1241680804599158E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.2265467599271907;
  v = 0.1437626154299360E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.2988242318581361;
  v = 0.1584200054793902E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.3717482419703886;
  v = 0.1694436550982744E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.4440094491758889;
  v = 0.1776617014018108E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.5145337096756642;
  v = 0.1836132434440077E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.5824053672860230;
  v = 0.1876494727075983E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.6468283961043370;
  v = 0.1899906535336482E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.6095964259104373E-01;
  b = 0.1787828275342931E-01;
  v = 0.8143252820767350E-04;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.8811962270959388E-01;
  b = 0.3953888740792096E-01;
  v = 0.9998859890887728E-04;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1165936722428831;
  b = 0.6378121797722990E-01;
  v = 0.1156199403068359E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1460232857031785;
  b = 0.8985890813745037E-01;
  v = 0.1287632092635513E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1761197110181755;
  b = 0.1172606510576162;
  v = 0.1398378643365139E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2066471190463718;
  b = 0.1456102876970995;
  v = 0.1491876468417391E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2374076026328152;
  b = 0.1746153823011775;
  v = 0.1570855679175456E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2682305474337051;
  b = 0.2040383070295584;
  v = 0.1637483948103775E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2989653312142369;
  b = 0.2336788634003698;
  v = 0.1693500566632843E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3294762752772209;
  b = 0.2633632752654219;
  v = 0.1740322769393633E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3596390887276086;
  b = 0.2929369098051601;
  v = 0.1779126637278296E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3893383046398812;
  b = 0.3222592785275512;
  v = 0.1810908108835412E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4184653789358347;
  b = 0.3512004791195743;
  v = 0.1836529132600190E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4469172319076166;
  b = 0.3796385677684537;
  v = 0.1856752841777379E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4745950813276976;
  b = 0.4074575378263879;
  v = 0.1872270566606832E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5014034601410262;
  b = 0.4345456906027828;
  v = 0.1883722645591307E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5272493404551239;
  b = 0.4607942515205134;
  v = 0.1891714324525297E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5520413051846366;
  b = 0.4860961284181720;
  v = 0.1896827480450146E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5756887237503077;
  b = 0.5103447395342790;
  v = 0.1899628417059528E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1225039430588352;
  b = 0.2136455922655793E-01;
  v = 0.1123301829001669E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1539113217321372;
  b = 0.4520926166137188E-01;
  v = 0.1253698826711277E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1856213098637712;
  b = 0.7086468177864818E-01;
  v = 0.1366266117678531E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2174998728035131;
  b = 0.9785239488772918E-01;
  v = 0.1462736856106918E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2494128336938330;
  b = 0.1258106396267210;
  v = 0.1545076466685412E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2812321562143480;
  b = 0.1544529125047001;
  v = 0.1615096280814007E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3128372276456111;
  b = 0.1835433512202753;
  v = 0.1674366639741759E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3441145160177973;
  b = 0.2128813258619585;
  v = 0.1724225002437900E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3749567714853510;
  b = 0.2422913734880829;
  v = 0.1765810822987288E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4052621732015610;
  b = 0.2716163748391453;
  v = 0.1800104126010751E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4349335453522385;
  b = 0.3007127671240280;
  v = 0.1827960437331284E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4638776641524965;
  b = 0.3294470677216479;
  v = 0.1850140300716308E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4920046410462687;
  b = 0.3576932543699155;
  v = 0.1867333507394938E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5192273554861704;
  b = 0.3853307059757764;
  v = 0.1880178688638289E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5454609081136522;
  b = 0.4122425044452694;
  v = 0.1889278925654758E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5706220661424140;
  b = 0.4383139587781027;
  v = 0.1895213832507346E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5946286755181518;
  b = 0.4634312536300553;
  v = 0.1898548277397420E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1905370790924295;
  b = 0.2371311537781979E-01;
  v = 0.1349105935937341E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2242518717748009;
  b = 0.4917878059254806E-01;
  v = 0.1444060068369326E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2577190808025936;
  b = 0.7595498960495142E-01;
  v = 0.1526797390930008E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2908724534927187;
  b = 0.1036991083191100;
  v = 0.1598208771406474E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3236354020056219;
  b = 0.1321348584450234;
  v = 0.1659354368615331E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3559267359304543;
  b = 0.1610316571314789;
  v = 0.1711279910946440E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3876637123676956;
  b = 0.1901912080395707;
  v = 0.1754952725601440E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4187636705218842;
  b = 0.2194384950137950;
  v = 0.1791247850802529E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4491449019883107;
  b = 0.2486155334763858;
  v = 0.1820954300877716E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4787270932425445;
  b = 0.2775768931812335;
  v = 0.1844788524548449E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5074315153055574;
  b = 0.3061863786591120;
  v = 0.1863409481706220E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5351810507738336;
  b = 0.3343144718152556;
  v = 0.1877433008795068E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5619001025975381;
  b = 0.3618362729028427;
  v = 0.1887444543705232E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5875144035268046;
  b = 0.3886297583620408;
  v = 0.1894009829375006E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6119507308734495;
  b = 0.4145742277792031;
  v = 0.1897683345035198E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2619733870119463;
  b = 0.2540047186389353E-01;
  v = 0.1517327037467653E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2968149743237949;
  b = 0.5208107018543989E-01;
  v = 0.1587740557483543E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3310451504860488;
  b = 0.7971828470885599E-01;
  v = 0.1649093382274097E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3646215567376676;
  b = 0.1080465999177927;
  v = 0.1701915216193265E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3974916785279360;
  b = 0.1368413849366629;
  v = 0.1746847753144065E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4295967403772029;
  b = 0.1659073184763559;
  v = 0.1784555512007570E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4608742854473447;
  b = 0.1950703730454614;
  v = 0.1815687562112174E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4912598858949903;
  b = 0.2241721144376724;
  v = 0.1840864370663302E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5206882758945558;
  b = 0.2530655255406489;
  v = 0.1860676785390006E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5490940914019819;
  b = 0.2816118409731066;
  v = 0.1875690583743703E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5764123302025542;
  b = 0.3096780504593238;
  v = 0.1886453236347225E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6025786004213506;
  b = 0.3371348366394987;
  v = 0.1893501123329645E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6275291964794956;
  b = 0.3638547827694396;
  v = 0.1897366184519868E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3348189479861771;
  b = 0.2664841935537443E-01;
  v = 0.1643908815152736E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3699515545855295;
  b = 0.5424000066843495E-01;
  v = 0.1696300350907768E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4042003071474669;
  b = 0.8251992715430854E-01;
  v = 0.1741553103844483E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4375320100182624;
  b = 0.1112695182483710;
  v = 0.1780015282386092E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4699054490335947;
  b = 0.1402964116467816;
  v = 0.1812116787077125E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5012739879431952;
  b = 0.1694275117584291;
  v = 0.1838323158085421E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5315874883754966;
  b = 0.1985038235312689;
  v = 0.1859113119837737E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5607937109622117;
  b = 0.2273765660020893;
  v = 0.1874969220221698E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5888393223495521;
  b = 0.2559041492849764;
  v = 0.1886375612681076E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6156705979160163;
  b = 0.2839497251976899;
  v = 0.1893819575809276E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6412338809078123;
  b = 0.3113791060500690;
  v = 0.1897794748256767E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4076051259257167;
  b = 0.2757792290858463E-01;
  v = 0.1738963926584846E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4423788125791520;
  b = 0.5584136834984293E-01;
  v = 0.1777442359873466E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4760480917328258;
  b = 0.8457772087727143E-01;
  v = 0.1810010815068719E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5085838725946297;
  b = 0.1135975846359248;
  v = 0.1836920318248129E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5399513637391218;
  b = 0.1427286904765053;
  v = 0.1858489473214328E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5701118433636380;
  b = 0.1718112740057635;
  v = 0.1875079342496592E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5990240530606021;
  b = 0.2006944855985351;
  v = 0.1887080239102310E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6266452685139695;
  b = 0.2292335090598907;
  v = 0.1894905752176822E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6529320971415942;
  b = 0.2572871512353714;
  v = 0.1898991061200695E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4791583834610126;
  b = 0.2826094197735932E-01;
  v = 0.1809065016458791E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5130373952796940;
  b = 0.5699871359683649E-01;
  v = 0.1836297121596799E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5456252429628476;
  b = 0.8602712528554394E-01;
  v = 0.1858426916241869E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5768956329682385;
  b = 0.1151748137221281;
  v = 0.1875654101134641E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6068186944699046;
  b = 0.1442811654136362;
  v = 0.1888240751833503E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6353622248024907;
  b = 0.1731930321657680;
  v = 0.1896497383866979E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6624927035731797;
  b = 0.2017619958756061;
  v = 0.1900775530219121E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5484933508028488;
  b = 0.2874219755907391E-01;
  v = 0.1858525041478814E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5810207682142106;
  b = 0.5778312123713695E-01;
  v = 0.1876248690077947E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6120955197181352;
  b = 0.8695262371439526E-01;
  v = 0.1889404439064607E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6416944284294319;
  b = 0.1160893767057166;
  v = 0.1898168539265290E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6697926391731260;
  b = 0.1450378826743251;
  v = 0.1902779940661772E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6147594390585488;
  b = 0.2904957622341456E-01;
  v = 0.1890125641731815E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6455390026356783;
  b = 0.5823809152617197E-01;
  v = 0.1899434637795751E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6747258588365477;
  b = 0.8740384899884715E-01;
  v = 0.1904520856831751E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6772135750395347;
  b = 0.2919946135808105E-01;
  v = 0.1905534498734563E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  
  return
end