! File: fft257.i90 ! Public domain 2004 James Van Buskirk subroutine fft257(h) ! 9174 adds, 3750 muls implicit real(wp) (x) complex(wp), intent(inout) :: h(0:256) real(wp), parameter :: a1 = -0.6652820133547420845652872952222073E-01_wp real(wp), parameter :: a2 = 0.1252439026709484169130574590444413_wp real(wp), parameter :: a3 = -0.9128116767950217371696960564332842E-01_wp real(wp), parameter :: a4 = -0.8575420446436785496134897700877274E-01_wp real(wp), parameter :: a5 = 0.4176617237787853612828059105625990E-01_wp real(wp), parameter :: a6 = -0.1396106557546829831097143048561264_wp real(wp), parameter :: a7 = -0.1844031603658198820660357117897706_wp real(wp), parameter :: a8 = 0.1654138654701596570866373498538804E-01_wp real(wp), parameter :: a9 = -0.2427107192907143839029800378314186_wp real(wp), parameter :: a10 = -0.1143858699238204126900974487852545_wp real(wp), parameter :: a11 = -0.9449353974664246885036682861204798E-01_wp real(wp), parameter :: a12 = 0.1925184654699568275753361630292971_wp real(wp), parameter :: a13 = 0.2510454138291455141475932503982439_wp real(wp), parameter :: a14 = -0.1702508838791736608437739760034303_wp real(wp), parameter :: a15 = 0.4687802606008717690229808189475484E-01_wp real(wp), parameter :: a16 = 0.1523271892051970556912540980156774_wp real(wp), parameter :: a17 = -0.1894676072338345637684172184117477_wp real(wp), parameter :: a18 = 0.1650107689827978770336364582721528_wp real(wp), parameter :: a19 = -0.2390985498667552286744623348280967_wp real(wp), parameter :: a20 = -0.1554240056902390763137224596000480_wp real(wp), parameter :: a21 = 0.1096920917564383121046134113857496_wp real(wp), parameter :: a22 = 0.1704677559757785730190895877875623_wp real(wp), parameter :: a23 = 0.1341313432018411632852414079838710_wp real(wp), parameter :: a24 = -0.1046971192304338701463956444689786_wp real(wp), parameter :: a25 = -0.9289053036884568255913037797915551E-01_wp real(wp), parameter :: a26 = 0.1597105712516686883187472979954230_wp real(wp), parameter :: a27 = -0.1964175059199505230735418080495422_wp real(wp), parameter :: a28 = -0.1823593670345423076911341492201697_wp real(wp), parameter :: a29 = -0.1125966113018485557594632861170387_wp real(wp), parameter :: a30 = 0.8816467257012126143140023954510963E-01_wp real(wp), parameter :: a31 = 0.2619624796061093873137342995738575_wp real(wp), parameter :: a32 = -0.5408215829382083575923168995816383E-01_wp real(wp), parameter :: a33 = -0.1177103329263619544869664497137284_wp real(wp), parameter :: a34 = -0.3423215003468087641926404832021387E-01_wp real(wp), parameter :: a35 = -0.2571143719378933783086024338629254E-01_wp real(wp), parameter :: a36 = 0.2250223949508940829788952886790528_wp real(wp), parameter :: a37 = 0.1177397058372246570485062957146137_wp real(wp), parameter :: a38 = 0.6271052854982243226227984457335453E-02_wp real(wp), parameter :: a39 = 0.6644204365225209315572540075556291E-01_wp real(wp), parameter :: a40 = 0.1500421642727460549681652901025434_wp real(wp), parameter :: a41 = -0.1896536275102832059110971972248092_wp real(wp), parameter :: a42 = 0.9807627881181067595346647265884055E-01_wp real(wp), parameter :: a43 = -0.2744169514924519169688728491889896_wp real(wp), parameter :: a44 = 0.3684262613409731856393116979858859E-01_wp real(wp), parameter :: a45 = -0.3725258868991327633155727292483908E-01_wp real(wp), parameter :: a46 = -0.7150900424650909345187969885135346E-01_wp real(wp), parameter :: a47 = 0.1352783573227347643093549547986673_wp real(wp), parameter :: a48 = -0.1789638675918358479238314082385935_wp real(wp), parameter :: a49 = -0.2150218970359606038111678785087255_wp real(wp), parameter :: a50 = 0.4560810667880769152356707727577690E-01_wp real(wp), parameter :: a51 = 0.1435219018889007081695798438390002_wp real(wp), parameter :: a52 = 0.1313652015410997598622174955189052_wp real(wp), parameter :: a53 = 0.7084319957078158690186297408706850E-01_wp real(wp), parameter :: a54 = -0.1936459518946306244952108938349952_wp real(wp), parameter :: a55 = -0.1438794913946076905613909344404425_wp real(wp), parameter :: a56 = -0.8456680943469983955966535498418489E-01_wp real(wp), parameter :: a57 = 0.3224135477063678766387144022591387E-01_wp real(wp), parameter :: a58 = -0.2716576979239238205291296571704792E-01_wp real(wp), parameter :: a59 = -0.6079883920007896392843984891997385E-01_wp real(wp), parameter :: a60 = 0.9667576178855317222872348755170314E-01_wp real(wp), parameter :: a61 = 0.2042550065160367530995838140700701_wp real(wp), parameter :: a62 = -0.5417313709953018963400191330285287E-01_wp real(wp), parameter :: a63 = -0.9438793506206613561305388269261240E-01_wp real(wp), parameter :: a64 = 0.1467598536317255737635108484054734E-02_wp real(wp), parameter :: a65 = -0.1116541698789609631976990927995090E-01_wp real(wp), parameter :: a66 = -0.1782329193822769539359949567803778_wp real(wp), parameter :: a67 = -0.1427225766486445738433943674387878_wp real(wp), parameter :: a68 = 0.8858288138094085364175479502542617E-01_wp real(wp), parameter :: a69 = 0.3064628482013406589399471694090581E-01_wp real(wp), parameter :: a70 = -0.2510815253977842058974337533045585_wp real(wp), parameter :: a71 = -0.2377573578823320652585914424281692E-01_wp real(wp), parameter :: a72 = 0.2166734092171311432947990932101968_wp real(wp), parameter :: a73 = -0.1064279640759595375832254712443065_wp real(wp), parameter :: a74 = 0.7241030239072983077383036280892803E-01_wp real(wp), parameter :: a75 = -0.1950515164428812936990257978134811_wp real(wp), parameter :: a76 = 0.1407070102742457517679662209176513_wp real(wp), parameter :: a77 = 0.6791916417348878088882631181557079E-01_wp real(wp), parameter :: a78 = -0.8201965838636981153788399321110453E-01_wp real(wp), parameter :: a79 = -0.4335625924069062787197097420182866E-01_wp real(wp), parameter :: a80 = 0.9848626857586749105397038656985862E-01_wp real(wp), parameter :: a81 = -0.2228944333820137007478753611231401_wp real(wp), parameter :: a82 = -0.4109292792143423801638380172220029E-01_wp real(wp), parameter :: a83 = 0.6413284534320811333273658311425088E-02_wp real(wp), parameter :: a84 = -0.9503730060150317929253039111007784E-01_wp real(wp), parameter :: a85 = 0.1411221506374739341805081512125383E-01_wp real(wp), parameter :: a86 = -0.2516447356771612732545958599074836E-01_wp real(wp), parameter :: a87 = 0.1716573955645461091736875471889039_wp real(wp), parameter :: a88 = -0.1458768047476325784289260949217745_wp real(wp), parameter :: a89 = -0.1509893811658106026277012240286579_wp real(wp), parameter :: a90 = 0.3488743120806617900886238934436138E-02_wp real(wp), parameter :: a91 = -0.2817951807465578714272840381785758_wp real(wp), parameter :: a92 = 0.9196171218611946427118345113068851E-01_wp real(wp), parameter :: a93 = -0.2091433822806379808598558691732292E-01_wp real(wp), parameter :: a94 = -0.1904198777492684712663820393014187_wp real(wp), parameter :: a95 = 0.7150287149319144576602528271718130E-02_wp real(wp), parameter :: a96 = 0.1951723863678033927304728076479777_wp real(wp), parameter :: a97 = 0.1982917580417997346406275187650026_wp real(wp), parameter :: a98 = 0.4591820698314926277742277861281101E-01_wp real(wp), parameter :: a99 = -0.8768243958195100119619616088973972E-01_wp real(wp), parameter :: a100 = -0.6765024350468215164559226580333606E-01_wp real(wp), parameter :: a101 = -0.1702535166638335461738377688128337E-01_wp real(wp), parameter :: a102 = -0.4082032946043683059830113669702310E-01_wp real(wp), parameter :: a103 = -0.4241505385975468951994422224395890E-01_wp real(wp), parameter :: a104 = -0.1857391592652705938317597920656530_wp real(wp), parameter :: a105 = 0.1998134123282356442944416286261172_wp real(wp), parameter :: a106 = 0.1824156648400608956953891267983097_wp real(wp), parameter :: a107 = 0.1647998900636532077194981142542840_wp real(wp), parameter :: a108 = -0.1635056034347537463935342133358921_wp real(wp), parameter :: a109 = -0.1684634354111423908678646351047745_wp real(wp), parameter :: a110 = 0.1972707625087048276037153738687863E-01_wp real(wp), parameter :: a111 = -0.9533954677670044189592236681913412E-02_wp real(wp), parameter :: a112 = -0.1012742309199633122893097738439493E-01_wp real(wp), parameter :: a113 = 0.1008882608313942973027343988850093_wp real(wp), parameter :: a114 = -0.1032015027620818256972840871476878_wp real(wp), parameter :: a115 = -0.1071849209788534019548576766068993_wp real(wp), parameter :: a116 = 0.7802436146769427869392510920780189E-01_wp real(wp), parameter :: a117 = -0.7091757130073272056800238001292947E-01_wp real(wp), parameter :: a118 = -0.7399824352425139669143648862052012E-01_wp real(wp), parameter :: a119 = -0.2191114402221784163028375615685605E-01_wp real(wp), parameter :: a120 = 0.9460119205694837343469539081202736E-01_wp real(wp), parameter :: a121 = 0.1399560162726163387375262404113133_wp real(wp), parameter :: a122 = -0.4358133959862130042750922020064887E-01_wp real(wp), parameter :: a123 = -0.4947146924596874391907384560755868E-01_wp real(wp), parameter :: a124 = 0.4073942958133607852545680254080312E-01_wp real(wp), parameter :: a125 = -0.3213312782231395154523556063223717E-02_wp real(wp), parameter :: a126 = -0.1543300608994612960296766183322922_wp real(wp), parameter :: a127 = -0.2425215184717256250769428521138735E-01_wp real(wp), parameter :: a128 = 0.2739314877483676489814013162442493E-02_wp real(wp), parameter :: a129 = -0.5580523983540481156558308988309298E-01_wp real(wp), parameter :: a130 = -0.1666952700463647446323247389184841_wp real(wp), parameter :: a131 = -0.3240280767013519447857168203339791E-01_wp real(wp), parameter :: a132 = 0.2128363883480174292709647809422291_wp real(wp), parameter :: a133 = 0.2228095378791518713647216495845023E-01_wp real(wp), parameter :: a134 = 0.2147856077800365240148966968953133E-01_wp real(wp), parameter :: a135 = 0.4383267680019351066253080779726827E-01_wp real(wp), parameter :: a136 = 0.1701444620147300456254989261707841_wp real(wp), parameter :: a137 = -0.8975102631121278967540119102231790E-01_wp real(wp), parameter :: a138 = 0.1131096278221507743004557716233969_wp real(wp), parameter :: a139 = 0.2468184649514910611427195542122491_wp real(wp), parameter :: a140 = -0.1097673329037179286539824888342371_wp real(wp), parameter :: a141 = -0.4575946646311012137711495181894233E-01_wp real(wp), parameter :: a142 = 0.1177691642452797101273586935693307_wp real(wp), parameter :: a143 = -0.1978817467525966831841180782977569_wp real(wp), parameter :: a144 = 0.2558651748827063773264249831085923_wp real(wp), parameter :: a145 = -0.1528936700487628702585646792538174_wp real(wp), parameter :: a146 = 0.2755383932394491536205156277688063E-01_wp real(wp), parameter :: a147 = 0.1194104623709766864809993936691626E-01_wp real(wp), parameter :: a148 = 0.2627920701089862503169112700939291E-01_wp real(wp), parameter :: a149 = -0.1081578254992024946070089821967825_wp real(wp), parameter :: a150 = -0.9180599611677775538561871223834099E-03_wp real(wp), parameter :: a151 = -0.1190129705839960659554459796054703_wp real(wp), parameter :: a152 = 0.1194346288379342855315317292323188_wp real(wp), parameter :: a153 = -0.9769041726554465164897777006665290E-01_wp real(wp), parameter :: a154 = -0.2301257547291128438308340270590368_wp real(wp), parameter :: a155 = 0.1377516376815930930837117787346220_wp real(wp), parameter :: a156 = -0.2211484245111677902823733130566684_wp real(wp), parameter :: a157 = 0.6401439968708352790365603325432832E-01_wp real(wp), parameter :: a158 = -0.1412808675020845815403016743883362E-01_wp real(wp), parameter :: a159 = -0.2490517643651212110715366497941363E-01_wp real(wp), parameter :: a160 = -0.4102116003922987832033045790228994E-01_wp real(wp), parameter :: a161 = -0.8683132621652922476341116621546567E-01_wp real(wp), parameter :: a162 = 0.7536436281291189894402278562733955E-01_wp real(wp), parameter :: a163 = -0.1190589490414373878061972695770976_wp real(wp), parameter :: a164 = -0.8722905132568682668972495082018811E-01_wp real(wp), parameter :: a165 = 0.5494868804812355106277696480938207E-01_wp real(wp), parameter :: a166 = 0.9884341442001159043857316842092084E-01_wp real(wp), parameter :: a167 = 0.9248155065182003965106413815800176E-01_wp real(wp), parameter :: a168 = -0.4818199461095070272846853570836773E-01_wp real(wp), parameter :: a169 = 0.1604813759992459025425768252365337_wp real(wp), parameter :: a170 = 0.5454861639863100895055072367675163E-01_wp real(wp), parameter :: a171 = -0.1339028133510008176904170524124773E-02_wp real(wp), parameter :: a172 = -0.6757684350293820240744341289655910E-01_wp real(wp), parameter :: a173 = 0.3856092749796457985177072158598677E-01_wp real(wp), parameter :: a174 = 0.1545036059280598790623800197558983E-01_wp real(wp), parameter :: a175 = 0.1531738549385445480776397692218951_wp real(wp), parameter :: a176 = 0.5532568239058878518855041201423118E-01_wp real(wp), parameter :: a177 = 0.8676105416484003352352605016059231E-01_wp real(wp), parameter :: a178 = -0.1551742517829260900592165385898662_wp real(wp), parameter :: a179 = -0.1219323251423694460844433034334068_wp real(wp), parameter :: a180 = 0.1780479995697747648603284932820393_wp real(wp), parameter :: a181 = -0.4642127128817578642460252872221640E-01_wp real(wp), parameter :: a182 = -0.1211229728573484639972722588861965_wp real(wp), parameter :: a183 = 0.1962619768657241371998559406518889_wp real(wp), parameter :: a184 = 0.6550894957506549992480134729302409E-01_wp real(wp), parameter :: a185 = 0.5508512344060460258338619720530093E-01_wp real(wp), parameter :: a186 = 0.1288803794047534713979806205637323_wp real(wp), parameter :: a187 = 0.2298826995477521512431517483970261_wp real(wp), parameter :: a188 = -0.2865357417259930377320187172776123E-01_wp real(wp), parameter :: a189 = -0.5584269384008443504902004906946812E-01_wp real(wp), parameter :: a190 = 0.1307747420678143057265286757635498_wp real(wp), parameter :: a191 = 0.1978836911726992281383662786882702E-01_wp real(wp), parameter :: a192 = -0.2364758602458077365576221028259288_wp real(wp), parameter :: a193 = -0.2405090731110196942841557369539253_wp real(wp), parameter :: a194 = 0.5268329083170095241487929214939719E-01_wp real(wp), parameter :: a195 = 0.3483303222476142325442259795809872E-01_wp real(wp), parameter :: a196 = 0.2409526373535725964103090451447136E-01_wp real(wp), parameter :: a197 = 0.1155646099667914500420586608234038_wp real(wp), parameter :: a198 = -0.1751670555139043999709772040331261_wp real(wp), parameter :: a199 = -0.1634038019104050499084769242858844_wp real(wp), parameter :: a200 = -0.7786046916178588269923077653880947E-01_wp real(wp), parameter :: a201 = 0.2087885659182653484941645121264496E-02_wp real(wp), parameter :: a202 = -0.5837485652161865341769405940449016E-02_wp real(wp), parameter :: a203 = 0.7873294944222315524866204763429670E-01_wp real(wp), parameter :: a204 = -0.2079453329834044803978189066748652E-01_wp real(wp), parameter :: a205 = -0.5364183355558017410540699398215694E-01_wp real(wp), parameter :: a206 = -0.2454636365737278390934283608011187E-01_wp real(wp), parameter :: a207 = 0.1525854430008013832612600984403204_wp real(wp), parameter :: a208 = 0.1628261590287052682557107181871094_wp real(wp), parameter :: a209 = -0.1034334317231405643132487764097518_wp real(wp), parameter :: a210 = 0.2293973958483101587851107544137588_wp real(wp), parameter :: a211 = 0.1942733832925699494023654078589760_wp real(wp), parameter :: a212 = 0.1107808291020833124089933167126100_wp real(wp), parameter :: a213 = -0.2837801702560634193501775456821456E-01_wp real(wp), parameter :: a214 = 0.9241030969746582735463642152709570E-02_wp real(wp), parameter :: a215 = 0.1424527787798808934747809860463916_wp real(wp), parameter :: a216 = -0.1577276372336252409768181549678260_wp real(wp), parameter :: a217 = -0.1674484970654445135211279998581214_wp real(wp), parameter :: a218 = 0.1325200760588581156561839603338539_wp real(wp), parameter :: a219 = -0.1063540685400473171306610677673678_wp real(wp), parameter :: a220 = -0.1153971289513906373342907694525578_wp real(wp), parameter :: a221 = -0.5039380939539420621977853688388849E-01_wp real(wp), parameter :: a222 = -0.4110099413486274573930978262497427E-01_wp real(wp), parameter :: a223 = 0.2688366000683034318060151314327961E-03_wp real(wp), parameter :: a224 = 0.4774028438233455741709418822012114E-01_wp real(wp), parameter :: a225 = -0.1028902289783766493935454162701319_wp real(wp), parameter :: a226 = -0.1420816992766145270492948164406136_wp real(wp), parameter :: a227 = -0.5889992036040167140842421194121020E-01_wp real(wp), parameter :: a228 = 0.4770880706356039473960834792940691E-01_wp real(wp), parameter :: a229 = 0.1056166620181595113568293010337770_wp real(wp), parameter :: a230 = -0.1193714250061860470968914646291966E-01_wp real(wp), parameter :: a231 = -0.8157568808913328074369904028481820E-01_wp real(wp), parameter :: a232 = -0.6983960572656811838046691862737649E-01_wp real(wp), parameter :: a233 = -0.1928072129078460057992332366562597E-01_wp real(wp), parameter :: a234 = 0.1098252299186145067601203253440743_wp real(wp), parameter :: a235 = 0.1360459675161053266836942355725966_wp real(wp), parameter :: a236 = -0.5880248447857380037015921585301612E-01_wp real(wp), parameter :: a237 = -0.1516896702881414783625666177163045E-01_wp real(wp), parameter :: a238 = 0.6479922982127720710281635260771249E-01_wp real(wp), parameter :: a239 = 0.3928915944564424220730371537600151E-01_wp real(wp), parameter :: a240 = -0.1458710612687098177688262310083227_wp real(wp), parameter :: a241 = -0.6535180490206478317836021091551113E-01_wp real(wp), parameter :: a242 = -0.2868998013651458701848731770427725E-01_wp real(wp), parameter :: a243 = -0.3273564374074360382084048303722620E-01_wp real(wp), parameter :: a244 = -0.9153292773359518587140203174493765E-01_wp real(wp), parameter :: a245 = 0.2515982596098606334655349808311506E-01_wp real(wp), parameter :: a246 = -0.8756363919929956396192525059988862E-01_wp real(wp), parameter :: a247 = -0.7192160009390901978945155652043747E-01_wp real(wp), parameter :: a248 = -0.8838462782888900748708139806086053E-01_wp real(wp), parameter :: a249 = 0.1003216000476498082483372239250675_wp real(wp), parameter :: a250 = 0.4537226109122533876484006993855238E-01_wp real(wp), parameter :: a251 = 0.6864471321331083367862510607092978E-01_wp real(wp), parameter :: a252 = 0.1434577459330401221296242410872549E-01_wp real(wp), parameter :: a253 = -0.4942385757378680660367113609416260E-01_wp real(wp), parameter :: a254 = -0.6232852213534806189060074836052078E-01_wp real(wp), parameter :: a255 = 0.8966208849940269597021476913452192E-01_wp real(wp), parameter :: a256 = 0.1475640993613083709095346485817492_wp real(wp), parameter :: a257 = 0.1150884963085828379409513789035961_wp real(wp), parameter :: a258 = -0.9769565987681835551303499663563585E-01_wp real(wp), parameter :: a259 = -0.6559564422031893953285362432525853E-01_wp real(wp), parameter :: a260 = 0.1518554148025711172280744479796888_wp real(wp), parameter :: a261 = -0.1983785944492577562388764959814414_wp real(wp), parameter :: a262 = -0.1560236993117215745976483498828220_wp real(wp), parameter :: a263 = -0.7497921315843503481791100745783018E-02_wp real(wp), parameter :: a264 = -0.1798096541417088748478221707702108_wp real(wp), parameter :: a265 = -0.1415502778445126290095009773324982_wp real(wp), parameter :: a266 = 0.4642446460593749112002373331147537E-01_wp real(wp), parameter :: a267 = 0.4485769700856175698656788354275657E-01_wp real(wp), parameter :: a268 = -0.1920307665981831822070031240665871_wp real(wp), parameter :: a269 = -0.1946230893733367048634323736099642E-01_wp real(wp), parameter :: a270 = 0.3192491749957898733172630973599889E-01_wp real(wp), parameter :: a271 = 0.3452440982008570358452783266998625E-01_wp real(wp), parameter :: a272 = -0.1608237149329998590957602668992227_wp real(wp), parameter :: a273 = 0.1484179971042153764139273708563680_wp real(wp), parameter :: a274 = 0.1698984911848405560185463322580395_wp real(wp), parameter :: a275 = 0.1862899301913793363584907421877805E-01_wp real(wp), parameter :: a276 = -0.1054070989717590406992661250654855_wp real(wp), parameter :: a277 = -0.1548053516136923339838573674744966_wp real(wp), parameter :: a278 = 0.7252811775465805646150842523796724E-01_wp real(wp), parameter :: a279 = 0.5226595559043561060927568911994976E-01_wp real(wp), parameter :: a280 = -0.1400558881510829809027176047218318_wp real(wp), parameter :: a281 = -0.1112493691731701104384673413616215E-01_wp real(wp), parameter :: a282 = -0.2286396559134059743738122379875478_wp real(wp), parameter :: a283 = 0.6214541294542304069945831635559504E-02_wp real(wp), parameter :: a284 = 0.1103473379000324097546328283049961E-01_wp real(wp), parameter :: a285 = -0.1789729537947164996139579036988874E-01_wp real(wp), parameter :: a286 = -0.2508472496053364952184842160185120_wp real(wp), parameter :: a287 = -0.1091154062444946638277337078867305_wp real(wp), parameter :: a288 = 0.5958188894938121782094840303621616E-01_wp real(wp), parameter :: a289 = -0.9480861623401395200524562765481402E-01_wp real(wp), parameter :: a290 = 0.2076996155383470942236413763834411_wp real(wp), parameter :: a291 = -0.1909421459269007482763390133149484_wp real(wp), parameter :: a292 = -0.2579957176040127787582877993771765_wp real(wp), parameter :: a293 = -0.3584681209549957675663139390572217E-01_wp real(wp), parameter :: a294 = 0.7431889854008488651810843086983620E-01_wp real(wp), parameter :: a295 = -0.1063070211745780364685341355147699_wp real(wp), parameter :: a296 = -0.1415161490754886066433168670418775_wp real(wp), parameter :: a297 = 0.6457817510450355548406853240333175E-01_wp real(wp), parameter :: a298 = 0.1908609787002037717166038298180615_wp real(wp), parameter :: a299 = 0.2048962440669320043525661215212111E-01_wp real(wp), parameter :: a300 = -0.1713503475186344992153386282582858_wp real(wp), parameter :: a301 = -0.7217795845196237156874812090250988E-01_wp real(wp), parameter :: a302 = -0.6273859951251818013093082643774613E-02_wp real(wp), parameter :: a303 = -0.5146800870722764328854279531978751E-01_wp real(wp), parameter :: a304 = -0.1260356267122717324340829124949140_wp real(wp), parameter :: a305 = -0.8499630925313659567554891245510446E-01_wp real(wp), parameter :: a306 = 0.6233845925608179902349792984116429E-01_wp real(wp), parameter :: a307 = -0.7970817470208221030066358682946397E-01_wp real(wp), parameter :: a308 = 0.1941698323670646773434225531452541_wp real(wp), parameter :: a309 = -0.1804462746573855311935506091773511_wp real(wp), parameter :: a310 = -0.2201265239064322246786809902601838_wp real(wp), parameter :: a311 = 0.1497480574394182185642074684347224_wp real(wp), parameter :: a312 = -0.2073669813729569671425467878898149_wp real(wp), parameter :: a313 = 0.1296194322126704699970429086609685_wp real(wp), parameter :: a314 = -0.1140310127922136410694796154146155_wp real(wp), parameter :: a315 = 0.1190162921680760371166306216649800_wp real(wp), parameter :: a316 = 0.5981264088567759167351034768685271E-01_wp real(wp), parameter :: a317 = -0.8944544587273253354566439330454466E-01_wp real(wp), parameter :: a318 = 0.1599922475842005924373386545662137_wp real(wp), parameter :: a319 = -0.5649151376900969692778078156954602E-02_wp real(wp), parameter :: a320 = -0.1355425738258440815393781777173386E-01_wp real(wp), parameter :: a321 = 0.6896571222713679855031968708436824E-01_wp real(wp), parameter :: a322 = 0.4557708655920354669526674092654486E-01_wp real(wp), parameter :: a323 = -0.1679043905022328070221813724586072E-01_wp real(wp), parameter :: a324 = 0.8713886506168163688588152478673451E-01_wp real(wp), parameter :: a325 = -0.3051731257978014541833916877409388E-01_wp real(wp), parameter :: a326 = 0.4953041725464635390140735899459018E-01_wp real(wp), parameter :: a327 = -0.1187944365724988602299394920350949_wp real(wp), parameter :: a328 = 0.4823449647956110836272825402094013E-01_wp real(wp), parameter :: a329 = -0.7082406349907752073507948051553768E-01_wp real(wp), parameter :: a330 = -0.1232408637213850513072214342155061E-01_wp real(wp), parameter :: a331 = -0.1796463233452182764757083519070016_wp real(wp), parameter :: a332 = -0.2136850223028330745663195641648794E-01_wp real(wp), parameter :: a333 = -0.5013874488508010647264442554517054E-01_wp real(wp), parameter :: a334 = 0.7781119148803921935108904730402776E-02_wp real(wp), parameter :: a335 = 0.1200987796992376453853803313764495_wp real(wp), parameter :: a336 = -0.1043680349766616036638633927615426_wp real(wp), parameter :: a337 = 0.1312398629804241701691393530991675_wp real(wp), parameter :: a338 = -0.5317707788584273481105172726394416E-01_wp real(wp), parameter :: a339 = 0.5241075689501474400732798549335507E-01_wp real(wp), parameter :: a340 = 0.6430900677123827888053831070229641E-01_wp real(wp), parameter :: a341 = -0.8365349181359796893301295543359390E-05_wp real(wp), parameter :: a342 = 0.1742767990462733550409919095202685E-02_wp real(wp), parameter :: a343 = -0.1743555360807746232524508680517777E-02_wp real(wp), parameter :: a344 = -0.1115840522436061117201674905275690_wp real(wp), parameter :: a345 = 0.1063326187567247367914016067025591_wp real(wp), parameter :: a346 = 0.1168352256184600502459426589973202_wp real(wp), parameter :: a347 = 0.3872496579317119655257278010400104E-01_wp real(wp), parameter :: a348 = 0.5696027695818047377359229846189594E-01_wp real(wp), parameter :: a349 = 0.8941573507505472170777138318619340E-01_wp real(wp), parameter :: a350 = -0.4301427957397277587411698795397711E-01_wp real(wp), parameter :: a351 = -0.1802643910575004364397777125735050E-01_wp real(wp), parameter :: a352 = 0.1445626962378135436246366969750828_wp real(wp), parameter :: a353 = -0.1654873187898898029240462969673620_wp real(wp), parameter :: a354 = 0.2252105222191696746950440911268461_wp real(wp), parameter :: a355 = -0.9206046943032483979624588520320874E-01_wp real(wp), parameter :: a356 = -0.7584586748964226416971204179512205E-01_wp real(wp), parameter :: a357 = 0.1213083428691624328670813824092145_wp real(wp), parameter :: a358 = 0.6028323632982938031591755483787231E-01_wp real(wp), parameter :: a359 = 0.7904665861889010643863444120577000E-01_wp real(wp), parameter :: a360 = -0.1656585886282542697493186934846928_wp real(wp), parameter :: a361 = -0.5337262779894776746474207853892988E-01_wp real(wp), parameter :: a362 = 0.9527348493446742484300604870239195E-01_wp real(wp), parameter :: a363 = -0.2462733955320973156895917421217819_wp real(wp), parameter :: a364 = 0.1772090432902580594822081225086304E-01_wp real(wp), parameter :: a365 = 0.1452924500813388850255667999447641_wp real(wp), parameter :: a366 = -0.1021953222300736448723503181453259_wp real(wp), parameter :: a367 = 0.1926400514662514777739055159451909_wp real(wp), parameter :: a368 = 0.5536041887231974177863197621370607E-01_wp real(wp), parameter :: a369 = -0.3255180769888698193040514319570806E-01_wp real(wp), parameter :: a370 = -0.6701373667389740763144851989191528E-01_wp real(wp), parameter :: a371 = 0.1621019070419974644478768425783583_wp real(wp), parameter :: a372 = -0.1752445149558792343236122241375569_wp real(wp), parameter :: a373 = 0.1483810669787698415918244599551732_wp real(wp), parameter :: a374 = 0.4730222879139137031138057972156466E-01_wp real(wp), parameter :: a375 = -0.5221246327276168238636302871663836E-01_wp real(wp), parameter :: a376 = -0.4437356127878542290885271306889809E-01_wp real(wp), parameter :: a377 = 0.1065657012666932010168686830412531_wp real(wp), parameter :: a378 = -0.2741829490398372632323043356804358_wp real(wp), parameter :: a379 = -0.6653834973585100427598506331669080E-01_wp real(wp), parameter :: a380 = 0.6990535244508152089974923634348851E-01_wp real(wp), parameter :: a381 = -0.1858412638793968999037094238670166_wp real(wp), parameter :: a382 = 0.3766632058112720525028402231831795E-01_wp real(wp), parameter :: d1 = .7071067811865475244008443621048491_wp real(wp), parameter :: d2 = .4142135623730950488016887242096981_wp real(wp), parameter :: d3 = .7653668647301795434569199680607978_wp real(wp), parameter :: d4 = 1.0823922002923939687994464107327788_wp real(wp), parameter :: d5 = .1989123673796580069115976226446762_wp real(wp), parameter :: d6 = .6681786379192989199977576865230808_wp real(wp), parameter :: d7 = .9419794025981425603684848642927902_wp real(wp), parameter :: d8 = .3901806440322565356965697369540444_wp real(wp), parameter :: d9 = .4602494507349999130701331074173678_wp real(wp), parameter :: d10 = 1.1111404660392044494856616278970656_wp real(wp), parameter :: d11 = 1.0195911582083183378838796079756877_wp real(wp), parameter :: d12 = 1.2026897738700905610874436478184436_wp real(wp), parameter :: d13 = .0984914033571642530771975212913274_wp real(wp), parameter :: d14 = .3033466836073423916758839469412999_wp real(wp), parameter :: d15 = .5345111359507916410896859612953629_wp real(wp), parameter :: d16 = .8206787908286603309722819853310115_wp real(wp), parameter :: d17 = 1.0667309387071440826694125329473872_wp real(wp), parameter :: d18 = .2121859763753628913943084535359549_wp real(wp), parameter :: d19 = .9404726601348591766256920169509841_wp real(wp), parameter :: d20 = .6284037410492499415740914119716828_wp real(wp), parameter :: d21 = .6818577930302819966848912705808401_wp real(wp), parameter :: d22 = 1.0204723023674923495508736675262500_wp real(wp), parameter :: d23 = .2731712643524879095458465557777538_wp real(wp), parameter :: d24 = 1.3733246853932123619390779568055360_wp real(wp), parameter :: d25 = 1.0048385723763114110233402385602418_wp real(wp), parameter :: d26 = 1.0449972298793777612571506381133798_wp real(wp), parameter :: d27 = 1.1338880696327154073610758303097669_wp real(wp), parameter :: d28 = 1.2936435667199802590967202233040041_wp real(wp), parameter :: d29 = .0491268497694672541053433212713136_wp real(wp), parameter :: d30 = .1483359875383474287536765114869114_wp real(wp), parameter :: d31 = .2504869601913054615957021601247212_wp real(wp), parameter :: d32 = .3578057213145241046724877437744744_wp real(wp), parameter :: d33 = .4729647758913199281244382379729924_wp real(wp), parameter :: d34 = .5993769336819237662713898690144041_wp real(wp), parameter :: d35 = .7416505462720353695812666911720800_wp real(wp), parameter :: d36 = .9063471690191471579461427172689143_wp real(wp), parameter :: d37 = .9385740678749166497375004832687656_wp real(wp), parameter :: d38 = .0924414770996428752508774985393374_wp real(wp), parameter :: d39 = 1.0749296206549196192442205056641178_wp real(wp), parameter :: d40 = .3260763355369684808211667994707487_wp real(wp), parameter :: d41 = 1.0102132291621997015434042367953532_wp real(wp), parameter :: d42 = .5399702206720047555742651043441611_wp real(wp), parameter :: d43 = .7733678666640078223400808084096135_wp real(wp), parameter :: d44 = .6346866056795585485417168523220267_wp real(wp), parameter :: d45 = .6610536334606142475045807954870984_wp real(wp), parameter :: d46 = .8054961829745003083654952998271668_wp real(wp), parameter :: d47 = .6106686704154978497487335084470944_wp real(wp), parameter :: d48 = 1.1424807255497805967876094957406044_wp real(wp), parameter :: d49 = .4015737389488557885332173562355096_wp real(wp), parameter :: d50 = 1.3238112056259046840510367842799063_wp real(wp), parameter :: d51 = .1246102801285121880075653833682639_wp real(wp), parameter :: d52 = 1.2651894061924547743893364328976927_wp real(wp), parameter :: d53 = 1.0012059964703926026910082135327646_wp real(wp), parameter :: d54 = 1.0109419197950873199688891712139201_wp real(wp), parameter :: d55 = 1.0308946198452490939499026112985090_wp real(wp), parameter :: d56 = 1.0620851821795683489514678647143823_wp real(wp), parameter :: d57 = 1.1062077920688890556587616762741008_wp real(wp), parameter :: d58 = 1.1658699364122677473476614025052331_wp real(wp), parameter :: d59 = 1.2450082460713296323145123135256191_wp real(wp), parameter :: d60 = 1.3496166829100114920519374220820860_wp xr1_0 = real(h(1))+real(h(256)) xi1_0 = aimag(h(1))+aimag(h(256)) xr1_128 = real(h(1))-real(h(256)) xi1_128 = aimag(h(1))-aimag(h(256)) xr1_1 = real(h(3))+real(h(254)) xi1_1 = aimag(h(3))+aimag(h(254)) xr1_129 = real(h(3))-real(h(254)) xi1_129 = aimag(h(3))-aimag(h(254)) xr1_2 = real(h(9))+real(h(248)) xi1_2 = aimag(h(9))+aimag(h(248)) xr1_130 = real(h(9))-real(h(248)) xi1_130 = aimag(h(9))-aimag(h(248)) xr1_3 = real(h(27))+real(h(230)) xi1_3 = aimag(h(27))+aimag(h(230)) xr1_131 = real(h(27))-real(h(230)) xi1_131 = aimag(h(27))-aimag(h(230)) xr1_4 = real(h(81))+real(h(176)) xi1_4 = aimag(h(81))+aimag(h(176)) xr1_132 = real(h(81))-real(h(176)) xi1_132 = aimag(h(81))-aimag(h(176)) xr1_5 = real(h(243))+real(h(14)) xi1_5 = aimag(h(243))+aimag(h(14)) xr1_133 = real(h(243))-real(h(14)) xi1_133 = aimag(h(243))-aimag(h(14)) xr1_6 = real(h(215))+real(h(42)) xi1_6 = aimag(h(215))+aimag(h(42)) xr1_134 = real(h(215))-real(h(42)) xi1_134 = aimag(h(215))-aimag(h(42)) xr1_7 = real(h(131))+real(h(126)) xi1_7 = aimag(h(131))+aimag(h(126)) xr1_135 = real(h(131))-real(h(126)) xi1_135 = aimag(h(131))-aimag(h(126)) xr1_8 = real(h(136))+real(h(121)) xi1_8 = aimag(h(136))+aimag(h(121)) xr1_136 = real(h(136))-real(h(121)) xi1_136 = aimag(h(136))-aimag(h(121)) xr1_9 = real(h(151))+real(h(106)) xi1_9 = aimag(h(151))+aimag(h(106)) xr1_137 = real(h(151))-real(h(106)) xi1_137 = aimag(h(151))-aimag(h(106)) xr1_10 = real(h(196))+real(h(61)) xi1_10 = aimag(h(196))+aimag(h(61)) xr1_138 = real(h(196))-real(h(61)) xi1_138 = aimag(h(196))-aimag(h(61)) xr1_11 = real(h(74))+real(h(183)) xi1_11 = aimag(h(74))+aimag(h(183)) xr1_139 = real(h(74))-real(h(183)) xi1_139 = aimag(h(74))-aimag(h(183)) xr1_12 = real(h(222))+real(h(35)) xi1_12 = aimag(h(222))+aimag(h(35)) xr1_140 = real(h(222))-real(h(35)) xi1_140 = aimag(h(222))-aimag(h(35)) xr1_13 = real(h(152))+real(h(105)) xi1_13 = aimag(h(152))+aimag(h(105)) xr1_141 = real(h(152))-real(h(105)) xi1_141 = aimag(h(152))-aimag(h(105)) xr1_14 = real(h(199))+real(h(58)) xi1_14 = aimag(h(199))+aimag(h(58)) xr1_142 = real(h(199))-real(h(58)) xi1_142 = aimag(h(199))-aimag(h(58)) xr1_15 = real(h(83))+real(h(174)) xi1_15 = aimag(h(83))+aimag(h(174)) xr1_143 = real(h(83))-real(h(174)) xi1_143 = aimag(h(83))-aimag(h(174)) xr1_16 = real(h(249))+real(h(8)) xi1_16 = aimag(h(249))+aimag(h(8)) xr1_144 = real(h(249))-real(h(8)) xi1_144 = aimag(h(249))-aimag(h(8)) xr1_17 = real(h(233))+real(h(24)) xi1_17 = aimag(h(233))+aimag(h(24)) xr1_145 = real(h(233))-real(h(24)) xi1_145 = aimag(h(233))-aimag(h(24)) xr1_18 = real(h(185))+real(h(72)) xi1_18 = aimag(h(185))+aimag(h(72)) xr1_146 = real(h(185))-real(h(72)) xi1_146 = aimag(h(185))-aimag(h(72)) xr1_19 = real(h(41))+real(h(216)) xi1_19 = aimag(h(41))+aimag(h(216)) xr1_147 = real(h(41))-real(h(216)) xi1_147 = aimag(h(41))-aimag(h(216)) xr1_20 = real(h(123))+real(h(134)) xi1_20 = aimag(h(123))+aimag(h(134)) xr1_148 = real(h(123))-real(h(134)) xi1_148 = aimag(h(123))-aimag(h(134)) xr1_21 = real(h(112))+real(h(145)) xi1_21 = aimag(h(112))+aimag(h(145)) xr1_149 = real(h(112))-real(h(145)) xi1_149 = aimag(h(112))-aimag(h(145)) xr1_22 = real(h(79))+real(h(178)) xi1_22 = aimag(h(79))+aimag(h(178)) xr1_150 = real(h(79))-real(h(178)) xi1_150 = aimag(h(79))-aimag(h(178)) xr1_23 = real(h(237))+real(h(20)) xi1_23 = aimag(h(237))+aimag(h(20)) xr1_151 = real(h(237))-real(h(20)) xi1_151 = aimag(h(237))-aimag(h(20)) xr1_24 = real(h(197))+real(h(60)) xi1_24 = aimag(h(197))+aimag(h(60)) xr1_152 = real(h(197))-real(h(60)) xi1_152 = aimag(h(197))-aimag(h(60)) xr1_25 = real(h(77))+real(h(180)) xi1_25 = aimag(h(77))+aimag(h(180)) xr1_153 = real(h(77))-real(h(180)) xi1_153 = aimag(h(77))-aimag(h(180)) xr1_26 = real(h(231))+real(h(26)) xi1_26 = aimag(h(231))+aimag(h(26)) xr1_154 = real(h(231))-real(h(26)) xi1_154 = aimag(h(231))-aimag(h(26)) xr1_27 = real(h(179))+real(h(78)) xi1_27 = aimag(h(179))+aimag(h(78)) xr1_155 = real(h(179))-real(h(78)) xi1_155 = aimag(h(179))-aimag(h(78)) xr1_28 = real(h(23))+real(h(234)) xi1_28 = aimag(h(23))+aimag(h(234)) xr1_156 = real(h(23))-real(h(234)) xi1_156 = aimag(h(23))-aimag(h(234)) xr1_29 = real(h(69))+real(h(188)) xi1_29 = aimag(h(69))+aimag(h(188)) xr1_157 = real(h(69))-real(h(188)) xi1_157 = aimag(h(69))-aimag(h(188)) xr1_30 = real(h(207))+real(h(50)) xi1_30 = aimag(h(207))+aimag(h(50)) xr1_158 = real(h(207))-real(h(50)) xi1_158 = aimag(h(207))-aimag(h(50)) xr1_31 = real(h(107))+real(h(150)) xi1_31 = aimag(h(107))+aimag(h(150)) xr1_159 = real(h(107))-real(h(150)) xi1_159 = aimag(h(107))-aimag(h(150)) xr1_32 = real(h(64))+real(h(193)) xi1_32 = aimag(h(64))+aimag(h(193)) xr1_160 = real(h(64))-real(h(193)) xi1_160 = aimag(h(64))-aimag(h(193)) xr1_33 = real(h(192))+real(h(65)) xi1_33 = aimag(h(192))+aimag(h(65)) xr1_161 = real(h(192))-real(h(65)) xi1_161 = aimag(h(192))-aimag(h(65)) xr1_34 = real(h(62))+real(h(195)) xi1_34 = aimag(h(62))+aimag(h(195)) xr1_162 = real(h(62))-real(h(195)) xi1_162 = aimag(h(62))-aimag(h(195)) xr1_35 = real(h(186))+real(h(71)) xi1_35 = aimag(h(186))+aimag(h(71)) xr1_163 = real(h(186))-real(h(71)) xi1_163 = aimag(h(186))-aimag(h(71)) xr1_36 = real(h(44))+real(h(213)) xi1_36 = aimag(h(44))+aimag(h(213)) xr1_164 = real(h(44))-real(h(213)) xi1_164 = aimag(h(44))-aimag(h(213)) xr1_37 = real(h(132))+real(h(125)) xi1_37 = aimag(h(132))+aimag(h(125)) xr1_165 = real(h(132))-real(h(125)) xi1_165 = aimag(h(132))-aimag(h(125)) xr1_38 = real(h(139))+real(h(118)) xi1_38 = aimag(h(139))+aimag(h(118)) xr1_166 = real(h(139))-real(h(118)) xi1_166 = aimag(h(139))-aimag(h(118)) xr1_39 = real(h(160))+real(h(97)) xi1_39 = aimag(h(160))+aimag(h(97)) xr1_167 = real(h(160))-real(h(97)) xi1_167 = aimag(h(160))-aimag(h(97)) xr1_40 = real(h(223))+real(h(34)) xi1_40 = aimag(h(223))+aimag(h(34)) xr1_168 = real(h(223))-real(h(34)) xi1_168 = aimag(h(223))-aimag(h(34)) xr1_41 = real(h(155))+real(h(102)) xi1_41 = aimag(h(155))+aimag(h(102)) xr1_169 = real(h(155))-real(h(102)) xi1_169 = aimag(h(155))-aimag(h(102)) xr1_42 = real(h(208))+real(h(49)) xi1_42 = aimag(h(208))+aimag(h(49)) xr1_170 = real(h(208))-real(h(49)) xi1_170 = aimag(h(208))-aimag(h(49)) xr1_43 = real(h(110))+real(h(147)) xi1_43 = aimag(h(110))+aimag(h(147)) xr1_171 = real(h(110))-real(h(147)) xi1_171 = aimag(h(110))-aimag(h(147)) xr1_44 = real(h(73))+real(h(184)) xi1_44 = aimag(h(73))+aimag(h(184)) xr1_172 = real(h(73))-real(h(184)) xi1_172 = aimag(h(73))-aimag(h(184)) xr1_45 = real(h(219))+real(h(38)) xi1_45 = aimag(h(219))+aimag(h(38)) xr1_173 = real(h(219))-real(h(38)) xi1_173 = aimag(h(219))-aimag(h(38)) xr1_46 = real(h(143))+real(h(114)) xi1_46 = aimag(h(143))+aimag(h(114)) xr1_174 = real(h(143))-real(h(114)) xi1_174 = aimag(h(143))-aimag(h(114)) xr1_47 = real(h(172))+real(h(85)) xi1_47 = aimag(h(172))+aimag(h(85)) xr1_175 = real(h(172))-real(h(85)) xi1_175 = aimag(h(172))-aimag(h(85)) xr1_48 = real(h(2))+real(h(255)) xi1_48 = aimag(h(2))+aimag(h(255)) xr1_176 = real(h(2))-real(h(255)) xi1_176 = aimag(h(2))-aimag(h(255)) xr1_49 = real(h(6))+real(h(251)) xi1_49 = aimag(h(6))+aimag(h(251)) xr1_177 = real(h(6))-real(h(251)) xi1_177 = aimag(h(6))-aimag(h(251)) xr1_50 = real(h(18))+real(h(239)) xi1_50 = aimag(h(18))+aimag(h(239)) xr1_178 = real(h(18))-real(h(239)) xi1_178 = aimag(h(18))-aimag(h(239)) xr1_51 = real(h(54))+real(h(203)) xi1_51 = aimag(h(54))+aimag(h(203)) xr1_179 = real(h(54))-real(h(203)) xi1_179 = aimag(h(54))-aimag(h(203)) xr1_52 = real(h(162))+real(h(95)) xi1_52 = aimag(h(162))+aimag(h(95)) xr1_180 = real(h(162))-real(h(95)) xi1_180 = aimag(h(162))-aimag(h(95)) xr1_53 = real(h(229))+real(h(28)) xi1_53 = aimag(h(229))+aimag(h(28)) xr1_181 = real(h(229))-real(h(28)) xi1_181 = aimag(h(229))-aimag(h(28)) xr1_54 = real(h(173))+real(h(84)) xi1_54 = aimag(h(173))+aimag(h(84)) xr1_182 = real(h(173))-real(h(84)) xi1_182 = aimag(h(173))-aimag(h(84)) xr1_55 = real(h(5))+real(h(252)) xi1_55 = aimag(h(5))+aimag(h(252)) xr1_183 = real(h(5))-real(h(252)) xi1_183 = aimag(h(5))-aimag(h(252)) xr1_56 = real(h(15))+real(h(242)) xi1_56 = aimag(h(15))+aimag(h(242)) xr1_184 = real(h(15))-real(h(242)) xi1_184 = aimag(h(15))-aimag(h(242)) xr1_57 = real(h(45))+real(h(212)) xi1_57 = aimag(h(45))+aimag(h(212)) xr1_185 = real(h(45))-real(h(212)) xi1_185 = aimag(h(45))-aimag(h(212)) xr1_58 = real(h(135))+real(h(122)) xi1_58 = aimag(h(135))+aimag(h(122)) xr1_186 = real(h(135))-real(h(122)) xi1_186 = aimag(h(135))-aimag(h(122)) xr1_59 = real(h(148))+real(h(109)) xi1_59 = aimag(h(148))+aimag(h(109)) xr1_187 = real(h(148))-real(h(109)) xi1_187 = aimag(h(148))-aimag(h(109)) xr1_60 = real(h(187))+real(h(70)) xi1_60 = aimag(h(187))+aimag(h(70)) xr1_188 = real(h(187))-real(h(70)) xi1_188 = aimag(h(187))-aimag(h(70)) xr1_61 = real(h(47))+real(h(210)) xi1_61 = aimag(h(47))+aimag(h(210)) xr1_189 = real(h(47))-real(h(210)) xi1_189 = aimag(h(47))-aimag(h(210)) xr1_62 = real(h(141))+real(h(116)) xi1_62 = aimag(h(141))+aimag(h(116)) xr1_190 = real(h(141))-real(h(116)) xi1_190 = aimag(h(141))-aimag(h(116)) xr1_63 = real(h(166))+real(h(91)) xi1_63 = aimag(h(166))+aimag(h(91)) xr1_191 = real(h(166))-real(h(91)) xi1_191 = aimag(h(166))-aimag(h(91)) xr1_64 = real(h(241))+real(h(16)) xi1_64 = aimag(h(241))+aimag(h(16)) xr1_192 = real(h(241))-real(h(16)) xi1_192 = aimag(h(241))-aimag(h(16)) xr1_65 = real(h(209))+real(h(48)) xi1_65 = aimag(h(209))+aimag(h(48)) xr1_193 = real(h(209))-real(h(48)) xi1_193 = aimag(h(209))-aimag(h(48)) xr1_66 = real(h(113))+real(h(144)) xi1_66 = aimag(h(113))+aimag(h(144)) xr1_194 = real(h(113))-real(h(144)) xi1_194 = aimag(h(113))-aimag(h(144)) xr1_67 = real(h(82))+real(h(175)) xi1_67 = aimag(h(82))+aimag(h(175)) xr1_195 = real(h(82))-real(h(175)) xi1_195 = aimag(h(82))-aimag(h(175)) xr1_68 = real(h(246))+real(h(11)) xi1_68 = aimag(h(246))+aimag(h(11)) xr1_196 = real(h(246))-real(h(11)) xi1_196 = aimag(h(246))-aimag(h(11)) xr1_69 = real(h(224))+real(h(33)) xi1_69 = aimag(h(224))+aimag(h(33)) xr1_197 = real(h(224))-real(h(33)) xi1_197 = aimag(h(224))-aimag(h(33)) xr1_70 = real(h(158))+real(h(99)) xi1_70 = aimag(h(158))+aimag(h(99)) xr1_198 = real(h(158))-real(h(99)) xi1_198 = aimag(h(158))-aimag(h(99)) xr1_71 = real(h(217))+real(h(40)) xi1_71 = aimag(h(217))+aimag(h(40)) xr1_199 = real(h(217))-real(h(40)) xi1_199 = aimag(h(217))-aimag(h(40)) xr1_72 = real(h(137))+real(h(120)) xi1_72 = aimag(h(137))+aimag(h(120)) xr1_200 = real(h(137))-real(h(120)) xi1_200 = aimag(h(137))-aimag(h(120)) xr1_73 = real(h(154))+real(h(103)) xi1_73 = aimag(h(154))+aimag(h(103)) xr1_201 = real(h(154))-real(h(103)) xi1_201 = aimag(h(154))-aimag(h(103)) xr1_74 = real(h(205))+real(h(52)) xi1_74 = aimag(h(205))+aimag(h(52)) xr1_202 = real(h(205))-real(h(52)) xi1_202 = aimag(h(205))-aimag(h(52)) xr1_75 = real(h(101))+real(h(156)) xi1_75 = aimag(h(101))+aimag(h(156)) xr1_203 = real(h(101))-real(h(156)) xi1_203 = aimag(h(101))-aimag(h(156)) xr1_76 = real(h(46))+real(h(211)) xi1_76 = aimag(h(46))+aimag(h(211)) xr1_204 = real(h(46))-real(h(211)) xi1_204 = aimag(h(46))-aimag(h(211)) xr1_77 = real(h(138))+real(h(119)) xi1_77 = aimag(h(138))+aimag(h(119)) xr1_205 = real(h(138))-real(h(119)) xi1_205 = aimag(h(138))-aimag(h(119)) xr1_78 = real(h(157))+real(h(100)) xi1_78 = aimag(h(157))+aimag(h(100)) xr1_206 = real(h(157))-real(h(100)) xi1_206 = aimag(h(157))-aimag(h(100)) xr1_79 = real(h(214))+real(h(43)) xi1_79 = aimag(h(214))+aimag(h(43)) xr1_207 = real(h(214))-real(h(43)) xi1_207 = aimag(h(214))-aimag(h(43)) xr1_80 = real(h(128))+real(h(129)) xi1_80 = aimag(h(128))+aimag(h(129)) xr1_208 = real(h(128))-real(h(129)) xi1_208 = aimag(h(128))-aimag(h(129)) xr1_81 = real(h(127))+real(h(130)) xi1_81 = aimag(h(127))+aimag(h(130)) xr1_209 = real(h(127))-real(h(130)) xi1_209 = aimag(h(127))-aimag(h(130)) xr1_82 = real(h(124))+real(h(133)) xi1_82 = aimag(h(124))+aimag(h(133)) xr1_210 = real(h(124))-real(h(133)) xi1_210 = aimag(h(124))-aimag(h(133)) xr1_83 = real(h(115))+real(h(142)) xi1_83 = aimag(h(115))+aimag(h(142)) xr1_211 = real(h(115))-real(h(142)) xi1_211 = aimag(h(115))-aimag(h(142)) xr1_84 = real(h(88))+real(h(169)) xi1_84 = aimag(h(88))+aimag(h(169)) xr1_212 = real(h(88))-real(h(169)) xi1_212 = aimag(h(88))-aimag(h(169)) xr1_85 = real(h(7))+real(h(250)) xi1_85 = aimag(h(7))+aimag(h(250)) xr1_213 = real(h(7))-real(h(250)) xi1_213 = aimag(h(7))-aimag(h(250)) xr1_86 = real(h(21))+real(h(236)) xi1_86 = aimag(h(21))+aimag(h(236)) xr1_214 = real(h(21))-real(h(236)) xi1_214 = aimag(h(21))-aimag(h(236)) xr1_87 = real(h(63))+real(h(194)) xi1_87 = aimag(h(63))+aimag(h(194)) xr1_215 = real(h(63))-real(h(194)) xi1_215 = aimag(h(63))-aimag(h(194)) xr1_88 = real(h(189))+real(h(68)) xi1_88 = aimag(h(189))+aimag(h(68)) xr1_216 = real(h(189))-real(h(68)) xi1_216 = aimag(h(189))-aimag(h(68)) xr1_89 = real(h(53))+real(h(204)) xi1_89 = aimag(h(53))+aimag(h(204)) xr1_217 = real(h(53))-real(h(204)) xi1_217 = aimag(h(53))-aimag(h(204)) xr1_90 = real(h(159))+real(h(98)) xi1_90 = aimag(h(159))+aimag(h(98)) xr1_218 = real(h(159))-real(h(98)) xi1_218 = aimag(h(159))-aimag(h(98)) xr1_91 = real(h(220))+real(h(37)) xi1_91 = aimag(h(220))+aimag(h(37)) xr1_219 = real(h(220))-real(h(37)) xi1_219 = aimag(h(220))-aimag(h(37)) xr1_92 = real(h(146))+real(h(111)) xi1_92 = aimag(h(146))+aimag(h(111)) xr1_220 = real(h(146))-real(h(111)) xi1_220 = aimag(h(146))-aimag(h(111)) xr1_93 = real(h(181))+real(h(76)) xi1_93 = aimag(h(181))+aimag(h(76)) xr1_221 = real(h(181))-real(h(76)) xi1_221 = aimag(h(181))-aimag(h(76)) xr1_94 = real(h(29))+real(h(228)) xi1_94 = aimag(h(29))+aimag(h(228)) xr1_222 = real(h(29))-real(h(228)) xi1_222 = aimag(h(29))-aimag(h(228)) xr1_95 = real(h(87))+real(h(170)) xi1_95 = aimag(h(87))+aimag(h(170)) xr1_223 = real(h(87))-real(h(170)) xi1_223 = aimag(h(87))-aimag(h(170)) xr1_96 = real(h(4))+real(h(253)) xi1_96 = aimag(h(4))+aimag(h(253)) xr1_224 = real(h(4))-real(h(253)) xi1_224 = aimag(h(4))-aimag(h(253)) xr1_97 = real(h(12))+real(h(245)) xi1_97 = aimag(h(12))+aimag(h(245)) xr1_225 = real(h(12))-real(h(245)) xi1_225 = aimag(h(12))-aimag(h(245)) xr1_98 = real(h(36))+real(h(221)) xi1_98 = aimag(h(36))+aimag(h(221)) xr1_226 = real(h(36))-real(h(221)) xi1_226 = aimag(h(36))-aimag(h(221)) xr1_99 = real(h(108))+real(h(149)) xi1_99 = aimag(h(108))+aimag(h(149)) xr1_227 = real(h(108))-real(h(149)) xi1_227 = aimag(h(108))-aimag(h(149)) xr1_100 = real(h(67))+real(h(190)) xi1_100 = aimag(h(67))+aimag(h(190)) xr1_228 = real(h(67))-real(h(190)) xi1_228 = aimag(h(67))-aimag(h(190)) xr1_101 = real(h(201))+real(h(56)) xi1_101 = aimag(h(201))+aimag(h(56)) xr1_229 = real(h(201))-real(h(56)) xi1_229 = aimag(h(201))-aimag(h(56)) xr1_102 = real(h(89))+real(h(168)) xi1_102 = aimag(h(89))+aimag(h(168)) xr1_230 = real(h(89))-real(h(168)) xi1_230 = aimag(h(89))-aimag(h(168)) xr1_103 = real(h(10))+real(h(247)) xi1_103 = aimag(h(10))+aimag(h(247)) xr1_231 = real(h(10))-real(h(247)) xi1_231 = aimag(h(10))-aimag(h(247)) xr1_104 = real(h(30))+real(h(227)) xi1_104 = aimag(h(30))+aimag(h(227)) xr1_232 = real(h(30))-real(h(227)) xi1_232 = aimag(h(30))-aimag(h(227)) xr1_105 = real(h(90))+real(h(167)) xi1_105 = aimag(h(90))+aimag(h(167)) xr1_233 = real(h(90))-real(h(167)) xi1_233 = aimag(h(90))-aimag(h(167)) xr1_106 = real(h(13))+real(h(244)) xi1_106 = aimag(h(13))+aimag(h(244)) xr1_234 = real(h(13))-real(h(244)) xi1_234 = aimag(h(13))-aimag(h(244)) xr1_107 = real(h(39))+real(h(218)) xi1_107 = aimag(h(39))+aimag(h(218)) xr1_235 = real(h(39))-real(h(218)) xi1_235 = aimag(h(39))-aimag(h(218)) xr1_108 = real(h(117))+real(h(140)) xi1_108 = aimag(h(117))+aimag(h(140)) xr1_236 = real(h(117))-real(h(140)) xi1_236 = aimag(h(117))-aimag(h(140)) xr1_109 = real(h(94))+real(h(163)) xi1_109 = aimag(h(94))+aimag(h(163)) xr1_237 = real(h(94))-real(h(163)) xi1_237 = aimag(h(94))-aimag(h(163)) xr1_110 = real(h(25))+real(h(232)) xi1_110 = aimag(h(25))+aimag(h(232)) xr1_238 = real(h(25))-real(h(232)) xi1_238 = aimag(h(25))-aimag(h(232)) xr1_111 = real(h(75))+real(h(182)) xi1_111 = aimag(h(75))+aimag(h(182)) xr1_239 = real(h(75))-real(h(182)) xi1_239 = aimag(h(75))-aimag(h(182)) xr1_112 = real(h(225))+real(h(32)) xi1_112 = aimag(h(225))+aimag(h(32)) xr1_240 = real(h(225))-real(h(32)) xi1_240 = aimag(h(225))-aimag(h(32)) xr1_113 = real(h(161))+real(h(96)) xi1_113 = aimag(h(161))+aimag(h(96)) xr1_241 = real(h(161))-real(h(96)) xi1_241 = aimag(h(161))-aimag(h(96)) xr1_114 = real(h(226))+real(h(31)) xi1_114 = aimag(h(226))+aimag(h(31)) xr1_242 = real(h(226))-real(h(31)) xi1_242 = aimag(h(226))-aimag(h(31)) xr1_115 = real(h(164))+real(h(93)) xi1_115 = aimag(h(164))+aimag(h(93)) xr1_243 = real(h(164))-real(h(93)) xi1_243 = aimag(h(164))-aimag(h(93)) xr1_116 = real(h(235))+real(h(22)) xi1_116 = aimag(h(235))+aimag(h(22)) xr1_244 = real(h(235))-real(h(22)) xi1_244 = aimag(h(235))-aimag(h(22)) xr1_117 = real(h(191))+real(h(66)) xi1_117 = aimag(h(191))+aimag(h(66)) xr1_245 = real(h(191))-real(h(66)) xi1_245 = aimag(h(191))-aimag(h(66)) xr1_118 = real(h(59))+real(h(198)) xi1_118 = aimag(h(59))+aimag(h(198)) xr1_246 = real(h(59))-real(h(198)) xi1_246 = aimag(h(59))-aimag(h(198)) xr1_119 = real(h(177))+real(h(80)) xi1_119 = aimag(h(177))+aimag(h(80)) xr1_247 = real(h(177))-real(h(80)) xi1_247 = aimag(h(177))-aimag(h(80)) xr1_120 = real(h(17))+real(h(240)) xi1_120 = aimag(h(17))+aimag(h(240)) xr1_248 = real(h(17))-real(h(240)) xi1_248 = aimag(h(17))-aimag(h(240)) xr1_121 = real(h(51))+real(h(206)) xi1_121 = aimag(h(51))+aimag(h(206)) xr1_249 = real(h(51))-real(h(206)) xi1_249 = aimag(h(51))-aimag(h(206)) xr1_122 = real(h(153))+real(h(104)) xi1_122 = aimag(h(153))+aimag(h(104)) xr1_250 = real(h(153))-real(h(104)) xi1_250 = aimag(h(153))-aimag(h(104)) xr1_123 = real(h(202))+real(h(55)) xi1_123 = aimag(h(202))+aimag(h(55)) xr1_251 = real(h(202))-real(h(55)) xi1_251 = aimag(h(202))-aimag(h(55)) xr1_124 = real(h(92))+real(h(165)) xi1_124 = aimag(h(92))+aimag(h(165)) xr1_252 = real(h(92))-real(h(165)) xi1_252 = aimag(h(92))-aimag(h(165)) xr1_125 = real(h(19))+real(h(238)) xi1_125 = aimag(h(19))+aimag(h(238)) xr1_253 = real(h(19))-real(h(238)) xi1_253 = aimag(h(19))-aimag(h(238)) xr1_126 = real(h(57))+real(h(200)) xi1_126 = aimag(h(57))+aimag(h(200)) xr1_254 = real(h(57))-real(h(200)) xi1_254 = aimag(h(57))-aimag(h(200)) xr1_127 = real(h(171))+real(h(86)) xi1_127 = aimag(h(171))+aimag(h(86)) xr1_255 = real(h(171))-real(h(86)) xi1_255 = aimag(h(171))-aimag(h(86)) xr2_0 = xr1_0+xr1_64 xi2_0 = xi1_0+xi1_64 xr2_1 = xr1_1+xr1_65 xi2_1 = xi1_1+xi1_65 xr2_2 = xr1_2+xr1_66 xi2_2 = xi1_2+xi1_66 xr2_3 = xr1_3+xr1_67 xi2_3 = xi1_3+xi1_67 xr2_4 = xr1_4+xr1_68 xi2_4 = xi1_4+xi1_68 xr2_5 = xr1_5+xr1_69 xi2_5 = xi1_5+xi1_69 xr2_6 = xr1_6+xr1_70 xi2_6 = xi1_6+xi1_70 xr2_7 = xr1_7+xr1_71 xi2_7 = xi1_7+xi1_71 xr2_8 = xr1_8+xr1_72 xi2_8 = xi1_8+xi1_72 xr2_9 = xr1_9+xr1_73 xi2_9 = xi1_9+xi1_73 xr2_10 = xr1_10+xr1_74 xi2_10 = xi1_10+xi1_74 xr2_11 = xr1_11+xr1_75 xi2_11 = xi1_11+xi1_75 xr2_12 = xr1_12+xr1_76 xi2_12 = xi1_12+xi1_76 xr2_13 = xr1_13+xr1_77 xi2_13 = xi1_13+xi1_77 xr2_14 = xr1_14+xr1_78 xi2_14 = xi1_14+xi1_78 xr2_15 = xr1_15+xr1_79 xi2_15 = xi1_15+xi1_79 xr2_16 = xr1_16+xr1_80 xi2_16 = xi1_16+xi1_80 xr2_17 = xr1_17+xr1_81 xi2_17 = xi1_17+xi1_81 xr2_18 = xr1_18+xr1_82 xi2_18 = xi1_18+xi1_82 xr2_19 = xr1_19+xr1_83 xi2_19 = xi1_19+xi1_83 xr2_20 = xr1_20+xr1_84 xi2_20 = xi1_20+xi1_84 xr2_21 = xr1_21+xr1_85 xi2_21 = xi1_21+xi1_85 xr2_22 = xr1_22+xr1_86 xi2_22 = xi1_22+xi1_86 xr2_23 = xr1_23+xr1_87 xi2_23 = xi1_23+xi1_87 xr2_24 = xr1_24+xr1_88 xi2_24 = xi1_24+xi1_88 xr2_25 = xr1_25+xr1_89 xi2_25 = xi1_25+xi1_89 xr2_26 = xr1_26+xr1_90 xi2_26 = xi1_26+xi1_90 xr2_27 = xr1_27+xr1_91 xi2_27 = xi1_27+xi1_91 xr2_28 = xr1_28+xr1_92 xi2_28 = xi1_28+xi1_92 xr2_29 = xr1_29+xr1_93 xi2_29 = xi1_29+xi1_93 xr2_30 = xr1_30+xr1_94 xi2_30 = xi1_30+xi1_94 xr2_31 = xr1_31+xr1_95 xi2_31 = xi1_31+xi1_95 xr2_32 = xr1_32+xr1_96 xi2_32 = xi1_32+xi1_96 xr2_33 = xr1_33+xr1_97 xi2_33 = xi1_33+xi1_97 xr2_34 = xr1_34+xr1_98 xi2_34 = xi1_34+xi1_98 xr2_35 = xr1_35+xr1_99 xi2_35 = xi1_35+xi1_99 xr2_36 = xr1_36+xr1_100 xi2_36 = xi1_36+xi1_100 xr2_37 = xr1_37+xr1_101 xi2_37 = xi1_37+xi1_101 xr2_38 = xr1_38+xr1_102 xi2_38 = xi1_38+xi1_102 xr2_39 = xr1_39+xr1_103 xi2_39 = xi1_39+xi1_103 xr2_40 = xr1_40+xr1_104 xi2_40 = xi1_40+xi1_104 xr2_41 = xr1_41+xr1_105 xi2_41 = xi1_41+xi1_105 xr2_42 = xr1_42+xr1_106 xi2_42 = xi1_42+xi1_106 xr2_43 = xr1_43+xr1_107 xi2_43 = xi1_43+xi1_107 xr2_44 = xr1_44+xr1_108 xi2_44 = xi1_44+xi1_108 xr2_45 = xr1_45+xr1_109 xi2_45 = xi1_45+xi1_109 xr2_46 = xr1_46+xr1_110 xi2_46 = xi1_46+xi1_110 xr2_47 = xr1_47+xr1_111 xi2_47 = xi1_47+xi1_111 xr2_48 = xr1_48+xr1_112 xi2_48 = xi1_48+xi1_112 xr2_49 = xr1_49+xr1_113 xi2_49 = xi1_49+xi1_113 xr2_50 = xr1_50+xr1_114 xi2_50 = xi1_50+xi1_114 xr2_51 = xr1_51+xr1_115 xi2_51 = xi1_51+xi1_115 xr2_52 = xr1_52+xr1_116 xi2_52 = xi1_52+xi1_116 xr2_53 = xr1_53+xr1_117 xi2_53 = xi1_53+xi1_117 xr2_54 = xr1_54+xr1_118 xi2_54 = xi1_54+xi1_118 xr2_55 = xr1_55+xr1_119 xi2_55 = xi1_55+xi1_119 xr2_56 = xr1_56+xr1_120 xi2_56 = xi1_56+xi1_120 xr2_57 = xr1_57+xr1_121 xi2_57 = xi1_57+xi1_121 xr2_58 = xr1_58+xr1_122 xi2_58 = xi1_58+xi1_122 xr2_59 = xr1_59+xr1_123 xi2_59 = xi1_59+xi1_123 xr2_60 = xr1_60+xr1_124 xi2_60 = xi1_60+xi1_124 xr2_61 = xr1_61+xr1_125 xi2_61 = xi1_61+xi1_125 xr2_62 = xr1_62+xr1_126 xi2_62 = xi1_62+xi1_126 xr2_63 = xr1_63+xr1_127 xi2_63 = xi1_63+xi1_127 xr3_0 = xr2_0+xr2_32 xi3_0 = xi2_0+xi2_32 xr3_1 = xr2_1+xr2_33 xi3_1 = xi2_1+xi2_33 xr3_2 = xr2_2+xr2_34 xi3_2 = xi2_2+xi2_34 xr3_3 = xr2_3+xr2_35 xi3_3 = xi2_3+xi2_35 xr3_4 = xr2_4+xr2_36 xi3_4 = xi2_4+xi2_36 xr3_5 = xr2_5+xr2_37 xi3_5 = xi2_5+xi2_37 xr3_6 = xr2_6+xr2_38 xi3_6 = xi2_6+xi2_38 xr3_7 = xr2_7+xr2_39 xi3_7 = xi2_7+xi2_39 xr3_8 = xr2_8+xr2_40 xi3_8 = xi2_8+xi2_40 xr3_9 = xr2_9+xr2_41 xi3_9 = xi2_9+xi2_41 xr3_10 = xr2_10+xr2_42 xi3_10 = xi2_10+xi2_42 xr3_11 = xr2_11+xr2_43 xi3_11 = xi2_11+xi2_43 xr3_12 = xr2_12+xr2_44 xi3_12 = xi2_12+xi2_44 xr3_13 = xr2_13+xr2_45 xi3_13 = xi2_13+xi2_45 xr3_14 = xr2_14+xr2_46 xi3_14 = xi2_14+xi2_46 xr3_15 = xr2_15+xr2_47 xi3_15 = xi2_15+xi2_47 xr3_16 = xr2_16+xr2_48 xi3_16 = xi2_16+xi2_48 xr3_17 = xr2_17+xr2_49 xi3_17 = xi2_17+xi2_49 xr3_18 = xr2_18+xr2_50 xi3_18 = xi2_18+xi2_50 xr3_19 = xr2_19+xr2_51 xi3_19 = xi2_19+xi2_51 xr3_20 = xr2_20+xr2_52 xi3_20 = xi2_20+xi2_52 xr3_21 = xr2_21+xr2_53 xi3_21 = xi2_21+xi2_53 xr3_22 = xr2_22+xr2_54 xi3_22 = xi2_22+xi2_54 xr3_23 = xr2_23+xr2_55 xi3_23 = xi2_23+xi2_55 xr3_24 = xr2_24+xr2_56 xi3_24 = xi2_24+xi2_56 xr3_25 = xr2_25+xr2_57 xi3_25 = xi2_25+xi2_57 xr3_26 = xr2_26+xr2_58 xi3_26 = xi2_26+xi2_58 xr3_27 = xr2_27+xr2_59 xi3_27 = xi2_27+xi2_59 xr3_28 = xr2_28+xr2_60 xi3_28 = xi2_28+xi2_60 xr3_29 = xr2_29+xr2_61 xi3_29 = xi2_29+xi2_61 xr3_30 = xr2_30+xr2_62 xi3_30 = xi2_30+xi2_62 xr3_31 = xr2_31+xr2_63 xi3_31 = xi2_31+xi2_63 xr4_0 = xr3_0+xr3_16 xi4_0 = xi3_0+xi3_16 xr4_1 = xr3_1+xr3_17 xi4_1 = xi3_1+xi3_17 xr4_2 = xr3_2+xr3_18 xi4_2 = xi3_2+xi3_18 xr4_3 = xr3_3+xr3_19 xi4_3 = xi3_3+xi3_19 xr4_4 = xr3_4+xr3_20 xi4_4 = xi3_4+xi3_20 xr4_5 = xr3_5+xr3_21 xi4_5 = xi3_5+xi3_21 xr4_6 = xr3_6+xr3_22 xi4_6 = xi3_6+xi3_22 xr4_7 = xr3_7+xr3_23 xi4_7 = xi3_7+xi3_23 xr4_8 = xr3_8+xr3_24 xi4_8 = xi3_8+xi3_24 xr4_9 = xr3_9+xr3_25 xi4_9 = xi3_9+xi3_25 xr4_10 = xr3_10+xr3_26 xi4_10 = xi3_10+xi3_26 xr4_11 = xr3_11+xr3_27 xi4_11 = xi3_11+xi3_27 xr4_12 = xr3_12+xr3_28 xi4_12 = xi3_12+xi3_28 xr4_13 = xr3_13+xr3_29 xi4_13 = xi3_13+xi3_29 xr4_14 = xr3_14+xr3_30 xi4_14 = xi3_14+xi3_30 xr4_15 = xr3_15+xr3_31 xi4_15 = xi3_15+xi3_31 xr5_0 = xr4_0+xr4_8 xi5_0 = xi4_0+xi4_8 xr5_1 = xr4_1+xr4_9 xi5_1 = xi4_1+xi4_9 xr5_2 = xr4_2+xr4_10 xi5_2 = xi4_2+xi4_10 xr5_3 = xr4_3+xr4_11 xi5_3 = xi4_3+xi4_11 xr5_4 = xr4_4+xr4_12 xi5_4 = xi4_4+xi4_12 xr5_5 = xr4_5+xr4_13 xi5_5 = xi4_5+xi4_13 xr5_6 = xr4_6+xr4_14 xi5_6 = xi4_6+xi4_14 xr5_7 = xr4_7+xr4_15 xi5_7 = xi4_7+xi4_15 xr6_0 = xr5_0+xr5_4 xi6_0 = xi5_0+xi5_4 xr6_1 = xr5_1+xr5_5 xi6_1 = xi5_1+xi5_5 xr6_2 = xr5_2+xr5_6 xi6_2 = xi5_2+xi5_6 xr6_3 = xr5_3+xr5_7 xi6_3 = xi5_3+xi5_7 xr7_0 = xr6_0+xr6_2 xi7_0 = xi6_0+xi6_2 xr7_1 = xr6_1+xr6_3 xi7_1 = xi6_1+xi6_3 xr7_2 = xr6_0-xr6_2 xi7_2 = xi6_0-xi6_2 xr7_3 = xr6_1-xr6_3 xi7_3 = xi6_1-xi6_3 xr000 = xr7_0+xr7_1 xi000 = xi7_0+xi7_1 xr0 = real(h(0))+xr000 xi0 = aimag(h(0))+xi000 xr00 = real(h(0))+a1*xr000 xi00 = aimag(h(0))+a1*xi000 xr8_0 = xr00+a2*xr7_1 xi8_0 = xi00+a2*xi7_1 xr8_1 = xr00+a2*xr7_0 xi8_1 = xi00+a2*xi7_0 h(0) = cmplx(xr0,xi0,wp) xr8_2 = a3*xr7_2-a4*xr7_3 xi8_2 = a3*xi7_2-a4*xi7_3 xr8_3 = a4*xr7_2+a3*xr7_3 xi8_3 = a4*xi7_2+a3*xi7_3 xr9_0 = xr8_0+xr8_2 xi9_0 = xi8_0+xi8_2 xr9_1 = xr8_1+xr8_3 xi9_1 = xi8_1+xi8_3 xr9_2 = xr8_0-xr8_2 xi9_2 = xi8_0-xi8_2 xr9_3 = xr8_1-xr8_3 xi9_3 = xi8_1-xi8_3 xr6_4 = xr5_0-xr5_4 xi6_4 = xi5_0-xi5_4 xr6_5 = xr5_1-xr5_5 xi6_5 = xi5_1-xi5_5 xr6_6 = xr5_2-xr5_6 xi6_6 = xi5_2-xi5_6 xr6_7 = xr5_3-xr5_7 xi6_7 = xi5_3-xi5_7 xr7_4 = xr6_4+xr6_5 xi7_4 = xi6_4+xi6_5 xr7_5 = xr6_6+xr6_7 xi7_5 = xi6_6+xi6_7 xr8_6 = a5*xr7_4-a8*xr7_5 xi8_6 = a5*xi7_4-a8*xi7_5 xr8_7 = a8*xr7_4+a5*xr7_5 xi8_7 = a8*xi7_4+a5*xi7_5 xr9_4 = xr8_6-a7*xr6_5-a10*xr6_7 xi9_4 = xi8_6-a7*xi6_5-a10*xi6_7 xr9_5 = xr8_6+a6*xr6_4-a9*xr6_6 xi9_5 = xi8_6+a6*xi6_4-a9*xi6_6 xr9_6 = xr8_7+a10*xr6_5-a7*xr6_7 xi9_6 = xi8_7+a10*xi6_5-a7*xi6_7 xr9_7 = xr8_7+a9*xr6_4+a6*xr6_6 xi9_7 = xi8_7+a9*xi6_4+a6*xi6_6 xr10_0 = xr9_0+xr9_4 xi10_0 = xi9_0+xi9_4 xr10_1 = xr9_1+xr9_5 xi10_1 = xi9_1+xi9_5 xr10_2 = xr9_2+xr9_6 xi10_2 = xi9_2+xi9_6 xr10_3 = xr9_3+xr9_7 xi10_3 = xi9_3+xi9_7 xr10_4 = xr9_0-xr9_4 xi10_4 = xi9_0-xi9_4 xr10_5 = xr9_1-xr9_5 xi10_5 = xi9_1-xi9_5 xr10_6 = xr9_2-xr9_6 xi10_6 = xi9_2-xi9_6 xr10_7 = xr9_3-xr9_7 xi10_7 = xi9_3-xi9_7 xr5_8 = xr4_0-xr4_8 xi5_8 = xi4_0-xi4_8 xr5_9 = xr4_1-xr4_9 xi5_9 = xi4_1-xi4_9 xr5_10 = xr4_2-xr4_10 xi5_10 = xi4_2-xi4_10 xr5_11 = xr4_3-xr4_11 xi5_11 = xi4_3-xi4_11 xr5_12 = xr4_4-xr4_12 xi5_12 = xi4_4-xi4_12 xr5_13 = xr4_5-xr4_13 xi5_13 = xi4_5-xi4_13 xr5_14 = xr4_6-xr4_14 xi5_14 = xi4_6-xi4_14 xr5_15 = xr4_7-xr4_15 xi5_15 = xi4_7-xi4_15 xr6_8 = d1*(xr5_10-xr5_14) xi6_8 = d1*(xi5_10-xi5_14) xr6_10 = d1*(xr5_10+xr5_14) xi6_10 = d1*(xi5_10+xi5_14) xr7_8 = xr5_8+xr6_8 xi7_8 = xi5_8+xi6_8 xr7_10 = xr5_8-xr6_8 xi7_10 = xi5_8-xi6_8 xr7_12 = xr6_10+xr5_12 xi7_12 = xi6_10+xi5_12 xr7_14 = xr6_10-xr5_12 xi7_14 = xi6_10-xi5_12 xr6_9 = d1*(xr5_11-xr5_15) xi6_9 = d1*(xi5_11-xi5_15) xr6_11 = d1*(xr5_11+xr5_15) xi6_11 = d1*(xi5_11+xi5_15) xr7_9 = xr5_9+xr6_9 xi7_9 = xi5_9+xi6_9 xr7_11 = xr5_9-xr6_9 xi7_11 = xi5_9-xi6_9 xr7_13 = xr6_11+xr5_13 xi7_13 = xi6_11+xi5_13 xr7_15 = xr6_11-xr5_13 xi7_15 = xi6_11-xi5_13 xr8_8 = xr7_8+xr7_9 xi8_8 = xi7_8+xi7_9 xr8_9 = xr7_12+xr7_13 xi8_9 = xi7_12+xi7_13 xr9_12 = a11*xr8_8-a14*xr8_9 xi9_12 = a11*xi8_8-a14*xi8_9 xr9_13 = a14*xr8_8+a11*xr8_9 xi9_13 = a14*xi8_8+a11*xi8_9 xr10_8 = xr9_12+a13*xr7_9-a16*xr7_13 xi10_8 = xi9_12+a13*xi7_9-a16*xi7_13 xr10_9 = xr9_12+a12*xr7_8-a15*xr7_12 xi10_9 = xi9_12+a12*xi7_8-a15*xi7_12 xr10_12 = xr9_13+a16*xr7_9+a13*xr7_13 xi10_12 = xi9_13+a16*xi7_9+a13*xi7_13 xr10_13 = xr9_13+a15*xr7_8+a12*xr7_12 xi10_13 = xi9_13+a15*xi7_8+a12*xi7_12 xr8_10 = xr7_10+xr7_11 xi8_10 = xi7_10+xi7_11 xr8_11 = xr7_14+xr7_15 xi8_11 = xi7_14+xi7_15 xr9_14 = a17*xr8_10-a20*xr8_11 xi9_14 = a17*xi8_10-a20*xi8_11 xr9_15 = a20*xr8_10+a17*xr8_11 xi9_15 = a20*xi8_10+a17*xi8_11 xr10_10 = xr9_14-a19*xr7_11-a22*xr7_15 xi10_10 = xi9_14-a19*xi7_11-a22*xi7_15 xr10_11 = xr9_14+a18*xr7_10-a21*xr7_14 xi10_11 = xi9_14+a18*xi7_10-a21*xi7_14 xr10_14 = xr9_15+a22*xr7_11-a19*xr7_15 xi10_14 = xi9_15+a22*xi7_11-a19*xi7_15 xr10_15 = xr9_15+a21*xr7_10+a18*xr7_14 xi10_15 = xi9_15+a21*xi7_10+a18*xi7_14 xr11_8 = d1*(xr10_8-xr10_10) xi11_8 = d1*(xi10_8-xi10_10) xr11_10 = d1*(xr10_12+xr10_14) xi11_10 = d1*(xi10_12+xi10_14) xr12_8 = xr10_8+xr10_10 xi12_8 = xi10_8+xi10_10 xr12_10 = xr11_10+xr11_8 xi12_10 = xi11_10+xi11_8 xr12_12 = xr10_12-xr10_14 xi12_12 = xi10_12-xi10_14 xr12_14 = xr11_10-xr11_8 xi12_14 = xi11_10-xi11_8 xr11_9 = d1*(xr10_9-xr10_11) xi11_9 = d1*(xi10_9-xi10_11) xr11_11 = d1*(xr10_13+xr10_15) xi11_11 = d1*(xi10_13+xi10_15) xr12_9 = xr10_9+xr10_11 xi12_9 = xi10_9+xi10_11 xr12_11 = xr11_11+xr11_9 xi12_11 = xi11_11+xi11_9 xr12_13 = xr10_13-xr10_15 xi12_13 = xi10_13-xi10_15 xr12_15 = xr11_11-xr11_9 xi12_15 = xi11_11-xi11_9 xr13_0 = xr10_0+xr12_8 xi13_0 = xi10_0+xi12_8 xr13_1 = xr10_1+xr12_9 xi13_1 = xi10_1+xi12_9 xr13_2 = xr10_2+xr12_10 xi13_2 = xi10_2+xi12_10 xr13_3 = xr10_3+xr12_11 xi13_3 = xi10_3+xi12_11 xr13_4 = xr10_4+xr12_12 xi13_4 = xi10_4+xi12_12 xr13_5 = xr10_5+xr12_13 xi13_5 = xi10_5+xi12_13 xr13_6 = xr10_6+xr12_14 xi13_6 = xi10_6+xi12_14 xr13_7 = xr10_7+xr12_15 xi13_7 = xi10_7+xi12_15 xr13_8 = xr10_0-xr12_8 xi13_8 = xi10_0-xi12_8 xr13_9 = xr10_1-xr12_9 xi13_9 = xi10_1-xi12_9 xr13_10 = xr10_2-xr12_10 xi13_10 = xi10_2-xi12_10 xr13_11 = xr10_3-xr12_11 xi13_11 = xi10_3-xi12_11 xr13_12 = xr10_4-xr12_12 xi13_12 = xi10_4-xi12_12 xr13_13 = xr10_5-xr12_13 xi13_13 = xi10_5-xi12_13 xr13_14 = xr10_6-xr12_14 xi13_14 = xi10_6-xi12_14 xr13_15 = xr10_7-xr12_15 xi13_15 = xi10_7-xi12_15 xr4_16 = xr3_0-xr3_16 xi4_16 = xi3_0-xi3_16 xr4_17 = xr3_1-xr3_17 xi4_17 = xi3_1-xi3_17 xr4_18 = xr3_2-xr3_18 xi4_18 = xi3_2-xi3_18 xr4_19 = xr3_3-xr3_19 xi4_19 = xi3_3-xi3_19 xr4_20 = xr3_4-xr3_20 xi4_20 = xi3_4-xi3_20 xr4_21 = xr3_5-xr3_21 xi4_21 = xi3_5-xi3_21 xr4_22 = xr3_6-xr3_22 xi4_22 = xi3_6-xi3_22 xr4_23 = xr3_7-xr3_23 xi4_23 = xi3_7-xi3_23 xr4_24 = xr3_8-xr3_24 xi4_24 = xi3_8-xi3_24 xr4_25 = xr3_9-xr3_25 xi4_25 = xi3_9-xi3_25 xr4_26 = xr3_10-xr3_26 xi4_26 = xi3_10-xi3_26 xr4_27 = xr3_11-xr3_27 xi4_27 = xi3_11-xi3_27 xr4_28 = xr3_12-xr3_28 xi4_28 = xi3_12-xi3_28 xr4_29 = xr3_13-xr3_29 xi4_29 = xi3_13-xi3_29 xr4_30 = xr3_14-xr3_30 xi4_30 = xi3_14-xi3_30 xr4_31 = xr3_15-xr3_31 xi4_31 = xi3_15-xi3_31 xr5_18 = xr4_18-xr4_30 xi5_18 = xi4_18-xi4_30 xr5_22 = xr4_26-xr4_22 xi5_22 = xi4_26-xi4_22 xr6_18 = xr5_18-d2*xr5_22 xi6_18 = xi5_18-d2*xi5_22 xr6_22 = d2*xr5_18+xr5_22 xi6_22 = d2*xi5_18+xi5_22 xr5_26 = xr4_18+xr4_30 xi5_26 = xi4_18+xi4_30 xr5_30 = xr4_26+xr4_22 xi5_30 = xi4_26+xi4_22 xr6_26 = d2*xr5_26+xr5_30 xi6_26 = d2*xi5_26+xi5_30 xr6_30 = xr5_26-d2*xr5_30 xi6_30 = xi5_26-d2*xi5_30 xr5_20 = xr4_20-xr4_28 xi5_20 = xi4_20-xi4_28 xr6_20 = d3*xr5_20 xi6_20 = d3*xi5_20 xr5_28 = xr4_20+xr4_28 xi5_28 = xi4_20+xi4_28 xr6_28 = d3*xr5_28 xi6_28 = d3*xi5_28 xr5_16 = d4*xr4_16 xi5_16 = d4*xi4_16 xr5_24 = d4*xr4_24 xi5_24 = d4*xi4_24 xr7_16 = xr5_16+xr6_20 xi7_16 = xi5_16+xi6_20 xr7_20 = xr5_16-xr6_20 xi7_20 = xi5_16-xi6_20 xr7_24 = xr6_28+xr5_24 xi7_24 = xi6_28+xi5_24 xr7_28 = xr6_28-xr5_24 xi7_28 = xi6_28-xi5_24 xr8_16 = xr7_16+xr6_18 xi8_16 = xi7_16+xi6_18 xr8_18 = xr7_20+xr6_22 xi8_18 = xi7_20+xi6_22 xr8_20 = xr7_20-xr6_22 xi8_20 = xi7_20-xi6_22 xr8_22 = xr7_16-xr6_18 xi8_22 = xi7_16-xi6_18 xr8_24 = xr6_26+xr7_24 xi8_24 = xi6_26+xi7_24 xr8_26 = xr6_30+xr7_28 xi8_26 = xi6_30+xi7_28 xr8_28 = xr6_30-xr7_28 xi8_28 = xi6_30-xi7_28 xr8_30 = xr6_26-xr7_24 xi8_30 = xi6_26-xi7_24 xr5_19 = xr4_19-xr4_31 xi5_19 = xi4_19-xi4_31 xr5_23 = xr4_27-xr4_23 xi5_23 = xi4_27-xi4_23 xr6_19 = xr5_19-d2*xr5_23 xi6_19 = xi5_19-d2*xi5_23 xr6_23 = d2*xr5_19+xr5_23 xi6_23 = d2*xi5_19+xi5_23 xr5_27 = xr4_19+xr4_31 xi5_27 = xi4_19+xi4_31 xr5_31 = xr4_27+xr4_23 xi5_31 = xi4_27+xi4_23 xr6_27 = d2*xr5_27+xr5_31 xi6_27 = d2*xi5_27+xi5_31 xr6_31 = xr5_27-d2*xr5_31 xi6_31 = xi5_27-d2*xi5_31 xr5_21 = xr4_21-xr4_29 xi5_21 = xi4_21-xi4_29 xr6_21 = d3*xr5_21 xi6_21 = d3*xi5_21 xr5_29 = xr4_21+xr4_29 xi5_29 = xi4_21+xi4_29 xr6_29 = d3*xr5_29 xi6_29 = d3*xi5_29 xr5_17 = d4*xr4_17 xi5_17 = d4*xi4_17 xr5_25 = d4*xr4_25 xi5_25 = d4*xi4_25 xr7_17 = xr5_17+xr6_21 xi7_17 = xi5_17+xi6_21 xr7_21 = xr5_17-xr6_21 xi7_21 = xi5_17-xi6_21 xr7_25 = xr6_29+xr5_25 xi7_25 = xi6_29+xi5_25 xr7_29 = xr6_29-xr5_25 xi7_29 = xi6_29-xi5_25 xr8_17 = xr7_17+xr6_19 xi8_17 = xi7_17+xi6_19 xr8_19 = xr7_21+xr6_23 xi8_19 = xi7_21+xi6_23 xr8_21 = xr7_21-xr6_23 xi8_21 = xi7_21-xi6_23 xr8_23 = xr7_17-xr6_19 xi8_23 = xi7_17-xi6_19 xr8_25 = xr6_27+xr7_25 xi8_25 = xi6_27+xi7_25 xr8_27 = xr6_31+xr7_29 xi8_27 = xi6_31+xi7_29 xr8_29 = xr6_31-xr7_29 xi8_29 = xi6_31-xi7_29 xr8_31 = xr6_27-xr7_25 xi8_31 = xi6_27-xi7_25 xr9_16 = xr8_16+xr8_17 xi9_16 = xi8_16+xi8_17 xr9_17 = xr8_24+xr8_25 xi9_17 = xi8_24+xi8_25 xr10_24 = a23*xr9_16-a26*xr9_17 xi10_24 = a23*xi9_16-a26*xi9_17 xr10_25 = a26*xr9_16+a23*xr9_17 xi10_25 = a26*xi9_16+a23*xi9_17 xr11_16 = xr10_24+a25*xr8_17-a28*xr8_25 xi11_16 = xi10_24+a25*xi8_17-a28*xi8_25 xr11_17 = xr10_24+a24*xr8_16-a27*xr8_24 xi11_17 = xi10_24+a24*xi8_16-a27*xi8_24 xr11_24 = xr10_25+a28*xr8_17+a25*xr8_25 xi11_24 = xi10_25+a28*xi8_17+a25*xi8_25 xr11_25 = xr10_25+a27*xr8_16+a24*xr8_24 xi11_25 = xi10_25+a27*xi8_16+a24*xi8_24 xr9_18 = xr8_18+xr8_19 xi9_18 = xi8_18+xi8_19 xr9_19 = xr8_26+xr8_27 xi9_19 = xi8_26+xi8_27 xr10_26 = a29*xr9_18-a32*xr9_19 xi10_26 = a29*xi9_18-a32*xi9_19 xr10_27 = a32*xr9_18+a29*xr9_19 xi10_27 = a32*xi9_18+a29*xi9_19 xr11_18 = xr10_26+a31*xr8_19-a34*xr8_27 xi11_18 = xi10_26+a31*xi8_19-a34*xi8_27 xr11_19 = xr10_26+a30*xr8_18-a33*xr8_26 xi11_19 = xi10_26+a30*xi8_18-a33*xi8_26 xr11_26 = xr10_27+a34*xr8_19+a31*xr8_27 xi11_26 = xi10_27+a34*xi8_19+a31*xi8_27 xr11_27 = xr10_27+a33*xr8_18+a30*xr8_26 xi11_27 = xi10_27+a33*xi8_18+a30*xi8_26 xr9_20 = xr8_20+xr8_21 xi9_20 = xi8_20+xi8_21 xr9_21 = xr8_28+xr8_29 xi9_21 = xi8_28+xi8_29 xr10_28 = a35*xr9_20-a38*xr9_21 xi10_28 = a35*xi9_20-a38*xi9_21 xr10_29 = a38*xr9_20+a35*xr9_21 xi10_29 = a38*xi9_20+a35*xi9_21 xr11_20 = xr10_28-a37*xr8_21-a40*xr8_29 xi11_20 = xi10_28-a37*xi8_21-a40*xi8_29 xr11_21 = xr10_28+a36*xr8_20-a39*xr8_28 xi11_21 = xi10_28+a36*xi8_20-a39*xi8_28 xr11_28 = xr10_29+a40*xr8_21-a37*xr8_29 xi11_28 = xi10_29+a40*xi8_21-a37*xi8_29 xr11_29 = xr10_29+a39*xr8_20+a36*xr8_28 xi11_29 = xi10_29+a39*xi8_20+a36*xi8_28 xr9_22 = xr8_22+xr8_23 xi9_22 = xi8_22+xi8_23 xr9_23 = xr8_30+xr8_31 xi9_23 = xi8_30+xi8_31 xr10_30 = a41*xr9_22-a44*xr9_23 xi10_30 = a41*xi9_22-a44*xi9_23 xr10_31 = a44*xr9_22+a41*xr9_23 xi10_31 = a44*xi9_22+a41*xi9_23 xr11_22 = xr10_30-a43*xr8_23-a46*xr8_31 xi11_22 = xi10_30-a43*xi8_23-a46*xi8_31 xr11_23 = xr10_30+a42*xr8_22-a45*xr8_30 xi11_23 = xi10_30+a42*xi8_22-a45*xi8_30 xr11_30 = xr10_31+a46*xr8_23-a43*xr8_31 xi11_30 = xi10_31+a46*xi8_23-a43*xi8_31 xr11_31 = xr10_31+a45*xr8_22+a42*xr8_30 xi11_31 = xi10_31+a45*xi8_22+a42*xi8_30 xr12_16 = xr11_16+xr11_22 xi12_16 = xi11_16+xi11_22 xr12_20 = xr11_18+xr11_20 xi12_20 = xi11_18+xi11_20 xr12_18 = xr11_16-xr11_22 xi12_18 = xi11_16-xi11_22 xr12_22 = xr11_18-xr11_20 xi12_22 = xi11_18-xi11_20 xr12_26 = xr11_24+xr11_30 xi12_26 = xi11_24+xi11_30 xr12_30 = xr11_26+xr11_28 xi12_30 = xi11_26+xi11_28 xr12_24 = xr11_24-xr11_30 xi12_24 = xi11_24-xi11_30 xr12_28 = xr11_26-xr11_28 xi12_28 = xi11_26-xi11_28 xr13_16 = xr12_16+xr12_20 xi13_16 = xi12_16+xi12_20 xr13_20 = xr12_16-xr12_20 xi13_20 = xi12_16-xi12_20 xr13_28 = xr12_24+xr12_28 xi13_28 = xi12_24+xi12_28 xr13_24 = xr12_24-xr12_28 xi13_24 = xi12_24-xi12_28 xr14_16 = d4*xr13_16 xi14_16 = d4*xi13_16 xr14_24 = d4*xr13_24 xi14_24 = d4*xi13_24 xr14_28 = d3*xr13_28 xi14_28 = d3*xi13_28 xr14_20 = d3*xr13_20 xi14_20 = d3*xi13_20 xr15_20 = xr14_28+xr14_20 xi15_20 = xi14_28+xi14_20 xr15_28 = xr14_28-xr14_20 xi15_28 = xi14_28-xi14_20 xr13_26 = d2*xr12_26+xr12_30 xi13_26 = d2*xi12_26+xi12_30 xr13_30 = xr12_26-d2*xr12_30 xi13_30 = xi12_26-d2*xi12_30 xr13_18 = xr12_18+d2*xr12_22 xi13_18 = xi12_18+d2*xi12_22 xr13_22 = xr12_22-d2*xr12_18 xi13_22 = xi12_22-d2*xi12_18 xr16_18 = xr13_26+xr13_18 xi16_18 = xi13_26+xi13_18 xr16_26 = xr13_30+xr13_22 xi16_26 = xi13_30+xi13_22 xr16_30 = xr13_26-xr13_18 xi16_30 = xi13_26-xi13_18 xr16_22 = xr13_30-xr13_22 xi16_22 = xi13_30-xi13_22 xr12_17 = xr11_17+xr11_23 xi12_17 = xi11_17+xi11_23 xr12_21 = xr11_19+xr11_21 xi12_21 = xi11_19+xi11_21 xr12_19 = xr11_17-xr11_23 xi12_19 = xi11_17-xi11_23 xr12_23 = xr11_19-xr11_21 xi12_23 = xi11_19-xi11_21 xr12_27 = xr11_25+xr11_31 xi12_27 = xi11_25+xi11_31 xr12_31 = xr11_27+xr11_29 xi12_31 = xi11_27+xi11_29 xr12_25 = xr11_25-xr11_31 xi12_25 = xi11_25-xi11_31 xr12_29 = xr11_27-xr11_29 xi12_29 = xi11_27-xi11_29 xr13_17 = xr12_17+xr12_21 xi13_17 = xi12_17+xi12_21 xr13_21 = xr12_17-xr12_21 xi13_21 = xi12_17-xi12_21 xr13_29 = xr12_25+xr12_29 xi13_29 = xi12_25+xi12_29 xr13_25 = xr12_25-xr12_29 xi13_25 = xi12_25-xi12_29 xr14_17 = d4*xr13_17 xi14_17 = d4*xi13_17 xr14_25 = d4*xr13_25 xi14_25 = d4*xi13_25 xr14_29 = d3*xr13_29 xi14_29 = d3*xi13_29 xr14_21 = d3*xr13_21 xi14_21 = d3*xi13_21 xr15_21 = xr14_29+xr14_21 xi15_21 = xi14_29+xi14_21 xr15_29 = xr14_29-xr14_21 xi15_29 = xi14_29-xi14_21 xr13_27 = d2*xr12_27+xr12_31 xi13_27 = d2*xi12_27+xi12_31 xr13_31 = xr12_27-d2*xr12_31 xi13_31 = xi12_27-d2*xi12_31 xr13_19 = xr12_19+d2*xr12_23 xi13_19 = xi12_19+d2*xi12_23 xr13_23 = xr12_23-d2*xr12_19 xi13_23 = xi12_23-d2*xi12_19 xr16_19 = xr13_27+xr13_19 xi16_19 = xi13_27+xi13_19 xr16_27 = xr13_31+xr13_23 xi16_27 = xi13_31+xi13_23 xr16_31 = xr13_27-xr13_19 xi16_31 = xi13_27-xi13_19 xr16_23 = xr13_31-xr13_23 xi16_23 = xi13_31-xi13_23 xr17_0 = xr13_0+xr14_16 xi17_0 = xi13_0+xi14_16 xr17_1 = xr13_1+xr14_17 xi17_1 = xi13_1+xi14_17 xr17_2 = xr13_2+xr16_18 xi17_2 = xi13_2+xi16_18 xr17_3 = xr13_3+xr16_19 xi17_3 = xi13_3+xi16_19 xr17_4 = xr13_4+xr15_20 xi17_4 = xi13_4+xi15_20 xr17_5 = xr13_5+xr15_21 xi17_5 = xi13_5+xi15_21 xr17_6 = xr13_6+xr16_22 xi17_6 = xi13_6+xi16_22 xr17_7 = xr13_7+xr16_23 xi17_7 = xi13_7+xi16_23 xr17_8 = xr13_8+xr14_24 xi17_8 = xi13_8+xi14_24 xr17_9 = xr13_9+xr14_25 xi17_9 = xi13_9+xi14_25 xr17_10 = xr13_10+xr16_26 xi17_10 = xi13_10+xi16_26 xr17_11 = xr13_11+xr16_27 xi17_11 = xi13_11+xi16_27 xr17_12 = xr13_12+xr15_28 xi17_12 = xi13_12+xi15_28 xr17_13 = xr13_13+xr15_29 xi17_13 = xi13_13+xi15_29 xr17_14 = xr13_14+xr16_30 xi17_14 = xi13_14+xi16_30 xr17_15 = xr13_15+xr16_31 xi17_15 = xi13_15+xi16_31 xr17_16 = xr13_0-xr14_16 xi17_16 = xi13_0-xi14_16 xr17_17 = xr13_1-xr14_17 xi17_17 = xi13_1-xi14_17 xr17_18 = xr13_2-xr16_18 xi17_18 = xi13_2-xi16_18 xr17_19 = xr13_3-xr16_19 xi17_19 = xi13_3-xi16_19 xr17_20 = xr13_4-xr15_20 xi17_20 = xi13_4-xi15_20 xr17_21 = xr13_5-xr15_21 xi17_21 = xi13_5-xi15_21 xr17_22 = xr13_6-xr16_22 xi17_22 = xi13_6-xi16_22 xr17_23 = xr13_7-xr16_23 xi17_23 = xi13_7-xi16_23 xr17_24 = xr13_8-xr14_24 xi17_24 = xi13_8-xi14_24 xr17_25 = xr13_9-xr14_25 xi17_25 = xi13_9-xi14_25 xr17_26 = xr13_10-xr16_26 xi17_26 = xi13_10-xi16_26 xr17_27 = xr13_11-xr16_27 xi17_27 = xi13_11-xi16_27 xr17_28 = xr13_12-xr15_28 xi17_28 = xi13_12-xi15_28 xr17_29 = xr13_13-xr15_29 xi17_29 = xi13_13-xi15_29 xr17_30 = xr13_14-xr16_30 xi17_30 = xi13_14-xi16_30 xr17_31 = xr13_15-xr16_31 xi17_31 = xi13_15-xi16_31 xr3_32 = xr2_0-xr2_32 xi3_32 = xi2_0-xi2_32 xr3_33 = xr2_1-xr2_33 xi3_33 = xi2_1-xi2_33 xr3_34 = xr2_2-xr2_34 xi3_34 = xi2_2-xi2_34 xr3_35 = xr2_3-xr2_35 xi3_35 = xi2_3-xi2_35 xr3_36 = xr2_4-xr2_36 xi3_36 = xi2_4-xi2_36 xr3_37 = xr2_5-xr2_37 xi3_37 = xi2_5-xi2_37 xr3_38 = xr2_6-xr2_38 xi3_38 = xi2_6-xi2_38 xr3_39 = xr2_7-xr2_39 xi3_39 = xi2_7-xi2_39 xr3_40 = xr2_8-xr2_40 xi3_40 = xi2_8-xi2_40 xr3_41 = xr2_9-xr2_41 xi3_41 = xi2_9-xi2_41 xr3_42 = xr2_10-xr2_42 xi3_42 = xi2_10-xi2_42 xr3_43 = xr2_11-xr2_43 xi3_43 = xi2_11-xi2_43 xr3_44 = xr2_12-xr2_44 xi3_44 = xi2_12-xi2_44 xr3_45 = xr2_13-xr2_45 xi3_45 = xi2_13-xi2_45 xr3_46 = xr2_14-xr2_46 xi3_46 = xi2_14-xi2_46 xr3_47 = xr2_15-xr2_47 xi3_47 = xi2_15-xi2_47 xr3_48 = xr2_16-xr2_48 xi3_48 = xi2_16-xi2_48 xr3_49 = xr2_17-xr2_49 xi3_49 = xi2_17-xi2_49 xr3_50 = xr2_18-xr2_50 xi3_50 = xi2_18-xi2_50 xr3_51 = xr2_19-xr2_51 xi3_51 = xi2_19-xi2_51 xr3_52 = xr2_20-xr2_52 xi3_52 = xi2_20-xi2_52 xr3_53 = xr2_21-xr2_53 xi3_53 = xi2_21-xi2_53 xr3_54 = xr2_22-xr2_54 xi3_54 = xi2_22-xi2_54 xr3_55 = xr2_23-xr2_55 xi3_55 = xi2_23-xi2_55 xr3_56 = xr2_24-xr2_56 xi3_56 = xi2_24-xi2_56 xr3_57 = xr2_25-xr2_57 xi3_57 = xi2_25-xi2_57 xr3_58 = xr2_26-xr2_58 xi3_58 = xi2_26-xi2_58 xr3_59 = xr2_27-xr2_59 xi3_59 = xi2_27-xi2_59 xr3_60 = xr2_28-xr2_60 xi3_60 = xi2_28-xi2_60 xr3_61 = xr2_29-xr2_61 xi3_61 = xi2_29-xi2_61 xr3_62 = xr2_30-xr2_62 xi3_62 = xi2_30-xi2_62 xr3_63 = xr2_31-xr2_63 xi3_63 = xi2_31-xi2_63 xr4_34 = xr3_34-xr3_62 xi4_34 = xi3_34-xi3_62 xr4_38 = xr3_42-xr3_54 xi4_38 = xi3_42-xi3_54 xr4_42 = xr3_50-xr3_46 xi4_42 = xi3_50-xi3_46 xr4_46 = xr3_58-xr3_38 xi4_46 = xi3_58-xi3_38 xr5_34 = d1*(xr4_38-xr4_46) xi5_34 = d1*(xi4_38-xi4_46) xr5_38 = d1*(xr4_38+xr4_46) xi5_38 = d1*(xi4_38+xi4_46) xr6_34 = xr4_34+xr5_34 xi6_34 = xi4_34+xi5_34 xr6_38 = xr4_34-xr5_34 xi6_38 = xi4_34-xi5_34 xr6_42 = xr5_38+xr4_42 xi6_42 = xi5_38+xi4_42 xr6_46 = xr5_38-xr4_42 xi6_46 = xi5_38-xi4_42 xr7_34 = xr6_34-d5*xr6_42 xi7_34 = xi6_34-d5*xi6_42 xr7_38 = xr6_38-d6*xr6_46 xi7_38 = xi6_38-d6*xi6_46 xr7_42 = d6*xr6_38+xr6_46 xi7_42 = d6*xi6_38+xi6_46 xr7_46 = d5*xr6_34+xr6_42 xi7_46 = d5*xi6_34+xi6_42 xr4_50 = xr3_34+xr3_62 xi4_50 = xi3_34+xi3_62 xr4_54 = xr3_42+xr3_54 xi4_54 = xi3_42+xi3_54 xr4_58 = xr3_50+xr3_46 xi4_58 = xi3_50+xi3_46 xr4_62 = xr3_58+xr3_38 xi4_62 = xi3_58+xi3_38 xr5_50 = d1*(xr4_54-xr4_62) xi5_50 = d1*(xi4_54-xi4_62) xr5_54 = d1*(xr4_54+xr4_62) xi5_54 = d1*(xi4_54+xi4_62) xr6_50 = xr4_50+xr5_50 xi6_50 = xi4_50+xi5_50 xr6_54 = xr4_50-xr5_50 xi6_54 = xi4_50-xi5_50 xr6_58 = xr5_54+xr4_58 xi6_58 = xi5_54+xi4_58 xr6_62 = xr5_54-xr4_58 xi6_62 = xi5_54-xi4_58 xr7_50 = d5*xr6_50+xr6_58 xi7_50 = d5*xi6_50+xi6_58 xr7_54 = d6*xr6_54+xr6_62 xi7_54 = d6*xi6_54+xi6_62 xr7_58 = xr6_54-d6*xr6_62 xi7_58 = xi6_54-d6*xi6_62 xr7_62 = xr6_50-d5*xr6_58 xi7_62 = xi6_50-d5*xi6_58 xr4_36 = xr3_36-xr3_60 xi4_36 = xi3_36-xi3_60 xr4_44 = xr3_52-xr3_44 xi4_44 = xi3_52-xi3_44 xr5_36 = d7*xr4_36-d8*xr4_44 xi5_36 = d7*xi4_36-d8*xi4_44 xr5_44 = d9*xr4_36+d10*xr4_44 xi5_44 = d9*xi4_36+d10*xi4_44 xr4_52 = xr3_36+xr3_60 xi4_52 = xi3_36+xi3_60 xr4_60 = xr3_52+xr3_44 xi4_60 = xi3_52+xi3_44 xr5_52 = d8*xr4_52+d7*xr4_60 xi5_52 = d8*xi4_52+d7*xi4_60 xr5_60 = d10*xr4_52-d9*xr4_60 xi5_60 = d10*xi4_52-d9*xi4_60 xr4_32 = d1*(xr3_40-xr3_56) xi4_32 = d1*(xi3_40-xi3_56) xr4_40 = d1*(xr3_40+xr3_56) xi4_40 = d1*(xi3_40+xi3_56) xr5_32 = xr3_32+xr4_32 xi5_32 = xi3_32+xi4_32 xr5_40 = xr3_32-xr4_32 xi5_40 = xi3_32-xi4_32 xr5_48 = xr4_40+xr3_48 xi5_48 = xi4_40+xi3_48 xr5_56 = xr4_40-xr3_48 xi5_56 = xi4_40-xi3_48 xr6_32 = d11*xr5_32 xi6_32 = d11*xi5_32 xr6_40 = d12*xr5_40 xi6_40 = d12*xi5_40 xr6_48 = d11*xr5_48 xi6_48 = d11*xi5_48 xr6_56 = d12*xr5_56 xi6_56 = d12*xi5_56 xr7_32 = xr6_32+xr5_36 xi7_32 = xi6_32+xi5_36 xr7_36 = xr6_40+xr5_44 xi7_36 = xi6_40+xi5_44 xr7_40 = xr6_40-xr5_44 xi7_40 = xi6_40-xi5_44 xr7_44 = xr6_32-xr5_36 xi7_44 = xi6_32-xi5_36 xr7_48 = xr5_52+xr6_48 xi7_48 = xi5_52+xi6_48 xr7_52 = xr5_60+xr6_56 xi7_52 = xi5_60+xi6_56 xr7_56 = xr5_60-xr6_56 xi7_56 = xi5_60-xi6_56 xr7_60 = xr5_52-xr6_48 xi7_60 = xi5_52-xi6_48 xr8_32 = xr7_32+xr7_34 xi8_32 = xi7_32+xi7_34 xr8_34 = xr7_36+xr7_38 xi8_34 = xi7_36+xi7_38 xr8_36 = xr7_40+xr7_42 xi8_36 = xi7_40+xi7_42 xr8_38 = xr7_44+xr7_46 xi8_38 = xi7_44+xi7_46 xr8_40 = xr7_44-xr7_46 xi8_40 = xi7_44-xi7_46 xr8_42 = xr7_40-xr7_42 xi8_42 = xi7_40-xi7_42 xr8_44 = xr7_36-xr7_38 xi8_44 = xi7_36-xi7_38 xr8_46 = xr7_32-xr7_34 xi8_46 = xi7_32-xi7_34 xr8_48 = xr7_50+xr7_48 xi8_48 = xi7_50+xi7_48 xr8_50 = xr7_54+xr7_52 xi8_50 = xi7_54+xi7_52 xr8_52 = xr7_58+xr7_56 xi8_52 = xi7_58+xi7_56 xr8_54 = xr7_62+xr7_60 xi8_54 = xi7_62+xi7_60 xr8_56 = xr7_62-xr7_60 xi8_56 = xi7_62-xi7_60 xr8_58 = xr7_58-xr7_56 xi8_58 = xi7_58-xi7_56 xr8_60 = xr7_54-xr7_52 xi8_60 = xi7_54-xi7_52 xr8_62 = xr7_50-xr7_48 xi8_62 = xi7_50-xi7_48 xr4_35 = xr3_35-xr3_63 xi4_35 = xi3_35-xi3_63 xr4_39 = xr3_43-xr3_55 xi4_39 = xi3_43-xi3_55 xr4_43 = xr3_51-xr3_47 xi4_43 = xi3_51-xi3_47 xr4_47 = xr3_59-xr3_39 xi4_47 = xi3_59-xi3_39 xr5_35 = d1*(xr4_39-xr4_47) xi5_35 = d1*(xi4_39-xi4_47) xr5_39 = d1*(xr4_39+xr4_47) xi5_39 = d1*(xi4_39+xi4_47) xr6_35 = xr4_35+xr5_35 xi6_35 = xi4_35+xi5_35 xr6_39 = xr4_35-xr5_35 xi6_39 = xi4_35-xi5_35 xr6_43 = xr5_39+xr4_43 xi6_43 = xi5_39+xi4_43 xr6_47 = xr5_39-xr4_43 xi6_47 = xi5_39-xi4_43 xr7_35 = xr6_35-d5*xr6_43 xi7_35 = xi6_35-d5*xi6_43 xr7_39 = xr6_39-d6*xr6_47 xi7_39 = xi6_39-d6*xi6_47 xr7_43 = d6*xr6_39+xr6_47 xi7_43 = d6*xi6_39+xi6_47 xr7_47 = d5*xr6_35+xr6_43 xi7_47 = d5*xi6_35+xi6_43 xr4_51 = xr3_35+xr3_63 xi4_51 = xi3_35+xi3_63 xr4_55 = xr3_43+xr3_55 xi4_55 = xi3_43+xi3_55 xr4_59 = xr3_51+xr3_47 xi4_59 = xi3_51+xi3_47 xr4_63 = xr3_59+xr3_39 xi4_63 = xi3_59+xi3_39 xr5_51 = d1*(xr4_55-xr4_63) xi5_51 = d1*(xi4_55-xi4_63) xr5_55 = d1*(xr4_55+xr4_63) xi5_55 = d1*(xi4_55+xi4_63) xr6_51 = xr4_51+xr5_51 xi6_51 = xi4_51+xi5_51 xr6_55 = xr4_51-xr5_51 xi6_55 = xi4_51-xi5_51 xr6_59 = xr5_55+xr4_59 xi6_59 = xi5_55+xi4_59 xr6_63 = xr5_55-xr4_59 xi6_63 = xi5_55-xi4_59 xr7_51 = d5*xr6_51+xr6_59 xi7_51 = d5*xi6_51+xi6_59 xr7_55 = d6*xr6_55+xr6_63 xi7_55 = d6*xi6_55+xi6_63 xr7_59 = xr6_55-d6*xr6_63 xi7_59 = xi6_55-d6*xi6_63 xr7_63 = xr6_51-d5*xr6_59 xi7_63 = xi6_51-d5*xi6_59 xr4_37 = xr3_37-xr3_61 xi4_37 = xi3_37-xi3_61 xr4_45 = xr3_53-xr3_45 xi4_45 = xi3_53-xi3_45 xr5_37 = d7*xr4_37-d8*xr4_45 xi5_37 = d7*xi4_37-d8*xi4_45 xr5_45 = d9*xr4_37+d10*xr4_45 xi5_45 = d9*xi4_37+d10*xi4_45 xr4_53 = xr3_37+xr3_61 xi4_53 = xi3_37+xi3_61 xr4_61 = xr3_53+xr3_45 xi4_61 = xi3_53+xi3_45 xr5_53 = d8*xr4_53+d7*xr4_61 xi5_53 = d8*xi4_53+d7*xi4_61 xr5_61 = d10*xr4_53-d9*xr4_61 xi5_61 = d10*xi4_53-d9*xi4_61 xr4_33 = d1*(xr3_41-xr3_57) xi4_33 = d1*(xi3_41-xi3_57) xr4_41 = d1*(xr3_41+xr3_57) xi4_41 = d1*(xi3_41+xi3_57) xr5_33 = xr3_33+xr4_33 xi5_33 = xi3_33+xi4_33 xr5_41 = xr3_33-xr4_33 xi5_41 = xi3_33-xi4_33 xr5_49 = xr4_41+xr3_49 xi5_49 = xi4_41+xi3_49 xr5_57 = xr4_41-xr3_49 xi5_57 = xi4_41-xi3_49 xr6_33 = d11*xr5_33 xi6_33 = d11*xi5_33 xr6_41 = d12*xr5_41 xi6_41 = d12*xi5_41 xr6_49 = d11*xr5_49 xi6_49 = d11*xi5_49 xr6_57 = d12*xr5_57 xi6_57 = d12*xi5_57 xr7_33 = xr6_33+xr5_37 xi7_33 = xi6_33+xi5_37 xr7_37 = xr6_41+xr5_45 xi7_37 = xi6_41+xi5_45 xr7_41 = xr6_41-xr5_45 xi7_41 = xi6_41-xi5_45 xr7_45 = xr6_33-xr5_37 xi7_45 = xi6_33-xi5_37 xr7_49 = xr5_53+xr6_49 xi7_49 = xi5_53+xi6_49 xr7_53 = xr5_61+xr6_57 xi7_53 = xi5_61+xi6_57 xr7_57 = xr5_61-xr6_57 xi7_57 = xi5_61-xi6_57 xr7_61 = xr5_53-xr6_49 xi7_61 = xi5_53-xi6_49 xr8_33 = xr7_33+xr7_35 xi8_33 = xi7_33+xi7_35 xr8_35 = xr7_37+xr7_39 xi8_35 = xi7_37+xi7_39 xr8_37 = xr7_41+xr7_43 xi8_37 = xi7_41+xi7_43 xr8_39 = xr7_45+xr7_47 xi8_39 = xi7_45+xi7_47 xr8_41 = xr7_45-xr7_47 xi8_41 = xi7_45-xi7_47 xr8_43 = xr7_41-xr7_43 xi8_43 = xi7_41-xi7_43 xr8_45 = xr7_37-xr7_39 xi8_45 = xi7_37-xi7_39 xr8_47 = xr7_33-xr7_35 xi8_47 = xi7_33-xi7_35 xr8_49 = xr7_51+xr7_49 xi8_49 = xi7_51+xi7_49 xr8_51 = xr7_55+xr7_53 xi8_51 = xi7_55+xi7_53 xr8_53 = xr7_59+xr7_57 xi8_53 = xi7_59+xi7_57 xr8_55 = xr7_63+xr7_61 xi8_55 = xi7_63+xi7_61 xr8_57 = xr7_63-xr7_61 xi8_57 = xi7_63-xi7_61 xr8_59 = xr7_59-xr7_57 xi8_59 = xi7_59-xi7_57 xr8_61 = xr7_55-xr7_53 xi8_61 = xi7_55-xi7_53 xr8_63 = xr7_51-xr7_49 xi8_63 = xi7_51-xi7_49 xr9_32 = xr8_32+xr8_33 xi9_32 = xi8_32+xi8_33 xr9_33 = xr8_48+xr8_49 xi9_33 = xi8_48+xi8_49 xr10_48 = a47*xr9_32-a50*xr9_33 xi10_48 = a47*xi9_32-a50*xi9_33 xr10_49 = a50*xr9_32+a47*xr9_33 xi10_49 = a50*xi9_32+a47*xi9_33 xr11_32 = xr10_48+a49*xr8_33-a52*xr8_49 xi11_32 = xi10_48+a49*xi8_33-a52*xi8_49 xr11_33 = xr10_48+a48*xr8_32-a51*xr8_48 xi11_33 = xi10_48+a48*xi8_32-a51*xi8_48 xr11_48 = xr10_49+a52*xr8_33+a49*xr8_49 xi11_48 = xi10_49+a52*xi8_33+a49*xi8_49 xr11_49 = xr10_49+a51*xr8_32+a48*xr8_48 xi11_49 = xi10_49+a51*xi8_32+a48*xi8_48 xr9_34 = xr8_34+xr8_35 xi9_34 = xi8_34+xi8_35 xr9_35 = xr8_50+xr8_51 xi9_35 = xi8_50+xi8_51 xr10_50 = a53*xr9_34-a56*xr9_35 xi10_50 = a53*xi9_34-a56*xi9_35 xr10_51 = a56*xr9_34+a53*xr9_35 xi10_51 = a56*xi9_34+a53*xi9_35 xr11_34 = xr10_50+a55*xr8_35-a58*xr8_51 xi11_34 = xi10_50+a55*xi8_35-a58*xi8_51 xr11_35 = xr10_50+a54*xr8_34-a57*xr8_50 xi11_35 = xi10_50+a54*xi8_34-a57*xi8_50 xr11_50 = xr10_51+a58*xr8_35+a55*xr8_51 xi11_50 = xi10_51+a58*xi8_35+a55*xi8_51 xr11_51 = xr10_51+a57*xr8_34+a54*xr8_50 xi11_51 = xi10_51+a57*xi8_34+a54*xi8_50 xr9_36 = xr8_36+xr8_37 xi9_36 = xi8_36+xi8_37 xr9_37 = xr8_52+xr8_53 xi9_37 = xi8_52+xi8_53 xr10_52 = a59*xr9_36-a62*xr9_37 xi10_52 = a59*xi9_36-a62*xi9_37 xr10_53 = a62*xr9_36+a59*xr9_37 xi10_53 = a62*xi9_36+a59*xi9_37 xr11_36 = xr10_52+a61*xr8_37-a64*xr8_53 xi11_36 = xi10_52+a61*xi8_37-a64*xi8_53 xr11_37 = xr10_52+a60*xr8_36-a63*xr8_52 xi11_37 = xi10_52+a60*xi8_36-a63*xi8_52 xr11_52 = xr10_53+a64*xr8_37+a61*xr8_53 xi11_52 = xi10_53+a64*xi8_37+a61*xi8_53 xr11_53 = xr10_53+a63*xr8_36+a60*xr8_52 xi11_53 = xi10_53+a63*xi8_36+a60*xi8_52 xr9_38 = xr8_38+xr8_39 xi9_38 = xi8_38+xi8_39 xr9_39 = xr8_54+xr8_55 xi9_39 = xi8_54+xi8_55 xr10_54 = a65*xr9_38-a68*xr9_39 xi10_54 = a65*xi9_38-a68*xi9_39 xr10_55 = a68*xr9_38+a65*xr9_39 xi10_55 = a68*xi9_38+a65*xi9_39 xr11_38 = xr10_54+a67*xr8_39-a70*xr8_55 xi11_38 = xi10_54+a67*xi8_39-a70*xi8_55 xr11_39 = xr10_54+a66*xr8_38-a69*xr8_54 xi11_39 = xi10_54+a66*xi8_38-a69*xi8_54 xr11_54 = xr10_55+a70*xr8_39+a67*xr8_55 xi11_54 = xi10_55+a70*xi8_39+a67*xi8_55 xr11_55 = xr10_55+a69*xr8_38+a66*xr8_54 xi11_55 = xi10_55+a69*xi8_38+a66*xi8_54 xr9_40 = xr8_40+xr8_41 xi9_40 = xi8_40+xi8_41 xr9_41 = xr8_56+xr8_57 xi9_41 = xi8_56+xi8_57 xr10_56 = a71*xr9_40-a74*xr9_41 xi10_56 = a71*xi9_40-a74*xi9_41 xr10_57 = a74*xr9_40+a71*xr9_41 xi10_57 = a74*xi9_40+a71*xi9_41 xr11_40 = xr10_56-a73*xr8_41-a76*xr8_57 xi11_40 = xi10_56-a73*xi8_41-a76*xi8_57 xr11_41 = xr10_56+a72*xr8_40-a75*xr8_56 xi11_41 = xi10_56+a72*xi8_40-a75*xi8_56 xr11_56 = xr10_57+a76*xr8_41-a73*xr8_57 xi11_56 = xi10_57+a76*xi8_41-a73*xi8_57 xr11_57 = xr10_57+a75*xr8_40+a72*xr8_56 xi11_57 = xi10_57+a75*xi8_40+a72*xi8_56 xr9_42 = xr8_42+xr8_43 xi9_42 = xi8_42+xi8_43 xr9_43 = xr8_58+xr8_59 xi9_43 = xi8_58+xi8_59 xr10_58 = a77*xr9_42-a80*xr9_43 xi10_58 = a77*xi9_42-a80*xi9_43 xr10_59 = a80*xr9_42+a77*xr9_43 xi10_59 = a80*xi9_42+a77*xi9_43 xr11_42 = xr10_58-a79*xr8_43-a82*xr8_59 xi11_42 = xi10_58-a79*xi8_43-a82*xi8_59 xr11_43 = xr10_58+a78*xr8_42-a81*xr8_58 xi11_43 = xi10_58+a78*xi8_42-a81*xi8_58 xr11_58 = xr10_59+a82*xr8_43-a79*xr8_59 xi11_58 = xi10_59+a82*xi8_43-a79*xi8_59 xr11_59 = xr10_59+a81*xr8_42+a78*xr8_58 xi11_59 = xi10_59+a81*xi8_42+a78*xi8_58 xr9_44 = xr8_44+xr8_45 xi9_44 = xi8_44+xi8_45 xr9_45 = xr8_60+xr8_61 xi9_45 = xi8_60+xi8_61 xr10_60 = a83*xr9_44-a86*xr9_45 xi10_60 = a83*xi9_44-a86*xi9_45 xr10_61 = a86*xr9_44+a83*xr9_45 xi10_61 = a86*xi9_44+a83*xi9_45 xr11_44 = xr10_60-a85*xr8_45-a88*xr8_61 xi11_44 = xi10_60-a85*xi8_45-a88*xi8_61 xr11_45 = xr10_60+a84*xr8_44-a87*xr8_60 xi11_45 = xi10_60+a84*xi8_44-a87*xi8_60 xr11_60 = xr10_61+a88*xr8_45-a85*xr8_61 xi11_60 = xi10_61+a88*xi8_45-a85*xi8_61 xr11_61 = xr10_61+a87*xr8_44+a84*xr8_60 xi11_61 = xi10_61+a87*xi8_44+a84*xi8_60 xr9_46 = xr8_46+xr8_47 xi9_46 = xi8_46+xi8_47 xr9_47 = xr8_62+xr8_63 xi9_47 = xi8_62+xi8_63 xr10_62 = a89*xr9_46-a92*xr9_47 xi10_62 = a89*xi9_46-a92*xi9_47 xr10_63 = a92*xr9_46+a89*xr9_47 xi10_63 = a92*xi9_46+a89*xi9_47 xr11_46 = xr10_62-a91*xr8_47-a94*xr8_63 xi11_46 = xi10_62-a91*xi8_47-a94*xi8_63 xr11_47 = xr10_62+a90*xr8_46-a93*xr8_62 xi11_47 = xi10_62+a90*xi8_46-a93*xi8_62 xr11_62 = xr10_63+a94*xr8_47-a91*xr8_63 xi11_62 = xi10_63+a94*xi8_47-a91*xi8_63 xr11_63 = xr10_63+a93*xr8_46+a90*xr8_62 xi11_63 = xi10_63+a93*xi8_46+a90*xi8_62 xr12_32 = xr11_32+xr11_46 xi12_32 = xi11_32+xi11_46 xr12_36 = xr11_34+xr11_44 xi12_36 = xi11_34+xi11_44 xr12_40 = xr11_36+xr11_42 xi12_40 = xi11_36+xi11_42 xr12_44 = xr11_38+xr11_40 xi12_44 = xi11_38+xi11_40 xr12_34 = xr11_32-xr11_46 xi12_34 = xi11_32-xi11_46 xr12_38 = xr11_34-xr11_44 xi12_38 = xi11_34-xi11_44 xr12_42 = xr11_36-xr11_42 xi12_42 = xi11_36-xi11_42 xr12_46 = xr11_38-xr11_40 xi12_46 = xi11_38-xi11_40 xr12_50 = xr11_48+xr11_62 xi12_50 = xi11_48+xi11_62 xr12_54 = xr11_50+xr11_60 xi12_54 = xi11_50+xi11_60 xr12_58 = xr11_52+xr11_58 xi12_58 = xi11_52+xi11_58 xr12_62 = xr11_54+xr11_56 xi12_62 = xi11_54+xi11_56 xr12_48 = xr11_48-xr11_62 xi12_48 = xi11_48-xi11_62 xr12_52 = xr11_50-xr11_60 xi12_52 = xi11_50-xi11_60 xr12_56 = xr11_52-xr11_58 xi12_56 = xi11_52-xi11_58 xr12_60 = xr11_54-xr11_56 xi12_60 = xi11_54-xi11_56 xr13_32 = xr12_32+xr12_44 xi13_32 = xi12_32+xi12_44 xr13_40 = xr12_36+xr12_40 xi13_40 = xi12_36+xi12_40 xr13_36 = xr12_32-xr12_44 xi13_36 = xi12_32-xi12_44 xr13_44 = xr12_36-xr12_40 xi13_44 = xi12_36-xi12_40 xr13_52 = xr12_48+xr12_60 xi13_52 = xi12_48+xi12_60 xr13_60 = xr12_52+xr12_56 xi13_60 = xi12_52+xi12_56 xr13_48 = xr12_48-xr12_60 xi13_48 = xi12_48-xi12_60 xr13_56 = xr12_52-xr12_56 xi13_56 = xi12_52-xi12_56 xr14_32 = d11*xr13_32 xi14_32 = d11*xi13_32 xr14_40 = d12*xr13_40 xi14_40 = d12*xi13_40 xr14_48 = d11*xr13_48 xi14_48 = d11*xi13_48 xr14_56 = d12*xr13_56 xi14_56 = d12*xi13_56 xr15_32 = d1*(xr14_32-xr14_40) xi15_32 = d1*(xi14_32-xi14_40) xr15_40 = d1*(xr14_48+xr14_56) xi15_40 = d1*(xi14_48+xi14_56) xr16_32 = xr14_32+xr14_40 xi16_32 = xi14_32+xi14_40 xr16_40 = xr15_40+xr15_32 xi16_40 = xi15_40+xi15_32 xr16_48 = xr14_48-xr14_56 xi16_48 = xi14_48-xi14_56 xr16_56 = xr15_40-xr15_32 xi16_56 = xi15_40-xi15_32 xr14_52 = d8*xr13_52+d10*xr13_60 xi14_52 = d8*xi13_52+d10*xi13_60 xr14_60 = d7*xr13_52-d9*xr13_60 xi14_60 = d7*xi13_52-d9*xi13_60 xr14_36 = d7*xr13_36+d9*xr13_44 xi14_36 = d7*xi13_36+d9*xi13_44 xr14_44 = d10*xr13_44-d8*xr13_36 xi14_44 = d10*xi13_44-d8*xi13_36 xr17_36 = xr14_52+xr14_36 xi17_36 = xi14_52+xi14_36 xr17_52 = xr14_60+xr14_44 xi17_52 = xi14_60+xi14_44 xr17_60 = xr14_52-xr14_36 xi17_60 = xi14_52-xi14_36 xr17_44 = xr14_60-xr14_44 xi17_44 = xi14_60-xi14_44 xr13_50 = d5*xr12_50+xr12_62 xi13_50 = d5*xi12_50+xi12_62 xr13_54 = d6*xr12_54+xr12_58 xi13_54 = d6*xi12_54+xi12_58 xr13_58 = xr12_50-d5*xr12_62 xi13_58 = xi12_50-d5*xi12_62 xr13_62 = xr12_54-d6*xr12_58 xi13_62 = xi12_54-d6*xi12_58 xr14_50 = d1*(xr13_50-xr13_54) xi14_50 = d1*(xi13_50-xi13_54) xr14_54 = d1*(xr13_58+xr13_62) xi14_54 = d1*(xi13_58+xi13_62) xr15_50 = xr13_50+xr13_54 xi15_50 = xi13_50+xi13_54 xr15_54 = xr14_54+xr14_50 xi15_54 = xi14_54+xi14_50 xr15_58 = xr13_58-xr13_62 xi15_58 = xi13_58-xi13_62 xr15_62 = xr14_54-xr14_50 xi15_62 = xi14_54-xi14_50 xr13_34 = xr12_34+d5*xr12_46 xi13_34 = xi12_34+d5*xi12_46 xr13_38 = xr12_38+d6*xr12_42 xi13_38 = xi12_38+d6*xi12_42 xr13_42 = xr12_46-d5*xr12_34 xi13_42 = xi12_46-d5*xi12_34 xr13_46 = xr12_42-d6*xr12_38 xi13_46 = xi12_42-d6*xi12_38 xr14_34 = d1*(xr13_34-xr13_38) xi14_34 = d1*(xi13_34-xi13_38) xr14_38 = d1*(xr13_42+xr13_46) xi14_38 = d1*(xi13_42+xi13_46) xr15_34 = xr13_34+xr13_38 xi15_34 = xi13_34+xi13_38 xr15_38 = xr14_38+xr14_34 xi15_38 = xi14_38+xi14_34 xr15_42 = xr13_42-xr13_46 xi15_42 = xi13_42-xi13_46 xr15_46 = xr14_38-xr14_34 xi15_46 = xi14_38-xi14_34 xr18_34 = xr15_50+xr15_34 xi18_34 = xi15_50+xi15_34 xr18_42 = xr15_54+xr15_38 xi18_42 = xi15_54+xi15_38 xr18_50 = xr15_58+xr15_42 xi18_50 = xi15_58+xi15_42 xr18_58 = xr15_62+xr15_46 xi18_58 = xi15_62+xi15_46 xr18_62 = xr15_50-xr15_34 xi18_62 = xi15_50-xi15_34 xr18_54 = xr15_54-xr15_38 xi18_54 = xi15_54-xi15_38 xr18_46 = xr15_58-xr15_42 xi18_46 = xi15_58-xi15_42 xr18_38 = xr15_62-xr15_46 xi18_38 = xi15_62-xi15_46 xr12_33 = xr11_33+xr11_47 xi12_33 = xi11_33+xi11_47 xr12_37 = xr11_35+xr11_45 xi12_37 = xi11_35+xi11_45 xr12_41 = xr11_37+xr11_43 xi12_41 = xi11_37+xi11_43 xr12_45 = xr11_39+xr11_41 xi12_45 = xi11_39+xi11_41 xr12_35 = xr11_33-xr11_47 xi12_35 = xi11_33-xi11_47 xr12_39 = xr11_35-xr11_45 xi12_39 = xi11_35-xi11_45 xr12_43 = xr11_37-xr11_43 xi12_43 = xi11_37-xi11_43 xr12_47 = xr11_39-xr11_41 xi12_47 = xi11_39-xi11_41 xr12_51 = xr11_49+xr11_63 xi12_51 = xi11_49+xi11_63 xr12_55 = xr11_51+xr11_61 xi12_55 = xi11_51+xi11_61 xr12_59 = xr11_53+xr11_59 xi12_59 = xi11_53+xi11_59 xr12_63 = xr11_55+xr11_57 xi12_63 = xi11_55+xi11_57 xr12_49 = xr11_49-xr11_63 xi12_49 = xi11_49-xi11_63 xr12_53 = xr11_51-xr11_61 xi12_53 = xi11_51-xi11_61 xr12_57 = xr11_53-xr11_59 xi12_57 = xi11_53-xi11_59 xr12_61 = xr11_55-xr11_57 xi12_61 = xi11_55-xi11_57 xr13_33 = xr12_33+xr12_45 xi13_33 = xi12_33+xi12_45 xr13_41 = xr12_37+xr12_41 xi13_41 = xi12_37+xi12_41 xr13_37 = xr12_33-xr12_45 xi13_37 = xi12_33-xi12_45 xr13_45 = xr12_37-xr12_41 xi13_45 = xi12_37-xi12_41 xr13_53 = xr12_49+xr12_61 xi13_53 = xi12_49+xi12_61 xr13_61 = xr12_53+xr12_57 xi13_61 = xi12_53+xi12_57 xr13_49 = xr12_49-xr12_61 xi13_49 = xi12_49-xi12_61 xr13_57 = xr12_53-xr12_57 xi13_57 = xi12_53-xi12_57 xr14_33 = d11*xr13_33 xi14_33 = d11*xi13_33 xr14_41 = d12*xr13_41 xi14_41 = d12*xi13_41 xr14_49 = d11*xr13_49 xi14_49 = d11*xi13_49 xr14_57 = d12*xr13_57 xi14_57 = d12*xi13_57 xr15_33 = d1*(xr14_33-xr14_41) xi15_33 = d1*(xi14_33-xi14_41) xr15_41 = d1*(xr14_49+xr14_57) xi15_41 = d1*(xi14_49+xi14_57) xr16_33 = xr14_33+xr14_41 xi16_33 = xi14_33+xi14_41 xr16_41 = xr15_41+xr15_33 xi16_41 = xi15_41+xi15_33 xr16_49 = xr14_49-xr14_57 xi16_49 = xi14_49-xi14_57 xr16_57 = xr15_41-xr15_33 xi16_57 = xi15_41-xi15_33 xr14_53 = d8*xr13_53+d10*xr13_61 xi14_53 = d8*xi13_53+d10*xi13_61 xr14_61 = d7*xr13_53-d9*xr13_61 xi14_61 = d7*xi13_53-d9*xi13_61 xr14_37 = d7*xr13_37+d9*xr13_45 xi14_37 = d7*xi13_37+d9*xi13_45 xr14_45 = d10*xr13_45-d8*xr13_37 xi14_45 = d10*xi13_45-d8*xi13_37 xr17_37 = xr14_53+xr14_37 xi17_37 = xi14_53+xi14_37 xr17_53 = xr14_61+xr14_45 xi17_53 = xi14_61+xi14_45 xr17_61 = xr14_53-xr14_37 xi17_61 = xi14_53-xi14_37 xr17_45 = xr14_61-xr14_45 xi17_45 = xi14_61-xi14_45 xr13_51 = d5*xr12_51+xr12_63 xi13_51 = d5*xi12_51+xi12_63 xr13_55 = d6*xr12_55+xr12_59 xi13_55 = d6*xi12_55+xi12_59 xr13_59 = xr12_51-d5*xr12_63 xi13_59 = xi12_51-d5*xi12_63 xr13_63 = xr12_55-d6*xr12_59 xi13_63 = xi12_55-d6*xi12_59 xr14_51 = d1*(xr13_51-xr13_55) xi14_51 = d1*(xi13_51-xi13_55) xr14_55 = d1*(xr13_59+xr13_63) xi14_55 = d1*(xi13_59+xi13_63) xr15_51 = xr13_51+xr13_55 xi15_51 = xi13_51+xi13_55 xr15_55 = xr14_55+xr14_51 xi15_55 = xi14_55+xi14_51 xr15_59 = xr13_59-xr13_63 xi15_59 = xi13_59-xi13_63 xr15_63 = xr14_55-xr14_51 xi15_63 = xi14_55-xi14_51 xr13_35 = xr12_35+d5*xr12_47 xi13_35 = xi12_35+d5*xi12_47 xr13_39 = xr12_39+d6*xr12_43 xi13_39 = xi12_39+d6*xi12_43 xr13_43 = xr12_47-d5*xr12_35 xi13_43 = xi12_47-d5*xi12_35 xr13_47 = xr12_43-d6*xr12_39 xi13_47 = xi12_43-d6*xi12_39 xr14_35 = d1*(xr13_35-xr13_39) xi14_35 = d1*(xi13_35-xi13_39) xr14_39 = d1*(xr13_43+xr13_47) xi14_39 = d1*(xi13_43+xi13_47) xr15_35 = xr13_35+xr13_39 xi15_35 = xi13_35+xi13_39 xr15_39 = xr14_39+xr14_35 xi15_39 = xi14_39+xi14_35 xr15_43 = xr13_43-xr13_47 xi15_43 = xi13_43-xi13_47 xr15_47 = xr14_39-xr14_35 xi15_47 = xi14_39-xi14_35 xr18_35 = xr15_51+xr15_35 xi18_35 = xi15_51+xi15_35 xr18_43 = xr15_55+xr15_39 xi18_43 = xi15_55+xi15_39 xr18_51 = xr15_59+xr15_43 xi18_51 = xi15_59+xi15_43 xr18_59 = xr15_63+xr15_47 xi18_59 = xi15_63+xi15_47 xr18_63 = xr15_51-xr15_35 xi18_63 = xi15_51-xi15_35 xr18_55 = xr15_55-xr15_39 xi18_55 = xi15_55-xi15_39 xr18_47 = xr15_59-xr15_43 xi18_47 = xi15_59-xi15_43 xr18_39 = xr15_63-xr15_47 xi18_39 = xi15_63-xi15_47 xr19_0 = xr17_0+xr16_32 xi19_0 = xi17_0+xi16_32 xr19_1 = xr17_1+xr16_33 xi19_1 = xi17_1+xi16_33 xr19_2 = xr17_2+xr18_34 xi19_2 = xi17_2+xi18_34 xr19_3 = xr17_3+xr18_35 xi19_3 = xi17_3+xi18_35 xr19_4 = xr17_4+xr17_36 xi19_4 = xi17_4+xi17_36 xr19_5 = xr17_5+xr17_37 xi19_5 = xi17_5+xi17_37 xr19_6 = xr17_6+xr18_38 xi19_6 = xi17_6+xi18_38 xr19_7 = xr17_7+xr18_39 xi19_7 = xi17_7+xi18_39 xr19_8 = xr17_8+xr16_40 xi19_8 = xi17_8+xi16_40 xr19_9 = xr17_9+xr16_41 xi19_9 = xi17_9+xi16_41 xr19_10 = xr17_10+xr18_42 xi19_10 = xi17_10+xi18_42 xr19_11 = xr17_11+xr18_43 xi19_11 = xi17_11+xi18_43 xr19_12 = xr17_12+xr17_44 xi19_12 = xi17_12+xi17_44 xr19_13 = xr17_13+xr17_45 xi19_13 = xi17_13+xi17_45 xr19_14 = xr17_14+xr18_46 xi19_14 = xi17_14+xi18_46 xr19_15 = xr17_15+xr18_47 xi19_15 = xi17_15+xi18_47 xr19_16 = xr17_16+xr16_48 xi19_16 = xi17_16+xi16_48 xr19_17 = xr17_17+xr16_49 xi19_17 = xi17_17+xi16_49 xr19_18 = xr17_18+xr18_50 xi19_18 = xi17_18+xi18_50 xr19_19 = xr17_19+xr18_51 xi19_19 = xi17_19+xi18_51 xr19_20 = xr17_20+xr17_52 xi19_20 = xi17_20+xi17_52 xr19_21 = xr17_21+xr17_53 xi19_21 = xi17_21+xi17_53 xr19_22 = xr17_22+xr18_54 xi19_22 = xi17_22+xi18_54 xr19_23 = xr17_23+xr18_55 xi19_23 = xi17_23+xi18_55 xr19_24 = xr17_24+xr16_56 xi19_24 = xi17_24+xi16_56 xr19_25 = xr17_25+xr16_57 xi19_25 = xi17_25+xi16_57 xr19_26 = xr17_26+xr18_58 xi19_26 = xi17_26+xi18_58 xr19_27 = xr17_27+xr18_59 xi19_27 = xi17_27+xi18_59 xr19_28 = xr17_28+xr17_60 xi19_28 = xi17_28+xi17_60 xr19_29 = xr17_29+xr17_61 xi19_29 = xi17_29+xi17_61 xr19_30 = xr17_30+xr18_62 xi19_30 = xi17_30+xi18_62 xr19_31 = xr17_31+xr18_63 xi19_31 = xi17_31+xi18_63 xr19_32 = xr17_0-xr16_32 xi19_32 = xi17_0-xi16_32 xr19_33 = xr17_1-xr16_33 xi19_33 = xi17_1-xi16_33 xr19_34 = xr17_2-xr18_34 xi19_34 = xi17_2-xi18_34 xr19_35 = xr17_3-xr18_35 xi19_35 = xi17_3-xi18_35 xr19_36 = xr17_4-xr17_36 xi19_36 = xi17_4-xi17_36 xr19_37 = xr17_5-xr17_37 xi19_37 = xi17_5-xi17_37 xr19_38 = xr17_6-xr18_38 xi19_38 = xi17_6-xi18_38 xr19_39 = xr17_7-xr18_39 xi19_39 = xi17_7-xi18_39 xr19_40 = xr17_8-xr16_40 xi19_40 = xi17_8-xi16_40 xr19_41 = xr17_9-xr16_41 xi19_41 = xi17_9-xi16_41 xr19_42 = xr17_10-xr18_42 xi19_42 = xi17_10-xi18_42 xr19_43 = xr17_11-xr18_43 xi19_43 = xi17_11-xi18_43 xr19_44 = xr17_12-xr17_44 xi19_44 = xi17_12-xi17_44 xr19_45 = xr17_13-xr17_45 xi19_45 = xi17_13-xi17_45 xr19_46 = xr17_14-xr18_46 xi19_46 = xi17_14-xi18_46 xr19_47 = xr17_15-xr18_47 xi19_47 = xi17_15-xi18_47 xr19_48 = xr17_16-xr16_48 xi19_48 = xi17_16-xi16_48 xr19_49 = xr17_17-xr16_49 xi19_49 = xi17_17-xi16_49 xr19_50 = xr17_18-xr18_50 xi19_50 = xi17_18-xi18_50 xr19_51 = xr17_19-xr18_51 xi19_51 = xi17_19-xi18_51 xr19_52 = xr17_20-xr17_52 xi19_52 = xi17_20-xi17_52 xr19_53 = xr17_21-xr17_53 xi19_53 = xi17_21-xi17_53 xr19_54 = xr17_22-xr18_54 xi19_54 = xi17_22-xi18_54 xr19_55 = xr17_23-xr18_55 xi19_55 = xi17_23-xi18_55 xr19_56 = xr17_24-xr16_56 xi19_56 = xi17_24-xi16_56 xr19_57 = xr17_25-xr16_57 xi19_57 = xi17_25-xi16_57 xr19_58 = xr17_26-xr18_58 xi19_58 = xi17_26-xi18_58 xr19_59 = xr17_27-xr18_59 xi19_59 = xi17_27-xi18_59 xr19_60 = xr17_28-xr17_60 xi19_60 = xi17_28-xi17_60 xr19_61 = xr17_29-xr17_61 xi19_61 = xi17_29-xi17_61 xr19_62 = xr17_30-xr18_62 xi19_62 = xi17_30-xi18_62 xr19_63 = xr17_31-xr18_63 xi19_63 = xi17_31-xi18_63 xr2_64 = xr1_0-xr1_64 xi2_64 = xi1_0-xi1_64 xr2_65 = xr1_1-xr1_65 xi2_65 = xi1_1-xi1_65 xr2_66 = xr1_2-xr1_66 xi2_66 = xi1_2-xi1_66 xr2_67 = xr1_3-xr1_67 xi2_67 = xi1_3-xi1_67 xr2_68 = xr1_4-xr1_68 xi2_68 = xi1_4-xi1_68 xr2_69 = xr1_5-xr1_69 xi2_69 = xi1_5-xi1_69 xr2_70 = xr1_6-xr1_70 xi2_70 = xi1_6-xi1_70 xr2_71 = xr1_7-xr1_71 xi2_71 = xi1_7-xi1_71 xr2_72 = xr1_8-xr1_72 xi2_72 = xi1_8-xi1_72 xr2_73 = xr1_9-xr1_73 xi2_73 = xi1_9-xi1_73 xr2_74 = xr1_10-xr1_74 xi2_74 = xi1_10-xi1_74 xr2_75 = xr1_11-xr1_75 xi2_75 = xi1_11-xi1_75 xr2_76 = xr1_12-xr1_76 xi2_76 = xi1_12-xi1_76 xr2_77 = xr1_13-xr1_77 xi2_77 = xi1_13-xi1_77 xr2_78 = xr1_14-xr1_78 xi2_78 = xi1_14-xi1_78 xr2_79 = xr1_15-xr1_79 xi2_79 = xi1_15-xi1_79 xr2_80 = xr1_16-xr1_80 xi2_80 = xi1_16-xi1_80 xr2_81 = xr1_17-xr1_81 xi2_81 = xi1_17-xi1_81 xr2_82 = xr1_18-xr1_82 xi2_82 = xi1_18-xi1_82 xr2_83 = xr1_19-xr1_83 xi2_83 = xi1_19-xi1_83 xr2_84 = xr1_20-xr1_84 xi2_84 = xi1_20-xi1_84 xr2_85 = xr1_21-xr1_85 xi2_85 = xi1_21-xi1_85 xr2_86 = xr1_22-xr1_86 xi2_86 = xi1_22-xi1_86 xr2_87 = xr1_23-xr1_87 xi2_87 = xi1_23-xi1_87 xr2_88 = xr1_24-xr1_88 xi2_88 = xi1_24-xi1_88 xr2_89 = xr1_25-xr1_89 xi2_89 = xi1_25-xi1_89 xr2_90 = xr1_26-xr1_90 xi2_90 = xi1_26-xi1_90 xr2_91 = xr1_27-xr1_91 xi2_91 = xi1_27-xi1_91 xr2_92 = xr1_28-xr1_92 xi2_92 = xi1_28-xi1_92 xr2_93 = xr1_29-xr1_93 xi2_93 = xi1_29-xi1_93 xr2_94 = xr1_30-xr1_94 xi2_94 = xi1_30-xi1_94 xr2_95 = xr1_31-xr1_95 xi2_95 = xi1_31-xi1_95 xr2_96 = xr1_32-xr1_96 xi2_96 = xi1_32-xi1_96 xr2_97 = xr1_33-xr1_97 xi2_97 = xi1_33-xi1_97 xr2_98 = xr1_34-xr1_98 xi2_98 = xi1_34-xi1_98 xr2_99 = xr1_35-xr1_99 xi2_99 = xi1_35-xi1_99 xr2_100 = xr1_36-xr1_100 xi2_100 = xi1_36-xi1_100 xr2_101 = xr1_37-xr1_101 xi2_101 = xi1_37-xi1_101 xr2_102 = xr1_38-xr1_102 xi2_102 = xi1_38-xi1_102 xr2_103 = xr1_39-xr1_103 xi2_103 = xi1_39-xi1_103 xr2_104 = xr1_40-xr1_104 xi2_104 = xi1_40-xi1_104 xr2_105 = xr1_41-xr1_105 xi2_105 = xi1_41-xi1_105 xr2_106 = xr1_42-xr1_106 xi2_106 = xi1_42-xi1_106 xr2_107 = xr1_43-xr1_107 xi2_107 = xi1_43-xi1_107 xr2_108 = xr1_44-xr1_108 xi2_108 = xi1_44-xi1_108 xr2_109 = xr1_45-xr1_109 xi2_109 = xi1_45-xi1_109 xr2_110 = xr1_46-xr1_110 xi2_110 = xi1_46-xi1_110 xr2_111 = xr1_47-xr1_111 xi2_111 = xi1_47-xi1_111 xr2_112 = xr1_48-xr1_112 xi2_112 = xi1_48-xi1_112 xr2_113 = xr1_49-xr1_113 xi2_113 = xi1_49-xi1_113 xr2_114 = xr1_50-xr1_114 xi2_114 = xi1_50-xi1_114 xr2_115 = xr1_51-xr1_115 xi2_115 = xi1_51-xi1_115 xr2_116 = xr1_52-xr1_116 xi2_116 = xi1_52-xi1_116 xr2_117 = xr1_53-xr1_117 xi2_117 = xi1_53-xi1_117 xr2_118 = xr1_54-xr1_118 xi2_118 = xi1_54-xi1_118 xr2_119 = xr1_55-xr1_119 xi2_119 = xi1_55-xi1_119 xr2_120 = xr1_56-xr1_120 xi2_120 = xi1_56-xi1_120 xr2_121 = xr1_57-xr1_121 xi2_121 = xi1_57-xi1_121 xr2_122 = xr1_58-xr1_122 xi2_122 = xi1_58-xi1_122 xr2_123 = xr1_59-xr1_123 xi2_123 = xi1_59-xi1_123 xr2_124 = xr1_60-xr1_124 xi2_124 = xi1_60-xi1_124 xr2_125 = xr1_61-xr1_125 xi2_125 = xi1_61-xi1_125 xr2_126 = xr1_62-xr1_126 xi2_126 = xi1_62-xi1_126 xr2_127 = xr1_63-xr1_127 xi2_127 = xi1_63-xi1_127 xr3_66 = xr2_66-xr2_126 xi3_66 = xi2_66-xi2_126 xr3_70 = xr2_74-xr2_118 xi3_70 = xi2_74-xi2_118 xr3_74 = xr2_82-xr2_110 xi3_74 = xi2_82-xi2_110 xr3_78 = xr2_90-xr2_102 xi3_78 = xi2_90-xi2_102 xr3_82 = xr2_98-xr2_94 xi3_82 = xi2_98-xi2_94 xr3_86 = xr2_106-xr2_86 xi3_86 = xi2_106-xi2_86 xr3_90 = xr2_114-xr2_78 xi3_90 = xi2_114-xi2_78 xr3_94 = xr2_122-xr2_70 xi3_94 = xi2_122-xi2_70 xr4_70 = xr3_70-xr3_94 xi4_70 = xi3_70-xi3_94 xr4_78 = xr3_86-xr3_78 xi4_78 = xi3_86-xi3_78 xr5_70 = xr4_70-d2*xr4_78 xi5_70 = xi4_70-d2*xi4_78 xr5_78 = d2*xr4_70+xr4_78 xi5_78 = d2*xi4_70+xi4_78 xr4_86 = xr3_70+xr3_94 xi4_86 = xi3_70+xi3_94 xr4_94 = xr3_86+xr3_78 xi4_94 = xi3_86+xi3_78 xr5_86 = d2*xr4_86+xr4_94 xi5_86 = d2*xi4_86+xi4_94 xr5_94 = xr4_86-d2*xr4_94 xi5_94 = xi4_86-d2*xi4_94 xr4_74 = xr3_74-xr3_90 xi4_74 = xi3_74-xi3_90 xr5_74 = d3*xr4_74 xi5_74 = d3*xi4_74 xr4_90 = xr3_74+xr3_90 xi4_90 = xi3_74+xi3_90 xr5_90 = d3*xr4_90 xi5_90 = d3*xi4_90 xr4_66 = d4*xr3_66 xi4_66 = d4*xi3_66 xr4_82 = d4*xr3_82 xi4_82 = d4*xi3_82 xr6_66 = xr4_66+xr5_74 xi6_66 = xi4_66+xi5_74 xr6_74 = xr4_66-xr5_74 xi6_74 = xi4_66-xi5_74 xr6_82 = xr5_90+xr4_82 xi6_82 = xi5_90+xi4_82 xr6_90 = xr5_90-xr4_82 xi6_90 = xi5_90-xi4_82 xr7_66 = xr6_66+xr5_70 xi7_66 = xi6_66+xi5_70 xr7_70 = xr6_74+xr5_78 xi7_70 = xi6_74+xi5_78 xr7_74 = xr6_74-xr5_78 xi7_74 = xi6_74-xi5_78 xr7_78 = xr6_66-xr5_70 xi7_78 = xi6_66-xi5_70 xr7_82 = xr5_86+xr6_82 xi7_82 = xi5_86+xi6_82 xr7_86 = xr5_94+xr6_90 xi7_86 = xi5_94+xi6_90 xr7_90 = xr5_94-xr6_90 xi7_90 = xi5_94-xi6_90 xr7_94 = xr5_86-xr6_82 xi7_94 = xi5_86-xi6_82 xr8_66 = xr7_66-d13*xr7_82 xi8_66 = xi7_66-d13*xi7_82 xr8_70 = xr7_70-d14*xr7_86 xi8_70 = xi7_70-d14*xi7_86 xr8_74 = xr7_74-d15*xr7_90 xi8_74 = xi7_74-d15*xi7_90 xr8_78 = xr7_78-d16*xr7_94 xi8_78 = xi7_78-d16*xi7_94 xr8_82 = d16*xr7_78+xr7_94 xi8_82 = d16*xi7_78+xi7_94 xr8_86 = d15*xr7_74+xr7_90 xi8_86 = d15*xi7_74+xi7_90 xr8_90 = d14*xr7_70+xr7_86 xi8_90 = d14*xi7_70+xi7_86 xr8_94 = d13*xr7_66+xr7_82 xi8_94 = d13*xi7_66+xi7_82 xr3_98 = xr2_66+xr2_126 xi3_98 = xi2_66+xi2_126 xr3_102 = xr2_74+xr2_118 xi3_102 = xi2_74+xi2_118 xr3_106 = xr2_82+xr2_110 xi3_106 = xi2_82+xi2_110 xr3_110 = xr2_90+xr2_102 xi3_110 = xi2_90+xi2_102 xr3_114 = xr2_98+xr2_94 xi3_114 = xi2_98+xi2_94 xr3_118 = xr2_106+xr2_86 xi3_118 = xi2_106+xi2_86 xr3_122 = xr2_114+xr2_78 xi3_122 = xi2_114+xi2_78 xr3_126 = xr2_122+xr2_70 xi3_126 = xi2_122+xi2_70 xr4_102 = xr3_102-xr3_126 xi4_102 = xi3_102-xi3_126 xr4_110 = xr3_118-xr3_110 xi4_110 = xi3_118-xi3_110 xr5_102 = xr4_102-d2*xr4_110 xi5_102 = xi4_102-d2*xi4_110 xr5_110 = d2*xr4_102+xr4_110 xi5_110 = d2*xi4_102+xi4_110 xr4_118 = xr3_102+xr3_126 xi4_118 = xi3_102+xi3_126 xr4_126 = xr3_118+xr3_110 xi4_126 = xi3_118+xi3_110 xr5_118 = d2*xr4_118+xr4_126 xi5_118 = d2*xi4_118+xi4_126 xr5_126 = xr4_118-d2*xr4_126 xi5_126 = xi4_118-d2*xi4_126 xr4_106 = xr3_106-xr3_122 xi4_106 = xi3_106-xi3_122 xr5_106 = d3*xr4_106 xi5_106 = d3*xi4_106 xr4_122 = xr3_106+xr3_122 xi4_122 = xi3_106+xi3_122 xr5_122 = d3*xr4_122 xi5_122 = d3*xi4_122 xr4_98 = d4*xr3_98 xi4_98 = d4*xi3_98 xr4_114 = d4*xr3_114 xi4_114 = d4*xi3_114 xr6_98 = xr4_98+xr5_106 xi6_98 = xi4_98+xi5_106 xr6_106 = xr4_98-xr5_106 xi6_106 = xi4_98-xi5_106 xr6_114 = xr5_122+xr4_114 xi6_114 = xi5_122+xi4_114 xr6_122 = xr5_122-xr4_114 xi6_122 = xi5_122-xi4_114 xr7_98 = xr6_98+xr5_102 xi7_98 = xi6_98+xi5_102 xr7_102 = xr6_106+xr5_110 xi7_102 = xi6_106+xi5_110 xr7_106 = xr6_106-xr5_110 xi7_106 = xi6_106-xi5_110 xr7_110 = xr6_98-xr5_102 xi7_110 = xi6_98-xi5_102 xr7_114 = xr5_118+xr6_114 xi7_114 = xi5_118+xi6_114 xr7_118 = xr5_126+xr6_122 xi7_118 = xi5_126+xi6_122 xr7_122 = xr5_126-xr6_122 xi7_122 = xi5_126-xi6_122 xr7_126 = xr5_118-xr6_114 xi7_126 = xi5_118-xi6_114 xr8_98 = d13*xr7_98+xr7_114 xi8_98 = d13*xi7_98+xi7_114 xr8_102 = d14*xr7_102+xr7_118 xi8_102 = d14*xi7_102+xi7_118 xr8_106 = d15*xr7_106+xr7_122 xi8_106 = d15*xi7_106+xi7_122 xr8_110 = d16*xr7_110+xr7_126 xi8_110 = d16*xi7_110+xi7_126 xr8_114 = xr7_110-d16*xr7_126 xi8_114 = xi7_110-d16*xi7_126 xr8_118 = xr7_106-d15*xr7_122 xi8_118 = xi7_106-d15*xi7_122 xr8_122 = xr7_102-d14*xr7_118 xi8_122 = xi7_102-d14*xi7_118 xr8_126 = xr7_98-d13*xr7_114 xi8_126 = xi7_98-d13*xi7_114 xr3_68 = xr2_68-xr2_124 xi3_68 = xi2_68-xi2_124 xr3_76 = xr2_84-xr2_108 xi3_76 = xi2_84-xi2_108 xr3_84 = xr2_100-xr2_92 xi3_84 = xi2_100-xi2_92 xr3_92 = xr2_116-xr2_76 xi3_92 = xi2_116-xi2_76 xr4_68 = d1*(xr3_76-xr3_92) xi4_68 = d1*(xi3_76-xi3_92) xr4_76 = d1*(xr3_76+xr3_92) xi4_76 = d1*(xi3_76+xi3_92) xr5_68 = xr3_68+xr4_68 xi5_68 = xi3_68+xi4_68 xr5_76 = xr3_68-xr4_68 xi5_76 = xi3_68-xi4_68 xr5_84 = xr4_76+xr3_84 xi5_84 = xi4_76+xi3_84 xr5_92 = xr4_76-xr3_84 xi5_92 = xi4_76-xi3_84 xr6_68 = d17*xr5_68-d18*xr5_84 xi6_68 = d17*xi5_68-d18*xi5_84 xr6_76 = d19*xr5_76-d20*xr5_92 xi6_76 = d19*xi5_76-d20*xi5_92 xr6_84 = d21*xr5_76+d22*xr5_92 xi6_84 = d21*xi5_76+d22*xi5_92 xr6_92 = d23*xr5_68+d24*xr5_84 xi6_92 = d23*xi5_68+d24*xi5_84 xr3_100 = xr2_68+xr2_124 xi3_100 = xi2_68+xi2_124 xr3_108 = xr2_84+xr2_108 xi3_108 = xi2_84+xi2_108 xr3_116 = xr2_100+xr2_92 xi3_116 = xi2_100+xi2_92 xr3_124 = xr2_116+xr2_76 xi3_124 = xi2_116+xi2_76 xr4_100 = d1*(xr3_108-xr3_124) xi4_100 = d1*(xi3_108-xi3_124) xr4_108 = d1*(xr3_108+xr3_124) xi4_108 = d1*(xi3_108+xi3_124) xr5_100 = xr3_100+xr4_100 xi5_100 = xi3_100+xi4_100 xr5_108 = xr3_100-xr4_100 xi5_108 = xi3_100-xi4_100 xr5_116 = xr4_108+xr3_116 xi5_116 = xi4_108+xi3_116 xr5_124 = xr4_108-xr3_116 xi5_124 = xi4_108-xi3_116 xr6_100 = d18*xr5_100+d17*xr5_116 xi6_100 = d18*xi5_100+d17*xi5_116 xr6_108 = d20*xr5_108+d19*xr5_124 xi6_108 = d20*xi5_108+d19*xi5_124 xr6_116 = d22*xr5_108-d21*xr5_124 xi6_116 = d22*xi5_108-d21*xi5_124 xr6_124 = d24*xr5_100-d23*xr5_116 xi6_124 = d24*xi5_100-d23*xi5_116 xr3_72 = xr2_72-xr2_120 xi3_72 = xi2_72-xi2_120 xr3_88 = xr2_104-xr2_88 xi3_88 = xi2_104-xi2_88 xr4_72 = xr3_72-d2*xr3_88 xi4_72 = xi3_72-d2*xi3_88 xr4_88 = d2*xr3_72+xr3_88 xi4_88 = d2*xi3_72+xi3_88 xr3_104 = xr2_72+xr2_120 xi3_104 = xi2_72+xi2_120 xr3_120 = xr2_104+xr2_88 xi3_120 = xi2_104+xi2_88 xr4_104 = d2*xr3_104+xr3_120 xi4_104 = d2*xi3_104+xi3_120 xr4_120 = xr3_104-d2*xr3_120 xi4_120 = xi3_104-d2*xi3_120 xr3_80 = xr2_80-xr2_112 xi3_80 = xi2_80-xi2_112 xr4_80 = d3*xr3_80 xi4_80 = d3*xi3_80 xr3_112 = xr2_80+xr2_112 xi3_112 = xi2_80+xi2_112 xr4_112 = d3*xr3_112 xi4_112 = d3*xi3_112 xr3_64 = d4*xr2_64 xi3_64 = d4*xi2_64 xr3_96 = d4*xr2_96 xi3_96 = d4*xi2_96 xr5_64 = xr3_64+xr4_80 xi5_64 = xi3_64+xi4_80 xr5_80 = xr3_64-xr4_80 xi5_80 = xi3_64-xi4_80 xr5_96 = xr4_112+xr3_96 xi5_96 = xi4_112+xi3_96 xr5_112 = xr4_112-xr3_96 xi5_112 = xi4_112-xi3_96 xr6_64 = xr5_64+xr4_72 xi6_64 = xi5_64+xi4_72 xr6_72 = xr5_80+xr4_88 xi6_72 = xi5_80+xi4_88 xr6_80 = xr5_80-xr4_88 xi6_80 = xi5_80-xi4_88 xr6_88 = xr5_64-xr4_72 xi6_88 = xi5_64-xi4_72 xr6_96 = xr4_104+xr5_96 xi6_96 = xi4_104+xi5_96 xr6_104 = xr4_120+xr5_112 xi6_104 = xi4_120+xi5_112 xr6_112 = xr4_120-xr5_112 xi6_112 = xi4_120-xi5_112 xr6_120 = xr4_104-xr5_96 xi6_120 = xi4_104-xi5_96 xr7_64 = d25*xr6_64 xi7_64 = d25*xi6_64 xr7_72 = d26*xr6_72 xi7_72 = d26*xi6_72 xr7_80 = d27*xr6_80 xi7_80 = d27*xi6_80 xr7_88 = d28*xr6_88 xi7_88 = d28*xi6_88 xr7_96 = d25*xr6_96 xi7_96 = d25*xi6_96 xr7_104 = d26*xr6_104 xi7_104 = d26*xi6_104 xr7_112 = d27*xr6_112 xi7_112 = d27*xi6_112 xr7_120 = d28*xr6_120 xi7_120 = d28*xi6_120 xr8_64 = xr7_64+xr6_68 xi8_64 = xi7_64+xi6_68 xr8_68 = xr7_72+xr6_76 xi8_68 = xi7_72+xi6_76 xr8_72 = xr7_80+xr6_84 xi8_72 = xi7_80+xi6_84 xr8_76 = xr7_88+xr6_92 xi8_76 = xi7_88+xi6_92 xr8_80 = xr7_88-xr6_92 xi8_80 = xi7_88-xi6_92 xr8_84 = xr7_80-xr6_84 xi8_84 = xi7_80-xi6_84 xr8_88 = xr7_72-xr6_76 xi8_88 = xi7_72-xi6_76 xr8_92 = xr7_64-xr6_68 xi8_92 = xi7_64-xi6_68 xr8_96 = xr6_100+xr7_96 xi8_96 = xi6_100+xi7_96 xr8_100 = xr6_108+xr7_104 xi8_100 = xi6_108+xi7_104 xr8_104 = xr6_116+xr7_112 xi8_104 = xi6_116+xi7_112 xr8_108 = xr6_124+xr7_120 xi8_108 = xi6_124+xi7_120 xr8_112 = xr6_124-xr7_120 xi8_112 = xi6_124-xi7_120 xr8_116 = xr6_116-xr7_112 xi8_116 = xi6_116-xi7_112 xr8_120 = xr6_108-xr7_104 xi8_120 = xi6_108-xi7_104 xr8_124 = xr6_100-xr7_96 xi8_124 = xi6_100-xi7_96 xr9_64 = xr8_64+xr8_66 xi9_64 = xi8_64+xi8_66 xr9_66 = xr8_68+xr8_70 xi9_66 = xi8_68+xi8_70 xr9_68 = xr8_72+xr8_74 xi9_68 = xi8_72+xi8_74 xr9_70 = xr8_76+xr8_78 xi9_70 = xi8_76+xi8_78 xr9_72 = xr8_80+xr8_82 xi9_72 = xi8_80+xi8_82 xr9_74 = xr8_84+xr8_86 xi9_74 = xi8_84+xi8_86 xr9_76 = xr8_88+xr8_90 xi9_76 = xi8_88+xi8_90 xr9_78 = xr8_92+xr8_94 xi9_78 = xi8_92+xi8_94 xr9_80 = xr8_92-xr8_94 xi9_80 = xi8_92-xi8_94 xr9_82 = xr8_88-xr8_90 xi9_82 = xi8_88-xi8_90 xr9_84 = xr8_84-xr8_86 xi9_84 = xi8_84-xi8_86 xr9_86 = xr8_80-xr8_82 xi9_86 = xi8_80-xi8_82 xr9_88 = xr8_76-xr8_78 xi9_88 = xi8_76-xi8_78 xr9_90 = xr8_72-xr8_74 xi9_90 = xi8_72-xi8_74 xr9_92 = xr8_68-xr8_70 xi9_92 = xi8_68-xi8_70 xr9_94 = xr8_64-xr8_66 xi9_94 = xi8_64-xi8_66 xr9_96 = xr8_98+xr8_96 xi9_96 = xi8_98+xi8_96 xr9_98 = xr8_102+xr8_100 xi9_98 = xi8_102+xi8_100 xr9_100 = xr8_106+xr8_104 xi9_100 = xi8_106+xi8_104 xr9_102 = xr8_110+xr8_108 xi9_102 = xi8_110+xi8_108 xr9_104 = xr8_114+xr8_112 xi9_104 = xi8_114+xi8_112 xr9_106 = xr8_118+xr8_116 xi9_106 = xi8_118+xi8_116 xr9_108 = xr8_122+xr8_120 xi9_108 = xi8_122+xi8_120 xr9_110 = xr8_126+xr8_124 xi9_110 = xi8_126+xi8_124 xr9_112 = xr8_126-xr8_124 xi9_112 = xi8_126-xi8_124 xr9_114 = xr8_122-xr8_120 xi9_114 = xi8_122-xi8_120 xr9_116 = xr8_118-xr8_116 xi9_116 = xi8_118-xi8_116 xr9_118 = xr8_114-xr8_112 xi9_118 = xi8_114-xi8_112 xr9_120 = xr8_110-xr8_108 xi9_120 = xi8_110-xi8_108 xr9_122 = xr8_106-xr8_104 xi9_122 = xi8_106-xi8_104 xr9_124 = xr8_102-xr8_100 xi9_124 = xi8_102-xi8_100 xr9_126 = xr8_98-xr8_96 xi9_126 = xi8_98-xi8_96 xr3_67 = xr2_67-xr2_127 xi3_67 = xi2_67-xi2_127 xr3_71 = xr2_75-xr2_119 xi3_71 = xi2_75-xi2_119 xr3_75 = xr2_83-xr2_111 xi3_75 = xi2_83-xi2_111 xr3_79 = xr2_91-xr2_103 xi3_79 = xi2_91-xi2_103 xr3_83 = xr2_99-xr2_95 xi3_83 = xi2_99-xi2_95 xr3_87 = xr2_107-xr2_87 xi3_87 = xi2_107-xi2_87 xr3_91 = xr2_115-xr2_79 xi3_91 = xi2_115-xi2_79 xr3_95 = xr2_123-xr2_71 xi3_95 = xi2_123-xi2_71 xr4_71 = xr3_71-xr3_95 xi4_71 = xi3_71-xi3_95 xr4_79 = xr3_87-xr3_79 xi4_79 = xi3_87-xi3_79 xr5_71 = xr4_71-d2*xr4_79 xi5_71 = xi4_71-d2*xi4_79 xr5_79 = d2*xr4_71+xr4_79 xi5_79 = d2*xi4_71+xi4_79 xr4_87 = xr3_71+xr3_95 xi4_87 = xi3_71+xi3_95 xr4_95 = xr3_87+xr3_79 xi4_95 = xi3_87+xi3_79 xr5_87 = d2*xr4_87+xr4_95 xi5_87 = d2*xi4_87+xi4_95 xr5_95 = xr4_87-d2*xr4_95 xi5_95 = xi4_87-d2*xi4_95 xr4_75 = xr3_75-xr3_91 xi4_75 = xi3_75-xi3_91 xr5_75 = d3*xr4_75 xi5_75 = d3*xi4_75 xr4_91 = xr3_75+xr3_91 xi4_91 = xi3_75+xi3_91 xr5_91 = d3*xr4_91 xi5_91 = d3*xi4_91 xr4_67 = d4*xr3_67 xi4_67 = d4*xi3_67 xr4_83 = d4*xr3_83 xi4_83 = d4*xi3_83 xr6_67 = xr4_67+xr5_75 xi6_67 = xi4_67+xi5_75 xr6_75 = xr4_67-xr5_75 xi6_75 = xi4_67-xi5_75 xr6_83 = xr5_91+xr4_83 xi6_83 = xi5_91+xi4_83 xr6_91 = xr5_91-xr4_83 xi6_91 = xi5_91-xi4_83 xr7_67 = xr6_67+xr5_71 xi7_67 = xi6_67+xi5_71 xr7_71 = xr6_75+xr5_79 xi7_71 = xi6_75+xi5_79 xr7_75 = xr6_75-xr5_79 xi7_75 = xi6_75-xi5_79 xr7_79 = xr6_67-xr5_71 xi7_79 = xi6_67-xi5_71 xr7_83 = xr5_87+xr6_83 xi7_83 = xi5_87+xi6_83 xr7_87 = xr5_95+xr6_91 xi7_87 = xi5_95+xi6_91 xr7_91 = xr5_95-xr6_91 xi7_91 = xi5_95-xi6_91 xr7_95 = xr5_87-xr6_83 xi7_95 = xi5_87-xi6_83 xr8_67 = xr7_67-d13*xr7_83 xi8_67 = xi7_67-d13*xi7_83 xr8_71 = xr7_71-d14*xr7_87 xi8_71 = xi7_71-d14*xi7_87 xr8_75 = xr7_75-d15*xr7_91 xi8_75 = xi7_75-d15*xi7_91 xr8_79 = xr7_79-d16*xr7_95 xi8_79 = xi7_79-d16*xi7_95 xr8_83 = d16*xr7_79+xr7_95 xi8_83 = d16*xi7_79+xi7_95 xr8_87 = d15*xr7_75+xr7_91 xi8_87 = d15*xi7_75+xi7_91 xr8_91 = d14*xr7_71+xr7_87 xi8_91 = d14*xi7_71+xi7_87 xr8_95 = d13*xr7_67+xr7_83 xi8_95 = d13*xi7_67+xi7_83 xr3_99 = xr2_67+xr2_127 xi3_99 = xi2_67+xi2_127 xr3_103 = xr2_75+xr2_119 xi3_103 = xi2_75+xi2_119 xr3_107 = xr2_83+xr2_111 xi3_107 = xi2_83+xi2_111 xr3_111 = xr2_91+xr2_103 xi3_111 = xi2_91+xi2_103 xr3_115 = xr2_99+xr2_95 xi3_115 = xi2_99+xi2_95 xr3_119 = xr2_107+xr2_87 xi3_119 = xi2_107+xi2_87 xr3_123 = xr2_115+xr2_79 xi3_123 = xi2_115+xi2_79 xr3_127 = xr2_123+xr2_71 xi3_127 = xi2_123+xi2_71 xr4_103 = xr3_103-xr3_127 xi4_103 = xi3_103-xi3_127 xr4_111 = xr3_119-xr3_111 xi4_111 = xi3_119-xi3_111 xr5_103 = xr4_103-d2*xr4_111 xi5_103 = xi4_103-d2*xi4_111 xr5_111 = d2*xr4_103+xr4_111 xi5_111 = d2*xi4_103+xi4_111 xr4_119 = xr3_103+xr3_127 xi4_119 = xi3_103+xi3_127 xr4_127 = xr3_119+xr3_111 xi4_127 = xi3_119+xi3_111 xr5_119 = d2*xr4_119+xr4_127 xi5_119 = d2*xi4_119+xi4_127 xr5_127 = xr4_119-d2*xr4_127 xi5_127 = xi4_119-d2*xi4_127 xr4_107 = xr3_107-xr3_123 xi4_107 = xi3_107-xi3_123 xr5_107 = d3*xr4_107 xi5_107 = d3*xi4_107 xr4_123 = xr3_107+xr3_123 xi4_123 = xi3_107+xi3_123 xr5_123 = d3*xr4_123 xi5_123 = d3*xi4_123 xr4_99 = d4*xr3_99 xi4_99 = d4*xi3_99 xr4_115 = d4*xr3_115 xi4_115 = d4*xi3_115 xr6_99 = xr4_99+xr5_107 xi6_99 = xi4_99+xi5_107 xr6_107 = xr4_99-xr5_107 xi6_107 = xi4_99-xi5_107 xr6_115 = xr5_123+xr4_115 xi6_115 = xi5_123+xi4_115 xr6_123 = xr5_123-xr4_115 xi6_123 = xi5_123-xi4_115 xr7_99 = xr6_99+xr5_103 xi7_99 = xi6_99+xi5_103 xr7_103 = xr6_107+xr5_111 xi7_103 = xi6_107+xi5_111 xr7_107 = xr6_107-xr5_111 xi7_107 = xi6_107-xi5_111 xr7_111 = xr6_99-xr5_103 xi7_111 = xi6_99-xi5_103 xr7_115 = xr5_119+xr6_115 xi7_115 = xi5_119+xi6_115 xr7_119 = xr5_127+xr6_123 xi7_119 = xi5_127+xi6_123 xr7_123 = xr5_127-xr6_123 xi7_123 = xi5_127-xi6_123 xr7_127 = xr5_119-xr6_115 xi7_127 = xi5_119-xi6_115 xr8_99 = d13*xr7_99+xr7_115 xi8_99 = d13*xi7_99+xi7_115 xr8_103 = d14*xr7_103+xr7_119 xi8_103 = d14*xi7_103+xi7_119 xr8_107 = d15*xr7_107+xr7_123 xi8_107 = d15*xi7_107+xi7_123 xr8_111 = d16*xr7_111+xr7_127 xi8_111 = d16*xi7_111+xi7_127 xr8_115 = xr7_111-d16*xr7_127 xi8_115 = xi7_111-d16*xi7_127 xr8_119 = xr7_107-d15*xr7_123 xi8_119 = xi7_107-d15*xi7_123 xr8_123 = xr7_103-d14*xr7_119 xi8_123 = xi7_103-d14*xi7_119 xr8_127 = xr7_99-d13*xr7_115 xi8_127 = xi7_99-d13*xi7_115 xr3_69 = xr2_69-xr2_125 xi3_69 = xi2_69-xi2_125 xr3_77 = xr2_85-xr2_109 xi3_77 = xi2_85-xi2_109 xr3_85 = xr2_101-xr2_93 xi3_85 = xi2_101-xi2_93 xr3_93 = xr2_117-xr2_77 xi3_93 = xi2_117-xi2_77 xr4_69 = d1*(xr3_77-xr3_93) xi4_69 = d1*(xi3_77-xi3_93) xr4_77 = d1*(xr3_77+xr3_93) xi4_77 = d1*(xi3_77+xi3_93) xr5_69 = xr3_69+xr4_69 xi5_69 = xi3_69+xi4_69 xr5_77 = xr3_69-xr4_69 xi5_77 = xi3_69-xi4_69 xr5_85 = xr4_77+xr3_85 xi5_85 = xi4_77+xi3_85 xr5_93 = xr4_77-xr3_85 xi5_93 = xi4_77-xi3_85 xr6_69 = d17*xr5_69-d18*xr5_85 xi6_69 = d17*xi5_69-d18*xi5_85 xr6_77 = d19*xr5_77-d20*xr5_93 xi6_77 = d19*xi5_77-d20*xi5_93 xr6_85 = d21*xr5_77+d22*xr5_93 xi6_85 = d21*xi5_77+d22*xi5_93 xr6_93 = d23*xr5_69+d24*xr5_85 xi6_93 = d23*xi5_69+d24*xi5_85 xr3_101 = xr2_69+xr2_125 xi3_101 = xi2_69+xi2_125 xr3_109 = xr2_85+xr2_109 xi3_109 = xi2_85+xi2_109 xr3_117 = xr2_101+xr2_93 xi3_117 = xi2_101+xi2_93 xr3_125 = xr2_117+xr2_77 xi3_125 = xi2_117+xi2_77 xr4_101 = d1*(xr3_109-xr3_125) xi4_101 = d1*(xi3_109-xi3_125) xr4_109 = d1*(xr3_109+xr3_125) xi4_109 = d1*(xi3_109+xi3_125) xr5_101 = xr3_101+xr4_101 xi5_101 = xi3_101+xi4_101 xr5_109 = xr3_101-xr4_101 xi5_109 = xi3_101-xi4_101 xr5_117 = xr4_109+xr3_117 xi5_117 = xi4_109+xi3_117 xr5_125 = xr4_109-xr3_117 xi5_125 = xi4_109-xi3_117 xr6_101 = d18*xr5_101+d17*xr5_117 xi6_101 = d18*xi5_101+d17*xi5_117 xr6_109 = d20*xr5_109+d19*xr5_125 xi6_109 = d20*xi5_109+d19*xi5_125 xr6_117 = d22*xr5_109-d21*xr5_125 xi6_117 = d22*xi5_109-d21*xi5_125 xr6_125 = d24*xr5_101-d23*xr5_117 xi6_125 = d24*xi5_101-d23*xi5_117 xr3_73 = xr2_73-xr2_121 xi3_73 = xi2_73-xi2_121 xr3_89 = xr2_105-xr2_89 xi3_89 = xi2_105-xi2_89 xr4_73 = xr3_73-d2*xr3_89 xi4_73 = xi3_73-d2*xi3_89 xr4_89 = d2*xr3_73+xr3_89 xi4_89 = d2*xi3_73+xi3_89 xr3_105 = xr2_73+xr2_121 xi3_105 = xi2_73+xi2_121 xr3_121 = xr2_105+xr2_89 xi3_121 = xi2_105+xi2_89 xr4_105 = d2*xr3_105+xr3_121 xi4_105 = d2*xi3_105+xi3_121 xr4_121 = xr3_105-d2*xr3_121 xi4_121 = xi3_105-d2*xi3_121 xr3_81 = xr2_81-xr2_113 xi3_81 = xi2_81-xi2_113 xr4_81 = d3*xr3_81 xi4_81 = d3*xi3_81 xr3_113 = xr2_81+xr2_113 xi3_113 = xi2_81+xi2_113 xr4_113 = d3*xr3_113 xi4_113 = d3*xi3_113 xr3_65 = d4*xr2_65 xi3_65 = d4*xi2_65 xr3_97 = d4*xr2_97 xi3_97 = d4*xi2_97 xr5_65 = xr3_65+xr4_81 xi5_65 = xi3_65+xi4_81 xr5_81 = xr3_65-xr4_81 xi5_81 = xi3_65-xi4_81 xr5_97 = xr4_113+xr3_97 xi5_97 = xi4_113+xi3_97 xr5_113 = xr4_113-xr3_97 xi5_113 = xi4_113-xi3_97 xr6_65 = xr5_65+xr4_73 xi6_65 = xi5_65+xi4_73 xr6_73 = xr5_81+xr4_89 xi6_73 = xi5_81+xi4_89 xr6_81 = xr5_81-xr4_89 xi6_81 = xi5_81-xi4_89 xr6_89 = xr5_65-xr4_73 xi6_89 = xi5_65-xi4_73 xr6_97 = xr4_105+xr5_97 xi6_97 = xi4_105+xi5_97 xr6_105 = xr4_121+xr5_113 xi6_105 = xi4_121+xi5_113 xr6_113 = xr4_121-xr5_113 xi6_113 = xi4_121-xi5_113 xr6_121 = xr4_105-xr5_97 xi6_121 = xi4_105-xi5_97 xr7_65 = d25*xr6_65 xi7_65 = d25*xi6_65 xr7_73 = d26*xr6_73 xi7_73 = d26*xi6_73 xr7_81 = d27*xr6_81 xi7_81 = d27*xi6_81 xr7_89 = d28*xr6_89 xi7_89 = d28*xi6_89 xr7_97 = d25*xr6_97 xi7_97 = d25*xi6_97 xr7_105 = d26*xr6_105 xi7_105 = d26*xi6_105 xr7_113 = d27*xr6_113 xi7_113 = d27*xi6_113 xr7_121 = d28*xr6_121 xi7_121 = d28*xi6_121 xr8_65 = xr7_65+xr6_69 xi8_65 = xi7_65+xi6_69 xr8_69 = xr7_73+xr6_77 xi8_69 = xi7_73+xi6_77 xr8_73 = xr7_81+xr6_85 xi8_73 = xi7_81+xi6_85 xr8_77 = xr7_89+xr6_93 xi8_77 = xi7_89+xi6_93 xr8_81 = xr7_89-xr6_93 xi8_81 = xi7_89-xi6_93 xr8_85 = xr7_81-xr6_85 xi8_85 = xi7_81-xi6_85 xr8_89 = xr7_73-xr6_77 xi8_89 = xi7_73-xi6_77 xr8_93 = xr7_65-xr6_69 xi8_93 = xi7_65-xi6_69 xr8_97 = xr6_101+xr7_97 xi8_97 = xi6_101+xi7_97 xr8_101 = xr6_109+xr7_105 xi8_101 = xi6_109+xi7_105 xr8_105 = xr6_117+xr7_113 xi8_105 = xi6_117+xi7_113 xr8_109 = xr6_125+xr7_121 xi8_109 = xi6_125+xi7_121 xr8_113 = xr6_125-xr7_121 xi8_113 = xi6_125-xi7_121 xr8_117 = xr6_117-xr7_113 xi8_117 = xi6_117-xi7_113 xr8_121 = xr6_109-xr7_105 xi8_121 = xi6_109-xi7_105 xr8_125 = xr6_101-xr7_97 xi8_125 = xi6_101-xi7_97 xr9_65 = xr8_65+xr8_67 xi9_65 = xi8_65+xi8_67 xr9_67 = xr8_69+xr8_71 xi9_67 = xi8_69+xi8_71 xr9_69 = xr8_73+xr8_75 xi9_69 = xi8_73+xi8_75 xr9_71 = xr8_77+xr8_79 xi9_71 = xi8_77+xi8_79 xr9_73 = xr8_81+xr8_83 xi9_73 = xi8_81+xi8_83 xr9_75 = xr8_85+xr8_87 xi9_75 = xi8_85+xi8_87 xr9_77 = xr8_89+xr8_91 xi9_77 = xi8_89+xi8_91 xr9_79 = xr8_93+xr8_95 xi9_79 = xi8_93+xi8_95 xr9_81 = xr8_93-xr8_95 xi9_81 = xi8_93-xi8_95 xr9_83 = xr8_89-xr8_91 xi9_83 = xi8_89-xi8_91 xr9_85 = xr8_85-xr8_87 xi9_85 = xi8_85-xi8_87 xr9_87 = xr8_81-xr8_83 xi9_87 = xi8_81-xi8_83 xr9_89 = xr8_77-xr8_79 xi9_89 = xi8_77-xi8_79 xr9_91 = xr8_73-xr8_75 xi9_91 = xi8_73-xi8_75 xr9_93 = xr8_69-xr8_71 xi9_93 = xi8_69-xi8_71 xr9_95 = xr8_65-xr8_67 xi9_95 = xi8_65-xi8_67 xr9_97 = xr8_99+xr8_97 xi9_97 = xi8_99+xi8_97 xr9_99 = xr8_103+xr8_101 xi9_99 = xi8_103+xi8_101 xr9_101 = xr8_107+xr8_105 xi9_101 = xi8_107+xi8_105 xr9_103 = xr8_111+xr8_109 xi9_103 = xi8_111+xi8_109 xr9_105 = xr8_115+xr8_113 xi9_105 = xi8_115+xi8_113 xr9_107 = xr8_119+xr8_117 xi9_107 = xi8_119+xi8_117 xr9_109 = xr8_123+xr8_121 xi9_109 = xi8_123+xi8_121 xr9_111 = xr8_127+xr8_125 xi9_111 = xi8_127+xi8_125 xr9_113 = xr8_127-xr8_125 xi9_113 = xi8_127-xi8_125 xr9_115 = xr8_123-xr8_121 xi9_115 = xi8_123-xi8_121 xr9_117 = xr8_119-xr8_117 xi9_117 = xi8_119-xi8_117 xr9_119 = xr8_115-xr8_113 xi9_119 = xi8_115-xi8_113 xr9_121 = xr8_111-xr8_109 xi9_121 = xi8_111-xi8_109 xr9_123 = xr8_107-xr8_105 xi9_123 = xi8_107-xi8_105 xr9_125 = xr8_103-xr8_101 xi9_125 = xi8_103-xi8_101 xr9_127 = xr8_99-xr8_97 xi9_127 = xi8_99-xi8_97 xr10_64 = xr9_64+xr9_65 xi10_64 = xi9_64+xi9_65 xr10_65 = xr9_96+xr9_97 xi10_65 = xi9_96+xi9_97 xr11_96 = a95*xr10_64-a98*xr10_65 xi11_96 = a95*xi10_64-a98*xi10_65 xr11_97 = a98*xr10_64+a95*xr10_65 xi11_97 = a98*xi10_64+a95*xi10_65 xr12_64 = xr11_96+a97*xr9_65-a100*xr9_97 xi12_64 = xi11_96+a97*xi9_65-a100*xi9_97 xr12_65 = xr11_96+a96*xr9_64-a99*xr9_96 xi12_65 = xi11_96+a96*xi9_64-a99*xi9_96 xr12_96 = xr11_97+a100*xr9_65+a97*xr9_97 xi12_96 = xi11_97+a100*xi9_65+a97*xi9_97 xr12_97 = xr11_97+a99*xr9_64+a96*xr9_96 xi12_97 = xi11_97+a99*xi9_64+a96*xi9_96 xr10_66 = xr9_66+xr9_67 xi10_66 = xi9_66+xi9_67 xr10_67 = xr9_98+xr9_99 xi10_67