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

/*
 *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 *  Copyright (C) 2008-2008 - INRIA - Arnaud TORSET
 *
 *  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 numD {0.8930737324990332126617,0.7964982418343424797058,0.3105977787636220455170,\
0.8362775426357984542847,0.8366548125632107257843,0.1730499723926186561584,\
0.6256599049083888530731,0.9524160288274288177490,0.1760999918915331363678,\
0.3954342594370245933533,0.7430971986614167690277,0.0099669340997934341431,\
0.8562883255071938037872,0.4123467626050114631653,0.0013701054267585277557,\
0.478847078979015350342,0.0607692175544798374176,0.4663597894832491874695,\
0.2553804158233106136322,0.0834822561591863632202,0.4601755072362720966339,\
0.1318861627951264381409,0.2567202891223132610321,0.1483882851898670196533,\
0.3102459297515451908112,0.3355649625882506370544,0.9929056516848504543304,\
0.8480489421635866165161,0.9932069522328674793243,0.0778191434219479560852,\
0.3293439703993499279022,0.8298407644033432006836,0.0962639846839010715485,\
0.0743350265547633171082,0.797786401119083166122,0.1787547301501035690308,\
0.6209519659169018268585,0.0362136671319603919983,0.8750143120996654033661,\
0.1926648132503032684326,0.4170953244902193546295,0.8075440963730216026306,\
0.5955101824365556240082,0.9368934128433465957642,0.4351273146457970142365,\
0.0791484387591481208801,0.8418628755025565624237,0.0468236580491065979004,\
0.8905187272466719150543,0.8972489042207598686218,0.1566572873853147029877,\
0.7473085876554250717163,0.9340659757144749164581,0.6858066553249955177307,\
0.4195983703248202800751,0.5576272048056125640869,0.9217885569669306278229,\
0.0012825494632124900818,0.2336195311509072780609,0.6507374066859483718872,\
0.8781858873553574085236,0.7385697560384869575500,0.3637254047207534313202,\
0.3355757892131805419922,0.2466035136021673679352,0.0068482486531138420105,\
0.0723190023563802242279,0.6311543267220258712769,0.5204586987383663654327,\
0.3941111722961068153381,0.6947632352821528911591,0.4012039266526699066162,\
0.849075383041054010391,0.8391130855306982994080,0.2989268130622804164886,\
0.0181148592382669448853,0.2118785199709236621857,0.8294900776818394660950,\
0.7724645170383155345917,0.0249240621924400329590,0.2546977871097624301910,\
0.1448017610237002372742,0.18158184876665472984,0.7640993203967809677124,\
0.3819306720979511737823,0.8632451379671692848206,0.7450340534560382366180,\
0.4418703205883502960205,0.1983149335719645023346,0.8507903432473540306091,\
0.2671095184050500392914,0.5968565810471773147583,0.8940604371018707752228,\
0.4514882611110806465149,0.3733475464396178722382,0.4417422562837600708008,\
0.6670903661288321018219,0.5977000175043940544128,0.3927405043505132198334,\
0.0467478167265653610229,0.7761418079026043415070,0.0589983472600579261780,\
0.2301703463308513164520,0.8336486034095287322998,0.3184757144190371036530,\
0.0484908362850546836853,0.0728295124135911464691,0.3490902576595544815063,\
0.3259462383575737476349,0.9053150387480854988098,0.2743762019090354442596,\
0.7859510257840156555176,0.2731794440187513828278,0.0720554692670702934265,\
0.2605740218423306941986,0.2215009387582540512085,0.5916113932617008686066,\
0.0858324700966477394104,0.8001660103909671306610,0.0411078669130802154541,\
0.2831356064416468143463,0.8018129533156752586365,0.4847330353222787380219,\
0.5162404496222734451294,0.2271098983474075794220,0.5678930180147290229797,\
0.7612865674309432506561,0.0055178999900817871094,0.2744725891388952732086,\
0.5693024424836039543152,0.3613458289764821529388,0.7475566845387220382690,\
0.7227180902846157550812,0.0618810513988137245178,0.4702493171207606792450,\
0.7143640778958797454834,0.2654818654991686344147,0.7127769580110907554626,\
0.4804507023654878139496,0.4940285924822092056274,0.0104847666807472705841,\
0.7673166813328862190247,0.6725491019897162914276,0.6714572831988334655762,\
0.6595867448486387729645,0.2607971383258700370789,0.6678037284873425960541,\
0.6759099271148443222046,0.4446999360807240009308,0.9939495110884308815002,\
0.9958829130046069622040,0.5640800781548023223877,0.9133111224509775638580,\
0.4908249890431761741638,0.6215975037775933742523,0.7074729967862367630005,\
0.1573635679669678211212,0.6578523861244320869446,0.7743686395697295665741,\
0.8528304547071456909180,0.5792482295073568820953,0.3628176329657435417175,\
0.924179898109287023544,0.5243524145334959030151,0.7886543427594006061554,\
0.6525151440873742103577,0.2477638195268809795380,0.2364655844867229461670,\
0.7240293831564486026764,0.8278210600838065147400,0.4287728047929704189301,\
0.4858888480812311172485,0.5923984018154442310333,0.0949383648112416267395,\
0.1356843891553580760956,0.9917455688118934631348,0.7212927364744246006012,\
0.0115638775750994682312,0.0211908905766904354095,0.1524727698415517807007,\
0.9165380974300205707550,0.4467271203175187110901,0.5868234331719577312469,\
0.1882771886885166168213,0.4196520284749567508698,0.2730510598048567771912,\
0.7565603456459939479828,0.9378882069140672683716,0.0586007428355515003204,\
0.5101847248151898384094,0.5031699347309768199921,0.7783576548099517822266,\
0.6856653341092169284821,0.1381576983258128166199,0.371037633623927831650,\
0.6366564910858869552612,0.4961673622019588947296,0.2994064847007393836975,\
0.2392275254242122173309,0.5618183575570583343506}

#define denD {0.3218038142658770084381,0.1082227518782019615173,0.1685282415710389614105,\
0.8263800088316202163696,0.4923414406366646289825,0.7863734485581517219543,\
0.6762332352809607982635,0.0258686169981956481934,0.3594204657711088657379,\
0.3436427963897585868835,0.2824054299853742122650,0.1450859513133764266968,\
0.0762176741845905780792,0.5220461571589112281799,0.6713762427680194377899,\
0.0599394328892230987549,0.7267188713885843753815,0.2224657749757170677185,\
0.3122289828024804592133,0.4435700643807649612427,0.3983507198281586170197,\
0.1324583934620022773743,0.8820166247896850109100,0.5455272346735000610352,\
0.2917219498194754123688,0.7739847479388117790222,0.3354639573954045772552,\
0.8127403985708951950073,0.4612239454872906208038,0.6898109326139092445374,\
0.9649041066877543926239,0.8210376314818859100342,0.2802407057024538516998,\
0.9873316427692770957947,0.294199434574693441391,0.4859610591083765029907,\
0.2247181800194084644318,0.9585652919486165046692,0.1503968122415244579315,\
0.0216291621327400207520,0.0688429796136915683746,0.9950710041448473930359,\
0.7568672685883939266205,0.6163959559053182601929,0.0865804632194340229034,\
0.5165374809876084327698,0.1916800136677920818329,0.2940570451319217681885,\
0.3528221980668604373932,0.1317937439307570457458,0.0549608371220529079437,\
0.929352553561329841614,0.737892795819789171219,0.7509917514398694038391,\
0.6889848816208541393280,0.8865169286727905273438,0.6891661235131323337555,\
0.8677108911797404289246,0.7947537912987172603607,0.2496256213635206222534,\
0.3935408894903957843781,0.7297343472018837928772,0.7888072351925075054169,\
0.113488640636205673218,0.4145256043411791324615,0.6172473421320319175720,\
0.7440188056789338588715,0.9038409832864999771118,0.3976829168386757373810,\
0.9472072543576359748840,0.2581262919120490550995,0.1955799385905265808105,\
0.9381833248771727085114,0.4226356102153658866882,0.0937463282607495784760,\
0.9977992679923772811890,0.2042182614095509052277,0.9455819511786103248596,\
0.9336234177462756633759,0.9743702597916126251221,0.4100225553847849369049,\
0.5125095760449767112732,0.0948633304797112941742,0.5688196588307619094849,\
0.7322562676854431629181,0.8108531581237912178040,0.5459008770994842052460,\
0.5022544711828231811523,0.7634959020651876926422,0.7354982374235987663269,\
0.0699520572088658809662,0.6130836438387632369995,0.0965849910862743854523,\
0.5439325878396630287170,0.9187005828134715557098,0.5072866193950176239014,\
0.1335940570570528507233,0.8688194593414664268494,0.7999687767587602138519,\
0.9879787657409906387329,0.7131399479694664478302,0.3067426951602101325989,\
0.5431228461675345897675,0.7330236807465553283691,0.6498145484365522861481,\
0.8018737239763140678406,0.2859625308774411678314,0.1894423719495534896851,\
0.7794728656299412250519,0.5433104271069169044495,0.5268451268784701824188,\
0.1533693112432956695557,0.6041304902173578739166,0.5948378806933760643005,\
0.8857938847504556179047,0.0043053645640611648560,0.1302204323001205921173,\
0.9758609728887677192688,0.9183407831005752086639,0.0624175965785980224609,\
0.9939593323506414890289,0.4122588960453867912292,0.8258536770008504390717,\
0.0376359503716230392456,0.4675730471499264240265,0.4759115139022469520569,\
0.4060978214256465435028,0.0392968021333217620850,0.4401316107250750064850,\
0.3316476037725806236267,0.0877817696891725063324,0.1150833908468484878540,\
0.9667435702867805957794,0.8103649737313389778137,0.3928376468829810619354,\
0.7880131229758262634277,0.4798596971668303012848,0.0270724548026919364929,\
0.6701857983134686946869,0.5602217521518468856812,0.2564360727556049823761,\
0.2626037681475281715393,0.4447338129393756389618,0.8522944338619709014893,\
0.2347065494395792484283,0.3277532672509551048279,0.2253599218092858791351,\
0.3468936551362276077271,0.7743145865388214588165,0.1285835551097989082336,\
0.1156307714991271495819,0.2054340392351150512695,0.4535544612444937229156,\
0.6516549764201045036316,0.0710035725496709346771,0.1265540253371000289917,\
0.4974718545563519001007,0.0879269847646355628967,0.1462626229040324687958,\
0.715134423226118087769,0.9305738122202455997467,0.3140813848003745079041,\
0.5769402063451707363129,0.1306138429790735244751,0.0478980806656181812286,\
0.4500174494460225105286,0.0384718659333884716034,0.483350999653339385986,\
0.2981918179430067539215,0.7112689120694994926453,0.9268360524438321590424,\
0.9477838929742574691772,0.1729496796615421772003,0.2750928336754441261292,\
0.0044281478039920330048,0.0611358620226383209229,0.1950612799264490604401,\
0.3789803450927138328552,0.2549188635312020778656,0.1764185149222612380981,\
0.6008180272765457630157,0.3703392641618847846985,0.2908470141701400279999,\
0.5384815335273742675781,0.8090293356217443943024,0.9260985879227519035339,\
0.1576966657303273677826,0.9518593531101942062378,0.2709982101805508136749,\
0.1609848598018288612366,0.8782086591236293315887,0.5091647170484066009521,\
0.7951062084175646305084,0.8432204117998480796814,0.5806765086017549037933,\
0.3487791065126657485962,0.9397577759809792041779,0.4363934816792607307434,\
0.5549766751937568187714,0.9105900451540946960449}

#define resD {2.7752117685005690539413,7.3598039969520661074398,1.8430013620755494319070,\
1.0119769763285682007137,1.6993385961606277678726,0.2200608028029340801357,\
0.9252131842476511991435,36.817431287256695782162,0.4899553827958132434794,\
1.1507130764601400940705,2.6313134230453778528158,0.0686967553341225334318,\
11.2347737538324832229,0.789866483931406127006,0.0020407415983468750811,\
7.9888490080310781138451,0.0836213561350959977414,2.0963215107319497221283,\
0.8179266816651262761440,0.1882053431079252492353,1.155201897048870884888,\
0.9956799214310265710992,0.2910606012483354931852,0.2720089406327768632998,\
1.063498752642826117309,0.4335550067128443041398,2.9597983026073131362921,\
1.0434438150912359599687,2.1534158448419846720867,0.1128122790502419231506,\
0.3413230062103223549919,1.0107219603388561957047,0.3435046469876847918812,\
0.0752888121222041739600,2.7117196954249602747211,0.3678375598202789920066,\
2.7632475746433664554047,0.0377790302195727817347,5.8180376236596496042353,\
8.9076410851193781326174,6.0586471827734049711012,0.811544194343212454967,\
0.7868092691433471452811,1.519953860611081841725,5.025698621442897362499,\
0.1532288394790210228624,4.3920222009250329264773,0.1592332468283501334394,\
2.5239872437899073531753,6.8079779620811464724284,2.8503439101086094353832,\
0.8041174307766172368872,1.2658559359923549081373,0.9132013154739780924629,\
0.6090095465341773817158,0.6290090880051657507011,1.3375418865163728465717,\
0.0014780838597850658872,0.2939520813976195801054,2.6068534276708055230642,\
2.2314984562151556346521,1.0121077058665004511084,0.4611080990300331916565,\
2.9569108179636049982264,0.5949053834541859764329,0.0110948208046701829455,\
0.0972005032727465967390,0.6983023987549834554756,1.3087278248602665087219,\
0.4160770206129594250832,2.6915632271929834651303,2.0513552133414121314559,\
0.9050207571662129968360,1.9854292095810492924102,3.1886775579181523276873,\
0.0181548131165850216984,1.0375101546183984613236,0.8772270628134669623321,\
0.8273833992971273421091,0.0255796622915918127339,0.6211799418467155442514,\
0.2825347423576584082738,1.9141416166649365404595,1.343306808290392950767,\
0.5215806118057263462973,1.0646134004886980140014,1.364779000566185729326,\
0.8797737918544228374884,0.2597459043795002364696,1.156753748625715116916,\
3.8184655185694236223526,0.9735320572410287587317,9.2567222613630804062268,\
0.8300445150827541196392,0.4063865348776212749193,0.8707942204558346555032,\
4.9934134857806107277156,0.6879450167442484609381,0.4909447915477189172684,\
0.0473166209108797850003,1.0883443146222897546238,0.1923382306765068772147,\
0.4237905806301724420670,1.1372737679640729790975,0.4901024687509485389114,\
0.0604719107699394076150,0.2546820109268255194479,1.8427253315457512439224,\
0.4181623924703986028284,1.666294246493322805946,0.5207910027273101594147,\
5.1245651389620645588252,0.4521861558758028531990,0.1211346345042424582639,\
0.2941700392476057634994,51.447661507511597278608,4.5431533501455980683659,\
0.0879556335187422766442,0.8713170808873182959786,0.6585941972519883114146,\
0.2848563288520584713126,1.944925776028375352666,0.5869478441781880162509,\
13.71668430117580506078,0.4857206798632796584947,1.1932743827907790201692,\
1.874638393179189010951,0.1404160056424255120788,0.6236148062319990525992,\
1.716588439077007199884,4.1164108476734497799043,6.4957825715577062197781,\
0.7475799296707237306947,0.0763619522125708327653,1.1970576670846393430026,\
0.9065383012889166591819,0.5532489331081913430666,26.328493784768131291685,\
0.7168917986244236484339,0.8818447169975360822036,0.0408864734515713840191,\
2.9219560966155495584928,1.5122508845114404074650,0.7878231471679140174302,\
2.8102613515624832452033,0.7957117880572708301656,2.9632763586618620088586,\
1.9484643697199064416026,0.5743142952640584164570,7.7299893461468416333560,\
8.6126115055119605301570,2.745796559591685781498,2.0136746531937359527831,\
0.7531976380193472486724,8.7544539162835999235313,5.590284425183250860414,\
0.316326575113089591973,7.4818030879300874147475,5.2943713451509566425557,\
1.1925456627578525647948,0.6224634971462769117423,1.1551707631330812020565,\
1.6018642624403442997760,4.0145240548316589723754,16.46525981416842299154,\
1.449977428410007318504,6.4401300408945045816722,0.4892212587877478036091,\
2.4280658944667354859348,1.1638650952354832046609,0.4626199031235405656481,\
0.5126578449824196193063,3.4252645218814619099135,0.3451139149747912693300,\
30.641341518238579766376,16.221993703869831193742,3.6977750620030764849844,\
0.0305131327385077949499,0.0831279815198794347353,0.8642673922787461604500,\
1.5254836836115013287696,1.206264535110818991726,2.0176360924533236484990,\
0.3496446525383871128945,0.518710521358847098661,0.2948401642824150514777,\
4.7975671656860932046129,0.98532225779945714628,0.2162403316114491491629,\
3.169147244301254939813,0.5729503228003851589278,1.5286951918468318911692,\
0.8623569113789728568520,0.1638452964283871882145,0.6389747615541933045691,\
1.8253859798300935413096,0.5279736703258748331535,0.6860929350929130254855,\
0.4310587023151768448770,0.6169827580994304838669}

#define numF {0.8930737324990332126617f,0.7964982418343424797058f,0.3105977787636220455170f,\
0.8362775426357984542847f,0.8366548125632107257843f,0.1730499723926186561584f,\
0.6256599049083888530731f,0.9524160288274288177490f,0.1760999918915331363678f,\
0.3954342594370245933533f,0.7430971986614167690277f,0.0099669340997934341431f,\
0.8562883255071938037872f,0.4123467626050114631653f,0.0013701054267585277557f,\
0.478847078979015350342f,0.0607692175544798374176f,0.4663597894832491874695f,\
0.2553804158233106136322f,0.0834822561591863632202f,0.4601755072362720966339f,\
0.1318861627951264381409f,0.2567202891223132610321f,0.1483882851898670196533f,\
0.3102459297515451908112f,0.3355649625882506370544f,0.9929056516848504543304f,\
0.8480489421635866165161f,0.9932069522328674793243f,0.0778191434219479560852f,\
0.3293439703993499279022f,0.8298407644033432006836f,0.0962639846839010715485f,\
0.0743350265547633171082f,0.797786401119083166122f,0.1787547301501035690308f,\
0.6209519659169018268585f,0.0362136671319603919983f,0.8750143120996654033661f,\
0.1926648132503032684326f,0.4170953244902193546295f,0.8075440963730216026306f,\
0.5955101824365556240082f,0.9368934128433465957642f,0.4351273146457970142365f,\
0.0791484387591481208801f,0.8418628755025565624237f,0.0468236580491065979004f,\
0.8905187272466719150543f,0.8972489042207598686218f,0.1566572873853147029877f,\
0.7473085876554250717163f,0.9340659757144749164581f,0.6858066553249955177307f,\
0.4195983703248202800751f,0.5576272048056125640869f,0.9217885569669306278229f,\
0.0012825494632124900818f,0.2336195311509072780609f,0.6507374066859483718872f,\
0.8781858873553574085236f,0.7385697560384869575500f,0.3637254047207534313202f,\
0.3355757892131805419922f,0.2466035136021673679352f,0.0068482486531138420105f,\
0.0723190023563802242279f,0.6311543267220258712769f,0.5204586987383663654327f,\
0.3941111722961068153381f,0.6947632352821528911591f,0.4012039266526699066162f,\
0.849075383041054010391f,0.8391130855306982994080f,0.2989268130622804164886f,\
0.0181148592382669448853f,0.2118785199709236621857f,0.8294900776818394660950f,\
0.7724645170383155345917f,0.0249240621924400329590f,0.2546977871097624301910f,\
0.1448017610237002372742f,0.18158184876665472984f,0.7640993203967809677124f,\
0.3819306720979511737823f,0.8632451379671692848206f,0.7450340534560382366180f,\
0.4418703205883502960205f,0.1983149335719645023346f,0.8507903432473540306091f,\
0.2671095184050500392914f,0.5968565810471773147583f,0.8940604371018707752228f,\
0.4514882611110806465149f,0.3733475464396178722382f,0.4417422562837600708008f,\
0.6670903661288321018219f,0.5977000175043940544128f,0.3927405043505132198334f,\
0.0467478167265653610229f,0.7761418079026043415070f,0.0589983472600579261780f,\
0.2301703463308513164520f,0.8336486034095287322998f,0.3184757144190371036530f,\
0.0484908362850546836853f,0.0728295124135911464691f,0.3490902576595544815063f,\
0.3259462383575737476349f,0.9053150387480854988098f,0.2743762019090354442596f,\
0.7859510257840156555176f,0.2731794440187513828278f,0.0720554692670702934265f,\
0.2605740218423306941986f,0.2215009387582540512085f,0.5916113932617008686066f,\
0.0858324700966477394104f,0.8001660103909671306610f,0.0411078669130802154541f,\
0.2831356064416468143463f,0.8018129533156752586365f,0.4847330353222787380219f,\
0.5162404496222734451294f,0.2271098983474075794220f,0.5678930180147290229797f,\
0.7612865674309432506561f,0.0055178999900817871094f,0.2744725891388952732086f,\
0.5693024424836039543152f,0.3613458289764821529388f,0.7475566845387220382690f,\
0.7227180902846157550812f,0.0618810513988137245178f,0.4702493171207606792450f,\
0.7143640778958797454834f,0.2654818654991686344147f,0.7127769580110907554626f,\
0.4804507023654878139496f,0.4940285924822092056274f,0.0104847666807472705841f,\
0.7673166813328862190247f,0.6725491019897162914276f,0.6714572831988334655762f,\
0.6595867448486387729645f,0.2607971383258700370789f,0.6678037284873425960541f,\
0.6759099271148443222046f,0.4446999360807240009308f,0.9939495110884308815002f,\
0.9958829130046069622040f,0.5640800781548023223877f,0.9133111224509775638580f,\
0.4908249890431761741638f,0.6215975037775933742523f,0.7074729967862367630005f,\
0.1573635679669678211212f,0.6578523861244320869446f,0.7743686395697295665741f,\
0.8528304547071456909180f,0.5792482295073568820953f,0.3628176329657435417175f,\
0.924179898109287023544f,0.5243524145334959030151f,0.7886543427594006061554f,\
0.6525151440873742103577f,0.2477638195268809795380f,0.2364655844867229461670f,\
0.7240293831564486026764f,0.8278210600838065147400f,0.4287728047929704189301f,\
0.4858888480812311172485f,0.5923984018154442310333f,0.0949383648112416267395f,\
0.1356843891553580760956f,0.9917455688118934631348f,0.7212927364744246006012f,\
0.0115638775750994682312f,0.0211908905766904354095f,0.1524727698415517807007f,\
0.9165380974300205707550f,0.4467271203175187110901f,0.5868234331719577312469f,\
0.1882771886885166168213f,0.4196520284749567508698f,0.2730510598048567771912f,\
0.7565603456459939479828f,0.9378882069140672683716f,0.0586007428355515003204f,\
0.5101847248151898384094f,0.5031699347309768199921f,0.7783576548099517822266f,\
0.6856653341092169284821f,0.1381576983258128166199f,0.371037633623927831650f,\
0.6366564910858869552612f,0.4961673622019588947296f,0.2994064847007393836975f,\
0.2392275254242122173309f,0.5618183575570583343506f}

#define denF {0.3218038142658770084381f,0.1082227518782019615173f,0.1685282415710389614105f,\
0.8263800088316202163696f,0.4923414406366646289825f,0.7863734485581517219543f,\
0.6762332352809607982635f,0.0258686169981956481934f,0.3594204657711088657379f,\
0.3436427963897585868835f,0.2824054299853742122650f,0.1450859513133764266968f,\
0.0762176741845905780792f,0.5220461571589112281799f,0.6713762427680194377899f,\
0.0599394328892230987549f,0.7267188713885843753815f,0.2224657749757170677185f,\
0.3122289828024804592133f,0.4435700643807649612427f,0.3983507198281586170197f,\
0.1324583934620022773743f,0.8820166247896850109100f,0.5455272346735000610352f,\
0.2917219498194754123688f,0.7739847479388117790222f,0.3354639573954045772552f,\
0.8127403985708951950073f,0.4612239454872906208038f,0.6898109326139092445374f,\
0.9649041066877543926239f,0.8210376314818859100342f,0.2802407057024538516998f,\
0.9873316427692770957947f,0.294199434574693441391f,0.4859610591083765029907f,\
0.2247181800194084644318f,0.9585652919486165046692f,0.1503968122415244579315f,\
0.0216291621327400207520f,0.0688429796136915683746f,0.9950710041448473930359f,\
0.7568672685883939266205f,0.6163959559053182601929f,0.0865804632194340229034f,\
0.5165374809876084327698f,0.1916800136677920818329f,0.2940570451319217681885f,\
0.3528221980668604373932f,0.1317937439307570457458f,0.0549608371220529079437f,\
0.929352553561329841614f,0.737892795819789171219f,0.7509917514398694038391f,\
0.6889848816208541393280f,0.8865169286727905273438f,0.6891661235131323337555f,\
0.8677108911797404289246f,0.7947537912987172603607f,0.2496256213635206222534f,\
0.3935408894903957843781f,0.7297343472018837928772f,0.7888072351925075054169f,\
0.113488640636205673218f,0.4145256043411791324615f,0.6172473421320319175720f,\
0.7440188056789338588715f,0.9038409832864999771118f,0.3976829168386757373810f,\
0.9472072543576359748840f,0.2581262919120490550995f,0.1955799385905265808105f,\
0.9381833248771727085114f,0.4226356102153658866882f,0.0937463282607495784760f,\
0.9977992679923772811890f,0.2042182614095509052277f,0.9455819511786103248596f,\
0.9336234177462756633759f,0.9743702597916126251221f,0.4100225553847849369049f,\
0.5125095760449767112732f,0.0948633304797112941742f,0.5688196588307619094849f,\
0.7322562676854431629181f,0.8108531581237912178040f,0.5459008770994842052460f,\
0.5022544711828231811523f,0.7634959020651876926422f,0.7354982374235987663269f,\
0.0699520572088658809662f,0.6130836438387632369995f,0.0965849910862743854523f,\
0.5439325878396630287170f,0.9187005828134715557098f,0.5072866193950176239014f,\
0.1335940570570528507233f,0.8688194593414664268494f,0.7999687767587602138519f,\
0.9879787657409906387329f,0.7131399479694664478302f,0.3067426951602101325989f,\
0.5431228461675345897675f,0.7330236807465553283691f,0.6498145484365522861481f,\
0.8018737239763140678406f,0.2859625308774411678314f,0.1894423719495534896851f,\
0.7794728656299412250519f,0.5433104271069169044495f,0.5268451268784701824188f,\
0.1533693112432956695557f,0.6041304902173578739166f,0.5948378806933760643005f,\
0.8857938847504556179047f,0.0043053645640611648560f,0.1302204323001205921173f,\
0.9758609728887677192688f,0.9183407831005752086639f,0.0624175965785980224609f,\
0.9939593323506414890289f,0.4122588960453867912292f,0.8258536770008504390717f,\
0.0376359503716230392456f,0.4675730471499264240265f,0.4759115139022469520569f,\
0.4060978214256465435028f,0.0392968021333217620850f,0.4401316107250750064850f,\
0.3316476037725806236267f,0.0877817696891725063324f,0.1150833908468484878540f,\
0.9667435702867805957794f,0.8103649737313389778137f,0.3928376468829810619354f,\
0.7880131229758262634277f,0.4798596971668303012848f,0.0270724548026919364929f,\
0.6701857983134686946869f,0.5602217521518468856812f,0.2564360727556049823761f,\
0.2626037681475281715393f,0.4447338129393756389618f,0.8522944338619709014893f,\
0.2347065494395792484283f,0.3277532672509551048279f,0.2253599218092858791351f,\
0.3468936551362276077271f,0.7743145865388214588165f,0.1285835551097989082336f,\
0.1156307714991271495819f,0.2054340392351150512695f,0.4535544612444937229156f,\
0.6516549764201045036316f,0.0710035725496709346771f,0.1265540253371000289917f,\
0.4974718545563519001007f,0.0879269847646355628967f,0.1462626229040324687958f,\
0.715134423226118087769f,0.9305738122202455997467f,0.3140813848003745079041f,\
0.5769402063451707363129f,0.1306138429790735244751f,0.0478980806656181812286f,\
0.4500174494460225105286f,0.0384718659333884716034f,0.483350999653339385986f,\
0.2981918179430067539215f,0.7112689120694994926453f,0.9268360524438321590424f,\
0.9477838929742574691772f,0.1729496796615421772003f,0.2750928336754441261292f,\
0.0044281478039920330048f,0.0611358620226383209229f,0.1950612799264490604401f,\
0.3789803450927138328552f,0.2549188635312020778656f,0.1764185149222612380981f,\
0.6008180272765457630157f,0.3703392641618847846985f,0.2908470141701400279999f,\
0.5384815335273742675781f,0.8090293356217443943024f,0.9260985879227519035339f,\
0.1576966657303273677826f,0.9518593531101942062378f,0.2709982101805508136749f,\
0.1609848598018288612366f,0.8782086591236293315887f,0.5091647170484066009521f,\
0.7951062084175646305084f,0.8432204117998480796814f,0.5806765086017549037933f,\
0.3487791065126657485962f,0.9397577759809792041779f,0.4363934816792607307434f,\
0.5549766751937568187714f,0.9105900451540946960449f}

#define resF {2.7752117685005690539413f,7.3598039969520661074398f,1.8430013620755494319070f,\
1.0119769763285682007137f,1.6993385961606277678726f,0.2200608028029340801357f,\
0.9252131842476511991435f,36.817431287256695782162f,0.4899553827958132434794f,\
1.1507130764601400940705f,2.6313134230453778528158f,0.0686967553341225334318f,\
11.2347737538324832229f,0.789866483931406127006f,0.0020407415983468750811f,\
7.9888490080310781138451f,0.0836213561350959977414f,2.0963215107319497221283f,\
0.8179266816651262761440f,0.1882053431079252492353f,1.155201897048870884888f,\
0.9956799214310265710992f,0.2910606012483354931852f,0.2720089406327768632998f,\
1.063498752642826117309f,0.4335550067128443041398f,2.9597983026073131362921f,\
1.0434438150912359599687f,2.1534158448419846720867f,0.1128122790502419231506f,\
0.3413230062103223549919f,1.0107219603388561957047f,0.3435046469876847918812f,\
0.0752888121222041739600f,2.7117196954249602747211f,0.3678375598202789920066f,\
2.7632475746433664554047f,0.0377790302195727817347f,5.8180376236596496042353f,\
8.9076410851193781326174f,6.0586471827734049711012f,0.811544194343212454967f,\
0.7868092691433471452811f,1.519953860611081841725f,5.025698621442897362499f,\
0.1532288394790210228624f,4.3920222009250329264773f,0.1592332468283501334394f,\
2.5239872437899073531753f,6.8079779620811464724284f,2.8503439101086094353832f,\
0.8041174307766172368872f,1.2658559359923549081373f,0.9132013154739780924629f,\
0.6090095465341773817158f,0.6290090880051657507011f,1.3375418865163728465717f,\
0.0014780838597850658872f,0.2939520813976195801054f,2.6068534276708055230642f,\
2.2314984562151556346521f,1.0121077058665004511084f,0.4611080990300331916565f,\
2.9569108179636049982264f,0.5949053834541859764329f,0.0110948208046701829455f,\
0.0972005032727465967390f,0.6983023987549834554756f,1.3087278248602665087219f,\
0.4160770206129594250832f,2.6915632271929834651303f,2.0513552133414121314559f,\
0.9050207571662129968360f,1.9854292095810492924102f,3.1886775579181523276873f,\
0.0181548131165850216984f,1.0375101546183984613236f,0.8772270628134669623321f,\
0.8273833992971273421091f,0.0255796622915918127339f,0.6211799418467155442514f,\
0.2825347423576584082738f,1.9141416166649365404595f,1.343306808290392950767f,\
0.5215806118057263462973f,1.0646134004886980140014f,1.364779000566185729326f,\
0.8797737918544228374884f,0.2597459043795002364696f,1.156753748625715116916f,\
3.8184655185694236223526f,0.9735320572410287587317f,9.2567222613630804062268f,\
0.8300445150827541196392f,0.4063865348776212749193f,0.8707942204558346555032f,\
4.9934134857806107277156f,0.6879450167442484609381f,0.4909447915477189172684f,\
0.0473166209108797850003f,1.0883443146222897546238f,0.1923382306765068772147f,\
0.4237905806301724420670f,1.1372737679640729790975f,0.4901024687509485389114f,\
0.0604719107699394076150f,0.2546820109268255194479f,1.8427253315457512439224f,\
0.4181623924703986028284f,1.666294246493322805946f,0.5207910027273101594147f,\
5.1245651389620645588252f,0.4521861558758028531990f,0.1211346345042424582639f,\
0.2941700392476057634994f,51.447661507511597278608f,4.5431533501455980683659f,\
0.0879556335187422766442f,0.8713170808873182959786f,0.6585941972519883114146f,\
0.2848563288520584713126f,1.944925776028375352666f,0.5869478441781880162509f,\
13.71668430117580506078f,0.4857206798632796584947f,1.1932743827907790201692f,\
1.874638393179189010951f,0.1404160056424255120788f,0.6236148062319990525992f,\
1.716588439077007199884f,4.1164108476734497799043f,6.4957825715577062197781f,\
0.7475799296707237306947f,0.0763619522125708327653f,1.1970576670846393430026f,\
0.9065383012889166591819f,0.5532489331081913430666f,26.328493784768131291685f,\
0.7168917986244236484339f,0.8818447169975360822036f,0.0408864734515713840191f,\
2.9219560966155495584928f,1.5122508845114404074650f,0.7878231471679140174302f,\
2.8102613515624832452033f,0.7957117880572708301656f,2.9632763586618620088586f,\
1.9484643697199064416026f,0.5743142952640584164570f,7.7299893461468416333560f,\
8.6126115055119605301570f,2.745796559591685781498f,2.0136746531937359527831f,\
0.7531976380193472486724f,8.7544539162835999235313f,5.590284425183250860414f,\
0.316326575113089591973f,7.4818030879300874147475f,5.2943713451509566425557f,\
1.1925456627578525647948f,0.6224634971462769117423f,1.1551707631330812020565f,\
1.6018642624403442997760f,4.0145240548316589723754f,16.46525981416842299154f,\
1.449977428410007318504f,6.4401300408945045816722f,0.4892212587877478036091f,\
2.4280658944667354859348f,1.1638650952354832046609f,0.4626199031235405656481f,\
0.5126578449824196193063f,3.4252645218814619099135f,0.3451139149747912693300f,\
30.641341518238579766376f,16.221993703869831193742f,3.6977750620030764849844f,\
0.0305131327385077949499f,0.0831279815198794347353f,0.8642673922787461604500f,\
1.5254836836115013287696f,1.206264535110818991726f,2.0176360924533236484990f,\
0.3496446525383871128945f,0.518710521358847098661f,0.2948401642824150514777f,\
4.7975671656860932046129f,0.98532225779945714628f,0.2162403316114491491629f,\
3.169147244301254939813f,0.5729503228003851589278f,1.5286951918468318911692f,\
0.8623569113789728568520f,0.1638452964283871882145f,0.6389747615541933045691f,\
1.8253859798300935413096f,0.5279736703258748331535f,0.6860929350929130254855f,\
0.4310587023151768448770f,0.6169827580994304838669f}


#define CnumR {0.3053411715663969516754f,0.8684180630370974540710f,0.3313439427874982357025f,\
0.2663558926433324813843f,0.7923677195794880390167f,0.5093877995386719703674f,\
0.5743758822791278362274f,0.5372999198734760284424f,0.4547364399768412113190f,\
0.8820295548066496849060f,0.6209865263663232326508f,0.3768135774880647659302f,\
0.9335849327035248279572f,0.9658922599628567695618f,0.1628772872500121593475f,\
0.0686259418725967407227f,0.842607865575700998306f,0.2468038378283381462097f,\
0.4037963910959661006927f,0.6407211553305387496948f,0.2586575602181255817413f,\
0.653272570110857486725f,0.8694754014723002910614f,0.5468569807708263397217f,\
0.9369539530016481876373f,0.8503103395923972129822f,0.0515501177869737148285f,\
0.6273802313953638076782f,0.8446539309807121753693f,0.6094277473166584968567f,\
0.2292158487252891063690f,0.8180890753865242004395f,0.1065300428308546543121f,\
0.4735511047765612602234f,0.3123670606873929500580f,0.5758922155946493148804f,\
0.9565085847862064838409f,0.4356113011017441749573f,0.0499714012257754802704f,\
0.4900149442255496978760f,0.7888170615769922733307f,0.8495545452460646629333f,\
0.4474280974827706813812f,0.0475020725280046463013f,0.9024910223670303821564f,\
0.2925249831750988960266f,0.7366607296280562877655f,0.0217677354812622070312f,\
0.0329902716912329196930f,0.5969691900536417961121f,0.7426943792961537837982f,\
0.4529420714825391769409f,0.2646744553931057453156f,0.7714125374332070350647f,\
0.9904671530239284038544f,0.6887647770345211029053f,0.4178880215622484683990f,\
0.0286574354395270347595f,0.3956260806880891323090f,0.4547755364328622817993f,\
0.5044045564718544483185f,0.640153449960052967072f,0.8830573889426887035370f,\
0.4225513264536857604980f,0.3449804955162107944489f,0.8352892948314547538757f,\
0.7769011496566236019135f,0.2447405960410833358765f,0.9427682091481983661652f,\
0.4643566990271210670471f,0.3058003033511340618134f,0.5256443209946155548096f,\
0.7063384638167917728424f,0.6439361488446593284607f,0.0671340576373040676117f,\
0.6960939336568117141724f,0.1160622579045593738556f,0.1034545050933957099915f,\
0.7939856606535613536835f,0.2613761276006698608398f,0.9276020326651632785797f,\
0.4516644952818751335144f,0.2685945495031774044037f,0.3909545373171567916870f,\
0.5062622581608593463898f,0.0817960808053612709045f,0.7260428736917674541473f,\
0.3187382929027080535889f,0.3859493941999971866608f,0.9341296991333365440369f,\
0.5919263935647904872894f,0.5226474497467279434204f,0.6464912262745201587677f,\
0.8347413809970021247864f,0.8977597537450492382050f,0.1522252932190895080566f,\
0.2030655764974653720856f,0.6291697425767779350281f,0.2178661315701901912689f,\
0.6730475183576345443726f,0.6014883895404636859894f,0.8297548526898026466370f,\
0.4715012605302035808563f,0.1966782845556735992432f,0.413111193571239709854f,\
0.9953989749774336814880f,0.4339618287049233913422f,0.4649231452494859695435f,\
0.8230779361911118030548f,0.5624991850927472114563f,0.3004282522015273571014f,\
0.9571288526058197021484f,0.5056911953724920749664f,0.3458018628880381584167f,\
0.1462918235920369625092f,0.0892800372093915939331f,0.3806377653963863849640f,\
0.4279290596023201942444f,0.6277162353508174419403f,0.973642762750387191772f,\
0.3438236177898943424225f,0.6563267400488257408142f,0.7661834782920777797699f,\
0.7077049557119607925415f,0.566568237263709306717f,0.4663848998025059700012f,\
0.1607741150073707103729f,0.6611637100577354431152f,0.4569083326496183872223f,\
0.2494795573875308036804f,0.4719319283030927181244f,0.7297094669193029403687f,\
0.8767609228380024433136f,0.9846866214647889137268f,0.5204629446379840373993f,\
0.0243570692837238311768f,0.7086957977153360843658f,0.3529176330193877220154f,\
0.845518832560628652573f,0.9650736916810274124146f,0.3660673541016876697540f,\
0.0522273825481534004211f,0.0653146761469542980194f,0.2474536448717117309570f,\
0.3402558066882193088531f,0.5330434022471308708191f,0.8843311234377324581146f,\
0.6511900555342435836792f,0.3787677739746868610382f,0.8720673331990838050842f,\
0.0907509098760783672333f,0.159093420952558517456f,0.3879462392069399356842f,\
0.0035981675609946250916f,0.3878797567449510097504f,0.355407038703560829163f,\
0.6540398863144218921661f,0.0270273657515645027161f,0.4033016446046531200409f,\
0.5721693113446235656738f,0.4763818108476698398590f,0.8092558486387133598328f,\
0.7195184617303311824799f,0.7523729261010885238647f,0.8064276059158146381378f,\
0.6007828647270798683167f,0.2698240275494754314423f,0.4986709095537662506104f,\
0.9864028231240808963776f,0.8842167323455214500427f,0.9431624910794198513031f,\
0.2763795573264360427856f,0.1813098085112869739532f,0.173957456834614276886f,\
0.7417211043648421764374f,0.2395282387733459472656f,0.5980439134873449802399f,\
0.9858012227341532707214f,0.3350073709152638912201f,0.6487060766667127609253f,\
0.0853690807707607746124f,0.6952167609706521034241f,0.35416056914255023003f,\
0.3494555018842220306396f,0.2085028053261339664459f,0.503043591044843196869f,\
0.2702476507984101772308f,0.2799626830965280532837f,0.3920604703016579151154f,\
0.2273621382191777229309f,0.2002935144118964672089f,0.4767948314547538757324f,\
0.2251090579666197299957f,0.1402857257053256034851f,0.4847956537269055843353f,\
0.5474343802779912948608f,0.5220802356489002704620f,0.5684244418516755104065f,\
0.3804731811396777629852f,0.0783600397408008575439f}

#define CnumI {0.2332928166724741458893f,0.4757708823308348655701f,0.7120002261362969875336f,\
0.9474247265607118606567f,0.7988345962949097156525f,0.7477577673271298408508f,\
0.8264737087301909923553f,0.0092803686857223510742f,0.0395535626448690891266f,\
0.3952374337241053581238f,0.6943654878996312618256f,0.1225995849817991256714f,\
0.1789084826596081256866f,0.397133202292025089264f,0.5007088850252330303192f,\
0.9878442399203777313232f,0.0894288630224764347076f,0.4005126198753714561462f,\
0.5702695823274552822113f,0.7643308732658624649048f,0.3575342861004173755646f,\
0.9968325765803456306458f,0.9704508963041007518768f,0.9353430047631263732910f,\
0.2604631208814680576324f,0.7931062979623675346375f,0.6356834261678159236908f,\
0.3900403138250112533569f,0.2490606089122593402863f,0.9967422122135758399963f,\
0.3570490772835910320282f,0.1909146942198276519775f,0.0301763252355158329010f,\
0.7328046923503279685974f,0.4808894596062600612640f,0.9955431837588548660278f,\
0.8424210143275558948517f,0.8124466734007000923157f,0.6601486611180007457733f,\
0.6013877689838409423828f,0.0190328010357916355133f,0.1712641445919871330261f,\
0.5022003962658345699310f,0.5823920648545026779175f,0.4316027765162289142609f,\
0.6963225165382027626038f,0.4569095293991267681122f,0.4861248694360256195068f,\
0.9084099591709673404694f,0.6606048634275794029236f,0.7886779732070863246918f,\
0.5602205935865640640259f,0.2211156305857002735138f,0.4836320402100682258606f,\
0.9762249621562659740448f,0.4768665656447410583496f,0.7335670464672148227692f,\
0.0370046747848391532898f,0.383851700928062200546f,0.0240872111171483993530f,\
0.3064605225808918476105f,0.2136170351877808570862f,0.5479403878562152385712f,\
0.2325751073658466339111f,0.5516138956882059574127f,0.9792927717790007591248f,\
0.9224376133643090724945f,0.9068189132958650588989f,0.0295983594842255115509f,\
0.6255925344303250312805f,0.4270721334032714366913f,0.0292781740427017211914f,\
0.4844796755351126194000f,0.4425434647127985954285f,0.6420570178888738155365f,\
0.0063550006598234176636f,0.7094187592156231403351f,0.530040563084185123444f,\
0.9930261741392314434052f,0.2249126248061656951904f,0.1368816406466066837311f,\
0.9666699310764670372009f,0.7699552453123033046722f,0.8880908284336328506470f,\
0.7472088006325066089630f,0.0547038884833455085754f,0.3238168838433921337128f,\
0.5991682484745979309082f,0.3892938815988600254059f,0.8600179655477404594421f,\
0.2847203998826444149017f,0.6622215565294027328491f,0.1071217735297977924347f,\
0.7656797701492905616760f,0.1452857847325503826141f,0.5683315135538578033447f,\
0.5659160749055445194244f,0.2579597299918532371521f,0.0530021092854440212250f,\
0.6360858995467424392700f,0.1716459286399185657501f,0.6635137097910046577454f,\
0.1553202974610030651f,0.2751293182373046875000f,0.9776422330178320407867f,\
0.0564875034615397453308f,0.3412302746437489986420f,0.8415098767727613449097f,\
0.9720732276327908039093f,0.0542932013049721717834f,0.7230724911205470561981f,\
0.5535727404057979583740f,0.840029454324394464493f,0.7208074321970343589783f,\
0.7023338205181062221527f,0.4371505621820688247681f,0.7939680931158363819122f,\
0.2957414807751774787903f,0.9631778332404792308807f,0.7688007876276969909668f,\
0.5662666731514036655426f,0.9689332796260714530945f,0.2374594449065625667572f,\
0.9858398344367742538452f,0.1576361586339771747589f,0.4183112764731049537659f,\
0.1849739397875964641571f,0.5319241471588611602783f,0.4351434097625315189362f,\
0.3302801763638854026794f,0.2326903692446649074554f,0.6069281268864870071411f,\
0.1735930186696350574493f,0.6212785588577389717102f,0.7167193251661956310272f,\
0.2898689359426498413086f,0.6340185203589498996735f,0.5792583702132105827332f,\
0.1707650884054601192474f,0.0036281775683164596558f,0.2730329786427319049835f,\
0.6438362905755639076233f,0.1048121522180736064911f,0.7902204506099224090576f,\
0.6767889470793306827545f,0.0438669761642813682556f,0.1177961206994950771332f,\
0.3653587792068719863892f,0.3132978049106895923615f,0.011188176460564136505f,\
0.6880089822225272655487f,0.4210669174790382385254f,0.1968584679998457431793f,\
0.7892877263948321342468f,0.484988757874816656113f,0.1450885292142629623413f,\
0.0583454747684299945831f,0.1556424135342240333557f,0.5466435248963534832001f,\
0.4258432425558567047119f,0.1151064471341669559479f,0.6764787202700972557068f,\
0.1653598151169717311859f,0.7116795796900987625122f,0.0342189264483749866486f,\
0.4127054410055279731750f,0.8268453883938491344452f,0.9931747615337371826172f,\
0.1828565844334661960602f,0.2957681743428111076355f,0.0454563810490071773529f,\
0.8772313874214887619019f,0.7595148091204464435577f,0.8921756902709603309631f,\
0.4397588293068110942841f,0.2217209897935390472412f,0.8998456657864153385162f,\
0.7754481723532080650330f,0.8920745677314698696136f,0.2994244638830423355103f,\
0.3508522328920662403107f,0.2242373349145054817200f,0.1357615026645362377167f,\
0.9600193724036216735840f,0.8071923130191862583160f,0.4653684152290225028992f,\
0.6139782606624066829681f,0.7588641252368688583374f,0.503341518808156251907f,\
0.1805540407076478004456f,0.953683211933821439743f,0.5213290341198444366455f,\
0.1553657338954508304596f,0.4955299710854887962341f,0.8986178687773644924164f,\
0.3114242423325777053833f,0.8460529488511383533478f,0.1703627156093716621399f,\
0.0450246590189635753632f,0.2734745293855667114258f}

#define CdenR {0.9344860189594328403473f,0.3965423358604311943054f,0.0580797134898602962494f,\
0.7199462261050939559937f,0.8066167463548481464386f,0.5438358867540955543518f,\
0.4561666990630328655243f,0.6244952566921710968018f,0.8038424537517130374908f,\
0.3628496741876006126404f,0.7627365640364587306976f,0.6913486588746309280396f,\
0.3727206629700958728790f,0.2957791136577725410461f,0.3323325174860656261444f,\
0.0008663684129714965820f,0.5690847137011587619781f,0.4434423623606562614441f,\
0.3870133324526250362396f,0.8737571369856595993042f,0.7361443494446575641632f,\
0.9391816863790154457092f,0.5137898693792521953583f,0.4900970868766307830811f,\
0.9071956784464418888092f,0.6801867028698325157166f,0.9960459745489060878754f,\
0.7876451406627893447876f,0.5266905096359550952911f,0.1349894972518086433411f,\
0.3226937535218894481659f,0.1082053259015083312988f,0.5834150635637342929840f,\
0.4458816153928637504578f,0.7188132195733487606049f,0.5607859548181295394897f,\
0.7495280583389103412628f,0.5450029307976365089417f,0.0415263171307742595673f,\
0.5703056789934635162354f,0.6192081705667078495026f,0.5028523867949843406677f,\
0.8848553202114999294281f,0.5805964190512895584106f,0.6406608712859451770782f,\
0.8279706137254834175110f,0.2373156058602035045624f,0.3804531693458557128906f,\
0.8352346369065344333649f,0.9365444211289286613464f,0.5359928025864064693451f,\
0.0214806776493787765503f,0.8973965351469814777374f,0.5106831649318337440491f,\
0.4608543138019740581512f,0.7964869998395442962646f,0.7693171859718859195709f,\
0.9641169896349310874939f,0.3130452162586152553558f,0.2471739295870065689087f,\
0.2838150975294411182404f,0.7340669455006718635559f,0.3209185334853827953339f,\
0.6698743030428886413574f,0.9694103770889341831207f,0.6180369807407259941101f,\
0.7175498842261731624603f,0.0880861785262823104858f,0.6112378169782459735870f,\
0.8742778087034821510315f,0.9334865058772265911102f,0.1605538912117481231689f,\
0.6615693555213510990143f,0.3046726500615477561951f,0.7484806529246270656586f,\
0.9936459828168153762817f,0.0936959129758179187775f,0.0387948499992489814758f,\
0.7459573703818023204803f,0.3267800062894821166992f,0.7929186024703085422516f,\
0.2378873704001307487488f,0.9139666422270238399506f,0.0596442054957151412964f,\
0.0783993159420788288116f,0.4375141570344567298889f,0.7363699148409068584442f,\
0.5899660699069499969482f,0.4496206850744783878326f,0.7476333817467093467712f,\
0.6180109954439103603363f,0.9305777642875909805298f,0.1512054172344505786896f,\
0.6288425596430897712708f,0.9876213255338370800018f,0.0745284333825111389160f,\
0.6498450064100325107574f,0.4635455412790179252625f,0.9222096293233335018158f,\
0.5769933816045522689819f,0.6170878191478550434113f,0.6407913798466324806213f,\
0.6366859371773898601532f,0.8227301277220249176025f,0.5117365554906427860260f,\
0.3735350733622908592224f,0.6824699840508401393890f,0.9478313345462083816528f,\
0.3556050849147140979767f,0.9670701818540692329407f,0.1988339829258620738983f,\
0.8845246136188507080078f,0.7963846572674810886383f,0.7573833195492625236511f,\
0.0607297732494771480560f,0.4977692048996686935425f,0.0513694887049496173859f,\
0.4381805220618844032288f,0.2668503443710505962372f,0.2823995314538478851318f,\
0.8257917226292192935944f,0.9953354885801672935486f,0.4116757339797914028168f,\
0.5895656291395425796509f,0.7995157656259834766388f,0.9675096990540623664856f,\
0.5852533015422523021698f,0.8512204512953758239746f,0.7758419984020292758942f,\
0.251694406382739543915f,0.5444623767398297786713f,0.7714040484279394149780f,\
0.0861698617227375507355f,0.1724245036020874977112f,0.4995132829062640666962f,\
0.9530746228992938995361f,0.3442703173495829105377f,0.0334142660722136497498f,\
0.3594307354651391506195f,0.9292364586144685745239f,0.1439176839776337146759f,\
0.8703649686649441719055f,0.7802716153673827648163f,0.0671147257089614868164f,\
0.7936308481730520725250f,0.6236943779513239860535f,0.8598271175287663936615f,\
0.3141271602362394332886f,0.6822738503105938434601f,0.4499381193891167640686f,\
0.8225592742674052715302f,0.2544026188552379608154f,0.3692658455111086368561f,\
0.3905729195103049278259f,0.5385218537412583827972f,0.4445965085178613662720f,\
0.9931504395790398120880f,0.1170117231085896492004f,0.2200156333856284618378f,\
0.4977530911564826965332f,0.0922743999399244785309f,0.9705206854268908500671f,\
0.1397280483506619930267f,0.8839646633714437484741f,0.4313257415778934955597f,\
0.0158080393448472023010f,0.714107214938849210739f,0.9165776111185550689697f,\
0.9274811879731714725494f,0.3270348375663161277771f,0.7957203290425240993500f,\
0.8926953393965959548950f,0.2699130070395767688751f,0.2249975698068737983704f,\
0.5183464395813643932343f,0.8567280769348144531250f,0.3264052220620214939117f,\
0.6842326549813151359558f,0.5385535969398915767670f,0.9557395558804273605347f,\
0.9308291976340115070343f,0.6287928083911538124084f,0.0175103764049708843231f,\
0.8553405664861202239990f,0.1452286005951464176178f,0.3354452839121222496033f,\
0.1867817766033113002777f,0.1848793867975473403931f,0.5902637359686195850372f,\
0.6630419911816716194153f,0.8418594929389655590057f,0.4806790873408317565918f,\
0.9377652578987181186676f,0.3268114877864718437195f,0.6071765660308301448822f,\
0.5960717108100652694702f,0.1591472555883228778839f,0.9363228464499115943909f,\
0.3163564051501452922821f,0.0469793267548084259033f}

#define CdenI {0.6234297142364084720612f,0.0158713972195982933044f,0.3514461866579949855804f,\
0.2617919612675905227661f,0.6386203509755432605743f,0.7260363446548581123352f,\
0.2848846274428069591522f,0.2042924016714096069336f,0.5302058258093893527985f,\
0.5051602600142359733582f,0.6679541333578526973724f,0.3383778762072324752808f,\
0.850502327550202608109f,0.3495004484429955482483f,0.3094673226587474346161f,\
0.4033286087214946746826f,0.8126155347563326358795f,0.9508021911606192588806f,\
0.8884379244409501552582f,0.9683732483536005020142f,0.5427599516697227954865f,\
0.4100438626483082771301f,0.2444860520772635936737f,0.2353011742234230041504f,\
0.2446876191534101963043f,0.7461039228364825248718f,0.1897278516553342342377f,\
0.0578716751188039779663f,0.8699762006290256977081f,0.9180997842922806739807f,\
0.1858995254151523113251f,0.6467700041830539703369f,0.3879264430142939090729f,\
0.5801485544070601463318f,0.730465730186551809311f,0.9288603086024522781372f,\
0.2488190126605331897736f,0.2872996525838971138000f,0.7954623508267104625702f,\
0.0294854342937469482422f,0.1342807062901556491852f,0.3713893024250864982605f,\
0.1628236486576497554779f,0.8465636055916547775269f,0.5885100369341671466827f,\
0.2055668989196419715881f,0.9999437849037349224091f,0.1852319799363613128662f,\
0.6241121948696672916412f,0.0762432506307959556580f,0.5192227191291749477386f,\
0.4217870775610208511353f,0.896293383557349443f,0.3812106968834996223450f,\
0.0653464826755225658417f,0.1656720861792564392090f,0.5391645305790007114410f,\
0.37268509995192289352f,0.4740518270991742610931f,0.8882610406726598739624f,\
0.2579043735750019550323f,0.1640197122469544410706f,0.0461252476088702678680f,\
0.9871898777782917022705f,0.7705319211818277835846f,0.2188409185037016868591f,\
0.980386381503194570541f,0.2549843657761812210083f,0.1930382889695465564728f,\
0.0413558529689908027649f,0.6094057816080749034882f,0.2207349091768264770508f,\
0.461627910379320383072f,0.2865818915888667106628f,0.2817070647142827510834f,\
0.3335682284086942672729f,0.3858191226609051227570f,0.0092480191960930824280f,\
0.2342034350149333477020f,0.4566659145057201385498f,0.4261541278101503849030f,\
0.270118071697652339935f,0.2986185825429856777191f,0.6405798587948083877563f,\
0.7902683285064995288849f,0.8184858532622456550598f,0.7856419566087424755096f,\
0.6445945575833320617676f,0.9410690390504896640778f,0.0695921285077929496765f,\
0.390568414237350225449f,0.1748862918466329574585f,0.1107735713012516498566f,\
0.0957134896889328956604f,0.4641722436062991619110f,0.3082291819155216217041f,\
0.9145566956140100955963f,0.8496730988845229148865f,0.4925655624829232692719f,\
0.0699981171637773513794f,0.6575574767775833606720f,0.3395233051851391792297f,\
0.1297910916619002819061f,0.6352185606956481933594f,0.4289954849518835544586f,\
0.9731501368805766105652f,0.6268993034027516841888f,0.1214132290333509445190f,\
0.5771463816054165363312f,0.7915496686473488807678f,0.0012599448673427104950f,\
0.4419956468045711517334f,0.6589268804527819156647f,0.8095262637361884117126f,\
0.7898579365573823451996f,0.188960576429963111877f,0.4578390833921730518341f,\
0.1825626911595463752747f,0.7303236457519233226776f,0.0136213228106498718262f,\
0.1640241914428770542145f,0.4186121178790926933289f,0.2134475349448621273041f,\
0.4741439130157232284546f,0.3101755906827747821808f,0.3535619759932160377502f,\
0.8509291852824389934540f,0.8186281509697437286377f,0.5570613131858408451080f,\
0.1091197049245238304138f,0.0021106950007379055023f,0.672485547140240669250f,\
0.9224058729596436023712f,0.7518703686073422431946f,0.6034444528631865978241f,\
0.0988641232252120971680f,0.5468814768828451633453f,0.8722561476752161979675f,\
0.1444452865980565547943f,0.0008700918406248092651f,0.5909586106427013874054f,\
0.8022277066484093666077f,0.1338769863359630107880f,0.3343364112079143524170f,\
0.3563659996725618839264f,0.6903174361214041709900f,0.8999232030473649501801f,\
0.0998882148414850234985f,0.2259099450893700122833f,0.1528845699504017829895f,\
0.0680927219800651073456f,0.583055116236209869385f,0.5154030346311628818512f,\
0.7202821774408221244812f,0.5606091110967099666595f,0.8111803885549306869507f,\
0.8314522285945713520050f,0.7966960305348038673401f,0.461034744512289762497f,\
0.6958770193159580230713f,0.0288563207723200321198f,0.3524053459987044334412f,\
0.5878792009316384792328f,0.8297806400805711746216f,0.3613627743907272815704f,\
0.0672154026105999946594f,0.1209420370869338512421f,0.4063493311405181884766f,\
0.9195339330472052097321f,0.1438120333477854728699f,0.1241399361751973628998f,\
0.2314603012055158615112f,0.9494726066477596759796f,0.5097879925742745399475f,\
0.3085682312957942485809f,0.2955534420907497406006f,0.1461570323444902896881f,\
0.6270911982282996177673f,0.8795468038879334926605f,0.8750717584043741226196f,\
0.5151352104730904102325f,0.6276448490098118782043f,0.8114003571681678295135f,\
0.6319486722350120544434f,0.8963286154903471469879f,0.993889416567981243134f,\
0.3937230645678937435150f,0.6798922028392553329468f,0.7436952819116413593292f,\
0.5029965126886963844299f,0.3928775931708514690399f,0.0862160213291645050049f,\
0.2545022652484476566315f,0.6535046314820647239685f,0.6724785021506249904633f,\
0.7779673803597688674927f,0.4419574779458343982697f,0.2931267665699124336243f,\
0.6166100162081420421600f,0.3211019188165664672852f}

#define CresR {0.3413653404019424408844f,2.2344175132148005324950f,2.1237218282923966405917f,\
0.7493983164371829097661f,1.0858058063650062319f,0.9963985742180326843354f,\
1.7198459262738128305870f,0.7815935562983117312896f,0.4168186594367536690342f,\
1.3434321178932697726793f,0.911981962098162846075f,0.5097276544552961086154f,\
0.5800104757173830671846f,2.0248874122369300287971f,1.0139055454283181223474f,\
2.4495834700657685978342f,0.5610503386826638516638f,0.4454135788712355603636f,\
0.7059129145012976724871f,0.7641626882509497953322f,0.4596127107989450566450f,\
0.9734226406968744527148f,2.11268587616383074490f,1.6514323746615073851274f,\
1.0349501481365763755349f,1.1479258233356381957435f,0.1672526298534715016864f,\
0.8284385303102398401265f,0.6396332288988267888996f,1.1582175459339878464959f,\
1.0119106336592462724866f,0.4929993395227346142384f,0.1504653403320495019813f,\
1.1884643322263739317890f,0.5482451200711300209889f,1.0598086350679480904802f,\
1.4855469245373162934243f,1.2404193423039560073562f,0.830908077323986193896f,\
0.9112975150307812688411f,1.2230604711603207945814f,1.2559316454335625046212f,\
0.5901059335842906428127f,0.4940502601806018856401f,1.09963502912498500841f,\
0.5294677251535109263614f,0.5980886022378320010517f,0.5491452413615373062683f,\
0.5468552505333802438159f,0.6902652211980354612919f,1.4501824712567750186309f,\
1.3793191693357471638848f,0.2708476457471271636734f,1.4239995156368174811234f,\
2.4012806448426622374370f,0.9482606453144745151107f,0.8124230280115316560341f,\
0.0387678777428724016807f,0.9476082607188328621461f,0.1573979226170175715893f,\
1.5108565390498809311026f,0.8925265062168799001796f,2.9364002910736672902203f,\
0.3601917477926637189967f,0.4952564150219139760267f,1.6995003182761128091016f,\
0.9903629069483265157103f,3.4734281760775056469015f,1.4164126838708399613864f,\
0.5637181281840756286172f,0.4391155260043713703944f,1.219532688839149781046f,\
1.0617216756450393866373f,1.8462770813715381201803f,0.3613617707295509462462f,\
0.6315225765784978628758f,1.8053180173336429437114f,5.605127943643565480158f,\
1.349328766634644738431f,0.5965910648384068482031f,0.9796604801276147522771f,\
2.8448353799993113533162f,0.5142295803637606521619f,1.4308076569382042197986f,\
0.9992318982023101758827f,0.0935304462073433817704f,0.6805157366122644990725f,\
0.7520873083410550830052f,0.4963212817230637230459f,1.3448718058840083422467f,\
0.8924911603158937056790f,0.6716532521789868592776f,3.1200451601260867917631f,\
1.478499310078411177471f,0.8011780670061466880227f,1.8548329051165655112499f,\
0.5160221223573354665248f,0.5452818070700454766708f,0.2076910047948466175871f,\
1.2813550735284107151557f,0.5952417563705699743437f,1.4394238409977426762509f,\
0.7587547408032722096038f,0.3115367449470753391516f,1.414649105208534374256f,\
0.3927913048603896561950f,0.5939705886124994060893f,0.5944847773666142032312f,\
1.8577169333514007565356f,0.3758234853000304576121f,1.5339323343426742862761f,\
1.116121226627056151059f,0.8950120949596866992692f,0.6879113661687396019673f,\
0.8981211671217470549067f,0.4481619497382871020186f,1.8047253449076017250974f,\
1.0717620357356092419820f,1.4405626096661212631744f,3.570753936008602469343f,\
0.5315872522905110697522f,0.9081793608312455079457f,1.7025195075778205566763f,\
1.5455421881448592191788f,0.6824200177072907713693f,0.5646419316678596977965f,\
0.2357892895516306430714f,0.7157266029643406524130f,0.6543068980500212905582f,\
1.3132657769450220008878f,0.8684289380809445679787f,0.9271940107372679262809f,\
0.2745953215375174782942f,1.0703580135019064023538f,1.1284422825202322648863f,\
0.0564974518240219866771f,1.4145448514301877107613f,0.6785956954965183252071f,\
2.1896764463982005821663f,1.038569068022475949675f,0.5785592848631732065812f,\
0.4010837209168781058999f,0.1037023542206769177731f,2.4148146045420944005855f,\
0.6754632195277164852243f,0.4190924885379074260605f,0.5592558922536016163818f,\
2.2185337467253001264567f,0.6373271305375159956341f,1.7451524244169134281179f,\
0.1783458684376775515990f,0.7066899058816989986909f,0.6087518348022638026151f,\
0.8489046778360708200850f,0.7955983798271689666493f,0.3222066680434101937358f,\
0.4160981511553115685942f,0.1961119885990144917631f,1.3057726707544050626097f,\
0.7938951027372486146660f,5.0581062357227910553092f,0.9603173499915351740697f,\
0.5415899445306877613149f,0.8541967975696214132597f,1.1376185966292806650557f,\
7.8101696249237857472281f,0.5579431766320509522572f,0.8561650695644498210157f,\
0.6349136758399940294595f,2.5988805040218991848633f,1.1658310378368867965548f,\
0.5288397109111128147063f,0.7903478048871180883239f,1.5908154714750957214875f,\
1.4294252157474178765995f,0.3296353175046571881701f,2.5544776256060197638931f,\
1.3475391966885494898776f,0.9072979951101491913334f,0.5252607760481237120231f,\
0.2298981251807218351146f,0.7321363209598960031244f,0.1766547027080781206987f,\
0.8007189844811546386438f,0.9142431669921511350196f,0.5737031361189844913540f,\
1.5387393815389021067830f,1.1435666477442363309081f,0.6719421582664103498317f,\
0.3487701038639369754968f,0.6294893055431936002009f,1.1494708028880735728450f,\
0.2654596481228954640841f,0.6924444380609823257444f,1.0947349491748781247225f,\
0.5919494967059079071348f,2.071145426993481919453f,0.6047707100555417270016f,\
0.3084136738554988932393f,0.8687822411868708627480f}

#define CresI {0.0219109966763084765273f,1.1103670771212392764937f,-0.5918368028005515091294f,\
1.0434644203834322340185f,0.1306902089737067562680f,0.0447491408259363745992f,\
0.7377040968923224140141f,-0.2408236963367206551201f,-0.2257234835603764977474f,\
-0.7810702459548169995784f,0.1117074633441673542356f,-0.0721502465312851976043f,\
-0.8435050915509633151501f,-1.049992518033896704566f,0.5625036390262730945366f,\
-0.1648871384055887456821f,-0.6439978954764388197063f,-0.0518389509872686157776f,\
-0.1469980941163145371497f,0.0278523259422256141971f,0.1468121211307574225380f,\
0.6363908130534828844205f,0.8834908864782332615917f,1.1156137069476812495594f,\
0.0079625965633239471214f,-0.0931592189119542501974f,0.6063484612701055542772f,\
0.4343290787716013179320f,-0.5836541037614180194026f,-0.493498147842463708024f,\
0.5235160857005297652123f,-1.1824047439401572656692f,-0.0483243591007337727761f,\
0.0971532051319880102236f,0.1118721601976361557096f,0.0198453756455191573926f,\
0.6307818500498493241579f,0.8368296783852913200974f,-0.0194438478253851909638f,\
1.0073856655194393106001f,-0.2344940357203251779517f,-0.5870021518253613068694f,\
0.4589645174626295065501f,0.2827215082048526451075f,-0.3364392688062524672254f,\
0.7095438756660266133025f,-0.5947584050308961645115f,1.0103887681286427557836f,\
0.6789839686067032920036f,0.6491702747352749991450f,0.0666245648735558637643f,\
-1.0036186112629006395025f,-0.0241179026237156347856f,-0.1159462687897936661319f,\
1.7778063339362362160756f,0.4014707664509557516475f,0.3841554190219366171632f,\
0.0233959826824065887652f,-0.2087996335518906843021f,-0.4681854256220141508038f,\
-0.2931344646872880987942f,0.0915789695713074419769f,1.2853673263170140028677f,\
-0.1836203292999986358414f,0.1753674426864008650817f,0.9827446901351732932994f,\
-0.0675920858186050965699f,0.2400947924345945561075f,-0.3989012373127470145739f,\
0.6888879992257213036311f,0.1708354561724222675512f,-1.4942974066568359692297f,\
-0.0085262156571510854669f,-0.2841282722500402813104f,0.7218073734380161532442f,\
-0.2056072987186062794862f,0.1375998721241953604011f,12.326487466095862544080f,\
0.9075702833828449556108f,-0.1454500841220424389721f,-0.3538884268045125458535f,\
0.8332871291164858362777f,0.6744192932692324449206f,-0.4770914152325650969821f,\
-0.5414909663443179255182f,-0.0499400036212993420071f,-0.2863028848988973251721f,\
0.1938702385181169662864f,-0.1729873927835128832875f,1.0251354376600190221325f,\
-0.1033289986643653041165f,0.5853982662761465505241f,-1.5773030876847142778274f,\
0.9925655191551649991766f,-0.2294389866838563163398f,-0.0453802022491614914790f,\
0.1446261599175696077602f,-0.4430018940967428986433f,-0.0534578318707713412428f,\
0.9469665933810936797599f,-0.3561239290952777913901f,0.2727810879337961291746f,\
0.0892758706129039708577f,0.0938769505403498488727f,0.7245215338127788395894f,\
-0.8720932299519229546902f,-0.0456129563594555031969f,0.8116755927992604924270f,\
-0.2814959142726781715638f,-0.2514706362757610502712f,3.626843914392277934411f,\
0.0681179652920591155452f,0.3142726625144375840470f,0.2164361294071718844201f,\
-0.1161590262194092948445f,0.7080904530777263339303f,-0.6288889647478734801211f,\
0.2283938107922484916923f,-0.3331421737315601871998f,2.550154357127961901597f,\
0.5801384184232324381369f,0.5915175342680475401025f,-0.3059183157675403053055f,\
0.4291810802949616032720f,-0.0675832494807970945994f,0.2260187774838739449557f,\
-0.0267679793135976069884f,-0.0634263407834385756212f,0.0910679623605792354368f,\
0.7428730935396401502402f,0.4240097947794032040569f,-0.0215145937633346648332f,\
-0.924863020672384794629f,-1.0641870004695814788676f,0.0716038804713836907201f,\
0.2982802795008926421971f,-0.4054077568543104082011f,-0.3786076564490707396793f,\
-0.4048717571779728574555f,0.0029320062413039386581f,-0.4785486439953212656206f,\
0.3700468522583569841444f,0.1165347960482350370137f,-0.2553835663348579809728f,\
0.5494706041406317575948f,-0.393525875328799512598f,-0.448335747177200538705f,\
0.4576280623833377525500f,0.2481690713632272726752f,-0.5681196823051390953907f,\
0.8216610616768642572083f,0.0354860822693221777957f,-0.3165580473134032568616f,\
0.4553229569175886171095f,0.0723630008683885939114f,-0.261538718222994404083f,\
-0.2896039198710382289725f,-0.0051211050224549813786f,-0.2516323222313812113526f,\
-0.2543632926363337265485f,-0.3343493853594096121284f,0.3483261689873968225406f,\
-1.0951963511455886646218f,0.0032621374671314572365f,-0.8737574633254471256905f,\
-7.1013395362907472119218f,1.0633789830820299382452f,0.7040022037881576988383f,\
-0.4323193723566287616222f,-0.2384520130907536727971f,-0.124754648028884251865f,\
0.8455583392591451419307f,0.0337190814024200535837f,0.3608797400846083802683f,\
-0.0025395781382081018818f,0.1450823667587325949135f,1.6129974683352308328921f,\
-0.1016931838187624531633f,0.1746595259838300551181f,-0.1676360531992882596519f,\
0.2496952334332681877616f,-0.3741840755319263966960f,-0.4326683809083690657182f,\
0.53078982935711849223f,-0.0844874840225433576535f,-0.3125071808699463327130f,\
0.0435860282499331078143f,-0.1008112495086985055393f,0.0061350643233381426875f,\
0.0077278585702864046811f,0.8390604068373108681556f,0.8783952661568765751809f,\
0.0936328696083998102129f,0.1316181510631146966972f,0.2675204528497137079768f,\
-0.2501262083422521320664f,-0.4354788291243042452905f,-0.0073818204603310075620f,\
-0.4588062674027434395541f,-0.1169262242084459640923f}


#define ZnumR {0.3053411715663969516754,0.8684180630370974540710,0.3313439427874982357025,\
0.2663558926433324813843,0.7923677195794880390167,0.5093877995386719703674,\
0.5743758822791278362274,0.5372999198734760284424,0.4547364399768412113190,\
0.8820295548066496849060,0.6209865263663232326508,0.3768135774880647659302,\
0.9335849327035248279572,0.9658922599628567695618,0.1628772872500121593475,\
0.0686259418725967407227,0.842607865575700998306,0.2468038378283381462097,\
0.4037963910959661006927,0.6407211553305387496948,0.2586575602181255817413,\
0.653272570110857486725,0.8694754014723002910614,0.5468569807708263397217,\
0.9369539530016481876373,0.8503103395923972129822,0.0515501177869737148285,\
0.6273802313953638076782,0.8446539309807121753693,0.6094277473166584968567,\
0.2292158487252891063690,0.8180890753865242004395,0.1065300428308546543121,\
0.4735511047765612602234,0.3123670606873929500580,0.5758922155946493148804,\
0.9565085847862064838409,0.4356113011017441749573,0.0499714012257754802704,\
0.4900149442255496978760,0.7888170615769922733307,0.8495545452460646629333,\
0.4474280974827706813812,0.0475020725280046463013,0.9024910223670303821564,\
0.2925249831750988960266,0.7366607296280562877655,0.0217677354812622070312,\
0.0329902716912329196930,0.5969691900536417961121,0.7426943792961537837982,\
0.4529420714825391769409,0.2646744553931057453156,0.7714125374332070350647,\
0.9904671530239284038544,0.6887647770345211029053,0.4178880215622484683990,\
0.0286574354395270347595,0.3956260806880891323090,0.4547755364328622817993,\
0.5044045564718544483185,0.640153449960052967072,0.8830573889426887035370,\
0.4225513264536857604980,0.3449804955162107944489,0.8352892948314547538757,\
0.7769011496566236019135,0.2447405960410833358765,0.9427682091481983661652,\
0.4643566990271210670471,0.3058003033511340618134,0.5256443209946155548096,\
0.7063384638167917728424,0.6439361488446593284607,0.0671340576373040676117,\
0.6960939336568117141724,0.1160622579045593738556,0.1034545050933957099915,\
0.7939856606535613536835,0.2613761276006698608398,0.9276020326651632785797,\
0.4516644952818751335144,0.2685945495031774044037,0.3909545373171567916870,\
0.5062622581608593463898,0.0817960808053612709045,0.7260428736917674541473,\
0.3187382929027080535889,0.3859493941999971866608,0.9341296991333365440369,\
0.5919263935647904872894,0.5226474497467279434204,0.6464912262745201587677,\
0.8347413809970021247864,0.8977597537450492382050,0.1522252932190895080566,\
0.2030655764974653720856,0.6291697425767779350281,0.2178661315701901912689,\
0.6730475183576345443726,0.6014883895404636859894,0.8297548526898026466370,\
0.4715012605302035808563,0.1966782845556735992432,0.413111193571239709854,\
0.9953989749774336814880,0.4339618287049233913422,0.4649231452494859695435,\
0.8230779361911118030548,0.5624991850927472114563,0.3004282522015273571014,\
0.9571288526058197021484,0.5056911953724920749664,0.3458018628880381584167,\
0.1462918235920369625092,0.0892800372093915939331,0.3806377653963863849640,\
0.4279290596023201942444,0.6277162353508174419403,0.973642762750387191772,\
0.3438236177898943424225,0.6563267400488257408142,0.7661834782920777797699,\
0.7077049557119607925415,0.566568237263709306717,0.4663848998025059700012,\
0.1607741150073707103729,0.6611637100577354431152,0.4569083326496183872223,\
0.2494795573875308036804,0.4719319283030927181244,0.7297094669193029403687,\
0.8767609228380024433136,0.9846866214647889137268,0.5204629446379840373993,\
0.0243570692837238311768,0.7086957977153360843658,0.3529176330193877220154,\
0.845518832560628652573,0.9650736916810274124146,0.3660673541016876697540,\
0.0522273825481534004211,0.0653146761469542980194,0.2474536448717117309570,\
0.3402558066882193088531,0.5330434022471308708191,0.8843311234377324581146,\
0.6511900555342435836792,0.3787677739746868610382,0.8720673331990838050842,\
0.0907509098760783672333,0.159093420952558517456,0.3879462392069399356842,\
0.0035981675609946250916,0.3878797567449510097504,0.355407038703560829163,\
0.6540398863144218921661,0.0270273657515645027161,0.4033016446046531200409,\
0.5721693113446235656738,0.4763818108476698398590,0.8092558486387133598328,\
0.7195184617303311824799,0.7523729261010885238647,0.8064276059158146381378,\
0.6007828647270798683167,0.2698240275494754314423,0.4986709095537662506104,\
0.9864028231240808963776,0.8842167323455214500427,0.9431624910794198513031,\
0.2763795573264360427856,0.1813098085112869739532,0.173957456834614276886,\
0.7417211043648421764374,0.2395282387733459472656,0.5980439134873449802399,\
0.9858012227341532707214,0.3350073709152638912201,0.6487060766667127609253,\
0.0853690807707607746124,0.6952167609706521034241,0.35416056914255023003,\
0.3494555018842220306396,0.2085028053261339664459,0.503043591044843196869,\
0.2702476507984101772308,0.2799626830965280532837,0.3920604703016579151154,\
0.2273621382191777229309,0.2002935144118964672089,0.4767948314547538757324,\
0.2251090579666197299957,0.1402857257053256034851,0.4847956537269055843353,\
0.5474343802779912948608,0.5220802356489002704620,0.5684244418516755104065,\
0.3804731811396777629852,0.0783600397408008575439}

#define ZnumI {0.2332928166724741458893,0.4757708823308348655701,0.7120002261362969875336,\
0.9474247265607118606567,0.7988345962949097156525,0.7477577673271298408508,\
0.8264737087301909923553,0.0092803686857223510742,0.0395535626448690891266,\
0.3952374337241053581238,0.6943654878996312618256,0.1225995849817991256714,\
0.1789084826596081256866,0.397133202292025089264,0.5007088850252330303192,\
0.9878442399203777313232,0.0894288630224764347076,0.4005126198753714561462,\
0.5702695823274552822113,0.7643308732658624649048,0.3575342861004173755646,\
0.9968325765803456306458,0.9704508963041007518768,0.9353430047631263732910,\
0.2604631208814680576324,0.7931062979623675346375,0.6356834261678159236908,\
0.3900403138250112533569,0.2490606089122593402863,0.9967422122135758399963,\
0.3570490772835910320282,0.1909146942198276519775,0.0301763252355158329010,\
0.7328046923503279685974,0.4808894596062600612640,0.9955431837588548660278,\
0.8424210143275558948517,0.8124466734007000923157,0.6601486611180007457733,\
0.6013877689838409423828,0.0190328010357916355133,0.1712641445919871330261,\
0.5022003962658345699310,0.5823920648545026779175,0.4316027765162289142609,\
0.6963225165382027626038,0.4569095293991267681122,0.4861248694360256195068,\
0.9084099591709673404694,0.6606048634275794029236,0.7886779732070863246918,\
0.5602205935865640640259,0.2211156305857002735138,0.4836320402100682258606,\
0.9762249621562659740448,0.4768665656447410583496,0.7335670464672148227692,\
0.0370046747848391532898,0.383851700928062200546,0.0240872111171483993530,\
0.3064605225808918476105,0.2136170351877808570862,0.5479403878562152385712,\
0.2325751073658466339111,0.5516138956882059574127,0.9792927717790007591248,\
0.9224376133643090724945,0.9068189132958650588989,0.0295983594842255115509,\
0.6255925344303250312805,0.4270721334032714366913,0.0292781740427017211914,\
0.4844796755351126194000,0.4425434647127985954285,0.6420570178888738155365,\
0.0063550006598234176636,0.7094187592156231403351,0.530040563084185123444,\
0.9930261741392314434052,0.2249126248061656951904,0.1368816406466066837311,\
0.9666699310764670372009,0.7699552453123033046722,0.8880908284336328506470,\
0.7472088006325066089630,0.0547038884833455085754,0.3238168838433921337128,\
0.5991682484745979309082,0.3892938815988600254059,0.8600179655477404594421,\
0.2847203998826444149017,0.6622215565294027328491,0.1071217735297977924347,\
0.7656797701492905616760,0.1452857847325503826141,0.5683315135538578033447,\
0.5659160749055445194244,0.2579597299918532371521,0.0530021092854440212250,\
0.6360858995467424392700,0.1716459286399185657501,0.6635137097910046577454,\
0.1553202974610030651,0.2751293182373046875000,0.9776422330178320407867,\
0.0564875034615397453308,0.3412302746437489986420,0.8415098767727613449097,\
0.9720732276327908039093,0.0542932013049721717834,0.7230724911205470561981,\
0.5535727404057979583740,0.840029454324394464493,0.7208074321970343589783,\
0.7023338205181062221527,0.4371505621820688247681,0.7939680931158363819122,\
0.2957414807751774787903,0.9631778332404792308807,0.7688007876276969909668,\
0.5662666731514036655426,0.9689332796260714530945,0.2374594449065625667572,\
0.9858398344367742538452,0.1576361586339771747589,0.4183112764731049537659,\
0.1849739397875964641571,0.5319241471588611602783,0.4351434097625315189362,\
0.3302801763638854026794,0.2326903692446649074554,0.6069281268864870071411,\
0.1735930186696350574493,0.6212785588577389717102,0.7167193251661956310272,\
0.2898689359426498413086,0.6340185203589498996735,0.5792583702132105827332,\
0.1707650884054601192474,0.0036281775683164596558,0.2730329786427319049835,\
0.6438362905755639076233,0.1048121522180736064911,0.7902204506099224090576,\
0.6767889470793306827545,0.0438669761642813682556,0.1177961206994950771332,\
0.3653587792068719863892,0.3132978049106895923615,0.011188176460564136505,\
0.6880089822225272655487,0.4210669174790382385254,0.1968584679998457431793,\
0.7892877263948321342468,0.484988757874816656113,0.1450885292142629623413,\
0.0583454747684299945831,0.1556424135342240333557,0.5466435248963534832001,\
0.4258432425558567047119,0.1151064471341669559479,0.6764787202700972557068,\
0.1653598151169717311859,0.7116795796900987625122,0.0342189264483749866486,\
0.4127054410055279731750,0.8268453883938491344452,0.9931747615337371826172,\
0.1828565844334661960602,0.2957681743428111076355,0.0454563810490071773529,\
0.8772313874214887619019,0.7595148091204464435577,0.8921756902709603309631,\
0.4397588293068110942841,0.2217209897935390472412,0.8998456657864153385162,\
0.7754481723532080650330,0.8920745677314698696136,0.2994244638830423355103,\
0.3508522328920662403107,0.2242373349145054817200,0.1357615026645362377167,\
0.9600193724036216735840,0.8071923130191862583160,0.4653684152290225028992,\
0.6139782606624066829681,0.7588641252368688583374,0.503341518808156251907,\
0.1805540407076478004456,0.953683211933821439743,0.5213290341198444366455,\
0.1553657338954508304596,0.4955299710854887962341,0.8986178687773644924164,\
0.3114242423325777053833,0.8460529488511383533478,0.1703627156093716621399,\
0.0450246590189635753632,0.2734745293855667114258}

#define ZdenR {0.9344860189594328403473,0.3965423358604311943054,0.0580797134898602962494,\
0.7199462261050939559937,0.8066167463548481464386,0.5438358867540955543518,\
0.4561666990630328655243,0.6244952566921710968018,0.8038424537517130374908,\
0.3628496741876006126404,0.7627365640364587306976,0.6913486588746309280396,\
0.3727206629700958728790,0.2957791136577725410461,0.3323325174860656261444,\
0.0008663684129714965820,0.5690847137011587619781,0.4434423623606562614441,\
0.3870133324526250362396,0.8737571369856595993042,0.7361443494446575641632,\
0.9391816863790154457092,0.5137898693792521953583,0.4900970868766307830811,\
0.9071956784464418888092,0.6801867028698325157166,0.9960459745489060878754,\
0.7876451406627893447876,0.5266905096359550952911,0.1349894972518086433411,\
0.3226937535218894481659,0.1082053259015083312988,0.5834150635637342929840,\
0.4458816153928637504578,0.7188132195733487606049,0.5607859548181295394897,\
0.7495280583389103412628,0.5450029307976365089417,0.0415263171307742595673,\
0.5703056789934635162354,0.6192081705667078495026,0.5028523867949843406677,\
0.8848553202114999294281,0.5805964190512895584106,0.6406608712859451770782,\
0.8279706137254834175110,0.2373156058602035045624,0.3804531693458557128906,\
0.8352346369065344333649,0.9365444211289286613464,0.5359928025864064693451,\
0.0214806776493787765503,0.8973965351469814777374,0.5106831649318337440491,\
0.4608543138019740581512,0.7964869998395442962646,0.7693171859718859195709,\
0.9641169896349310874939,0.3130452162586152553558,0.2471739295870065689087,\
0.2838150975294411182404,0.7340669455006718635559,0.3209185334853827953339,\
0.6698743030428886413574,0.9694103770889341831207,0.6180369807407259941101,\
0.7175498842261731624603,0.0880861785262823104858,0.6112378169782459735870,\
0.8742778087034821510315,0.9334865058772265911102,0.1605538912117481231689,\
0.6615693555213510990143,0.3046726500615477561951,0.7484806529246270656586,\
0.9936459828168153762817,0.0936959129758179187775,0.0387948499992489814758,\
0.7459573703818023204803,0.3267800062894821166992,0.7929186024703085422516,\
0.2378873704001307487488,0.9139666422270238399506,0.0596442054957151412964,\
0.0783993159420788288116,0.4375141570344567298889,0.7363699148409068584442,\
0.5899660699069499969482,0.4496206850744783878326,0.7476333817467093467712,\
0.6180109954439103603363,0.9305777642875909805298,0.1512054172344505786896,\
0.6288425596430897712708,0.9876213255338370800018,0.0745284333825111389160,\
0.6498450064100325107574,0.4635455412790179252625,0.9222096293233335018158,\
0.5769933816045522689819,0.6170878191478550434113,0.6407913798466324806213,\
0.6366859371773898601532,0.8227301277220249176025,0.5117365554906427860260,\
0.3735350733622908592224,0.6824699840508401393890,0.9478313345462083816528,\
0.3556050849147140979767,0.9670701818540692329407,0.1988339829258620738983,\
0.8845246136188507080078,0.7963846572674810886383,0.7573833195492625236511,\
0.0607297732494771480560,0.4977692048996686935425,0.0513694887049496173859,\
0.4381805220618844032288,0.2668503443710505962372,0.2823995314538478851318,\
0.8257917226292192935944,0.9953354885801672935486,0.4116757339797914028168,\
0.5895656291395425796509,0.7995157656259834766388,0.9675096990540623664856,\
0.5852533015422523021698,0.8512204512953758239746,0.7758419984020292758942,\
0.251694406382739543915,0.5444623767398297786713,0.7714040484279394149780,\
0.0861698617227375507355,0.1724245036020874977112,0.4995132829062640666962,\
0.9530746228992938995361,0.3442703173495829105377,0.0334142660722136497498,\
0.3594307354651391506195,0.9292364586144685745239,0.1439176839776337146759,\
0.8703649686649441719055,0.7802716153673827648163,0.0671147257089614868164,\
0.7936308481730520725250,0.6236943779513239860535,0.8598271175287663936615,\
0.3141271602362394332886,0.6822738503105938434601,0.4499381193891167640686,\
0.8225592742674052715302,0.2544026188552379608154,0.3692658455111086368561,\
0.3905729195103049278259,0.5385218537412583827972,0.4445965085178613662720,\
0.9931504395790398120880,0.1170117231085896492004,0.2200156333856284618378,\
0.4977530911564826965332,0.0922743999399244785309,0.9705206854268908500671,\
0.1397280483506619930267,0.8839646633714437484741,0.4313257415778934955597,\
0.0158080393448472023010,0.714107214938849210739,0.9165776111185550689697,\
0.9274811879731714725494,0.3270348375663161277771,0.7957203290425240993500,\
0.8926953393965959548950,0.2699130070395767688751,0.2249975698068737983704,\
0.5183464395813643932343,0.8567280769348144531250,0.3264052220620214939117,\
0.6842326549813151359558,0.5385535969398915767670,0.9557395558804273605347,\
0.9308291976340115070343,0.6287928083911538124084,0.0175103764049708843231,\
0.8553405664861202239990,0.1452286005951464176178,0.3354452839121222496033,\
0.1867817766033113002777,0.1848793867975473403931,0.5902637359686195850372,\
0.6630419911816716194153,0.8418594929389655590057,0.4806790873408317565918,\
0.9377652578987181186676,0.3268114877864718437195,0.6071765660308301448822,\
0.5960717108100652694702,0.1591472555883228778839,0.9363228464499115943909,\
0.3163564051501452922821,0.0469793267548084259033}

#define ZdenI {0.6234297142364084720612,0.0158713972195982933044,0.3514461866579949855804,\
0.2617919612675905227661,0.6386203509755432605743,0.7260363446548581123352,\
0.2848846274428069591522,0.2042924016714096069336,0.5302058258093893527985,\
0.5051602600142359733582,0.6679541333578526973724,0.3383778762072324752808,\
0.850502327550202608109,0.3495004484429955482483,0.3094673226587474346161,\
0.4033286087214946746826,0.8126155347563326358795,0.9508021911606192588806,\
0.8884379244409501552582,0.9683732483536005020142,0.5427599516697227954865,\
0.4100438626483082771301,0.2444860520772635936737,0.2353011742234230041504,\
0.2446876191534101963043,0.7461039228364825248718,0.1897278516553342342377,\
0.0578716751188039779663,0.8699762006290256977081,0.9180997842922806739807,\
0.1858995254151523113251,0.6467700041830539703369,0.3879264430142939090729,\
0.5801485544070601463318,0.730465730186551809311,0.9288603086024522781372,\
0.2488190126605331897736,0.2872996525838971138000,0.7954623508267104625702,\
0.0294854342937469482422,0.1342807062901556491852,0.3713893024250864982605,\
0.1628236486576497554779,0.8465636055916547775269,0.5885100369341671466827,\
0.2055668989196419715881,0.9999437849037349224091,0.1852319799363613128662,\
0.6241121948696672916412,0.0762432506307959556580,0.5192227191291749477386,\
0.4217870775610208511353,0.896293383557349443,0.3812106968834996223450,\
0.0653464826755225658417,0.1656720861792564392090,0.5391645305790007114410,\
0.37268509995192289352,0.4740518270991742610931,0.8882610406726598739624,\
0.2579043735750019550323,0.1640197122469544410706,0.0461252476088702678680,\
0.9871898777782917022705,0.7705319211818277835846,0.2188409185037016868591,\
0.980386381503194570541,0.2549843657761812210083,0.1930382889695465564728,\
0.0413558529689908027649,0.6094057816080749034882,0.2207349091768264770508,\
0.461627910379320383072,0.2865818915888667106628,0.2817070647142827510834,\
0.3335682284086942672729,0.3858191226609051227570,0.0092480191960930824280,\
0.2342034350149333477020,0.4566659145057201385498,0.4261541278101503849030,\
0.270118071697652339935,0.2986185825429856777191,0.6405798587948083877563,\
0.7902683285064995288849,0.8184858532622456550598,0.7856419566087424755096,\
0.6445945575833320617676,0.9410690390504896640778,0.0695921285077929496765,\
0.390568414237350225449,0.1748862918466329574585,0.1107735713012516498566,\
0.0957134896889328956604,0.4641722436062991619110,0.3082291819155216217041,\
0.9145566956140100955963,0.8496730988845229148865,0.4925655624829232692719,\
0.0699981171637773513794,0.6575574767775833606720,0.3395233051851391792297,\
0.1297910916619002819061,0.6352185606956481933594,0.4289954849518835544586,\
0.9731501368805766105652,0.6268993034027516841888,0.1214132290333509445190,\
0.5771463816054165363312,0.7915496686473488807678,0.0012599448673427104950,\
0.4419956468045711517334,0.6589268804527819156647,0.8095262637361884117126,\
0.7898579365573823451996,0.188960576429963111877,0.4578390833921730518341,\
0.1825626911595463752747,0.7303236457519233226776,0.0136213228106498718262,\
0.1640241914428770542145,0.4186121178790926933289,0.2134475349448621273041,\
0.4741439130157232284546,0.3101755906827747821808,0.3535619759932160377502,\
0.8509291852824389934540,0.8186281509697437286377,0.5570613131858408451080,\
0.1091197049245238304138,0.0021106950007379055023,0.672485547140240669250,\
0.9224058729596436023712,0.7518703686073422431946,0.6034444528631865978241,\
0.0988641232252120971680,0.5468814768828451633453,0.8722561476752161979675,\
0.1444452865980565547943,0.0008700918406248092651,0.5909586106427013874054,\
0.8022277066484093666077,0.1338769863359630107880,0.3343364112079143524170,\
0.3563659996725618839264,0.6903174361214041709900,0.8999232030473649501801,\
0.0998882148414850234985,0.2259099450893700122833,0.1528845699504017829895,\
0.0680927219800651073456,0.583055116236209869385,0.5154030346311628818512,\
0.7202821774408221244812,0.5606091110967099666595,0.8111803885549306869507,\
0.8314522285945713520050,0.7966960305348038673401,0.461034744512289762497,\
0.6958770193159580230713,0.0288563207723200321198,0.3524053459987044334412,\
0.5878792009316384792328,0.8297806400805711746216,0.3613627743907272815704,\
0.0672154026105999946594,0.1209420370869338512421,0.4063493311405181884766,\
0.9195339330472052097321,0.1438120333477854728699,0.1241399361751973628998,\
0.2314603012055158615112,0.9494726066477596759796,0.5097879925742745399475,\
0.3085682312957942485809,0.2955534420907497406006,0.1461570323444902896881,\
0.6270911982282996177673,0.8795468038879334926605,0.8750717584043741226196,\
0.5151352104730904102325,0.6276448490098118782043,0.8114003571681678295135,\
0.6319486722350120544434,0.8963286154903471469879,0.993889416567981243134,\
0.3937230645678937435150,0.6798922028392553329468,0.7436952819116413593292,\
0.5029965126886963844299,0.3928775931708514690399,0.0862160213291645050049,\
0.2545022652484476566315,0.6535046314820647239685,0.6724785021506249904633,\
0.7779673803597688674927,0.4419574779458343982697,0.2931267665699124336243,\
0.6166100162081420421600,0.3211019188165664672852}

#define ZresR {0.3413653404019424408844,2.2344175132148005324950,2.1237218282923966405917,\
0.7493983164371829097661,1.0858058063650062319,0.9963985742180326843354,\
1.7198459262738128305870,0.7815935562983117312896,0.4168186594367536690342,\
1.3434321178932697726793,0.911981962098162846075,0.5097276544552961086154,\
0.5800104757173830671846,2.0248874122369300287971,1.0139055454283181223474,\
2.4495834700657685978342,0.5610503386826638516638,0.4454135788712355603636,\
0.7059129145012976724871,0.7641626882509497953322,0.4596127107989450566450,\
0.9734226406968744527148,2.11268587616383074490,1.6514323746615073851274,\
1.0349501481365763755349,1.1479258233356381957435,0.1672526298534715016864,\
0.8284385303102398401265,0.6396332288988267888996,1.1582175459339878464959,\
1.0119106336592462724866,0.4929993395227346142384,0.1504653403320495019813,\
1.1884643322263739317890,0.5482451200711300209889,1.0598086350679480904802,\
1.4855469245373162934243,1.2404193423039560073562,0.830908077323986193896,\
0.9112975150307812688411,1.2230604711603207945814,1.2559316454335625046212,\
0.5901059335842906428127,0.4940502601806018856401,1.09963502912498500841,\
0.5294677251535109263614,0.5980886022378320010517,0.5491452413615373062683,\
0.5468552505333802438159,0.6902652211980354612919,1.4501824712567750186309,\
1.3793191693357471638848,0.2708476457471271636734,1.4239995156368174811234,\
2.4012806448426622374370,0.9482606453144745151107,0.8124230280115316560341,\
0.0387678777428724016807,0.9476082607188328621461,0.1573979226170175715893,\
1.5108565390498809311026,0.8925265062168799001796,2.9364002910736672902203,\
0.3601917477926637189967,0.4952564150219139760267,1.6995003182761128091016,\
0.9903629069483265157103,3.4734281760775056469015,1.4164126838708399613864,\
0.5637181281840756286172,0.4391155260043713703944,1.219532688839149781046,\
1.0617216756450393866373,1.8462770813715381201803,0.3613617707295509462462,\
0.6315225765784978628758,1.8053180173336429437114,5.605127943643565480158,\
1.349328766634644738431,0.5965910648384068482031,0.9796604801276147522771,\
2.8448353799993113533162,0.5142295803637606521619,1.4308076569382042197986,\
0.9992318982023101758827,0.0935304462073433817704,0.6805157366122644990725,\
0.7520873083410550830052,0.4963212817230637230459,1.3448718058840083422467,\
0.8924911603158937056790,0.6716532521789868592776,3.1200451601260867917631,\
1.478499310078411177471,0.8011780670061466880227,1.8548329051165655112499,\
0.5160221223573354665248,0.5452818070700454766708,0.2076910047948466175871,\
1.2813550735284107151557,0.5952417563705699743437,1.4394238409977426762509,\
0.7587547408032722096038,0.3115367449470753391516,1.414649105208534374256,\
0.3927913048603896561950,0.5939705886124994060893,0.5944847773666142032312,\
1.8577169333514007565356,0.3758234853000304576121,1.5339323343426742862761,\
1.116121226627056151059,0.8950120949596866992692,0.6879113661687396019673,\
0.8981211671217470549067,0.4481619497382871020186,1.8047253449076017250974,\
1.0717620357356092419820,1.4405626096661212631744,3.570753936008602469343,\
0.5315872522905110697522,0.9081793608312455079457,1.7025195075778205566763,\
1.5455421881448592191788,0.6824200177072907713693,0.5646419316678596977965,\
0.2357892895516306430714,0.7157266029643406524130,0.6543068980500212905582,\
1.3132657769450220008878,0.8684289380809445679787,0.9271940107372679262809,\
0.2745953215375174782942,1.0703580135019064023538,1.1284422825202322648863,\
0.0564974518240219866771,1.4145448514301877107613,0.6785956954965183252071,\
2.1896764463982005821663,1.038569068022475949675,0.5785592848631732065812,\
0.4010837209168781058999,0.1037023542206769177731,2.4148146045420944005855,\
0.6754632195277164852243,0.4190924885379074260605,0.5592558922536016163818,\
2.2185337467253001264567,0.6373271305375159956341,1.7451524244169134281179,\
0.1783458684376775515990,0.7066899058816989986909,0.6087518348022638026151,\
0.8489046778360708200850,0.7955983798271689666493,0.3222066680434101937358,\
0.4160981511553115685942,0.1961119885990144917631,1.3057726707544050626097,\
0.7938951027372486146660,5.0581062357227910553092,0.9603173499915351740697,\
0.5415899445306877613149,0.8541967975696214132597,1.1376185966292806650557,\
7.8101696249237857472281,0.5579431766320509522572,0.8561650695644498210157,\
0.6349136758399940294595,2.5988805040218991848633,1.1658310378368867965548,\
0.5288397109111128147063,0.7903478048871180883239,1.5908154714750957214875,\
1.4294252157474178765995,0.3296353175046571881701,2.5544776256060197638931,\
1.3475391966885494898776,0.9072979951101491913334,0.5252607760481237120231,\
0.2298981251807218351146,0.7321363209598960031244,0.1766547027080781206987,\
0.8007189844811546386438,0.9142431669921511350196,0.5737031361189844913540,\
1.5387393815389021067830,1.1435666477442363309081,0.6719421582664103498317,\
0.3487701038639369754968,0.6294893055431936002009,1.1494708028880735728450,\
0.2654596481228954640841,0.6924444380609823257444,1.0947349491748781247225,\
0.5919494967059079071348,2.071145426993481919453,0.6047707100555417270016,\
0.3084136738554988932393,0.8687822411868708627480}

#define ZresI {0.0219109966763084765273,1.1103670771212392764937,-0.5918368028005515091294,\
1.0434644203834322340185,0.1306902089737067562680,0.0447491408259363745992,\
0.7377040968923224140141,-0.2408236963367206551201,-0.2257234835603764977474,\
-0.7810702459548169995784,0.1117074633441673542356,-0.0721502465312851976043,\
-0.8435050915509633151501,-1.049992518033896704566,0.5625036390262730945366,\
-0.1648871384055887456821,-0.6439978954764388197063,-0.0518389509872686157776,\
-0.1469980941163145371497,0.0278523259422256141971,0.1468121211307574225380,\
0.6363908130534828844205,0.8834908864782332615917,1.1156137069476812495594,\
0.0079625965633239471214,-0.0931592189119542501974,0.6063484612701055542772,\
0.4343290787716013179320,-0.5836541037614180194026,-0.493498147842463708024,\
0.5235160857005297652123,-1.1824047439401572656692,-0.0483243591007337727761,\
0.0971532051319880102236,0.1118721601976361557096,0.0198453756455191573926,\
0.6307818500498493241579,0.8368296783852913200974,-0.0194438478253851909638,\
1.0073856655194393106001,-0.2344940357203251779517,-0.5870021518253613068694,\
0.4589645174626295065501,0.2827215082048526451075,-0.3364392688062524672254,\
0.7095438756660266133025,-0.5947584050308961645115,1.0103887681286427557836,\
0.6789839686067032920036,0.6491702747352749991450,0.0666245648735558637643,\
-1.0036186112629006395025,-0.0241179026237156347856,-0.1159462687897936661319,\
1.7778063339362362160756,0.4014707664509557516475,0.3841554190219366171632,\
0.0233959826824065887652,-0.2087996335518906843021,-0.4681854256220141508038,\
-0.2931344646872880987942,0.0915789695713074419769,1.2853673263170140028677,\
-0.1836203292999986358414,0.1753674426864008650817,0.9827446901351732932994,\
-0.0675920858186050965699,0.2400947924345945561075,-0.3989012373127470145739,\
0.6888879992257213036311,0.1708354561724222675512,-1.4942974066568359692297,\
-0.0085262156571510854669,-0.2841282722500402813104,0.7218073734380161532442,\
-0.2056072987186062794862,0.1375998721241953604011,12.326487466095862544080,\
0.9075702833828449556108,-0.1454500841220424389721,-0.3538884268045125458535,\
0.8332871291164858362777,0.6744192932692324449206,-0.4770914152325650969821,\
-0.5414909663443179255182,-0.0499400036212993420071,-0.2863028848988973251721,\
0.1938702385181169662864,-0.1729873927835128832875,1.0251354376600190221325,\
-0.1033289986643653041165,0.5853982662761465505241,-1.5773030876847142778274,\
0.9925655191551649991766,-0.2294389866838563163398,-0.0453802022491614914790,\
0.1446261599175696077602,-0.4430018940967428986433,-0.0534578318707713412428,\
0.9469665933810936797599,-0.3561239290952777913901,0.2727810879337961291746,\
0.0892758706129039708577,0.0938769505403498488727,0.7245215338127788395894,\
-0.8720932299519229546902,-0.0456129563594555031969,0.8116755927992604924270,\
-0.2814959142726781715638,-0.2514706362757610502712,3.626843914392277934411,\
0.0681179652920591155452,0.3142726625144375840470,0.2164361294071718844201,\
-0.1161590262194092948445,0.7080904530777263339303,-0.6288889647478734801211,\
0.2283938107922484916923,-0.3331421737315601871998,2.550154357127961901597,\
0.5801384184232324381369,0.5915175342680475401025,-0.3059183157675403053055,\
0.4291810802949616032720,-0.0675832494807970945994,0.2260187774838739449557,\
-0.0267679793135976069884,-0.0634263407834385756212,0.0910679623605792354368,\
0.7428730935396401502402,0.4240097947794032040569,-0.0215145937633346648332,\
-0.924863020672384794629,-1.0641870004695814788676,0.0716038804713836907201,\
0.2982802795008926421971,-0.4054077568543104082011,-0.3786076564490707396793,\
-0.4048717571779728574555,0.0029320062413039386581,-0.4785486439953212656206,\
0.3700468522583569841444,0.1165347960482350370137,-0.2553835663348579809728,\
0.5494706041406317575948,-0.393525875328799512598,-0.448335747177200538705,\
0.4576280623833377525500,0.2481690713632272726752,-0.5681196823051390953907,\
0.8216610616768642572083,0.0354860822693221777957,-0.3165580473134032568616,\
0.4553229569175886171095,0.0723630008683885939114,-0.261538718222994404083,\
-0.2896039198710382289725,-0.0051211050224549813786,-0.2516323222313812113526,\
-0.2543632926363337265485,-0.3343493853594096121284,0.3483261689873968225406,\
-1.0951963511455886646218,0.0032621374671314572365,-0.8737574633254471256905,\
-7.1013395362907472119218,1.0633789830820299382452,0.7040022037881576988383,\
-0.4323193723566287616222,-0.2384520130907536727971,-0.124754648028884251865,\
0.8455583392591451419307,0.0337190814024200535837,0.3608797400846083802683,\
-0.0025395781382081018818,0.1450823667587325949135,1.6129974683352308328921,\
-0.1016931838187624531633,0.1746595259838300551181,-0.1676360531992882596519,\
0.2496952334332681877616,-0.3741840755319263966960,-0.4326683809083690657182,\
0.53078982935711849223,-0.0844874840225433576535,-0.3125071808699463327130,\
0.0435860282499331078143,-0.1008112495086985055393,0.0061350643233381426875,\
0.0077278585702864046811,0.8390604068373108681556,0.8783952661568765751809,\
0.0936328696083998102129,0.1316181510631146966972,0.2675204528497137079768,\
-0.2501262083422521320664,-0.4354788291243042452905,-0.0073818204603310075620,\
-0.4588062674027434395541,-0.1169262242084459640923}









static void srdivsTest()
{
  float tIn1[]=numF;
  float tIn2[]=denF;
  float tRes[]=resF;
  int i =0;
  float out=0;

  for(i=0;i<200;i++){
	out=srdivs(tIn1[i],tIn2[i]);
	assert( (fabs(out-tRes[i]) / fabs(out) ) <1e-6);
  }
}


static void drdivsTest()
{
  double tIn1[]=numD;
  double tIn2[]=denD;
  double tRes[]=resD;
  int i =0;
  double out=0;

  for(i=0;i<200;i++){
	out=drdivs(tIn1[i],tIn2[i]);
	/*
printf("%d : %f ; num = %f;erreur = %1.25f\n",i,out,tIn1[i],fabs(out-tRes[i]) / fabs(out));
	*/
	assert( (fabs(out-tRes[i]) / fabs(out) ) <3e-16);
  }
}


static void crdivsTest()
{
  float NR[]=CnumR;
  float NI[]=CnumI;
  float DR[]=CdenR;
  float DI[]=CdenI;
  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 = crdivs(in1,in2);
  	assert( ( fabs(creals(out)-RR[i]) / fabs(creals(out)) ) < 1e-6);
	if (( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) >= 1e-5 )
	  {
	    printf("%d : %1.25f ; num = %1.25f;erreur = %1.25f\n",i,cimags(out),RI[i], fabs(cimags(out)-RI[i]) / fabs(cimags(out)));
	  }
  	assert( ( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) < 1e-5);
  }
}


static void zrdivsTest()
{
  double NR[]=ZnumR;
  double NI[]=ZnumI;
  double DR[]=ZdenR;
  double DI[]=ZdenI;
  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 = zrdivs(in1,in2);
	printf("%d : %1.25f ; num = %1.25f;erreur = %1.25f\n",i,zreals(out),RR[i], fabs(zreals(out)-RR[i]) );
  	assert( ( fabs(zreals(out)-RR[i]) ) < 1e-14);
	printf("%d : %1.25f ; num = %1.25f;erreur = %1.25f\n",i,zimags(out),RI[i], fabs(zimags(out)-RI[i]) );
  	assert( ( fabs(zimags(out)-RI[i]) ) < 1e-14);
  }
}



static void srdivaTest()
{
  float tIn1[]=numF;
  float tIn2[]=denF;
  float tRes[]=resF;
  int i =0;
  float out[200];

  srdiva(tIn1,tIn2,200,out);
  for(i=0;i<200;i++){
	assert( (fabs(out[i]-tRes[i]) / fabs(out[i]) ) <1e-6);
  }
}


static void drdivaTest()
{
  double tIn1[]=numD;
  double tIn2[]=denD;
  double tRes[]=resD;
  int i =0;
  double out[200];

  drdiva(tIn1,tIn2,200,out);
  for(i=0;i<200;i++){
	printf("%d : %f ; num = %f;erreur = %1.25f\n",i,out[i],tIn1[i],fabs(out[i]-tRes[i]) / fabs(out[i]));
	assert( (fabs(out[i]-tRes[i]) / fabs(out[i]) ) <1e-16);
  }
}


static void crdivaTest()
{
  float NR[]=CnumR;
  float NI[]=CnumI;
  float DR[]=CdenR;
  float DI[]=CdenI;
  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]);
  }

  crdiva(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]) ) < 3e-6);
  }
}


static void zrdivaTest()
{
  double NR[]=ZnumR;
  double NI[]=ZnumI;
  double DR[]=ZdenR;
  double DI[]=ZdenI;
  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]);
  }

  zrdiva(in1,in2,200,out);

  for (i=0;i<200;i++){
  	assert( ( fabs(zreals(out[i])-RR[i]) ) < 1e-14);
  	assert( ( fabs(zimags(out[i])-RI[i]) ) < 1e-14);
  }
}


static int testRDivision(void) {
	printf(">>>SCALAIRES<<<\n");printf("\n");printf("\n");
  srdivsTest();
  drdivsTest();
  crdivsTest();
  zrdivsTest();
	printf(">>>ARRAYS<<<\n");printf("\n");printf("\n");
  srdivaTest();
  drdivaTest();
  crdivaTest();
  zrdivaTest();
  return 0;
}



int main(void) {
  assert(testRDivision() == 0);
  return 0;
}