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

%*****************************************************************************80;
%
%% LD5294 computes the 5294 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(5294,1);
  y = zeros(5294,1);
  z = zeros(5294,1);
  w = zeros(5294,1);
  a = 0.0;
  b = 0.0;
  v = 0.9080510764308163E-04;
  [ n, x, y, z, w ] = gen_oh ( 1, n, a, b, v, x, y, z, w );
  v = 0.2084824361987793E-03;
  [ n, x, y, z, w ] = gen_oh ( 3, n, a, b, v, x, y, z, w );
  a = 0.2303261686261450E-01;
  v = 0.5011105657239616E-04;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3757208620162394E-01;
  v = 0.5942520409683854E-04;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5821912033821852E-01;
  v = 0.9564394826109721E-04;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.8403127529194872E-01;
  v = 0.1185530657126338E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1122927798060578;
  v = 0.1364510114230331E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1420125319192987;
  v = 0.1505828825605415E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.1726396437341978;
  v = 0.1619298749867023E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2038170058115696;
  v = 0.1712450504267789E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2352849892876508;
  v = 0.1789891098164999E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2668363354312461;
  v = 0.1854474955629795E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.2982941279900452;
  v = 0.1908148636673661E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3295002922087076;
  v = 0.1952377405281833E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3603094918363593;
  v = 0.1988349254282232E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3905857895173920;
  v = 0.2017079807160050E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.4202005758160837;
  v = 0.2039473082709094E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.4490310061597227;
  v = 0.2056360279288953E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.4769586160311491;
  v = 0.2068525823066865E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5038679887049750;
  v = 0.2076724877534488E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5296454286519961;
  v = 0.2081694278237885E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5541776207164850;
  v = 0.2084157631219326E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.5990467321921213;
  v = 0.2084381531128593E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6191467096294587;
  v = 0.2083476277129307E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6375251212901849;
  v = 0.2082686194459732E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6540514381131168;
  v = 0.2082475686112415E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6685899064391510;
  v = 0.2083139860289915E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6810013009681648;
  v = 0.2084745561831237E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6911469578730340;
  v = 0.2087091313375890E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.6988956915141736;
  v = 0.2089718413297697E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.7041335794868720;
  v = 0.2092003303479793E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.7067754398018567;
  v = 0.2093336148263241E-03;
  [ n, x, y, z, w ] = gen_oh ( 4, n, a, b, v, x, y, z, w );
  a = 0.3840368707853623E-01;
  v = 0.7591708117365267E-04;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.9835485954117399E-01;
  v = 0.1083383968169186E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.1665774947612998;
  v = 0.1403019395292510E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.2405702335362910;
  v = 0.1615970179286436E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.3165270770189046;
  v = 0.1771144187504911E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.3927386145645443;
  v = 0.1887760022988168E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.4678825918374656;
  v = 0.1973474670768214E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.5408022024266935;
  v = 0.2033787661234659E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.6104967445752438;
  v = 0.2072343626517331E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.6760910702685738;
  v = 0.2091177834226918E-03;
  [ n, x, y, z, w ] = gen_oh ( 5, n, a, b, v, x, y, z, w );
  a = 0.6655644120217392E-01;
  b = 0.1936508874588424E-01;
  v = 0.9316684484675566E-04;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.9446246161270182E-01;
  b = 0.4252442002115869E-01;
  v = 0.1116193688682976E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1242651925452509;
  b = 0.6806529315354374E-01;
  v = 0.1298623551559414E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1553438064846751;
  b = 0.9560957491205369E-01;
  v = 0.1450236832456426E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1871137110542670;
  b = 0.1245931657452888;
  v = 0.1572719958149914E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2192612628836257;
  b = 0.1545385828778978;
  v = 0.1673234785867195E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2515682807206955;
  b = 0.1851004249723368;
  v = 0.1756860118725188E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2838535866287290;
  b = 0.2160182608272384;
  v = 0.1826776290439367E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3159578817528521;
  b = 0.2470799012277111;
  v = 0.1885116347992865E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3477370882791392;
  b = 0.2781014208986402;
  v = 0.1933457860170574E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3790576960890540;
  b = 0.3089172523515731;
  v = 0.1973060671902064E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4097938317810200;
  b = 0.3393750055472244;
  v = 0.2004987099616311E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4398256572859637;
  b = 0.3693322470987730;
  v = 0.2030170909281499E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4690384114718480;
  b = 0.3986541005609877;
  v = 0.2049461460119080E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4973216048301053;
  b = 0.4272112491408562;
  v = 0.2063653565200186E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5245681526132446;
  b = 0.4548781735309936;
  v = 0.2073507927381027E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5506733911803888;
  b = 0.4815315355023251;
  v = 0.2079764593256122E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5755339829522475;
  b = 0.5070486445801855;
  v = 0.2083150534968778E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1305472386056362;
  b = 0.2284970375722366E-01;
  v = 0.1262715121590664E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1637327908216477;
  b = 0.4812254338288384E-01;
  v = 0.1414386128545972E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.1972734634149637;
  b = 0.7531734457511935E-01;
  v = 0.1538740401313898E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2308694653110130;
  b = 0.1039043639882017;
  v = 0.1642434942331432E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2643899218338160;
  b = 0.1334526587117626;
  v = 0.1729790609237496E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2977171599622171;
  b = 0.1636414868936382;
  v = 0.1803505190260828E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3307293903032310;
  b = 0.1942195406166568;
  v = 0.1865475350079657E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3633069198219073;
  b = 0.2249752879943753;
  v = 0.1917182669679069E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3953346955922727;
  b = 0.2557218821820032;
  v = 0.1959851709034382E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4267018394184914;
  b = 0.2862897925213193;
  v = 0.1994529548117882E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4573009622571704;
  b = 0.3165224536636518;
  v = 0.2022138911146548E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4870279559856109;
  b = 0.3462730221636496;
  v = 0.2043518024208592E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5157819581450322;
  b = 0.3754016870282835;
  v = 0.2059450313018110E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5434651666465393;
  b = 0.4037733784993613;
  v = 0.2070685715318472E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5699823887764627;
  b = 0.4312557784139123;
  v = 0.2077955310694373E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5952403350947741;
  b = 0.4577175367122110;
  v = 0.2081980387824712E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2025152599210369;
  b = 0.2520253617719557E-01;
  v = 0.1521318610377956E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2381066653274425;
  b = 0.5223254506119000E-01;
  v = 0.1622772720185755E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2732823383651612;
  b = 0.8060669688588620E-01;
  v = 0.1710498139420709E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3080137692611118;
  b = 0.1099335754081255;
  v = 0.1785911149448736E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3422405614587601;
  b = 0.1399120955959857;
  v = 0.1850125313687736E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3758808773890420;
  b = 0.1702977801651705;
  v = 0.1904229703933298E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4088458383438932;
  b = 0.2008799256601680;
  v = 0.1949259956121987E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4410450550841152;
  b = 0.2314703052180836;
  v = 0.1986161545363960E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4723879420561312;
  b = 0.2618972111375892;
  v = 0.2015790585641370E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5027843561874343;
  b = 0.2920013195600270;
  v = 0.2038934198707418E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5321453674452458;
  b = 0.3216322555190551;
  v = 0.2056334060538251E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5603839113834030;
  b = 0.3506456615934198;
  v = 0.2068705959462289E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5874150706875146;
  b = 0.3789007181306267;
  v = 0.2076753906106002E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6131559381660038;
  b = 0.4062580170572782;
  v = 0.2081179391734803E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.2778497016394506;
  b = 0.2696271276876226E-01;
  v = 0.1700345216228943E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3143733562261912;
  b = 0.5523469316960465E-01;
  v = 0.1774906779990410E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3501485810261827;
  b = 0.8445193201626464E-01;
  v = 0.1839659377002642E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3851430322303653;
  b = 0.1143263119336083;
  v = 0.1894987462975169E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4193013979470415;
  b = 0.1446177898344475;
  v = 0.1941548809452595E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4525585960458567;
  b = 0.1751165438438091;
  v = 0.1980078427252384E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4848447779622947;
  b = 0.2056338306745660;
  v = 0.2011296284744488E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5160871208276894;
  b = 0.2359965487229226;
  v = 0.2035888456966776E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5462112185696926;
  b = 0.2660430223139146;
  v = 0.2054516325352142E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5751425068101757;
  b = 0.2956193664498032;
  v = 0.2067831033092635E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6028073872853596;
  b = 0.3245763905312779;
  v = 0.2076485320284876E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6291338275278409;
  b = 0.3527670026206972;
  v = 0.2081141439525255E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3541797528439391;
  b = 0.2823853479435550E-01;
  v = 0.1834383015469222E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.3908234972074657;
  b = 0.5741296374713106E-01;
  v = 0.1889540591777677E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4264408450107590;
  b = 0.8724646633650199E-01;
  v = 0.1936677023597375E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4609949666553286;
  b = 0.1175034422915616;
  v = 0.1976176495066504E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4944389496536006;
  b = 0.1479755652628428;
  v = 0.2008536004560983E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5267194884346086;
  b = 0.1784740659484352;
  v = 0.2034280351712291E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5577787810220990;
  b = 0.2088245700431244;
  v = 0.2053944466027758E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5875563763536670;
  b = 0.2388628136570763;
  v = 0.2068077642882360E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6159910016391269;
  b = 0.2684308928769185;
  v = 0.2077250949661599E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6430219602956268;
  b = 0.2973740761960252;
  v = 0.2082062440705320E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4300647036213646;
  b = 0.2916399920493977E-01;
  v = 0.1934374486546626E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.4661486308935531;
  b = 0.5898803024755659E-01;
  v = 0.1974107010484300E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5009658555287261;
  b = 0.8924162698525409E-01;
  v = 0.2007129290388658E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5344824270447704;
  b = 0.1197185199637321;
  v = 0.2033736947471293E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5666575997416371;
  b = 0.1502300756161382;
  v = 0.2054287125902493E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5974457471404752;
  b = 0.1806004191913564;
  v = 0.2069184936818894E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6267984444116886;
  b = 0.2106621764786252;
  v = 0.2078883689808782E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6546664713575417;
  b = 0.2402526932671914;
  v = 0.2083886366116359E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5042711004437253;
  b = 0.2982529203607657E-01;
  v = 0.2006593275470817E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5392127456774380;
  b = 0.6008728062339922E-01;
  v = 0.2033728426135397E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5726819437668618;
  b = 0.9058227674571398E-01;
  v = 0.2055008781377608E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6046469254207278;
  b = 0.1211219235803400;
  v = 0.2070651783518502E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6350716157434952;
  b = 0.1515286404791580;
  v = 0.2080953335094320E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6639177679185454;
  b = 0.1816314681255552;
  v = 0.2086284998988521E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.5757276040972253;
  b = 0.3026991752575440E-01;
  v = 0.2055549387644668E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6090265823139755;
  b = 0.6078402297870770E-01;
  v = 0.2071871850267654E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6406735344387661;
  b = 0.9135459984176636E-01;
  v = 0.2082856600431965E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6706397927793709;
  b = 0.1218024155966590;
  v = 0.2088705858819358E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6435019674426665;
  b = 0.3052608357660639E-01;
  v = 0.2083995867536322E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  a = 0.6747218676375681;
  b = 0.6112185773983089E-01;
  v = 0.2090509712889637E-03;
  [ n, x, y, z, w ] = gen_oh ( 6, n, a, b, v, x, y, z, w );
  
  return
end
