diff options
Diffstat (limited to '2.3-1/src/c/operations/division/testLDivision.c')
| -rw-r--r-- | 2.3-1/src/c/operations/division/testLDivision.c | 1440 |
1 files changed, 1440 insertions, 0 deletions
diff --git a/2.3-1/src/c/operations/division/testLDivision.c b/2.3-1/src/c/operations/division/testLDivision.c new file mode 100644 index 00000000..10f069ad --- /dev/null +++ b/2.3-1/src/c/operations/division/testLDivision.c @@ -0,0 +1,1440 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ +#include <stdlib.h> +#include <stdio.h> +#include <assert.h> +#include <math.h> +#include "division.h" +/* +#define LOCAL_DEBUG +*/ + +#define numF {0.4863167726434767246246f,0.7351270420476794242859f,0.4931047945283353328705f, \ +0.4674215372651815414429f,0.9385177572257816791534f,0.1922166878357529640198f, \ +0.5954132671467959880829f,0.8327809907495975494385f,0.6687640086747705936432f, \ +0.2286918228492140769958f,0.0092464587651193141937f,0.2995736915618181228638f, \ +0.2700363886542618274689f,0.7742356555536389350891f,0.4557857620529830455780f, \ +0.7828153371810913085938f,0.4748650141991674900055f,0.6544588236138224601746f, \ +0.0774390711449086666107f,0.7298626285046339035034f,0.3178048436529934406281f, \ +0.7616757610812783241272f,0.7946523050777614116669f,0.4113068245351314544678f, \ +0.7725206376053392887115f,0.3331029405817389488220f,0.2467053062282502651215f, \ +0.2411641720682382583618f,0.4572312948293983936310f,0.0552289905026555061340f, \ +0.6602421137504279613495f,0.5951132103800773620605f,0.5022635632194578647614f, \ +0.2131066871806979179382f,0.4892856120131909847260f,0.0955289509147405624390f, \ +0.1734651257283985614777f,0.6033168220892548561096f,0.1704865540377795696259f, \ +0.8320639319717884063721f,0.3452270613051950931549f,0.4293539440259337425232f, \ +0.8373569599352777004242f,0.4865261483937501907349f,0.4168656808324158191681f, \ +0.8981839763000607490540f,0.3372378903441131114960f,0.8308038562536239624023f, \ +0.7661137380637228488922f,0.7367237089201807975769f,0.3947515948675572872162f, \ +0.5665872525423765182495f,0.3334710155613720417023f,0.3469921657815575599670f, \ +0.2654880355112254619598f,0.9756370298564434051514f,0.4311642856337130069733f, \ +0.818683846853673458099f,0.7236757851205766201019f,0.3493498060852289199829f, \ +0.3704666462726891040802f,0.5179138453677296638489f,0.7275873008184134960175f, \ +0.6663704290986061096191f,0.0011262320913374423981f,0.4708848400041460990906f, \ +0.6064285724423825740814f,0.4870011564344167709351f,0.7566543002612888813019f, \ +0.2612259620800614356995f,0.1124631459824740886688f,0.5331577099859714508057f, \ +0.2992226914502680301666f,0.6597535377368330955505f,0.1821205220185220241547f, \ +0.9226222056895494461060f,0.3579206657595932483673f,0.70540370512753725052f, \ +0.7498389291577041149139f,0.5263429582118988037109f,0.8541211136616766452789f, \ +0.4560869066044688224792f,0.4583924724720418453217f,0.4175311606377363204956f, \ +0.9077061419375240802765f,0.1282142559066414833069f,0.6094526569359004497528f, \ +0.8813044391572475433350f,0.8179020346142351627350f,0.8436457803472876548767f, \ +0.1981342858634889125824f,0.9536272827535867691040f,0.6124735889025032520294f, \ +0.7028105380013585090637f,0.3752757343463599681854f,0.9582983478903770446777f, \ +0.2590278261341154575348f,0.4027486098930239677429f,0.1812035976909101009369f, \ +0.0107346381992101669312f,0.1321770776994526386261f,0.1188249671831727027893f, \ +0.8947317148558795452118f,0.9573025591671466827393f,0.8303114459849894046783f, \ +0.8688652133569121360779f,0.8411445668898522853851f,0.7189458478242158889771f, \ +0.9357306403107941150665f,0.0784632014110684394836f,0.0029150503687560558319f, \ +0.5078603774309158325195f,0.8118851878680288791656f,0.5662105260416865348816f, \ +0.2769066258333623409271f,0.8859658371657133102417f,0.0314770196564495563507f, \ +0.6675978908315300941467f,0.7218098412267863750458f,0.1339242868125438690186f, \ +0.5291694314219057559967f,0.7163383504375815391541f,0.6395632303319871425629f, \ +0.8994555864483118057251f,0.0726564195938408374786f,0.6018624277785420417786f, \ +0.8345085862092673778534f,0.5936997011303901672363f,0.1458413922227919101715f, \ +0.6217351062223315238953f,0.8940306096337735652924f,0.5043758805841207504272f, \ +0.8378752549178898334503f,0.3477446967735886573792f,0.8344309325329959392548f, \ +0.0944887138903141021729f,0.8318038717843592166901f,0.7244135802611708641052f, \ +0.9557865164242684841156f,0.4553310591727495193481f,0.0865749013610184192657f, \ +0.1186808245256543159485f,0.2495424258522689342499f,0.3825338482856750488281f, \ +0.3061540075577795505524f,0.5395066766068339347839f,0.2025889768265187740326f, \ +0.0439127665013074874878f,0.7895004455931484699249f,0.7461489299312233924866f, \ +0.3415732602588832378387f,0.7078618071973323822021f,0.7551520229317247867584f, \ +0.4638611664995551109314f,0.3611950404010713100433f,0.5010437015444040298462f, \ +0.7341694352217018604279f,0.4257628740742802619934f,0.1802370282821357250214f, \ +0.6641272231936454772949f,0.1251899772323668003082f,0.4596314383670687675476f, \ +0.7690795301459729671478f,0.2743213679641485214233f,0.5053406287916004657745f, \ +0.3383660102263092994690f,0.0924494708888232707977f,0.9034564085304737091064f, \ +0.7907605157233774662018f,0.6128732478246092796326f,0.0111537924967706203461f, \ +0.1803618241101503372192f,0.8404827457852661609650f,0.1461249338462948799133f, \ +0.4865472274832427501678f,0.726291105151176452637f,0.5974256196059286594391f, \ +0.5671374676749110221863f,0.931484447326511144638f,0.4321434330195188522339f, \ +0.3602432166226208209991f,0.3636232325807213783264f,0.0515065859071910381317f, \ +0.546232234686613082886f,0.2797853560186922550201f,0.8320638379082083702087f, \ +0.0200121379457414150238f,0.5413506124168634414673f,0.6739169326610863208771f, \ +0.6039552362635731697083f,0.3311622324399650096893f,0.2298836484551429748535f, \ +0.2544466280378401279449f,0.9669747157022356987000f,0.1742702811025083065033f, \ +0.0957175847142934799194f,0.8599149961955845355988f,0.6998197669163346290588f, \ +0.6734260017983615398407f,0.3116958774626255035400f} + + +#define denF {0.5382980355061590671539f,0.2007744638249278068542f,0.2641933872364461421967f, \ +0.8457476180046796798706f,0.1300224070437252521515f,0.3342894474044442176819f, \ +0.0829705516807734966278f,0.4690896831452846527100f,0.1495246351696550846100f, \ +0.1354982545599341392517f,0.9212783402763307094574f,0.6837693993002176284790f, \ +0.138241392094641923904f,0.5700643183663487434387f,0.6155020031146705150604f, \ +0.4131947979331016540527f,0.7962015741504728794098f,0.0440120948478579521179f, \ +0.8602650105021893978119f,0.9661422576755285263062f,0.9491893877275288105011f, \ +0.7854409301653504371643f,0.0574280763976275920868f,0.4760875590145587921143f, \ +0.8655168102122843265533f,0.7086608028039336204529f,0.6240725568495690822601f, \ +0.7448338139802217483521f,0.5161554259248077869415f,0.4794999407604336738586f, \ +0.1032182234339416027069f,0.9591862708330154418945f,0.8719776370562613010406f, \ +0.0005343137308955192566f,0.921025411691516637802f,0.2494239937514066696167f, \ +0.8318572496064007282257f,0.0349890002980828285217f,0.1342315445654094219208f, \ +0.5583184175193309783936f,0.8753794343210756778717f,0.1880614301189780235291f, \ +0.0115720308385789394379f,0.7894487772136926651001f,0.0339100626297295093536f, \ +0.9644165011122822761536f,0.7929355385713279247284f,0.7035644128918647766113f, \ +0.2737744175828993320465f,0.1206035716459155082703f,0.4700036435388028621674f, \ +0.5317439492791891098022f,0.8852952797897160053253f,0.0311453277245163917542f, \ +0.9321248526684939861298f,0.7741013504564762115479f,0.9714403883554041385651f, \ +0.2870485251769423484802f,0.321173002477735280991f,0.1527888495475053787231f, \ +0.6298292768187820911407f,0.2454866068437695503235f,0.9391400325112044811249f, \ +0.1880467534065246582031f,0.9218494840897619724274f,0.7494041947647929191589f, \ +0.5522131337784230709076f,0.3660501223057508468628f,0.2226321403868496417999f, \ +0.7357934573665261268616f,0.4350862721912562847137f,0.3673023246228694915771f, \ +0.0456369281746447086334f,0.9513923516497015953064f,0.9992560870014131069183f, \ +0.3243254665285348892212f,0.935596418101340532303f,0.4945547403767704963684f, \ +0.3490521642379462718964f,0.5773976966738700866699f,0.5235697799362242221832f, \ +0.4020423842594027519226f,0.6091516851447522640228f,0.8970873858779668807983f, \ +0.3378558685071766376495f,0.999488809145987033844f,0.3673284496180713176727f, \ +0.6423341818153858184814f,0.4645156846381723880768f,0.2342850482091307640076f, \ +0.0761862746439874172211f,0.8228269387036561965942f,0.6512542110867798328400f, \ +0.7096372591331601142883f,0.7576267677359282970428f,0.5344285219907760620117f, \ +0.9484116234816610813141f,0.6385462163016200065613f,0.8538014753721654415131f, \ +0.7363974880427122116089f,0.4808138762600719928741f,0.4364586779847741127014f, \ +0.568298406433314085007f,0.8391566388309001922607f,0.4442326636053621768951f, \ +0.1713406285271048545837f,0.5413129306398332118988f,0.0713584516197443008423f, \ +0.9202047553844749927521f,0.5899223955348134040833f,0.2025530519895255565643f, \ +0.0949973836541175842285f,0.6029607080854475498199f,0.9388656420633196830750f, \ +0.6456290571950376033783f,0.8373190518468618392944f,0.0322129507549107074738f, \ +0.2996022338047623634338f,0.3676775391213595867157f,0.0082762874662876129150f, \ +0.4255532459355890750885f,0.6555949812754988670349f,0.7179697952233254909515f, \ +0.2722820658236742019653f,0.7042095256038010120392f,0.4107702570036053657532f, \ +0.3992546009831130504608f,0.5430093109607696533203f,0.8059121021069586277008f, \ +0.5778724877163767814636f,0.8655853583477437496185f,0.3699875753372907638550f, \ +0.8786192541010677814484f,0.3554905215278267860413f,0.9603816191665828227997f, \ +0.8857465945184230804443f,0.4488521874882280826569f,0.3125058701261878013611f, \ +0.6384749836288392543793f,0.2822567168623208999634f,0.1583893713541328907013f, \ +0.8987128259614109992981f,0.1158893737010657787323f,0.2854162082076072692871f, \ +0.1630702489055693149567f,0.5003604544326663017273f,0.2911056815646588802338f, \ +0.5963354315608739852905f,0.7874583234079182147980f,0.7593664610758423805237f, \ +0.7815607930533587932587f,0.7681679017841815948486f,0.5291136191226541996002f, \ +0.3749529337510466575623f,0.4191309860907495021820f,0.4872382152825593948364f, \ +0.0062245172448456287384f,0.1064539598301053047180f,0.5483497041277587413788f, \ +0.7272168546915054321289f,0.9423489668406546115875f,0.1960451183840632438660f, \ +0.9711097045801579952240f,0.7450918685644865036011f,0.7820150707848370075226f, \ +0.9301448473706841468811f,0.8815995822660624980927f,0.3876874260604381561279f, \ +0.0309310466982424259186f,0.5582376858219504356384f,0.6352246678434312343597f, \ +0.6774792466312646865845f,0.9145545628853142261505f,0.2878693910315632820129f, \ +0.6952623012475669384003f,0.1464569047093391418457f,0.4487714492715895175934f, \ +0.5745639307424426078796f,0.6010014801286160945892f,0.8867830093950033187866f, \ +0.5164337833411991596222f,0.4254123503342270851135f,0.3011168832890689373016f, \ +0.786999259144067764282f,0.0435073510743677616119f,0.9350835150107741355896f, \ +0.6960272691212594509125f,0.9225293714553117752075f,0.8685784828849136829376f, \ +0.7730067269876599311829f,0.7329882490448653697968f,0.5692288875579833984375f, \ +0.3994702645577490329742f,0.8404762176796793937683f,0.8976694359444081783295f, \ +0.8087318520992994308472f,0.6507181231863796710968f,0.8164275148883461952209f, \ +0.4459659676067531108856f,0.1943443678319454193115f} + + +#define resF {1.1068876620893153273073f,0.2731153288357821562471f,0.5357753365370385711941f, \ +1.8093894923050217737881f,0.1385401672399528272273f,1.7391281223724490700988f, \ +0.1393495178203974227404f,0.5632809686530556581019f,0.2235835559780715298128f, \ +0.5924927829591603023474f,99.635802600634079340125f,2.2824747918797778645228f, \ +0.5119361608395592844190f,0.7362930320726552846367f,1.3504195487421153387686f, \ +0.5278317609629509243874f,1.6766903232347427632476f,0.0672496011358359180310f, \ +11.108927286749212370864f,1.32373164475483817704f,2.986705227073049417896f, \ +1.0312011623559280693030f,0.0722681807259187569681f,1.1574997802495594623196f, \ +1.1203801789622278572978f,2.1274528575650260009411f,2.5296276208675498864409f, \ +3.0884928204404604734634f,1.128871605600388905444f,8.682033410286187802285f, \ +0.156333898253812636492f,1.6117710951508164018975f,1.7360957491460742296852f, \ +0.0025072593355198783370f,1.8823880961917311971376f,2.610978047628903286892f, \ +4.79553020304999844114f,0.0579944052892769276730f,0.7873438777797333587571f, \ +0.6710042294421446618102f,2.5356628504484581831946f,0.4380102540938083932609f, \ +0.0138197105801489764088f,1.6226235317876158692485f,0.0813452970319274021316f, \ +1.073740488095831890902f,2.351264674803376752976f,0.8468477939720634450893f, \ +0.3573547947003760105744f,0.1637025796586412118572f,1.1906313987065544335309f, \ +0.9385031994510300012990f,2.6547892874569369858762f,0.0897580141452627294774f, \ +3.5109862893579681930589f,0.7934317033562969800897f,2.2530632075140655246059f, \ +0.3506219479963034180159f,0.4438078613121239635042f,0.4373520376600132930633f, \ +1.700097115774314993075f,0.4739912034393846673730f,1.2907592414749813336527f, \ +0.2821955254840674554018f,818.52532100646453727677f,1.5914808273678857641897f, \ +0.9105988056505853744937f,0.7516411767598049076256f,0.2942323070257712447351f, \ +2.8166934538498038520515f,3.8687008832125218127374f,0.6889187153132119156851f, \ +0.1525182731077390219099f,1.4420420615147946374890f,5.486784662849729876655f, \ +0.3515257540177461059727f,2.6139770837645857071152f,0.7010946168582355975119f, \ +0.4655028575670743240522f,1.096998995931123044301f,0.6129924334637322225205f, \ +0.8815038941866950583659f,1.3288867547490224030327f,2.1485519416269607262393f, \ +0.3722084195508624238080f,7.795457705372165868596f,0.6027185958378803443125f, \ +0.7288448273670578014816f,0.5679356022842784179616f,0.2777054703132481594530f, \ +0.3845183801075117147050f,0.8628391338886128858476f,1.0633180318089598959119f, \ +1.0097134586957323687528f,2.0188536012207980441246f,0.5576849038373914435596f, \ +3.66142756798108282013f,1.5854709379908906718981f,4.7118351194579819463115f, \ +68.6001218091257953802f,3.6376494671289218985066f,3.6731226469598623474155f, \ +0.6351606822441224764475f,0.8765845560477416587020f,0.5350193180564598582905f, \ +0.1972004700995223513971f,0.6435432765634424567835f,0.0992542787967969769580f, \ +0.9834077412265110895717f,7.5184594169719387579676f,69.4852665876786659283f, \ +0.1870541351043674693777f,0.7426674572901041937456f,1.6581564610372447887698f, \ +2.3315767734050760751074f,0.9450918045841619763436f,1.0233799484987251560142f, \ +0.4487764834481295372903f,0.5093828292732275331289f,0.0617982567857320377880f, \ +0.8041909087456269311645f,0.9152029636205054607956f,1.1225939221844238868897f, \ +0.3027187444561179607838f,9.6923235350768326412663f,0.6824985877914779841547f, \ +0.4784307885874682919614f,0.9146194783775245529256f,5.5259490452190824782974f, \ +0.9294512758456500156612f,0.9681831349178503520747f,0.7335552503200706286890f, \ +1.0486277628370475056840f,1.0222744583198670742519f,1.1509420153580014467565f, \ +9.3740993823519449534842f,0.5396130057983075101191f,0.4313915125852843535093f, \ +0.6680100343091925907402f,0.6198933966312950571975f,1.8295068069860944692806f, \ +7.5725192300727837135810f,0.4644074982651374416953f,0.7461201393986430785432f, \ +0.5326412357179206580327f,0.9274407085740377088001f,1.4369275472176299413007f, \ +13.580001422664143007069f,0.9974133995786461648336f,1.0177143337132941169898f, \ +2.2881205409961036245647f,1.0851947286513756729676f,0.7006716569048940801423f, \ +0.8083300798395380848405f,1.1604007231808777245163f,0.9724465426482939989228f, \ +0.0084783116079546021193f,0.2500311002023462569888f,3.042380965521659597073f, \ +1.0949963038624970224078f,7.5273515314372811957355f,0.4265267821551810278891f, \ +1.2626908746301428454473f,2.7161277085125345998051f,1.5475008859961179030762f, \ +2.7489310960890414037f,9.536015444871994262144f,0.4291158072485590224687f, \ +0.0391155679668035854979f,0.9108534069702217683684f,56.951451089604645972031f, \ +3.7562230808750052268863f,1.0881300865145571155068f,1.9700223873795954521171f, \ +1.4289718694810824572983f,0.2016504176777083601202f,0.7511754343036146641666f, \ +1.0130946436989567427389f,0.6452082821710799498405f,2.0520571218652525757875f, \ +1.4335697648463940900854f,1.1699262099260641090126f,5.8461821529318021006816f, \ +1.4407777666134784499974f,0.1555026027575977520812f,1.1238122273905750692080f, \ +34.780255413408944775711f,1.7041254785630945978170f,1.2888509559407714810675f, \ +1.279907318578674679799f,2.2133811686323432432744f,2.4761608378120754103691f, \ +1.5699569989913235712464f,0.8691811730250974532552f,5.1510184654857242847470f, \ +8.4491460426344389134101f,0.7567237762630856234836f,1.1666253991164448056139f, \ +0.6622345534859300775210f,0.6235063787625765296951f} + + +#define numD {0.4863167726434767246246,0.7351270420476794242859,0.4931047945283353328705, \ +0.4674215372651815414429,0.9385177572257816791534,0.1922166878357529640198, \ +0.5954132671467959880829,0.8327809907495975494385,0.6687640086747705936432, \ +0.2286918228492140769958,0.0092464587651193141937,0.2995736915618181228638, \ +0.2700363886542618274689,0.7742356555536389350891,0.4557857620529830455780, \ +0.7828153371810913085938,0.4748650141991674900055,0.6544588236138224601746, \ +0.0774390711449086666107,0.7298626285046339035034,0.3178048436529934406281, \ +0.7616757610812783241272,0.7946523050777614116669,0.4113068245351314544678, \ +0.7725206376053392887115,0.3331029405817389488220,0.2467053062282502651215, \ +0.2411641720682382583618,0.4572312948293983936310,0.0552289905026555061340, \ +0.6602421137504279613495,0.5951132103800773620605,0.5022635632194578647614, \ +0.2131066871806979179382,0.4892856120131909847260,0.0955289509147405624390, \ +0.1734651257283985614777,0.6033168220892548561096,0.1704865540377795696259, \ +0.8320639319717884063721,0.3452270613051950931549,0.4293539440259337425232, \ +0.8373569599352777004242,0.4865261483937501907349,0.4168656808324158191681, \ +0.8981839763000607490540,0.3372378903441131114960,0.8308038562536239624023, \ +0.7661137380637228488922,0.7367237089201807975769,0.3947515948675572872162, \ +0.5665872525423765182495,0.3334710155613720417023,0.3469921657815575599670, \ +0.2654880355112254619598,0.9756370298564434051514,0.4311642856337130069733, \ +0.818683846853673458099,0.7236757851205766201019,0.3493498060852289199829, \ +0.3704666462726891040802,0.5179138453677296638489,0.7275873008184134960175, \ +0.6663704290986061096191,0.0011262320913374423981,0.4708848400041460990906, \ +0.6064285724423825740814,0.4870011564344167709351,0.7566543002612888813019, \ +0.2612259620800614356995,0.1124631459824740886688,0.5331577099859714508057, \ +0.2992226914502680301666,0.6597535377368330955505,0.1821205220185220241547, \ +0.9226222056895494461060,0.3579206657595932483673,0.70540370512753725052, \ +0.7498389291577041149139,0.5263429582118988037109,0.8541211136616766452789, \ +0.4560869066044688224792,0.4583924724720418453217,0.4175311606377363204956, \ +0.9077061419375240802765,0.1282142559066414833069,0.6094526569359004497528, \ +0.8813044391572475433350,0.8179020346142351627350,0.8436457803472876548767, \ +0.1981342858634889125824,0.9536272827535867691040,0.6124735889025032520294, \ +0.7028105380013585090637,0.3752757343463599681854,0.9582983478903770446777, \ +0.2590278261341154575348,0.4027486098930239677429,0.1812035976909101009369, \ +0.0107346381992101669312,0.1321770776994526386261,0.1188249671831727027893, \ +0.8947317148558795452118,0.9573025591671466827393,0.8303114459849894046783, \ +0.8688652133569121360779,0.8411445668898522853851,0.7189458478242158889771, \ +0.9357306403107941150665,0.0784632014110684394836,0.0029150503687560558319, \ +0.5078603774309158325195,0.8118851878680288791656,0.5662105260416865348816, \ +0.2769066258333623409271,0.8859658371657133102417,0.0314770196564495563507, \ +0.6675978908315300941467,0.7218098412267863750458,0.1339242868125438690186, \ +0.5291694314219057559967,0.7163383504375815391541,0.6395632303319871425629, \ +0.8994555864483118057251,0.0726564195938408374786,0.6018624277785420417786, \ +0.8345085862092673778534,0.5936997011303901672363,0.1458413922227919101715, \ +0.6217351062223315238953,0.8940306096337735652924,0.5043758805841207504272, \ +0.8378752549178898334503,0.3477446967735886573792,0.8344309325329959392548, \ +0.0944887138903141021729,0.8318038717843592166901,0.7244135802611708641052, \ +0.9557865164242684841156,0.4553310591727495193481,0.0865749013610184192657, \ +0.1186808245256543159485,0.2495424258522689342499,0.3825338482856750488281, \ +0.3061540075577795505524,0.5395066766068339347839,0.2025889768265187740326, \ +0.0439127665013074874878,0.7895004455931484699249,0.7461489299312233924866, \ +0.3415732602588832378387,0.7078618071973323822021,0.7551520229317247867584, \ +0.4638611664995551109314,0.3611950404010713100433,0.5010437015444040298462, \ +0.7341694352217018604279,0.4257628740742802619934,0.1802370282821357250214, \ +0.6641272231936454772949,0.1251899772323668003082,0.4596314383670687675476, \ +0.7690795301459729671478,0.2743213679641485214233,0.5053406287916004657745, \ +0.3383660102263092994690,0.0924494708888232707977,0.9034564085304737091064, \ +0.7907605157233774662018,0.6128732478246092796326,0.0111537924967706203461, \ +0.1803618241101503372192,0.8404827457852661609650,0.1461249338462948799133, \ +0.4865472274832427501678,0.726291105151176452637,0.5974256196059286594391, \ +0.5671374676749110221863,0.931484447326511144638,0.4321434330195188522339, \ +0.3602432166226208209991,0.3636232325807213783264,0.0515065859071910381317, \ +0.546232234686613082886,0.2797853560186922550201,0.8320638379082083702087, \ +0.0200121379457414150238,0.5413506124168634414673,0.6739169326610863208771, \ +0.6039552362635731697083,0.3311622324399650096893,0.2298836484551429748535, \ +0.2544466280378401279449,0.9669747157022356987000,0.1742702811025083065033, \ +0.0957175847142934799194,0.8599149961955845355988,0.6998197669163346290588, \ +0.6734260017983615398407,0.3116958774626255035400} + + +#define denD {0.5382980355061590671539,0.2007744638249278068542,0.2641933872364461421967, \ +0.8457476180046796798706,0.1300224070437252521515,0.3342894474044442176819, \ +0.0829705516807734966278,0.4690896831452846527100,0.1495246351696550846100, \ +0.1354982545599341392517,0.9212783402763307094574,0.6837693993002176284790, \ +0.138241392094641923904,0.5700643183663487434387,0.6155020031146705150604, \ +0.4131947979331016540527,0.7962015741504728794098,0.0440120948478579521179, \ +0.8602650105021893978119,0.9661422576755285263062,0.9491893877275288105011, \ +0.7854409301653504371643,0.0574280763976275920868,0.4760875590145587921143, \ +0.8655168102122843265533,0.7086608028039336204529,0.6240725568495690822601, \ +0.7448338139802217483521,0.5161554259248077869415,0.4794999407604336738586, \ +0.1032182234339416027069,0.9591862708330154418945,0.8719776370562613010406, \ +0.0005343137308955192566,0.921025411691516637802,0.2494239937514066696167, \ +0.8318572496064007282257,0.0349890002980828285217,0.1342315445654094219208, \ +0.5583184175193309783936,0.8753794343210756778717,0.1880614301189780235291, \ +0.0115720308385789394379,0.7894487772136926651001,0.0339100626297295093536, \ +0.9644165011122822761536,0.7929355385713279247284,0.7035644128918647766113, \ +0.2737744175828993320465,0.1206035716459155082703,0.4700036435388028621674, \ +0.5317439492791891098022,0.8852952797897160053253,0.0311453277245163917542, \ +0.9321248526684939861298,0.7741013504564762115479,0.9714403883554041385651, \ +0.2870485251769423484802,0.321173002477735280991,0.1527888495475053787231, \ +0.6298292768187820911407,0.2454866068437695503235,0.9391400325112044811249, \ +0.1880467534065246582031,0.9218494840897619724274,0.7494041947647929191589, \ +0.5522131337784230709076,0.3660501223057508468628,0.2226321403868496417999, \ +0.7357934573665261268616,0.4350862721912562847137,0.3673023246228694915771, \ +0.0456369281746447086334,0.9513923516497015953064,0.9992560870014131069183, \ +0.3243254665285348892212,0.935596418101340532303,0.4945547403767704963684, \ +0.3490521642379462718964,0.5773976966738700866699,0.5235697799362242221832, \ +0.4020423842594027519226,0.6091516851447522640228,0.8970873858779668807983, \ +0.3378558685071766376495,0.999488809145987033844,0.3673284496180713176727, \ +0.6423341818153858184814,0.4645156846381723880768,0.2342850482091307640076, \ +0.0761862746439874172211,0.8228269387036561965942,0.6512542110867798328400, \ +0.7096372591331601142883,0.7576267677359282970428,0.5344285219907760620117, \ +0.9484116234816610813141,0.6385462163016200065613,0.8538014753721654415131, \ +0.7363974880427122116089,0.4808138762600719928741,0.4364586779847741127014, \ +0.568298406433314085007,0.8391566388309001922607,0.4442326636053621768951, \ +0.1713406285271048545837,0.5413129306398332118988,0.0713584516197443008423, \ +0.9202047553844749927521,0.5899223955348134040833,0.2025530519895255565643, \ +0.0949973836541175842285,0.6029607080854475498199,0.9388656420633196830750, \ +0.6456290571950376033783,0.8373190518468618392944,0.0322129507549107074738, \ +0.2996022338047623634338,0.3676775391213595867157,0.0082762874662876129150, \ +0.4255532459355890750885,0.6555949812754988670349,0.7179697952233254909515, \ +0.2722820658236742019653,0.7042095256038010120392,0.4107702570036053657532, \ +0.3992546009831130504608,0.5430093109607696533203,0.8059121021069586277008, \ +0.5778724877163767814636,0.8655853583477437496185,0.3699875753372907638550, \ +0.8786192541010677814484,0.3554905215278267860413,0.9603816191665828227997, \ +0.8857465945184230804443,0.4488521874882280826569,0.3125058701261878013611, \ +0.6384749836288392543793,0.2822567168623208999634,0.1583893713541328907013, \ +0.8987128259614109992981,0.1158893737010657787323,0.2854162082076072692871, \ +0.1630702489055693149567,0.5003604544326663017273,0.2911056815646588802338, \ +0.5963354315608739852905,0.7874583234079182147980,0.7593664610758423805237, \ +0.7815607930533587932587,0.7681679017841815948486,0.5291136191226541996002, \ +0.3749529337510466575623,0.4191309860907495021820,0.4872382152825593948364, \ +0.0062245172448456287384,0.1064539598301053047180,0.5483497041277587413788, \ +0.7272168546915054321289,0.9423489668406546115875,0.1960451183840632438660, \ +0.9711097045801579952240,0.7450918685644865036011,0.7820150707848370075226, \ +0.9301448473706841468811,0.8815995822660624980927,0.3876874260604381561279, \ +0.0309310466982424259186,0.5582376858219504356384,0.6352246678434312343597, \ +0.6774792466312646865845,0.9145545628853142261505,0.2878693910315632820129, \ +0.6952623012475669384003,0.1464569047093391418457,0.4487714492715895175934, \ +0.5745639307424426078796,0.6010014801286160945892,0.8867830093950033187866, \ +0.5164337833411991596222,0.4254123503342270851135,0.3011168832890689373016, \ +0.786999259144067764282,0.0435073510743677616119,0.9350835150107741355896, \ +0.6960272691212594509125,0.9225293714553117752075,0.8685784828849136829376, \ +0.7730067269876599311829,0.7329882490448653697968,0.5692288875579833984375, \ +0.3994702645577490329742,0.8404762176796793937683,0.8976694359444081783295, \ +0.8087318520992994308472,0.6507181231863796710968,0.8164275148883461952209, \ +0.4459659676067531108856,0.1943443678319454193115} + + +#define resD {1.1068876620893153273073,0.2731153288357821562471,0.5357753365370385711941, \ +1.8093894923050217737881,0.1385401672399528272273,1.7391281223724490700988, \ +0.1393495178203974227404,0.5632809686530556581019,0.2235835559780715298128, \ +0.5924927829591603023474,99.635802600634079340125,2.2824747918797778645228, \ +0.5119361608395592844190,0.7362930320726552846367,1.3504195487421153387686, \ +0.5278317609629509243874,1.6766903232347427632476,0.0672496011358359180310, \ +11.108927286749212370864,1.32373164475483817704,2.986705227073049417896, \ +1.0312011623559280693030,0.0722681807259187569681,1.1574997802495594623196, \ +1.1203801789622278572978,2.1274528575650260009411,2.5296276208675498864409, \ +3.0884928204404604734634,1.128871605600388905444,8.682033410286187802285, \ +0.156333898253812636492,1.6117710951508164018975,1.7360957491460742296852, \ +0.0025072593355198783370,1.8823880961917311971376,2.610978047628903286892, \ +4.79553020304999844114,0.0579944052892769276730,0.7873438777797333587571, \ +0.6710042294421446618102,2.5356628504484581831946,0.4380102540938083932609, \ +0.0138197105801489764088,1.6226235317876158692485,0.0813452970319274021316, \ +1.073740488095831890902,2.351264674803376752976,0.8468477939720634450893, \ +0.3573547947003760105744,0.1637025796586412118572,1.1906313987065544335309, \ +0.9385031994510300012990,2.6547892874569369858762,0.0897580141452627294774, \ +3.5109862893579681930589,0.7934317033562969800897,2.2530632075140655246059, \ +0.3506219479963034180159,0.4438078613121239635042,0.4373520376600132930633, \ +1.700097115774314993075,0.4739912034393846673730,1.2907592414749813336527, \ +0.2821955254840674554018,818.52532100646453727677,1.5914808273678857641897, \ +0.9105988056505853744937,0.7516411767598049076256,0.2942323070257712447351, \ +2.8166934538498038520515,3.8687008832125218127374,0.6889187153132119156851, \ +0.1525182731077390219099,1.4420420615147946374890,5.486784662849729876655, \ +0.3515257540177461059727,2.6139770837645857071152,0.7010946168582355975119, \ +0.4655028575670743240522,1.096998995931123044301,0.6129924334637322225205, \ +0.8815038941866950583659,1.3288867547490224030327,2.1485519416269607262393, \ +0.3722084195508624238080,7.795457705372165868596,0.6027185958378803443125, \ +0.7288448273670578014816,0.5679356022842784179616,0.2777054703132481594530, \ +0.3845183801075117147050,0.8628391338886128858476,1.0633180318089598959119, \ +1.0097134586957323687528,2.0188536012207980441246,0.5576849038373914435596, \ +3.66142756798108282013,1.5854709379908906718981,4.7118351194579819463115, \ +68.6001218091257953802,3.6376494671289218985066,3.6731226469598623474155, \ +0.6351606822441224764475,0.8765845560477416587020,0.5350193180564598582905, \ +0.1972004700995223513971,0.6435432765634424567835,0.0992542787967969769580, \ +0.9834077412265110895717,7.5184594169719387579676,69.4852665876786659283, \ +0.1870541351043674693777,0.7426674572901041937456,1.6581564610372447887698, \ +2.3315767734050760751074,0.9450918045841619763436,1.0233799484987251560142, \ +0.4487764834481295372903,0.5093828292732275331289,0.0617982567857320377880, \ +0.8041909087456269311645,0.9152029636205054607956,1.1225939221844238868897, \ +0.3027187444561179607838,9.6923235350768326412663,0.6824985877914779841547, \ +0.4784307885874682919614,0.9146194783775245529256,5.5259490452190824782974, \ +0.9294512758456500156612,0.9681831349178503520747,0.7335552503200706286890, \ +1.0486277628370475056840,1.0222744583198670742519,1.1509420153580014467565, \ +9.3740993823519449534842,0.5396130057983075101191,0.4313915125852843535093, \ +0.6680100343091925907402,0.6198933966312950571975,1.8295068069860944692806, \ +7.5725192300727837135810,0.4644074982651374416953,0.7461201393986430785432, \ +0.5326412357179206580327,0.9274407085740377088001,1.4369275472176299413007, \ +13.580001422664143007069,0.9974133995786461648336,1.0177143337132941169898, \ +2.2881205409961036245647,1.0851947286513756729676,0.7006716569048940801423, \ +0.8083300798395380848405,1.1604007231808777245163,0.9724465426482939989228, \ +0.0084783116079546021193,0.2500311002023462569888,3.042380965521659597073, \ +1.0949963038624970224078,7.5273515314372811957355,0.4265267821551810278891, \ +1.2626908746301428454473,2.7161277085125345998051,1.5475008859961179030762, \ +2.7489310960890414037,9.536015444871994262144,0.4291158072485590224687, \ +0.0391155679668035854979,0.9108534069702217683684,56.951451089604645972031, \ +3.7562230808750052268863,1.0881300865145571155068,1.9700223873795954521171, \ +1.4289718694810824572983,0.2016504176777083601202,0.7511754343036146641666, \ +1.0130946436989567427389,0.6452082821710799498405,2.0520571218652525757875, \ +1.4335697648463940900854,1.1699262099260641090126,5.8461821529318021006816, \ +1.4407777666134784499974,0.1555026027575977520812,1.1238122273905750692080, \ +34.780255413408944775711,1.7041254785630945978170,1.2888509559407714810675, \ +1.279907318578674679799,2.2133811686323432432744,2.4761608378120754103691, \ +1.5699569989913235712464,0.8691811730250974532552,5.1510184654857242847470, \ +8.4491460426344389134101,0.7567237762630856234836,1.1666253991164448056139, \ +0.6622345534859300775210,0.6235063787625765296951} + + +#define CnumR {0.9886911348439753055573f,0.1642041569575667381287f,0.0116174421273171901703f, \ +0.8040989059954881668091f,0.3511620354838669300079f,0.3538791732862591743469f, \ +0.0420214342884719371796f,0.2273282110691070556641f,0.9304475435055792331696f, \ +0.0305238692089915275574f,0.7304877354763448238373f,0.3167633693665266036987f, \ +0.0185489063151180744171f,0.5621606865897774696350f,0.4824476162903010845184f, \ +0.6829614602029323577881f,0.0907177985645830631256f,0.8980422308668494224548f, \ +0.3069318956695497035980f,0.1443576756864786148071f,0.4171506580896675586700f, \ +0.4542713882401585578918f,0.8413512143306434154510f,0.5767526254057884216309f, \ +0.3367923968471586704254f,0.5443433178588747978210f,0.6477606832049787044525f, \ +0.7295965161174535751343f,0.7869994868524372577667f,0.0733593190088868141174f, \ +0.1243589068762958049774f,0.4778202064335346221924f,0.1828124211169779300690f, \ +0.7146625733003020286560f,0.8759713820181787014008f,0.4779631365090608596802f, \ +0.2395875495858490467072f,0.2876457618549466133118f,0.8872682708315551280975f, \ +0.6973481327295303344727f,0.832738290075212717056f,0.5554805574938654899597f, \ +0.3424665494821965694427f,0.7850530873984098434448f,0.4883357142098248004913f, \ +0.1615189919248223304749f,0.4352665315382182598114f,0.7534295134246349334717f, \ +0.5983185083605349063873f,0.9231166979297995567322f,0.0127727664075791835785f, \ +0.9389179740101099014282f,0.9540623095817863941193f,0.2016280265524983406067f, \ +0.3971493127755820751190f,0.710910387337207794189f,0.6920584165491163730621f, \ +0.5673230392858386039734f,0.2287593870423734188080f,0.897409206256270408630f, \ +0.2454518754966557025909f,0.4779763752594590187073f,0.6745393867604434490204f, \ +0.3962334729731082916260f,0.3951889411546289920807f,0.1898779934272170066833f, \ +0.8453572890721261501312f,0.9405217487365007400513f,0.0145239126868546009064f, \ +0.6200157897546887397766f,0.7661054241470992565155f,0.4872819185256958007812f, \ +0.6006353446282446384430f,0.3781800894066691398621f,0.7422776236198842525482f, \ +0.197737870737910270691f,0.1871016328223049640656f,0.6877400139346718788147f, \ +0.4667807440273463726044f,0.4782230518758296966553f,0.7309859753586351871490f, \ +0.413841723464429378510f,0.7107305652461946010590f,0.0503708962351083755493f, \ +0.5682807085104286670685f,0.9177785338833928108215f,0.9419820639304816722870f, \ +0.5193521305918693542480f,0.0314610176719725131989f,0.9562829090282320976257f, \ +0.7151440619491040706635f,0.4089089538902044296265f,0.8228980232961475849152f, \ +0.3444903278723359107971f,0.1768282498233020305634f,0.1319360919296741485596f, \ +0.2378812418319284915924f,0.6013250267133116722107f,0.5298825851641595363617f, \ +0.8653587270528078079224f,0.8310004216618835926056f,0.2960576163604855537415f, \ +0.8003590661101043224335f,0.7980573028326034545898f,0.6196367540396749973297f, \ +0.3147845743224024772644f,0.7509658797644078731537f,0.7205892037600278854370f, \ +0.4183134590275585651398f,0.7655796119943261146545f,0.2847539256326854228973f, \ +0.4254573099315166473389f,0.3976557464338839054108f,0.7410669168457388877869f, \ +0.1827877140603959560394f,0.8866754267364740371704f,0.461710151750594377518f, \ +0.657166269607841968536f,0.5195506396703422069550f,0.6873805895447731018066f, \ +0.537373247090727090836f,0.3867600364610552787781f,0.5998346298001706600189f, \ +0.6642422433942556381226f,0.369679727125912904739f,0.9070320362225174903870f, \ +0.7608641679398715496063f,0.2374182976782321929932f,0.9166998700238764286041f, \ +0.6792282825335860252380f,0.8834046921692788600922f,0.3948080558329820632935f, \ +0.9377963733859360218048f,0.4795896010473370552063f,0.9556053685955703258514f, \ +0.7993520200252532958984f,0.8689905651845037937164f,0.9002061216160655021667f, \ +0.5333262397907674312592f,0.9881285708397626876831f,0.5791879897005856037140f, \ +0.2385436454787850379944f,0.4406997482292354106903f,0.1319975219666957855225f, \ +0.1010133684612810611725f,0.9943918874487280845642f,0.5546766347251832485199f, \ +0.3245405498892068862915f,0.9300049361772835254669f,0.6929845931008458137512f, \ +0.0173062118701636791229f,0.8690484985709190368652f,0.9859181516803801059723f, \ +0.2530415309593081474304f,0.7195010124705731868744f,0.5323055591434240341187f, \ +0.8298887838609516620636f,0.6184823596850037574768f,0.4000358129851520061493f, \ +0.2339203245937824249268f,0.2312053726054728031158f,0.8725623702630400657654f, \ +0.2035310319624841213226f,0.1399537194520235061646f,0.6774410647340118885040f, \ +0.553180103190243244171f,0.0411705034784972667694f,0.6295938044786453247070f, \ +0.9216948249377310276031f,0.3881068406626582145691f,0.5979036255739629268646f, \ +0.1036274563521146774292f,0.1606920217163860797882f,0.1688879737630486488342f, \ +0.3298818836919963359833f,0.1034589223563671112061f,0.9374943883158266544342f, \ +0.9821662446483969688416f,0.2958797491155564785004f,0.7094252500683069229126f, \ +0.3625693586654961109161f,0.5171768637374043464661f,0.1664499524049460887909f, \ +0.6871585920453071594238f,0.7469687783159315586090f,0.6681645018979907035828f, \ +0.2545631318353116512299f,0.3507453855127096176147f,0.2413669903762638568878f, \ +0.1504721576347947120667f,0.9114818568341434001923f,0.6114324070513248443604f, \ +0.5747082964517176151276f,0.3490518992766737937927f,0.1316190264187753200531f, \ +0.1806297022849321365356f,0.4862137925811111927032f,0.1181474821642041206360f, \ +0.7101306426338851451874f,0.3959603905677795410156f} + + +#define CnumI {0.9444975801743566989899f,0.7508988408371806144714f,0.7969929589889943599701f, \ +0.6391073446720838546753f,0.7475423519499599933624f,0.8376184562221169471741f, \ +0.1913140038959681987762f,0.8142067454755306243896f,0.5972843528725206851959f, \ +0.2314895978197455406189f,0.2196294791065156459808f,0.8555385116487741470337f, \ +0.2425577160902321338654f,0.8404364408925175666809f,0.5419330331496894359589f, \ +0.7332636043429374694824f,0.7841481738723814487457f,0.463916058652102947235f, \ +0.7291909097693860530853f,0.9259582068771123886108f,0.7357061435468494892120f, \ +0.3933822894468903541565f,0.9560909713618457317352f,0.8286947794258594512939f, \ +0.9342691884376108646393f,0.9951714789494872093201f,0.6527760974131524562836f, \ +0.0654199887067079544067f,0.8941438538022339344025f,0.9945600973442196846008f, \ +0.4593119579367339611053f,0.1743795126676559448242f,0.6978968777693808078766f, \ +0.6797442315146327018738f,0.3266391619108617305756f,0.6353397201746702194214f, \ +0.0182057772763073444366f,0.7444909522309899330139f,0.1077597807161509990692f, \ +0.7073562256991863250732f,0.3643188090063631534576f,0.9882115563377737998962f, \ +0.4829082465730607509613f,0.0458393190056085586548f,0.1468743053264915943146f, \ +0.5922066839411854743958f,0.5624566259793937206268f,0.5676662698388099670410f, \ +0.6548293852247297763824f,0.1908333105966448783875f,0.0113042681477963924408f, \ +0.5330905076116323471069f,0.5382480402477085590363f,0.4563436144962906837463f, \ +0.0385018284432590007782f,0.3131976760923862457275f,0.8906985954381525516510f, \ +0.4161457186564803123474f,0.0958596668206155300140f,0.8116585630923509597778f, \ +0.5250105452723801136017f,0.2212363081052899360657f,0.6292906212620437145233f, \ +0.0095289051532745361328f,0.5361407645978033542633f,0.5845551220700144767761f, \ +0.7266371562145650386810f,0.6018460672348737716675f,0.7448990945704281330109f, \ +0.6080113211646676063538f,0.0057328860275447368622f,0.1947725974023342132568f, \ +0.1162833035923540592194f,0.2169317295774817466736f,0.58644847339019179344f, \ +0.0320366565138101577759f,0.7461734232492744922638f,0.9206809522584080696106f, \ +0.4904719027690589427948f,0.7194193229079246520996f,0.5101354592479765415192f, \ +0.118203367106616497040f,0.3125731288455426692963f,0.9160387720912694931030f, \ +0.9680844773538410663605f,0.6672369921579957008362f,0.5071030999533832073212f, \ +0.4611813314259052276611f,0.6185570643283426761627f,0.9359492277726531028748f, \ +0.1334771565161645412445f,0.9054294098168611526489f,0.0963431638665497303009f, \ +0.0557444738224148750305f,0.4043928044848144054413f,0.9148363023996353149414f, \ +0.4072272875346243381500f,0.5939936218783259391785f,0.8805318637751042842865f, \ +0.5168978702276945114136f,0.7935891007073223590851f,0.3654354223981499671936f, \ +0.6554969917051494121552f,0.6570710949599742889404f,0.3246133835054934024811f, \ +0.6009997269138693809509f,0.3747325814329087734222f,0.0345895085483789443970f, \ +0.8048593667335808277130f,0.1928026052191853523254f,0.4321800353936851024628f, \ +0.6863254979252815246582f,0.0949394428171217441559f,0.2340633375570178031921f, \ +0.1884174137376248836517f,0.2874494846910238265991f,0.4380572517402470111847f, \ +0.5726932818070054054260f,0.5540334577672183513641f,0.6376359798014163970947f, \ +0.8861551419831812381744f,0.5973066156730055809021f,0.7819859883747994899750f, \ +0.3015665132552385330200f,0.4194210064597427845001f,0.9744029538705945014954f, \ +0.8126946794800460338593f,0.8724794387817382812500f,0.8529044934548437595367f, \ +0.5554718403145670890808f,0.0156182064674794673920f,0.8275166135281324386597f, \ +0.123992592561990022659f,0.1727691153064370155334f,0.6710657696239650249481f, \ +0.4436169527471065521240f,0.0544945956207811832428f,0.5425151577219367027283f, \ +0.0359929925762116909027f,0.7427068594843149185181f,0.1810864326544106006622f, \ +0.9942650021985173225403f,0.3375321957282721996307f,0.9349375292658805847168f, \ +0.7478643828071653842926f,0.2452003313228487968445f,0.5380070446990430355072f, \ +0.3287191297858953475952f,0.45475816028192639351f,0.9380933428183197975159f, \ +0.2151815737597644329071f,0.1763018555939197540283f,0.0555533752776682376862f, \ +0.1616924917325377464294f,0.4014935842715203762054f,0.4236538577824831008911f, \ +0.3992733699269592761993f,0.6722801076248288154602f,0.7260224181227385997772f, \ +0.8333860486745834350586f,0.0086704292334616184235f,0.0351518867537379264832f, \ +0.7029411061666905879974f,0.4494737815111875534058f,0.7895763670094311237335f, \ +0.4047682592645287513733f,0.5102028916589915752411f,0.8725254051387310028076f, \ +0.9648624868132174015045f,0.1623276313766837120056f,0.1022121286951005458832f, \ +0.3143476936966180801392f,0.8267589178867638111115f,0.1295115025714039802551f, \ +0.0002295556478202342987f,0.9005581513047218322754f,0.4012833260931074619293f, \ +0.5771514577791094779968f,0.6042619436047971248627f,0.1899941917508840560913f, \ +0.6185289998538792133331f,0.7475680345669388771057f,0.3701861198060214519501f, \ +0.3796691931784152984619f,0.0825623110868036746979f,0.1093314653262495994568f, \ +0.6958573660813271999359f,0.1640254277735948562622f,0.0346795511431992053986f, \ +0.0631942944601178169250f,0.8599521922878921031952f,0.7172338664531707763672f, \ +0.6037731417454779148102f,0.3179458705708384513855f,0.8572954847477376461029f, \ +0.7672908585518598556519f,0.9375572209246456623077f,0.6549387136474251747131f, \ +0.4744220296852290630341f,0.2306616865098476409912f} + + +#define CdenR {0.0319890365935862064362f,0.1597689306363463401794f,0.7430339208804070949554f, \ +0.9168703723698854446411f,0.8414530497975647449493f,0.9393842564895749092102f, \ +0.8984190779738128185272f,0.0725589841604232788086f,0.8528734245337545871735f, \ +0.6726021049544215202332f,0.8592702611349523067474f,0.0417808722704648971558f, \ +0.7025507246144115924835f,0.8849766561761498451233f,0.0027594636194407939911f, \ +0.8899881355464458465576f,0.0313250035978853702545f,0.2663000663742423057556f, \ +0.6700097895227372646332f,0.7313312981277704238892f,0.2368951407261192798615f, \ +0.884347585029900074005f,0.956500727217644453049f,0.0312716141343116760254f, \ +0.1382475518621504306793f,0.1935445470735430717468f,0.0239577977918088436127f, \ +0.1259902473539113998413f,0.1459442754276096820831f,0.5573052400723099708557f, \ +0.2774765784852206707001f,0.4273443259298801422119f,0.0320204333402216434479f, \ +0.5027936464175581932068f,0.2516311011277139186859f,0.2821198720484972000122f, \ +0.8932410669513046741486f,0.4268560605123639106750f,0.5493166255764663219452f, \ +0.9543316066265106201172f,0.4014673479832708835602f,0.9718755809590220451355f, \ +0.6770767881534993648529f,0.6993196289986371994019f,0.9348821644671261310577f, \ +0.7902984777465462684631f,0.1206651250831782817841f,0.3983929716050624847412f, \ +0.6838250816799700260162f,0.9165824344381690025330f,0.5045909709297120571136f, \ +0.7227700296789407730103f,0.3249866780824959278107f,0.4653166653588414192200f, \ +0.1793997320346534252167f,0.2955658659338951110840f,0.3577122562564909458160f, \ +0.8742639077827334403992f,0.0804375349543988704681f,0.8205763902515172958374f, \ +0.6961649288423359394073f,0.4110742891207337379456f,0.2018502498976886272430f, \ +0.6466094143688678741455f,0.6110980794765055179596f,0.1624210691079497337341f, \ +0.5295668891631066799164f,0.7361125815659761428833f,0.6149871987290680408478f, \ +0.2243082569912075996399f,0.7770173805765807628632f,0.5068481713533401489258f, \ +0.3842710950411856174469f,0.3123001037165522575378f,0.7673347159288823604584f, \ +0.5153647791594266891479f,0.3124524806626141071320f,0.5104224691167473793030f, \ +0.8057914744131267070770f,0.4510158710181713104248f,0.7878079325892031192780f, \ +0.3774860640987753868103f,0.8862207210622727870941f,0.4092752132564783096313f, \ +0.7894572285003960132599f,0.1295815678313374519348f,0.0751712801866233348846f, \ +0.9130991771817207336426f,0.8955420576967298984528f,0.1174966199323534965515f, \ +0.9175473838113248348236f,0.6510859187692403793335f,0.2972641070373356342316f, \ +0.3178046876564621925354f,0.2074826951138675212860f,0.4011814333498477935791f, \ +0.9125325218774378299713f,0.0563758080825209617615f,0.9681987068615853786469f, \ +0.1086824852973222732544f,0.1929707420058548450470f,0.6830592053011059761047f, \ +0.9845975148491561412811f,0.587286412715911865234f,0.7180327125824987888336f, \ +0.4162877826020121574402f,0.7323389663361012935638f,0.8119378071278333663940f, \ +0.1699784700758755207062f,0.0763544896617531776428f,0.0471521834842860698700f, \ +0.2722220681607723236084f,0.7834591032005846500397f,0.9261105647310614585876f, \ +0.3781314617954194545746f,0.3550558332353830337524f,0.8634610888548195362091f, \ +0.3378356518223881721497f,0.9687665435485541820526f,0.2254242822527885437012f, \ +0.4653600030578672885895f,0.5050297928974032402039f,0.8094572662375867366791f, \ +0.1739153172820806503296f,0.8308336068876087665558f,0.9178772950544953346252f, \ +0.7052625860087573528290f,0.8998006172478199005127f,0.6733843074180185794830f, \ +0.8211324727162718772888f,0.3026339760981500148773f,0.6984135676175355911255f, \ +0.9072209936566650867462f,0.3731772648170590400696f,0.4188832002691924571991f, \ +0.0215740650892257690430f,0.9132502474822103977203f,0.7250007269904017448425f, \ +0.5181344612501561641693f,0.3798101972788572311401f,0.9359269295819103717804f, \ +0.7378503987565636634827f,0.6775109241716563701630f,0.0551267974078655242920f, \ +0.7047141403891146183014f,0.5583055457100272178650f,0.8873056150041520595551f, \ +0.5930708739906549453735f,0.8739025560207664966583f,0.7695222767069935798645f, \ +0.0288866939954459667206f,0.5428439155220985412598f,0.374539139214903116226f, \ +0.3374005360528826713562f,0.3740871041081845760345f,0.4142110701650381088257f, \ +0.2722152252681553363800f,0.0704229706898331642151f,0.9498285944573581218719f, \ +0.3199572004377841949463f,0.2244639829732477664948f,0.8119156723842024803162f, \ +0.6117301187478005886078f,0.2726398129016160964966f,0.1315172505564987659454f, \ +0.0834807949140667915344f,0.1704506087116897106171f,0.6043888628482818603516f, \ +0.0741717466153204441071f,0.3983510462567210197449f,0.4145161225460469722748f, \ +0.4785034339874982833862f,0.1325146560557186603546f,0.9634160557761788368225f, \ +0.3733813683502376079559f,0.9615952931344509124756f,0.1792585910297930240631f, \ +0.9886706164106726646423f,0.6644756025634706020355f,0.6250293198972940444946f, \ +0.2414359268732368946075f,0.3228348018601536750793f,0.2679829034022986888885f, \ +0.1444108113646507263184f,0.5242025130428373813629f,0.6338959587737917900085f, \ +0.5731068192981183528900f,0.8658696617931127548218f,0.6905007590539753437042f, \ +0.8533225739374756813049f,0.0395693923346698284149f,0.8078914172947406768799f, \ +0.4903320954181253910065f,0.1027000164613127708435f,0.3180945566855370998383f, \ +0.0674452055245637893677f,0.3333888095803558826447f,0.8215381549671292304993f, \ +0.1736259120516479015350f,0.0991585403680801391602f} + + +#define CdenI {0.8987952568568289279938f,0.315000849775969982147f,0.0550288720987737178802f, \ +0.8362890016287565231323f,0.3757084463723003864288f,0.4403073200955986976624f, \ +0.6550271878950297832489f,0.1222427897155284881592f,0.4285280019976198673248f, \ +0.6505553862079977989197f,0.304123846348375082016f,0.4213901553303003311157f, \ +0.4804654982872307300568f,0.1147165866568684577942f,0.5422563436441123485565f, \ +0.2779277041554450988770f,0.4092231714166700839996f,0.1325531704351305961609f, \ +0.7119363336823880672455f,0.4915375765413045883179f,0.2485320051200687885284f, \ +0.5632069641724228858948f,0.9166236515156924724579f,0.4785935021936893463135f, \ +0.9892991916276514530182f,0.4862101143226027488708f,0.1880847117863595485687f, \ +0.7876637298613786697388f,0.0741149676032364368439f,0.8136677043512463569641f, \ +0.2064852821640670299530f,0.2380608320236206054688f,0.6788688250817358493805f, \ +0.0723622469231486320496f,0.4169676317833364009857f,0.6501883845776319503784f, \ +0.3752250974066555500031f,0.0745300510898232460022f,0.8864620546810328960419f, \ +0.6364345215260982513428f,0.2677079201675951480865f,0.6960594644770026206970f, \ +0.7444827682338654994965f,0.4213623646646738052368f,0.1991455671377480030060f, \ +0.4808609904721379280090f,0.5516581865958869457245f,0.1599473282694816589355f, \ +0.1182241612114012241364f,0.2901592804118990898132f,0.4397455691359937191010f, \ +0.7226112987846136093140f,0.202900760341435670853f,0.7154570007696747779846f, \ +0.3668800438754260540009f,0.4158036895096302032471f,0.8334258184768259525299f, \ +0.4739205753430724143982f,0.3318080059252679347992f,0.6068793702870607376099f, \ +0.0087250215001404285431f,0.5049378024414181709290f,0.8908548909239470958710f, \ +0.7220234721899032592773f,0.2998904981650412082672f,0.986597347073256969452f, \ +0.8213773234747350215912f,0.5859730672091245651245f,0.9345314060337841510773f, \ +0.9908401081338524818420f,0.2754496405832469463348f,0.5722857229411602020264f, \ +0.1057338924147188663483f,0.9960324605926871299744f,0.2675347900949418544769f, \ +0.5329049322754144668579f,0.0993804302997887134552f,0.9757113726809620857239f, \ +0.8398896041326224803925f,0.9757724180817604064941f,0.3335785293020308017731f, \ +0.2822513980790972709656f,0.7494544475339353084564f,0.4592373128980398178101f, \ +0.9039488215930759906769f,0.0442035431042313575745f,0.0199772412888705730438f, \ +0.6720122136175632476807f,0.7285225228406488895416f,0.2960560088977217674255f, \ +0.2031218609772622585297f,0.1674261111766099929810f,0.8859982681460678577423f, \ +0.5591668086126446723938f,0.6923109102062880992889f,0.2207241952419281005859f, \ +0.241108322981745004654f,0.0926182596012949943542f,0.9330528690479695796967f, \ +0.7781645338982343673706f,0.9508441691286861896515f,0.5327433506026864051819f, \ +0.8735036174766719341278f,0.9666616283357143402100f,0.9452914656139910221100f, \ +0.1400739839300513267517f,0.4990123338066041469574f,0.1327268425375223159790f, \ +0.9768243846483528614044f,0.3724610926583409309387f,0.7944017681293189525604f, \ +0.8794557079672813415527f,0.3314093225635588169098f,0.0031166328117251396179f, \ +0.9777328907512128353119f,0.0703121032565832138062f,0.7957679857499897480011f, \ +0.5023274505510926246643f,0.3493039156310260295868f,0.2684593088924884796143f, \ +0.9741498515941202640533f,0.9015910243615508079529f,0.5996336988173425197601f, \ +0.5803879369050264358521f,0.5484640044160187244415f,0.8589230822399258613586f, \ +0.9201795118860900402069f,0.3725907355546951293945f,0.5755203464068472385406f, \ +0.1440870938822627067566f,0.7605391903780400753021f,0.8300342690199613571167f, \ +0.4151301835663616657257f,0.2624956378713250160217f,0.5758876572363078594208f, \ +0.8251774720847606658936f,0.3828161866404116153717f,0.4365336438640952110291f, \ +0.4083978212438523769379f,0.0662870798259973526001f,0.7208817270584404468536f, \ +0.6630535097792744636536f,0.6463958504609763622284f,0.993799932301044464111f, \ +0.9815895878709852695465f,0.0657920939847826957703f,0.8050008206628262996674f, \ +0.3934821542352437973022f,0.4162000496871769428253f,0.2614595824852585792542f, \ +0.6719987387768924236298f,0.1951352097094058990479f,0.4636183516122400760651f, \ +0.9582502311095595359802f,0.6627009413205087184906f,0.4255988318473100662231f, \ +0.9324015271849930286407f,0.5055249826982617378235f,0.7275368678383529186249f, \ +0.7848008275032043457031f,0.9698746153153479099274f,0.6134159592911601066589f, \ +0.6561312093399465084076f,0.8136037569493055343628f,0.4121062462218105792999f, \ +0.9611028293147683143616f,0.1216154317371547222137f,0.1221984885632991790771f, \ +0.6084936023689806461334f,0.9125110497698187828064f,0.3089236742816865444183f, \ +0.6477946285158395767212f,0.3147067544050514698029f,0.0581819834187626838684f, \ +0.4708230230025947093964f,0.4103578254580497741699f,0.7477423720993101596832f, \ +0.8020648909732699394226f,0.2554281591437757015228f,0.7351439502090215682983f, \ +0.3968368102796375751495f,0.7119807982817292213440f,0.1489503826014697551727f, \ +0.4107801504433155059814f,0.6839885697700083255768f,0.8525082385167479515076f, \ +0.8774310103617608547211f,0.7516427803784608840942f,0.0678401333279907703400f, \ +0.819040869362652301788f,0.1112091499380767345428f,0.0332822054624557495117f, \ +0.6846691765822470188141f,0.6917669652029871940613f,0.3158738478086888790131f, \ +0.2696444820612668991089f,0.1202391539700329303741f,0.6283207843080163002014f, \ +0.0934506128542125225067f,0.8008399121463298797607f} + + +#define CresR {0.4709798307531771199841f,0.4447581675093783548647f,0.0826177744953439652242f, \ +1.205396046252330988224f,0.8449132450069640754009f,0.8480990000672121720271f, \ +4.2502508379938888083416f,0.1623619707288032898429f,0.8585056587355431867437f, \ +3.1388466849496672317343f,1.1935750070427169067244f,0.4490650157900041850034f, \ +2.1895212424748247137529f,0.5809227845299023140768f,0.56073613731694649243f, \ +0.8082982497300479352020f,0.51953770817366529133f,0.2942574640122151419241f, \ +1.15793914287644739147f,0.6384564385907467443104f,0.3937873213744618183796f, \ +1.726027502041532768473f,1.036465781498592919618f,0.4067614434439539849997f, \ +0.9843295698061713672189f,0.4579374729893078699305f,0.1635265468643208597310f, \ +0.2673377630487006051396f,0.1276569435289993670324f,0.8547995406383729344313f, \ +0.5712421096762160255267f,0.9496998303500763238816f,0.9215219933031827403980f, \ +0.4199401716102647008633f,0.4080227083004296928515f,0.8668387814340499097909f, \ +3.8251647868179174949432f,0.2798561459758153735500f,0.7296876114375909772036f, \ +1.1307863949434504569069f,0.5227040207487291256783f,0.9553281397768573768303f, \ +1.6873623484630664304262f,0.9189993233013992179892f,1.8680916744683291330631f, \ +1.0945340632725206742037f,0.7172695872712858689013f,0.4393272001105434365620f, \ +0.6184165841783031414280f,1.0145435197072958377618f,39.23975822857007500488f, \ +0.9125771040829241398384f,0.34940616662082130128f,1.6886679318634245650088f, \ +0.5362354768077970401663f,0.5639723020956257659719f,0.7780379364916976125954f, \ +1.4003319167235890319034f,0.8161232260004956939881f,0.8393853039143751582074f, \ +0.5223720004390856042065f,1.110983008842490127321f,0.818747739732451629280f, \ +1.6747433378619311916680f,0.9068157856691638762925f,1.60833170305877803941f, \ +0.8405688656523967461354f,0.8381421282255379079373f,1.2701889799735286423754f, \ +0.9833168993944022551190f,1.0168770046728485834109f,1.3016322293958613176557f, \ +0.6495107529989713190943f,1.7580887380148670917634f,0.811791795379815717126f, \ +2.965105145965179822554f,0.2240951065290753552173f,0.9460239544777007125731f, \ +1.718999756730102967950f,1.2296973389194514325595f,0.9389212198179804902409f, \ +1.0234593559016138542006f,1.4334211779050687329828f,0.5243120860846904873753f, \ +1.0504722453285446626126f,0.1152767460270415350587f,0.0707222953082139449421f, \ +1.6254463990050433963575f,1.2481859371318786422478f,0.2175136535151512284791f, \ +1.2910615615872327310854f,0.4233268477489937620106f,0.4807068388081991994198f, \ +1.1549507985792513142798f,1.6255209179331293611881f,0.2983110082899964599079f, \ +1.4173997951417944829444f,0.1244573410110787203831f,1.2637054783806833668791f, \ +0.4884514729189023962697f,0.6929538011049971579780f,1.7943962247548823629728f, \ +1.2713004857643259715161f,1.032953859535653995394f,1.536353015508226782515f, \ +0.4675865183692056170628f,1.0462587829225313829085f,1.1330002369245864013436f, \ +1.041962113643855936118f,0.2090005572387043097926f,1.3318357299932417348032f, \ +1.1032964509750491366447f,2.0521925485676613121200f,1.1375468051162005434f, \ +3.6762531852618991479176f,0.38561527164112474608f,1.8447673546930116739162f, \ +0.6707863887229996713302f,1.2079499357804526216142f,0.3709954307004496576461f, \ +1.0365712069816981344417f,1.4492727922264592166357f,0.9826439254861862870882f, \ +0.5459775284828356500810f,1.7185510325107367091135f,0.9420557659158521612852f, \ +1.0363462766733533282348f,0.6588978871971996609247f,0.7068286721825971508082f, \ +0.8283838180602889345039f,0.3576856814045822896553f,1.1450642560827664073742f, \ +1.0082980823395675251675f,0.8632613198241941843136f,0.5769998142575105681829f, \ +0.4586342340414231721901f,1.0743331202123964640549f,0.8051789964613165206941f, \ +1.0185550907048162017077f,0.2778337479551458155669f,1.8265245559079639203759f, \ +0.7989360256028138485007f,1.677001282149952920975f,1.0503469849633222388263f, \ +1.4140028143314165021138f,0.5446523200971284950356f,1.5495499943879871285191f, \ +1.5081843822248834907640f,0.9349545726381919275028f,0.5723524546761384890203f, \ +3.1135949451595807957460f,0.6437016396093410142143f,0.4050990487720780852676f, \ +2.6650358323492571166469f,0.7883973138104276578986f,0.8659591728844833191658f, \ +0.7053024953584487999336f,0.4594589542097845535906f,1.321677134779998041836f, \ +0.9728202285898922552221f,1.1265695509413868879989f,0.9572634127807582160585f, \ +1.0936914939126565204930f,1.8223172561248370815434f,0.3829461524867902033620f, \ +0.9262699522472612745361f,0.2636089879247657252748f,0.4207872701626157452282f, \ +0.3681456734997125557207f,1.7105511789891454377255f,0.7594157400395155077533f, \ +2.311379502472121316714f,0.3968136705033024624889f,3.7584600137181558565658f, \ +1.1328564511602001729784f,0.5708065143880640679441f,0.4501390996974691804944f, \ +1.1049485918178350019048f,0.7752771634215889218211f,1.0810236263550128121835f, \ +0.6478013413788724639275f,0.8461714840132198434119f,0.6054575539721791521686f, \ +0.4140498893464432672573f,0.7932920209693627988656f,1.1273035377738909179612f, \ +1.3778348488206868527328f,2.8479811305391047326907f,2.8424954426663924245133f, \ +6.763933435362530666168f,0.0838692695945179311767f,0.5829756521091847831784f, \ +1.0005053747332974811712f,1.1474263302846201550977f,0.4156230215198345456784f, \ +0.3525774504986416424401f,0.2463914637535300489191f,1.148273196579604027434f, \ +0.2298339614166822753027f,1.0666533246089620057262f} + + +#define CresI {0.4591483936701460932817f,-0.1155119517747187490864f,-0.9310924334988598394247f, \ +0.0819694377628846782002f,-0.7287233873139877804448f,-0.763187199054947806864f, \ +-3.762492170029271498777f,-0.0437843680454512648725f,-0.0905413694792896739383f, \ +-2.4916556281940294148569f,0.0574678906137320935632f,0.1174306870209648884229f, \ +-2.7289896643260878050796f,-0.6644222901331670039227f,0.4940949025393515658955f, \ +-0.4608868906485130145789f,0.0201573045574557213611f,-0.0044069113482103575846f, \ +-0.4314389127933472845022f,-0.6902743621457737566161f,-0.0987167242035817960044f, \ +-0.2548733845587528579202f,-0.0883482700619244720741f,0.2453606820435244861844f, \ +0.2068645371508029129348f,0.0560010586358397413620f,0.1255687367414367316965f, \ +1.0556170148952166432110f,-0.0508624268720807917732f,-0.4973030078350189620018f, \ +-0.4494495094173277527361f,0.1516315916553793996524f,0.1955091614740893934954f, \ +-0.2981682129038163431289f,0.3238592517142263038643f,0.20807310888270824645f, \ +1.2754627683321149156370f,-0.4652261053750170738397f,0.9104699268960899649628f, \ +-0.2343654011567836148444f,0.0927986797131679780337f,-0.4464725902632422083194f, \ +-0.2054461228467904798656f,0.4830705943398990731552f,-0.1540520130863628767148f, \ +-1.0359735137341328226057f,0.3405388282389278931106f,-0.1187156901372778405879f, \ +-0.4792316908339305792097f,0.1045919568114299369466f,-0.2999491114304728145434f, \ +0.2514864063426180407212f,0.0155478062159446952378f,-0.2735523819973274539663f, \ +0.8717980527838158355536f,0.3364261929110925475328f,0.2029142596752248339786f, \ +-0.1918158596845628005578f,1.1084778145052667230885f,-0.0829219255275467775901f, \ +-1.081783493192439049579f,0.5421774728023454059667f,0.5568609105760318200851f, \ +1.781941834619454212429f,-0.4713958087204941915793f,0.2445718496622908411098f, \ +0.2491121281579287416452f,0.0866971164274075029033f,-0.8008320713990698669349f, \ +0.6338101504882612813319f,0.3519358982630789167700f,0.6541663473243117810085f, \ +0.0502911402190908199406f,1.6252765471306449551747f,-0.2809451105359275779882f, \ +2.2146130913244452820265f,-0.3625483190563351110214f,0.1522743119365968789136f, \ +-0.0069229021370069455943f,0.1905060635979277938734f,-0.1989073433264569867873f, \ +0.3897022628957311773945f,0.4240784338552809340506f,-0.4179573564331034440933f, \ +-0.1988402057439373205039f,-0.0356440742214715750036f,-0.0168647095375222925984f, \ +-0.1494425771365865129869f,-1.3843069738448403604991f,0.0967017939849821872578f, \ +0.0430607432652793456485f,-0.5279083881307125025728f,1.0204003735962423604633f, \ +1.4362803365510681263828f,0.1977169795522846496016f,-0.3955062165628914772064f, \ +-1.4128711804163340826079f,0.0310836769042206473301f,-0.3390941241024513219671f, \ +0.6074764041812149573119f,0.4824589432533142319137f,-0.4154346483371720855082f, \ +0.0501899399979248012071f,0.3607980326544134586086f,0.7206975894822468253764f, \ +-0.4477518830833556728876f,0.1424100376820599533900f,0.1298061651063174004594f, \ +0.3303537448252925612380f,0.4338741987461899873857f,0.7684141832850970299518f, \ +0.2873031419117236806571f,0.3434511048158676582709f,-0.3550844910755488470500f, \ +1.5595291773563670911784f,-0.0457132414448809254459f,-0.0267391386135805188273f, \ +0.1798214510802064736161f,-0.6158028489814036943173f,0.0464070042435799218206f, \ +0.1034419684949273582353f,0.0929020432890966946227f,-0.2813776899321288604838f, \ +0.6258852119978557393409f,-0.4661667563754944287879f,-0.0650680862663896020237f, \ +0.102444575548549118849f,-0.8520157260825024225781f,-0.0298211062249834936433f, \ +-0.4653174759501645385562f,0.8545944890801387971990f,-0.2976773769162330829374f, \ +0.3093514738325885415904f,0.2363494602874922356772f,0.1974484855458788490346f, \ +0.7777794203036600961809f,0.3731580648675694722449f,-0.0003201115706582268751f, \ +0.6970160995106667867205f,-0.1417446622937881539617f,0.6735687169118647066313f, \ +-0.5504259784814062861358f,0.1823325876192195271752f,0.0893283232282492400955f, \ +-0.7513139628213129084244f,-0.0681389663512164817094f,-0.0516841536789755529036f, \ +-0.315174493545774980774f,-0.0096538968382749029695f,-0.3974986568742733816784f, \ +0.1161709126231448979683f,0.0939526577995318662451f,0.4474141503322081603322f, \ +2.0839818065490263165884f,0.481117429953414110777f,0.1103349130284882323449f, \ +0.7841930577945639413429f,0.3179393307402755275426f,-0.5800239728555655061015f, \ +-0.1108667189012625814426f,4.1526144610214457131292f,0.6644411493894925024861f, \ +-0.5535740575269347818477f,-0.0391563103551154784165f,0.1619934487203539552613f, \ +1.0596515488428814855126f,-0.3128122097434946624617f,-0.3890589346180040597467f, \ +0.2748020770797242051664f,1.635738569956616927925f,0.3868552807413435101758f, \ +-0.7602443417718864893118f,-0.0831558796771991737273f,-2.537669265389609574157f, \ +1.426458962036896371828f,-1.0022009849938886549836f,0.6049199483603766580586f, \ +0.1673262559470924115690f,-0.7200301037654435187818f,0.7467393358286636972920f, \ +-0.0106106746626293529240f,0.153545238852170945476f,-0.451676909031678563977f, \ +0.3690242193796505754122f,0.8280032112539841282484f,1.091435550366606888062f, \ +-0.3195494879686350264691f,0.8111338563578870397563f,-0.1273427352363078746134f, \ +2.602467288932953426439f,0.0428813666356926206924f,-0.6294198199336996646380f, \ +0.1402292321928536034115f,0.9366730345322898942939f,-0.3072343945837653356179f, \ +-0.0048993749459086879255f,-0.2278153021086992413569f,-1.0472316778083061716842f, \ +-0.0219504421804297446263f,1.4011599912181635918529f} + + +#define ZnumR {0.9886911348439753055573,0.1642041569575667381287,0.0116174421273171901703, \ +0.8040989059954881668091,0.3511620354838669300079,0.3538791732862591743469, \ +0.0420214342884719371796,0.2273282110691070556641,0.9304475435055792331696, \ +0.0305238692089915275574,0.7304877354763448238373,0.3167633693665266036987, \ +0.0185489063151180744171,0.5621606865897774696350,0.4824476162903010845184, \ +0.6829614602029323577881,0.0907177985645830631256,0.8980422308668494224548, \ +0.3069318956695497035980,0.1443576756864786148071,0.4171506580896675586700, \ +0.4542713882401585578918,0.8413512143306434154510,0.5767526254057884216309, \ +0.3367923968471586704254,0.5443433178588747978210,0.6477606832049787044525, \ +0.7295965161174535751343,0.7869994868524372577667,0.0733593190088868141174, \ +0.1243589068762958049774,0.4778202064335346221924,0.1828124211169779300690, \ +0.7146625733003020286560,0.8759713820181787014008,0.4779631365090608596802, \ +0.2395875495858490467072,0.2876457618549466133118,0.8872682708315551280975, \ +0.6973481327295303344727,0.832738290075212717056,0.5554805574938654899597, \ +0.3424665494821965694427,0.7850530873984098434448,0.4883357142098248004913, \ +0.1615189919248223304749,0.4352665315382182598114,0.7534295134246349334717, \ +0.5983185083605349063873,0.9231166979297995567322,0.0127727664075791835785, \ +0.9389179740101099014282,0.9540623095817863941193,0.2016280265524983406067, \ +0.3971493127755820751190,0.710910387337207794189,0.6920584165491163730621, \ +0.5673230392858386039734,0.2287593870423734188080,0.897409206256270408630, \ +0.2454518754966557025909,0.4779763752594590187073,0.6745393867604434490204, \ +0.3962334729731082916260,0.3951889411546289920807,0.1898779934272170066833, \ +0.8453572890721261501312,0.9405217487365007400513,0.0145239126868546009064, \ +0.6200157897546887397766,0.7661054241470992565155,0.4872819185256958007812, \ +0.6006353446282446384430,0.3781800894066691398621,0.7422776236198842525482, \ +0.197737870737910270691,0.1871016328223049640656,0.6877400139346718788147, \ +0.4667807440273463726044,0.4782230518758296966553,0.7309859753586351871490, \ +0.413841723464429378510,0.7107305652461946010590,0.0503708962351083755493, \ +0.5682807085104286670685,0.9177785338833928108215,0.9419820639304816722870, \ +0.5193521305918693542480,0.0314610176719725131989,0.9562829090282320976257, \ +0.7151440619491040706635,0.4089089538902044296265,0.8228980232961475849152, \ +0.3444903278723359107971,0.1768282498233020305634,0.1319360919296741485596, \ +0.2378812418319284915924,0.6013250267133116722107,0.5298825851641595363617, \ +0.8653587270528078079224,0.8310004216618835926056,0.2960576163604855537415, \ +0.8003590661101043224335,0.7980573028326034545898,0.6196367540396749973297, \ +0.3147845743224024772644,0.7509658797644078731537,0.7205892037600278854370, \ +0.4183134590275585651398,0.7655796119943261146545,0.2847539256326854228973, \ +0.4254573099315166473389,0.3976557464338839054108,0.7410669168457388877869, \ +0.1827877140603959560394,0.8866754267364740371704,0.461710151750594377518, \ +0.657166269607841968536,0.5195506396703422069550,0.6873805895447731018066, \ +0.537373247090727090836,0.3867600364610552787781,0.5998346298001706600189, \ +0.6642422433942556381226,0.369679727125912904739,0.9070320362225174903870, \ +0.7608641679398715496063,0.2374182976782321929932,0.9166998700238764286041, \ +0.6792282825335860252380,0.8834046921692788600922,0.3948080558329820632935, \ +0.9377963733859360218048,0.4795896010473370552063,0.9556053685955703258514, \ +0.7993520200252532958984,0.8689905651845037937164,0.9002061216160655021667, \ +0.5333262397907674312592,0.9881285708397626876831,0.5791879897005856037140, \ +0.2385436454787850379944,0.4406997482292354106903,0.1319975219666957855225, \ +0.1010133684612810611725,0.9943918874487280845642,0.5546766347251832485199, \ +0.3245405498892068862915,0.9300049361772835254669,0.6929845931008458137512, \ +0.0173062118701636791229,0.8690484985709190368652,0.9859181516803801059723, \ +0.2530415309593081474304,0.7195010124705731868744,0.5323055591434240341187, \ +0.8298887838609516620636,0.6184823596850037574768,0.4000358129851520061493, \ +0.2339203245937824249268,0.2312053726054728031158,0.8725623702630400657654, \ +0.2035310319624841213226,0.1399537194520235061646,0.6774410647340118885040, \ +0.553180103190243244171,0.0411705034784972667694,0.6295938044786453247070, \ +0.9216948249377310276031,0.3881068406626582145691,0.5979036255739629268646, \ +0.1036274563521146774292,0.1606920217163860797882,0.1688879737630486488342, \ +0.3298818836919963359833,0.1034589223563671112061,0.9374943883158266544342, \ +0.9821662446483969688416,0.2958797491155564785004,0.7094252500683069229126, \ +0.3625693586654961109161,0.5171768637374043464661,0.1664499524049460887909, \ +0.6871585920453071594238,0.7469687783159315586090,0.6681645018979907035828, \ +0.2545631318353116512299,0.3507453855127096176147,0.2413669903762638568878, \ +0.1504721576347947120667,0.9114818568341434001923,0.6114324070513248443604, \ +0.5747082964517176151276,0.3490518992766737937927,0.1316190264187753200531, \ +0.1806297022849321365356,0.4862137925811111927032,0.1181474821642041206360, \ +0.7101306426338851451874,0.3959603905677795410156} + + +#define ZnumI {0.9444975801743566989899,0.7508988408371806144714,0.7969929589889943599701, \ +0.6391073446720838546753,0.7475423519499599933624,0.8376184562221169471741, \ +0.1913140038959681987762,0.8142067454755306243896,0.5972843528725206851959, \ +0.2314895978197455406189,0.2196294791065156459808,0.8555385116487741470337, \ +0.2425577160902321338654,0.8404364408925175666809,0.5419330331496894359589, \ +0.7332636043429374694824,0.7841481738723814487457,0.463916058652102947235, \ +0.7291909097693860530853,0.9259582068771123886108,0.7357061435468494892120, \ +0.3933822894468903541565,0.9560909713618457317352,0.8286947794258594512939, \ +0.9342691884376108646393,0.9951714789494872093201,0.6527760974131524562836, \ +0.0654199887067079544067,0.8941438538022339344025,0.9945600973442196846008, \ +0.4593119579367339611053,0.1743795126676559448242,0.6978968777693808078766, \ +0.6797442315146327018738,0.3266391619108617305756,0.6353397201746702194214, \ +0.0182057772763073444366,0.7444909522309899330139,0.1077597807161509990692, \ +0.7073562256991863250732,0.3643188090063631534576,0.9882115563377737998962, \ +0.4829082465730607509613,0.0458393190056085586548,0.1468743053264915943146, \ +0.5922066839411854743958,0.5624566259793937206268,0.5676662698388099670410, \ +0.6548293852247297763824,0.1908333105966448783875,0.0113042681477963924408, \ +0.5330905076116323471069,0.5382480402477085590363,0.4563436144962906837463, \ +0.0385018284432590007782,0.3131976760923862457275,0.8906985954381525516510, \ +0.4161457186564803123474,0.0958596668206155300140,0.8116585630923509597778, \ +0.5250105452723801136017,0.2212363081052899360657,0.6292906212620437145233, \ +0.0095289051532745361328,0.5361407645978033542633,0.5845551220700144767761, \ +0.7266371562145650386810,0.6018460672348737716675,0.7448990945704281330109, \ +0.6080113211646676063538,0.0057328860275447368622,0.1947725974023342132568, \ +0.1162833035923540592194,0.2169317295774817466736,0.58644847339019179344, \ +0.0320366565138101577759,0.7461734232492744922638,0.9206809522584080696106, \ +0.4904719027690589427948,0.7194193229079246520996,0.5101354592479765415192, \ +0.118203367106616497040,0.3125731288455426692963,0.9160387720912694931030, \ +0.9680844773538410663605,0.6672369921579957008362,0.5071030999533832073212, \ +0.4611813314259052276611,0.6185570643283426761627,0.9359492277726531028748, \ +0.1334771565161645412445,0.9054294098168611526489,0.0963431638665497303009, \ +0.0557444738224148750305,0.4043928044848144054413,0.9148363023996353149414, \ +0.4072272875346243381500,0.5939936218783259391785,0.8805318637751042842865, \ +0.5168978702276945114136,0.7935891007073223590851,0.3654354223981499671936, \ +0.6554969917051494121552,0.6570710949599742889404,0.3246133835054934024811, \ +0.6009997269138693809509,0.3747325814329087734222,0.0345895085483789443970, \ +0.8048593667335808277130,0.1928026052191853523254,0.4321800353936851024628, \ +0.6863254979252815246582,0.0949394428171217441559,0.2340633375570178031921, \ +0.1884174137376248836517,0.2874494846910238265991,0.4380572517402470111847, \ +0.5726932818070054054260,0.5540334577672183513641,0.6376359798014163970947, \ +0.8861551419831812381744,0.5973066156730055809021,0.7819859883747994899750, \ +0.3015665132552385330200,0.4194210064597427845001,0.9744029538705945014954, \ +0.8126946794800460338593,0.8724794387817382812500,0.8529044934548437595367, \ +0.5554718403145670890808,0.0156182064674794673920,0.8275166135281324386597, \ +0.123992592561990022659,0.1727691153064370155334,0.6710657696239650249481, \ +0.4436169527471065521240,0.0544945956207811832428,0.5425151577219367027283, \ +0.0359929925762116909027,0.7427068594843149185181,0.1810864326544106006622, \ +0.9942650021985173225403,0.3375321957282721996307,0.9349375292658805847168, \ +0.7478643828071653842926,0.2452003313228487968445,0.5380070446990430355072, \ +0.3287191297858953475952,0.45475816028192639351,0.9380933428183197975159, \ +0.2151815737597644329071,0.1763018555939197540283,0.0555533752776682376862, \ +0.1616924917325377464294,0.4014935842715203762054,0.4236538577824831008911, \ +0.3992733699269592761993,0.6722801076248288154602,0.7260224181227385997772, \ +0.8333860486745834350586,0.0086704292334616184235,0.0351518867537379264832, \ +0.7029411061666905879974,0.4494737815111875534058,0.7895763670094311237335, \ +0.4047682592645287513733,0.5102028916589915752411,0.8725254051387310028076, \ +0.9648624868132174015045,0.1623276313766837120056,0.1022121286951005458832, \ +0.3143476936966180801392,0.8267589178867638111115,0.1295115025714039802551, \ +0.0002295556478202342987,0.9005581513047218322754,0.4012833260931074619293, \ +0.5771514577791094779968,0.6042619436047971248627,0.1899941917508840560913, \ +0.6185289998538792133331,0.7475680345669388771057,0.3701861198060214519501, \ +0.3796691931784152984619,0.0825623110868036746979,0.1093314653262495994568, \ +0.6958573660813271999359,0.1640254277735948562622,0.0346795511431992053986, \ +0.0631942944601178169250,0.8599521922878921031952,0.7172338664531707763672, \ +0.6037731417454779148102,0.3179458705708384513855,0.8572954847477376461029, \ +0.7672908585518598556519,0.9375572209246456623077,0.6549387136474251747131, \ +0.4744220296852290630341,0.2306616865098476409912} + + +#define ZdenR {0.0319890365935862064362,0.1597689306363463401794,0.7430339208804070949554, \ +0.9168703723698854446411,0.8414530497975647449493,0.9393842564895749092102, \ +0.8984190779738128185272,0.0725589841604232788086,0.8528734245337545871735, \ +0.6726021049544215202332,0.8592702611349523067474,0.0417808722704648971558, \ +0.7025507246144115924835,0.8849766561761498451233,0.0027594636194407939911, \ +0.8899881355464458465576,0.0313250035978853702545,0.2663000663742423057556, \ +0.6700097895227372646332,0.7313312981277704238892,0.2368951407261192798615, \ +0.884347585029900074005,0.956500727217644453049,0.0312716141343116760254, \ +0.1382475518621504306793,0.1935445470735430717468,0.0239577977918088436127, \ +0.1259902473539113998413,0.1459442754276096820831,0.5573052400723099708557, \ +0.2774765784852206707001,0.4273443259298801422119,0.0320204333402216434479, \ +0.5027936464175581932068,0.2516311011277139186859,0.2821198720484972000122, \ +0.8932410669513046741486,0.4268560605123639106750,0.5493166255764663219452, \ +0.9543316066265106201172,0.4014673479832708835602,0.9718755809590220451355, \ +0.6770767881534993648529,0.6993196289986371994019,0.9348821644671261310577, \ +0.7902984777465462684631,0.1206651250831782817841,0.3983929716050624847412, \ +0.6838250816799700260162,0.9165824344381690025330,0.5045909709297120571136, \ +0.7227700296789407730103,0.3249866780824959278107,0.4653166653588414192200, \ +0.1793997320346534252167,0.2955658659338951110840,0.3577122562564909458160, \ +0.8742639077827334403992,0.0804375349543988704681,0.8205763902515172958374, \ +0.6961649288423359394073,0.4110742891207337379456,0.2018502498976886272430, \ +0.6466094143688678741455,0.6110980794765055179596,0.1624210691079497337341, \ +0.5295668891631066799164,0.7361125815659761428833,0.6149871987290680408478, \ +0.2243082569912075996399,0.7770173805765807628632,0.5068481713533401489258, \ +0.3842710950411856174469,0.3123001037165522575378,0.7673347159288823604584, \ +0.5153647791594266891479,0.3124524806626141071320,0.5104224691167473793030, \ +0.8057914744131267070770,0.4510158710181713104248,0.7878079325892031192780, \ +0.3774860640987753868103,0.8862207210622727870941,0.4092752132564783096313, \ +0.7894572285003960132599,0.1295815678313374519348,0.0751712801866233348846, \ +0.9130991771817207336426,0.8955420576967298984528,0.1174966199323534965515, \ +0.9175473838113248348236,0.6510859187692403793335,0.2972641070373356342316, \ +0.3178046876564621925354,0.2074826951138675212860,0.4011814333498477935791, \ +0.9125325218774378299713,0.0563758080825209617615,0.9681987068615853786469, \ +0.1086824852973222732544,0.1929707420058548450470,0.6830592053011059761047, \ +0.9845975148491561412811,0.587286412715911865234,0.7180327125824987888336, \ +0.4162877826020121574402,0.7323389663361012935638,0.8119378071278333663940, \ +0.1699784700758755207062,0.0763544896617531776428,0.0471521834842860698700, \ +0.2722220681607723236084,0.7834591032005846500397,0.9261105647310614585876, \ +0.3781314617954194545746,0.3550558332353830337524,0.8634610888548195362091, \ +0.3378356518223881721497,0.9687665435485541820526,0.2254242822527885437012, \ +0.4653600030578672885895,0.5050297928974032402039,0.8094572662375867366791, \ +0.1739153172820806503296,0.8308336068876087665558,0.9178772950544953346252, \ +0.7052625860087573528290,0.8998006172478199005127,0.6733843074180185794830, \ +0.8211324727162718772888,0.3026339760981500148773,0.6984135676175355911255, \ +0.9072209936566650867462,0.3731772648170590400696,0.4188832002691924571991, \ +0.0215740650892257690430,0.9132502474822103977203,0.7250007269904017448425, \ +0.5181344612501561641693,0.3798101972788572311401,0.9359269295819103717804, \ +0.7378503987565636634827,0.6775109241716563701630,0.0551267974078655242920, \ +0.7047141403891146183014,0.5583055457100272178650,0.8873056150041520595551, \ +0.5930708739906549453735,0.8739025560207664966583,0.7695222767069935798645, \ +0.0288866939954459667206,0.5428439155220985412598,0.374539139214903116226, \ +0.3374005360528826713562,0.3740871041081845760345,0.4142110701650381088257, \ +0.2722152252681553363800,0.0704229706898331642151,0.9498285944573581218719, \ +0.3199572004377841949463,0.2244639829732477664948,0.8119156723842024803162, \ +0.6117301187478005886078,0.2726398129016160964966,0.1315172505564987659454, \ +0.0834807949140667915344,0.1704506087116897106171,0.6043888628482818603516, \ +0.0741717466153204441071,0.3983510462567210197449,0.4145161225460469722748, \ +0.4785034339874982833862,0.1325146560557186603546,0.9634160557761788368225, \ +0.3733813683502376079559,0.9615952931344509124756,0.1792585910297930240631, \ +0.9886706164106726646423,0.6644756025634706020355,0.6250293198972940444946, \ +0.2414359268732368946075,0.3228348018601536750793,0.2679829034022986888885, \ +0.1444108113646507263184,0.5242025130428373813629,0.6338959587737917900085, \ +0.5731068192981183528900,0.8658696617931127548218,0.6905007590539753437042, \ +0.8533225739374756813049,0.0395693923346698284149,0.8078914172947406768799, \ +0.4903320954181253910065,0.1027000164613127708435,0.3180945566855370998383, \ +0.0674452055245637893677,0.3333888095803558826447,0.8215381549671292304993, \ +0.1736259120516479015350,0.0991585403680801391602} + + +#define ZdenI {0.8987952568568289279938,0.315000849775969982147,0.0550288720987737178802, \ +0.8362890016287565231323,0.3757084463723003864288,0.4403073200955986976624, \ +0.6550271878950297832489,0.1222427897155284881592,0.4285280019976198673248, \ +0.6505553862079977989197,0.304123846348375082016,0.4213901553303003311157, \ +0.4804654982872307300568,0.1147165866568684577942,0.5422563436441123485565, \ +0.2779277041554450988770,0.4092231714166700839996,0.1325531704351305961609, \ +0.7119363336823880672455,0.4915375765413045883179,0.2485320051200687885284, \ +0.5632069641724228858948,0.9166236515156924724579,0.4785935021936893463135, \ +0.9892991916276514530182,0.4862101143226027488708,0.1880847117863595485687, \ +0.7876637298613786697388,0.0741149676032364368439,0.8136677043512463569641, \ +0.2064852821640670299530,0.2380608320236206054688,0.6788688250817358493805, \ +0.0723622469231486320496,0.4169676317833364009857,0.6501883845776319503784, \ +0.3752250974066555500031,0.0745300510898232460022,0.8864620546810328960419, \ +0.6364345215260982513428,0.2677079201675951480865,0.6960594644770026206970, \ +0.7444827682338654994965,0.4213623646646738052368,0.1991455671377480030060, \ +0.4808609904721379280090,0.5516581865958869457245,0.1599473282694816589355, \ +0.1182241612114012241364,0.2901592804118990898132,0.4397455691359937191010, \ +0.7226112987846136093140,0.202900760341435670853,0.7154570007696747779846, \ +0.3668800438754260540009,0.4158036895096302032471,0.8334258184768259525299, \ +0.4739205753430724143982,0.3318080059252679347992,0.6068793702870607376099, \ +0.0087250215001404285431,0.5049378024414181709290,0.8908548909239470958710, \ +0.7220234721899032592773,0.2998904981650412082672,0.986597347073256969452, \ +0.8213773234747350215912,0.5859730672091245651245,0.9345314060337841510773, \ +0.9908401081338524818420,0.2754496405832469463348,0.5722857229411602020264, \ +0.1057338924147188663483,0.9960324605926871299744,0.2675347900949418544769, \ +0.5329049322754144668579,0.0993804302997887134552,0.9757113726809620857239, \ +0.8398896041326224803925,0.9757724180817604064941,0.3335785293020308017731, \ +0.2822513980790972709656,0.7494544475339353084564,0.4592373128980398178101, \ +0.9039488215930759906769,0.0442035431042313575745,0.0199772412888705730438, \ +0.6720122136175632476807,0.7285225228406488895416,0.2960560088977217674255, \ +0.2031218609772622585297,0.1674261111766099929810,0.8859982681460678577423, \ +0.5591668086126446723938,0.6923109102062880992889,0.2207241952419281005859, \ +0.241108322981745004654,0.0926182596012949943542,0.9330528690479695796967, \ +0.7781645338982343673706,0.9508441691286861896515,0.5327433506026864051819, \ +0.8735036174766719341278,0.9666616283357143402100,0.9452914656139910221100, \ +0.1400739839300513267517,0.4990123338066041469574,0.1327268425375223159790, \ +0.9768243846483528614044,0.3724610926583409309387,0.7944017681293189525604, \ +0.8794557079672813415527,0.3314093225635588169098,0.0031166328117251396179, \ +0.9777328907512128353119,0.0703121032565832138062,0.7957679857499897480011, \ +0.5023274505510926246643,0.3493039156310260295868,0.2684593088924884796143, \ +0.9741498515941202640533,0.9015910243615508079529,0.5996336988173425197601, \ +0.5803879369050264358521,0.5484640044160187244415,0.8589230822399258613586, \ +0.9201795118860900402069,0.3725907355546951293945,0.5755203464068472385406, \ +0.1440870938822627067566,0.7605391903780400753021,0.8300342690199613571167, \ +0.4151301835663616657257,0.2624956378713250160217,0.5758876572363078594208, \ +0.8251774720847606658936,0.3828161866404116153717,0.4365336438640952110291, \ +0.4083978212438523769379,0.0662870798259973526001,0.7208817270584404468536, \ +0.6630535097792744636536,0.6463958504609763622284,0.993799932301044464111, \ +0.9815895878709852695465,0.0657920939847826957703,0.8050008206628262996674, \ +0.3934821542352437973022,0.4162000496871769428253,0.2614595824852585792542, \ +0.6719987387768924236298,0.1951352097094058990479,0.4636183516122400760651, \ +0.9582502311095595359802,0.6627009413205087184906,0.4255988318473100662231, \ +0.9324015271849930286407,0.5055249826982617378235,0.7275368678383529186249, \ +0.7848008275032043457031,0.9698746153153479099274,0.6134159592911601066589, \ +0.6561312093399465084076,0.8136037569493055343628,0.4121062462218105792999, \ +0.9611028293147683143616,0.1216154317371547222137,0.1221984885632991790771, \ +0.6084936023689806461334,0.9125110497698187828064,0.3089236742816865444183, \ +0.6477946285158395767212,0.3147067544050514698029,0.0581819834187626838684, \ +0.4708230230025947093964,0.4103578254580497741699,0.7477423720993101596832, \ +0.8020648909732699394226,0.2554281591437757015228,0.7351439502090215682983, \ +0.3968368102796375751495,0.7119807982817292213440,0.1489503826014697551727, \ +0.4107801504433155059814,0.6839885697700083255768,0.8525082385167479515076, \ +0.8774310103617608547211,0.7516427803784608840942,0.0678401333279907703400, \ +0.819040869362652301788,0.1112091499380767345428,0.0332822054624557495117, \ +0.6846691765822470188141,0.6917669652029871940613,0.3158738478086888790131, \ +0.2696444820612668991089,0.1202391539700329303741,0.6283207843080163002014, \ +0.0934506128542125225067,0.8008399121463298797607} + + +#define ZresR {0.4709798307531771199841,0.4447581675093783548647,0.0826177744953439652242, \ +1.205396046252330988224,0.8449132450069640754009,0.8480990000672121720271, \ +4.2502508379938888083416,0.1623619707288032898429,0.8585056587355431867437, \ +3.1388466849496672317343,1.1935750070427169067244,0.4490650157900041850034, \ +2.1895212424748247137529,0.5809227845299023140768,0.56073613731694649243, \ +0.8082982497300479352020,0.51953770817366529133,0.2942574640122151419241, \ +1.15793914287644739147,0.6384564385907467443104,0.3937873213744618183796, \ +1.726027502041532768473,1.036465781498592919618,0.4067614434439539849997, \ +0.9843295698061713672189,0.4579374729893078699305,0.1635265468643208597310, \ +0.2673377630487006051396,0.1276569435289993670324,0.8547995406383729344313, \ +0.5712421096762160255267,0.9496998303500763238816,0.9215219933031827403980, \ +0.4199401716102647008633,0.4080227083004296928515,0.8668387814340499097909, \ +3.8251647868179174949432,0.2798561459758153735500,0.7296876114375909772036, \ +1.1307863949434504569069,0.5227040207487291256783,0.9553281397768573768303, \ +1.6873623484630664304262,0.9189993233013992179892,1.8680916744683291330631, \ +1.0945340632725206742037,0.7172695872712858689013,0.4393272001105434365620, \ +0.6184165841783031414280,1.0145435197072958377618,39.23975822857007500488, \ +0.9125771040829241398384,0.34940616662082130128,1.6886679318634245650088, \ +0.5362354768077970401663,0.5639723020956257659719,0.7780379364916976125954, \ +1.4003319167235890319034,0.8161232260004956939881,0.8393853039143751582074, \ +0.5223720004390856042065,1.110983008842490127321,0.818747739732451629280, \ +1.6747433378619311916680,0.9068157856691638762925,1.60833170305877803941, \ +0.8405688656523967461354,0.8381421282255379079373,1.2701889799735286423754, \ +0.9833168993944022551190,1.0168770046728485834109,1.3016322293958613176557, \ +0.6495107529989713190943,1.7580887380148670917634,0.811791795379815717126, \ +2.965105145965179822554,0.2240951065290753552173,0.9460239544777007125731, \ +1.718999756730102967950,1.2296973389194514325595,0.9389212198179804902409, \ +1.0234593559016138542006,1.4334211779050687329828,0.5243120860846904873753, \ +1.0504722453285446626126,0.1152767460270415350587,0.0707222953082139449421, \ +1.6254463990050433963575,1.2481859371318786422478,0.2175136535151512284791, \ +1.2910615615872327310854,0.4233268477489937620106,0.4807068388081991994198, \ +1.1549507985792513142798,1.6255209179331293611881,0.2983110082899964599079, \ +1.4173997951417944829444,0.1244573410110787203831,1.2637054783806833668791, \ +0.4884514729189023962697,0.6929538011049971579780,1.7943962247548823629728, \ +1.2713004857643259715161,1.032953859535653995394,1.536353015508226782515, \ +0.4675865183692056170628,1.0462587829225313829085,1.1330002369245864013436, \ +1.041962113643855936118,0.2090005572387043097926,1.3318357299932417348032, \ +1.1032964509750491366447,2.0521925485676613121200,1.1375468051162005434, \ +3.6762531852618991479176,0.38561527164112474608,1.8447673546930116739162, \ +0.6707863887229996713302,1.2079499357804526216142,0.3709954307004496576461, \ +1.0365712069816981344417,1.4492727922264592166357,0.9826439254861862870882, \ +0.5459775284828356500810,1.7185510325107367091135,0.9420557659158521612852, \ +1.0363462766733533282348,0.6588978871971996609247,0.7068286721825971508082, \ +0.8283838180602889345039,0.3576856814045822896553,1.1450642560827664073742, \ +1.0082980823395675251675,0.8632613198241941843136,0.5769998142575105681829, \ +0.4586342340414231721901,1.0743331202123964640549,0.8051789964613165206941, \ +1.0185550907048162017077,0.2778337479551458155669,1.8265245559079639203759, \ +0.7989360256028138485007,1.677001282149952920975,1.0503469849633222388263, \ +1.4140028143314165021138,0.5446523200971284950356,1.5495499943879871285191, \ +1.5081843822248834907640,0.9349545726381919275028,0.5723524546761384890203, \ +3.1135949451595807957460,0.6437016396093410142143,0.4050990487720780852676, \ +2.6650358323492571166469,0.7883973138104276578986,0.8659591728844833191658, \ +0.7053024953584487999336,0.4594589542097845535906,1.321677134779998041836, \ +0.9728202285898922552221,1.1265695509413868879989,0.9572634127807582160585, \ +1.0936914939126565204930,1.8223172561248370815434,0.3829461524867902033620, \ +0.9262699522472612745361,0.2636089879247657252748,0.4207872701626157452282, \ +0.3681456734997125557207,1.7105511789891454377255,0.7594157400395155077533, \ +2.311379502472121316714,0.3968136705033024624889,3.7584600137181558565658, \ +1.1328564511602001729784,0.5708065143880640679441,0.4501390996974691804944, \ +1.1049485918178350019048,0.7752771634215889218211,1.0810236263550128121835, \ +0.6478013413788724639275,0.8461714840132198434119,0.6054575539721791521686, \ +0.4140498893464432672573,0.7932920209693627988656,1.1273035377738909179612, \ +1.3778348488206868527328,2.8479811305391047326907,2.8424954426663924245133, \ +6.763933435362530666168,0.0838692695945179311767,0.5829756521091847831784, \ +1.0005053747332974811712,1.1474263302846201550977,0.4156230215198345456784, \ +0.3525774504986416424401,0.2463914637535300489191,1.148273196579604027434, \ +0.2298339614166822753027,1.0666533246089620057262} + + +#define ZresI {0.4591483936701460932817,-0.1155119517747187490864,-0.9310924334988598394247, \ +0.0819694377628846782002,-0.7287233873139877804448,-0.763187199054947806864, \ +-3.762492170029271498777,-0.0437843680454512648725,-0.0905413694792896739383, \ +-2.4916556281940294148569,0.0574678906137320935632,0.1174306870209648884229, \ +-2.7289896643260878050796,-0.6644222901331670039227,0.4940949025393515658955, \ +-0.4608868906485130145789,0.0201573045574557213611,-0.0044069113482103575846, \ +-0.4314389127933472845022,-0.6902743621457737566161,-0.0987167242035817960044, \ +-0.2548733845587528579202,-0.0883482700619244720741,0.2453606820435244861844, \ +0.2068645371508029129348,0.0560010586358397413620,0.1255687367414367316965, \ +1.0556170148952166432110,-0.0508624268720807917732,-0.4973030078350189620018, \ +-0.4494495094173277527361,0.1516315916553793996524,0.1955091614740893934954, \ +-0.2981682129038163431289,0.3238592517142263038643,0.20807310888270824645, \ +1.2754627683321149156370,-0.4652261053750170738397,0.9104699268960899649628, \ +-0.2343654011567836148444,0.0927986797131679780337,-0.4464725902632422083194, \ +-0.2054461228467904798656,0.4830705943398990731552,-0.1540520130863628767148, \ +-1.0359735137341328226057,0.3405388282389278931106,-0.1187156901372778405879, \ +-0.4792316908339305792097,0.1045919568114299369466,-0.2999491114304728145434, \ +0.2514864063426180407212,0.0155478062159446952378,-0.2735523819973274539663, \ +0.8717980527838158355536,0.3364261929110925475328,0.2029142596752248339786, \ +-0.1918158596845628005578,1.1084778145052667230885,-0.0829219255275467775901, \ +-1.081783493192439049579,0.5421774728023454059667,0.5568609105760318200851, \ +1.781941834619454212429,-0.4713958087204941915793,0.2445718496622908411098, \ +0.2491121281579287416452,0.0866971164274075029033,-0.8008320713990698669349, \ +0.6338101504882612813319,0.3519358982630789167700,0.6541663473243117810085, \ +0.0502911402190908199406,1.6252765471306449551747,-0.2809451105359275779882, \ +2.2146130913244452820265,-0.3625483190563351110214,0.1522743119365968789136, \ +-0.0069229021370069455943,0.1905060635979277938734,-0.1989073433264569867873, \ +0.3897022628957311773945,0.4240784338552809340506,-0.4179573564331034440933, \ +-0.1988402057439373205039,-0.0356440742214715750036,-0.0168647095375222925984, \ +-0.1494425771365865129869,-1.3843069738448403604991,0.0967017939849821872578, \ +0.0430607432652793456485,-0.5279083881307125025728,1.0204003735962423604633, \ +1.4362803365510681263828,0.1977169795522846496016,-0.3955062165628914772064, \ +-1.4128711804163340826079,0.0310836769042206473301,-0.3390941241024513219671, \ +0.6074764041812149573119,0.4824589432533142319137,-0.4154346483371720855082, \ +0.0501899399979248012071,0.3607980326544134586086,0.7206975894822468253764, \ +-0.4477518830833556728876,0.1424100376820599533900,0.1298061651063174004594, \ +0.3303537448252925612380,0.4338741987461899873857,0.7684141832850970299518, \ +0.2873031419117236806571,0.3434511048158676582709,-0.3550844910755488470500, \ +1.5595291773563670911784,-0.0457132414448809254459,-0.0267391386135805188273, \ +0.1798214510802064736161,-0.6158028489814036943173,0.0464070042435799218206, \ +0.1034419684949273582353,0.0929020432890966946227,-0.2813776899321288604838, \ +0.6258852119978557393409,-0.4661667563754944287879,-0.0650680862663896020237, \ +0.102444575548549118849,-0.8520157260825024225781,-0.0298211062249834936433, \ +-0.4653174759501645385562,0.8545944890801387971990,-0.2976773769162330829374, \ +0.3093514738325885415904,0.2363494602874922356772,0.1974484855458788490346, \ +0.7777794203036600961809,0.3731580648675694722449,-0.0003201115706582268751, \ +0.6970160995106667867205,-0.1417446622937881539617,0.6735687169118647066313, \ +-0.5504259784814062861358,0.1823325876192195271752,0.0893283232282492400955, \ +-0.7513139628213129084244,-0.0681389663512164817094,-0.0516841536789755529036, \ +-0.315174493545774980774,-0.0096538968382749029695,-0.3974986568742733816784, \ +0.1161709126231448979683,0.0939526577995318662451,0.4474141503322081603322, \ +2.0839818065490263165884,0.481117429953414110777,0.1103349130284882323449, \ +0.7841930577945639413429,0.3179393307402755275426,-0.5800239728555655061015, \ +-0.1108667189012625814426,4.1526144610214457131292,0.6644411493894925024861, \ +-0.5535740575269347818477,-0.0391563103551154784165,0.1619934487203539552613, \ +1.0596515488428814855126,-0.3128122097434946624617,-0.3890589346180040597467, \ +0.2748020770797242051664,1.635738569956616927925,0.3868552807413435101758, \ +-0.7602443417718864893118,-0.0831558796771991737273,-2.537669265389609574157, \ +1.426458962036896371828,-1.0022009849938886549836,0.6049199483603766580586, \ +0.1673262559470924115690,-0.7200301037654435187818,0.7467393358286636972920, \ +-0.0106106746626293529240,0.153545238852170945476,-0.451676909031678563977, \ +0.3690242193796505754122,0.8280032112539841282484,1.091435550366606888062, \ +-0.3195494879686350264691,0.8111338563578870397563,-0.1273427352363078746134, \ +2.602467288932953426439,0.0428813666356926206924,-0.6294198199336996646380, \ +0.1402292321928536034115,0.9366730345322898942939,-0.3072343945837653356179, \ +-0.0048993749459086879255,-0.2278153021086992413569,-1.0472316778083061716842, \ +-0.0219504421804297446263,1.4011599912181635918529} + + + + +static void sldivsTest() +{ + float M1[]=numF; + float M2[]=denF; + float Res[]=resF; + int i=0; + + for (i=0;i<200;i++){ + assert( ( fabs(sldivs(M1[i],M2[i])-Res[i]) / fabs(sldivs(M1[i],M2[i])) ) <1e-6); + } + +} + + +static void dldivsTest() +{ + double M1[]=numD; + double M2[]=denD; + double Res[]=resD; + int i=0; + + + for (i=0;i<200;i++){ + assert( ( fabs(dldivs(M1[i],M2[i])-Res[i]) / fabs(dldivs(M1[i],M2[i])) ) <1e-16); + } + +} + + +static void cldivsTest() +{ + float DR[]=CdenR; + float DI[]=CdenI; + float NR[]=CnumR; + float NI[]=CnumI; + float RR[]=CresR; + float RI[]=CresI; + int i=0; + floatComplex in1,in2,out; + + for (i=0;i<200;i++){ + in1 = FloatComplex(NR[i],NI[i]); + in2 = FloatComplex(DR[i],DI[i]); + out = cldivs(in1,in2); + assert( fabs(creals(out)-RR[i]) < 1e-6); + assert( fabs(cimags(out)-RI[i]) < 1e-6); + } +} + + +static void zldivsTest() +{ + double DR[]=ZdenR; + double DI[]=ZdenI; + double NR[]=ZnumR; + double NI[]=ZnumI; + double RR[]=ZresR; + double RI[]=ZresI; + int i=0; + doubleComplex in1,in2,out; + + for (i=0;i<200;i++){ + in1 = DoubleComplex(NR[i],NI[i]); + in2 = DoubleComplex(DR[i],DI[i]); + out = zldivs(in1,in2); + assert( fabs(zreals(out)-RR[i]) < 1e-14); + assert( fabs(zimags(out)-RI[i]) < 1e-14); + } + +} + + + +static void sldivaTest() +{ + float M1[]=numF; + float M2[]=denF; + float Res[]=resF; + float out[200]; + int i=0; + + sldiva(M1,M2,200,out); + + for (i=0;i<200;i++){ + assert( ( fabs(out[i]-Res[i]) / fabs(out[i]) ) <1e-6); + } +} + + +static void dldivaTest() +{ + double M1[]=numD; + double M2[]=denD; + double Res[]=resD; + double out[200]; + int i=0; + + dldiva(M1,M2,200,out); + + for (i=0;i<200;i++){ + assert( ( fabs(out[i]-Res[i]) / fabs(out[i]) ) <1e-16); + } + +} + + +static void cldivaTest() +{ + float DR[]=CdenR; + float DI[]=CdenI; + float NR[]=CnumR; + float NI[]=CnumI; + float RR[]=CresR; + float RI[]=CresI; + int i=0; + floatComplex in1[200],in2[200],out[200]; + + for (i=0;i<200;i++){ + in1[i] = FloatComplex(NR[i],NI[i]); + in2[i] = FloatComplex(DR[i],DI[i]); + } + + cldiva(in1,in2,200,out); + + for (i=0;i<200;i++){ + assert( fabs(creals(out[i])-RR[i]) < 1e-6); + assert( fabs(cimags(out[i])-RI[i]) < 1e-6); + } +} + + +static void zldivaTest() +{ + double DR[]=ZdenR; + double DI[]=ZdenI; + double NR[]=ZnumR; + double NI[]=ZnumI; + double RR[]=ZresR; + double RI[]=ZresI; + int i=0; + doubleComplex in1[200],in2[200],out[200]; + + for (i=0;i<200;i++){ + in1[i] = DoubleComplex(NR[i],NI[i]); + in2[i] = DoubleComplex(DR[i],DI[i]); + } + + zldiva(in1,in2,200,out); + + for (i=0;i<200;i++){ + assert( fabs(zreals(out[i])-RR[i]) < 5e-15); + assert( fabs(zimags(out[i])-RI[i]) < 5e-15); + } +} + + +static int testLDivision(void) { + printf(">>>SCALAIRES<<<\n");printf("\n");printf("\n"); + sldivsTest(); + dldivsTest(); + cldivsTest(); + zldivsTest(); + printf(">>>ARRAYS<<<\n");printf("\n");printf("\n"); + sldivaTest(); + dldivaTest(); + cldivaTest(); + zldivaTest(); + return 0; +} + + + +int main(void) { + assert(testLDivision() == 0); + return 0; +} |