diff --git a/src/nwdft/xc/xc_lebedev.F b/src/nwdft/xc/xc_lebedev.F index d8071b562a..7d81e77ba6 100644 --- a/src/nwdft/xc/xc_lebedev.F +++ b/src/nwdft/xc/xc_lebedev.F @@ -1,7 +1,7 @@ subroutine xc_lebedev(l_ang, oprint) implicit none c -C$Id: xc_lebedev.F,v 1.20 2000-03-07 20:03:17 edo Exp $ +C$Id: xc_lebedev.F,v 1.21 2000-03-07 22:54:01 edo Exp $ c #include "cdft.fh" #include "stdio.fh" @@ -9,11 +9,12 @@ c #include "tcgmsg.fh" c c Routine for Lebedev weights, supplied by Mauro Causa` -c n>=7 modified by E. Apra based on the following paper +c modified by E. Apra based on the following paper c B.Delley, J. Comp. Chem. 17, 1152 (1996) +c All points were provide by DN Laikov and VI lebedev +c 3/7/200 c n = 131 from VI Lebedev and DN Laikov, c Doklady Mathematics 366, 741 (1999) -c 65 < n < 135 from D.Laikov 3/7/200 c c integer iacc ! [input] c @@ -36,79 +37,84 @@ c c data isig/ 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, & -1, -1, -1, 1, -1, -1, -1, 1, -1, -1, -1, 1/ -c -c n = 9 -c - data wleb( 1), (gjk(i, 1), i = 1, 2)/ - & 0.00952380952397d0, 1.0d0, 0.0d0/ -c - data wleb( 2), (gjk(i, 2), i = 1, 2)/ - & 0.0321428571429d0, 1.0d0, 1.0d0/ -c - data wleb( 3), (gjk(i, 3), i = 1, 2)/ - & 0.0285714285714d0, 0.459700843381d0, - & 0.d0/ -c -c n = 11 -c - data wleb( 4), (gjk(i, 4), i = 1, 2)/ - & 0.0126984126985d0, 1.0d0, 0.0d0/ -c - data wleb( 5), (gjk(i, 5), i = 1, 2)/ - & 0.0225749559083d0, 1.0d0, 1.0d0/ -c - data wleb( 6), (gjk(i, 6), i = 1, 2)/ - & 0.02109375d0, 1.0d0, 1.0d0/ -c - data wleb( 7), (gjk(i, 7), i = 1, 2)/ - & 0.0201733355379d0, 0.301511344578d0, - & 0.301511344578d0/ -c -c n = 17 -c - data wleb( 8), (gjk(i, 8), i = 1, 2)/ - & 0.003828270494940d0, 1.0d0, 0.0d0/ - data wleb( 9), (gjk(i, 9), i = 1, 2)/ - & 0.009793737512490d0, 1.0d0, 1.0d0/ - data wleb(10), (gjk(i,10), i = 1, 2)/ - & 0.008211737283190d0, 0.1851156353450d0, - & 0.1851156353450d0/ - data wleb(11), (gjk(i,11), i = 1, 2)/ - & 0.009595471336070d0, 0.3956894730560d0, - & 0.3956894730560d0/ - data wleb(12), (gjk(i,12), i = 1, 2)/ - & 0.00994281489118d0, 0.690421048382d0, - & 0.690421048382d0/ - data wleb(13), (gjk(i,13), i = 1, 2)/ - & 0.00969499636166d0, 0.478369028812d0, - & 0.d0/ -c -c n = 23 -c - data wleb(14), (gjk(i,14), i = 1, 2)/ - & 0.00178234044724d0, 1.0d0, 0.0d0/ - data wleb(15), (gjk(i,15), i = 1, 2)/ - & 0.00571690594998d0, 1.0d0, 1.0d0/ - data wleb(16), (gjk(i,16), i = 1, 2)/ - & 0.00557338317884d0, 1.0d0, 1.0d0/ - data wleb(17), (gjk(i,17), i = 1, 2)/ - & 0.00551877146727d0, 0.444693317871d0, - & 0.444693317871d0/ - data wleb(18), (gjk(i,18), i = 1, 2)/ - & 0.005158237711810d0, 0.2892465627580d0, - & 0.2892465627580d0/ - data wleb(19), (gjk(i,19), i = 1, 2)/ - & 0.00560870408259d0, 0.671297344270d0, - & 0.671297344270d0/ - data wleb(20), (gjk(i,20), i = 1, 2)/ - & 0.00410677702817d0, 0.129933544765d0, - & 0.129933544765d0/ - data wleb(21), (gjk(i,21), i = 1, 2)/ - & 0.00505184606462d0, 0.345770219761d0, - & 0.d0/ - data wleb(22), (gjk(i,22), i = 1, 2)/ - & 0.00553024891623d0, 0.836036015482d0, - & 0.159041710538d0/ +C +C n = 9 +C + data wleb( 1),(gjk(i, 1),i=1,2)/ + & 9.523809523809525D-03, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 2),(gjk(i, 2),i=1,2)/ + & 3.214285714285714D-02, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 3),(gjk(i, 3),i=1,2)/ + & 2.857142857142857D-02, + & 4.597008433809831D-01, 0.000000000000000D+00/ +C +C n = 11 +C + data wleb( 4),(gjk(i, 4),i=1,2)/ + & 1.269841269841270D-02, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 5),(gjk(i, 5),i=1,2)/ + & 2.257495590828924D-02, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 6),(gjk(i, 6),i=1,2)/ + & 2.109375000000000D-02, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 7),(gjk(i, 7),i=1,2)/ + & 2.017333553791887D-02, + & 3.015113445777636D-01, 3.015113445777636D-01/ +C +C n = 17 +C + data wleb( 8),(gjk(i, 8),i=1,2)/ + & 3.828270494937162D-03, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 9),(gjk(i, 9),i=1,2)/ + & 9.793737512487513D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 10),(gjk(i, 10),i=1,2)/ + & 8.211737283191111D-03, + & 1.851156353447362D-01, 1.851156353447362D-01/ + data wleb( 11),(gjk(i, 11),i=1,2)/ + & 9.942814891178103D-03, + & 6.904210483822922D-01, 6.904210483822922D-01/ + data wleb( 12),(gjk(i, 12),i=1,2)/ + & 9.595471336070962D-03, + & 3.956894730559419D-01, 3.956894730559419D-01/ + data wleb( 13),(gjk(i, 13),i=1,2)/ + & 9.694996361663029D-03, + & 4.783690288121502D-01, 0.000000000000000D+00/ +C +C n = 23 +C + data wleb( 14),(gjk(i, 14),i=1,2)/ + & 1.782340447244611D-03, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 15),(gjk(i, 15),i=1,2)/ + & 5.716905949977102D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 16),(gjk(i, 16),i=1,2)/ + & 5.573383178848738D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 17),(gjk(i, 17),i=1,2)/ + & 5.608704082587997D-03, + & 6.712973442695226D-01, 6.712973442695226D-01/ + data wleb( 18),(gjk(i, 18),i=1,2)/ + & 5.158237711805383D-03, + & 2.892465627575439D-01, 2.892465627575439D-01/ + data wleb( 19),(gjk(i, 19),i=1,2)/ + & 5.518771467273614D-03, + & 4.446933178717437D-01, 4.446933178717437D-01/ + data wleb( 20),(gjk(i, 20),i=1,2)/ + & 4.106777028169394D-03, + & 1.299335447650067D-01, 1.299335447650067D-01/ + data wleb( 21),(gjk(i, 21),i=1,2)/ + & 5.051846064614808D-03, + & 3.457702197611283D-01, 0.000000000000000D+00/ + data wleb( 22),(gjk(i, 22),i=1,2)/ + & 5.530248916233094D-03, + & 1.590417105383530D-01, 8.360360154824589D-01/ c c n = 27 c @@ -142,436 +148,441 @@ c data wleb(33), (gjk(i,33), i = 1, 2)/ & 0.00408091422578d0, 0.939227930219614d0, & 0.3233484544306744d0/ -c -c n = 29 -c - data wleb(34), (gjk(i,34), i = 1, 2)/ - & .0008545911725128148d0, 1.0d0, 0.0d0/ - data wleb(35), (gjk(i,35), i = 1, 2)/ - & .0035991192850255715d0, 1.0d0, 1.0d0/ - data wleb(36), (gjk(i,36), i = 1, 2)/ - & .0036500458076772554D0, - & .70117664160895449D0, .70117664160895449D0/ - data wleb(37), (gjk(i,37), i = 1, 2)/ - & .0036048226014198817D0, - & .65663294102196118D0, .65663294102196118D0/ - data wleb(38), (gjk(i,38), i = 1, 2)/ - & .0035767296617433671D0, - & .47290541325810046D0, .47290541325810046D0/ - data wleb(39), (gjk(i,39), i = 1, 2)/ - & .0034497884243058833D0, - & .35156403455701051D0, .35156403455701051D0/ - data wleb(40), (gjk(i,40), i = 1, 2)/ - & .0031089531224136753D0, - & .22196452362941784D0, .22196452362941784D0/ - data wleb(41), (gjk(i,41), i = 1, 2)/ - & .0023521014136891644D0, - & .09618308522614784D0, .09618308522614784D0/ - data wleb(42), (gjk(i,42), i = 1, 2)/ - & .0036008209322164603D0, - & .57189558918789607D0, .00000000000000000D0/ - data wleb(43), (gjk(i,43), i = 1, 2)/ - & .0029823449631718039D0, - & .26441528706006625D0, .00000000000000000D0/ - data wleb(44), (gjk(i,44), i = 1, 2)/ - & .0035715405542733871D0, - & .54486773725807738D0, .25100347517704651D0/ - data wleb(45), (gjk(i,45), i = 1, 2)/ - & .0033923122050061702D0, - & .41277240831685310D0, .12335485325833274D0/ -c -c n = 35 -c - data wleb(46), (gjk(i,46), i = 1, 2)/ - & 0.52659765761428065D-3, 1.0d0, 0.0d0/ - data wleb(47), (gjk(i,47), i = 1, 2)/ - & 0.25482199909403521D-2, 1.0d0, 1.0d0/ - data wleb(48), (gjk(i,48), i = 1, 2)/ - & 0.25123173709441058D-2, 1.0d0, 1.0d0/ - data wleb(49), (gjk(i,49), i = 1, 2)/ - & 0.25304038224001323D-2, 0.69093463105113458D0, - & 0.69093463105113458D0 / - data wleb(50), (gjk(i,50), i = 1, 2)/ - & 0.25132671684706878D-2, 0.64566647095194987D0, - & 0.64566647095194987D0/ - data wleb(51), (gjk(i,51), i = 1, 2)/ - & 0.25017251210647733D-2, 0.49143426555639500D0, - & 0.49143426555639500D0/ - data wleb(52), (gjk(i,52), i = 1, 2)/ - & 0.24453733047996786D-2, 0.39272598223217649D0, - & 0.39272598223217649D0/ - data wleb(53), (gjk(i,53), i = 1, 2)/ - & 0.23026944325620758D-2, 0.28612891787658218D0, - & 0.28612891787658218D0/ - data wleb(54), (gjk(i,54), i = 1, 2)/ - & 0.20142782609526094D-2, 0.17748365242374568D0, - & 0.17748365242374568D0/ - data wleb(55), (gjk(i,55), i = 1, 2)/ - & 0.14624950815475142D-2, 0.07568095866244468D0, - & 0.07568095866244468D0/ - data wleb(56),(gjk(i,56), i = 1, 2)/ - & 0.19109513147305082D-2, 0.21027253307334757D0, - & 0.d0/ - data wleb(57), (gjk(i,57), i = 1, 2)/ - & 0.24174423575419847D-2, 0.47159868819488597D0, - & 0.d0/ - data wleb(58), (gjk(i,58), i = 1, 2)/ - & 0.22366077071364263D-2, 0.09921769971362576D0, - & 0.33443631695748371D0/ - data wleb(59), (gjk(i,59), i = 1, 2)/ - & 0.24169300107381179D-2, 0.20548237125466495D0, - & 0.45023303874296735D0/ - data wleb(60), (gjk(i,60), i = 1, 2)/ - & 0.25122368647336706D-2, 0.10680182513533723D0, - & 0.59051570309804130D0/ - data wleb(61), (gjk(i,61), i = 1, 2)/ - & 0.24966440519292456D-2, 0.31042840327515130D0, - & 0.55501523681448068D0/ -c -c n = 41 -c - data wleb(62), (gjk(i,62), i = 1, 2)/ - & .0001009005753378758D0, 1.00000000000000000D0, - & .00000000000000000D0/ - data wleb(63), (gjk(i,63), i = 1, 2)/ - & .0018514016873890461D0,1.00000000000000000D0, - & 1.00000000000000000D0/ - data wleb(64), (gjk(i,64), i = 1, 2)/ - & .0018686219518306975D0, .70404760433146996D0, - & .70404760433146996D0/ - data wleb(65), (gjk(i,65), i = 1, 2)/ - & .0018648696345606001D0, .68084561988024238D0, - & .68084561988024238D0/ - data wleb(66), (gjk(i,66), i = 1, 2)/ - & .0018497643975168892D0, .63723669159418917D0, - & .63723669159418917D0/ - data wleb(67), (gjk(i,67), i = 1, 2)/ - & .0018450277740822388D0, .50447558060926046D0, - & .50447558060926046D0/ - data wleb(68), (gjk(i,68), i = 1, 2)/ - & .0018164174988262214D0, .42175447334398773D0, - & .42175447334398773D0/ - data wleb(69), (gjk(i,69), i = 1, 2)/ - & .0017449464690023229D0, .33201962086729379D0, - & .33201962086729379D0/ - data wleb(70), (gjk(i,70), i = 1, 2)/ - & .0016278016126848035D0, .23917494336556047D0, - & .23917494336556047D0/ - data wleb(71), (gjk(i,71), i = 1, 2)/ - & .0015576827519901693D0, .14024070738935403D0, - & .14024070738935403D0/ - data wleb(72), (gjk(i,72), i = 1, 2)/ - & .0012680968886048433D0, .09161634328605240D0, - & .00000000000000000D0/ - data wleb(73), (gjk(i,73), i = 1, 2)/ - & .0011183965414769017D0, .20326292518419433D0, - & .00000000000000000D0/ - data wleb(74), (gjk(i,74), i = 1, 2)/ - & .0017287035120530033D0, .39364042372978295D0, - & .00000000000000000D0/ - data wleb(75), (gjk(i,75), i = 1, 2)/ - & .0018551905629473527D0, .61262355812929648D0, - & .00000000000000000D0/ - data wleb(76), (gjk(i,76), i = 1, 2)/ - & .0014697353123693616D0, .28114771623428322D0, - & .08959875911893791D0/ - data wleb(77), (gjk(i,77), i = 1, 2)/ - & .0016819651914742022D0, .38175470908581117D0, - & .17327600238498666D0/ - data wleb(78), (gjk(i,78), i = 1, 2)/ - & .0017876372876796954D0, .47452376478986998D0, - & .26422260656245780D0/ - data wleb(79), (gjk(i,79), i = 1, 2)/ - & .0018400735685528423D0, .56127905075920534D0, - & .35189965873835832D0/ - data wleb(80), (gjk(i,80), i = 1, 2)/ - & .0018072536817113700D0, .50324791996964975D0, - & .08886791018186295D0/ - data wleb(81), (gjk(i,81), i = 1, 2)/ - & .0018527289739424312D0, .59768324320748616D0, - & .18154345643517542D0/ -c -c n = 47 -c - data wleb(82), (gjk(i,82), i = 1, 2)/ - &.0011685335608691628D0,1.00000000000000000D0, - &.00000000000000000D0/ - data wleb(83), (gjk(i,83), i = 1, 2)/ - &.0014468645950992776D0,1.0d0, - &1.0d0/ - data wleb(84), (gjk(i,84), i = 1, 2)/ - &.0014121215930643264D0,1.d0, - &1.d0/ - data wleb(85), (gjk(i,85), i = 1, 2)/ - &.0010478418864629224D0,.11441365123336336D0, - &.11441365123336336D0/ - data wleb(86), (gjk(i,86), i = 1, 2)/ - &.0012392547584848484D0,.19944675708548970D0, - &.19944675708548970D0/ - data wleb(87), (gjk(i,87), i = 1, 2)/ - &.0013259295792415379D0,.28401278368259530D0, - &.28401278368259530D0/ - data wleb(88), (gjk(i,88), i = 1, 2)/ - &.0013756097758625958D0,.36646411416548296D0, - &.36646411416548296D0/ - data wleb(89), (gjk(i,89), i = 1, 2)/ - &.0013999349863558624D0,.44356118052513995D0, - &.44356118052513995D0/ - data wleb(90), (gjk(i,90), i = 1, 2)/ - &.0014096221218822673D0,.51435709575333968D0, - &.51435709575333968D0/ - data wleb(91), (gjk(i,91), i = 1, 2)/ - &.0014108746499638577D0,.63052081196671812D0, - &.63052081196671812D0/ - data wleb(92), (gjk(i,92), i = 1, 2)/ - &.0014134887639034478D0,.67164784337293965D0, - &.67164784337293965D0/ - data wleb(93), (gjk(i,93), i = 1, 2)/ - &.0014366946685816802D0,.69812332010174177D0, - &.69812332010174177D0/ - data wleb(94), (gjk(i,94), i = 1, 2)/ - &.0010901543574180667D0,.12047667931264991D0, - &.00000000000000000D0/ - data wleb(95), (gjk(i,95), i = 1, 2)/ - &.0001869137844803852D0,.30940302315480606D0, - &.00000000000000000D0/ - data wleb(96), (gjk(i,96), i = 1, 2)/ - &.0011284267652336505D0,.34884276430183016D0, - &.00000000000000000D0/ - data wleb(97), (gjk(i,97), i = 1, 2)/ - &.0013844558026568455D0,.53224214285417946D0, - &.00000000000000000D0/ - data wleb(98), (gjk(i,98), i = 1, 2)/ - &.0011853923885095502D0,.23249923409267532D0, - &.06616159933437003D0/ - data wleb(99), (gjk(i,99), i = 1, 2)/ - &.0012949021664637693D0,.32477344409682044D0, - &.14568618765136356D0/ - data wleb(100), (gjk(i,100), i = 1, 2)/ - &.0013525857420363760D0,.41056989039349425D0, - &.22832839132127622D0/ - data wleb(101), (gjk(i,101), i = 1, 2)/ - &.0013925025908786082D0,.49213658085114203D0, - &.30714431901543855D0/ - data wleb(102), (gjk(i,102), i = 1, 2)/ - &.0014073257894372725D0,.56548849812588755D0, - &.38271180625074657D0/ - data wleb(103), (gjk(i,103), i = 1, 2)/ - &.0013128954307755017D0,.43713473693946563D0, - &.07970715187939190D0/ - data wleb(104), (gjk(i,104), i = 1, 2)/ - &.0013784632898490457D0,.52320749473197761D0, - &.15892620239864833D0/ - data wleb(105), (gjk(i,105), i = 1, 2)/ - &.0014125450609821936D0,.60283033994386521D0, - &.23667220253873893D0/ - data wleb(106), (gjk(i,106), i = 1, 2)/ - &.0014289835314095131D0,.62037164721742807D0, - &.07982328826030880D0/ -c -c n = 53 -c - data wleb(107),(gjk(i,107),i=1,2)/ - & .0001438294190527431d0, 1.00000000000000000d0, - & .00000000000000000d0/ - data wleb(108),(gjk(i,108),i=1,2)/ - & .0011257722882870041d0, 1.00000000000000000d0, - & 1.00000000000000000D0/ - data wleb(109),(gjk(i,109),i=1,2)/ - & .0004948029341949241d0, .04292963545341347d0, - & .04292963545341347d0/ - data wleb(110),(gjk(i,110),i=1,2)/ - & .0007357990109125470d0, .10514268540864042d0, - & .10514268540864042d0/ - data wleb(111),(gjk(i,111),i=1,2)/ - & .0008889132771304384d0, .17500248676230874d0, - & .17500248676230874d0/ - data wleb(112),(gjk(i,112),i=1,2)/ - & .0009888347838921435d0, .24776533796502568d0, - & .24776533796502568d0/ - data wleb(113),(gjk(i,113),i=1,2)/ - & .0010532996817094706d0, .32065671239559574d0, - & .32065671239559574d0/ - data wleb(114),(gjk(i,114),i=1,2)/ - & .0010927788070145785d0, .39165207498499835d0, - & .39165207498499835d0/ - data wleb(115),(gjk(i,115),i=1,2)/ - & .0011143893940632272d0, .45908258741876237d0, - & .45908258741876237d0/ - data wleb(116),(gjk(i,116),i=1,2)/ - & .0011237247880515553d0, .52145638884158605d0, - & .52145638884158605d0/ - data wleb(117),(gjk(i,117),i=1,2)/ - & .0011252393252438136d0, .62531702446541989d0, - & .62531702446541989d0/ - data wleb(118),(gjk(i,118),i=1,2)/ - & .0011261532718159050d0, .66379267445231699d0, - & .66379267445231699d0/ - data wleb(119),(gjk(i,119),i=1,2)/ - & .0011302869311238408d0, .69104103984983007d0, - & .69104103984983007d0/ - data wleb(120),(gjk(i,120),i=1,2)/ - & .0011349865343639549d0, .70529070074577603d0, - & .70529070074577603d0/ - data wleb(121),(gjk(i,121),i=1,2)/ - & .0006823367927109931d0, .12366867626579899d0, - & .00000000000000000d0/ - data wleb(122),(gjk(i,122),i=1,2)/ - & .0009454158160447096d0, .29407771144683870d0, - & .00000000000000000d0/ - data wleb(123),(gjk(i,123),i=1,2)/ - & .0010744299753856791d0, .46977538492076491d0, - & .00000000000000000d0/ - data wleb(124),(gjk(i,124),i=1,2)/ - & .0011293000865691317d0, .6334563241 195669d0, - & .00000000000000000d0/ - data wleb(125),(gjk(i,125),i=1,2)/ - & .0008436884500901954d0, .20291287527775228d0, - & .05974048614181342d0/ - data wleb(126),(gjk(i,126),i=1,2)/ - & .0010752557204488846d0, .46026219424840539d0, - & .13757604084736365d0/ - data wleb(127),(gjk(i,127),i=1,2)/ - & .0011085772368644620d0, .50306739996620357d0, - & .33910165263362857d0/ - data wleb(128),(gjk(i,128),i=1,2)/ - & .0009566475323783357d0, .28176064224421343d0, - & .12716751914398195d0/ - data wleb(129),(gjk(i,129),i=1,2)/ - & .0010806632507173907d0, .4331561291 701574d0, - & .26931207404135125d0/ - data wleb(130),(gjk(i,130),i=1,2)/ - & .0011267971311962946d0, .62561673585808142d0, - & .14197864526019183d0/ - data wleb(131),(gjk(i,131),i=1,2)/ - & .0010225687153580612d0, .37983952168591567d0, - & .06709284600738255d0/ - data wleb(132),(gjk(i,132),i=1,2)/ - & .0011089602677131075d0, .55175054214235205d0, - & .07057738183256172d0/ - data wleb(133),(gjk(i,133),i=1,2)/ - & .0011227906534357658d0, .60296191561591869d0, - & .27838884778821546d0/ - data wleb(134),(gjk(i,134),i=1,2)/ - & .0010324018471174598d0, .35896063295890958d0, - & .19795789389174069d0/ - data wleb(135),(gjk(i,135),i=1,2)/ - & .0011072493822838539d0, .53486664381354765d0, - & .20873070611032740d0/ - data wleb(136),(gjk(i,136),i=1,2)/ - & .0011217800485199721d0, .56749975460743735d0, - & .40551221378728359d0/ -c -c n = 59 -c - data wleb(137),(gjk(i,137),i=1,2)/ - & .0001105189233267572d0, - & 1.00000000000000000d0, .00000000000000000d0/ - data wleb(138),(gjk(i,138),i=1,2)/ - & .0009205232738090741d0, - & 1.d0, 1.d0/ - data wleb(139),(gjk(i,139),i=1,2)/ - & .0009133159786443561d0, - & 1.d0, 1.d0/ - data wleb(140),(gjk(i,140),i=1,2)/ - & .0003690421898017899d0, - & .03712636449657089d0, .03712636449657089d0/ - data wleb(141),(gjk(i,141),i=1,2)/ - & .0005603990928680660d0, - & .09140060412262223d0, .09140060412262223d0/ - data wleb(142),(gjk(i,142),i=1,2)/ - & .0006865297629282609d0, - & .15310778524699062d0, .15310778524699062d0/ - data wleb(143),(gjk(i,143),i=1,2)/ - & .0007720338551145630d0, - & .21809288916606116d0, .21809288916606116d0/ - data wleb(144),(gjk(i,144),i=1,2)/ - & .0008301545958894795d0, - & .28398745322001746d0, .28398745322001746d0/ - data wleb(145),(gjk(i,145),i=1,2)/ - & .0008686692550179628d0, - & .34911776009637644d0, .34911776009637644d0/ - data wleb(146),(gjk(i,146),i=1,2)/ - & .0008927076285846890d0, - & .41214314614443092d0, .41214314614443092d0/ - data wleb(147),(gjk(i,147),i=1,2)/ - & .0009060820238568219d0, - & .47189936271491266d0, .47189936271491266d0/ - data wleb(148),(gjk(i,148),i=1,2)/ - & .0009119777254940867d0, - & .52731454528423366d0, .52731454528423366d0/ - data wleb(149),(gjk(i,149),i=1,2)/ - & .0009128720138604181d0, - & .62094753324440192d0, .62094753324440192d0/ - data wleb(150),(gjk(i,150),i=1,2)/ - & .0009130714935691735d0, - & .65697227118572905d0, .65697227118572905d0/ - data wleb(151),(gjk(i,151),i=1,2)/ - & .0009152873784554116d0, - & .68417883090701434d0, .68417883090701434d0/ - data wleb(152),(gjk(i,152),i=1,2)/ - & .0009187436274321654d0, - & .70126043301236308d0, .70126043301236308d0/ - data wleb(153),(gjk(i,153),i=1,2)/ - & .0005176977312965694d0, - & .10723822154781661d0, .00000000000000000d0/ - data wleb(154),(gjk(i,154),i=1,2)/ - & .0007331143682101417d0, - & .25820689594969680d0, .00000000000000000d0/ - data wleb(155),(gjk(i,155),i=1,2)/ - & .0008463232836379928d0, - & .41727529553067168d0, .00000000000000000d0/ - data wleb(156),(gjk(i,156),i=1,2)/ - & .0009031122694253992d0, - & .57003669117925033d0, .00000000000000000d0/ - data wleb(157),(gjk(i,157),i=1,2)/ - & .0006485778453163257d0, - & .17717740226153253d0, .05210639477011284d0/ - data wleb(158),(gjk(i,158),i=1,2)/ - & .0007435030910982369d0, - & .24757164634262876d0, .11156409571564867d0/ - data wleb(159),(gjk(i,159),i=1,2)/ - & .0008101731497468018d0, - & .31736152466119767d0, .17465516775786261d0/ - data wleb(160),(gjk(i,160),i=1,2)/ - & .0008556299257321812d0, - & .38542911506692237d0, .23902784793817240d0/ - data wleb(161),(gjk(i,161),i=1,2)/ - & .0008850282341265444d0, - & .45074225931570644d0, .30294669735289819d0/ - data wleb(162),(gjk(i,162),i=1,2)/ - & .0009022692938426915d0, - & .51235184864198708d0, .36498322605976536d0/ - data wleb(163),(gjk(i,163),i=1,2)/ - & .0009105760258970126d0, - & .56937024984684411d0, .42386447815223403d0/ - data wleb(164),(gjk(i,164),i=1,2)/ - & .0007998527891839054d0, - & .33546162890664885d0, .05905888853235508d0/ - data wleb(165),(gjk(i,165),i=1,2)/ - & .0008483389574594331d0, - & .40902684270853572d0, .12172350510959870d0/ - data wleb(166),(gjk(i,166),i=1,2)/ - & .0008811048182425720d0, - & .47853206759224352d0, .18575051945473351d0/ - data wleb(167),(gjk(i,167),i=1,2)/ - & .0009010091677105086d0, - & .54343035696939004d0, .24941121623622365d0/ - data wleb(168),(gjk(i,168),i=1,2)/ - & .0009107813579482705d0, - & .60311616930963100d0, .31122759471496082d0/ - data wleb(169),(gjk(i,169),i=1,2)/ - & .0008803208679738260d0, - & .49322211848512846d0, .06266250624154169d0/ - data wleb(170),(gjk(i,170),i=1,2)/ - & .0009021342299040653d0, - & .56321230207620997d0, .12677748006842827d0/ - data wleb(171),(gjk(i,171),i=1,2)/ - & .0009131578003189435d0, - & .62698055090243917d0, .19060182227792370d0/ - data wleb(172),(gjk(i,172),i=1,2)/ - & .0009158016174693465d0, - & .63942796347491023d0, .06424549224220589d0/ +C +C n = 29 +C + data wleb( 34),(gjk(i, 34),i=1,2)/ + & 8.545911725128148D-04, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 35),(gjk(i, 35),i=1,2)/ + & 3.599119285025571D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 36),(gjk(i, 36),i=1,2)/ + & 3.449788424305883D-03, + & 3.515640345570105D-01, 3.515640345570105D-01/ + data wleb( 37),(gjk(i, 37),i=1,2)/ + & 3.604822601419882D-03, + & 6.566329410219612D-01, 6.566329410219612D-01/ + data wleb( 38),(gjk(i, 38),i=1,2)/ + & 3.576729661743367D-03, + & 4.729054132581005D-01, 4.729054132581005D-01/ + data wleb( 39),(gjk(i, 39),i=1,2)/ + & 2.352101413689164D-03, + & 9.618308522614784D-02, 9.618308522614784D-02/ + data wleb( 40),(gjk(i, 40),i=1,2)/ + & 3.108953122413675D-03, + & 2.219645236294178D-01, 2.219645236294178D-01/ + data wleb( 41),(gjk(i, 41),i=1,2)/ + & 3.650045807677255D-03, + & 7.011766416089545D-01, 7.011766416089545D-01/ + data wleb( 42),(gjk(i, 42),i=1,2)/ + & 2.982344963171804D-03, + & 2.644152887060663D-01, 0.000000000000000D+00/ + data wleb( 43),(gjk(i, 43),i=1,2)/ + & 3.600820932216460D-03, + & 5.718955891878961D-01, 0.000000000000000D+00/ + data wleb( 44),(gjk(i, 44),i=1,2)/ + & 3.571540554273387D-03, + & 2.510034751770465D-01, 8.000727494073951D-01/ + data wleb( 45),(gjk(i, 45),i=1,2)/ + & 3.392312205006170D-03, + & 1.233548532583327D-01, 4.127724083168531D-01/ +C +C n = 35 +C + data wleb( 46),(gjk(i, 46),i=1,2)/ + & 5.265897968224436D-04, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 47),(gjk(i, 47),i=1,2)/ + & 2.548219972002607D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 48),(gjk(i, 48),i=1,2)/ + & 2.512317418927307D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 49),(gjk(i, 49),i=1,2)/ + & 2.530403801186355D-03, + & 6.909346307509111D-01, 6.909346307509111D-01/ + data wleb( 50),(gjk(i, 50),i=1,2)/ + & 2.014279020918528D-03, + & 1.774836054609158D-01, 1.774836054609158D-01/ + data wleb( 51),(gjk(i, 51),i=1,2)/ + & 2.501725168402936D-03, + & 4.914342637784746D-01, 4.914342637784746D-01/ + data wleb( 52),(gjk(i, 52),i=1,2)/ + & 2.513267174597564D-03, + & 6.456664707424256D-01, 6.456664707424256D-01/ + data wleb( 53),(gjk(i, 53),i=1,2)/ + & 2.302694782227416D-03, + & 2.861289010307638D-01, 2.861289010307638D-01/ + data wleb( 54),(gjk(i, 54),i=1,2)/ + & 1.462495621594614D-03, + & 7.568084367178018D-02, 7.568084367178018D-02/ + data wleb( 55),(gjk(i, 55),i=1,2)/ + & 2.445373437312980D-03, + & 3.927259763368002D-01, 3.927259763368002D-01/ + data wleb( 56),(gjk(i, 56),i=1,2)/ + & 2.417442375638981D-03, + & 8.818132877794288D-01, 0.000000000000000D+00/ + data wleb( 57),(gjk(i, 57),i=1,2)/ + & 1.910951282179532D-03, + & 9.776428111182649D-01, 0.000000000000000D+00/ + data wleb( 58),(gjk(i, 58),i=1,2)/ + & 2.416930044324775D-03, + & 2.054823696403044D-01, 8.689460322872412D-01/ + data wleb( 59),(gjk(i, 59),i=1,2)/ + & 2.512236854563495D-03, + & 5.905157048925271D-01, 7.999278543857286D-01/ + data wleb( 60),(gjk(i, 60),i=1,2)/ + & 2.496644054553086D-03, + & 5.550152361076807D-01, 7.717462626915901D-01/ + data wleb( 61),(gjk(i, 61),i=1,2)/ + & 2.236607760437849D-03, + & 9.371809858553722D-01, 3.344363145343455D-01/ +C +C n = 41 +C + data wleb( 62),(gjk(i, 62),i=1,2)/ + & 3.095121295306187D-04, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 63),(gjk(i, 63),i=1,2)/ + & 1.852379698597489D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 64),(gjk(i, 64),i=1,2)/ + & 1.871790639277744D-03, + & 7.040954938227469D-01, 7.040954938227469D-01/ + data wleb( 65),(gjk(i, 65),i=1,2)/ + & 1.858812585438317D-03, + & 6.807744066455244D-01, 6.807744066455244D-01/ + data wleb( 66),(gjk(i, 66),i=1,2)/ + & 1.852028828296213D-03, + & 6.372546939258752D-01, 6.372546939258752D-01/ + data wleb( 67),(gjk(i, 67),i=1,2)/ + & 1.846715956151242D-03, + & 5.044419707800358D-01, 5.044419707800358D-01/ + data wleb( 68),(gjk(i, 68),i=1,2)/ + & 1.818471778162769D-03, + & 4.215761784010967D-01, 4.215761784010967D-01/ + data wleb( 69),(gjk(i, 69),i=1,2)/ + & 1.749564657281154D-03, + & 3.317920736472123D-01, 3.317920736472123D-01/ + data wleb( 70),(gjk(i, 70),i=1,2)/ + & 1.617210647254411D-03, + & 2.384736701421887D-01, 2.384736701421887D-01/ + data wleb( 71),(gjk(i, 71),i=1,2)/ + & 1.384737234851692D-03, + & 1.459036449157763D-01, 1.459036449157763D-01/ + data wleb( 72),(gjk(i, 72),i=1,2)/ + & 9.764331165051050D-04, + & 6.095034115507196D-02, 6.095034115507196D-02/ + data wleb( 73),(gjk(i, 73),i=1,2)/ + & 1.857161196774078D-03, + & 6.116843442009876D-01, 0.000000000000000D+00/ + data wleb( 74),(gjk(i, 74),i=1,2)/ + & 1.705153996395864D-03, + & 3.964755348199858D-01, 0.000000000000000D+00/ + data wleb( 75),(gjk(i, 75),i=1,2)/ + & 1.300321685886048D-03, + & 1.724782009907724D-01, 0.000000000000000D+00/ + data wleb( 76),(gjk(i, 76),i=1,2)/ + & 1.842866472905286D-03, + & 5.610263808622060D-01, 3.518280927733519D-01/ + data wleb( 77),(gjk(i, 77),i=1,2)/ + & 1.802658934377451D-03, + & 4.742392842551980D-01, 2.634716655937950D-01/ + data wleb( 78),(gjk(i, 78),i=1,2)/ + & 1.849830560443660D-03, + & 5.984126497885380D-01, 1.816640840360209D-01/ + data wleb( 79),(gjk(i, 79),i=1,2)/ + & 1.713904507106709D-03, + & 3.791035407695563D-01, 1.720795225656878D-01/ + data wleb( 80),(gjk(i, 80),i=1,2)/ + & 1.555213603396808D-03, + & 2.778673190586244D-01, 8.213021581932511D-02/ + data wleb( 81),(gjk(i, 81),i=1,2)/ + & 1.802239128008525D-03, + & 5.033564271075117D-01, 8.999205842074876D-02/ +C +C n = 47 +C + data wleb( 82),(gjk(i, 82),i=1,2)/ + & 2.192942088181184D-04, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 83),(gjk(i, 83),i=1,2)/ + & 1.436433617319080D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 84),(gjk(i, 84),i=1,2)/ + & 1.421940344335877D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 85),(gjk(i, 85),i=1,2)/ + & 6.798123511050502D-04, + & 5.087204410502360D-02, 5.087204410502360D-02/ + data wleb( 86),(gjk(i, 86),i=1,2)/ + & 9.913184235294911D-04, + & 1.228198790178831D-01, 1.228198790178831D-01/ + data wleb( 87),(gjk(i, 87),i=1,2)/ + & 1.180207833238949D-03, + & 2.026890814408786D-01, 2.026890814408786D-01/ + data wleb( 88),(gjk(i, 88),i=1,2)/ + & 1.296599602080921D-03, + & 2.847745156464294D-01, 2.847745156464294D-01/ + data wleb( 89),(gjk(i, 89),i=1,2)/ + & 1.365871427428316D-03, + & 3.656719078978026D-01, 3.656719078978026D-01/ + data wleb( 90),(gjk(i, 90),i=1,2)/ + & 1.402988604775325D-03, + & 4.428264886713469D-01, 4.428264886713469D-01/ + data wleb( 91),(gjk(i, 91),i=1,2)/ + & 1.418645563595609D-03, + & 5.140619627249735D-01, 5.140619627249735D-01/ + data wleb( 92),(gjk(i, 92),i=1,2)/ + & 1.421376741851662D-03, + & 6.306401219166803D-01, 6.306401219166803D-01/ + data wleb( 93),(gjk(i, 93),i=1,2)/ + & 1.423996475490962D-03, + & 6.716883332022612D-01, 6.716883332022612D-01/ + data wleb( 94),(gjk(i, 94),i=1,2)/ + & 1.431554042178567D-03, + & 6.979792685336881D-01, 6.979792685336881D-01/ + data wleb( 95),(gjk(i, 95),i=1,2)/ + & 9.254401499865368D-04, + & 1.446865674195309D-01, 0.000000000000000D+00/ + data wleb( 96),(gjk(i, 96),i=1,2)/ + & 1.250239995053509D-03, + & 3.390263475411216D-01, 0.000000000000000D+00/ + data wleb( 97),(gjk(i, 97),i=1,2)/ + & 1.394365843329230D-03, + & 5.335804651263506D-01, 0.000000000000000D+00/ + data wleb( 98),(gjk(i, 98),i=1,2)/ + & 1.127089094671749D-03, + & 6.944024393349413D-02, 2.355187894242326D-01/ + data wleb( 99),(gjk(i, 99),i=1,2)/ + & 1.345753760910670D-03, + & 2.269004109529460D-01, 4.102182474045730D-01/ + data wleb( 100),(gjk(i, 100),i=1,2)/ + & 1.424957283316783D-03, + & 8.025574607775339D-02, 6.214302417481605D-01/ + data wleb( 101),(gjk(i, 101),i=1,2)/ + & 1.261523341237750D-03, + & 1.467999527896572D-01, 3.245284345717394D-01/ + data wleb( 102),(gjk(i, 102),i=1,2)/ + & 1.392547106052696D-03, + & 1.571507769824727D-01, 5.224482189696630D-01/ + data wleb( 103),(gjk(i, 103),i=1,2)/ + & 1.418761677877656D-03, + & 2.365702993157246D-01, 6.017546634089558D-01/ + data wleb( 104),(gjk(i, 104),i=1,2)/ + & 1.338366684479554D-03, + & 7.714815866765733D-02, 4.346575516141163D-01/ + data wleb( 105),(gjk(i, 105),i=1,2)/ + & 1.393700862676131D-03, + & 3.062936666210730D-01, 4.908826589037616D-01/ + data wleb( 106),(gjk(i, 106),i=1,2)/ + & 1.415914757466932D-03, + & 3.822477379524787D-01, 5.648768149099500D-01/ +C +C n = 53 +C + data wleb( 107),(gjk(i, 107),i=1,2)/ + & 1.438294190527431D-04, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 108),(gjk(i, 108),i=1,2)/ + & 1.125772288287004D-03, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 109),(gjk(i, 109),i=1,2)/ + & 4.948029341949241D-04, + & 4.292963545341347D-02, 4.292963545341347D-02/ + data wleb( 110),(gjk(i, 110),i=1,2)/ + & 7.357990109125470D-04, + & 1.051426854086404D-01, 1.051426854086404D-01/ + data wleb( 111),(gjk(i, 111),i=1,2)/ + & 8.889132771304384D-04, + & 1.750024867623087D-01, 1.750024867623087D-01/ + data wleb( 112),(gjk(i, 112),i=1,2)/ + & 9.888347838921435D-04, + & 2.477653379650257D-01, 2.477653379650257D-01/ + data wleb( 113),(gjk(i, 113),i=1,2)/ + & 1.053299681709471D-03, + & 3.206567123955957D-01, 3.206567123955957D-01/ + data wleb( 114),(gjk(i, 114),i=1,2)/ + & 1.092778807014578D-03, + & 3.916520749849983D-01, 3.916520749849983D-01/ + data wleb( 115),(gjk(i, 115),i=1,2)/ + & 1.114389394063227D-03, + & 4.590825874187624D-01, 4.590825874187624D-01/ + data wleb( 116),(gjk(i, 116),i=1,2)/ + & 1.123724788051555D-03, + & 5.214563888415861D-01, 5.214563888415861D-01/ + data wleb( 117),(gjk(i, 117),i=1,2)/ + & 1.125239325243814D-03, + & 6.253170244654199D-01, 6.253170244654199D-01/ + data wleb( 118),(gjk(i, 118),i=1,2)/ + & 1.126153271815905D-03, + & 6.637926744523170D-01, 6.637926744523170D-01/ + data wleb( 119),(gjk(i, 119),i=1,2)/ + & 1.130286931123841D-03, + & 6.910410398498301D-01, 6.910410398498301D-01/ + data wleb( 120),(gjk(i, 120),i=1,2)/ + & 1.134986534363955D-03, + & 7.052907007457760D-01, 7.052907007457760D-01/ + data wleb( 121),(gjk(i, 121),i=1,2)/ + & 6.823367927109931D-04, + & 1.236686762657990D-01, 0.000000000000000D+00/ + data wleb( 122),(gjk(i, 122),i=1,2)/ + & 9.454158160447096D-04, + & 2.940777114468387D-01, 0.000000000000000D+00/ + data wleb( 123),(gjk(i, 123),i=1,2)/ + & 1.074429975385679D-03, + & 4.697753849207649D-01, 0.000000000000000D+00/ + data wleb( 124),(gjk(i, 124),i=1,2)/ + & 1.129300086569132D-03, + & 6.334563241139567D-01, 0.000000000000000D+00/ + data wleb( 125),(gjk(i, 125),i=1,2)/ + & 8.436884500901954D-04, + & 5.974048614181342D-02, 2.029128752777523D-01/ + data wleb( 126),(gjk(i, 126),i=1,2)/ + & 1.075255720448885D-03, + & 1.375760408473636D-01, 4.602621942484054D-01/ + data wleb( 127),(gjk(i, 127),i=1,2)/ + & 1.108577236864462D-03, + & 3.391016526336286D-01, 5.030673999662036D-01/ + data wleb( 128),(gjk(i, 128),i=1,2)/ + & 9.566475323783357D-04, + & 1.271675191439820D-01, 2.817606422442134D-01/ + data wleb( 129),(gjk(i, 129),i=1,2)/ + & 1.080663250717391D-03, + & 2.693120740413512D-01, 4.331561291720157D-01/ + data wleb( 130),(gjk(i, 130),i=1,2)/ + & 1.126797131196295D-03, + & 1.419786452601918D-01, 6.256167358580814D-01/ + data wleb( 131),(gjk(i, 131),i=1,2)/ + & 1.022568715358061D-03, + & 6.709284600738255D-02, 3.798395216859157D-01/ + data wleb( 132),(gjk(i, 132),i=1,2)/ + & 1.108960267713108D-03, + & 7.057738183256172D-02, 5.517505421423520D-01/ + data wleb( 133),(gjk(i, 133),i=1,2)/ + & 1.122790653435766D-03, + & 2.783888477882155D-01, 6.029619156159187D-01/ + data wleb( 134),(gjk(i, 134),i=1,2)/ + & 1.032401847117460D-03, + & 1.979578938917407D-01, 3.589606329589096D-01/ + data wleb( 135),(gjk(i, 135),i=1,2)/ + & 1.107249382283854D-03, + & 2.087307061103274D-01, 5.348666438135476D-01/ + data wleb( 136),(gjk(i, 136),i=1,2)/ + & 1.121780048519972D-03, + & 4.055122137872836D-01, 5.674997546074373D-01/ +C +C n = 59 +C + data wleb( 137),(gjk(i, 137),i=1,2)/ + & 1.105189233267572D-04, + & 1.000000000000000D+00, 0.000000000000000D+00/ + data wleb( 138),(gjk(i, 138),i=1,2)/ + & 9.205232738090741D-04, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 139),(gjk(i, 139),i=1,2)/ + & 9.133159786443561D-04, + & 1.000000000000000D+00, 1.000000000000000D+00/ + data wleb( 140),(gjk(i, 140),i=1,2)/ + & 3.690421898017899D-04, + & 3.712636449657089D-02, 3.712636449657089D-02/ + data wleb( 141),(gjk(i, 141),i=1,2)/ + & 5.603990928680660D-04, + & 9.140060412262223D-02, 9.140060412262223D-02/ + data wleb( 142),(gjk(i, 142),i=1,2)/ + & 6.865297629282609D-04, + & 1.531077852469906D-01, 1.531077852469906D-01/ + data wleb( 143),(gjk(i, 143),i=1,2)/ + & 7.720338551145630D-04, + & 2.180928891660612D-01, 2.180928891660612D-01/ + data wleb( 144),(gjk(i, 144),i=1,2)/ + & 8.301545958894795D-04, + & 2.839874532200175D-01, 2.839874532200175D-01/ + data wleb( 145),(gjk(i, 145),i=1,2)/ + & 8.686692550179628D-04, + & 3.491177600963764D-01, 3.491177600963764D-01/ + data wleb( 146),(gjk(i, 146),i=1,2)/ + & 8.927076285846890D-04, + & 4.121431461444309D-01, 4.121431461444309D-01/ + data wleb( 147),(gjk(i, 147),i=1,2)/ + & 9.060820238568219D-04, + & 4.718993627149127D-01, 4.718993627149127D-01/ + data wleb( 148),(gjk(i, 148),i=1,2)/ + & 9.119777254940867D-04, + & 5.273145452842337D-01, 5.273145452842337D-01/ + data wleb( 149),(gjk(i, 149),i=1,2)/ + & 9.128720138604181D-04, + & 6.209475332444019D-01, 6.209475332444019D-01/ + data wleb( 150),(gjk(i, 150),i=1,2)/ + & 9.130714935691735D-04, + & 6.569722711857291D-01, 6.569722711857291D-01/ + data wleb( 151),(gjk(i, 151),i=1,2)/ + & 9.152873784554116D-04, + & 6.841788309070143D-01, 6.841788309070143D-01/ + data wleb( 152),(gjk(i, 152),i=1,2)/ + & 9.187436274321654D-04, + & 7.012604330123631D-01, 7.012604330123631D-01/ + data wleb( 153),(gjk(i, 153),i=1,2)/ + & 5.176977312965694D-04, + & 1.072382215478166D-01, 0.000000000000000D+00/ + data wleb( 154),(gjk(i, 154),i=1,2)/ + & 7.331143682101417D-04, + & 2.582068959496968D-01, 0.000000000000000D+00/ + data wleb( 155),(gjk(i, 155),i=1,2)/ + & 8.463232836379928D-04, + & 4.172752955306717D-01, 0.000000000000000D+00/ + data wleb( 156),(gjk(i, 156),i=1,2)/ + & 9.031122694253992D-04, + & 5.700366911792503D-01, 0.000000000000000D+00/ + data wleb( 157),(gjk(i, 157),i=1,2)/ + & 6.485778453163257D-04, + & 9.827986018263947D-01, 1.771774022615325D-01/ + data wleb( 158),(gjk(i, 158),i=1,2)/ + & 7.435030910982369D-04, + & 9.624249230326228D-01, 2.475716463426288D-01/ + data wleb( 159),(gjk(i, 159),i=1,2)/ + & 7.998527891839054D-04, + & 9.402007994128811D-01, 3.354616289066489D-01/ + data wleb( 160),(gjk(i, 160),i=1,2)/ + & 8.101731497468018D-04, + & 9.320822040143202D-01, 3.173615246611977D-01/ + data wleb( 161),(gjk(i, 161),i=1,2)/ + & 8.483389574594330D-04, + & 9.043674199393299D-01, 4.090268427085357D-01/ + data wleb( 162),(gjk(i, 162),i=1,2)/ + & 8.556299257311812D-04, + & 8.912407560074747D-01, 3.854291150669224D-01/ + data wleb( 163),(gjk(i, 163),i=1,2)/ + & 8.803208679738260D-04, + & 8.676435628462708D-01, 4.932221184851285D-01/ + data wleb( 164),(gjk(i, 164),i=1,2)/ + & 8.811048182425720D-04, + & 8.581979986041619D-01, 4.785320675922435D-01/ + data wleb( 165),(gjk(i, 165),i=1,2)/ + & 8.850282341265444D-04, + & 8.396753624049856D-01, 4.507422593157064D-01/ + data wleb( 166),(gjk(i, 166),i=1,2)/ + & 9.021342299040653D-04, + & 8.165288564022188D-01, 5.632123020762100D-01/ + data wleb( 167),(gjk(i, 167),i=1,2)/ + & 9.010091677105086D-04, + & 8.015469370783529D-01, 5.434303569693900D-01/ + data wleb( 168),(gjk(i, 168),i=1,2)/ + & 9.022692938426915D-04, + & 7.773563069070351D-01, 5.123518486419871D-01/ + data wleb( 169),(gjk(i, 169),i=1,2)/ + & 9.158016174693465D-04, + & 7.661621213900394D-01, 6.394279634749102D-01/ + data wleb( 170),(gjk(i, 170),i=1,2)/ + & 9.131578003189435D-04, + & 7.553584143533510D-01, 6.269805509024392D-01/ + data wleb( 171),(gjk(i, 171),i=1,2)/ + & 9.107813579482705D-04, + & 7.344305757559503D-01, 6.031161693096310D-01/ + data wleb( 172),(gjk(i, 172),i=1,2)/ + & 9.105760258970126D-04, + & 7.043837184021765D-01, 5.693702498468441D-01/ C C n = 65 C @@ -3807,13 +3818,12 @@ c & 1, 1, 1, 4, 1, 1, 1, 1, 1, 5, 1, 2, 1, 0, 1, 6, 2, 2, c & 1, 1, 1, 7, 2, 4, 1, 0, 1, 8, 4, 6, 1, 1, 1, 9, 4, 9, c & 1, 0, 1,12, 4,12, 1, 1, 1,13, 4, 16/ data njk/1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 3, 1, 0, - & 1, 1, 1, 4, 1, 1, 1, 0, 1, 6, 2, 2, - & 1, 1, 1, 7, 2, 4, 1, 0, 1, 8, 4, 6, 1, 1, 1, 9, 4, 9, - & 1, 0, 1,12, 4,12, 1, 1, 1,13, 4, 16, - . 1, 0, 1,15, 5,20, 1, 1, 1,16, 5, 25, 1, 0, 1,18, 6,30, - . 1, 1, 1,19, 6,36, 1, 0, 1,21, 7, 42, 1, 1, 1,22, 7,49, - . 1, 0, 1,24, 8,56, 1, 1, 1,25, 8, 64, 1, 0, 1,27, 9,72, - . 1, 1, 1,28, 9,81, 1, 0, 1,30,10, 90, + & 1, 1, 1, 4, 1, 1, 1, 0, 1, 6, 2, 2, 1, 1, 1, 7, 2, 4, + . 1, 0, 1, 9, 3, 6, 1, 1, 1,10, 3, 9, 1, 0, 1,12, 4,12, + . 1, 1, 1,13, 4,16, 1, 0, 1,15, 5,20, 1, 1, 1,16, 5, 25, + . 1, 0, 1,18, 6,30, 1, 1, 1,19, 6,36, 1, 0, 1,21, 7, 42, + . 1, 1, 1,22, 7,49, 1, 0, 1,24, 8,56, 1, 1, 1,25, 8, 64, + . 1, 0, 1,27, 9,72, 1, 1, 1,28, 9,81, 1, 0, 1,30,10, 90, . 1, 1, 1,31,10,100/ c data nvj/6, 12, 8, 24, 24, 48/