function cpv ( f, a, b, n ) !*****************************************************************************80 ! !! cpv() estimates the Cauchy Principal Value of an integral. ! ! Discussion: ! ! This function can be used to estimate the Cauchy Principal Value of ! a singular integral of the form ! Integral f(t)/(t-x) dt ! over an interval which includes the singularity point t=x. ! ! Isolate the singularity at x in a symmetric interval of finite size delta: ! ! CPV ( Integral ( a <= t <= b ) p(t) / ( t - x ) dt ) ! = Integral ( a <= t <= x - delta ) p(t) / ( t - x ) dt ! + CPV ( Integral ( x - delta <= t <= x + delta ) p(t) / ( t - x ) dt ) ! + Integral ( x + delta <= t <= b ) p(t) / ( t - x ) dt. ! ! We assume the first and third integrals can be handled in the usual way. ! The second integral can be rewritten as ! Integral ( -1 <= s <= +1 ) ( p(s*delta+x) - p(x) ) / s ds ! and approximated by ! Sum ( 1 <= i <= N ) w(i) * ( p(xi*delta+x) - p(x) ) / xi(i) ! = Sum ( 1 <= i <= N ) w(i) * ( p(xi*delta+x) ) / xi(i) ! if we assume that N is even, so that coefficients of p(x) sum to zero. ! ! Licensing: ! ! This code is distributed under the MIT license. ! ! Modified: ! ! 04 September 2021 ! ! Author: ! ! John Burkardt ! ! Reference: ! ! Julian Noble, ! Gauss-Legendre Principal Value Integration, ! Computing in Science and Engineering, ! Volume 2, Number 1, January-February 2000, pages 92-95. ! ! Input: ! ! external real ( kind = rk ) F ( X ), the function that evaluates the ! integrand. ! ! real ( kind = rk ) A, B, the endpoints of the symmetric interval, ! which contains a singularity of the form 1/(X-(A+B)/2). ! ! integer N, the number of Gauss points to use. ! N must be even. ! ! Output: ! ! real ( kind = rk ) CPV, the estimate for the Cauchy Principal Value. ! implicit none integer, parameter :: rk = kind ( 1.0D+00 ) integer n real ( kind = rk ) a real ( kind = rk ) b real ( kind = rk ) cpv external f real ( kind = rk ) f integer i real ( kind = rk ) w(n) real ( kind = rk ) value real ( kind = rk ) x(n) real ( kind = rk ) x2 ! ! N must be even. ! if ( mod ( n, 2 ) /= 0 ) then write ( *, '(a)' ) '' write ( *, '(a)' ) 'CPV - Fatal error!' write ( *, '(a)' ) ' N must be even.' stop 1 end if ! ! Get the Gauss-Legendre rule. ! call legendre_set ( n, x, w ) ! ! Estimate the integral. ! value = 0.0D+00 do i = 1, n x2 = ( ( 1.0D+00 - x(i) ) * a & + ( 1.0D+00 + x(i) ) * b ) & / 2.0D+00 value = value + w(i) * ( f ( x2 ) ) / x(i) end do cpv = value return end subroutine legendre_set ( n, x, w ) !*****************************************************************************80 ! !! legendre_set() sets abscissas and weights for Gauss-Legendre quadrature. ! ! Discussion: ! ! The integral: ! ! integral ( -1 <= x <= 1 ) f(x) dx ! ! The quadrature rule: ! ! sum ( 1 <= i <= n ) w(i) * f ( x(i) ) ! ! The quadrature rule is exact for polynomials through degree 2*N-1. ! ! The abscissas are the zeroes of the Legendre polynomial P(N)(X). ! ! Mathematica can compute the abscissas and weights of a Gauss-Legendre ! rule of order N for the interval [A,B] with P digits of precision ! by the commands: ! ! Needs["NumericalDifferentialEquationAnalysis`"] ! GaussianQuadratureWeights [ n, a, b, p ] ! ! Licensing: ! ! This code is distributed under the MIT license. ! ! Modified: ! ! 04 September 2021 ! ! Author: ! ! John Burkardt ! ! Reference: ! ! Milton Abramowitz, Irene Stegun, ! Handbook of Mathematical Functions, ! National Bureau of Standards, 1964, ! ISBN: 0-486-61272-4, ! LC: QA47.A34. ! ! Vladimir Krylov, ! Approximate Calculation of Integrals, ! Dover, 2006, ! ISBN: 0486445798, ! LC: QA311.K713. ! ! Arthur Stroud, Don Secrest, ! Gaussian Quadrature Formulas, ! Prentice Hall, 1966, ! LC: QA299.4G3S7. ! ! Stephen Wolfram, ! The Mathematica Book, ! Fourth Edition, ! Cambridge University Press, 1999, ! ISBN: 0-521-64314-7, ! LC: QA76.95.W65. ! ! Daniel Zwillinger, editor, ! CRC Standard Mathematical Tables and Formulae, ! 30th Edition, ! CRC Press, 1996, ! ISBN: 0-8493-2479-3, ! LC: QA47.M315. ! ! Input: ! ! integer N, the order. ! N must be between 1 and 33 or 63/64/65, 127/128/129, ! 255/256/257. ! ! Output: ! ! real ( kind = rk ) X(N), the abscissas. ! ! real ( kind = rk ) W(N), the weights. ! implicit none integer, parameter :: rk = kind ( 1.0D+00 ) integer n real ( kind = rk ) w(n) real ( kind = rk ) x(n) if ( n == 1 ) then x(1) = 0.000000000000000000000000000000D+00 w(1) = 2.000000000000000000000000000000D+00 else if ( n == 2 ) then x(1) = -0.577350269189625764509148780502D+00 x(2) = 0.577350269189625764509148780502D+00 w(1) = 1.000000000000000000000000000000D+00 w(2) = 1.000000000000000000000000000000D+00 else if ( n == 3 ) then x(1) = -0.774596669241483377035853079956D+00 x(2) = 0.000000000000000000000000000000D+00 x(3) = 0.774596669241483377035853079956D+00 w(1) = 0.555555555555555555555555555556D+00 w(2) = 0.888888888888888888888888888889D+00 w(3) = 0.555555555555555555555555555556D+00 else if ( n == 4 ) then x(1) = -0.861136311594052575223946488893D+00 x(2) = -0.339981043584856264802665759103D+00 x(3) = 0.339981043584856264802665759103D+00 x(4) = 0.861136311594052575223946488893D+00 w(1) = 0.347854845137453857373063949222D+00 w(2) = 0.652145154862546142626936050778D+00 w(3) = 0.652145154862546142626936050778D+00 w(4) = 0.347854845137453857373063949222D+00 else if ( n == 5 ) then x(1) = -0.906179845938663992797626878299D+00 x(2) = -0.538469310105683091036314420700D+00 x(3) = 0.000000000000000000000000000000D+00 x(4) = 0.538469310105683091036314420700D+00 x(5) = 0.906179845938663992797626878299D+00 w(1) = 0.236926885056189087514264040720D+00 w(2) = 0.478628670499366468041291514836D+00 w(3) = 0.568888888888888888888888888889D+00 w(4) = 0.478628670499366468041291514836D+00 w(5) = 0.236926885056189087514264040720D+00 else if ( n == 6 ) then x(1) = -0.932469514203152027812301554494D+00 x(2) = -0.661209386466264513661399595020D+00 x(3) = -0.238619186083196908630501721681D+00 x(4) = 0.238619186083196908630501721681D+00 x(5) = 0.661209386466264513661399595020D+00 x(6) = 0.932469514203152027812301554494D+00 w(1) = 0.171324492379170345040296142173D+00 w(2) = 0.360761573048138607569833513838D+00 w(3) = 0.467913934572691047389870343990D+00 w(4) = 0.467913934572691047389870343990D+00 w(5) = 0.360761573048138607569833513838D+00 w(6) = 0.171324492379170345040296142173D+00 else if ( n == 7 ) then x(1) = -0.949107912342758524526189684048D+00 x(2) = -0.741531185599394439863864773281D+00 x(3) = -0.405845151377397166906606412077D+00 x(4) = 0.000000000000000000000000000000D+00 x(5) = 0.405845151377397166906606412077D+00 x(6) = 0.741531185599394439863864773281D+00 x(7) = 0.949107912342758524526189684048D+00 w(1) = 0.129484966168869693270611432679D+00 w(2) = 0.279705391489276667901467771424D+00 w(3) = 0.381830050505118944950369775489D+00 w(4) = 0.417959183673469387755102040816D+00 w(5) = 0.381830050505118944950369775489D+00 w(6) = 0.279705391489276667901467771424D+00 w(7) = 0.129484966168869693270611432679D+00 else if ( n == 8 ) then x(1) = -0.960289856497536231683560868569D+00 x(2) = -0.796666477413626739591553936476D+00 x(3) = -0.525532409916328985817739049189D+00 x(4) = -0.183434642495649804939476142360D+00 x(5) = 0.183434642495649804939476142360D+00 x(6) = 0.525532409916328985817739049189D+00 x(7) = 0.796666477413626739591553936476D+00 x(8) = 0.960289856497536231683560868569D+00 w(1) = 0.101228536290376259152531354310D+00 w(2) = 0.222381034453374470544355994426D+00 w(3) = 0.313706645877887287337962201987D+00 w(4) = 0.362683783378361982965150449277D+00 w(5) = 0.362683783378361982965150449277D+00 w(6) = 0.313706645877887287337962201987D+00 w(7) = 0.222381034453374470544355994426D+00 w(8) = 0.101228536290376259152531354310D+00 else if ( n == 9 ) then x(1) = -0.968160239507626089835576203D+00 x(2) = -0.836031107326635794299429788D+00 x(3) = -0.613371432700590397308702039D+00 x(4) = -0.324253423403808929038538015D+00 x(5) = 0.000000000000000000000000000D+00 x(6) = 0.324253423403808929038538015D+00 x(7) = 0.613371432700590397308702039D+00 x(8) = 0.836031107326635794299429788D+00 x(9) = 0.968160239507626089835576203D+00 w(1) = 0.081274388361574411971892158111D+00 w(2) = 0.18064816069485740405847203124D+00 w(3) = 0.26061069640293546231874286942D+00 w(4) = 0.31234707704000284006863040658D+00 w(5) = 0.33023935500125976316452506929D+00 w(6) = 0.31234707704000284006863040658D+00 w(7) = 0.26061069640293546231874286942D+00 w(8) = 0.18064816069485740405847203124D+00 w(9) = 0.081274388361574411971892158111D+00 else if ( n == 10 ) then x(1) = -0.973906528517171720077964012D+00 x(2) = -0.865063366688984510732096688D+00 x(3) = -0.679409568299024406234327365D+00 x(4) = -0.433395394129247190799265943D+00 x(5) = -0.148874338981631210884826001D+00 x(6) = 0.148874338981631210884826001D+00 x(7) = 0.433395394129247190799265943D+00 x(8) = 0.679409568299024406234327365D+00 x(9) = 0.865063366688984510732096688D+00 x(10) = 0.973906528517171720077964012D+00 w(1) = 0.066671344308688137593568809893D+00 w(2) = 0.14945134915058059314577633966D+00 w(3) = 0.21908636251598204399553493423D+00 w(4) = 0.26926671930999635509122692157D+00 w(5) = 0.29552422471475287017389299465D+00 w(6) = 0.29552422471475287017389299465D+00 w(7) = 0.26926671930999635509122692157D+00 w(8) = 0.21908636251598204399553493423D+00 w(9) = 0.14945134915058059314577633966D+00 w(10) = 0.066671344308688137593568809893D+00 else if ( n == 11 ) then x(1) = -0.978228658146056992803938001D+00 x(2) = -0.887062599768095299075157769D+00 x(3) = -0.730152005574049324093416252D+00 x(4) = -0.519096129206811815925725669D+00 x(5) = -0.269543155952344972331531985D+00 x(6) = 0.000000000000000000000000000D+00 x(7) = 0.269543155952344972331531985D+00 x(8) = 0.519096129206811815925725669D+00 x(9) = 0.730152005574049324093416252D+00 x(10) = 0.887062599768095299075157769D+00 x(11) = 0.978228658146056992803938001D+00 w(1) = 0.055668567116173666482753720443D+00 w(2) = 0.12558036946490462463469429922D+00 w(3) = 0.18629021092773425142609764143D+00 w(4) = 0.23319376459199047991852370484D+00 w(5) = 0.26280454451024666218068886989D+00 w(6) = 0.27292508677790063071448352834D+00 w(7) = 0.26280454451024666218068886989D+00 w(8) = 0.23319376459199047991852370484D+00 w(9) = 0.18629021092773425142609764143D+00 w(10) = 0.12558036946490462463469429922D+00 w(11) = 0.055668567116173666482753720443D+00 else if ( n == 12 ) then x(1) = -0.981560634246719250690549090D+00 x(2) = -0.904117256370474856678465866D+00 x(3) = -0.769902674194304687036893833D+00 x(4) = -0.587317954286617447296702419D+00 x(5) = -0.367831498998180193752691537D+00 x(6) = -0.125233408511468915472441369D+00 x(7) = 0.125233408511468915472441369D+00 x(8) = 0.367831498998180193752691537D+00 x(9) = 0.587317954286617447296702419D+00 x(10) = 0.769902674194304687036893833D+00 x(11) = 0.904117256370474856678465866D+00 x(12) = 0.981560634246719250690549090D+00 w(1) = 0.047175336386511827194615961485D+00 w(2) = 0.10693932599531843096025471819D+00 w(3) = 0.16007832854334622633465252954D+00 w(4) = 0.20316742672306592174906445581D+00 w(5) = 0.23349253653835480876084989892D+00 w(6) = 0.24914704581340278500056243604D+00 w(7) = 0.24914704581340278500056243604D+00 w(8) = 0.23349253653835480876084989892D+00 w(9) = 0.20316742672306592174906445581D+00 w(10) = 0.16007832854334622633465252954D+00 w(11) = 0.10693932599531843096025471819D+00 w(12) = 0.047175336386511827194615961485D+00 else if ( n == 13 ) then x(1) = -0.984183054718588149472829449D+00 x(2) = -0.917598399222977965206547837D+00 x(3) = -0.801578090733309912794206490D+00 x(4) = -0.642349339440340220643984607D+00 x(5) = -0.448492751036446852877912852D+00 x(6) = -0.230458315955134794065528121D+00 x(7) = 0.000000000000000000000000000D+00 x(8) = 0.230458315955134794065528121D+00 x(9) = 0.448492751036446852877912852D+00 x(10) = 0.642349339440340220643984607D+00 x(11) = 0.80157809073330991279420649D+00 x(12) = 0.91759839922297796520654784D+00 x(13) = 0.98418305471858814947282945D+00 w(1) = 0.040484004765315879520021592201D+00 w(2) = 0.092121499837728447914421775954D+00 w(3) = 0.13887351021978723846360177687D+00 w(4) = 0.17814598076194573828004669200D+00 w(5) = 0.20781604753688850231252321931D+00 w(6) = 0.22628318026289723841209018604D+00 w(7) = 0.23255155323087391019458951527D+00 w(8) = 0.22628318026289723841209018604D+00 w(9) = 0.20781604753688850231252321931D+00 w(10) = 0.17814598076194573828004669200D+00 w(11) = 0.13887351021978723846360177687D+00 w(12) = 0.092121499837728447914421775954D+00 w(13) = 0.040484004765315879520021592201D+00 else if ( n == 14 ) then x(1) = -0.986283808696812338841597267D+00 x(2) = -0.928434883663573517336391139D+00 x(3) = -0.827201315069764993189794743D+00 x(4) = -0.687292904811685470148019803D+00 x(5) = -0.515248636358154091965290719D+00 x(6) = -0.319112368927889760435671824D+00 x(7) = -0.108054948707343662066244650D+00 x(8) = 0.108054948707343662066244650D+00 x(9) = 0.31911236892788976043567182D+00 x(10) = 0.51524863635815409196529072D+00 x(11) = 0.68729290481168547014801980D+00 x(12) = 0.82720131506976499318979474D+00 x(13) = 0.92843488366357351733639114D+00 x(14) = 0.98628380869681233884159727D+00 w(1) = 0.035119460331751863031832876138D+00 w(2) = 0.08015808715976020980563327706D+00 w(3) = 0.12151857068790318468941480907D+00 w(4) = 0.15720316715819353456960193862D+00 w(5) = 0.18553839747793781374171659013D+00 w(6) = 0.20519846372129560396592406566D+00 w(7) = 0.21526385346315779019587644332D+00 w(8) = 0.21526385346315779019587644332D+00 w(9) = 0.20519846372129560396592406566D+00 w(10) = 0.18553839747793781374171659013D+00 w(11) = 0.15720316715819353456960193862D+00 w(12) = 0.12151857068790318468941480907D+00 w(13) = 0.08015808715976020980563327706D+00 w(14) = 0.035119460331751863031832876138D+00 else if ( n == 15 ) then x(1) = -0.987992518020485428489565719D+00 x(2) = -0.937273392400705904307758948D+00 x(3) = -0.848206583410427216200648321D+00 x(4) = -0.724417731360170047416186055D+00 x(5) = -0.570972172608538847537226737D+00 x(6) = -0.394151347077563369897207371D+00 x(7) = -0.201194093997434522300628303D+00 x(8) = 0.00000000000000000000000000D+00 x(9) = 0.20119409399743452230062830D+00 x(10) = 0.39415134707756336989720737D+00 x(11) = 0.57097217260853884753722674D+00 x(12) = 0.72441773136017004741618605D+00 x(13) = 0.84820658341042721620064832D+00 x(14) = 0.93727339240070590430775895D+00 x(15) = 0.98799251802048542848956572D+00 w(1) = 0.030753241996117268354628393577D+00 w(2) = 0.070366047488108124709267416451D+00 w(3) = 0.107159220467171935011869546686D+00 w(4) = 0.13957067792615431444780479451D+00 w(5) = 0.16626920581699393355320086048D+00 w(6) = 0.18616100001556221102680056187D+00 w(7) = 0.19843148532711157645611832644D+00 w(8) = 0.20257824192556127288062019997D+00 w(9) = 0.19843148532711157645611832644D+00 w(10) = 0.18616100001556221102680056187D+00 w(11) = 0.16626920581699393355320086048D+00 w(12) = 0.13957067792615431444780479451D+00 w(13) = 0.107159220467171935011869546686D+00 w(14) = 0.070366047488108124709267416451D+00 w(15) = 0.030753241996117268354628393577D+00 else if ( n == 16 ) then x(1) = -0.989400934991649932596154173D+00 x(2) = -0.944575023073232576077988416D+00 x(3) = -0.865631202387831743880467898D+00 x(4) = -0.755404408355003033895101195D+00 x(5) = -0.617876244402643748446671764D+00 x(6) = -0.458016777657227386342419443D+00 x(7) = -0.281603550779258913230460501D+00 x(8) = -0.09501250983763744018531934D+00 x(9) = 0.09501250983763744018531934D+00 x(10) = 0.28160355077925891323046050D+00 x(11) = 0.45801677765722738634241944D+00 x(12) = 0.61787624440264374844667176D+00 x(13) = 0.75540440835500303389510119D+00 x(14) = 0.86563120238783174388046790D+00 x(15) = 0.94457502307323257607798842D+00 x(16) = 0.98940093499164993259615417D+00 w(1) = 0.027152459411754094851780572456D+00 w(2) = 0.062253523938647892862843836994D+00 w(3) = 0.09515851168249278480992510760D+00 w(4) = 0.12462897125553387205247628219D+00 w(5) = 0.14959598881657673208150173055D+00 w(6) = 0.16915651939500253818931207903D+00 w(7) = 0.18260341504492358886676366797D+00 w(8) = 0.18945061045506849628539672321D+00 w(9) = 0.18945061045506849628539672321D+00 w(10) = 0.18260341504492358886676366797D+00 w(11) = 0.16915651939500253818931207903D+00 w(12) = 0.14959598881657673208150173055D+00 w(13) = 0.12462897125553387205247628219D+00 w(14) = 0.09515851168249278480992510760D+00 w(15) = 0.062253523938647892862843836994D+00 w(16) = 0.027152459411754094851780572456D+00 else if ( n == 17 ) then x(1) = -0.990575475314417335675434020D+00 x(2) = -0.950675521768767761222716958D+00 x(3) = -0.880239153726985902122955694D+00 x(4) = -0.781514003896801406925230056D+00 x(5) = -0.657671159216690765850302217D+00 x(6) = -0.512690537086476967886246569D+00 x(7) = -0.35123176345387631529718552D+00 x(8) = -0.17848418149584785585067749D+00 x(9) = 0.00000000000000000000000000D+00 x(10) = 0.17848418149584785585067749D+00 x(11) = 0.35123176345387631529718552D+00 x(12) = 0.51269053708647696788624657D+00 x(13) = 0.65767115921669076585030222D+00 x(14) = 0.78151400389680140692523006D+00 x(15) = 0.88023915372698590212295569D+00 x(16) = 0.95067552176876776122271696D+00 x(17) = 0.99057547531441733567543402D+00 w(1) = 0.024148302868547931960110026288D+00 w(2) = 0.055459529373987201129440165359D+00 w(3) = 0.085036148317179180883535370191D+00 w(4) = 0.111883847193403971094788385626D+00 w(5) = 0.13513636846852547328631998170D+00 w(6) = 0.15404576107681028808143159480D+00 w(7) = 0.16800410215645004450997066379D+00 w(8) = 0.17656270536699264632527099011D+00 w(9) = 0.17944647035620652545826564426D+00 w(10) = 0.17656270536699264632527099011D+00 w(11) = 0.16800410215645004450997066379D+00 w(12) = 0.15404576107681028808143159480D+00 w(13) = 0.13513636846852547328631998170D+00 w(14) = 0.111883847193403971094788385626D+00 w(15) = 0.085036148317179180883535370191D+00 w(16) = 0.055459529373987201129440165359D+00 w(17) = 0.024148302868547931960110026288D+00 else if ( n == 18 ) then x(1) = -0.991565168420930946730016005D+00 x(2) = -0.955823949571397755181195893D+00 x(3) = -0.892602466497555739206060591D+00 x(4) = -0.803704958972523115682417455D+00 x(5) = -0.691687043060353207874891081D+00 x(6) = -0.55977083107394753460787155D+00 x(7) = -0.41175116146284264603593179D+00 x(8) = -0.25188622569150550958897285D+00 x(9) = -0.08477501304173530124226185D+00 x(10) = 0.08477501304173530124226185D+00 x(11) = 0.25188622569150550958897285D+00 x(12) = 0.41175116146284264603593179D+00 x(13) = 0.55977083107394753460787155D+00 x(14) = 0.69168704306035320787489108D+00 x(15) = 0.80370495897252311568241746D+00 x(16) = 0.89260246649755573920606059D+00 x(17) = 0.95582394957139775518119589D+00 x(18) = 0.99156516842093094673001600D+00 w(1) = 0.021616013526483310313342710266D+00 w(2) = 0.049714548894969796453334946203D+00 w(3) = 0.07642573025488905652912967762D+00 w(4) = 0.10094204410628716556281398492D+00 w(5) = 0.12255520671147846018451912680D+00 w(6) = 0.14064291467065065120473130375D+00 w(7) = 0.15468467512626524492541800384D+00 w(8) = 0.16427648374583272298605377647D+00 w(9) = 0.16914238296314359184065647013D+00 w(10) = 0.16914238296314359184065647013D+00 w(11) = 0.16427648374583272298605377647D+00 w(12) = 0.15468467512626524492541800384D+00 w(13) = 0.14064291467065065120473130375D+00 w(14) = 0.12255520671147846018451912680D+00 w(15) = 0.10094204410628716556281398492D+00 w(16) = 0.07642573025488905652912967762D+00 w(17) = 0.049714548894969796453334946203D+00 w(18) = 0.021616013526483310313342710266D+00 else if ( n == 19 ) then x(1) = -0.992406843843584403189017670D+00 x(2) = -0.960208152134830030852778841D+00 x(3) = -0.903155903614817901642660929D+00 x(4) = -0.822714656537142824978922487D+00 x(5) = -0.72096617733522937861709586D+00 x(6) = -0.60054530466168102346963816D+00 x(7) = -0.46457074137596094571726715D+00 x(8) = -0.31656409996362983199011733D+00 x(9) = -0.16035864564022537586809612D+00 x(10) = 0.00000000000000000000000000D+00 x(11) = 0.16035864564022537586809612D+00 x(12) = 0.31656409996362983199011733D+00 x(13) = 0.46457074137596094571726715D+00 x(14) = 0.60054530466168102346963816D+00 x(15) = 0.72096617733522937861709586D+00 x(16) = 0.82271465653714282497892249D+00 x(17) = 0.90315590361481790164266093D+00 x(18) = 0.96020815213483003085277884D+00 x(19) = 0.99240684384358440318901767D+00 w(1) = 0.019461788229726477036312041464D+00 w(2) = 0.044814226765699600332838157402D+00 w(3) = 0.069044542737641226580708258006D+00 w(4) = 0.091490021622449999464462094124D+00 w(5) = 0.111566645547333994716023901682D+00 w(6) = 0.12875396253933622767551578486D+00 w(7) = 0.14260670217360661177574610944D+00 w(8) = 0.15276604206585966677885540090D+00 w(9) = 0.15896884339395434764995643946D+00 w(10) = 0.16105444984878369597916362532D+00 w(11) = 0.15896884339395434764995643946D+00 w(12) = 0.15276604206585966677885540090D+00 w(13) = 0.14260670217360661177574610944D+00 w(14) = 0.12875396253933622767551578486D+00 w(15) = 0.111566645547333994716023901682D+00 w(16) = 0.091490021622449999464462094124D+00 w(17) = 0.069044542737641226580708258006D+00 w(18) = 0.044814226765699600332838157402D+00 w(19) = 0.019461788229726477036312041464D+00 else if ( n == 20 ) then x(1) = -0.993128599185094924786122388D+00 x(2) = -0.963971927277913791267666131D+00 x(3) = -0.912234428251325905867752441D+00 x(4) = -0.83911697182221882339452906D+00 x(5) = -0.74633190646015079261430507D+00 x(6) = -0.63605368072651502545283670D+00 x(7) = -0.51086700195082709800436405D+00 x(8) = -0.37370608871541956067254818D+00 x(9) = -0.22778585114164507808049620D+00 x(10) = -0.07652652113349733375464041D+00 x(11) = 0.07652652113349733375464041D+00 x(12) = 0.22778585114164507808049620D+00 x(13) = 0.37370608871541956067254818D+00 x(14) = 0.51086700195082709800436405D+00 x(15) = 0.63605368072651502545283670D+00 x(16) = 0.74633190646015079261430507D+00 x(17) = 0.83911697182221882339452906D+00 x(18) = 0.91223442825132590586775244D+00 x(19) = 0.96397192727791379126766613D+00 x(20) = 0.99312859918509492478612239D+00 w(1) = 0.017614007139152118311861962352D+00 w(2) = 0.040601429800386941331039952275D+00 w(3) = 0.062672048334109063569506535187D+00 w(4) = 0.08327674157670474872475814322D+00 w(5) = 0.10193011981724043503675013548D+00 w(6) = 0.11819453196151841731237737771D+00 w(7) = 0.13168863844917662689849449975D+00 w(8) = 0.14209610931838205132929832507D+00 w(9) = 0.14917298647260374678782873700D+00 w(10) = 0.15275338713072585069808433195D+00 w(11) = 0.15275338713072585069808433195D+00 w(12) = 0.14917298647260374678782873700D+00 w(13) = 0.14209610931838205132929832507D+00 w(14) = 0.13168863844917662689849449975D+00 w(15) = 0.11819453196151841731237737771D+00 w(16) = 0.10193011981724043503675013548D+00 w(17) = 0.08327674157670474872475814322D+00 w(18) = 0.062672048334109063569506535187D+00 w(19) = 0.040601429800386941331039952275D+00 w(20) = 0.017614007139152118311861962352D+00 else if ( n == 21 ) then x( 1) = -0.99375217062038950026024204D+00 x( 2) = -0.96722683856630629431662221D+00 x( 3) = -0.92009933415040082879018713D+00 x( 4) = -0.85336336458331728364725064D+00 x( 5) = -0.76843996347567790861587785D+00 x( 6) = -0.66713880419741231930596667D+00 x( 7) = -0.55161883588721980705901880D+00 x( 8) = -0.42434212020743878357366889D+00 x( 9) = -0.28802131680240109660079252D+00 x(10) = -0.14556185416089509093703098D+00 x(11) = 0.00000000000000000000000000D+00 x(12) = +0.14556185416089509093703098D+00 x(13) = +0.28802131680240109660079252D+00 x(14) = +0.42434212020743878357366889D+00 x(15) = +0.55161883588721980705901880D+00 x(16) = +0.66713880419741231930596667D+00 x(17) = +0.76843996347567790861587785D+00 x(18) = +0.85336336458331728364725064D+00 x(19) = +0.92009933415040082879018713D+00 x(20) = +0.96722683856630629431662221D+00 x(21) = +0.99375217062038950026024204D+00 w( 1) = 0.016017228257774333324224616858D+00 w( 2) = 0.036953789770852493799950668299D+00 w( 3) = 0.057134425426857208283635826472D+00 w( 4) = 0.076100113628379302017051653300D+00 w( 5) = 0.093444423456033861553289741114D+00 w( 6) = 0.108797299167148377663474578070D+00 w( 7) = 0.12183141605372853419536717713D+00 w( 8) = 0.13226893863333746178105257450D+00 w( 9) = 0.13988739479107315472213342387D+00 w(10) = 0.14452440398997005906382716655D+00 w(11) = 0.14608113364969042719198514768D+00 w(12) = 0.14452440398997005906382716655D+00 w(13) = 0.13988739479107315472213342387D+00 w(14) = 0.13226893863333746178105257450D+00 w(15) = 0.12183141605372853419536717713D+00 w(16) = 0.108797299167148377663474578070D+00 w(17) = 0.093444423456033861553289741114D+00 w(18) = 0.076100113628379302017051653300D+00 w(19) = 0.057134425426857208283635826472D+00 w(20) = 0.036953789770852493799950668299D+00 w(21) = 0.016017228257774333324224616858D+00 else if ( n == 22 ) then x(1) = -0.99429458548239929207303142D+00 x(2) = -0.97006049783542872712395099D+00 x(3) = -0.92695677218717400052069294D+00 x(4) = -0.86581257772030013653642564D+00 x(5) = -0.78781680597920816200427796D+00 x(6) = -0.69448726318668278005068984D+00 x(7) = -0.58764040350691159295887693D+00 x(8) = -0.46935583798675702640633071D+00 x(9) = -0.34193582089208422515814742D+00 x(10) = -0.20786042668822128547884653D+00 x(11) = -0.06973927331972222121384180D+00 x(12) = 0.06973927331972222121384180D+00 x(13) = 0.20786042668822128547884653D+00 x(14) = 0.34193582089208422515814742D+00 x(15) = 0.46935583798675702640633071D+00 x(16) = 0.58764040350691159295887693D+00 x(17) = 0.69448726318668278005068984D+00 x(18) = 0.78781680597920816200427796D+00 x(19) = 0.86581257772030013653642564D+00 x(20) = 0.92695677218717400052069294D+00 x(21) = 0.97006049783542872712395099D+00 x(22) = 0.99429458548239929207303142D+00 w(1) = 0.014627995298272200684991098047D+00 w(2) = 0.033774901584814154793302246866D+00 w(3) = 0.052293335152683285940312051273D+00 w(4) = 0.06979646842452048809496141893D+00 w(5) = 0.08594160621706772741444368137D+00 w(6) = 0.10041414444288096493207883783D+00 w(7) = 0.11293229608053921839340060742D+00 w(8) = 0.12325237681051242428556098615D+00 w(9) = 0.13117350478706237073296499253D+00 w(10) = 0.13654149834601517135257383123D+00 w(11) = 0.13925187285563199337541024834D+00 w(12) = 0.13925187285563199337541024834D+00 w(13) = 0.13654149834601517135257383123D+00 w(14) = 0.13117350478706237073296499253D+00 w(15) = 0.12325237681051242428556098615D+00 w(16) = 0.11293229608053921839340060742D+00 w(17) = 0.10041414444288096493207883783D+00 w(18) = 0.08594160621706772741444368137D+00 w(19) = 0.06979646842452048809496141893D+00 w(20) = 0.052293335152683285940312051273D+00 w(21) = 0.033774901584814154793302246866D+00 w(22) = 0.014627995298272200684991098047D+00 else if ( n == 23 ) then x(1) = -0.99476933499755212352392572D+00 x(2) = -0.97254247121811523195602408D+00 x(3) = -0.93297108682601610234919699D+00 x(4) = -0.87675235827044166737815689D+00 x(5) = -0.80488840161883989215111841D+00 x(6) = -0.71866136313195019446162448D+00 x(7) = -0.61960987576364615638509731D+00 x(8) = -0.50950147784600754968979305D+00 x(9) = -0.39030103803029083142148887D+00 x(10) = -0.26413568097034493053386954D+00 x(11) = -0.13325682429846611093174268D+00 x(12) = 0.00000000000000000000000000D+00 x(13) = 0.13325682429846611093174268D+00 x(14) = 0.26413568097034493053386954D+00 x(15) = 0.39030103803029083142148887D+00 x(16) = 0.50950147784600754968979305D+00 x(17) = 0.61960987576364615638509731D+00 x(18) = 0.71866136313195019446162448D+00 x(19) = 0.80488840161883989215111841D+00 x(20) = 0.87675235827044166737815689D+00 x(21) = 0.93297108682601610234919699D+00 x(22) = 0.97254247121811523195602408D+00 x(23) = 0.99476933499755212352392572D+00 w(1) = 0.013411859487141772081309493459D+00 w(2) = 0.030988005856979444310694219642D+00 w(3) = 0.048037671731084668571641071632D+00 w(4) = 0.064232421408525852127169615159D+00 w(5) = 0.079281411776718954922892524742D+00 w(6) = 0.092915766060035147477018617370D+00 w(7) = 0.104892091464541410074086185015D+00 w(8) = 0.11499664022241136494164351293D+00 w(9) = 0.12304908430672953046757840067D+00 w(10) = 0.12890572218808214997859533940D+00 w(11) = 0.13246203940469661737164246470D+00 w(12) = 0.13365457218610617535145711055D+00 w(13) = 0.13246203940469661737164246470D+00 w(14) = 0.12890572218808214997859533940D+00 w(15) = 0.12304908430672953046757840067D+00 w(16) = 0.11499664022241136494164351293D+00 w(17) = 0.104892091464541410074086185015D+00 w(18) = 0.092915766060035147477018617370D+00 w(19) = 0.079281411776718954922892524742D+00 w(20) = 0.064232421408525852127169615159D+00 w(21) = 0.048037671731084668571641071632D+00 w(22) = 0.030988005856979444310694219642D+00 w(23) = 0.013411859487141772081309493459D+00 else if ( n == 24 ) then x(1) = -0.99518721999702136017999741D+00 x(2) = -0.97472855597130949819839199D+00 x(3) = -0.93827455200273275852364900D+00 x(4) = -0.88641552700440103421315434D+00 x(5) = -0.82000198597390292195394987D+00 x(6) = -0.74012419157855436424382810D+00 x(7) = -0.64809365193697556925249579D+00 x(8) = -0.54542147138883953565837562D+00 x(9) = -0.43379350762604513848708423D+00 x(10) = -0.31504267969616337438679329D+00 x(11) = -0.19111886747361630915863982D+00 x(12) = -0.06405689286260562608504308D+00 x(13) = 0.06405689286260562608504308D+00 x(14) = 0.19111886747361630915863982D+00 x(15) = 0.31504267969616337438679329D+00 x(16) = 0.43379350762604513848708423D+00 x(17) = 0.54542147138883953565837562D+00 x(18) = 0.64809365193697556925249579D+00 x(19) = 0.74012419157855436424382810D+00 x(20) = 0.82000198597390292195394987D+00 x(21) = 0.88641552700440103421315434D+00 x(22) = 0.93827455200273275852364900D+00 x(23) = 0.97472855597130949819839199D+00 x(24) = 0.99518721999702136017999741D+00 w(1) = 0.012341229799987199546805667070D+00 w(2) = 0.028531388628933663181307815952D+00 w(3) = 0.044277438817419806168602748211D+00 w(4) = 0.059298584915436780746367758500D+00 w(5) = 0.07334648141108030573403361525D+00 w(6) = 0.08619016153195327591718520298D+00 w(7) = 0.09761865210411388826988066446D+00 w(8) = 0.10744427011596563478257734245D+00 w(9) = 0.11550566805372560135334448391D+00 w(10) = 0.12167047292780339120446315348D+00 w(11) = 0.12583745634682829612137538251D+00 w(12) = 0.12793819534675215697405616522D+00 w(13) = 0.12793819534675215697405616522D+00 w(14) = 0.12583745634682829612137538251D+00 w(15) = 0.12167047292780339120446315348D+00 w(16) = 0.11550566805372560135334448391D+00 w(17) = 0.10744427011596563478257734245D+00 w(18) = 0.09761865210411388826988066446D+00 w(19) = 0.08619016153195327591718520298D+00 w(20) = 0.07334648141108030573403361525D+00 w(21) = 0.059298584915436780746367758500D+00 w(22) = 0.044277438817419806168602748211D+00 w(23) = 0.028531388628933663181307815952D+00 w(24) = 0.012341229799987199546805667070D+00 else if ( n == 25 ) then x(1) = -0.99555696979049809790878495D+00 x(2) = -0.97666392145951751149831539D+00 x(3) = -0.94297457122897433941401117D+00 x(4) = -0.89499199787827536885104201D+00 x(5) = -0.83344262876083400142102111D+00 x(6) = -0.75925926303735763057728287D+00 x(7) = -0.67356636847346836448512063D+00 x(8) = -0.57766293024122296772368984D+00 x(9) = -0.47300273144571496052218212D+00 x(10) = -0.36117230580938783773582173D+00 x(11) = -0.24386688372098843204519036D+00 x(12) = -0.12286469261071039638735982D+00 x(13) = 0.00000000000000000000000000D+00 x(14) = 0.12286469261071039638735982D+00 x(15) = 0.24386688372098843204519036D+00 x(16) = 0.36117230580938783773582173D+00 x(17) = 0.47300273144571496052218212D+00 x(18) = 0.57766293024122296772368984D+00 x(19) = 0.67356636847346836448512063D+00 x(20) = 0.75925926303735763057728287D+00 x(21) = 0.83344262876083400142102111D+00 x(22) = 0.89499199787827536885104201D+00 x(23) = 0.94297457122897433941401117D+00 x(24) = 0.97666392145951751149831539D+00 x(25) = 0.99555696979049809790878495D+00 w(1) = 0.0113937985010262879479029641132D+00 w(2) = 0.026354986615032137261901815295D+00 w(3) = 0.040939156701306312655623487712D+00 w(4) = 0.054904695975835191925936891541D+00 w(5) = 0.068038333812356917207187185657D+00 w(6) = 0.080140700335001018013234959669D+00 w(7) = 0.091028261982963649811497220703D+00 w(8) = 0.100535949067050644202206890393D+00 w(9) = 0.108519624474263653116093957050D+00 w(10) = 0.11485825914571164833932554587D+00 w(11) = 0.11945576353578477222817812651D+00 w(12) = 0.12224244299031004168895951895D+00 w(13) = 0.12317605372671545120390287308D+00 w(14) = 0.12224244299031004168895951895D+00 w(15) = 0.11945576353578477222817812651D+00 w(16) = 0.11485825914571164833932554587D+00 w(17) = 0.108519624474263653116093957050D+00 w(18) = 0.100535949067050644202206890393D+00 w(19) = 0.091028261982963649811497220703D+00 w(20) = 0.080140700335001018013234959669D+00 w(21) = 0.068038333812356917207187185657D+00 w(22) = 0.054904695975835191925936891541D+00 w(23) = 0.040939156701306312655623487712D+00 w(24) = 0.026354986615032137261901815295D+00 w(25) = 0.0113937985010262879479029641132D+00 else if ( n == 26 ) then x(1) = -0.99588570114561692900321696D+00 x(2) = -0.97838544595647099110058035D+00 x(3) = -0.94715906666171425013591528D+00 x(4) = -0.90263786198430707421766560D+00 x(5) = -0.84544594278849801879750706D+00 x(6) = -0.77638594882067885619296725D+00 x(7) = -0.69642726041995726486381391D+00 x(8) = -0.60669229301761806323197875D+00 x(9) = -0.50844071482450571769570306D+00 x(10) = -0.40305175512348630648107738D+00 x(11) = -0.29200483948595689514283538D+00 x(12) = -0.17685882035689018396905775D+00 x(13) = -0.05923009342931320709371858D+00 x(14) = 0.05923009342931320709371858D+00 x(15) = 0.17685882035689018396905775D+00 x(16) = 0.29200483948595689514283538D+00 x(17) = 0.40305175512348630648107738D+00 x(18) = 0.50844071482450571769570306D+00 x(19) = 0.60669229301761806323197875D+00 x(20) = 0.69642726041995726486381391D+00 x(21) = 0.77638594882067885619296725D+00 x(22) = 0.84544594278849801879750706D+00 x(23) = 0.90263786198430707421766560D+00 x(24) = 0.94715906666171425013591528D+00 x(25) = 0.97838544595647099110058035D+00 x(26) = 0.99588570114561692900321696D+00 w(1) = 0.010551372617343007155651187685D+00 w(2) = 0.024417851092631908789615827520D+00 w(3) = 0.037962383294362763950303141249D+00 w(4) = 0.050975825297147811998319900724D+00 w(5) = 0.063274046329574835539453689907D+00 w(6) = 0.07468414976565974588707579610D+00 w(7) = 0.08504589431348523921044776508D+00 w(8) = 0.09421380035591414846366488307D+00 w(9) = 0.10205916109442542323841407025D+00 w(10) = 0.10847184052857659065657942673D+00 w(11) = 0.11336181654631966654944071844D+00 w(12) = 0.11666044348529658204466250754D+00 w(13) = 0.11832141527926227651637108570D+00 w(14) = 0.11832141527926227651637108570D+00 w(15) = 0.11666044348529658204466250754D+00 w(16) = 0.11336181654631966654944071844D+00 w(17) = 0.10847184052857659065657942673D+00 w(18) = 0.10205916109442542323841407025D+00 w(19) = 0.09421380035591414846366488307D+00 w(20) = 0.08504589431348523921044776508D+00 w(21) = 0.07468414976565974588707579610D+00 w(22) = 0.063274046329574835539453689907D+00 w(23) = 0.050975825297147811998319900724D+00 w(24) = 0.037962383294362763950303141249D+00 w(25) = 0.024417851092631908789615827520D+00 w(26) = 0.010551372617343007155651187685D+00 else if ( n == 27 ) then x(1) = -0.99617926288898856693888721D+00 x(2) = -0.97992347596150122285587336D+00 x(3) = -0.95090055781470500685190803D+00 x(4) = -0.90948232067749110430064502D+00 x(5) = -0.85620790801829449030273722D+00 x(6) = -0.79177163907050822714439734D+00 x(7) = -0.71701347373942369929481621D+00 x(8) = -0.63290797194649514092773464D+00 x(9) = -0.54055156457945689490030094D+00 x(10) = -0.44114825175002688058597416D+00 x(11) = -0.33599390363850889973031903D+00 x(12) = -0.22645936543953685885723911D+00 x(13) = -0.11397258560952996693289498D+00 x(14) = 0.00000000000000000000000000D+00 x(15) = 0.11397258560952996693289498D+00 x(16) = 0.22645936543953685885723911D+00 x(17) = 0.33599390363850889973031903D+00 x(18) = 0.44114825175002688058597416D+00 x(19) = 0.54055156457945689490030094D+00 x(20) = 0.63290797194649514092773464D+00 x(21) = 0.71701347373942369929481621D+00 x(22) = 0.79177163907050822714439734D+00 x(23) = 0.85620790801829449030273722D+00 x(24) = 0.90948232067749110430064502D+00 x(25) = 0.95090055781470500685190803D+00 x(26) = 0.97992347596150122285587336D+00 x(27) = 0.99617926288898856693888721D+00 w(1) = 0.0097989960512943602611500550912D+00 w(2) = 0.022686231596180623196034206447D+00 w(3) = 0.035297053757419711022578289305D+00 w(4) = 0.047449412520615062704096710114D+00 w(5) = 0.058983536859833599110300833720D+00 w(6) = 0.069748823766245592984322888357D+00 w(7) = 0.079604867773057771263074959010D+00 w(8) = 0.088423158543756950194322802854D+00 w(9) = 0.096088727370028507565652646558D+00 w(10) = 0.102501637817745798671247711533D+00 w(11) = 0.107578285788533187212162984427D+00 w(12) = 0.111252488356845192672163096043D+00 w(13) = 0.113476346108965148620369948092D+00 w(14) = 0.11422086737895698904504573690D+00 w(15) = 0.113476346108965148620369948092D+00 w(16) = 0.111252488356845192672163096043D+00 w(17) = 0.107578285788533187212162984427D+00 w(18) = 0.102501637817745798671247711533D+00 w(19) = 0.096088727370028507565652646558D+00 w(20) = 0.088423158543756950194322802854D+00 w(21) = 0.079604867773057771263074959010D+00 w(22) = 0.069748823766245592984322888357D+00 w(23) = 0.058983536859833599110300833720D+00 w(24) = 0.047449412520615062704096710114D+00 w(25) = 0.035297053757419711022578289305D+00 w(26) = 0.022686231596180623196034206447D+00 w(27) = 0.0097989960512943602611500550912D+00 else if ( n == 28 ) then x(1) = -0.99644249757395444995043639D+00 x(2) = -0.98130316537087275369455995D+00 x(3) = -0.95425928062893819725410184D+00 x(4) = -0.91563302639213207386968942D+00 x(5) = -0.86589252257439504894225457D+00 x(6) = -0.80564137091717917144788596D+00 x(7) = -0.73561087801363177202814451D+00 x(8) = -0.65665109403886496121989818D+00 x(9) = -0.56972047181140171930800328D+00 x(10) = -0.47587422495511826103441185D+00 x(11) = -0.37625151608907871022135721D+00 x(12) = -0.27206162763517807767682636D+00 x(13) = -0.16456928213338077128147178D+00 x(14) = -0.05507928988403427042651653D+00 x(15) = 0.05507928988403427042651653D+00 x(16) = 0.16456928213338077128147178D+00 x(17) = 0.27206162763517807767682636D+00 x(18) = 0.37625151608907871022135721D+00 x(19) = 0.47587422495511826103441185D+00 x(20) = 0.56972047181140171930800328D+00 x(21) = 0.65665109403886496121989818D+00 x(22) = 0.73561087801363177202814451D+00 x(23) = 0.80564137091717917144788596D+00 x(24) = 0.86589252257439504894225457D+00 x(25) = 0.91563302639213207386968942D+00 x(26) = 0.95425928062893819725410184D+00 x(27) = 0.98130316537087275369455995D+00 x(28) = 0.99644249757395444995043639D+00 w(1) = 0.009124282593094517738816153923D+00 w(2) = 0.021132112592771259751500380993D+00 w(3) = 0.032901427782304379977630819171D+00 w(4) = 0.044272934759004227839587877653D+00 w(5) = 0.055107345675716745431482918227D+00 w(6) = 0.06527292396699959579339756678D+00 w(7) = 0.07464621423456877902393188717D+00 w(8) = 0.08311341722890121839039649824D+00 w(9) = 0.09057174439303284094218603134D+00 w(10) = 0.09693065799792991585048900610D+00 w(11) = 0.10211296757806076981421663851D+00 w(12) = 0.10605576592284641791041643700D+00 w(13) = 0.10871119225829413525357151930D+00 w(14) = 0.11004701301647519628237626560D+00 w(15) = 0.11004701301647519628237626560D+00 w(16) = 0.10871119225829413525357151930D+00 w(17) = 0.10605576592284641791041643700D+00 w(18) = 0.10211296757806076981421663851D+00 w(19) = 0.09693065799792991585048900610D+00 w(20) = 0.09057174439303284094218603134D+00 w(21) = 0.08311341722890121839039649824D+00 w(22) = 0.07464621423456877902393188717D+00 w(23) = 0.06527292396699959579339756678D+00 w(24) = 0.055107345675716745431482918227D+00 w(25) = 0.044272934759004227839587877653D+00 w(26) = 0.032901427782304379977630819171D+00 w(27) = 0.021132112592771259751500380993D+00 w(28) = 0.009124282593094517738816153923D+00 else if ( n == 29 ) then x(1) = -0.99667944226059658616319153D+00 x(2) = -0.98254550526141317487092602D+00 x(3) = -0.95728559577808772579820804D+00 x(4) = -0.92118023295305878509375344D+00 x(5) = -0.87463780492010279041779342D+00 x(6) = -0.81818548761525244498957221D+00 x(7) = -0.75246285173447713391261008D+00 x(8) = -0.67821453760268651515618501D+00 x(9) = -0.59628179713822782037958621D+00 x(10) = -0.50759295512422764210262792D+00 x(11) = -0.41315288817400866389070659D+00 x(12) = -0.31403163786763993494819592D+00 x(13) = -0.21135228616600107450637573D+00 x(14) = -0.10627823013267923017098239D+00 x(15) = 0.00000000000000000000000000D+00 x(16) = 0.10627823013267923017098239D+00 x(17) = 0.21135228616600107450637573D+00 x(18) = 0.31403163786763993494819592D+00 x(19) = 0.41315288817400866389070659D+00 x(20) = 0.50759295512422764210262792D+00 x(21) = 0.59628179713822782037958621D+00 x(22) = 0.67821453760268651515618501D+00 x(23) = 0.75246285173447713391261008D+00 x(24) = 0.81818548761525244498957221D+00 x(25) = 0.87463780492010279041779342D+00 x(26) = 0.92118023295305878509375344D+00 x(27) = 0.95728559577808772579820804D+00 x(28) = 0.98254550526141317487092602D+00 x(29) = 0.99667944226059658616319153D+00 w(1) = 0.0085169038787464096542638133022D+00 w(2) = 0.019732085056122705983859801640D+00 w(3) = 0.030740492202093622644408525375D+00 w(4) = 0.041402062518682836104830010114D+00 w(5) = 0.051594826902497923912594381180D+00 w(6) = 0.061203090657079138542109848024D+00 w(7) = 0.070117933255051278569581486949D+00 w(8) = 0.078238327135763783828144888660D+00 w(9) = 0.085472257366172527545344849297D+00 w(10) = 0.091737757139258763347966411077D+00 w(11) = 0.096963834094408606301900074883D+00 w(12) = 0.101091273759914966121820546907D+00 w(13) = 0.104073310077729373913328471285D+00 w(14) = 0.105876155097320941406591327852D+00 w(15) = 0.10647938171831424424651112691D+00 w(16) = 0.105876155097320941406591327852D+00 w(17) = 0.104073310077729373913328471285D+00 w(18) = 0.101091273759914966121820546907D+00 w(19) = 0.096963834094408606301900074883D+00 w(20) = 0.091737757139258763347966411077D+00 w(21) = 0.085472257366172527545344849297D+00 w(22) = 0.078238327135763783828144888660D+00 w(23) = 0.070117933255051278569581486949D+00 w(24) = 0.061203090657079138542109848024D+00 w(25) = 0.051594826902497923912594381180D+00 w(26) = 0.041402062518682836104830010114D+00 w(27) = 0.030740492202093622644408525375D+00 w(28) = 0.019732085056122705983859801640D+00 w(29) = 0.0085169038787464096542638133022D+00 else if ( n == 30 ) then x(1) = -0.99689348407464954027163005D+00 x(2) = -0.98366812327974720997003258D+00 x(3) = -0.96002186496830751221687103D+00 x(4) = -0.92620004742927432587932428D+00 x(5) = -0.88256053579205268154311646D+00 x(6) = -0.82956576238276839744289812D+00 x(7) = -0.76777743210482619491797734D+00 x(8) = -0.69785049479331579693229239D+00 x(9) = -0.62052618298924286114047756D+00 x(10) = -0.53662414814201989926416979D+00 x(11) = -0.44703376953808917678060990D+00 x(12) = -0.35270472553087811347103721D+00 x(13) = -0.25463692616788984643980513D+00 x(14) = -0.15386991360858354696379467D+00 x(15) = -0.05147184255531769583302521D+00 x(16) = 0.05147184255531769583302521D+00 x(17) = 0.15386991360858354696379467D+00 x(18) = 0.25463692616788984643980513D+00 x(19) = 0.35270472553087811347103721D+00 x(20) = 0.44703376953808917678060990D+00 x(21) = 0.53662414814201989926416979D+00 x(22) = 0.62052618298924286114047756D+00 x(23) = 0.69785049479331579693229239D+00 x(24) = 0.76777743210482619491797734D+00 x(25) = 0.82956576238276839744289812D+00 x(26) = 0.88256053579205268154311646D+00 x(27) = 0.92620004742927432587932428D+00 x(28) = 0.96002186496830751221687103D+00 x(29) = 0.98366812327974720997003258D+00 x(30) = 0.99689348407464954027163005D+00 w(1) = 0.007968192496166605615465883475D+00 w(2) = 0.018466468311090959142302131912D+00 w(3) = 0.028784707883323369349719179611D+00 w(4) = 0.038799192569627049596801936446D+00 w(5) = 0.048402672830594052902938140423D+00 w(6) = 0.057493156217619066481721689402D+00 w(7) = 0.06597422988218049512812851512D+00 w(8) = 0.07375597473770520626824385002D+00 w(9) = 0.08075589522942021535469493846D+00 w(10) = 0.08689978720108297980238753072D+00 w(11) = 0.09212252223778612871763270709D+00 w(12) = 0.09636873717464425963946862635D+00 w(13) = 0.09959342058679526706278028210D+00 w(14) = 0.10176238974840550459642895217D+00 w(15) = 0.10285265289355884034128563671D+00 w(16) = 0.10285265289355884034128563671D+00 w(17) = 0.10176238974840550459642895217D+00 w(18) = 0.09959342058679526706278028210D+00 w(19) = 0.09636873717464425963946862635D+00 w(20) = 0.09212252223778612871763270709D+00 w(21) = 0.08689978720108297980238753072D+00 w(22) = 0.08075589522942021535469493846D+00 w(23) = 0.07375597473770520626824385002D+00 w(24) = 0.06597422988218049512812851512D+00 w(25) = 0.057493156217619066481721689402D+00 w(26) = 0.048402672830594052902938140423D+00 w(27) = 0.038799192569627049596801936446D+00 w(28) = 0.028784707883323369349719179611D+00 w(29) = 0.018466468311090959142302131912D+00 w(30) = 0.007968192496166605615465883475D+00 else if ( n == 31 ) then x(1) = -0.99708748181947707405562655D+00 x(2) = -0.98468590966515248400246517D+00 x(3) = -0.96250392509294966178905240D+00 x(4) = -0.93075699789664816495694576D+00 x(5) = -0.88976002994827104337419201D+00 x(6) = -0.83992032014626734008690454D+00 x(7) = -0.78173314841662494040636002D+00 x(8) = -0.71577678458685328390597087D+00 x(9) = -0.64270672292426034618441820D+00 x(10) = -0.56324916140714926272094492D+00 x(11) = -0.47819378204490248044059404D+00 x(12) = -0.38838590160823294306135146D+00 x(13) = -0.29471806998170161661790390D+00 x(14) = -0.19812119933557062877241300D+00 x(15) = -0.09955531215234152032517479D+00 x(16) = 0.00000000000000000000000000D+00 x(17) = 0.09955531215234152032517479D+00 x(18) = 0.19812119933557062877241300D+00 x(19) = 0.29471806998170161661790390D+00 x(20) = 0.38838590160823294306135146D+00 x(21) = 0.47819378204490248044059404D+00 x(22) = 0.56324916140714926272094492D+00 x(23) = 0.64270672292426034618441820D+00 x(24) = 0.71577678458685328390597087D+00 x(25) = 0.78173314841662494040636002D+00 x(26) = 0.83992032014626734008690454D+00 x(27) = 0.88976002994827104337419201D+00 x(28) = 0.93075699789664816495694576D+00 x(29) = 0.96250392509294966178905240D+00 x(30) = 0.98468590966515248400246517D+00 x(31) = 0.99708748181947707405562655D+00 w(1) = 0.0074708315792487758586968750322D+00 w(2) = 0.017318620790310582463157996087D+00 w(3) = 0.027009019184979421800608708092D+00 w(4) = 0.036432273912385464024392010468D+00 w(5) = 0.045493707527201102902315857895D+00 w(6) = 0.054103082424916853711666259087D+00 w(7) = 0.062174786561028426910343543687D+00 w(8) = 0.069628583235410366167756126255D+00 w(9) = 0.076390386598776616426357674901D+00 w(10) = 0.082392991761589263903823367432D+00 w(11) = 0.087576740608477876126198069695D+00 w(12) = 0.091890113893641478215362871607D+00 w(13) = 0.095290242912319512807204197488D+00 w(14) = 0.097743335386328725093474010979D+00 w(15) = 0.099225011226672307874875514429D+00 w(16) = 0.09972054479342645142753383373D+00 w(17) = 0.099225011226672307874875514429D+00 w(18) = 0.097743335386328725093474010979D+00 w(19) = 0.095290242912319512807204197488D+00 w(20) = 0.091890113893641478215362871607D+00 w(21) = 0.087576740608477876126198069695D+00 w(22) = 0.082392991761589263903823367432D+00 w(23) = 0.076390386598776616426357674901D+00 w(24) = 0.069628583235410366167756126255D+00 w(25) = 0.062174786561028426910343543687D+00 w(26) = 0.054103082424916853711666259087D+00 w(27) = 0.045493707527201102902315857895D+00 w(28) = 0.036432273912385464024392010468D+00 w(29) = 0.027009019184979421800608708092D+00 w(30) = 0.017318620790310582463157996087D+00 w(31) = 0.0074708315792487758586968750322D+00 else if ( n == 32 ) then x(1) = -0.99726386184948156354498113D+00 x(2) = -0.98561151154526833540017504D+00 x(3) = -0.96476225558750643077381193D+00 x(4) = -0.93490607593773968917091913D+00 x(5) = -0.89632115576605212396530724D+00 x(6) = -0.84936761373256997013369300D+00 x(7) = -0.79448379596794240696309730D+00 x(8) = -0.73218211874028968038742667D+00 x(9) = -0.66304426693021520097511517D+00 x(10) = -0.58771575724076232904074548D+00 x(11) = -0.50689990893222939002374747D+00 x(12) = -0.42135127613063534536411944D+00 x(13) = -0.33186860228212764977991681D+00 x(14) = -0.23928736225213707454460321D+00 x(15) = -0.14447196158279649348518637D+00 x(16) = -0.04830766568773831623481257D+00 x(17) = 0.04830766568773831623481257D+00 x(18) = 0.14447196158279649348518637D+00 x(19) = 0.23928736225213707454460321D+00 x(20) = 0.33186860228212764977991681D+00 x(21) = 0.42135127613063534536411944D+00 x(22) = 0.50689990893222939002374747D+00 x(23) = 0.58771575724076232904074548D+00 x(24) = 0.66304426693021520097511517D+00 x(25) = 0.73218211874028968038742667D+00 x(26) = 0.79448379596794240696309730D+00 x(27) = 0.84936761373256997013369300D+00 x(28) = 0.89632115576605212396530724D+00 x(29) = 0.93490607593773968917091913D+00 x(30) = 0.96476225558750643077381193D+00 x(31) = 0.98561151154526833540017504D+00 x(32) = 0.99726386184948156354498113D+00 w(1) = 0.007018610009470096600407063739D+00 w(2) = 0.016274394730905670605170562206D+00 w(3) = 0.025392065309262059455752589789D+00 w(4) = 0.034273862913021433102687732252D+00 w(5) = 0.042835898022226680656878646606D+00 w(6) = 0.050998059262376176196163244690D+00 w(7) = 0.058684093478535547145283637300D+00 w(8) = 0.06582222277636184683765006371D+00 w(9) = 0.07234579410884850622539935648D+00 w(10) = 0.07819389578707030647174091883D+00 w(11) = 0.08331192422694675522219907460D+00 w(12) = 0.08765209300440381114277146275D+00 w(13) = 0.09117387869576388471286857711D+00 w(14) = 0.09384439908080456563918023767D+00 w(15) = 0.09563872007927485941908200220D+00 w(16) = 0.09654008851472780056676483006D+00 w(17) = 0.09654008851472780056676483006D+00 w(18) = 0.09563872007927485941908200220D+00 w(19) = 0.09384439908080456563918023767D+00 w(20) = 0.09117387869576388471286857711D+00 w(21) = 0.08765209300440381114277146275D+00 w(22) = 0.08331192422694675522219907460D+00 w(23) = 0.07819389578707030647174091883D+00 w(24) = 0.07234579410884850622539935648D+00 w(25) = 0.06582222277636184683765006371D+00 w(26) = 0.058684093478535547145283637300D+00 w(27) = 0.050998059262376176196163244690D+00 w(28) = 0.042835898022226680656878646606D+00 w(29) = 0.034273862913021433102687732252D+00 w(30) = 0.025392065309262059455752589789D+00 w(31) = 0.016274394730905670605170562206D+00 w(32) = 0.007018610009470096600407063739D+00 else if ( n == 33 ) then x(1) = -0.99742469424645521726616802D+00 x(2) = -0.98645572623064248811037570D+00 x(3) = -0.96682290968999276892837771D+00 x(4) = -0.93869437261116835035583512D+00 x(5) = -0.90231676774343358304053133D+00 x(6) = -0.85800965267650406464306148D+00 x(7) = -0.80616235627416658979620087D+00 x(8) = -0.74723049644956215785905512D+00 x(9) = -0.68173195996974278626821595D+00 x(10) = -0.61024234583637902730728751D+00 x(11) = -0.53338990478634764354889426D+00 x(12) = -0.45185001727245069572599328D+00 x(13) = -0.36633925774807334107022062D+00 x(14) = -0.27760909715249702940324807D+00 x(15) = -0.18643929882799157233579876D+00 x(16) = -0.09363106585473338567074292D+00 x(17) = 0.00000000000000000000000000D+00 x(18) = 0.09363106585473338567074292D+00 x(19) = 0.18643929882799157233579876D+00 x(20) = 0.27760909715249702940324807D+00 x(21) = 0.36633925774807334107022062D+00 x(22) = 0.45185001727245069572599328D+00 x(23) = 0.53338990478634764354889426D+00 x(24) = 0.61024234583637902730728751D+00 x(25) = 0.68173195996974278626821595D+00 x(26) = 0.74723049644956215785905512D+00 x(27) = 0.80616235627416658979620087D+00 x(28) = 0.85800965267650406464306148D+00 x(29) = 0.90231676774343358304053133D+00 x(30) = 0.93869437261116835035583512D+00 x(31) = 0.96682290968999276892837771D+00 x(32) = 0.98645572623064248811037570D+00 x(33) = 0.99742469424645521726616802D+00 w(1) = 0.0066062278475873780586492352085D+00 w(2) = 0.015321701512934676127945768534D+00 w(3) = 0.023915548101749480350533257529D+00 w(4) = 0.032300358632328953281561447250D+00 w(5) = 0.040401541331669591563409790527D+00 w(6) = 0.048147742818711695670146880138D+00 w(7) = 0.055470846631663561284944495439D+00 w(8) = 0.062306482530317480031627725771D+00 w(9) = 0.068594572818656712805955073015D+00 w(10) = 0.074279854843954149342472175919D+00 w(11) = 0.079312364794886738363908384942D+00 w(12) = 0.083647876067038707613928014518D+00 w(13) = 0.087248287618844337607281670945D+00 w(14) = 0.090081958660638577239743705500D+00 w(15) = 0.092123986643316846213240977717D+00 w(16) = 0.093356426065596116160999126274D+00 w(17) = 0.09376844616020999656730454155D+00 w(18) = 0.093356426065596116160999126274D+00 w(19) = 0.092123986643316846213240977717D+00 w(20) = 0.090081958660638577239743705500D+00 w(21) = 0.087248287618844337607281670945D+00 w(22) = 0.083647876067038707613928014518D+00 w(23) = 0.079312364794886738363908384942D+00 w(24) = 0.074279854843954149342472175919D+00 w(25) = 0.068594572818656712805955073015D+00 w(26) = 0.062306482530317480031627725771D+00 w(27) = 0.055470846631663561284944495439D+00 w(28) = 0.048147742818711695670146880138D+00 w(29) = 0.040401541331669591563409790527D+00 w(30) = 0.032300358632328953281561447250D+00 w(31) = 0.023915548101749480350533257529D+00 w(32) = 0.015321701512934676127945768534D+00 w(33) = 0.0066062278475873780586492352085D+00 else if ( n == 63 ) then x(1) = -0.99928298402912378037893614D+00 x(2) = -0.99622401277797010860219336D+00 x(3) = -0.99072854689218946681089467D+00 x(4) = -0.98280881059372723486251141D+00 x(5) = -0.97248403469757002280196068D+00 x(6) = -0.95977944975894192707035417D+00 x(7) = -0.94472613404100980296637532D+00 x(8) = -0.92736092062184320544703138D+00 x(9) = -0.90772630277853155803695313D+00 x(10) = -0.88587032850785342629029846D+00 x(11) = -0.86184648236412371953961184D+00 x(12) = -0.83571355431950284347180777D+00 x(13) = -0.80753549577345676005146599D+00 x(14) = -0.7773812629903723355633302D+00 x(15) = -0.7453246483178474178293217D+00 x(16) = -0.7114440995848458078514315D+00 x(17) = -0.6758225281149860901311033D+00 x(18) = -0.6385471058213653850003070D+00 x(19) = -0.5997090518776252357390089D+00 x(20) = -0.5594034094862850132676978D+00 x(21) = -0.5177288132900332481244776D+00 x(22) = -0.4747872479948043999222123D+00 x(23) = -0.4306837987951116006620889D+00 x(24) = -0.3855263942122478924776150D+00 x(25) = -0.3394255419745844024688344D+00 x(26) = -0.2924940585862514400361572D+00 x(27) = -0.2448467932459533627484046D+00 x(28) = -0.1966003467915066845576275D+00 x(29) = -0.1478727863578719685698391D+00 x(30) = -0.0987833564469452795297037D+00 x(31) = -0.0494521871161596272342338D+00 x(32) = 0.0000000000000000000000000D+00 x(33) = 0.0494521871161596272342338D+00 x(34) = 0.0987833564469452795297037D+00 x(35) = 0.1478727863578719685698391D+00 x(36) = 0.1966003467915066845576275D+00 x(37) = 0.2448467932459533627484046D+00 x(38) = 0.2924940585862514400361572D+00 x(39) = 0.3394255419745844024688344D+00 x(40) = 0.3855263942122478924776150D+00 x(41) = 0.4306837987951116006620889D+00 x(42) = 0.4747872479948043999222123D+00 x(43) = 0.5177288132900332481244776D+00 x(44) = 0.5594034094862850132676978D+00 x(45) = 0.5997090518776252357390089D+00 x(46) = 0.6385471058213653850003070D+00 x(47) = 0.6758225281149860901311033D+00 x(48) = 0.7114440995848458078514315D+00 x(49) = 0.7453246483178474178293217D+00 x(50) = 0.7773812629903723355633302D+00 x(51) = 0.8075354957734567600514660D+00 x(52) = 0.8357135543195028434718078D+00 x(53) = 0.8618464823641237195396118D+00 x(54) = 0.8858703285078534262902985D+00 x(55) = 0.9077263027785315580369531D+00 x(56) = 0.9273609206218432054470314D+00 x(57) = 0.9447261340410098029663753D+00 x(58) = 0.9597794497589419270703542D+00 x(59) = 0.9724840346975700228019607D+00 x(60) = 0.9828088105937272348625114D+00 x(61) = 0.9907285468921894668108947D+00 x(62) = 0.9962240127779701086021934D+00 x(63) = 0.9992829840291237803789361D+00 w(1) = 0.0018398745955770841170924455540D+00 w(2) = 0.0042785083468637618660784110826D+00 w(3) = 0.0067102917659601362519069307298D+00 w(4) = 0.0091259686763266563540586454218D+00 w(5) = 0.011519376076880041750750606149D+00 w(6) = 0.013884612616115610824866086368D+00 w(7) = 0.016215878410338338882283672975D+00 w(8) = 0.018507464460161270409260545805D+00 w(9) = 0.020753761258039090775341953421D+00 w(10) = 0.022949271004889933148942319562D+00 w(11) = 0.025088620553344986618630138068D+00 w(12) = 0.027166574359097933225189839439D+00 w(13) = 0.029178047208280526945551502154D+00 w(14) = 0.031118116622219817508215988557D+00 w(15) = 0.032982034883779341765683179672D+00 w(16) = 0.034765240645355877697180504643D+00 w(17) = 0.036463370085457289630452409788D+00 w(18) = 0.038072267584349556763638324928D+00 w(19) = 0.039587995891544093984807928149D+00 w(20) = 0.041006845759666398635110037009D+00 w(21) = 0.042325345020815822982505485403D+00 w(22) = 0.043540267083027590798964315704D+00 w(23) = 0.044648638825941395370332669517D+00 w(24) = 0.045647747876292608685885992609D+00 w(25) = 0.046535149245383696510395418747D+00 w(26) = 0.047308671312268919080604988339D+00 w(27) = 0.047966421137995131411052756195D+00 w(28) = 0.048506789097883847864090099146D+00 w(29) = 0.048928452820511989944709361549D+00 w(30) = 0.049230380423747560785043116988D+00 w(31) = 0.049411833039918178967039646117D+00 w(32) = 0.04947236662393102088866936042D+00 w(33) = 0.049411833039918178967039646117D+00 w(34) = 0.049230380423747560785043116988D+00 w(35) = 0.048928452820511989944709361549D+00 w(36) = 0.048506789097883847864090099146D+00 w(37) = 0.047966421137995131411052756195D+00 w(38) = 0.047308671312268919080604988339D+00 w(39) = 0.046535149245383696510395418747D+00 w(40) = 0.045647747876292608685885992609D+00 w(41) = 0.044648638825941395370332669517D+00 w(42) = 0.043540267083027590798964315704D+00 w(43) = 0.042325345020815822982505485403D+00 w(44) = 0.041006845759666398635110037009D+00 w(45) = 0.039587995891544093984807928149D+00 w(46) = 0.038072267584349556763638324928D+00 w(47) = 0.036463370085457289630452409788D+00 w(48) = 0.034765240645355877697180504643D+00 w(49) = 0.032982034883779341765683179672D+00 w(50) = 0.031118116622219817508215988557D+00 w(51) = 0.029178047208280526945551502154D+00 w(52) = 0.027166574359097933225189839439D+00 w(53) = 0.025088620553344986618630138068D+00 w(54) = 0.022949271004889933148942319562D+00 w(55) = 0.020753761258039090775341953421D+00 w(56) = 0.018507464460161270409260545805D+00 w(57) = 0.016215878410338338882283672975D+00 w(58) = 0.013884612616115610824866086368D+00 w(59) = 0.011519376076880041750750606149D+00 w(60) = 0.0091259686763266563540586454218D+00 w(61) = 0.0067102917659601362519069307298D+00 w(62) = 0.0042785083468637618660784110826D+00 w(63) = 0.0018398745955770841170924455540D+00 else if ( n == 64 ) then x(1) = -0.99930504173577213945690562D+00 x(2) = -0.99634011677195527934692450D+00 x(3) = -0.99101337147674432073938238D+00 x(4) = -0.98333625388462595693129930D+00 x(5) = -0.97332682778991096374185351D+00 x(6) = -0.96100879965205371891861412D+00 x(7) = -0.94641137485840281606248149D+00 x(8) = -0.92956917213193957582149015D+00 x(9) = -0.91052213707850280575638067D+00 x(10) = -0.88931544599511410585340404D+00 x(11) = -0.86599939815409281976078339D+00 x(12) = -0.8406292962525803627516915D+00 x(13) = -0.8132653151227975597419233D+00 x(14) = -0.7839723589433414076102205D+00 x(15) = -0.7528199072605318966118638D+00 x(16) = -0.7198818501716108268489402D+00 x(17) = -0.6852363130542332425635584D+00 x(18) = -0.6489654712546573398577612D+00 x(19) = -0.6111553551723932502488530D+00 x(20) = -0.5718956462026340342838781D+00 x(21) = -0.5312794640198945456580139D+00 x(22) = -0.4894031457070529574785263D+00 x(23) = -0.4463660172534640879849477D+00 x(24) = -0.4022701579639916036957668D+00 x(25) = -0.3572201583376681159504426D+00 x(26) = -0.3113228719902109561575127D+00 x(27) = -0.2646871622087674163739642D+00 x(28) = -0.2174236437400070841496487D+00 x(29) = -0.1696444204239928180373136D+00 x(30) = -0.1214628192961205544703765D+00 x(31) = -0.0729931217877990394495429D+00 x(32) = -0.0243502926634244325089558D+00 x(33) = 0.0243502926634244325089558D+00 x(34) = 0.0729931217877990394495429D+00 x(35) = 0.1214628192961205544703765D+00 x(36) = 0.1696444204239928180373136D+00 x(37) = 0.2174236437400070841496487D+00 x(38) = 0.2646871622087674163739642D+00 x(39) = 0.3113228719902109561575127D+00 x(40) = 0.3572201583376681159504426D+00 x(41) = 0.4022701579639916036957668D+00 x(42) = 0.4463660172534640879849477D+00 x(43) = 0.4894031457070529574785263D+00 x(44) = 0.5312794640198945456580139D+00 x(45) = 0.5718956462026340342838781D+00 x(46) = 0.6111553551723932502488530D+00 x(47) = 0.6489654712546573398577612D+00 x(48) = 0.6852363130542332425635584D+00 x(49) = 0.7198818501716108268489402D+00 x(50) = 0.7528199072605318966118638D+00 x(51) = 0.7839723589433414076102205D+00 x(52) = 0.8132653151227975597419233D+00 x(53) = 0.8406292962525803627516915D+00 x(54) = 0.8659993981540928197607834D+00 x(55) = 0.8893154459951141058534040D+00 x(56) = 0.9105221370785028057563807D+00 x(57) = 0.9295691721319395758214902D+00 x(58) = 0.9464113748584028160624815D+00 x(59) = 0.9610087996520537189186141D+00 x(60) = 0.9733268277899109637418535D+00 x(61) = 0.9833362538846259569312993D+00 x(62) = 0.9910133714767443207393824D+00 x(63) = 0.9963401167719552793469245D+00 x(64) = 0.9993050417357721394569056D+00 w(1) = 0.0017832807216964329472960791450D+00 w(2) = 0.0041470332605624676352875357286D+00 w(3) = 0.006504457968978362856117360400D+00 w(4) = 0.008846759826363947723030914660D+00 w(5) = 0.011168139460131128818590493019D+00 w(6) = 0.013463047896718642598060766686D+00 w(7) = 0.015726030476024719321965995298D+00 w(8) = 0.017951715775697343085045302001D+00 w(9) = 0.020134823153530209372340316729D+00 w(10) = 0.022270173808383254159298330384D+00 w(11) = 0.024352702568710873338177550409D+00 w(12) = 0.026377469715054658671691792625D+00 w(13) = 0.028339672614259483227511305200D+00 w(14) = 0.030234657072402478867974059820D+00 w(15) = 0.032057928354851553585467504348D+00 w(16) = 0.033805161837141609391565482111D+00 w(17) = 0.035472213256882383810693146715D+00 w(18) = 0.037055128540240046040415101810D+00 w(19) = 0.038550153178615629128962496947D+00 w(20) = 0.039953741132720341386656926128D+00 w(21) = 0.041262563242623528610156297474D+00 w(22) = 0.042473515123653589007339767909D+00 w(23) = 0.043583724529323453376827860974D+00 w(24) = 0.044590558163756563060134710031D+00 w(25) = 0.045491627927418144479770996971D+00 w(26) = 0.046284796581314417295953249232D+00 w(27) = 0.046968182816210017325326285755D+00 w(28) = 0.047540165714830308662282206944D+00 w(29) = 0.04799938859645830772812617987D+00 w(30) = 0.04834476223480295716976952716D+00 w(31) = 0.04857546744150342693479906678D+00 w(32) = 0.04869095700913972038336539073D+00 w(33) = 0.04869095700913972038336539073D+00 w(34) = 0.04857546744150342693479906678D+00 w(35) = 0.04834476223480295716976952716D+00 w(36) = 0.04799938859645830772812617987D+00 w(37) = 0.047540165714830308662282206944D+00 w(38) = 0.046968182816210017325326285755D+00 w(39) = 0.046284796581314417295953249232D+00 w(40) = 0.045491627927418144479770996971D+00 w(41) = 0.044590558163756563060134710031D+00 w(42) = 0.043583724529323453376827860974D+00 w(43) = 0.042473515123653589007339767909D+00 w(44) = 0.041262563242623528610156297474D+00 w(45) = 0.039953741132720341386656926128D+00 w(46) = 0.038550153178615629128962496947D+00 w(47) = 0.037055128540240046040415101810D+00 w(48) = 0.035472213256882383810693146715D+00 w(49) = 0.033805161837141609391565482111D+00 w(50) = 0.032057928354851553585467504348D+00 w(51) = 0.030234657072402478867974059820D+00 w(52) = 0.028339672614259483227511305200D+00 w(53) = 0.026377469715054658671691792625D+00 w(54) = 0.024352702568710873338177550409D+00 w(55) = 0.022270173808383254159298330384D+00 w(56) = 0.020134823153530209372340316729D+00 w(57) = 0.017951715775697343085045302001D+00 w(58) = 0.015726030476024719321965995298D+00 w(59) = 0.013463047896718642598060766686D+00 w(60) = 0.011168139460131128818590493019D+00 w(61) = 0.008846759826363947723030914660D+00 w(62) = 0.006504457968978362856117360400D+00 w(63) = 0.0041470332605624676352875357286D+00 w(64) = 0.0017832807216964329472960791450D+00 else if ( n == 65 ) then x(1) = -0.99932609707541287726569361D+00 x(2) = -0.99645094806184916305579494D+00 x(3) = -0.99128527617680166872182118D+00 x(4) = -0.98383981218703494137763778D+00 x(5) = -0.97413153983355116907496789D+00 x(6) = -0.96218275471805523771198375D+00 x(7) = -0.94802092816840750637376974D+00 x(8) = -0.93167862822874933796567699D+00 x(9) = -0.91319344054284626173654692D+00 x(10) = -0.89260788050473893142328554D+00 x(11) = -0.8699692949264070361941320D+00 x(12) = -0.8453297528999302839424500D+00 x(13) = -0.8187459259226514534339191D+00 x(14) = -0.7902789574921218430473804D+00 x(15) = -0.7599943224419997868739828D+00 x(16) = -0.7279616763294246790119737D+00 x(17) = -0.6942546952139916335526225D+00 x(18) = -0.6589509061936251330409408D+00 x(19) = -0.6221315090854002415825996D+00 x(20) = -0.5838811896604873133271545D+00 x(21) = -0.5442879248622271385455725D+00 x(22) = -0.5034427804550068823410431D+00 x(23) = -0.4614397015691450576978341D+00 x(24) = -0.4183752966234090092641990D+00 x(25) = -0.3743486151220660120087939D+00 x(26) = -0.3294609198374864076452867D+00 x(27) = -0.2838154539022487306176554D+00 x(28) = -0.2375172033464168065707124D+00 x(29) = -0.1906726556261427697749124D+00 x(30) = -0.1433895546989751711312496D+00 x(31) = -0.0957766532091975056522186D+00 x(32) = -0.0479434623531718575225298D+00 x(33) = 0.0000000000000000000000000D+00 x(34) = 0.0479434623531718575225298D+00 x(35) = 0.0957766532091975056522186D+00 x(36) = 0.1433895546989751711312496D+00 x(37) = 0.1906726556261427697749124D+00 x(38) = 0.2375172033464168065707124D+00 x(39) = 0.2838154539022487306176554D+00 x(40) = 0.3294609198374864076452867D+00 x(41) = 0.3743486151220660120087939D+00 x(42) = 0.4183752966234090092641990D+00 x(43) = 0.4614397015691450576978341D+00 x(44) = 0.5034427804550068823410431D+00 x(45) = 0.5442879248622271385455725D+00 x(46) = 0.5838811896604873133271545D+00 x(47) = 0.6221315090854002415825996D+00 x(48) = 0.6589509061936251330409408D+00 x(49) = 0.6942546952139916335526225D+00 x(50) = 0.7279616763294246790119737D+00 x(51) = 0.7599943224419997868739828D+00 x(52) = 0.7902789574921218430473804D+00 x(53) = 0.8187459259226514534339191D+00 x(54) = 0.8453297528999302839424500D+00 x(55) = 0.8699692949264070361941320D+00 x(56) = 0.8926078805047389314232855D+00 x(57) = 0.9131934405428462617365469D+00 x(58) = 0.9316786282287493379656770D+00 x(59) = 0.9480209281684075063737697D+00 x(60) = 0.9621827547180552377119837D+00 x(61) = 0.9741315398335511690749679D+00 x(62) = 0.9838398121870349413776378D+00 x(63) = 0.9912852761768016687218212D+00 x(64) = 0.9964509480618491630557949D+00 x(65) = 0.9993260970754128772656936D+00 w(1) = 0.0017292582513002508983395851463D+00 w(2) = 0.0040215241720037363470786599528D+00 w(3) = 0.0063079425789717545501888719039D+00 w(4) = 0.0085801482668814598936358121592D+00 w(5) = 0.0108326787895979686215140551272D+00 w(6) = 0.013060311639994846336168342922D+00 w(7) = 0.015257912146448310349265388145D+00 w(8) = 0.017420421997670248495365759969D+00 w(9) = 0.019542865836750062826837429313D+00 w(10) = 0.021620361284934062841654274667D+00 w(11) = 0.023648129691287236698780978994D+00 w(12) = 0.025621506938037758214084978694D+00 w(13) = 0.027535954088450343942499722327D+00 w(14) = 0.029387067789310668062644859210D+00 w(15) = 0.031170590380189142464431845777D+00 w(16) = 0.032882419676368574984049638008D+00 w(17) = 0.034518618398549058625221276859D+00 w(18) = 0.036075423225565273932166270524D+00 w(19) = 0.037549253448257709809772223198D+00 w(20) = 0.038936719204051197616673806364D+00 w(21) = 0.040234629273005533815446337743D+00 w(22) = 0.041439998417240293022686299233D+00 w(23) = 0.042550054246755802719217150803D+00 w(24) = 0.043562243595800486532284821661D+00 w(25) = 0.044474238395082974427323504000D+00 w(26) = 0.045283941026300230657128240574D+00 w(27) = 0.045989489146651696963893390818D+00 w(28) = 0.046589259972233498302255136790D+00 w(29) = 0.047081874010454522246006808290D+00 w(30) = 0.047466198232885503152644458740D+00 w(31) = 0.047741348681240621559038972227D+00 w(32) = 0.047906692500495862031347289176D+00 w(33) = 0.04796184939446661812070762137D+00 w(34) = 0.047906692500495862031347289176D+00 w(35) = 0.047741348681240621559038972227D+00 w(36) = 0.047466198232885503152644458740D+00 w(37) = 0.047081874010454522246006808290D+00 w(38) = 0.046589259972233498302255136790D+00 w(39) = 0.045989489146651696963893390818D+00 w(40) = 0.045283941026300230657128240574D+00 w(41) = 0.044474238395082974427323504000D+00 w(42) = 0.043562243595800486532284821661D+00 w(43) = 0.042550054246755802719217150803D+00 w(44) = 0.041439998417240293022686299233D+00 w(45) = 0.040234629273005533815446337743D+00 w(46) = 0.038936719204051197616673806364D+00 w(47) = 0.037549253448257709809772223198D+00 w(48) = 0.036075423225565273932166270524D+00 w(49) = 0.034518618398549058625221276859D+00 w(50) = 0.032882419676368574984049638008D+00 w(51) = 0.031170590380189142464431845777D+00 w(52) = 0.029387067789310668062644859210D+00 w(53) = 0.027535954088450343942499722327D+00 w(54) = 0.025621506938037758214084978694D+00 w(55) = 0.023648129691287236698780978994D+00 w(56) = 0.021620361284934062841654274667D+00 w(57) = 0.019542865836750062826837429313D+00 w(58) = 0.017420421997670248495365759969D+00 w(59) = 0.015257912146448310349265388145D+00 w(60) = 0.013060311639994846336168342922D+00 w(61) = 0.0108326787895979686215140551272D+00 w(62) = 0.0085801482668814598936358121592D+00 w(63) = 0.0063079425789717545501888719039D+00 w(64) = 0.0040215241720037363470786599528D+00 w(65) = 0.0017292582513002508983395851463D+00 else if ( n == 127 ) then x(1) = -0.9998221304153061462673512D+00 x(2) = -0.9990629343553118951383159D+00 x(3) = -0.9976975661898046210744170D+00 x(4) = -0.9957265513520272266354334D+00 x(5) = -0.9931510492545171473611308D+00 x(6) = -0.9899726145914841576077867D+00 x(7) = -0.9861931740169316667104383D+00 x(8) = -0.9818150208038141100334631D+00 x(9) = -0.9768408123430703268174439D+00 x(10) = -0.9712735681615291922889469D+00 x(11) = -0.9651166679452921210908251D+00 x(12) = -0.9583738494252387711491029D+00 x(13) = -0.9510492060778803105479076D+00 x(14) = -0.9431471846248148273454496D+00 x(15) = -0.9346725823247379685736349D+00 x(16) = -0.9256305440562338491274647D+00 x(17) = -0.9160265591914658093130886D+00 x(18) = -0.9058664582618213828024613D+00 x(19) = -0.8951564094170837089690438D+00 x(20) = -0.8839029146800265699452579D+00 x(21) = -0.8721128059985607114196375D+00 x(22) = -0.8597932410977408098120313D+00 x(23) = -0.8469516991340975984533393D+00 x(24) = -0.8335959761548995143795572D+00 x(25) = -0.8197341803650786741551191D+00 x(26) = -0.8053747272046802146665608D+00 x(27) = -0.7905263342398137999454500D+00 x(28) = -0.7751980158702023824449628D+00 x(29) = -0.7593990778565366715566637D+00 x(30) = -0.7431391116709545129205669D+00 x(31) = -0.7264279886740726855356929D+00 x(32) = -0.7092758541221045609994446D+00 x(33) = -0.6916931210077006701564414D+00 x(34) = -0.6736904637382504853466825D+00 x(35) = -0.6552788116554826302767651D+00 x(36) = -0.6364693424002972413476082D+00 x(37) = -0.6172734751268582838576392D+00 x(38) = -0.5977028635700652293844120D+00 x(39) = -0.5777693889706125800032517D+00 x(40) = -0.5574851528619322329218619D+00 x(41) = -0.5368624697233975674581664D+00 x(42) = -0.5159138595042493572772773D+00 x(43) = -0.4946520400227821173949402D+00 x(44) = -0.4730899192454052416450999D+00 x(45) = -0.4512405874502662273318986D+00 x(46) = -0.4291173092801933762625441D+00 x(47) = -0.4067335156897825634086729D+00 x(48) = -0.3841027957915169357790778D+00 x(49) = -0.3612388886058697060709248D+00 x(50) = -0.3381556747203985013760003D+00 x(51) = -0.3148671678628949814860148D+00 x(52) = -0.2913875063937056207945188D+00 x(53) = -0.2677309447223886208883435D+00 x(54) = -0.2439118446539178579707132D+00 x(55) = -0.2199446666696875424545234D+00 x(56) = -0.1958439611486108515042816D+00 x(57) = -0.1716243595336421650083449D+00 x(58) = -0.1473005654490856693893293D+00 x(59) = -0.1228873457740829717260337D+00 x(60) = -0.0983995216776989707510918D+00 x(61) = -0.0738519596210485452734404D+00 x(62) = -0.0492595623319266303153793D+00 x(63) = -0.0246372597574209446148971D+00 x(64) = 0.0000000000000000000000000D+00 x(65) = 0.0246372597574209446148971D+00 x(66) = 0.0492595623319266303153793D+00 x(67) = 0.0738519596210485452734404D+00 x(68) = 0.0983995216776989707510918D+00 x(69) = 0.1228873457740829717260337D+00 x(70) = 0.1473005654490856693893293D+00 x(71) = 0.1716243595336421650083449D+00 x(72) = 0.1958439611486108515042816D+00 x(73) = 0.2199446666696875424545234D+00 x(74) = 0.2439118446539178579707132D+00 x(75) = 0.2677309447223886208883435D+00 x(76) = 0.2913875063937056207945188D+00 x(77) = 0.3148671678628949814860148D+00 x(78) = 0.3381556747203985013760003D+00 x(79) = 0.3612388886058697060709248D+00 x(80) = 0.3841027957915169357790778D+00 x(81) = 0.4067335156897825634086729D+00 x(82) = 0.4291173092801933762625441D+00 x(83) = 0.4512405874502662273318986D+00 x(84) = 0.4730899192454052416450999D+00 x(85) = 0.4946520400227821173949402D+00 x(86) = 0.5159138595042493572772773D+00 x(87) = 0.5368624697233975674581664D+00 x(88) = 0.5574851528619322329218619D+00 x(89) = 0.5777693889706125800032517D+00 x(90) = 0.5977028635700652293844120D+00 x(91) = 0.6172734751268582838576392D+00 x(92) = 0.6364693424002972413476082D+00 x(93) = 0.6552788116554826302767651D+00 x(94) = 0.6736904637382504853466825D+00 x(95) = 0.6916931210077006701564414D+00 x(96) = 0.7092758541221045609994446D+00 x(97) = 0.7264279886740726855356929D+00 x(98) = 0.7431391116709545129205669D+00 x(99) = 0.7593990778565366715566637D+00 x(100) = 0.7751980158702023824449628D+00 x(101) = 0.7905263342398137999454500D+00 x(102) = 0.8053747272046802146665608D+00 x(103) = 0.8197341803650786741551191D+00 x(104) = 0.8335959761548995143795572D+00 x(105) = 0.8469516991340975984533393D+00 x(106) = 0.8597932410977408098120313D+00 x(107) = 0.8721128059985607114196375D+00 x(108) = 0.8839029146800265699452579D+00 x(109) = 0.8951564094170837089690438D+00 x(110) = 0.9058664582618213828024613D+00 x(111) = 0.9160265591914658093130886D+00 x(112) = 0.9256305440562338491274647D+00 x(113) = 0.9346725823247379685736349D+00 x(114) = 0.9431471846248148273454496D+00 x(115) = 0.9510492060778803105479076D+00 x(116) = 0.9583738494252387711491029D+00 x(117) = 0.965116667945292121090825D+00 x(118) = 0.971273568161529192288947D+00 x(119) = 0.976840812343070326817444D+00 x(120) = 0.981815020803814110033463D+00 x(121) = 0.986193174016931666710438D+00 x(122) = 0.989972614591484157607787D+00 x(123) = 0.993151049254517147361131D+00 x(124) = 0.995726551352027226635433D+00 x(125) = 0.997697566189804621074417D+00 x(126) = 0.999062934355311895138316D+00 x(127) = 0.999822130415306146267351D+00 w(1) = 0.00045645726109586662791936519265D+00 w(2) = 0.00106227668695384869596523598532D+00 w(3) = 0.0016683488125171936761028862915D+00 w(4) = 0.0022734860707492547802810840776D+00 w(5) = 0.0028772587656289004082883197514D+00 w(6) = 0.0034792893810051465908910894100D+00 w(7) = 0.0040792095178254605327114733457D+00 w(8) = 0.0046766539777779034772638165663D+00 w(9) = 0.0052712596565634400891303815906D+00 w(10) = 0.0058626653903523901033648343751D+00 w(11) = 0.0064505120486899171845442463869D+00 w(12) = 0.0070344427036681608755685893033D+00 w(13) = 0.0076141028256526859356393930849D+00 w(14) = 0.0081891404887415730817235884719D+00 w(15) = 0.0087592065795403145773316804234D+00 w(16) = 0.0093239550065309714787536985834D+00 w(17) = 0.0098830429087554914716648010900D+00 w(18) = 0.0104361308631410052256731719977D+00 w(19) = 0.0109828830900689757887996573761D+00 w(20) = 0.011522967656921087154811609735D+00 w(21) = 0.012056056679400848183529562145D+00 w(22) = 0.012581826520465013101514365424D+00 w(23) = 0.013099957986718627426172681913D+00 w(24) = 0.013610136522139249906034237534D+00 w(25) = 0.014112052399003395774044161634D+00 w(26) = 0.014605400905893418351737288079D+00 w(27) = 0.015089882532666922992635733981D+00 w(28) = 0.015565203152273955098532590263D+00 w(29) = 0.016031074199309941802254151843D+00 w(30) = 0.016487212845194879399346060358D+00 w(31) = 0.016933342169871654545878815295D+00 w(32) = 0.017369191329918731922164721250D+00 w(33) = 0.017794495722974774231027912900D+00 w(34) = 0.018208997148375106468721469154D+00 w(35) = 0.018612443963902310429440419899D+00 w(36) = 0.019004591238555646611148901045D+00 w(37) = 0.019385200901246454628112623489D+00 w(38) = 0.019754041885329183081815217323D+00 w(39) = 0.020110890268880247225644623956D+00 w(40) = 0.020455529410639508279497065713D+00 w(41) = 0.020787750081531811812652137291D+00 w(42) = 0.021107350591688713643523847922D+00 w(43) = 0.021414136912893259295449693234D+00 w(44) = 0.021707922796373466052301324695D+00 w(45) = 0.021988529885872983756478409759D+00 w(46) = 0.022255787825930280235631416460D+00 w(47) = 0.022509534365300608085694429903D+00 w(48) = 0.022749615455457959852242553241D+00 w(49) = 0.022975885344117206754377437839D+00 w(50) = 0.023188206663719640249922582982D+00 w(51) = 0.023386450514828194170722043497D+00 w(52) = 0.023570496544381716050033676844D+00 w(53) = 0.023740233018760777777714726703D+00 w(54) = 0.023895556891620665983864481754D+00 w(55) = 0.024036373866450369675132086026D+00 w(56) = 0.024162598453819584716522917711D+00 w(57) = 0.024274154023278979833195063937D+00 w(58) = 0.024370972849882214952813561907D+00 w(59) = 0.024452996155301467956140198472D+00 w(60) = 0.024520174143511508275183033290D+00 w(61) = 0.024572466031020653286354137335D+00 w(62) = 0.024609840071630254092545634003D+00 w(63) = 0.024632273575707679066033370218D+00 w(64) = 0.02463975292396109441957941748D+00 w(65) = 0.024632273575707679066033370218D+00 w(66) = 0.024609840071630254092545634003D+00 w(67) = 0.024572466031020653286354137335D+00 w(68) = 0.024520174143511508275183033290D+00 w(69) = 0.024452996155301467956140198472D+00 w(70) = 0.024370972849882214952813561907D+00 w(71) = 0.024274154023278979833195063937D+00 w(72) = 0.024162598453819584716522917711D+00 w(73) = 0.024036373866450369675132086026D+00 w(74) = 0.023895556891620665983864481754D+00 w(75) = 0.023740233018760777777714726703D+00 w(76) = 0.023570496544381716050033676844D+00 w(77) = 0.023386450514828194170722043497D+00 w(78) = 0.023188206663719640249922582982D+00 w(79) = 0.022975885344117206754377437839D+00 w(80) = 0.022749615455457959852242553241D+00 w(81) = 0.022509534365300608085694429903D+00 w(82) = 0.022255787825930280235631416460D+00 w(83) = 0.021988529885872983756478409759D+00 w(84) = 0.021707922796373466052301324695D+00 w(85) = 0.021414136912893259295449693234D+00 w(86) = 0.021107350591688713643523847922D+00 w(87) = 0.020787750081531811812652137291D+00 w(88) = 0.020455529410639508279497065713D+00 w(89) = 0.020110890268880247225644623956D+00 w(90) = 0.019754041885329183081815217323D+00 w(91) = 0.019385200901246454628112623489D+00 w(92) = 0.019004591238555646611148901045D+00 w(93) = 0.018612443963902310429440419899D+00 w(94) = 0.018208997148375106468721469154D+00 w(95) = 0.017794495722974774231027912900D+00 w(96) = 0.017369191329918731922164721250D+00 w(97) = 0.016933342169871654545878815295D+00 w(98) = 0.016487212845194879399346060358D+00 w(99) = 0.016031074199309941802254151843D+00 w(100) = 0.015565203152273955098532590263D+00 w(101) = 0.015089882532666922992635733981D+00 w(102) = 0.014605400905893418351737288079D+00 w(103) = 0.014112052399003395774044161634D+00 w(104) = 0.013610136522139249906034237534D+00 w(105) = 0.013099957986718627426172681913D+00 w(106) = 0.012581826520465013101514365424D+00 w(107) = 0.012056056679400848183529562145D+00 w(108) = 0.011522967656921087154811609735D+00 w(109) = 0.0109828830900689757887996573761D+00 w(110) = 0.0104361308631410052256731719977D+00 w(111) = 0.0098830429087554914716648010900D+00 w(112) = 0.0093239550065309714787536985834D+00 w(113) = 0.0087592065795403145773316804234D+00 w(114) = 0.0081891404887415730817235884719D+00 w(115) = 0.0076141028256526859356393930849D+00 w(116) = 0.0070344427036681608755685893033D+00 w(117) = 0.0064505120486899171845442463869D+00 w(118) = 0.0058626653903523901033648343751D+00 w(119) = 0.0052712596565634400891303815906D+00 w(120) = 0.0046766539777779034772638165663D+00 w(121) = 0.0040792095178254605327114733457D+00 w(122) = 0.0034792893810051465908910894100D+00 w(123) = 0.0028772587656289004082883197514D+00 w(124) = 0.0022734860707492547802810840776D+00 w(125) = 0.0016683488125171936761028862915D+00 w(126) = 0.00106227668695384869596523598532D+00 w(127) = 0.00045645726109586662791936519265D+00 else if ( n == 128 ) then x(1) = -0.9998248879471319144736081D+00 x(2) = -0.9990774599773758950119878D+00 x(3) = -0.9977332486255140198821574D+00 x(4) = -0.9957927585349811868641612D+00 x(5) = -0.9932571129002129353034372D+00 x(6) = -0.9901278184917343833379303D+00 x(7) = -0.9864067427245862088712355D+00 x(8) = -0.9820961084357185360247656D+00 x(9) = -0.9771984914639073871653744D+00 x(10) = -0.9717168187471365809043384D+00 x(11) = -0.9656543664319652686458290D+00 x(12) = -0.9590147578536999280989185D+00 x(13) = -0.9518019613412643862177963D+00 x(14) = -0.9440202878302201821211114D+00 x(15) = -0.9356743882779163757831268D+00 x(16) = -0.9267692508789478433346245D+00 x(17) = -0.9173101980809605370364836D+00 x(18) = -0.9073028834017568139214859D+00 x(19) = -0.8967532880491581843864474D+00 x(20) = -0.8856677173453972174082924D+00 x(21) = -0.8740527969580317986954180D+00 x(22) = -0.8619154689395484605906323D+00 x(23) = -0.8492629875779689691636001D+00 x(24) = -0.8361029150609068471168753D+00 x(25) = -0.8224431169556438424645942D+00 x(26) = -0.8082917575079136601196422D+00 x(27) = -0.7936572947621932902433329D+00 x(28) = -0.7785484755064119668504941D+00 x(29) = -0.7629743300440947227797691D+00 x(30) = -0.7469441667970619811698824D+00 x(31) = -0.7304675667419088064717369D+00 x(32) = -0.7135543776835874133438599D+00 x(33) = -0.6962147083695143323850866D+00 x(34) = -0.6784589224477192593677557D+00 x(35) = -0.6602976322726460521059468D+00 x(36) = -0.6417416925623075571535249D+00 x(37) = -0.6228021939105849107615396D+00 x(38) = -0.6034904561585486242035732D+00 x(39) = -0.5838180216287630895500389D+00 x(40) = -0.5637966482266180839144308D+00 x(41) = -0.5434383024128103634441936D+00 x(42) = -0.5227551520511754784539479D+00 x(43) = -0.5017595591361444642896063D+00 x(44) = -0.4804640724041720258582757D+00 x(45) = -0.4588814198335521954490891D+00 x(46) = -0.4370245010371041629370429D+00 x(47) = -0.4149063795522750154922739D+00 x(48) = -0.3925402750332674427356482D+00 x(49) = -0.3699395553498590266165917D+00 x(50) = -0.3471177285976355084261628D+00 x(51) = -0.3240884350244133751832523D+00 x(52) = -0.3008654388776772026671541D+00 x(53) = -0.2774626201779044028062316D+00 x(54) = -0.2538939664226943208556180D+00 x(55) = -0.2301735642266599864109866D+00 x(56) = -0.2063155909020792171540580D+00 x(57) = -0.1823343059853371824103826D+00 x(58) = -0.1582440427142249339974755D+00 x(59) = -0.1340591994611877851175753D+00 x(60) = -0.1097942311276437466729747D+00 x(61) = -0.0854636405045154986364980D+00 x(62) = -0.0610819696041395681037870D+00 x(63) = -0.0366637909687334933302153D+00 x(64) = -0.0122236989606157641980521D+00 x(65) = 0.0122236989606157641980521D+00 x(66) = 0.0366637909687334933302153D+00 x(67) = 0.0610819696041395681037870D+00 x(68) = 0.0854636405045154986364980D+00 x(69) = 0.1097942311276437466729747D+00 x(70) = 0.1340591994611877851175753D+00 x(71) = 0.1582440427142249339974755D+00 x(72) = 0.1823343059853371824103826D+00 x(73) = 0.2063155909020792171540580D+00 x(74) = 0.2301735642266599864109866D+00 x(75) = 0.2538939664226943208556180D+00 x(76) = 0.2774626201779044028062316D+00 x(77) = 0.3008654388776772026671541D+00 x(78) = 0.3240884350244133751832523D+00 x(79) = 0.3471177285976355084261628D+00 x(80) = 0.3699395553498590266165917D+00 x(81) = 0.3925402750332674427356482D+00 x(82) = 0.4149063795522750154922739D+00 x(83) = 0.4370245010371041629370429D+00 x(84) = 0.4588814198335521954490891D+00 x(85) = 0.4804640724041720258582757D+00 x(86) = 0.5017595591361444642896063D+00 x(87) = 0.5227551520511754784539479D+00 x(88) = 0.5434383024128103634441936D+00 x(89) = 0.5637966482266180839144308D+00 x(90) = 0.5838180216287630895500389D+00 x(91) = 0.6034904561585486242035732D+00 x(92) = 0.6228021939105849107615396D+00 x(93) = 0.6417416925623075571535249D+00 x(94) = 0.6602976322726460521059468D+00 x(95) = 0.6784589224477192593677557D+00 x(96) = 0.6962147083695143323850866D+00 x(97) = 0.7135543776835874133438599D+00 x(98) = 0.7304675667419088064717369D+00 x(99) = 0.7469441667970619811698824D+00 x(100) = 0.7629743300440947227797691D+00 x(101) = 0.7785484755064119668504941D+00 x(102) = 0.7936572947621932902433329D+00 x(103) = 0.8082917575079136601196422D+00 x(104) = 0.8224431169556438424645942D+00 x(105) = 0.8361029150609068471168753D+00 x(106) = 0.8492629875779689691636001D+00 x(107) = 0.8619154689395484605906323D+00 x(108) = 0.8740527969580317986954180D+00 x(109) = 0.8856677173453972174082924D+00 x(110) = 0.8967532880491581843864474D+00 x(111) = 0.9073028834017568139214859D+00 x(112) = 0.9173101980809605370364836D+00 x(113) = 0.926769250878947843334625D+00 x(114) = 0.935674388277916375783127D+00 x(115) = 0.944020287830220182121111D+00 x(116) = 0.951801961341264386217796D+00 x(117) = 0.959014757853699928098919D+00 x(118) = 0.965654366431965268645829D+00 x(119) = 0.971716818747136580904338D+00 x(120) = 0.977198491463907387165374D+00 x(121) = 0.982096108435718536024766D+00 x(122) = 0.986406742724586208871236D+00 x(123) = 0.990127818491734383337930D+00 x(124) = 0.993257112900212935303437D+00 x(125) = 0.995792758534981186864161D+00 x(126) = 0.997733248625514019882157D+00 x(127) = 0.999077459977375895011988D+00 x(128) = 0.999824887947131914473608D+00 w(1) = 0.00044938096029209037639429223999D+00 w(2) = 0.0010458126793403487793128516001D+00 w(3) = 0.0016425030186690295387908755948D+00 w(4) = 0.0022382884309626187436220542727D+00 w(5) = 0.0028327514714579910952857346468D+00 w(6) = 0.0034255260409102157743377846601D+00 w(7) = 0.0040162549837386423131943434863D+00 w(8) = 0.0046045842567029551182905419803D+00 w(9) = 0.0051901618326763302050707671348D+00 w(10) = 0.0057726375428656985893346176261D+00 w(11) = 0.006351663161707188787214327826D+00 w(12) = 0.006926892566898813563426670360D+00 w(13) = 0.007497981925634728687671962688D+00 w(14) = 0.008064589890486057972928598698D+00 w(15) = 0.008626377798616749704978843782D+00 w(16) = 0.009183009871660874334478743688D+00 w(17) = 0.009734153415006805863548266094D+00 w(18) = 0.010279479015832157133215340326D+00 w(19) = 0.010818660739503076247659646277D+00 w(20) = 0.011351376324080416693281668453D+00 w(21) = 0.011877307372740279575891106926D+00 w(22) = 0.012396139543950922968821728197D+00 w(23) = 0.012907562739267347220442834004D+00 w(24) = 0.013411271288616332314488951616D+00 w(25) = 0.013906964132951985244288007396D+00 w(26) = 0.014394345004166846176823892009D+00 w(27) = 0.014873122602147314252385498520D+00 w(28) = 0.015343010768865144085990853741D+00 w(29) = 0.015803728659399346858965631687D+00 w(30) = 0.016255000909785187051657456477D+00 w(31) = 0.016696557801589204589091507954D+00 w(32) = 0.017128135423111376830680987619D+00 w(33) = 0.017549475827117704648706925634D+00 w(34) = 0.017960327185008685940196927525D+00 w(35) = 0.018360443937331343221289290991D+00 w(36) = 0.018749586940544708650919548474D+00 w(37) = 0.019127523609950945486518531668D+00 w(38) = 0.019494028058706602823021918681D+00 w(39) = 0.019848881232830862219944413265D+00 w(40) = 0.020191871042130041180673158406D+00 w(41) = 0.020522792486960069432284967788D+00 w(42) = 0.020841447780751149113583948423D+00 w(43) = 0.021147646468221348537019535180D+00 w(44) = 0.021441205539208460137111853878D+00 w(45) = 0.021721949538052075375260957768D+00 w(46) = 0.021989710668460491434122106599D+00 w(47) = 0.022244328893799765104629133607D+00 w(48) = 0.022485652032744966871824603941D+00 w(49) = 0.022713535850236461309712635923D+00 w(50) = 0.022927844143686846920410987209D+00 w(51) = 0.023128448824387027879297902403D+00 w(52) = 0.023315229994062760122415671273D+00 w(53) = 0.023488076016535913153025273282D+00 w(54) = 0.023646883584447615143651392303D+00 w(55) = 0.023791557781003400638780709885D+00 w(56) = 0.023922012136703455672450408817D+00 w(57) = 0.024038168681024052637587316820D+00 w(58) = 0.024139957989019284997716653890D+00 w(59) = 0.024227319222815248120093308442D+00 w(60) = 0.024300200167971865323442606364D+00 w(61) = 0.024358557264690625853268520246D+00 w(62) = 0.024402355633849582093297989694D+00 w(63) = 0.02443156909785004505484856143D+00 w(64) = 0.02444618019626251821132585261D+00 w(65) = 0.02444618019626251821132585261D+00 w(66) = 0.02443156909785004505484856143D+00 w(67) = 0.024402355633849582093297989694D+00 w(68) = 0.024358557264690625853268520246D+00 w(69) = 0.024300200167971865323442606364D+00 w(70) = 0.024227319222815248120093308442D+00 w(71) = 0.024139957989019284997716653890D+00 w(72) = 0.024038168681024052637587316820D+00 w(73) = 0.023922012136703455672450408817D+00 w(74) = 0.023791557781003400638780709885D+00 w(75) = 0.023646883584447615143651392303D+00 w(76) = 0.023488076016535913153025273282D+00 w(77) = 0.023315229994062760122415671273D+00 w(78) = 0.023128448824387027879297902403D+00 w(79) = 0.022927844143686846920410987209D+00 w(80) = 0.022713535850236461309712635923D+00 w(81) = 0.022485652032744966871824603941D+00 w(82) = 0.022244328893799765104629133607D+00 w(83) = 0.021989710668460491434122106599D+00 w(84) = 0.021721949538052075375260957768D+00 w(85) = 0.021441205539208460137111853878D+00 w(86) = 0.021147646468221348537019535180D+00 w(87) = 0.020841447780751149113583948423D+00 w(88) = 0.020522792486960069432284967788D+00 w(89) = 0.020191871042130041180673158406D+00 w(90) = 0.019848881232830862219944413265D+00 w(91) = 0.019494028058706602823021918681D+00 w(92) = 0.019127523609950945486518531668D+00 w(93) = 0.018749586940544708650919548474D+00 w(94) = 0.018360443937331343221289290991D+00 w(95) = 0.017960327185008685940196927525D+00 w(96) = 0.017549475827117704648706925634D+00 w(97) = 0.017128135423111376830680987619D+00 w(98) = 0.016696557801589204589091507954D+00 w(99) = 0.016255000909785187051657456477D+00 w(100) = 0.015803728659399346858965631687D+00 w(101) = 0.015343010768865144085990853741D+00 w(102) = 0.014873122602147314252385498520D+00 w(103) = 0.014394345004166846176823892009D+00 w(104) = 0.013906964132951985244288007396D+00 w(105) = 0.013411271288616332314488951616D+00 w(106) = 0.012907562739267347220442834004D+00 w(107) = 0.012396139543950922968821728197D+00 w(108) = 0.011877307372740279575891106926D+00 w(109) = 0.011351376324080416693281668453D+00 w(110) = 0.010818660739503076247659646277D+00 w(111) = 0.010279479015832157133215340326D+00 w(112) = 0.009734153415006805863548266094D+00 w(113) = 0.009183009871660874334478743688D+00 w(114) = 0.008626377798616749704978843782D+00 w(115) = 0.008064589890486057972928598698D+00 w(116) = 0.007497981925634728687671962688D+00 w(117) = 0.006926892566898813563426670360D+00 w(118) = 0.006351663161707188787214327826D+00 w(119) = 0.0057726375428656985893346176261D+00 w(120) = 0.0051901618326763302050707671348D+00 w(121) = 0.0046045842567029551182905419803D+00 w(122) = 0.0040162549837386423131943434863D+00 w(123) = 0.0034255260409102157743377846601D+00 w(124) = 0.0028327514714579910952857346468D+00 w(125) = 0.0022382884309626187436220542727D+00 w(126) = 0.0016425030186690295387908755948D+00 w(127) = 0.0010458126793403487793128516001D+00 w(128) = 0.00044938096029209037639429223999D+00 else if ( n == 129 ) then x(1) = -0.9998275818477487191077441D+00 x(2) = -0.9990916504696409986514389D+00 x(3) = -0.9977681080525852721429460D+00 x(4) = -0.9958574393142831982149111D+00 x(5) = -0.9933607326210712814854011D+00 x(6) = -0.9902794486488178389207689D+00 x(7) = -0.9866153978313475022005761D+00 x(8) = -0.9823707352517413115507418D+00 x(9) = -0.9775479582993672474447814D+00 x(10) = -0.9721499048427034297274163D+00 x(11) = -0.9661797514202097197778763D+00 x(12) = -0.9596410113101918904168119D+00 x(13) = -0.9525375324342090471027732D+00 x(14) = -0.9448734950776734726784764D+00 x(15) = -0.9366534094216514605284616D+00 x(16) = -0.9278821128840036204317296D+00 x(17) = -0.9185647672698286252225115D+00 x(18) = -0.9087068557320696331245539D+00 x(19) = -0.8983141795436338850435985D+00 x(20) = -0.8873928546826803665034968D+00 x(21) = -0.8759493082329433892035217D+00 x(22) = -0.8639902746011257878940216D+00 x(23) = -0.8515227915535356930243826D+00 x(24) = -0.8385541960742664442975407D+00 x(25) = -0.8250921200473358809210133D+00 x(26) = -0.8111444857653120742087717D+00 x(27) = -0.7967195012670592680339606D+00 x(28) = -0.7818256555073413245387500D+00 x(29) = -0.7664717133611208816717785D+00 x(30) = -0.7506667104654910227632368D+00 x(31) = -0.7344199479022727047791516D+00 x(32) = -0.7177409867244055767721220D+00 x(33) = -0.7006396423293521790044710D+00 x(34) = -0.6831259786828258512462248D+00 x(35) = -0.6652103023962409818802202D+00 x(36) = -0.6469031566613704719753373D+00 x(37) = -0.6282153150457794374886895D+00 x(38) = -0.6091577751526861909563306D+00 x(39) = -0.5897417521489813916767844D+00 x(40) = -0.5699786721652138894754096D+00 x(41) = -0.5498801655714271702189358D+00 x(42) = -0.5294580601328034000099406D+00 x(43) = -0.5087243740491428186199463D+00 x(44) = -0.4876913088822746111853066D+00 x(45) = -0.4663712423755613514331869D+00 x(46) = -0.4447767211697226217818454D+00 x(47) = -0.4229204534192644388475065D+00 x(48) = -0.4008153013138596117693121D+00 x(49) = -0.3784742735090801012801265D+00 x(50) = -0.3559105174709357969672656D+00 x(51) = -0.3331373117387248575049982D+00 x(52) = -0.3101680581107488341147318D+00 x(53) = -0.2870162737574911929568755D+00 x(54) = -0.2636955832669005409666949D+00 x(55) = -0.2402197106264598167721148D+00 x(56) = -0.2166024711467599103221439D+00 x(57) = -0.1928577633313305998663880D+00 x(58) = -0.1689995606975133227390302D+00 x(59) = -0.1450419035531891084328306D+00 x(60) = -0.1209988907342009817690539D+00 x(61) = -0.0968846713073332753086909D+00 x(62) = -0.0727134362437305599118207D+00 x(63) = -0.0484994100676562986191764D+00 x(64) = -0.0242568424855058415749954D+00 x(65) = 0.0000000000000000000000000D+00 x(66) = 0.0242568424855058415749954D+00 x(67) = 0.0484994100676562986191764D+00 x(68) = 0.0727134362437305599118207D+00 x(69) = 0.0968846713073332753086909D+00 x(70) = 0.1209988907342009817690539D+00 x(71) = 0.1450419035531891084328306D+00 x(72) = 0.1689995606975133227390302D+00 x(73) = 0.1928577633313305998663880D+00 x(74) = 0.2166024711467599103221439D+00 x(75) = 0.2402197106264598167721148D+00 x(76) = 0.2636955832669005409666949D+00 x(77) = 0.2870162737574911929568755D+00 x(78) = 0.3101680581107488341147318D+00 x(79) = 0.3331373117387248575049982D+00 x(80) = 0.3559105174709357969672656D+00 x(81) = 0.3784742735090801012801265D+00 x(82) = 0.4008153013138596117693121D+00 x(83) = 0.4229204534192644388475065D+00 x(84) = 0.4447767211697226217818454D+00 x(85) = 0.4663712423755613514331869D+00 x(86) = 0.4876913088822746111853066D+00 x(87) = 0.5087243740491428186199463D+00 x(88) = 0.5294580601328034000099406D+00 x(89) = 0.5498801655714271702189358D+00 x(90) = 0.5699786721652138894754096D+00 x(91) = 0.5897417521489813916767844D+00 x(92) = 0.6091577751526861909563306D+00 x(93) = 0.6282153150457794374886895D+00 x(94) = 0.6469031566613704719753373D+00 x(95) = 0.6652103023962409818802202D+00 x(96) = 0.6831259786828258512462248D+00 x(97) = 0.7006396423293521790044710D+00 x(98) = 0.7177409867244055767721220D+00 x(99) = 0.7344199479022727047791516D+00 x(100) = 0.7506667104654910227632368D+00 x(101) = 0.7664717133611208816717785D+00 x(102) = 0.7818256555073413245387500D+00 x(103) = 0.7967195012670592680339606D+00 x(104) = 0.8111444857653120742087717D+00 x(105) = 0.8250921200473358809210133D+00 x(106) = 0.8385541960742664442975407D+00 x(107) = 0.8515227915535356930243826D+00 x(108) = 0.8639902746011257878940216D+00 x(109) = 0.875949308232943389203522D+00 x(110) = 0.887392854682680366503497D+00 x(111) = 0.898314179543633885043599D+00 x(112) = 0.908706855732069633124554D+00 x(113) = 0.918564767269828625222511D+00 x(114) = 0.927882112884003620431730D+00 x(115) = 0.936653409421651460528462D+00 x(116) = 0.944873495077673472678476D+00 x(117) = 0.952537532434209047102773D+00 x(118) = 0.959641011310191890416812D+00 x(119) = 0.966179751420209719777876D+00 x(120) = 0.972149904842703429727416D+00 x(121) = 0.977547958299367247444781D+00 x(122) = 0.982370735251741311550742D+00 x(123) = 0.986615397831347502200576D+00 x(124) = 0.990279448648817838920769D+00 x(125) = 0.993360732621071281485401D+00 x(126) = 0.995857439314283198214911D+00 x(127) = 0.997768108052585272142946D+00 x(128) = 0.999091650469640998651439D+00 x(129) = 0.999827581847748719107744D+00 w(1) = 0.00044246794182939296923668005717D+00 w(2) = 0.00102972844619622394463273519315D+00 w(3) = 0.0016172530556785534682413679271D+00 w(4) = 0.0022039015180966937075786419741D+00 w(5) = 0.0027892681877797554940944677057D+00 w(6) = 0.0033729979506246246117755709288D+00 w(7) = 0.0039547444682113562172392974765D+00 w(8) = 0.0045341644298525434513226874954D+00 w(9) = 0.0051109164669246267289761565766D+00 w(10) = 0.0056846609912469045788016012203D+00 w(11) = 0.0062550602724461408889348709586D+00 w(12) = 0.0068217785893519121070498527769D+00 w(13) = 0.0073844824072454014447165055698D+00 w(14) = 0.0079428405646668029041114107832D+00 w(15) = 0.0084965244635723279730542832506D+00 w(16) = 0.0090452082602137316404219313819D+00 w(17) = 0.0095885690555104190787301294510D+00 w(18) = 0.0101262870842733548093160774580D+00 w(19) = 0.0106580459029055185304204093001D+00 w(20) = 0.0111835325753305049735380697538D+00 w(21) = 0.011702437856964778185746436834D+00 w(22) = 0.012214456376582979416221105914D+00 w(23) = 0.012719286815944623465099036330D+00 w(24) = 0.013216632087061724231482387345D+00 w(25) = 0.013706199506993971244060563234D+00 w(26) = 0.014187700970062900419317230938D+00 w(27) = 0.014660853117380060971041027493D+00 w(28) = 0.015125377503587024690403432771D+00 w(29) = 0.015581000760707523415881287558D+00 w(30) = 0.016027454759014214436403950465D+00 w(31) = 0.016464476764814667467169189640D+00 w(32) = 0.016891809595063204177526208819D+00 w(33) = 0.017309201768707240731293596444D+00 w(34) = 0.017716407654678809269702031810D+00 w(35) = 0.018113187616443980503999783812D+00 w(36) = 0.018499308153024985727791918518D+00 w(37) = 0.018874542036411948181617592169D+00 w(38) = 0.019238668445283284085199492202D+00 w(39) = 0.019591473094956024580283987216D+00 w(40) = 0.019932748363489542089706675388D+00 w(41) = 0.020262293413868438317104423081D+00 w(42) = 0.020579914312192665948185517085D+00 w(43) = 0.020885424141805311409990024684D+00 w(44) = 0.021178643113290860912881038703D+00 w(45) = 0.021459398670279205389981598196D+00 w(46) = 0.021727525590993110687305178710D+00 w(47) = 0.021982866085479386179554968899D+00 w(48) = 0.022225269888466526554736910919D+00 w(49) = 0.022454594347794176432066564511D+00 w(50) = 0.022670704508362374313093970958D+00 w(51) = 0.022873473191551169638592083492D+00 w(52) = 0.023062781070063872924670495006D+00 w(53) = 0.023238516738149892544490435771D+00 w(54) = 0.023400576777165831146714346635D+00 w(55) = 0.023548865816436258377269094263D+00 w(56) = 0.023683296589378342897341543485D+00 w(57) = 0.023803789984857314051325299744D+00 w(58) = 0.023910275093742530302367230296D+00 w(59) = 0.024002689250636756075547029720D+00 w(60) = 0.024080978070754089272959634041D+00 w(61) = 0.024145095481924836783843156014D+00 w(62) = 0.024195003751708503129818111597D+00 w(63) = 0.024230673509598936275508460625D+00 w(64) = 0.024252083764308562906498864071D+00 w(65) = 0.02425922191612154143202867472D+00 w(66) = 0.024252083764308562906498864071D+00 w(67) = 0.024230673509598936275508460625D+00 w(68) = 0.024195003751708503129818111597D+00 w(69) = 0.024145095481924836783843156014D+00 w(70) = 0.024080978070754089272959634041D+00 w(71) = 0.024002689250636756075547029720D+00 w(72) = 0.023910275093742530302367230296D+00 w(73) = 0.023803789984857314051325299744D+00 w(74) = 0.023683296589378342897341543485D+00 w(75) = 0.023548865816436258377269094263D+00 w(76) = 0.023400576777165831146714346635D+00 w(77) = 0.023238516738149892544490435771D+00 w(78) = 0.023062781070063872924670495006D+00 w(79) = 0.022873473191551169638592083492D+00 w(80) = 0.022670704508362374313093970958D+00 w(81) = 0.022454594347794176432066564511D+00 w(82) = 0.022225269888466526554736910919D+00 w(83) = 0.021982866085479386179554968899D+00 w(84) = 0.021727525590993110687305178710D+00 w(85) = 0.021459398670279205389981598196D+00 w(86) = 0.021178643113290860912881038703D+00 w(87) = 0.020885424141805311409990024684D+00 w(88) = 0.020579914312192665948185517085D+00 w(89) = 0.020262293413868438317104423081D+00 w(90) = 0.019932748363489542089706675388D+00 w(91) = 0.019591473094956024580283987216D+00 w(92) = 0.019238668445283284085199492202D+00 w(93) = 0.018874542036411948181617592169D+00 w(94) = 0.018499308153024985727791918518D+00 w(95) = 0.018113187616443980503999783812D+00 w(96) = 0.017716407654678809269702031810D+00 w(97) = 0.017309201768707240731293596444D+00 w(98) = 0.016891809595063204177526208819D+00 w(99) = 0.016464476764814667467169189640D+00 w(100) = 0.016027454759014214436403950465D+00 w(101) = 0.015581000760707523415881287558D+00 w(102) = 0.015125377503587024690403432771D+00 w(103) = 0.014660853117380060971041027493D+00 w(104) = 0.014187700970062900419317230938D+00 w(105) = 0.013706199506993971244060563234D+00 w(106) = 0.013216632087061724231482387345D+00 w(107) = 0.012719286815944623465099036330D+00 w(108) = 0.012214456376582979416221105914D+00 w(109) = 0.011702437856964778185746436834D+00 w(110) = 0.0111835325753305049735380697538D+00 w(111) = 0.0106580459029055185304204093001D+00 w(112) = 0.0101262870842733548093160774580D+00 w(113) = 0.0095885690555104190787301294510D+00 w(114) = 0.0090452082602137316404219313819D+00 w(115) = 0.0084965244635723279730542832506D+00 w(116) = 0.0079428405646668029041114107832D+00 w(117) = 0.0073844824072454014447165055698D+00 w(118) = 0.0068217785893519121070498527769D+00 w(119) = 0.0062550602724461408889348709586D+00 w(120) = 0.0056846609912469045788016012203D+00 w(121) = 0.0051109164669246267289761565766D+00 w(122) = 0.0045341644298525434513226874954D+00 w(123) = 0.0039547444682113562172392974765D+00 w(124) = 0.0033729979506246246117755709288D+00 w(125) = 0.0027892681877797554940944677057D+00 w(126) = 0.0022039015180966937075786419741D+00 w(127) = 0.0016172530556785534682413679271D+00 w(128) = 0.00102972844619622394463273519315D+00 w(129) = 0.00044246794182939296923668005717D+00 else if ( n == 255 ) then x(1) = -0.999955705317563751730191D+00 x(2) = -0.999766621312000569367063D+00 x(3) = -0.999426474680169959344386D+00 x(4) = -0.998935241284654635142155D+00 x(5) = -0.998292986136967889228248D+00 x(6) = -0.997499804126615814044844D+00 x(7) = -0.996555814435198617028738D+00 x(8) = -0.995461159480026294089975D+00 x(9) = -0.994216004616630164799381D+00 x(10) = -0.992820538021989138984811D+00 x(11) = -0.991274970630385567164523D+00 x(12) = -0.989579536085920123498574D+00 x(13) = -0.987734490699732356281248D+00 x(14) = -0.985740113407419277752900D+00 x(15) = -0.983596705724776358640192D+00 x(16) = -0.981304591701017185126565D+00 x(17) = -0.978864117869068155239121D+00 x(18) = -0.976275653192735980815246D+00 x(19) = -0.973539589010643617645393D+00 x(20) = -0.970656338976880365477697D+00 x(21) = -0.967626338998338798105523D+00 x(22) = -0.964450047168726298761719D+00 x(23) = -0.961127943699247839572910D+00 x(24) = -0.957660530845962076295490D+00 x(25) = -0.954048332833816317950921D+00 x(26) = -0.950291895777368285733522D+00 x(27) = -0.946391787598204251752103D+00 x(28) = -0.942348597939064408301480D+00 x(29) = -0.938162938074687317626793D+00 x(30) = -0.933835440819386124349338D+00 x(31) = -0.929366760431369935739045D+00 x(32) = -0.924757572513824425220425D+00 x(33) = -0.920008573912766315142721D+00 x(34) = -0.915120482611686961035103D+00 x(35) = -0.910094037623000801254172D+00 x(36) = -0.904929998876314959753358D+00 x(37) = -0.899629147103536800144342D+00 x(38) = -0.894192283720836729335637D+00 x(39) = -0.888620230707484040924981D+00 x(40) = -0.882913830481574073645470D+00 x(41) = -0.877073945772665439532627D+00 x(42) = -0.871101459491346550796200D+00 x(43) = -0.864997274595751144137121D+00 x(44) = -0.858762313955042966785823D+00 x(45) = -0.852397520209890250084237D+00 x(46) = -0.845903855629951054143931D+00 x(47) = -0.839282301968391021084600D+00 x(48) = -0.832533860313455524647230D+00 x(49) = -0.825659550937118650611534D+00 x(50) = -0.818660413140831885432406D+00 x(51) = -0.811537505098395829833580D+00 x(52) = -0.804291903695978689734633D+00 x(53) = -0.796924704369305728807154D+00 x(54) = -0.789437020938044295117764D+00 x(55) = -0.781829985437409458675147D+00 x(56) = -0.774104747947015717207115D+00 x(57) = -0.766262476417000644100858D+00 x(58) = -0.758304356491446765092016D+00 x(59) = -0.750231591329128358931528D+00 x(60) = -0.742045401421610281838045D+00 x(61) = -0.733747024408726316001889D+00 x(62) = -0.725337714891464938687812D+00 x(63) = -0.716818744242290800531501D+00 x(64) = -0.708191400412930589382399D+00 x(65) = -0.699456987739652339456557D+00 x(66) = -0.690616826746067624571761D+00 x(67) = -0.681672253943486448787259D+00 x(68) = -0.672624621628855017806731D+00 x(69) = -0.663475297680306939970658D+00 x(70) = -0.654225665350358766508700D+00 x(71) = -0.644877123056781136890077D+00 x(72) = -0.635431084171177146547142D+00 x(73) = -0.625888976805299900901619D+00 x(74) = -0.616252243595141561442344D+00 x(75) = -0.606522341482826526536576D+00 x(76) = -0.596700741496341721653202D+00 x(77) = -0.586788928527137300685706D+00 x(78) = -0.576788401105631382036211D+00 x(79) = -0.566700671174652760010815D+00 x(80) = -0.556527263860855843833077D+00 x(81) = -0.546269717244142383159817D+00 x(82) = -0.535929582125124840335150D+00 x(83) = -0.525508421790666565699453D+00 x(84) = -0.515007811777534223035005D+00 x(85) = -0.504429339634198197635551D+00 x(86) = -0.493774604680816999489812D+00 x(87) = -0.483045217767441948626854D+00 x(88) = -0.472242801030478698742627D+00 x(89) = -0.461368987647442418771401D+00 x(90) = -0.450425421590043710043279D+00 x(91) = -0.439413757375642589040685D+00 x(92) = -0.428335659817108112494341D+00 x(93) = -0.417192803771121462605751D+00 x(94) = -0.405986873884960545511889D+00 x(95) = -0.394719564341804385683361D+00 x(96) = -0.383392578604595822734854D+00 x(97) = -0.372007629158501235092510D+00 x(98) = -0.360566437252006227074021D+00 x(99) = -0.349070732636686422161576D+00 x(100) = -0.337522253305692705554261D+00 x(101) = -0.325922745230990453444769D+00 x(102) = -0.314273962099392474845918D+00 x(103) = -0.302577665047425574167140D+00 x(104) = -0.290835622395070819082047D+00 x(105) = -0.279049609378417768508970D+00 x(106) = -0.267221407881273079721012D+00 x(107) = -0.255352806165764071686080D+00 x(108) = -0.243445598601977973686482D+00 x(109) = -0.231501585396677734059116D+00 x(110) = -0.219522572321135403508985D+00 x(111) = -0.207510370438124240859625D+00 x(112) = -0.195466795828110816293869D+00 x(113) = -0.183393669314688508087976D+00 x(114) = -0.171292816189293903533225D+00 x(115) = -0.159166065935247723154292D+00 x(116) = -0.147015251951161989456661D+00 x(117) = -0.134842211273755257250625D+00 x(118) = -0.122648784300117812092492D+00 x(119) = -0.110436814509468826540991D+00 x(120) = -0.098208148184447540736015D+00 x(121) = -0.085964634131980604256000D+00 x(122) = -0.073708123403767780288977D+00 x(123) = -0.061440469016428270850728D+00 x(124) = -0.049163525671349973093019D+00 x(125) = -0.036879149474284021657652D+00 x(126) = -0.024589197654727010541405D+00 x(127) = -0.012295528285133320036860D+00 x(128) = 0.000000000000000000000000D+00 x(129) = 0.012295528285133320036860D+00 x(130) = 0.024589197654727010541405D+00 x(131) = 0.036879149474284021657652D+00 x(132) = 0.049163525671349973093019D+00 x(133) = 0.061440469016428270850728D+00 x(134) = 0.073708123403767780288977D+00 x(135) = 0.085964634131980604256000D+00 x(136) = 0.098208148184447540736015D+00 x(137) = 0.110436814509468826540991D+00 x(138) = 0.122648784300117812092492D+00 x(139) = 0.134842211273755257250625D+00 x(140) = 0.147015251951161989456661D+00 x(141) = 0.159166065935247723154292D+00 x(142) = 0.171292816189293903533225D+00 x(143) = 0.183393669314688508087976D+00 x(144) = 0.195466795828110816293869D+00 x(145) = 0.207510370438124240859625D+00 x(146) = 0.219522572321135403508985D+00 x(147) = 0.231501585396677734059116D+00 x(148) = 0.243445598601977973686482D+00 x(149) = 0.255352806165764071686080D+00 x(150) = 0.267221407881273079721012D+00 x(151) = 0.279049609378417768508970D+00 x(152) = 0.290835622395070819082047D+00 x(153) = 0.302577665047425574167140D+00 x(154) = 0.314273962099392474845918D+00 x(155) = 0.325922745230990453444769D+00 x(156) = 0.337522253305692705554261D+00 x(157) = 0.349070732636686422161576D+00 x(158) = 0.360566437252006227074021D+00 x(159) = 0.372007629158501235092510D+00 x(160) = 0.383392578604595822734854D+00 x(161) = 0.394719564341804385683361D+00 x(162) = 0.405986873884960545511889D+00 x(163) = 0.417192803771121462605751D+00 x(164) = 0.428335659817108112494341D+00 x(165) = 0.439413757375642589040685D+00 x(166) = 0.450425421590043710043279D+00 x(167) = 0.461368987647442418771401D+00 x(168) = 0.472242801030478698742627D+00 x(169) = 0.483045217767441948626854D+00 x(170) = 0.493774604680816999489812D+00 x(171) = 0.504429339634198197635551D+00 x(172) = 0.515007811777534223035005D+00 x(173) = 0.525508421790666565699453D+00 x(174) = 0.535929582125124840335150D+00 x(175) = 0.546269717244142383159817D+00 x(176) = 0.556527263860855843833077D+00 x(177) = 0.566700671174652760010815D+00 x(178) = 0.576788401105631382036211D+00 x(179) = 0.586788928527137300685706D+00 x(180) = 0.596700741496341721653202D+00 x(181) = 0.606522341482826526536576D+00 x(182) = 0.616252243595141561442344D+00 x(183) = 0.625888976805299900901619D+00 x(184) = 0.635431084171177146547142D+00 x(185) = 0.644877123056781136890077D+00 x(186) = 0.654225665350358766508700D+00 x(187) = 0.663475297680306939970658D+00 x(188) = 0.672624621628855017806731D+00 x(189) = 0.681672253943486448787259D+00 x(190) = 0.690616826746067624571761D+00 x(191) = 0.699456987739652339456557D+00 x(192) = 0.708191400412930589382399D+00 x(193) = 0.716818744242290800531501D+00 x(194) = 0.725337714891464938687812D+00 x(195) = 0.733747024408726316001889D+00 x(196) = 0.742045401421610281838045D+00 x(197) = 0.750231591329128358931528D+00 x(198) = 0.758304356491446765092016D+00 x(199) = 0.766262476417000644100858D+00 x(200) = 0.774104747947015717207115D+00 x(201) = 0.781829985437409458675147D+00 x(202) = 0.789437020938044295117764D+00 x(203) = 0.796924704369305728807154D+00 x(204) = 0.804291903695978689734633D+00 x(205) = 0.811537505098395829833580D+00 x(206) = 0.818660413140831885432406D+00 x(207) = 0.825659550937118650611534D+00 x(208) = 0.832533860313455524647230D+00 x(209) = 0.839282301968391021084600D+00 x(210) = 0.845903855629951054143931D+00 x(211) = 0.852397520209890250084237D+00 x(212) = 0.858762313955042966785823D+00 x(213) = 0.864997274595751144137121D+00 x(214) = 0.871101459491346550796200D+00 x(215) = 0.877073945772665439532627D+00 x(216) = 0.882913830481574073645470D+00 x(217) = 0.888620230707484040924981D+00 x(218) = 0.894192283720836729335637D+00 x(219) = 0.899629147103536800144342D+00 x(220) = 0.904929998876314959753358D+00 x(221) = 0.910094037623000801254172D+00 x(222) = 0.915120482611686961035103D+00 x(223) = 0.920008573912766315142721D+00 x(224) = 0.924757572513824425220425D+00 x(225) = 0.929366760431369935739045D+00 x(226) = 0.933835440819386124349338D+00 x(227) = 0.938162938074687317626793D+00 x(228) = 0.942348597939064408301480D+00 x(229) = 0.946391787598204251752103D+00 x(230) = 0.950291895777368285733522D+00 x(231) = 0.954048332833816317950921D+00 x(232) = 0.957660530845962076295490D+00 x(233) = 0.961127943699247839572910D+00 x(234) = 0.964450047168726298761719D+00 x(235) = 0.967626338998338798105523D+00 x(236) = 0.970656338976880365477697D+00 x(237) = 0.973539589010643617645393D+00 x(238) = 0.976275653192735980815246D+00 x(239) = 0.978864117869068155239121D+00 x(240) = 0.981304591701017185126565D+00 x(241) = 0.983596705724776358640192D+00 x(242) = 0.985740113407419277752900D+00 x(243) = 0.987734490699732356281248D+00 x(244) = 0.989579536085920123498574D+00 x(245) = 0.991274970630385567164523D+00 x(246) = 0.992820538021989138984811D+00 x(247) = 0.994216004616630164799381D+00 x(248) = 0.995461159480026294089975D+00 x(249) = 0.996555814435198617028738D+00 x(250) = 0.997499804126615814044844D+00 x(251) = 0.998292986136967889228248D+00 x(252) = 0.998935241284654635142155D+00 x(253) = 0.999426474680169959344386D+00 x(254) = 0.999766621312000569367063D+00 x(255) = 0.999955705317563751730191D+00 w(1) = 0.00011367361999142272115645954414D+00 w(2) = 0.00026459387119083065532790838855D+00 w(3) = 0.00041569762526823913616284210066D+00 w(4) = 0.00056675794564824918946626058353D+00 w(5) = 0.00071773647800611087798371518325D+00 w(6) = 0.00086860766611945667949717690640D+00 w(7) = 0.00101934797642732530281229369360D+00 w(8) = 0.0011699343729388079886897709773D+00 w(9) = 0.0013203439900221692090523602144D+00 w(10) = 0.0014705540427783843160097204304D+00 w(11) = 0.0016205417990415653896921100325D+00 w(12) = 0.0017702845706603213070421243905D+00 w(13) = 0.0019197597117132050055085980675D+00 w(14) = 0.0020689446195015801533643667413D+00 w(15) = 0.0022178167367540171700373764020D+00 w(16) = 0.0023663535543962867157201855305D+00 w(17) = 0.0025145326145997073931298921370D+00 w(18) = 0.0026623315139717112732749157331D+00 w(19) = 0.0028097279068204407457332299361D+00 w(20) = 0.0029566995084575002760043344138D+00 w(21) = 0.0031032240985191112621977893133D+00 w(22) = 0.0032492795242943133198690930777D+00 w(23) = 0.0033948437040533928255056951665D+00 w(24) = 0.0035398946303722552150296713510D+00 w(25) = 0.0036844103734499176530742235517D+00 w(26) = 0.0038283690844171626400743524999D+00 w(27) = 0.0039717489986349171988699773906D+00 w(28) = 0.0041145284389812475901826468094D+00 w(29) = 0.0042566858191260658425395494472D+00 w(30) = 0.0043981996467927779838546384780D+00 w(31) = 0.0045390485270061921259394035112D+00 w(32) = 0.0046792111653260640506279893190D+00 w(33) = 0.0048186663710656988918572043815D+00 w(34) = 0.0049573930604950563104281084148D+00 w(35) = 0.0050953702600278273039420404117D+00 w(36) = 0.0052325771093919661294970523234D+00 w(37) = 0.0053689928647831724787741258653D+00 w(38) = 0.0055045969020008281904902120813D+00 w(39) = 0.0056393687195659001929970994675D+00 w(40) = 0.0057732879418203275712033691864D+00 w(41) = 0.0059063343220074160130475409466D+00 w(42) = 0.0060384877453327676663371666884D+00 w(43) = 0.0061697282320052788060812561217D+00 w(44) = 0.0063000359402577418025981070425D+00 w(45) = 0.0064293911693465917826140832500D+00 w(46) = 0.0065577743625303421548456356354D+00 w(47) = 0.0066851661100262568757892743568D+00 w(48) = 0.0068115471519448109954345674817D+00 w(49) = 0.0069368983812014946719507501243D+00 w(50) = 0.0070612008464055194979848418291D+00 w(51) = 0.0071844357547249896530757997058D+00 w(52) = 0.0073065844747281040972736443146D+00 w(53) = 0.0074276285391999597581348419714D+00 w(54) = 0.0075475496479345294426435656724D+00 w(55) = 0.0076663296705013920315933272426D+00 w(56) = 0.0077839506489867963897419914623D+00 w(57) = 0.0079003948007086443529587296692D+00 w(58) = 0.0080156445209049821352946484008D+00 w(59) = 0.0081296823853955935356080649925D+00 w(60) = 0.0082424911532162924158504385939D+00 w(61) = 0.0083540537692255160718568405530D+00 w(62) = 0.0084643533666828253227353760036D+00 w(63) = 0.0085733732697989214067758505840D+00 w(64) = 0.0086810969962567940901133439612D+00 w(65) = 0.0087875082597036197689825483144D+00 w(66) = 0.0088925909722130327769834298578D+00 w(67) = 0.0089963292467173975949700110383D+00 w(68) = 0.0090987073994097142025303711406D+00 w(69) = 0.0091997099521147934060534414075D+00 w(70) = 0.0092993216346293436285393234867D+00 w(71) = 0.0093975273870306153500305317074D+00 w(72) = 0.0094943123619532541442165010292D+00 w(73) = 0.0095896619268340180657610209655D+00 w(74) = 0.0096835616661240200035669970076D+00 w(75) = 0.0097759973834681605268499842249D+00 w(76) = 0.0098669551038514217128483481814D+00 w(77) = 0.0099564210757116974565448593910D+00 w(78) = 0.0100443817730188408231888789497D+00 w(79) = 0.0101308238973196141129538950955D+00 w(80) = 0.0102157343797482324629939488415D+00 w(81) = 0.0102991003830021970147153502911D+00 w(82) = 0.0103809093032831189224876935085D+00 w(83) = 0.0104611487722022407735015844669D+00 w(84) = 0.0105398066586503673262517188088D+00 w(85) = 0.0106168710706319228563864391054D+00 w(86) = 0.0106923303570628578226139809571D+00 w(87) = 0.0107661731095321330311788312990D+00 w(88) = 0.0108383881640265149842990798832D+00 w(89) = 0.0109089646026184216450603134401D+00 w(90) = 0.0109778917551165634377595759712D+00 w(91) = 0.0110451592006791299277436662993D+00 w(92) = 0.0111107567693892782875426356195D+00 w(93) = 0.0111746745437926853557086684962D+00 w(94) = 0.0112369028603969308303734810332D+00 w(95) = 0.0112974323111324849102690558722D+00 w(96) = 0.0113562537447750795009464486204D+00 w(97) = 0.011413358268329247942299599697D+00 w(98) = 0.011468737248372824084374355981D+00 w(99) = 0.011522382312362197440930930031D+00 w(100) = 0.011574285349898127083439539046D+00 w(101) = 0.011624438513951922901227922331D+00 w(102) = 0.011672834222051808845465154244D+00 w(103) = 0.011719465157429288794653489478D+00 w(104) = 0.011764324270125341726399410909D+00 w(105) = 0.011807404778056278953532930501D+00 w(106) = 0.011848700168039102281222824051D+00 w(107) = 0.011888204196776208064673282076D+00 w(108) = 0.011925910891799288293359117699D+00 w(109) = 0.011961814552372285996633285380D+00 w(110) = 0.011995909750353268455989686823D+00 w(111) = 0.012028191331015087920350431142D+00 w(112) = 0.012058654413824705751531083631D+00 w(113) = 0.012087294393181062176578184854D+00 w(114) = 0.012114106939111380091025793650D+00 w(115) = 0.012139087997925797641334635250D+00 w(116) = 0.012162233792830230614908682534D+00 w(117) = 0.012183540824497371981177306326D+00 w(118) = 0.012203005871595742256331865516D+00 w(119) = 0.012220625991276710706457005806D+00 w(120) = 0.012236398519619413758040249691D+00 w(121) = 0.012250321072033503350218104906D+00 w(122) = 0.012262391543619664338660618398D+00 w(123) = 0.012272608109487846445745237751D+00 w(124) = 0.012280969225033162644659793962D+00 w(125) = 0.012287473626169412265336919908D+00 w(126) = 0.012292120329520193516690694701D+00 w(127) = 0.012294908632567576531532225710D+00 w(128) = 0.01229583811375831445681490730D+00 w(129) = 0.012294908632567576531532225710D+00 w(130) = 0.012292120329520193516690694701D+00 w(131) = 0.012287473626169412265336919908D+00 w(132) = 0.012280969225033162644659793962D+00 w(133) = 0.012272608109487846445745237751D+00 w(134) = 0.012262391543619664338660618398D+00 w(135) = 0.012250321072033503350218104906D+00 w(136) = 0.012236398519619413758040249691D+00 w(137) = 0.012220625991276710706457005806D+00 w(138) = 0.012203005871595742256331865516D+00 w(139) = 0.012183540824497371981177306326D+00 w(140) = 0.012162233792830230614908682534D+00 w(141) = 0.012139087997925797641334635250D+00 w(142) = 0.012114106939111380091025793650D+00 w(143) = 0.012087294393181062176578184854D+00 w(144) = 0.012058654413824705751531083631D+00 w(145) = 0.012028191331015087920350431142D+00 w(146) = 0.011995909750353268455989686823D+00 w(147) = 0.011961814552372285996633285380D+00 w(148) = 0.011925910891799288293359117699D+00 w(149) = 0.011888204196776208064673282076D+00 w(150) = 0.011848700168039102281222824051D+00 w(151) = 0.011807404778056278953532930501D+00 w(152) = 0.011764324270125341726399410909D+00 w(153) = 0.011719465157429288794653489478D+00 w(154) = 0.011672834222051808845465154244D+00 w(155) = 0.011624438513951922901227922331D+00 w(156) = 0.011574285349898127083439539046D+00 w(157) = 0.011522382312362197440930930031D+00 w(158) = 0.011468737248372824084374355981D+00 w(159) = 0.011413358268329247942299599697D+00 w(160) = 0.0113562537447750795009464486204D+00 w(161) = 0.0112974323111324849102690558722D+00 w(162) = 0.0112369028603969308303734810332D+00 w(163) = 0.0111746745437926853557086684962D+00 w(164) = 0.0111107567693892782875426356195D+00 w(165) = 0.0110451592006791299277436662993D+00 w(166) = 0.0109778917551165634377595759712D+00 w(167) = 0.0109089646026184216450603134401D+00 w(168) = 0.0108383881640265149842990798832D+00 w(169) = 0.0107661731095321330311788312990D+00 w(170) = 0.0106923303570628578226139809571D+00 w(171) = 0.0106168710706319228563864391054D+00 w(172) = 0.0105398066586503673262517188088D+00 w(173) = 0.0104611487722022407735015844669D+00 w(174) = 0.0103809093032831189224876935085D+00 w(175) = 0.0102991003830021970147153502911D+00 w(176) = 0.0102157343797482324629939488415D+00 w(177) = 0.0101308238973196141129538950955D+00 w(178) = 0.0100443817730188408231888789497D+00 w(179) = 0.0099564210757116974565448593910D+00 w(180) = 0.0098669551038514217128483481814D+00 w(181) = 0.0097759973834681605268499842249D+00 w(182) = 0.0096835616661240200035669970076D+00 w(183) = 0.0095896619268340180657610209655D+00 w(184) = 0.0094943123619532541442165010292D+00 w(185) = 0.0093975273870306153500305317074D+00 w(186) = 0.0092993216346293436285393234867D+00 w(187) = 0.0091997099521147934060534414075D+00 w(188) = 0.0090987073994097142025303711406D+00 w(189) = 0.0089963292467173975949700110383D+00 w(190) = 0.0088925909722130327769834298578D+00 w(191) = 0.0087875082597036197689825483144D+00 w(192) = 0.0086810969962567940901133439612D+00 w(193) = 0.0085733732697989214067758505840D+00 w(194) = 0.0084643533666828253227353760036D+00 w(195) = 0.0083540537692255160718568405530D+00 w(196) = 0.0082424911532162924158504385939D+00 w(197) = 0.0081296823853955935356080649925D+00 w(198) = 0.0080156445209049821352946484008D+00 w(199) = 0.0079003948007086443529587296692D+00 w(200) = 0.0077839506489867963897419914623D+00 w(201) = 0.0076663296705013920315933272426D+00 w(202) = 0.0075475496479345294426435656724D+00 w(203) = 0.0074276285391999597581348419714D+00 w(204) = 0.0073065844747281040972736443146D+00 w(205) = 0.0071844357547249896530757997058D+00 w(206) = 0.0070612008464055194979848418291D+00 w(207) = 0.0069368983812014946719507501243D+00 w(208) = 0.0068115471519448109954345674817D+00 w(209) = 0.0066851661100262568757892743568D+00 w(210) = 0.0065577743625303421548456356354D+00 w(211) = 0.0064293911693465917826140832500D+00 w(212) = 0.0063000359402577418025981070425D+00 w(213) = 0.0061697282320052788060812561217D+00 w(214) = 0.0060384877453327676663371666884D+00 w(215) = 0.0059063343220074160130475409466D+00 w(216) = 0.0057732879418203275712033691864D+00 w(217) = 0.0056393687195659001929970994675D+00 w(218) = 0.0055045969020008281904902120813D+00 w(219) = 0.0053689928647831724787741258653D+00 w(220) = 0.0052325771093919661294970523234D+00 w(221) = 0.0050953702600278273039420404117D+00 w(222) = 0.0049573930604950563104281084148D+00 w(223) = 0.0048186663710656988918572043815D+00 w(224) = 0.0046792111653260640506279893190D+00 w(225) = 0.0045390485270061921259394035112D+00 w(226) = 0.0043981996467927779838546384780D+00 w(227) = 0.0042566858191260658425395494472D+00 w(228) = 0.0041145284389812475901826468094D+00 w(229) = 0.0039717489986349171988699773906D+00 w(230) = 0.0038283690844171626400743524999D+00 w(231) = 0.0036844103734499176530742235517D+00 w(232) = 0.0035398946303722552150296713510D+00 w(233) = 0.0033948437040533928255056951665D+00 w(234) = 0.0032492795242943133198690930777D+00 w(235) = 0.0031032240985191112621977893133D+00 w(236) = 0.0029566995084575002760043344138D+00 w(237) = 0.0028097279068204407457332299361D+00 w(238) = 0.0026623315139717112732749157331D+00 w(239) = 0.0025145326145997073931298921370D+00 w(240) = 0.0023663535543962867157201855305D+00 w(241) = 0.0022178167367540171700373764020D+00 w(242) = 0.0020689446195015801533643667413D+00 w(243) = 0.0019197597117132050055085980675D+00 w(244) = 0.0017702845706603213070421243905D+00 w(245) = 0.0016205417990415653896921100325D+00 w(246) = 0.0014705540427783843160097204304D+00 w(247) = 0.0013203439900221692090523602144D+00 w(248) = 0.0011699343729388079886897709773D+00 w(249) = 0.00101934797642732530281229369360D+00 w(250) = 0.00086860766611945667949717690640D+00 w(251) = 0.00071773647800611087798371518325D+00 w(252) = 0.00056675794564824918946626058353D+00 w(253) = 0.00041569762526823913616284210066D+00 w(254) = 0.00026459387119083065532790838855D+00 w(255) = 0.00011367361999142272115645954414D+00 else if ( n == 256 ) then x(1) = -0.999956050018992230734801D+00 x(2) = -0.999768437409263186104879D+00 x(3) = -0.999430937466261408240854D+00 x(4) = -0.998943525843408856555026D+00 x(5) = -0.998306266473006444055500D+00 x(6) = -0.997519252756720827563409D+00 x(7) = -0.996582602023381540430504D+00 x(8) = -0.995496454481096356592647D+00 x(9) = -0.994260972922409664962878D+00 x(10) = -0.992876342608822117143534D+00 x(11) = -0.991342771207583086922189D+00 x(12) = -0.989660488745065218319244D+00 x(13) = -0.987829747564860608916488D+00 x(14) = -0.985850822286125956479245D+00 x(15) = -0.983724009760315496166686D+00 x(16) = -0.981449629025464405769303D+00 x(17) = -0.979028021257622038824238D+00 x(18) = -0.976459549719234155621011D+00 x(19) = -0.973744599704370405266079D+00 x(20) = -0.970883578480743029320923D+00 x(21) = -0.967876915228489454909004D+00 x(22) = -0.964725060975706430932612D+00 x(23) = -0.961428488530732144006407D+00 x(24) = -0.957987692411178129365790D+00 x(25) = -0.954403188769716241764448D+00 x(26) = -0.950675515316628276363852D+00 x(27) = -0.946805231239127481372052D+00 x(28) = -0.942792917117462443183076D+00 x(29) = -0.938639174837814804981926D+00 x(30) = -0.934344627502003094292477D+00 x(31) = -0.929909919334005641180246D+00 x(32) = -0.925335715583316202872730D+00 x(33) = -0.920622702425146495505047D+00 x(34) = -0.915771586857490384526670D+00 x(35) = -0.910783096595065011890907D+00 x(36) = -0.905657979960144647082682D+00 x(37) = -0.900397005770303544771620D+00 x(38) = -0.895000963223084577441223D+00 x(39) = -0.889470661777610888828677D+00 x(40) = -0.883806931033158284859826D+00 x(41) = -0.878010620604706543986435D+00 x(42) = -0.872082599995488289130046D+00 x(43) = -0.866023758466554519297515D+00 x(44) = -0.859835004903376350696173D+00 x(45) = -0.853517267679502965073036D+00 x(46) = -0.847071494517296207187072D+00 x(47) = -0.840498652345762713895068D+00 x(48) = -0.833799727155504894348444D+00 x(49) = -0.826975723850812514289093D+00 x(50) = -0.820027666098917067403478D+00 x(51) = -0.812956596176431543136410D+00 x(52) = -0.805763574812998623257389D+00 x(53) = -0.798449681032170758782543D+00 x(54) = -0.791016011989545994546707D+00 x(55) = -0.783463682808183820750670D+00 x(56) = -0.775793826411325739132053D+00 x(57) = -0.768007593352445635975891D+00 x(58) = -0.760106151642655454941907D+00 x(59) = -0.752090686575492059587530D+00 x(60) = -0.743962400549111568455683D+00 x(61) = -0.735722512885917834620373D+00 x(62) = -0.727372259649652126586894D+00 x(63) = -0.718912893459971448372640D+00 x(64) = -0.710345683304543313394566D+00 x(65) = -0.701671914348685159406084D+00 x(66) = -0.692892887742576960105342D+00 x(67) = -0.684009920426075953124877D+00 x(68) = -0.675024344931162763855919D+00 x(69) = -0.665937509182048559906408D+00 x(70) = -0.656750776292973221887500D+00 x(71) = -0.647465524363724862617016D+00 x(72) = -0.638083146272911368668689D+00 x(73) = -0.628605049469014975432210D+00 x(74) = -0.619032655759261219430968D+00 x(75) = -0.609367401096333939522311D+00 x(76) = -0.599610735362968321730388D+00 x(77) = -0.589764122154454300785786D+00 x(78) = -0.579829038559082944921832D+00 x(79) = -0.569806974936568759057668D+00 x(80) = -0.559699434694481145136907D+00 x(81) = -0.549507934062718557042427D+00 x(82) = -0.539234001866059181127936D+00 x(83) = -0.528879179294822261951476D+00 x(84) = -0.518445019673674476221662D+00 x(85) = -0.507933088228616036231925D+00 x(86) = -0.497344961852181477119512D+00 x(87) = -0.486682228866890350103621D+00 x(88) = -0.475946488786983306390738D+00 x(89) = -0.465139352078479313645570D+00 x(90) = -0.454262439917589998774455D+00 x(91) = -0.443317383947527357216926D+00 x(92) = -0.432305826033741309953441D+00 x(93) = -0.421229418017623824976812D+00 x(94) = -0.410089821468716550006434D+00 x(95) = -0.398888707435459127713463D+00 x(96) = -0.387627756194515583637985D+00 x(97) = -0.376308656998716390283056D+00 x(98) = -0.364933107823654018533465D+00 x(99) = -0.353502815112969989537790D+00 x(100) = -0.342019493522371636480730D+00 x(101) = -0.330484865662416976229187D+00 x(102) = -0.318900661840106275631683D+00 x(103) = -0.307268619799319076258610D+00 x(104) = -0.295590484460135614563787D+00 x(105) = -0.283868007657081741799766D+00 x(106) = -0.272102947876336609505245D+00 x(107) = -0.260297069991942541978561D+00 x(108) = -0.248452145001056666833243D+00 x(109) = -0.236569949758284018477508D+00 x(110) = -0.224652266709131967147878D+00 x(111) = -0.212700883622625957937040D+00 x(112) = -0.200717593323126670068001D+00 x(113) = -0.188704193421388826461504D+00 x(114) = -0.176662486044901997403722D+00 x(115) = -0.164594277567553849829285D+00 x(116) = -0.152501378338656395374607D+00 x(117) = -0.140385602411375885913025D+00 x(118) = -0.128248767270607094742050D+00 x(119) = -0.116092693560332804940735D+00 x(120) = -0.103919204810509403639197D+00 x(121) = -0.091730127163519552031146D+00 x(122) = -0.079527289100232965903227D+00 x(123) = -0.067312521165716400242290D+00 x(124) = -0.055087655694633984104561D+00 x(125) = -0.042854526536379098381242D+00 x(126) = -0.030614968779979029366279D+00 x(127) = -0.018370818478813665117926D+00 x(128) = -0.006123912375189529501170D+00 x(129) = 0.006123912375189529501170D+00 x(130) = 0.018370818478813665117926D+00 x(131) = 0.030614968779979029366279D+00 x(132) = 0.042854526536379098381242D+00 x(133) = 0.055087655694633984104561D+00 x(134) = 0.067312521165716400242290D+00 x(135) = 0.079527289100232965903227D+00 x(136) = 0.091730127163519552031146D+00 x(137) = 0.103919204810509403639197D+00 x(138) = 0.116092693560332804940735D+00 x(139) = 0.128248767270607094742050D+00 x(140) = 0.140385602411375885913025D+00 x(141) = 0.152501378338656395374607D+00 x(142) = 0.164594277567553849829285D+00 x(143) = 0.176662486044901997403722D+00 x(144) = 0.188704193421388826461504D+00 x(145) = 0.200717593323126670068001D+00 x(146) = 0.212700883622625957937040D+00 x(147) = 0.224652266709131967147878D+00 x(148) = 0.236569949758284018477508D+00 x(149) = 0.248452145001056666833243D+00 x(150) = 0.260297069991942541978561D+00 x(151) = 0.272102947876336609505245D+00 x(152) = 0.283868007657081741799766D+00 x(153) = 0.295590484460135614563787D+00 x(154) = 0.307268619799319076258610D+00 x(155) = 0.318900661840106275631683D+00 x(156) = 0.330484865662416976229187D+00 x(157) = 0.342019493522371636480730D+00 x(158) = 0.353502815112969989537790D+00 x(159) = 0.364933107823654018533465D+00 x(160) = 0.376308656998716390283056D+00 x(161) = 0.387627756194515583637985D+00 x(162) = 0.398888707435459127713463D+00 x(163) = 0.410089821468716550006434D+00 x(164) = 0.421229418017623824976812D+00 x(165) = 0.432305826033741309953441D+00 x(166) = 0.443317383947527357216926D+00 x(167) = 0.454262439917589998774455D+00 x(168) = 0.465139352078479313645570D+00 x(169) = 0.475946488786983306390738D+00 x(170) = 0.486682228866890350103621D+00 x(171) = 0.497344961852181477119512D+00 x(172) = 0.507933088228616036231925D+00 x(173) = 0.518445019673674476221662D+00 x(174) = 0.528879179294822261951476D+00 x(175) = 0.539234001866059181127936D+00 x(176) = 0.549507934062718557042427D+00 x(177) = 0.559699434694481145136907D+00 x(178) = 0.569806974936568759057668D+00 x(179) = 0.579829038559082944921832D+00 x(180) = 0.589764122154454300785786D+00 x(181) = 0.599610735362968321730388D+00 x(182) = 0.609367401096333939522311D+00 x(183) = 0.619032655759261219430968D+00 x(184) = 0.628605049469014975432210D+00 x(185) = 0.638083146272911368668689D+00 x(186) = 0.647465524363724862617016D+00 x(187) = 0.656750776292973221887500D+00 x(188) = 0.665937509182048559906408D+00 x(189) = 0.675024344931162763855919D+00 x(190) = 0.684009920426075953124877D+00 x(191) = 0.692892887742576960105342D+00 x(192) = 0.701671914348685159406084D+00 x(193) = 0.710345683304543313394566D+00 x(194) = 0.718912893459971448372640D+00 x(195) = 0.727372259649652126586894D+00 x(196) = 0.735722512885917834620373D+00 x(197) = 0.743962400549111568455683D+00 x(198) = 0.752090686575492059587530D+00 x(199) = 0.760106151642655454941907D+00 x(200) = 0.768007593352445635975891D+00 x(201) = 0.775793826411325739132053D+00 x(202) = 0.783463682808183820750670D+00 x(203) = 0.791016011989545994546707D+00 x(204) = 0.798449681032170758782543D+00 x(205) = 0.805763574812998623257389D+00 x(206) = 0.812956596176431543136410D+00 x(207) = 0.820027666098917067403478D+00 x(208) = 0.826975723850812514289093D+00 x(209) = 0.833799727155504894348444D+00 x(210) = 0.840498652345762713895068D+00 x(211) = 0.847071494517296207187072D+00 x(212) = 0.853517267679502965073036D+00 x(213) = 0.859835004903376350696173D+00 x(214) = 0.866023758466554519297515D+00 x(215) = 0.872082599995488289130046D+00 x(216) = 0.878010620604706543986435D+00 x(217) = 0.883806931033158284859826D+00 x(218) = 0.889470661777610888828677D+00 x(219) = 0.895000963223084577441223D+00 x(220) = 0.900397005770303544771620D+00 x(221) = 0.905657979960144647082682D+00 x(222) = 0.910783096595065011890907D+00 x(223) = 0.915771586857490384526670D+00 x(224) = 0.920622702425146495505047D+00 x(225) = 0.925335715583316202872730D+00 x(226) = 0.929909919334005641180246D+00 x(227) = 0.934344627502003094292477D+00 x(228) = 0.938639174837814804981926D+00 x(229) = 0.942792917117462443183076D+00 x(230) = 0.946805231239127481372052D+00 x(231) = 0.950675515316628276363852D+00 x(232) = 0.954403188769716241764448D+00 x(233) = 0.957987692411178129365790D+00 x(234) = 0.961428488530732144006407D+00 x(235) = 0.964725060975706430932612D+00 x(236) = 0.967876915228489454909004D+00 x(237) = 0.970883578480743029320923D+00 x(238) = 0.973744599704370405266079D+00 x(239) = 0.976459549719234155621011D+00 x(240) = 0.979028021257622038824238D+00 x(241) = 0.981449629025464405769303D+00 x(242) = 0.983724009760315496166686D+00 x(243) = 0.985850822286125956479245D+00 x(244) = 0.987829747564860608916488D+00 x(245) = 0.989660488745065218319244D+00 x(246) = 0.991342771207583086922189D+00 x(247) = 0.992876342608822117143534D+00 x(248) = 0.994260972922409664962878D+00 x(249) = 0.995496454481096356592647D+00 x(250) = 0.996582602023381540430504D+00 x(251) = 0.997519252756720827563409D+00 x(252) = 0.998306266473006444055500D+00 x(253) = 0.998943525843408856555026D+00 x(254) = 0.999430937466261408240854D+00 x(255) = 0.999768437409263186104879D+00 x(256) = 0.999956050018992230734801D+00 w(1) = 0.00011278901782227217551253887725D+00 w(2) = 0.00026253494429644590628745756250D+00 w(3) = 0.00041246325442617632843218583774D+00 w(4) = 0.00056234895403140980281523674759D+00 w(5) = 0.0007121541634733206669089891511D+00 w(6) = 0.0008618537014200890378140934163D+00 w(7) = 0.0010114243932084404526058128414D+00 w(8) = 0.0011608435575677247239705981135D+00 w(9) = 0.0013100886819025044578316804271D+00 w(10) = 0.0014591373333107332010883864996D+00 w(11) = 0.0016079671307493272424499395690D+00 w(12) = 0.0017565557363307299936069145295D+00 w(13) = 0.0019048808534997184044191411746D+00 w(14) = 0.0020529202279661431745487818492D+00 w(15) = 0.0022006516498399104996848834189D+00 w(16) = 0.0023480529563273120170064609087D+00 w(17) = 0.0024951020347037068508395354372D+00 w(18) = 0.0026417768254274905641208292516D+00 w(19) = 0.0027880553253277068805747610763D+00 w(20) = 0.0029339155908297166460123254142D+00 w(21) = 0.0030793357411993375832053528316D+00 w(22) = 0.0032242939617941981570107134269D+00 w(23) = 0.0033687685073155510120191062489D+00 w(24) = 0.0035127377050563073309710549844D+00 w(25) = 0.0036561799581425021693892413052D+00 w(26) = 0.0037990737487662579981170192082D+00 w(27) = 0.0039413976414088336277290349840D+00 w(28) = 0.0040831302860526684085997759212D+00 w(29) = 0.0042242504213815362723565049060D+00 w(30) = 0.0043647368779680566815684200621D+00 w(31) = 0.0045045685814478970686417923159D+00 w(32) = 0.0046437245556800603139790923525D+00 w(33) = 0.0047821839258926913729317340448D+00 w(34) = 0.0049199259218138656695587765655D+00 w(35) = 0.0050569298807868423875578160762D+00 w(36) = 0.0051931752508692809303287536296D+00 w(37) = 0.0053286415939159303170811114788D+00 w(38) = 0.0054633085886443102775705318566D+00 w(39) = 0.0055971560336829100775514452572D+00 w(40) = 0.005730163850601437177384417555D+00 w(41) = 0.005862312086922653060661598801D+00 w(42) = 0.005993580919115338221127696870D+00 w(43) = 0.006123950655567932542389081187D+00 w(44) = 0.006253401739542401272063645975D+00 w(45) = 0.006381914752107880570375164275D+00 w(46) = 0.006509470415053660267809899951D+00 w(47) = 0.006636049593781065044590038355D+00 w(48) = 0.006761633300173798780927861108D+00 w(49) = 0.006886202695446320346713323775D+00 w(50) = 0.007009739092969822621234436194D+00 w(51) = 0.007132223961075390071672422986D+00 w(52) = 0.007253638925833913783829137214D+00 w(53) = 0.007373965773812346437572440695D+00 w(54) = 0.007493186454805883358599761133D+00 w(55) = 0.007611283084545659461618719618D+00 w(56) = 0.007728237947381555631110194958D+00 w(57) = 0.007844033498939711866810316151D+00 w(58) = 0.007958652368754348353613161227D+00 w(59) = 0.008072077362873499500946974804D+00 w(60) = 0.008184291466438269935619761004D+00 w(61) = 0.008295277846235225425171412553D+00 w(62) = 0.008405019853221535756180301698D+00 w(63) = 0.008513501025022490693838354790D+00 w(64) = 0.008620705088401014305368838410D+00 w(65) = 0.008726615961698807140336632217D+00 w(66) = 0.008831217757248750025318272685D+00 w(67) = 0.008934494783758207548408417085D+00 w(68) = 0.009036431548662873680227775572D+00 w(69) = 0.009137012760450806402000472219D+00 w(70) = 0.009236223330956302687378716714D+00 w(71) = 0.009334048377623269712466014486D+00 w(72) = 0.009430473225737752747352764482D+00 w(73) = 0.009525483410629284811829685754D+00 w(74) = 0.009619064679840727857162164401D+00 w(75) = 0.009711202995266279964249670496D+00 w(76) = 0.009801884535257327825498800250D+00 w(77) = 0.009891095696695828602630683809D+00 w(78) = 0.009978823097034910124733949495D+00 w(79) = 0.010065053576306383309460978930D+00 w(80) = 0.010149774199094865654634066042D+00 w(81) = 0.010232972256478219656954857160D+00 w(82) = 0.010314635267934015068260713997D+00 w(83) = 0.010394750983211728997101725205D+00 w(84) = 0.010473307384170403003569566927D+00 w(85) = 0.010550292686581481517533575536D+00 w(86) = 0.010625695341896561133961681801D+00 w(87) = 0.010699504038979785603048200583D+00 w(88) = 0.010771707705804626636653631927D+00 w(89) = 0.010842295511114795995293477058D+00 w(90) = 0.010911256866049039700796847788D+00 w(91) = 0.010978581425729570637988203448D+00 w(92) = 0.011044259090813901263517571044D+00 w(93) = 0.011108280009009843630460815451D+00 w(94) = 0.011170634576553449462710881938D+00 w(95) = 0.011231313439649668572656802083D+00 w(96) = 0.011290307495875509508367594121D+00 w(97) = 0.011347607895545491941625714297D+00 w(98) = 0.011403206043039185964847059552D+00 w(99) = 0.011457093598090639152334392298D+00 w(100) = 0.011509262477039497958586392439D+00 w(101) = 0.011559704854043635772668656950D+00 w(102) = 0.011608413162253105722084706677D+00 w(103) = 0.011655380094945242121298939730D+00 w(104) = 0.011700598606620740288189823359D+00 w(105) = 0.011744061914060550305376732759D+00 w(106) = 0.011785763497343426181690117627D+00 w(107) = 0.011825697100823977771160737958D+00 w(108) = 0.011863856734071078731904572908D+00 w(109) = 0.011900236672766489754287204237D+00 w(110) = 0.011934831459563562255873201696D+00 w(111) = 0.011967635904905893729007282670D+00 w(112) = 0.011998645087805811934536710071D+00 w(113) = 0.012027854356582571161267533498D+00 w(114) = 0.012055259329560149814347085327D+00 w(115) = 0.012080855895724544655975183976D+00 w(116) = 0.012104640215340463097757829736D+00 w(117) = 0.012126608720527321034718492205D+00 w(118) = 0.012146758115794459815559837664D+00 w(119) = 0.012165085378535502061307291839D+00 w(120) = 0.012181587759481772174047585032D+00 w(121) = 0.012196262783114713518180974196D+00 w(122) = 0.012209108248037240407514094371D+00 w(123) = 0.012220122227303969191708737227D+00 w(124) = 0.012229303068710278904146266083D+00 w(125) = 0.012236649395040158109242574767D+00 w(126) = 0.012242160104272800769728083260D+00 w(127) = 0.012245834369747920142463857550D+00 w(128) = 0.01224767164028975590407032649D+00 w(129) = 0.01224767164028975590407032649D+00 w(130) = 0.012245834369747920142463857550D+00 w(131) = 0.012242160104272800769728083260D+00 w(132) = 0.012236649395040158109242574767D+00 w(133) = 0.012229303068710278904146266083D+00 w(134) = 0.012220122227303969191708737227D+00 w(135) = 0.012209108248037240407514094371D+00 w(136) = 0.012196262783114713518180974196D+00 w(137) = 0.012181587759481772174047585032D+00 w(138) = 0.012165085378535502061307291839D+00 w(139) = 0.012146758115794459815559837664D+00 w(140) = 0.012126608720527321034718492205D+00 w(141) = 0.012104640215340463097757829736D+00 w(142) = 0.012080855895724544655975183976D+00 w(143) = 0.012055259329560149814347085327D+00 w(144) = 0.012027854356582571161267533498D+00 w(145) = 0.011998645087805811934536710071D+00 w(146) = 0.011967635904905893729007282670D+00 w(147) = 0.011934831459563562255873201696D+00 w(148) = 0.011900236672766489754287204237D+00 w(149) = 0.011863856734071078731904572908D+00 w(150) = 0.011825697100823977771160737958D+00 w(151) = 0.011785763497343426181690117627D+00 w(152) = 0.011744061914060550305376732759D+00 w(153) = 0.011700598606620740288189823359D+00 w(154) = 0.011655380094945242121298939730D+00 w(155) = 0.011608413162253105722084706677D+00 w(156) = 0.011559704854043635772668656950D+00 w(157) = 0.011509262477039497958586392439D+00 w(158) = 0.011457093598090639152334392298D+00 w(159) = 0.011403206043039185964847059552D+00 w(160) = 0.011347607895545491941625714297D+00 w(161) = 0.011290307495875509508367594121D+00 w(162) = 0.011231313439649668572656802083D+00 w(163) = 0.011170634576553449462710881938D+00 w(164) = 0.011108280009009843630460815451D+00 w(165) = 0.011044259090813901263517571044D+00 w(166) = 0.010978581425729570637988203448D+00 w(167) = 0.010911256866049039700796847788D+00 w(168) = 0.010842295511114795995293477058D+00 w(169) = 0.010771707705804626636653631927D+00 w(170) = 0.010699504038979785603048200583D+00 w(171) = 0.010625695341896561133961681801D+00 w(172) = 0.010550292686581481517533575536D+00 w(173) = 0.010473307384170403003569566927D+00 w(174) = 0.010394750983211728997101725205D+00 w(175) = 0.010314635267934015068260713997D+00 w(176) = 0.010232972256478219656954857160D+00 w(177) = 0.010149774199094865654634066042D+00 w(178) = 0.010065053576306383309460978930D+00 w(179) = 0.009978823097034910124733949495D+00 w(180) = 0.009891095696695828602630683809D+00 w(181) = 0.009801884535257327825498800250D+00 w(182) = 0.009711202995266279964249670496D+00 w(183) = 0.009619064679840727857162164401D+00 w(184) = 0.009525483410629284811829685754D+00 w(185) = 0.009430473225737752747352764482D+00 w(186) = 0.009334048377623269712466014486D+00 w(187) = 0.009236223330956302687378716714D+00 w(188) = 0.009137012760450806402000472219D+00 w(189) = 0.009036431548662873680227775572D+00 w(190) = 0.008934494783758207548408417085D+00 w(191) = 0.008831217757248750025318272685D+00 w(192) = 0.008726615961698807140336632217D+00 w(193) = 0.008620705088401014305368838410D+00 w(194) = 0.008513501025022490693838354790D+00 w(195) = 0.008405019853221535756180301698D+00 w(196) = 0.008295277846235225425171412553D+00 w(197) = 0.008184291466438269935619761004D+00 w(198) = 0.008072077362873499500946974804D+00 w(199) = 0.007958652368754348353613161227D+00 w(200) = 0.007844033498939711866810316151D+00 w(201) = 0.007728237947381555631110194958D+00 w(202) = 0.007611283084545659461618719618D+00 w(203) = 0.007493186454805883358599761133D+00 w(204) = 0.007373965773812346437572440695D+00 w(205) = 0.007253638925833913783829137214D+00 w(206) = 0.007132223961075390071672422986D+00 w(207) = 0.007009739092969822621234436194D+00 w(208) = 0.006886202695446320346713323775D+00 w(209) = 0.006761633300173798780927861108D+00 w(210) = 0.006636049593781065044590038355D+00 w(211) = 0.006509470415053660267809899951D+00 w(212) = 0.006381914752107880570375164275D+00 w(213) = 0.006253401739542401272063645975D+00 w(214) = 0.006123950655567932542389081187D+00 w(215) = 0.005993580919115338221127696870D+00 w(216) = 0.005862312086922653060661598801D+00 w(217) = 0.005730163850601437177384417555D+00 w(218) = 0.0055971560336829100775514452572D+00 w(219) = 0.0054633085886443102775705318566D+00 w(220) = 0.0053286415939159303170811114788D+00 w(221) = 0.0051931752508692809303287536296D+00 w(222) = 0.0050569298807868423875578160762D+00 w(223) = 0.0049199259218138656695587765655D+00 w(224) = 0.0047821839258926913729317340448D+00 w(225) = 0.0046437245556800603139790923525D+00 w(226) = 0.0045045685814478970686417923159D+00 w(227) = 0.0043647368779680566815684200621D+00 w(228) = 0.0042242504213815362723565049060D+00 w(229) = 0.0040831302860526684085997759212D+00 w(230) = 0.0039413976414088336277290349840D+00 w(231) = 0.0037990737487662579981170192082D+00 w(232) = 0.0036561799581425021693892413052D+00 w(233) = 0.0035127377050563073309710549844D+00 w(234) = 0.0033687685073155510120191062489D+00 w(235) = 0.0032242939617941981570107134269D+00 w(236) = 0.0030793357411993375832053528316D+00 w(237) = 0.0029339155908297166460123254142D+00 w(238) = 0.0027880553253277068805747610763D+00 w(239) = 0.0026417768254274905641208292516D+00 w(240) = 0.0024951020347037068508395354372D+00 w(241) = 0.0023480529563273120170064609087D+00 w(242) = 0.0022006516498399104996848834189D+00 w(243) = 0.0020529202279661431745487818492D+00 w(244) = 0.0019048808534997184044191411746D+00 w(245) = 0.0017565557363307299936069145295D+00 w(246) = 0.0016079671307493272424499395690D+00 w(247) = 0.0014591373333107332010883864996D+00 w(248) = 0.0013100886819025044578316804271D+00 w(249) = 0.0011608435575677247239705981135D+00 w(250) = 0.0010114243932084404526058128414D+00 w(251) = 0.0008618537014200890378140934163D+00 w(252) = 0.0007121541634733206669089891511D+00 w(253) = 0.00056234895403140980281523674759D+00 w(254) = 0.00041246325442617632843218583774D+00 w(255) = 0.00026253494429644590628745756250D+00 w(256) = 0.00011278901782227217551253887725D+00 else if ( n == 257 ) then x(1) = -0.999956390712330402472857D+00 x(2) = -0.999770232390338019056053D+00 x(3) = -0.999435348366365078441838D+00 x(4) = -0.998951714093223210129834D+00 x(5) = -0.998319392445383847808766D+00 x(6) = -0.997538475365520218731818D+00 x(7) = -0.996609078365487004512326D+00 x(8) = -0.995531339486830143483750D+00 x(9) = -0.994305419008553630362377D+00 x(10) = -0.992931499332908653172844D+00 x(11) = -0.991409784923101705201254D+00 x(12) = -0.989740502257507526030375D+00 x(13) = -0.987923899788618253106809D+00 x(14) = -0.985960247902290665366669D+00 x(15) = -0.983849838875444644048531D+00 x(16) = -0.981592986831381877693095D+00 x(17) = -0.979190027692327124191591D+00 x(18) = -0.976641319128992592610888D+00 x(19) = -0.973947240507062326750976D+00 x(20) = -0.971108192830542793021113D+00 x(21) = -0.968124598681952354372943D+00 x(22) = -0.964996902159337170373447D+00 x(23) = -0.961725568810109767190665D+00 x(24) = -0.958311085561711847074814D+00 x(25) = -0.954753960649106318830855D+00 x(26) = -0.951054723539105826691801D+00 x(27) = -0.947213924851546682950881D+00 x(28) = -0.943232136277318328151464D+00 x(29) = -0.939109950493259404355123D+00 x(30) = -0.934847981073932324370129D+00 x(31) = -0.930446862400288909805510D+00 x(32) = -0.925907249565240289235888D+00 x(33) = -0.921229818276144817520964D+00 x(34) = -0.916415264754228313295468D+00 x(35) = -0.911464305630951423630955D+00 x(36) = -0.906377677841339419411308D+00 x(37) = -0.901156138514290206476301D+00 x(38) = -0.895800464859876809085345D+00 x(39) = -0.890311454053661045810287D+00 x(40) = -0.884689923118035575018750D+00 x(41) = -0.878936708800611938658765D+00 x(42) = -0.873052667449672679799858D+00 x(43) = -0.867038674886706051812473D+00 x(44) = -0.860895626276042275514686D+00 x(45) = -0.854624435991610735314055D+00 x(46) = -0.848226037480837936478636D+00 x(47) = -0.841701383125706473284556D+00 x(48) = -0.835051444100995681967937D+00 x(49) = -0.828277210229725073186687D+00 x(50) = -0.821379689835822056081139D+00 x(51) = -0.814359909594035880004229D+00 x(52) = -0.807218914377120130552073D+00 x(53) = -0.799957767100306523636066D+00 x(54) = -0.792577548563093144962574D+00 x(55) = -0.785079357288370682385816D+00 x(56) = -0.777464309358910595129671D+00 x(57) = -0.769733538251239556788216D+00 x(58) = -0.761888194666924898264210D+00 x(59) = -0.753929446361296162339238D+00 x(60) = -0.745858477969628263337895D+00 x(61) = -0.737676490830812123299244D+00 x(62) = -0.729384702808539030149808D+00 x(63) = -0.720984348110025333531072D+00 x(64) = -0.712476677102304460118510D+00 x(65) = -0.703862956126113592426171D+00 x(66) = -0.695144467307402713168813D+00 x(67) = -0.686322508366494071200553D+00 x(68) = -0.677398392424920474813593D+00 x(69) = -0.668373447809971163711735D+00 x(70) = -0.659249017856974352220492D+00 x(71) = -0.650026460709345873208532D+00 x(72) = -0.640707149116433684724434D+00 x(73) = -0.631292470229188329449219D+00 x(74) = -0.621783825393689760680446D+00 x(75) = -0.612182629942561267650033D+00 x(76) = -0.602490312984301547488097D+00 x(77) = -0.592708317190566281032495D+00 x(78) = -0.582838098581430874902446D+00 x(79) = -0.572881126308666332759406D+00 x(80) = -0.562838882437060514424546D+00 x(81) = -0.552712861723817332466074D+00 x(82) = -0.542504571396066721967792D+00 x(83) = -0.532215530926518500400434D+00 x(84) = -0.521847271807293510797499D+00 x(85) = -0.511401337321965712746629D+00 x(86) = -0.500879282315849152005553D+00 x(87) = -0.490282672964564000798817D+00 x(88) = -0.479613086540916117008992D+00 x(89) = -0.468872111180124821505728D+00 x(90) = -0.458061345643433838720630D+00 x(91) = -0.447182399080140586238810D+00 x(92) = -0.436236890788079234603398D+00 x(93) = -0.425226449972593188682213D+00 x(94) = -0.414152715504032866791986D+00 x(95) = -0.403017335673814873281489D+00 x(96) = -0.391821967949078874408131D+00 x(97) = -0.380568278725978696070941D+00 x(98) = -0.369257943081644365255611D+00 x(99) = -0.357892644524852014873858D+00 x(100) = -0.346474074745438764010632D+00 x(101) = -0.335003933362499872399782D+00 x(102) = -0.323483927671405649204085D+00 x(103) = -0.311915772389675771851948D+00 x(104) = -0.300301189401748840754520D+00 x(105) = -0.288641907502685160168097D+00 x(106) = -0.276939662140840894253032D+00 x(107) = -0.265196195159551900488370D+00 x(108) = -0.253413254537865690008131D+00 x(109) = -0.241592594130360106108882D+00 x(110) = -0.229735973406087448117604D+00 x(111) = -0.217845157186682897983880D+00 x(112) = -0.205921915383676231351599D+00 x(113) = -0.193968022735045913454182D+00 x(114) = -0.181985258541054792946197D+00 x(115) = -0.169975406399406713716337D+00 x(116) = -0.157940253939763465806087D+00 x(117) = -0.145881592557661591770148D+00 x(118) = -0.133801217147868654144405D+00 x(119) = -0.121700925837218653121859D+00 x(120) = -0.109582519716966361063898D+00 x(121) = -0.097447802574700412082119D+00 x(122) = -0.085298580625855050603929D+00 x(123) = -0.073136662244860502573600D+00 x(124) = -0.060963857695971986730406D+00 x(125) = -0.048781978863817431238958D+00 x(126) = -0.036592838983704002816750D+00 x(127) = -0.024398252371723591403953D+00 x(128) = -0.012200034154697423345412D+00 x(129) = 0.000000000000000000000000D+00 x(130) = 0.012200034154697423345412D+00 x(131) = 0.024398252371723591403953D+00 x(132) = 0.036592838983704002816750D+00 x(133) = 0.048781978863817431238958D+00 x(134) = 0.060963857695971986730406D+00 x(135) = 0.073136662244860502573600D+00 x(136) = 0.085298580625855050603929D+00 x(137) = 0.097447802574700412082119D+00 x(138) = 0.109582519716966361063898D+00 x(139) = 0.121700925837218653121859D+00 x(140) = 0.133801217147868654144405D+00 x(141) = 0.145881592557661591770148D+00 x(142) = 0.157940253939763465806087D+00 x(143) = 0.169975406399406713716337D+00 x(144) = 0.181985258541054792946197D+00 x(145) = 0.193968022735045913454182D+00 x(146) = 0.205921915383676231351599D+00 x(147) = 0.217845157186682897983880D+00 x(148) = 0.229735973406087448117604D+00 x(149) = 0.241592594130360106108882D+00 x(150) = 0.253413254537865690008131D+00 x(151) = 0.265196195159551900488370D+00 x(152) = 0.276939662140840894253032D+00 x(153) = 0.288641907502685160168097D+00 x(154) = 0.300301189401748840754520D+00 x(155) = 0.311915772389675771851948D+00 x(156) = 0.323483927671405649204085D+00 x(157) = 0.335003933362499872399782D+00 x(158) = 0.346474074745438764010632D+00 x(159) = 0.357892644524852014873858D+00 x(160) = 0.369257943081644365255611D+00 x(161) = 0.380568278725978696070941D+00 x(162) = 0.391821967949078874408131D+00 x(163) = 0.403017335673814873281489D+00 x(164) = 0.414152715504032866791986D+00 x(165) = 0.425226449972593188682213D+00 x(166) = 0.436236890788079234603398D+00 x(167) = 0.447182399080140586238810D+00 x(168) = 0.458061345643433838720630D+00 x(169) = 0.468872111180124821505728D+00 x(170) = 0.479613086540916117008992D+00 x(171) = 0.490282672964564000798817D+00 x(172) = 0.500879282315849152005553D+00 x(173) = 0.511401337321965712746629D+00 x(174) = 0.521847271807293510797499D+00 x(175) = 0.532215530926518500400434D+00 x(176) = 0.542504571396066721967792D+00 x(177) = 0.552712861723817332466074D+00 x(178) = 0.562838882437060514424546D+00 x(179) = 0.572881126308666332759406D+00 x(180) = 0.582838098581430874902446D+00 x(181) = 0.592708317190566281032495D+00 x(182) = 0.602490312984301547488097D+00 x(183) = 0.612182629942561267650033D+00 x(184) = 0.621783825393689760680446D+00 x(185) = 0.631292470229188329449219D+00 x(186) = 0.640707149116433684724434D+00 x(187) = 0.650026460709345873208532D+00 x(188) = 0.659249017856974352220492D+00 x(189) = 0.668373447809971163711735D+00 x(190) = 0.677398392424920474813593D+00 x(191) = 0.686322508366494071200553D+00 x(192) = 0.695144467307402713168813D+00 x(193) = 0.703862956126113592426171D+00 x(194) = 0.712476677102304460118510D+00 x(195) = 0.720984348110025333531072D+00 x(196) = 0.729384702808539030149808D+00 x(197) = 0.737676490830812123299244D+00 x(198) = 0.745858477969628263337895D+00 x(199) = 0.753929446361296162339238D+00 x(200) = 0.761888194666924898264210D+00 x(201) = 0.769733538251239556788216D+00 x(202) = 0.777464309358910595129671D+00 x(203) = 0.785079357288370682385816D+00 x(204) = 0.792577548563093144962574D+00 x(205) = 0.799957767100306523636066D+00 x(206) = 0.807218914377120130552073D+00 x(207) = 0.814359909594035880004229D+00 x(208) = 0.821379689835822056081139D+00 x(209) = 0.828277210229725073186687D+00 x(210) = 0.835051444100995681967937D+00 x(211) = 0.841701383125706473284556D+00 x(212) = 0.848226037480837936478636D+00 x(213) = 0.854624435991610735314055D+00 x(214) = 0.860895626276042275514686D+00 x(215) = 0.867038674886706051812473D+00 x(216) = 0.873052667449672679799858D+00 x(217) = 0.878936708800611938658765D+00 x(218) = 0.884689923118035575018750D+00 x(219) = 0.890311454053661045810287D+00 x(220) = 0.895800464859876809085345D+00 x(221) = 0.901156138514290206476301D+00 x(222) = 0.906377677841339419411308D+00 x(223) = 0.911464305630951423630955D+00 x(224) = 0.916415264754228313295468D+00 x(225) = 0.921229818276144817520964D+00 x(226) = 0.925907249565240289235888D+00 x(227) = 0.930446862400288909805510D+00 x(228) = 0.934847981073932324370129D+00 x(229) = 0.939109950493259404355123D+00 x(230) = 0.943232136277318328151464D+00 x(231) = 0.947213924851546682950881D+00 x(232) = 0.951054723539105826691801D+00 x(233) = 0.954753960649106318830855D+00 x(234) = 0.958311085561711847074814D+00 x(235) = 0.961725568810109767190665D+00 x(236) = 0.964996902159337170373447D+00 x(237) = 0.968124598681952354372943D+00 x(238) = 0.971108192830542793021113D+00 x(239) = 0.973947240507062326750976D+00 x(240) = 0.976641319128992592610888D+00 x(241) = 0.979190027692327124191591D+00 x(242) = 0.981592986831381877693095D+00 x(243) = 0.983849838875444644048531D+00 x(244) = 0.985960247902290665366669D+00 x(245) = 0.987923899788618253106809D+00 x(246) = 0.989740502257507526030375D+00 x(247) = 0.991409784923101705201254D+00 x(248) = 0.992931499332908653172844D+00 x(249) = 0.994305419008553630362377D+00 x(250) = 0.995531339486830143483750D+00 x(251) = 0.996609078365487004512326D+00 x(252) = 0.997538475365520218731818D+00 x(253) = 0.998319392445383847808766D+00 x(254) = 0.998951714093223210129834D+00 x(255) = 0.999435348366365078441838D+00 x(256) = 0.999770232390338019056053D+00 x(257) = 0.999956390712330402472857D+00 w(1) = 0.00011191470145601756450862287886D+00 w(2) = 0.00026049995580176964436806680831D+00 w(3) = 0.00040926648283531339591138751432D+00 w(4) = 0.00055799120546880640169677292533D+00 w(5) = 0.00070663671051592291949335494247D+00 w(6) = 0.00085517818446696565626595950963D+00 w(7) = 0.00100359280467969441299468763292D+00 w(8) = 0.0011518582377826677880963146741D+00 w(9) = 0.0012999523174235227389668643832D+00 w(10) = 0.0014478529559255120065233994722D+00 w(11) = 0.0015955381166175133369701690235D+00 w(12) = 0.0017429858051468299509941139300D+00 w(13) = 0.0018901740676190104269878470891D+00 w(14) = 0.0020370809914723626741694800322D+00 w(15) = 0.0021836847075455253317921866057D+00 w(16) = 0.0023299633927021828561308282641D+00 w(17) = 0.0024758952727301488651840215879D+00 w(18) = 0.0026214586253808109266552781372D+00 w(19) = 0.0027666317834818283552560256501D+00 w(20) = 0.0029113931380877846359302447381D+00 w(21) = 0.0030557211416493711130936102459D+00 w(22) = 0.0031995943111899437356540290142D+00 w(23) = 0.0033429912314827618499065991316D+00 w(24) = 0.0034858905582247143702551557840D+00 w(25) = 0.0036282710212037760873102463983D+00 w(26) = 0.0037701114274582873548537007645D+00 w(27) = 0.0039113906644266662571543468015D+00 w(28) = 0.0040520877030864825223229951262D+00 w(29) = 0.0041921816010820254766367595011D+00 w(30) = 0.0043316515058396297504806208252D+00 w(31) = 0.0044704766576701092218388764046D+00 w(32) = 0.0046086363928577081326523656522D+00 w(33) = 0.0047461101467350184936945641585D+00 w(34) = 0.0048828774567433411142588306018D+00 w(35) = 0.0050189179654779878773297516544D+00 w(36) = 0.0051542114237180378340642003713D+00 w(37) = 0.0052887376934400710240953933529D+00 w(38) = 0.0054224767508154127788846727083D+00 w(39) = 0.0055554086891904284012033890901D+00 w(40) = 0.0056875137220494140577838938236D+00 w(41) = 0.0058187721859596348346566361185D+00 w(42) = 0.0059491645434980654366600347567D+00 w(43) = 0.0060786713861593931405204596709D+00 w(44) = 0.0062072734372448464599330978665D+00 w(45) = 0.0063349515547314166407936938524D+00 w(46) = 0.0064616867341210426397202932350D+00 w(47) = 0.0065874601112693336961737372300D+00 w(48) = 0.0067122529651934070221351960200D+00 w(49) = 0.0068360467208584215286561508406D+00 w(50) = 0.0069588229519423919043121805236D+00 w(51) = 0.0070805633835788707705149901066D+00 w(52) = 0.0072012498950770900730828552207D+00 w(53) = 0.0073208645226191563361371026044D+00 w(54) = 0.0074393894619338979090297315972D+00 w(55) = 0.0075568070709469658838993300454D+00 w(56) = 0.0076730998724067939537782250476D+00 w(57) = 0.0077882505564860261212726654404D+00 w(58) = 0.0079022419833580248574070864277D+00 w(59) = 0.0080150571857480760504667455353D+00 w(60) = 0.0081266793714589108764118189068D+00 w(61) = 0.0082370919258701685661946145361D+00 w(62) = 0.0083462784144114279413811886655D+00 w(63) = 0.0084542225850084395379670551258D+00 w(64) = 0.0085609083705021941391459209280D+00 w(65) = 0.0086663198910404675908861979240D+00 w(66) = 0.0087704414564414858792445834744D+00 w(67) = 0.0088732575685293586050755892934D+00 w(68) = 0.0089747529234409331997949023068D+00 w(69) = 0.0090749124139037264846862498962D+00 w(70) = 0.0091737211314845944854270065178D+00 w(71) = 0.0092711643688088057725325917169D+00 w(72) = 0.0093672276217491880067391857021D+00 w(73) = 0.0094618965915850218253881576301D+00 w(74) = 0.0095551571871303607110514249099D+00 w(75) = 0.0096469955268314600363329731559D+00 w(76) = 0.0097373979408330030783691793250D+00 w(77) = 0.0098263509730128164423854701706D+00 w(78) = 0.0099138413829847720250916955489D+00 w(79) = 0.0099998561480695773850435626986D+00 w(80) = 0.0100843824652331611676814627839D+00 w(81) = 0.0101674077529923650568895461852D+00 w(82) = 0.0102489196532876585918958554047D+00 w(83) = 0.0103289060333225980974485876288D+00 w(84) = 0.0104073549873697559257355517893D+00 w(85) = 0.0104842548385428511997370260353D+00 w(86) = 0.0105595941405348182788823332058D+00 w(87) = 0.0106333616793215542382761147904D+00 w(88) = 0.0107055464748310917616231511294D+00 w(89) = 0.0107761377825779489945556541150D+00 w(90) = 0.0108451250952624130885928632830D+00 w(91) = 0.0109124981443345193856719616965D+00 w(92) = 0.0109782469015224934483083029166D+00 w(93) = 0.0110423615803254284301924654946D+00 w(94) = 0.0111048326374699756056269264803D+00 w(95) = 0.0111656507743308312328559850485D+00 w(96) = 0.0112248069383148083152535688671D+00 w(97) = 0.0112822923242082872447042603128D+00 w(98) = 0.0113380983754878447625379269120D+00 w(99) = 0.011392216785593866154247619654D+00 w(100) = 0.011444639499166951104119199270D+00 w(101) = 0.011495358713246929174010288914D+00 w(102) = 0.011544366878434306436012137033D+00 w(103) = 0.011591656700013970380783131035D+00 w(104) = 0.011637221139040985841125311445D+00 w(105) = 0.011681053413388320313049670635D+00 w(106) = 0.011723146998756342723302879656D+00 w(107) = 0.011763495629643945382264331878D+00 w(108) = 0.011802093300281144573421477037D+00 w(109) = 0.011838934265523020964443424791D+00 w(110) = 0.011874013041704866779344562066D+00 w(111) = 0.011907324407458412445505183140D+00 w(112) = 0.011938863404489011222535627643D+00 w(113) = 0.011968625338313666131272065445D+00 w(114) = 0.011996605778959789329711050159D+00 w(115) = 0.012022800561624589927558893338D+00 w(116) = 0.012047205787294992091420946532D+00 w(117) = 0.012069817823327991167612855626D+00 w(118) = 0.012090633303991361438266420912D+00 w(119) = 0.012109649130964635027950450318D+00 w(120) = 0.012126862473800277391553601370D+00 w(121) = 0.012142270770344990738801546574D+00 w(122) = 0.012155871727121082685623083829D+00 w(123) = 0.012167663319667843366755737416D+00 w(124) = 0.012177643792842880196606249581D+00 w(125) = 0.012185811661083365425569178819D+00 w(126) = 0.012192165708627157605870499188D+00 w(127) = 0.012196704989693764053654538465D+00 w(128) = 0.012199428828625117371582840212D+00 w(129) = 0.01220033681998614507777289232D+00 w(130) = 0.012199428828625117371582840212D+00 w(131) = 0.012196704989693764053654538465D+00 w(132) = 0.012192165708627157605870499188D+00 w(133) = 0.012185811661083365425569178819D+00 w(134) = 0.012177643792842880196606249581D+00 w(135) = 0.012167663319667843366755737416D+00 w(136) = 0.012155871727121082685623083829D+00 w(137) = 0.012142270770344990738801546574D+00 w(138) = 0.012126862473800277391553601370D+00 w(139) = 0.012109649130964635027950450318D+00 w(140) = 0.012090633303991361438266420912D+00 w(141) = 0.012069817823327991167612855626D+00 w(142) = 0.012047205787294992091420946532D+00 w(143) = 0.012022800561624589927558893338D+00 w(144) = 0.011996605778959789329711050159D+00 w(145) = 0.011968625338313666131272065445D+00 w(146) = 0.011938863404489011222535627643D+00 w(147) = 0.011907324407458412445505183140D+00 w(148) = 0.011874013041704866779344562066D+00 w(149) = 0.011838934265523020964443424791D+00 w(150) = 0.011802093300281144573421477037D+00 w(151) = 0.011763495629643945382264331878D+00 w(152) = 0.011723146998756342723302879656D+00 w(153) = 0.011681053413388320313049670635D+00 w(154) = 0.011637221139040985841125311445D+00 w(155) = 0.011591656700013970380783131035D+00 w(156) = 0.011544366878434306436012137033D+00 w(157) = 0.011495358713246929174010288914D+00 w(158) = 0.011444639499166951104119199270D+00 w(159) = 0.011392216785593866154247619654D+00 w(160) = 0.0113380983754878447625379269120D+00 w(161) = 0.0112822923242082872447042603128D+00 w(162) = 0.0112248069383148083152535688671D+00 w(163) = 0.0111656507743308312328559850485D+00 w(164) = 0.0111048326374699756056269264803D+00 w(165) = 0.0110423615803254284301924654946D+00 w(166) = 0.0109782469015224934483083029166D+00 w(167) = 0.0109124981443345193856719616965D+00 w(168) = 0.0108451250952624130885928632830D+00 w(169) = 0.0107761377825779489945556541150D+00 w(170) = 0.0107055464748310917616231511294D+00 w(171) = 0.0106333616793215542382761147904D+00 w(172) = 0.0105595941405348182788823332058D+00 w(173) = 0.0104842548385428511997370260353D+00 w(174) = 0.0104073549873697559257355517893D+00 w(175) = 0.0103289060333225980974485876288D+00 w(176) = 0.0102489196532876585918958554047D+00 w(177) = 0.0101674077529923650568895461852D+00 w(178) = 0.0100843824652331611676814627839D+00 w(179) = 0.0099998561480695773850435626986D+00 w(180) = 0.0099138413829847720250916955489D+00 w(181) = 0.0098263509730128164423854701706D+00 w(182) = 0.0097373979408330030783691793250D+00 w(183) = 0.0096469955268314600363329731559D+00 w(184) = 0.0095551571871303607110514249099D+00 w(185) = 0.0094618965915850218253881576301D+00 w(186) = 0.0093672276217491880067391857021D+00 w(187) = 0.0092711643688088057725325917169D+00 w(188) = 0.0091737211314845944854270065178D+00 w(189) = 0.0090749124139037264846862498962D+00 w(190) = 0.0089747529234409331997949023068D+00 w(191) = 0.0088732575685293586050755892934D+00 w(192) = 0.0087704414564414858792445834744D+00 w(193) = 0.0086663198910404675908861979240D+00 w(194) = 0.0085609083705021941391459209280D+00 w(195) = 0.0084542225850084395379670551258D+00 w(196) = 0.0083462784144114279413811886655D+00 w(197) = 0.0082370919258701685661946145361D+00 w(198) = 0.0081266793714589108764118189068D+00 w(199) = 0.0080150571857480760504667455353D+00 w(200) = 0.0079022419833580248574070864277D+00 w(201) = 0.0077882505564860261212726654404D+00 w(202) = 0.0076730998724067939537782250476D+00 w(203) = 0.0075568070709469658838993300454D+00 w(204) = 0.0074393894619338979090297315972D+00 w(205) = 0.0073208645226191563361371026044D+00 w(206) = 0.0072012498950770900730828552207D+00 w(207) = 0.0070805633835788707705149901066D+00 w(208) = 0.0069588229519423919043121805236D+00 w(209) = 0.0068360467208584215286561508406D+00 w(210) = 0.0067122529651934070221351960200D+00 w(211) = 0.0065874601112693336961737372300D+00 w(212) = 0.0064616867341210426397202932350D+00 w(213) = 0.0063349515547314166407936938524D+00 w(214) = 0.0062072734372448464599330978665D+00 w(215) = 0.0060786713861593931405204596709D+00 w(216) = 0.0059491645434980654366600347567D+00 w(217) = 0.0058187721859596348346566361185D+00 w(218) = 0.0056875137220494140577838938236D+00 w(219) = 0.0055554086891904284012033890901D+00 w(220) = 0.0054224767508154127788846727083D+00 w(221) = 0.0052887376934400710240953933529D+00 w(222) = 0.0051542114237180378340642003713D+00 w(223) = 0.0050189179654779878773297516544D+00 w(224) = 0.0048828774567433411142588306018D+00 w(225) = 0.0047461101467350184936945641585D+00 w(226) = 0.0046086363928577081326523656522D+00 w(227) = 0.0044704766576701092218388764046D+00 w(228) = 0.0043316515058396297504806208252D+00 w(229) = 0.0041921816010820254766367595011D+00 w(230) = 0.0040520877030864825223229951262D+00 w(231) = 0.0039113906644266662571543468015D+00 w(232) = 0.0037701114274582873548537007645D+00 w(233) = 0.0036282710212037760873102463983D+00 w(234) = 0.0034858905582247143702551557840D+00 w(235) = 0.0033429912314827618499065991316D+00 w(236) = 0.0031995943111899437356540290142D+00 w(237) = 0.0030557211416493711130936102459D+00 w(238) = 0.0029113931380877846359302447381D+00 w(239) = 0.0027666317834818283552560256501D+00 w(240) = 0.0026214586253808109266552781372D+00 w(241) = 0.0024758952727301488651840215879D+00 w(242) = 0.0023299633927021828561308282641D+00 w(243) = 0.0021836847075455253317921866057D+00 w(244) = 0.0020370809914723626741694800322D+00 w(245) = 0.0018901740676190104269878470891D+00 w(246) = 0.0017429858051468299509941139300D+00 w(247) = 0.0015955381166175133369701690235D+00 w(248) = 0.0014478529559255120065233994722D+00 w(249) = 0.0012999523174235227389668643832D+00 w(250) = 0.0011518582377826677880963146741D+00 w(251) = 0.00100359280467969441299468763292D+00 w(252) = 0.00085517818446696565626595950963D+00 w(253) = 0.00070663671051592291949335494247D+00 w(254) = 0.00055799120546880640169677292533D+00 w(255) = 0.00040926648283531339591138751432D+00 w(256) = 0.00026049995580176964436806680831D+00 w(257) = 0.00011191470145601756450862287886D+00 else write ( *, '(a)' ) ' ' write ( *, '(a)' ) 'LEGENDRE_SET - Fatal error!' write ( *, '(a,i8)' ) ' Illegal value of N = ', n write ( *, '(a)' ) & ' Legal values are 1 through 33, 63/64/65, 127/128/129 and 255/256/257.' stop 1 end if return end subroutine timestamp ( ) !*****************************************************************************80 ! !! timestamp() prints the current YMDHMS date as a time stamp. ! ! Example: ! ! 31 May 2001 9:45:54.872 AM ! ! Licensing: ! ! This code is distributed under the MIT license. ! ! Modified: ! ! 04 September 2021 ! ! Author: ! ! John Burkardt ! implicit none character ( len = 8 ) ampm integer d integer h integer m integer mm character ( len = 9 ), parameter, dimension(12) :: month = (/ & 'January ', 'February ', 'March ', 'April ', & 'May ', 'June ', 'July ', 'August ', & 'September', 'October ', 'November ', 'December ' /) integer n integer s integer values(8) integer y call date_and_time ( values = values ) y = values(1) m = values(2) d = values(3) h = values(5) n = values(6) s = values(7) mm = values(8) if ( h < 12 ) then ampm = 'AM' else if ( h == 12 ) then if ( n == 0 .and. s == 0 ) then ampm = 'Noon' else ampm = 'PM' end if else h = h - 12 if ( h < 12 ) then ampm = 'PM' else if ( h == 12 ) then if ( n == 0 .and. s == 0 ) then ampm = 'Midnight' else ampm = 'AM' end if end if end if write ( *, '(i2.2,1x,a,1x,i4,2x,i2,a1,i2.2,a1,i2.2,a1,i3.3,1x,a)' ) & d, trim ( month(m) ), y, h, ':', n, ':', s, '.', mm, trim ( ampm ) return end