/* I0(x) - Quadruple */ /* [0,15.5): */ P1[33] = { 1.00000000000000000000000000000000000e+00, 2.50000000000000000000000000000000000e-01, 2.77777777777777777777777777777777779e-02, 1.73611111111111111111111111111111083e-03, 6.94444444444444444444444444444449108e-05, 1.92901234567901234567901234567853905e-06, 3.93675988914084152179390274631572236e-08, 6.15118732678256487780297303953307469e-10, 7.59405842812662330592959640146193002e-12, 7.59405842812662330592959486994771411e-14, 6.27608134555919281481787961562157257e-16, 4.35838982330499501028963901609513258e-18, 2.57892888952958284633290216759752759e-20, 1.31578004567835859498063743807352147e-22, 5.84791131412603820814035808275571168e-25, 2.28434035708048361004361404800451548e-27, 7.90429189301205834423041758728181758e-30, 2.43959626327530221779537803521876900e-32, 6.75788438580533320595854894826703327e-35, 1.68947109644654239602153081596915483e-37, 3.83100021886675733871724163689480203e-40, 7.91528970342866904594413272561413611e-43, 1.49627405863018698139365798878928887e-45, 2.59769774665516078740718557214698854e-48, 4.15632134882805917464119034520347550e-51, 6.14832848022015178960667680429552612e-54, 8.43488878141065428604958554806851059e-57, 1.07486432616861166276174172563459685e-59, 1.28666328289305198822024236233461582e-62, 1.37245729295774874628038022579554422e-65, 1.71642649655915754818217188454585521e-68, 6.42133551177881248636744515323368258e-72, 2.93990539325117515154720726204799338e-74}; /* [15.5,Inf): */ P2[46] = { 3.33094095073755755465308169515679754e-01, -4.87305575020532173309650536123692992e+00, 1.16765891025166570372673307538545807e+00, 2.64107028015824651013530450189957215e+03, 3.29947497422711739169516563125826777e+02, 1.85360637074230573336349486640079127e+02, 1.92716946160432511352351625380961688e+02, 2.94374157084426440123892033050844719e+02, 5.94369974672125230816192833403509948e+02, 1.49338188597066557028520330783876602e+03, 4.49070212230053277828526595070904928e+03, 1.57364639902573996182985842231707641e+04, 6.09475654654342361774769290134171804e+04, 6.74843325301108470040298999048635726e+05, -6.57083582192662169318674677284026011e+07, 9.83172447953771800483159480192563859e+09, -1.23905750827828029147738416146512108e+12, 1.35560883142284024977500631878243972e+14, -1.29343718391927120913858066893326175e+16, 1.08130315540350608880516332890283373e+18, -7.95087530860069987411846664771880366e+19, 5.15861021545066736428201155306431096e+21, -2.96090425993185982903689108288073850e+23, 1.50651836855858836083071762402341231e+25, -6.80526037590684842951323289698851799e+26, 2.73203132967909651102779478756247727e+28, -9.75309923194275182518137234542338189e+29, 3.09640722254712498146426101828630546e+31, -8.73913695514222641997435352487537101e+32, 2.19076945578257225990373580600588103e+34, -4.87120899281572328851130765475319009e+35, 9.58810466892032483163229870526807875e+36, -1.66627420459640895942341335296132587e+38, 2.54807715779107313134088724774425453e+39, -3.41409756541742494848545251263381364e+40, 3.98660860345465130692055711924224814e+41, -4.02958459088507064758116007151695612e+42, 3.49565245578103887077950778697885925e+43, -2.57418585602707614088803903097321313e+44, 1.58622500396250248773886354120038387e+45, -8.02304482873909934532998282613480285e+45, 3.24266546042741906420052016688464442e+46, -1.00665425805861133618962888863945150e+47, 2.25310991683789163051367847410612888e+47, -3.23574657445200742953438267415045330e+47, 2.23881303334352384470482998051927380e+47}; Q2[4] = { 8.34943076824502833362836053862403964e-01, -1.23193072119209042422963284443456931e+01, 4.40809330596253724239279903622218481e+00, 6.62043547609998683454530303968680120e+03};