path: root/src/c/operations/division/testLDivision.c

/*
 *  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;
}