COMPLETE ENERGY FUNCTION FOR SMALL PROTEIN
double RadiusR[10] = {0, 2.815621895822, 2.1999632013713, 1.8724692520196, 2.8216317793623, 3.0210955300087, 2.1999632013713, 1.8724692520196, 2.8794119114849, 2.8794119114849};
double ChargeR[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 1, 1};
double DistCA_SC[10] = {0, 2.598214, 2.057867, 1.536576, 2.665667, 3.399455, 2.057867, 1.536576, 3.44125, 3.44125};
double DistCpr_R[10] = {0, 3.5053267739199, 2.9873814440304, 2.5482796556275, 3.488484401245, 4.1573864898498, 2.9873814440304, 2.5482796556275, 4.2913520117717, 4.2913520117717};
double DistN_R[10] = {0, 3.3920693186766, 2.9252642467011, 2.44188844671, 3.4355204055076, 4.0688806370834, 2.9252642467011, 2.44188844671, 4.1779875306906, 4.1779875306906};
double DistN_Cpr[10] = {0, 2.4334410785128, 2.4183002249252, 2.4334410785128, 2.4587552562037, 2.4587552562037, 2.4183002249252, 2.4334410785128, 2.4334410785128, 2.4334410785128};
double v[85], Grad[85], Hessian[85][85];
char *AAA[10] = { "", "Leu", "Cys", "Ala", "Met", "Phe", "Cys", "Ala", "Lys", "Lys" };
int Seq[10] = { 0, 11, 5, 1, 13, 14, 5, 1, 12, 12 };
char *Description = {"Fictitious sequence for testing"};
double k10 = {10000};
double k11 = {10000};
double k30 = {39.858215363648};
double k31 = {0.33333333333333};
double k32 = {-1};
double k37 = {10};
double k38 = {1};
double k39 = {1};
double K6[4];
double aN[10] = { 0, 0.53049757412811, 0.52932503081605, 0.53854264919582, 0.52685401948769, 0.54309169141923, 0.52932503081605, 0.53854264919582, 0.53049757412811, 0.53049757412811};
double bN[10] = { 0, -0.5338039218437, -0.49851380842064, -0.50852859474849, -0.50209909853732, -0.4817967690191, -0.49851380842064, -0.50852859474849, -0.5338039218437, -0.5338039218437};
double cN[10] = { 0, -0.54714386489518, -0.5370781471228, -0.51079261204886, -0.48461155217004, -0.43451525809079, -0.5370781471228, -0.51079261204886, -0.54714386489518, -0.54714386489518};
double CB1x[10] = { 0, -0.61498009828368, -0.57067130734105, -0.58303767581588, -0.51072449462768, -0.49811927631941, -0.57067130734105, -0.58303767581588, -0.61498009828368, -0.61498009828368};
double CB1y[10] = { 0, -1.4009637678095, -1.4195894684653, -1.4145554314268, -1.442241481371, -1.446643420667, -1.4195894684653, -1.4145554314268, -1.4009637678095, -1.4009637678095};
double N1x[10] = { 0, -0.48023741261231, -0.45623103852069, -0.48023741261231, -0.52070863068931, -0.52070863068931, -0.45623103852069, -0.48023741261231, -0.48023741261231, -0.48023741261231};
double N1y[10] = { 0, 0.7665287304974, 0.7624304813984, 0.72254446370643, 0.69892688289123, 0.62858863929646, 0.7624304813984, 0.72254446370643, 0.7665287304974, 0.7665287304974};
double N1z[10] = { 0, -1.1371080568044, -1.1496790858866, -1.1655515970967, -1.1625716039443, -1.2020598339821, -1.1496790858866, -1.1655515970967, -1.1371080568044, -1.1371080568044};
int Interior[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
int Surface[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
#ifndef NoGrad
void Gradient( int lastaa )
{ int i, j, m;
double t1, t2, t3, t4, t5, t6, t7, t8, t9, t10
, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20
, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30
, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40
, t41, t42, t43, t44, t45, t46, t47, t48, t49, t50
, t51, t52, t53, t54, t55, t56, t57, t58, t59, t60
, t61, t62, t63, t64, t65, t66, t67, t68, t69, t70
, t71, t72, t73, t74, t75, t76, t77, t78, t79, t80
, t81, t82, t83, t84, t85, t86, t87, t88, t89, t90
, t91, t92, t93, t94, t95, t96, t97, t98, t99, t100
, t101, t102, t103, t104, t105, t106, t107, t108, t109, t110
, t111, t112, t113, t114, t115, t116, t117, t118, t119, t120
, t121, t122, t123, t124, t125, t126, t127, t128, t129, t130
, t131, t132, t133, t134, t135, t136, t137, t138, t139, t140
, t141, t142, t143, t144, t145, t146, t147, t148, t149, t150
, t151, t152, t153, t154, t155, t156, t157, t158, t159, t160
, t161, t162, t163, t164, t165, t166, t167, t168, t169, t170
, t171, t172, t173, t174, t175, t176, t177, t178, t179, t180
, t181, t182, t183, t184, t185, t186, t187, t188, t189, t190
, t191, t192, t193, t194, t195, t196, t197, t198, t199, t200
, t201, t202, t203, t204, t205, t206, t207, t208, t209, t210
, t211, t212, t213, t214, t215, t216, t217, t218, t219, t220
, t221, t222, t223, t224, t225, t226, t227, t228, t229, t230
, t231, t232, t233, t234, t235, t236, t237, t238, t239, t240
, t241, t242, t243, t244, t245, t246, t247, t248, t249, t250
, t251, t252, t253, t254, t255, t256, t257, t258, t259, t260
, t261, t262, t263, t264, t265, t266, t267, t268, t269, t270
, t271, t272, t273, t274, t275, t276, t277, t278, t279, t280
, t281, t282, t283, t284, t285, t286, t287, t288, t289, t290
, t291, t292, t293, t294, t295, t296, t297, t298, t299, t300
, t301, t302, t303, t304, t305, t306, t307, t308, t309, t310
, t311, t312, t313, t314, t315, t316, t317, t318, t319, t320
, t321, t322, t323, t324, t325, t326, t327, t328, t329, t330
, t331, t332, t333, t334, t335, t336, t337, t338, t339, t340
, t341, t342, t343, t344, t345, t346, t347, t348, t349, t350
, t351, t352, t353, t354, t355, t356, t357, t358, t359, t360
, t361, t362, t363, t364, t365, t366, t367, t368, t369, t370
, t371, t372, t373, t374, t375, t376, t377, t378, t379, t380
, t381, t382, t383, t384, t385, t386, t387, t388, t389, t390
, t391, t392, t393, t394, t395, t396, t397, t398, t399, t400
, t401, t402, t403, t404, t405, t406, t407, t408, t409, t410
, t411, t412, t413, t414, t415, t416, t417, t418, t419, t420
, t421, t422, t423, t424, t425, t426, t427, t428, t429, t430
, t431, t432, t433, t434, t435, t436, t437, t438, t439, t440
, t441, t442, t443, t444, t445, t446, t447, t448, t449, t450
, t451, t452, t453, t454, t455, t456, t457, t458, t459, t460
, t461, t462, t463, t464, t465, t466, t467, t468, t469, t470
, t471, t472, t473, t474, t475, t476, t477, t478, t479, t480
, t481, t482, t483, t484, t485, t486, t487, t488, t489, t490
, t491, t492, t493, t494, t495, t496, t497, t498, t499, t500
, t501, t502, t503, t504, t505, t506, t507, t508, t509, t510
, t511, t512, t513, t514, t515, t516, t517, t518, t519, t520
, t521, t522, t523, t524, t525, t526, t527, t528, t529, t530
, t531, t532, t533, t534, t535, t536, t537, t538, t539, t540
, t541, t542, t543, t544, t545, t546, t547, t548, t549, t550
, t551, t552, t553, t554, t555, t556, t557, t558, t559, t560
, t561, t562, t563, t564, t565, t566, t567, t568, t569, t570
, t571, t572, t573, t574, t575, t576, t577, t578, t579, t580
, t581, t582, t583, t584, t585, t586, t587, t588, t589, t590
, t591, t592, t593, t594, t595, t596, t597, t598, t599, t600
, t601, t602, t603, t604, t605, t606, t607, t608, t609, t610
, t611, t612, t613, t614, t615, t616, t617, t618, t619, t620
, t621, t622, t623, t624, t625, t626, t627, t628, t629, t630
, t631, t632, t633, t634, t635, t636, t637, t638, t639, t640
, t641, t642, t643, t644, t645, t646, t647, t648, t649, t650
, t651, t652, t653, t654, t655, t656, t657, t658, t659, t660
, t661, t662, t663, t664, t665, t666, t667, t668, t669, t670
;
m = DIM*(3*lastaa+1);
for( i=0; i <= m; i++ ) {
Grad[i] = 0;
}
for( i=1; i < DIM; i++ ) for( j=i+1; j <= DIM; j++ ) {
Grad[0] += v[(i-1)*DIM+j] * v[(i-1)*DIM+j];
Grad[(i-1)*DIM+j] += 2*v[(i-1)*DIM+j];
}
/* vars = [v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9],
v[10], v[11] , v[12]] */
/* enter PartitionList ls = 21367 */
/* final chunk, 21367 */
/* length(li)=21367, nops(li)=13 */
/* input: len=21367, nops=13
output: len=5973, nops=88, in 38 secs
length ratio 3.58, cost: 89*subtractions+133*multiplications+
44*additions+7*divisions+28*subscripts+73*functions+88*assignments */
/* 27 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[11];
t2 = v[2];
t3 = t2-t1;
t4 = v[3];
t5 = v[12];
t6 = t4-t5;
t7 = v[10];
t8 = v[1];
t9 = t8-t7;
t3 = sqrt(t9*t9+t3*t3+t6*t6);
t6 = 37895276358021.0e-13-t3;
t9 = t6/t3;
t10 = v[6];
t11 = t10-t5;
t12 = v[5];
t13 = t12-t1;
t14 = v[4];
t15 = t14-t7;
t11 = sqrt(t15*t15+t13*t13+t11*t11);
t13 = 27941364052411.0e-13-t11;
t15 = t13/t11;
t16 = v[7];
t17 = t16-t8;
t18 = v[8];
t19 = t18-t2;
t20 = v[9];
t21 = t20-t4;
t17 = sqrt(t17*t17+t19*t19+t21*t21);
t19 = DistCA_SC[1]-t17;
t21 = t19/t17;
t22 = t4-t10;
t23 = t2-t12;
t24 = t8-t14;
t22 = sqrt(t24*t24+t23*t23+t22*t22);
t23 = 24008483689129.0e-13-t22;
t24 = t23/t22;
t25 = t16*(2);
t26 = t8*(2);
t27 = (t25-t26)*t21;
t28 = t20*(2);
t29 = t4*(2);
t30 = (t28-t29)*t21;
t31 = t7*(2);
t32 = (-t26+t31)*t9;
t33 = t14*(2);
t31 = (-t33+t31)*t15;
t34 = t18*(2);
t35 = t2*(2);
t36 = (t34-t35)*t21;
t37 = t1*(2);
t38 = (-t35+t37)*t9;
t39 = t12*(2);
t37 = (-t39+t37)*t15;
t40 = t5*(2);
t41 = (-t29+t40)*t9;
t42 = t10*(2);
t40 = (-t42+t40)*t15;
t26 = (-t26+t33)*t24;
t35 = (-t35+t39)*t24;
t29 = (-t29+t42)*t24;
t43 = t16-t8*(44475300610525.0e-14)-t14*(31311212044064.0e-14)-t7*(24213487345411.0e-14);
t44 = t20-t4*(44475300610525.0e-14)-t10*(31311212044064.0e-14)-t5*(24213487345411.0e-14);
t45 = t18-t2*(44475300610525.0e-14)-t12*(31311212044064.0e-14)-t1*(24213487345411.0e-14);
t46 = t20-t10;
t47 = t16-t14;
t48 = t18-t12;
t46 = t47*t47+t48*t48+t46*t46;
t47 = k39*k30*ChargeR[1]*k32/sqrt(t46);
t48 = (5.0e-1)*t47/t46;
t42 = (t28-t42)*t48;
t39 = (t34-t39)*t48;
t33 = (t25-t33)*t48;
t43 = sqrt(t43*t43+t45*t45+t44*t44);
t44 = DistCpr_R[1]-t43;
t45 = t44/t43;
Grad[0] += t47+(t19*t19+t23*t23+t6*t6+t13*t13+t44*t44)*k10;
Grad[1] += (t27-(-t16*(8895060122105.0e-13)+t8*(39561047287931309.0e-17)+t14*(27851511362792747.0e-17)+t7*(21538042570325944.0e-17))*t45+t26+t32)*k10;
Grad[2] += (t36-(-t18*(8895060122105.0e-13)+t2*(39561047287931309.0e-17)+t12*(27851511362792747.0e-17)+t1*(21538042570325944.0e-17))*t45+t35+t38)*k10;
Grad[3] += (t30-(-t20*(8895060122105.0e-13)+t4*(39561047287931309.0e-17)+t10*(27851511362792747.0e-17)+t5*(21538042570325944.0e-17))*t45+t29+t41)*k10;
Grad[4] += t33+(-(-t16*(62622424088128.0e-14)+t8*(27851511362792747.0e-17)+t14*(1960783999336677.0e-16)+t7*(15163072731968483.0e-17))*t45-t26+t31)*k10;
Grad[5] += t39+(-(-t18*(62622424088128.0e-14)+t2*(27851511362792747.0e-17)+t12*(1960783999336677.0e-16)+t1*(15163072731968483.0e-17))*t45-t35+t37)*k10;
Grad[6] += t42+(-(-t20*(62622424088128.0e-14)+t4*(27851511362792747.0e-17)+t10*(1960783999336677.0e-16)+t5*(15163072731968483.0e-17))*t45-t29+t40)*k10;
Grad[7] += -t33+(-t27-(t25-t8*(8895060122105.0e-13)-t14*(62622424088128.0e-14)-t7*(48426974690822.0e-14))*t45)*k10;
Grad[8] += -t39+(-t36-(t34-t2*(8895060122105.0e-13)-t12*(62622424088128.0e-14)-t1*(48426974690822.0e-14))*t45)*k10;
Grad[9] += -t42+(-t30-(t28-t4*(8895060122105.0e-13)-t10*(62622424088128.0e-14)-t5*(48426974690822.0e-14))*t45)*k10;
Grad[10] += (-(-t16*(48426974690822.0e-14)+t8*(21538042570325944.0e-17)+t14*(15163072731968483.0e-17)+t7*(11725859388527573.0e-17))*t45-t32-t31)*k10;
Grad[11] += (-(-t18*(48426974690822.0e-14)+t2*(21538042570325944.0e-17)+t12*(15163072731968483.0e-17)+t1*(11725859388527573.0e-17))*t45-t38-t37)*k10;
Grad[12] += (-(-t20*(48426974690822.0e-14)+t4*(21538042570325944.0e-17)+t10*(15163072731968483.0e-17)+t5*(11725859388527573.0e-17))*t45-t41-t40)*k10;
for( j=2; j <= lastaa; j++ ) {
if( j==2 ) {
/* vars = [v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9],
v[10], v[11], v[12], v[13], v[14], v[15], v[16], v[17], v[18]] */
/* enter PartitionList ls = 12922 */
/* final chunk, 12922 */
/* length(li)=12922, nops(li)=19 */
/* input: len=12922, nops=19
output: len=6174, nops=106, in 36 secs
length ratio 2.09, cost: 72*subtractions+159*multiplications+
35*additions+10*divisions+39*subscripts+73*functions+106*assignments */
/* 26 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[18];
t2 = v[9];
t3 = t2-t1;
t4 = v[17];
t5 = v[8];
t6 = t5-t4;
t7 = v[16];
t8 = v[7];
t9 = t8-t7;
t3 = t9*t9+t3*t3+t6*t6;
t6 = 1/sqrt(t3);
t9 = 1/t3;
t10 = t6*t9;
t11 = ChargeR[2];
t12 = t6*t11;
t13 = v[13];
t14 = t8-t13;
t15 = v[14];
t16 = t5-t15;
t17 = v[15];
t18 = t2-t17;
t14 = t14*t14+t16*t16+t18*t18;
t16 = 1/sqrt(t14);
t18 = k32*t16/t14;
t19 = v[5];
t20 = t19-t4;
t21 = v[6];
t22 = t21-t1;
t23 = v[4];
t24 = t23-t7;
t20 = t24*t24+t20*t20+t22*t22;
t22 = 1/sqrt(t20);
t24 = t22*k32/t20;
t25 = ChargeR[1];
t26 = t25*t10;
t27 = t9*t12;
t1 *= (2);
t28 = t2*(2);
t10 *= t28-t1;
t29 = k30*(5.0e-1);
t30 = k39*t24;
t31 = t11*t24;
t32 = v[1];
t33 = v[10];
t34 = t8-t32*(85465875899382.0e-14)+t23*(76224186951882.0e-14)-t33*(907583110525.0e-12);
t35 = v[11];
t36 = v[2];
t37 = t5-t36*(85465875899382.0e-14)+t19*(76224186951882.0e-14)-t35*(907583110525.0e-12);
t38 = v[12];
t39 = v[3];
t40 = t2-t39*(85465875899382.0e-14)+t21*(76224186951882.0e-14)-t38*(907583110525.0e-12);
t41 = t21-t17;
t42 = t23-t13;
t43 = t19-t15;
t41 = t42*t42+t43*t43+t41*t41;
t42 = k30*k32*k32/sqrt(t41);
t43 = t42/t41*(5.0e-1);
t44 = k39*t29;
t45 = t11*t29;
t29 *= t25;
t46 = t21*(2);
t17 *= (2);
t47 = (t46-t17)*t43;
t15 *= (2);
t48 = t19*(2);
t49 = (t48-t15)*t43;
t13 *= (2);
t50 = t23*(2);
t51 = (-t50+t13)*t43;
t52 = k39*t29*t18;
t34 = t34*t34+t37*t37+t40*t40;
t37 = k31/sqrt(t34);
t40 = t37/t34;
t53 = t25*t40;
t54 = t53*t44;
t55 = t8*(2);
t56 = t5*(2);
t7 *= (2);
t4 *= (2);
t48 -= t4;
t46 -= t1;
t57 = t55-t13;
t58 = t55-t7;
t59 = t56-t15;
t60 = t56-t4;
t61 = t28-t17;
t50 -= t7;
Grad[0] += t42+(t25*t12+(t25*t37+(t25*t16+t11*t22)*k32)*k39)*k30;
Grad[1] -= (-t8*(170931751798764.0e-14)+t32*(1460883188649713.0e-15)-t23*(13029133805121679.0e-16)+t33*(15513477098500949.0e-16))*t54;
Grad[2] -= (-t5*(170931751798764.0e-14)+t36*(1460883188649713.0e-15)-t19*(13029133805121679.0e-16)+t35*(15513477098500949.0e-16))*t54;
Grad[3] -= (-t2*(170931751798764.0e-14)+t39*(1460883188649713.0e-15)-t21*(13029133805121679.0e-16)+t38*(15513477098500949.0e-16))*t54;
Grad[4] += t51+(-(t8*(152448373903764.0e-14)-t32*(13029133805121679.0e-16)+t23*(11620253352950916.0e-16)-t33*(13835956938205637.0e-16))*t53-t50*t31)*t44;
Grad[5] += -t49+(-(t5*(152448373903764.0e-14)-t36*(13029133805121679.0e-16)+t19*(11620253352950916.0e-16)-t35*(13835956938205637.0e-16))*t53-t48*t31)*t44;
Grad[6] += -t47+(-(t2*(152448373903764.0e-14)-t39*(13029133805121679.0e-16)+t21*(11620253352950916.0e-16)-t38*(13835956938205637.0e-16))*t53-t46*t31)*t44;
Grad[7] += (-t58*t27+(-(t55-t32*(170931751798764.0e-14)+t23*(152448373903764.0e-14)-t33*(181516622105.0e-11))*t40-t57*t18)*k39)*t29;
Grad[8] += (-t60*t27+(-(t56-t36*(170931751798764.0e-14)+t19*(152448373903764.0e-14)-t35*(181516622105.0e-11))*t40-t59*t18)*k39)*t29;
Grad[9] += (-t11*t10+(-(t28-t39*(170931751798764.0e-14)+t21*(152448373903764.0e-14)-t38*(181516622105.0e-11))*t40-t61*t18)*k39)*t29;
Grad[10] -= (-t8*(181516622105.0e-11)+t32*(15513477098500949.0e-16)-t23*(13835956938205637.0e-16)+t33*(16474142050204687.0e-16))*t54;
Grad[11] -= (-t5*(181516622105.0e-11)+t36*(15513477098500949.0e-16)-t19*(13835956938205637.0e-16)+t35*(16474142050204687.0e-16))*t54;
Grad[12] -= (-t2*(181516622105.0e-11)+t39*(15513477098500949.0e-16)-t21*(13835956938205637.0e-16)+t38*(16474142050204687.0e-16))*t54;
Grad[13] += t57*t52-t51;
Grad[14] += t59*t52+t49;
Grad[15] += t61*t52+t47;
Grad[16] += (t58*t26+t50*t30)*t45;
Grad[17] += (t60*t26+t48*t30)*t45;
Grad[18] += (t25*t10+t46*t30)*t45;
} else if( j==3 ) {
/* vars = [v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9],
v[10], v[11], v[12], v[13], v[14], v[15], v[19], v[20], v[21],
v[22], v[23], v[24], v[25], v[26], v[27], v[28], v[29], v[30]] */
/* enter PartitionList ls = 453504 */
/* final chunk, 453504 */
/* length(li)=453504, nops(li)=28 */
/* input: len=453504, nops=28
output: len=48484, nops=516, in 2435 secs
length ratio 9.35, cost: 487*subtractions+1137*multiplications+
496*additions+33*divisions+59*subscripts+542*functions+516*assignments */
/* 134 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[24];
t2 = v[21];
t3 = v[30];
t4 = -t1*(15163072731968483.0e-17)-t3*(11725859388527573.0e-17)-t2*(21538042570325944.0e-17);
t5 = v[12];
t6 = v[6];
t7 = v[3];
t8 = t6*(15163072731968483.0e-17)+t7*(21538042570325944.0e-17)+t5*(11725859388527573.0e-17);
t9 = t6*(31311212044064.0e-14)+t7*(44475300610525.0e-14);
t10 = t5*(24213487345411.0e-14)+t9;
t11 = -t2*(44475300610525.0e-14)-t3*(24213487345411.0e-14)-t1*(31311212044064.0e-14);
t12 = t10+t11;
t13 = v[28];
t14 = v[22];
t15 = v[19];
t16 = -t14*(31311212044064.0e-14)-t15*(44475300610525.0e-14)-t13*(24213487345411.0e-14);
t17 = v[10];
t18 = v[4];
t19 = v[1];
t20 = t18*(31311212044064.0e-14)+t19*(44475300610525.0e-14);
t21 = t17*(24213487345411.0e-14)+t20;
t22 = t16+t21;
t23 = v[29];
t24 = v[23];
t25 = v[20];
t26 = -t25*(44475300610525.0e-14)-t23*(24213487345411.0e-14)-t24*(31311212044064.0e-14);
t27 = v[11];
t28 = v[5];
t29 = v[2];
t30 = t28*(31311212044064.0e-14)+t29*(44475300610525.0e-14);
t31 = t27*(24213487345411.0e-14)+t30;
t32 = t31+t26;
t12 = 1/(t22*t22+t32*t32+t12*t12);
t22 = t12*t12;
t32 = t12*t22;
t33 = t12*t32;
t34 = t22*t33;
t33 = -t33*(24576)+t34*t12*(100663296);
t35 = t33*(-t8-t4);
t36 = v[15];
t37 = t36*(76224186951882.0e-14)-t2*(907583110525.0e-12);
t38 = -t5*(85465875899382.0e-14)+t37;
t39 = t6+t38;
t40 = v[13];
t41 = t40*(76224186951882.0e-14)-t15*(907583110525.0e-12);
t42 = -t17*(85465875899382.0e-14)+t41;
t43 = -t18-t42;
t44 = v[14];
t45 = t44*(76224186951882.0e-14)-t25*(907583110525.0e-12);
t46 = -t27*(85465875899382.0e-14)+t45;
t47 = t28+t46;
t48 = t43*t43+t47*t47+t39*t39;
t49 = 1/t48;
t50 = t23*(11725859388527573.0e-17)+t24*(15163072731968483.0e-17)+t25*(21538042570325944.0e-17);
t51 = t29*(21538042570325944.0e-17)+t28*(15163072731968483.0e-17)+t27*(11725859388527573.0e-17);
t52 = t33*(-t51+t50);
t48 = 1/sqrt(t48);
t53 = t18*(15163072731968483.0e-17)+t19*(21538042570325944.0e-17)+t17*(11725859388527573.0e-17);
t54 = t14*(15163072731968483.0e-17)+t13*(11725859388527573.0e-17)+t15*(21538042570325944.0e-17);
t55 = t33*(-t53+t54);
t56 = t44*(20583987474784.0e-14)-t25*(71706152632138.0e-14);
t57 = -t27*(48877834842646.0e-14)+t56;
t58 = v[8];
t59 = t58+t57;
t60 = -t15*(71706152632138.0e-14)+t40*(20583987474784.0e-14);
t61 = -t17*(48877834842646.0e-14)+t60;
t62 = v[7];
t63 = t62+t61;
t64 = v[9];
t65 = t36*(20583987474784.0e-14)-t2*(71706152632138.0e-14);
t66 = -t5*(48877834842646.0e-14)+t65;
t67 = t64+t66;
t59 = 1/(t63*t63+t59*t59+t67*t67);
t63 = t59*t59;
t67 = t59*t63;
t68 = t59*t67;
t69 = RadiusR[1];
t70 = t69+15.0e-1;
t71 = t70*t70;
t70 *= t71;
t71 = t70*t70;
t72 = t71*t71*t63*t68;
t73 = t27*(36588041056736.0e-14)-t44*(55640199477098.0e-14)+t25*(19052158420362.0e-14);
t74 = t17*(36588041056736.0e-14)-t40*(55640199477098.0e-14)+t15*(19052158420362.0e-14);
t75 = t5*(36588041056736.0e-14)-t36*(55640199477098.0e-14)+t2*(19052158420362.0e-14);
t76 = t74*t74+t73*t73+t75*t75;
t77 = 1/sqrt(t76)*t48;
t39 = -t43*t74+t47*t73+t39*t75;
t43 = t39*t77-1;
t47 = 1/(1+k37*t43*t43);
t78 = k37*(2)*t47*t47*t48*t43;
t79 = t78*t77;
t80 = v[27];
t81 = t80*(2);
t82 = RadiusR[3];
t83 = (14.0e-1)+t82;
t84 = t83*t83;
t83 *= t84;
t84 = t83*t83;
t85 = k30*k32*k39;
t86 = ChargeR[3];
t87 = t6-t80;
t88 = v[26];
t89 = t28-t88;
t90 = v[25];
t91 = t18-t90;
t87 = t91*t91+t89*t89+t87*t87;
t89 = t86/sqrt(t87)*t85;
t91 = 1/t87;
t92 = t91*t91;
t93 = t91*t92;
t94 = t91*t93;
t92 *= t84*t84*t94;
t94 = -t91*t89*(5.0e-1)+(-t91*t92+t84*t94)*(6);
t95 = t6*(2);
t96 = t94*(t95-t81);
t97 = t88*(2);
t98 = t28*(2);
t99 = t94*(t98-t97);
t100 = t18*(2);
t101 = t90*(2);
t102 = t94*(t100-t101);
t103 = t69+12.0e-1;
t104 = t103*t103;
t103 *= t104;
t104 = t103*t103;
t105 = t64+t38;
t106 = t62+t42;
t107 = t58+t46;
t105 = t106*t106+t107*t107+t105*t105;
t106 = 1/t105;
t107 = t106*t106;
t108 = t106*t107;
t109 = t106*t108;
t110 = t104*t104*t107*t109;
t111 = t64*(2);
t112 = t69+(14.0e-1);
t113 = t112*t112;
t112 *= t113;
t113 = t112*t112;
t114 = t64-t1;
t115 = t58-t24;
t116 = t62-t14;
t114 = t116*t116+t115*t115+t114*t114;
t115 = 1/t114;
t116 = t115*t115;
t117 = t115*t116;
t118 = t115*t117;
t119 = t113*t113*t116*t118;
t120 = ChargeR[1];
t85 *= t120/sqrt(t114);
t118 = -t115*t85*(5.0e-1)+(t113*t118-t115*t119)*(6);
t121 = t1*(2);
t122 = t118*(t111-t121);
t123 = t14*(2);
t124 = t62*(2);
t125 = t118*(t124-t123);
t126 = t58*(2);
t127 = t24*(2);
t128 = t118*(t126-t127);
t129 = t69+t82;
t130 = t129*t129;
t129 *= t130;
t130 = t129*t129;
t131 = t64-t80;
t132 = t58-t88;
t133 = t62-t90;
t131 = t133*t133+t132*t132+t131*t131;
t132 = 1/t131;
t133 = t132*t132;
t134 = t132*t133;
t135 = t132*t134;
t136 = t130*t130*t133*t135;
t86 *= k30*t120/sqrt(t131);
t135 = -t132*t86*(5.0e-1)+(-t132*t136+t130*t135)*(6);
t137 = t135*(t111-t81);
t138 = t135*(t126-t97);
t139 = t135*(t124-t101);
t140 = t25*(2);
t141 = t6-t2;
t142 = t28-t25;
t143 = t18-t15;
t141 = 1/(t143*t143+t142*t142+t141*t141);
t142 = t141*t141;
t143 = t141*t142;
t144 = t141*t143;
t145 = t142*t144;
t144 = t144*(9268826496.0e-6)-t145*t141*(14318524102158606.0e-9);
t146 = t144*(t98-t140);
t147 = t2*(2);
t148 = t144*(t95-t147);
t149 = t15*(2);
t150 = t144*(-t100+t149);
t151 = t7-t1;
t152 = t29-t24;
t153 = t19-t14;
t151 = 1/(t153*t153+t152*t152+t151*t151);
t152 = t151*t151;
t153 = t151*t152;
t154 = t151*t153;
t155 = t152*t154;
t154 = -t154*(9268826496.0e-6)+t155*t151*(14318524102158606.0e-9);
t156 = t19*(2);
t157 = t154*(t156-t123);
t158 = t29*(2);
t159 = t154*(t158-t127);
t160 = t7*(2);
t161 = t154*(t160-t121);
t82 += (2);
t162 = t82*t82;
t162 *= t82;
t163 = t162*t162;
t164 = (6)*t163;
t165 = t163*t163;
t166 = t7-t80;
t167 = t19-t90;
t168 = t29-t88;
t166 = 1/(t167*t167+t168*t168+t166*t166);
t167 = t166*t166;
t168 = t166*t167;
t169 = t166*t168;
t170 = t167*t169;
t171 = t170*t166*(6);
t172 = t165*t171-t169*t164;
t173 = t172*(-t156+t101);
t174 = k30*k31;
t175 = k32*t174;
t176 = t175*t79;
t177 = (5.0e-1)*t77;
t178 = t49*t177;
t179 = t47*t48;
t180 = t49*(5.0e-1)*t179;
t181 = t39*t178*t78-t180;
t182 = t18-t14;
t183 = t6-t1;
t184 = t28-t24;
t182 = t182*t182+t184*t184+t183*t183;
t183 = 1/t182;
t184 = t183*t183;
t185 = t183*t184;
t186 = t183*t185;
t187 = k30*k32*k32/sqrt(t182);
t188 = t184*t186;
t186 = -2891341824.0e-6*t186+(t187*(5.0e-1)+13933095905352745.0e-10*t188)*t183;
t189 = t19*(27851511362792747.0e-17)+t18*(1960783999336677.0e-16);
t190 = t17*(15163072731968483.0e-17)+t189;
t191 = t13*(15163072731968483.0e-17)+t15*(27851511362792747.0e-17)+t14*(1960783999336677.0e-16);
t192 = -t186*(t100-t123)-t33*(t190-t191);
t193 = t6*(27851511362792747.0e-17)+t7*(39561047287931309.0e-17);
t194 = t5*(21538042570325944.0e-17)+t193;
t195 = t19-t15;
t196 = t7-t2;
t197 = t29-t25;
t195 = 1/(t195*t195+t197*t197+t196*t196);
t196 = t195*t195;
t197 = t195*t196;
t198 = t195*t197;
t199 = t196*t198;
t198 = t199*t195*(100663296)-t198*(24576);
t200 = t3*(21538042570325944.0e-17)+t1*(27851511362792747.0e-17)+t2*(39561047287931309.0e-17);
t201 = -t33*(-t200+t194)-t198*(t160-t147);
t202 = t3*(15163072731968483.0e-17)+t2*(27851511362792747.0e-17)+t1*(1960783999336677.0e-16);
t203 = t6*(1960783999336677.0e-16)+t7*(27851511362792747.0e-17);
t204 = t5*(15163072731968483.0e-17)+t203;
t205 = -t186*(t95-t121)-t33*(-t202+t204);
t206 = t25*(27851511362792747.0e-17)+t24*(1960783999336677.0e-16)+t23*(15163072731968483.0e-17);
t207 = t28*(1960783999336677.0e-16)+t29*(27851511362792747.0e-17);
t208 = t27*(15163072731968483.0e-17)+t207;
t209 = t186*(t98-t127)+t33*(-t206+t208);
t210 = t14*(27851511362792747.0e-17)+t15*(39561047287931309.0e-17)+t13*(21538042570325944.0e-17);
t211 = t19*(39561047287931309.0e-17)+t18*(27851511362792747.0e-17);
t212 = t17*(21538042570325944.0e-17)+t211;
t213 = t33*(t210-t212)+t198*(-t156+t149);
t214 = t29*(39561047287931309.0e-17)+t28*(27851511362792747.0e-17);
t215 = t27*(21538042570325944.0e-17)+t214;
t216 = t25*(39561047287931309.0e-17)+t23*(21538042570325944.0e-17)+t24*(27851511362792747.0e-17);
t217 = -t33*(t215-t216)-t198*(t158-t140);
t218 = t49*t49;
t219 = t49*t218;
t220 = t49*t219;
t218 *= t220;
t49 = 1853494656.0e-6*t220-57257373997009306.0e-11*t49*t218;
t220 = t181*t175+t49;
t221 = -t44*(29519970952897567.0e-17)+t25*(10283544650606943.0e-16);
t222 = -t36*(29519970952897567.0e-17)+t2*(10283544650606943.0e-16);
t223 = t15*(10283544650606943.0e-16)-t40*(29519970952897567.0e-17);
t224 = -t25*(29519970952897567.0e-17)+t44*(84740108072412919.0e-18);
t225 = -t40*(13835956938205637.0e-16)+t15*(16474142050204687.0e-16);
t226 = t36*(11620253352950916.0e-16)-t2*(13835956938205637.0e-16);
t227 = t40*(84740108072412919.0e-18)-t15*(29519970952897567.0e-17);
t228 = t25*(16474142050204687.0e-16)-t44*(13835956938205637.0e-16);
t229 = t40*(11620253352950916.0e-16)-t15*(13835956938205637.0e-16);
t230 = t2*(16474142050204687.0e-16)-t36*(13835956938205637.0e-16);
t231 = t44*(11620253352950916.0e-16)-t25*(13835956938205637.0e-16);
t232 = t36*(84740108072412919.0e-18)-t2*(29519970952897567.0e-17);
t169 *= (6);
t233 = t58+t26;
t234 = t64+t11;
t235 = t62+t16;
t233 = 1/(t235*t235+t233*t233+t234*t234);
t234 = t233*t233;
t235 = t233*t234;
t236 = t233*t235;
t237 = (6)*t236;
t238 = -5337036073263.0e-12*t80+t194*(6);
t239 = t7*(8895060122105.0e-13);
t240 = t6*(62622424088128.0e-14);
t241 = -t239-t5*(48426974690822.0e-14)-t240;
t242 = (t81+t241)*(6);
t243 = t29*(8895060122105.0e-13);
t244 = t28*(62622424088128.0e-14);
t245 = -t27*(48426974690822.0e-14)-t243-t244;
t246 = (t97+t245)*(6);
t247 = t64-t2;
t248 = t62-t15;
t249 = t58-t25;
t247 = 1/(t248*t248+t249*t249+t247*t247);
t248 = t247*t247;
t249 = t247*t248;
t250 = t247*t249;
t251 = t248*t250;
t252 = t251*t247;
t253 = (6)*t252;
t254 = t250*(6);
t255 = -t124+t149;
t256 = t255*(6);
t236 *= t234;
t257 = (6)*t236*t233;
t258 = t15*(8895060122105.0e-13);
t259 = t14*(62622424088128.0e-14);
t13 = -t258-t13*(48426974690822.0e-14)-t259;
t260 = t27*(47780854778099587.0e-17)+t25*(70096829711104138.0e-17)-t44*(20122014803911725.0e-17);
t261 = t27*(70096829711104138.0e-17)+t221;
t262 = t5*(70096829711104138.0e-17)+t222;
t263 = -t17*(97755669685292.0e-14)-t15*(143412305264276.0e-14)+t40*(41167974949568.0e-14);
t264 = t15*(70096829711104138.0e-17)+t17*(47780854778099587.0e-17)-t40*(20122014803911725.0e-17);
t265 = -t27*(20122014803911725.0e-17)+t224;
t266 = t36*(41167974949568.0e-14)-t5*(97755669685292.0e-14)-t2*(143412305264276.0e-14);
t267 = -t5*(13029133805121679.0e-16)+t226;
t268 = t27*(15513477098500949.0e-16)+t228;
t269 = t2*(15513477098500949.0e-16)-t36*(13029133805121679.0e-16)+t5*(1460883188649713.0e-15);
t270 = -t17*(20122014803911725.0e-17)+t227;
t271 = t17*(15513477098500949.0e-16)+t225;
t272 = -t17*(13029133805121679.0e-16)+t229;
t273 = t5*(47780854778099587.0e-17)+t2*(70096829711104138.0e-17)-t36*(20122014803911725.0e-17);
t274 = t18*(62622424088128.0e-14);
t275 = t19*(8895060122105.0e-13);
t276 = -t17*(48426974690822.0e-14)-t274-t275;
t277 = t5*(15513477098500949.0e-16)+t230;
t278 = -t27*(13029133805121679.0e-16)+t231;
t279 = -t27*(97755669685292.0e-14)-t25*(143412305264276.0e-14)+t44*(41167974949568.0e-14);
t280 = -t5*(20122014803911725.0e-17)+t232;
t281 = -t25*(181516622105.0e-11)+t44*(152448373903764.0e-14)-t27*(170931751798764.0e-14);
t282 = -t40*(13029133805121679.0e-16)+t15*(15513477098500949.0e-16)+t17*(1460883188649713.0e-15);
t283 = t24*(62622424088128.0e-14);
t284 = t25*(8895060122105.0e-13);
t23 = -t283-t284-t23*(48426974690822.0e-14);
t285 = t25*(15513477098500949.0e-16)-t44*(13029133805121679.0e-16)+t27*(1460883188649713.0e-15);
t286 = t1*(62622424088128.0e-14);
t287 = t2*(8895060122105.0e-13);
t3 = -t286-t3*(48426974690822.0e-14)-t287;
t288 = -t2*(181516622105.0e-11)-t5*(170931751798764.0e-14)+t36*(152448373903764.0e-14);
t289 = t17*(70096829711104138.0e-17)+t223;
t290 = -t15*(181516622105.0e-11)-t17*(170931751798764.0e-14)+t40*(152448373903764.0e-14);
t81 = t160-t81;
t291 = t81*t171;
t292 = t111-t147;
t293 = t292*t253;
t292 *= t254;
t294 = t81*t169;
t120 *= k39/sqrt(t105);
t295 = t19+t16;
t296 = t29+t26;
t297 = t7+t11;
t295 = 1/(t295*t295+t296*t296+t297*t297);
t296 = t295*t295;
t297 = t295*t296;
t298 = t295*t297;
t299 = t296*t298;
t298 = t298*(24576)-t299*t295*(100663296);
t300 = -t25+t31;
t301 = -t2+t10;
t302 = -t15+t21;
t300 = 1/(t302*t302+t300*t300+t301*t301);
t301 = t300*t300;
t302 = t300*t301;
t303 = t300*t302;
t304 = t301*t303;
t303 = -t304*t300*(100663296)+t303*(24576);
t305 = -t80+t10;
t306 = -t88+t31;
t307 = -t90+t21;
t305 = 1/(t307*t307+t306*t306+t305*t305);
t306 = t305*t305;
t307 = t305*t306;
t308 = t305*t307;
t309 = t306*t308;
t310 = t309*t305;
t164 = -t165*t310*(6)+t308*t164;
t68 = (t71*t68-t59*t72)*(6);
t69 += (2);
t311 = t69*t69;
t311 *= t69;
t312 = t311*t311;
t313 = t312*t312;
t314 = -t313*t257+t312*t237;
t315 = t312*t254-t313*t253;
t60 += -t17*(24664347497235.0e-14)+t20;
t65 += -t5*(24664347497235.0e-14)+t9;
t56 += -t27*(24664347497235.0e-14)+t30;
t316 = 1/(t60*t60+t56*t56+t65*t65);
t317 = t316*t316;
t318 = t316*t317;
t319 = t316*t318;
t317 *= t319;
t316 = t319*(1102959375.0e-5)-t317*t316*(20275323048339844.0e-9);
t319 = t29+t57;
t320 = t19+t61;
t321 = t7+t66;
t320 = 1/(t320*t320+t319*t319+t321*t321);
t321 = t320*t320;
t322 = t320*t321;
t323 = t320*t322;
t324 = t321*t323;
t323 = -t324*t320*(20275323048339844.0e-9)+t323*(1102959375.0e-5);
t76 = 1/t76*t177;
t10 -= t1;
t31 -= t24;
t21 -= t14;
t177 = 1/(t21*t21+t31*t31+t10*t10);
t325 = t177*t177;
t326 = t177*t325;
t327 = t177*t326;
t325 *= t327;
t327 = t327*(9268826496.0e-6)-t325*t177*(14318524102158606.0e-9);
t11 += t6;
t16 += t18;
t26 += t28;
t328 = 1/(t16*t16+t26*t26+t11*t11);
t329 = t328*t328;
t330 = t328*t329;
t331 = t328*t330;
t329 *= t331;
t328 = -t329*t328*(14318524102158606.0e-9)+t331*(9268826496.0e-6);
t38 += t7;
t46 += t29;
t42 += t19;
t331 = 1/(t42*t42+t46*t46+t38*t38);
t332 = t331*t331;
t333 = t331*t332;
t334 = t331*t333;
t332 *= t334;
t334 = -t332*t331*(69175290276410819.0e-10)+t334*(6442450944.0e-6);
t9 += -t5*(61252388553971.0e-14)+t37;
t20 += -t17*(61252388553971.0e-14)+t41;
t30 += -t27*(61252388553971.0e-14)+t45;
t37 = 1/(t20*t20+t30*t30+t9*t9);
t41 = t37*t37;
t45 = t37*t41;
t335 = t37*t45;
t336 = t41*t335;
t335 = t335*(6442450944.0e-6)-t336*t37*(69175290276410819.0e-10);
t57 += t28;
t61 += t18;
t66 += t6;
t337 = 1/(t61*t61+t57*t57+t66*t66);
t338 = t337*t337;
t339 = t337*t338;
t340 = t337*t339;
t338 *= t340;
t337 = -21228886992328142.0e-10*t337*t338+3568939926.0e-6*t340;
t109 = -t106*(5.0e-1)*t120*t174+(-t106*t110+t104*t109)*(6);
t97 = t158-t97;
t340 = t126-t140;
t341 = t100+t290;
t342 = t126+t23;
t343 = t111+t3;
t344 = t124+t13;
t345 = -t28*(181516622105.0e-11)+t268;
t346 = -t6*(181516622105.0e-11)+t277;
t347 = -t18*(181516622105.0e-11)+t271;
t348 = -t64*(8895060122105.0e-13)+t200;
t349 = -t28*(170931751798764.0e-14)+t285;
t350 = -t18*(170931751798764.0e-14)+t282;
t351 = t28*(152448373903764.0e-14)+t278;
t352 = t18*(152448373903764.0e-14)+t272;
t353 = -t6*(170931751798764.0e-14)+t269;
t354 = t6*(152448373903764.0e-14)+t267;
Grad[0] += t187+t136+(-t32-t302-t197-t297)*(8192)+(-t333-t45)*(2147483648.0e-6)+35381478320546904.0e-11*t338-963780608.0e-6*t185-617831552.0e-6*t219-1189646642.0e-6*t339+(t329+t155+t325+t145)*(23864206836931011.0e-10)+(t317+t324)*(33792205080566406.0e-10)+(t332+t336)*(1152921504606847.0e-9)+(-t330-t153-t326-t143)*(3089608832.0e-6)+(t120+k32*t179)*t174+(-t318-t322)*(367653125.0e-5)+t89+t86+t92+t72+95428956661682176.0e-12*t218+t110+t119+(t199+t34+t299+t304)*(16777216)+t85+(t170+t309)*t165+(-t113*t117-t130*t134-t84*t93+(-t249-t235)*t312+(-t307-t168)*t163-t71*t67-t104*t108)*(2)+(t236+t251)*t313+23221826508921242.0e-11*t188;
Grad[1] += t164*(-t90*(8895060122105.0e-13)+t212)+t173+t335*(-t17*(54484367881010819.0e-17)+t40*(67801872569556185.0e-17)-t15*(80730063339269422.0e-17)+t211)+t316*(-t17*(21939085386039531.0e-17)+t40*(18309580614085996.0e-17)-t15*(63783053878770521.0e-17)+t211)+t298*(t156+t13)+t334*(t156+t290)+t323*(t156+t263)+t327*(-t14*(8895060122105.0e-13)+t212)+t303*(-t258+t212)-t157+t213;
Grad[2] += -t172*t97+t164*(-t88*(8895060122105.0e-13)+t215)+t335*(-t27*(54484367881010819.0e-17)+t44*(67801872569556185.0e-17)-t25*(80730063339269422.0e-17)+t214)+t316*(-t27*(21939085386039531.0e-17)+t44*(18309580614085996.0e-17)-t25*(63783053878770521.0e-17)+t214)+t334*(t158+t281)+t298*(t158+t23)+t303*(-t284+t215)+t323*(t158+t279)-t159+t327*(-t24*(8895060122105.0e-13)+t215)+t217;
Grad[3] += (-t310*t238-t291)*t165+(t294+t308*t238)*t163+t335*(-t5*(54484367881010819.0e-17)+t36*(67801872569556185.0e-17)-t2*(80730063339269422.0e-17)+t193)+t316*(-t5*(21939085386039531.0e-17)+t36*(18309580614085996.0e-17)-t2*(63783053878770521.0e-17)+t193)+t327*(-t1*(8895060122105.0e-13)+t194)-t161+t323*(t160+t266)+t334*(t160+t288)+t298*(t160+t3)+t303*(-t287+t194)+t201;
Grad[4] += t49*t341+(-t74*t79+t181*t341)*t175+t164*(-t90*(62622424088128.0e-14)+t190)+t335*(-t17*(38357730524375693.0e-17)+t40*(47733433610735073.0e-17)-t15*(56835054442518897.0e-17)+t189)+t316*(-t17*(15445412288288086.0e-17)+t40*(12890191930706386.0e-17)-t15*(44904130998577817.0e-17)+t189)+t328*(t100+t13)+t337*(t100+t263)+t327*(-t259+t190)+t303*(-t15*(62622424088128.0e-14)+t190)-t150+t102+t192;
Grad[5] += -t73*t176+t316*(-t27*(15445412288288086.0e-17)+t44*(12890191930706386.0e-17)-t25*(44904130998577817.0e-17)+t207)+t164*(-t88*(62622424088128.0e-14)+t208)+t335*(-t27*(38357730524375693.0e-17)+t44*(47733433610735073.0e-17)-t25*(56835054442518897.0e-17)+t207)+t146+t327*(-t283+t208)+t303*(-t25*(62622424088128.0e-14)+t208)+t328*(t98+t23)+t337*(t98+t279)+t99+t220*(t98+t281)-t209;
Grad[6] += -t75*t176+t335*(-t5*(38357730524375693.0e-17)+t36*(47733433610735073.0e-17)-t2*(56835054442518897.0e-17)+t203)+t164*(-t80*(62622424088128.0e-14)+t204)+t316*(-t5*(15445412288288086.0e-17)+t36*(12890191930706386.0e-17)-t2*(44904130998577817.0e-17)+t203)+t328*(t95+t3)+t303*(-t2*(62622424088128.0e-14)+t204)+t148+t337*(t95+t266)+t327*(-t286+t204)+t96+t220*(t95+t288)+t205;
Grad[7] += t68*(t124+t263)+(-t344*t257+t252*t256)*t313+(t344*t237-t250*t256)*t312+t109*(t124+t290)+t139+t125;
Grad[8] += (-t342*t257-t340*t253)*t313+t68*(t126+t279)+(t342*t237+t340*t254)*t312+t128+t138+t109*(t126+t281);
Grad[9] += (-t343*t257-t293)*t313+t68*(t111+t266)+(t343*t237+t292)*t312+t109*(t111+t288)+t137+t122;
Grad[10] +=
t49*t350+(-t350*t180-((-t17*(62540579527129849.0e-17)+t40*(
7544232065238296.0e-16)-t15*(49489782181989112.0e-17)+t18*(36588041056736.0e-14
))*t77+(-t350*t178-(t17*(26773694967387984.0e-17)-t40*(40715318057460851.0e-17)
+t15*(13941623090072867.0e-17))*t76)*t39)*t78)*t175+t68*(-t62*(
97755669685292.0e-14)+t264)+t164*(-t90*(48426974690822.0e-14)+t53)+t55+t334*(-
t19*(170931751798764.0e-14)+t282)+t323*(-t19*(97755669685292.0e-14)+t264)+t337*
(-t18*(97755669685292.0e-14)+t264)+t303*(-t15*(48426974690822.0e-14)+t53)+t327*
(-t14*(48426974690822.0e-14)+t53)+t316*(-t19*(21939085386039531.0e-17)-t18*(
15445412288288086.0e-17)+t17*(12166600749287248.0e-17)-t40*(
10153812399136107.0e-17)+t15*(35371709324176476.0e-17))+t335*(-t19*(
54484367881010819.0e-17)-t18*(38357730524375693.0e-17)+t17*(
75037102071332751.0e-17)-t40*(93378270327744053.0e-17)+t15*(
11118326666179781.0e-16))+t109*(-t62*(170931751798764.0e-14)+t282) ;
Grad[11] += t49*t349+(-t349*t180-((-t27*(62540579527129849.0e-17)+t44*(
7544232065238296.0e-16)-t25*(49489782181989112.0e-17)+t28*(36588041056736.0e-14
))*t77+(-t349*t178-(t27*(26773694967387984.0e-17)-t44*(40715318057460851.0e-17)
+t25*(13941623090072867.0e-17))*t76)*t39)*t78)*t175+t68*(-t58*(
97755669685292.0e-14)+t260)+t164*(-t88*(48426974690822.0e-14)+t51)+t334*(-t29*(
170931751798764.0e-14)+t285)+t327*(-t24*(48426974690822.0e-14)+t51)+t323*(-t29*
(97755669685292.0e-14)+t260)+t337*(-t28*(97755669685292.0e-14)+t260)+t303*(-t25
*(48426974690822.0e-14)+t51)+t316*(-t29*(21939085386039531.0e-17)-t28*(
15445412288288086.0e-17)+t27*(12166600749287248.0e-17)-t44*(
10153812399136107.0e-17)+t25*(35371709324176476.0e-17))+t335*(-t29*(
54484367881010819.0e-17)-t28*(38357730524375693.0e-17)+t27*(
75037102071332751.0e-17)-t44*(93378270327744053.0e-17)+t25*(
11118326666179781.0e-16))+t109*(-t58*(170931751798764.0e-14)+t285)+t52 ;
Grad[12] += t49*t353+(-((-t5*(62540579527129849.0e-17)+t36*(7544232065238296.0e-16)-t2*(
49489782181989112.0e-17)+t6*(36588041056736.0e-14))*t77+(-t353*t178-(t5*(
26773694967387984.0e-17)-t36*(40715318057460851.0e-17)+t2*(
13941623090072867.0e-17))*t76)*t39)*t78-t353*t180)*t175+t68*(-t64*(
97755669685292.0e-14)+t273)+t164*(-t80*(48426974690822.0e-14)+t8)+t337*(-t6*(
97755669685292.0e-14)+t273)+t323*(-t7*(97755669685292.0e-14)+t273)+t334*(-t7*(
170931751798764.0e-14)+t269)+t303*(-t2*(48426974690822.0e-14)+t8)+t327*(-t1*(
48426974690822.0e-14)+t8)+t316*(-t7*(21939085386039531.0e-17)-t6*(
15445412288288086.0e-17)+t5*(12166600749287248.0e-17)-t36*(
10153812399136107.0e-17)+t2*(35371709324176476.0e-17))+t335*(-t7*(
54484367881010819.0e-17)-t6*(38357730524375693.0e-17)+t5*(
75037102071332751.0e-17)-t36*(93378270327744053.0e-17)+t2*(
11118326666179781.0e-16))+t109*(-t64*(170931751798764.0e-14)+t269)+t35 ;
Grad[13] += t49*t352+(-((t17*(7544232065238296.0e-16)-t40*(84822579339646501.0e-17)+t15*(65020458164361541.0e-17)-t18*(55640199477098.0e-14))*t77+(-t352*t178-(-t17*(40715318057460851.0e-17)+t40*(61916635957025131.0e-17)-t15*(2120131789956428.0e-16))*t76)*t39)*t78-t352*t180)*t175+t68*(t62*(41167974949568.0e-14)+t270)+t334*(t19*(152448373903764.0e-14)+t272)+t316*(t19*(18309580614085996.0e-17)+t18*(12890191930706386.0e-17)-t17*(10153812399136107.0e-17)+t227)+t335*(t19*(67801872569556185.0e-17)+t18*(47733433610735073.0e-17)-t17*(93378270327744053.0e-17)+t229)+t323*(t19*(41167974949568.0e-14)+t270)+t337*(t18*(41167974949568.0e-14)+t270)+t109*(t62*(152448373903764.0e-14)+t272);
Grad[14] += t49*t351+(-((t27*(7544232065238296.0e-16)-t44*(84822579339646501.0e-17)+t25*(65020458164361541.0e-17)-t28*(55640199477098.0e-14))*t77+(-t351*t178-(-t27*(40715318057460851.0e-17)+t44*(61916635957025131.0e-17)-t25*(2120131789956428.0e-16))*t76)*t39)*t78-t351*t180)*t175+t68*(t58*(41167974949568.0e-14)+t265)+t334*(t29*(152448373903764.0e-14)+t278)+t335*(t29*(67801872569556185.0e-17)+t28*(47733433610735073.0e-17)-t27*(93378270327744053.0e-17)+t231)+t316*(t29*(18309580614085996.0e-17)+t28*(12890191930706386.0e-17)-t27*(10153812399136107.0e-17)+t224)+t337*(t28*(41167974949568.0e-14)+t265)+t323*(t29*(41167974949568.0e-14)+t265)+t109*(t58*(152448373903764.0e-14)+t278);
Grad[15] += t49*t354+(-((t5*(7544232065238296.0e-16)-t36*(84822579339646501.0e-17)+t2*(65020458164361541.0e-17)-t6*(55640199477098.0e-14))*t77+(-t354*t178-(-t5*(40715318057460851.0e-17)+t36*(61916635957025131.0e-17)-t2*(2120131789956428.0e-16))*t76)*t39)*t78-t354*t180)*t175+t68*(t64*(41167974949568.0e-14)+t280)+t334*(t7*(152448373903764.0e-14)+t267)+t316*(t7*(18309580614085996.0e-17)+t6*(12890191930706386.0e-17)-t5*(10153812399136107.0e-17)+t232)+t335*(t7*(67801872569556185.0e-17)+t6*(47733433610735073.0e-17)-t5*(93378270327744053.0e-17)+t226)+t337*(t6*(41167974949568.0e-14)+t280)+t323*(t7*(41167974949568.0e-14)+t280)+t109*(t64*(152448373903764.0e-14)+t267);
Grad[19] += t49*t347+(-t347*t180-((-t17*(49489782181989112.0e-17)+t40*(
65020458164361541.0e-17)-t15*(34582834402734429.0e-17)+t18*(
19052158420362.0e-14))*t77+(-t347*t178-(t17*(13941623090072867.0e-17)-t40*(
2120131789956428.0e-16)+t15*(72596948094914132.0e-18))*t76)*t39)*t78)*t175+t68*
(-t62*(143412305264276.0e-14)+t289)+t314*(-t62*(8895060122105.0e-13)+t210)+t315
*t255+t323*(-t19*(143412305264276.0e-14)+t289)+t337*(-t18*(
143412305264276.0e-14)+t289)+t335*(-t19*(80730063339269422.0e-17)-t18*(
56835054442518897.0e-17)+t17*(11118326666179781.0e-16)+t225)+t316*(-t19*(
63783053878770521.0e-17)-t18*(44904130998577817.0e-17)+t17*(
35371709324176476.0e-17)+t223)+t334*(-t19*(181516622105.0e-11)+t271)+t303*(t149
+t276)+t328*(-t18*(8895060122105.0e-13)+t210)+t298*(-t275+t210)+t150+t109*(-t62
*(181516622105.0e-11)+t271)-t213 ;
Grad[20] += t49*t345+(-((-t27*(49489782181989112.0e-17)+t44*(65020458164361541.0e-17)-t25
*(34582834402734429.0e-17)+t28*(19052158420362.0e-14))*t77+(-t345*t178-(t27*(
13941623090072867.0e-17)-t44*(2120131789956428.0e-16)+t25*(
72596948094914132.0e-18))*t76)*t39)*t78-t345*t180)*t175+t68*(-t58*(
143412305264276.0e-14)+t261)-t315*t340+t314*(-t58*(8895060122105.0e-13)+t216)+
t337*(-t28*(143412305264276.0e-14)+t261)+t323*(-t29*(143412305264276.0e-14)+
t261)+t335*(-t29*(80730063339269422.0e-17)-t28*(56835054442518897.0e-17)+t27*(
11118326666179781.0e-16)+t228)+t316*(-t29*(63783053878770521.0e-17)-t28*(
44904130998577817.0e-17)+t27*(35371709324176476.0e-17)+t221)+t303*(t140+t245)+
t328*(-t28*(8895060122105.0e-13)+t216)+t334*(-t29*(181516622105.0e-11)+t268)-
t146+t298*(-t243+t216)+t109*(-t58*(181516622105.0e-11)+t268)-t217 ;
Grad[21] += t49*t346+(-((-t5*(49489782181989112.0e-17)+t36*(65020458164361541.0e-17)-t2*(
34582834402734429.0e-17)+t6*(19052158420362.0e-14))*t77+(-t346*t178-(t5*(
13941623090072867.0e-17)-t36*(2120131789956428.0e-16)+t2*(
72596948094914132.0e-18))*t76)*t39)*t78-t346*t180)*t175+t68*(-t64*(
143412305264276.0e-14)+t262)+(t293-t348*t257)*t313+(-t292+t348*t237)*t312+t323*
(-t7*(143412305264276.0e-14)+t262)+t337*(-t6*(143412305264276.0e-14)+t262)+t335
*(-t7*(80730063339269422.0e-17)-t6*(56835054442518897.0e-17)+t5*(
11118326666179781.0e-16)+t230)+t316*(-t7*(63783053878770521.0e-17)-t6*(
44904130998577817.0e-17)+t5*(35371709324176476.0e-17)+t222)+t298*(-t239+t200)+
t303*(t147+t241)+t328*(-t6*(8895060122105.0e-13)+t200)-t148+t334*(-t7*(
181516622105.0e-11)+t277)+t109*(-t64*(181516622105.0e-11)+t277)-t201 ;
Grad[22] += t314*(-t62*(62622424088128.0e-14)+t191)+t327*(t123+t276)+t298*(-t19*(62622424088128.0e-14)+t191)+t328*(-t274+t191)+t157-t125-t192;
Grad[23] += t314*(-t58*(62622424088128.0e-14)+t206)+t298*(-t29*(62622424088128.0e-14)+t206)+t328*(-t244+t206)+t327*(t127+t245)+t159-t128+t209;
Grad[24] += t314*(-t64*(62622424088128.0e-14)+t202)+t161+t327*(t121+t241)+t298*(-t7*(62622424088128.0e-14)+t202)+t328*(-t240+t202)-t122-t205;
Grad[25] += t164*(t101+t276)-t173-t102-t139;
Grad[26] += (-t97*t169+t308*t246)*t163+(t97*t171-t310*t246)*t165-t138-t99;
Grad[27] += (-t294+t308*t242)*t163+(t291-t310*t242)*t165-t137-t96;
Grad[28] += t314*(-t62*(48426974690822.0e-14)+t54)-t55+t298*(-t19*(48426974690822.0e-14)+t54)+t328*(-t18*(48426974690822.0e-14)+t54);
Grad[29] += t314*(-t58*(48426974690822.0e-14)+t50)+t328*(-t28*(48426974690822.0e-14)+t50)+t298*(-t29*(48426974690822.0e-14)+t50)-t52;
Grad[30] += t314*(-t64*(48426974690822.0e-14)-t4)+t328*(-t6*(48426974690822.0e-14)-t4)+t298*(-t7*(48426974690822.0e-14)-t4)-t35;
} else {
/* vars = [v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8],
v[9], v[10], v[11], v[12], v[9*j-17], v[9*j-16], v[9*j-15],
v[9*j-14], v[9*j-13], v[9*j-12], v[9*j-8], v[9*j-7], v[9*j-6],
v[9*j-5], v[9*j-4], v[9*j-3], v[9*j-2], v[9*j-1], v[9*j],
v[9*j+1], v[9*j+2], v[9*j+3]] */
/* enter PartitionList ls = 537709 */
/* final chunk, 537709 */
/* length(li)=537709, nops(li)=31 */
/* input: len=537709, nops=31
output: len=48462, nops=490, in 2267 secs
length ratio 11.10, cost: 471*subtractions+1164*multiplications+
537*additions+33*divisions+65*subscripts+541*functions+490*assignments */
/* 131 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[5];
t2 = v[9*j-7];
t3 = v[9*j-16];
t4 = v[9*j-13];
t5 = -t2*(907583110525.0e-12)+t4*(76224186951882.0e-14)-t3*(85465875899382.0e-14);
t6 = t1+t5;
t7 = v[4];
t8 = v[9*j-17];
t9 = v[9*j-14];
t10 = v[9*j-8];
t11 = -t10*(907583110525.0e-12)+t9*(76224186951882.0e-14)-t8*(85465875899382.0e-14);
t12 = t7+t11;
t13 = v[6];
t14 = v[9*j-15];
t15 = v[9*j-12];
t16 = v[9*j-6];
t17 = -t16*(907583110525.0e-12)+t15*(76224186951882.0e-14)-t14*(85465875899382.0e-14);
t18 = t13+t17;
t19 = t12*t12+t6*t6+t18*t18;
t20 = 1/t19;
t19 = 1/sqrt(t19);
t21 = v[9*j+2];
t22 = v[9*j-4];
t23 = t22*(15163072731968483.0e-17)+t2*(21538042570325944.0e-17)+t21*(11725859388527573.0e-17);
t24 = v[11];
t25 = v[2];
t26 = t1*(15163072731968483.0e-17)+t25*(21538042570325944.0e-17)+t24*(11725859388527573.0e-17);
t27 = v[12];
t28 = v[3];
t29 = t28*(44475300610525.0e-14)+t13*(31311212044064.0e-14)+t27*(24213487345411.0e-14);
t30 = v[9*j+3];
t31 = v[9*j-3];
t32 = -t30*(24213487345411.0e-14)-t16*(44475300610525.0e-14)-t31*(31311212044064.0e-14);
t33 = t29+t32;
t34 = v[9*j+1];
t35 = v[9*j-5];
t36 = -t10*(44475300610525.0e-14)-t34*(24213487345411.0e-14)-t35*(31311212044064.0e-14);
t37 = v[1];
t38 = v[10];
t39 = t38*(24213487345411.0e-14)+t37*(44475300610525.0e-14)+t7*(31311212044064.0e-14);
t40 = t39+t36;
t41 = t25*(44475300610525.0e-14)+t1*(31311212044064.0e-14)+t24*(24213487345411.0e-14);
t42 = -t21*(24213487345411.0e-14)-t22*(31311212044064.0e-14)-t2*(44475300610525.0e-14);
t43 = t41+t42;
t33 = 1/(t40*t40+t43*t43+t33*t33);
t40 = t33*t33;
t43 = t33*t40;
t44 = t33*t43;
t45 = t40*t44;
t44 = t45*t33*(100663296)-t44*(24576);
t46 = t44*(t23-t26);
t47 = t37*(21538042570325944.0e-17)+t38*(11725859388527573.0e-17)+t7*(15163072731968483.0e-17);
t48 = t34*(11725859388527573.0e-17)+t10*(21538042570325944.0e-17)+t35*(15163072731968483.0e-17);
t49 = t44*(t48-t47);
t50 = t28*(21538042570325944.0e-17)+t27*(11725859388527573.0e-17)+t13*(15163072731968483.0e-17);
t51 = t16*(21538042570325944.0e-17)+t30*(11725859388527573.0e-17)+t31*(15163072731968483.0e-17);
t52 = t44*(t51-t50);
t53 = -t16*(71706152632138.0e-14)+t15*(20583987474784.0e-14)-t14*(48877834842646.0e-14);
t54 = v[9];
t55 = t54+t53;
t56 = -t2*(71706152632138.0e-14)-t3*(48877834842646.0e-14)+t4*(20583987474784.0e-14);
t57 = v[8];
t58 = t57+t56;
t59 = v[7];
t60 = -t8*(48877834842646.0e-14)-t10*(71706152632138.0e-14)+t9*(20583987474784.0e-14);
t61 = t59+t60;
t55 = 1/(t61*t61+t58*t58+t55*t55);
t58 = t55*t55;
t61 = t55*t58;
t62 = t55*t61;
t63 = RadiusR[1];
t64 = t63+15.0e-1;
t65 = t64*t64;
t64 *= t65;
t65 = t64*t64;
t66 = t65*t65*t58*t62;
t67 = v[9*j-1];
t68 = t67*(2);
t69 = t57*(2);
t70 = t57-t67;
t71 = v[9*j-2];
t72 = t59-t71;
t73 = v[9*j];
t74 = t54-t73;
t70 = t72*t72+t70*t70+t74*t74;
t72 = ChargeR[1];
t74 = ChargeR[j];
t75 = k30*t72*t74/sqrt(t70);
t76 = 1/t70;
t77 = t76*t76;
t78 = t76*t77;
t79 = t76*t78;
t80 = RadiusR[j];
t81 = t63+t80;
t82 = t81*t81;
t81 *= t82;
t82 = t81*t81;
t77 *= t82*t82*t79;
t76 = -t76*t75*(5.0e-1)+(t82*t79-t76*t77)*(6);
t79 = t76*(-t69+t68);
t83 = t54*(2);
t84 = t73*(2);
t85 = t76*(-t83+t84);
t86 = t71*(2);
t87 = t59*(2);
t88 = t76*(-t87+t86);
t89 = t13*(2);
t90 = t7-t71;
t91 = t1-t67;
t92 = t13-t73;
t90 = t90*t90+t91*t91+t92*t92;
t91 = k30*k32;
t92 = k39*t91;
t93 = t74/sqrt(t90)*t92;
t94 = (14.0e-1)+t80;
t95 = t94*t94;
t94 *= t95;
t95 = t94*t94;
t96 = 1/t90;
t97 = t96*t96;
t98 = t96*t97;
t99 = t96*t98;
t97 *= t95*t95*t99;
t96 = -t96*t93*(5.0e-1)+(t95*t99-t96*t97)*(6);
t99 = t96*(-t89+t84);
t100 = t1*(2);
t101 = t96*(-t100+t68);
t102 = t7*(2);
t103 = t96*(-t102+t86);
t104 = t31*(2);
t105 = t54-t31;
t106 = t59-t35;
t107 = t57-t22;
t105 = t106*t106+t107*t107+t105*t105;
t106 = t72/sqrt(t105)*t92;
t107 = 1/t105;
t108 = t107*t107;
t109 = t108*t107;
t110 = t107*t109;
t111 = t63+(14.0e-1);
t112 = t111*t111;
t111 *= t112;
t112 = t111*t111;
t108 *= t112*t112*t110;
t110 = -t107*t106*(5.0e-1)+(-t108*t107+t112*t110)*(6);
t113 = t110*(t83-t104);
t114 = t35*(2);
t115 = t110*(-t87+t114);
t116 = t22*(2);
t117 = t110*(-t69+t116);
t118 = t37*(2);
t119 = -t35+t37;
t120 = t28-t31;
t121 = t25-t22;
t119 = 1/(t119*t119+t121*t121+t120*t120);
t120 = t119*t119;
t121 = t119*t120;
t122 = t119*t121;
t123 = t120*t122;
t122 = t123*t119*(14318524102158606.0e-9)-t122*(9268826496.0e-6);
t124 = t122*(-t118+t114);
t125 = t59+t11;
t126 = t57+t5;
t127 = t54+t17;
t125 = t125*t125+t126*t126+t127*t127;
t126 = 1/t125;
t127 = t126*t126;
t128 = t63+12.0e-1;
t129 = t128*t128;
t128 *= t129;
t129 = t128*t128;
t130 = t126*t127;
t131 = t126*t130;
t132 = t129*t129*t127*t131;
t133 = t25*(2);
t134 = t122*(-t133+t116);
t135 = t16*(2);
t63 += (2);
t136 = t63*t63;
t136 *= t63;
t137 = t136*t136;
t138 = t137*t137;
t139 = t59-t10;
t140 = t54-t16;
t141 = t57-t2;
t139 = 1/(t139*t139+t141*t141+t140*t140);
t140 = t139*t139;
t141 = t139*t140;
t142 = t139*t141;
t143 = t142*(6);
t142 *= t140;
t144 = t142*t139*(6);
t145 = t137*t143-t138*t144;
t146 = t145*(-t83+t135);
t147 = t10*(2);
t145 *= -t87+t147;
t148 = t28*(2);
t149 = t122*(t148-t104);
t150 = t37-t71;
t151 = t25-t67;
t152 = t28-t73;
t150 = 1/(t150*t150+t151*t151+t152*t152);
t151 = t150*t150;
t152 = t150*t151;
t153 = t150*t152;
t154 = t151*t153;
t155 = t154*t150;
t156 = t155*(6);
t80 += (2);
t157 = t80*t80;
t157 *= t80;
t158 = t157*t157;
t159 = t158*t158;
t160 = t153*(6);
t161 = -t159*t156+t158*t160;
t162 = t161*(-t148+t84);
t163 = t7-t10;
t164 = t13-t16;
t165 = t1-t2;
t163 = 1/(t163*t163+t165*t165+t164*t164);
t164 = t163*t163;
t165 = t163*t164;
t166 = t163*t165;
t167 = t164*t166;
t166 = -t166*(9268826496.0e-6)+t167*t163*(14318524102158606.0e-9);
t168 = t166*(-t89+t135);
t169 = t166*(-t102+t147);
t170 = t2*(2);
t171 = t166*(t100-t170);
t172 = t3*(36588041056736.0e-14)-t4*(55640199477098.0e-14)+t2*(19052158420362.0e-14);
t173 = t14*(36588041056736.0e-14)-t15*(55640199477098.0e-14)+t16*(19052158420362.0e-14);
t174 = t8*(36588041056736.0e-14)-t9*(55640199477098.0e-14)+t10*(19052158420362.0e-14);
t175 = t174*t174+t172*t172+t173*t173;
t176 = t19/sqrt(t175);
t6 = t12*t174+t6*t172+t18*t173;
t12 = t6*t176-1;
t18 = 1/(1+k37*t12*t12);
t177 = k37*t19*t18*t18*(2)*t12;
t178 = k31*t91;
t179 = t177*t176*t178;
t180 = t31*(27851511362792747.0e-17)+t16*(39561047287931309.0e-17)+t30*(21538042570325944.0e-17);
t181 = t27*(21538042570325944.0e-17)+t13*(27851511362792747.0e-17)+t28*(39561047287931309.0e-17);
t182 = t28-t16;
t183 = t37-t10;
t184 = t25-t2;
t182 = 1/(t182*t182+t184*t184+t183*t183);
t183 = t182*t182;
t184 = t182*t183;
t185 = t182*t184;
t186 = t183*t185;
t185 = t186*t182*(100663296)-t185*(24576);
t187 = t44*(t180-t181)+t185*(-t148+t135);
t188 = t24*(21538042570325944.0e-17)+t25*(39561047287931309.0e-17)+t1*(27851511362792747.0e-17);
t189 = t22*(27851511362792747.0e-17)+t2*(39561047287931309.0e-17)+t21*(21538042570325944.0e-17);
t190 = t44*(t189-t188)+t185*(-t133+t170);
t191 = t38*(21538042570325944.0e-17)+t7*(27851511362792747.0e-17)+t37*(39561047287931309.0e-17);
t192 = t34*(21538042570325944.0e-17)+t10*(39561047287931309.0e-17)+t35*(27851511362792747.0e-17);
t193 = t44*(-t191+t192)+t185*(-t118+t147);
t194 = t13*(1960783999336677.0e-16)+t27*(15163072731968483.0e-17)+t28*(27851511362792747.0e-17);
t195 = t7-t35;
t196 = t13-t31;
t197 = t1-t22;
t195 = t195*t195+t197*t197+t196*t196;
t196 = k30*k32*k32/sqrt(t195);
t197 = 1/t195;
t198 = t197*t197;
t199 = t197*t198;
t200 = t197*t199;
t198 *= t200;
t200 = -2891341824.0e-6*t200+(t196*(5.0e-1)+13933095905352745.0e-10*t198)*t197;
t201 = t16*(27851511362792747.0e-17)+t30*(15163072731968483.0e-17)+t31*(1960783999336677.0e-16);
t202 = t200*(-t89+t104)+t44*(t201-t194);
t203 = t2*(27851511362792747.0e-17)+t21*(15163072731968483.0e-17)+t22*(1960783999336677.0e-16);
t204 = t1*(1960783999336677.0e-16)+t24*(15163072731968483.0e-17)+t25*(27851511362792747.0e-17);
t205 = t200*(-t100+t116)+t44*(t203-t204);
t206 = t35*(1960783999336677.0e-16)+t34*(15163072731968483.0e-17)+t10*(27851511362792747.0e-17);
t207 = t37*(27851511362792747.0e-17)+t7*(1960783999336677.0e-16)+t38*(15163072731968483.0e-17);
t208 = -t44*(t206-t207)-t200*(-t102+t114);
t209 = (5.0e-1)*t176;
t210 = t20*t209;
t211 = t19*t18;
t212 = t20*(5.0e-1)*t211;
t213 = t20*t20;
t214 = t20*t213;
t215 = t20*t214;
t213 *= t215;
t20 = -57257373997009306.0e-11*t20*t213+1853494656.0e-6*t215;
t215 = (-t212+t6*t210*t177)*t178+t20;
t216 = k30*k31;
t217 = t54+t32;
t218 = t59+t36;
t219 = t57+t42;
t217 = 1/(t218*t218+t219*t219+t217*t217);
t218 = t217*t217;
t219 = t217*t218;
t220 = t217*t219;
t221 = t220*(6);
t222 = -t73+t29;
t223 = -t71+t39;
t224 = -t67+t41;
t222 = 1/(t224*t224+t223*t223+t222*t222);
t223 = t222*t222;
t224 = t222*t223;
t225 = t222*t224;
t226 = t225*(6);
t227 = t218*t220;
t228 = t227*t217;
t229 = t228*(6);
t230 = t223*t225;
t231 = t230*t222;
t232 = t231*(6);
t233 = t22*(62622424088128.0e-14);
t234 = t2*(8895060122105.0e-13);
t21 = -t21*(48426974690822.0e-14)-t233-t234;
t235 = (t69+t21)*(6);
t236 = -5337036073263.0e-12*t71+t191*(6);
t237 = -t118+t86;
t238 = t237*(6);
t239 = t15*(152448373903764.0e-14)-t16*(181516622105.0e-11)-t14*(170931751798764.0e-14);
t240 = t31*(62622424088128.0e-14);
t241 = t16*(8895060122105.0e-13);
t30 = -t240-t241-t30*(48426974690822.0e-14);
t242 = t4*(11620253352950916.0e-16)-t2*(13835956938205637.0e-16)-t3*(13029133805121679.0e-16);
t243 = t13*(62622424088128.0e-14);
t244 = t28*(8895060122105.0e-13);
t245 = -t27*(48426974690822.0e-14)-t243-t244;
t246 = t10*(10283544650606943.0e-16)-t9*(29519970952897567.0e-17)+t8*(70096829711104138.0e-17);
t247 = t15*(11620253352950916.0e-16)-t16*(13835956938205637.0e-16)-t14*(13029133805121679.0e-16);
t248 = -t3*(170931751798764.0e-14)-t2*(181516622105.0e-11)+t4*(152448373903764.0e-14);
t249 = t2*(10283544650606943.0e-16)+t3*(70096829711104138.0e-17)-t4*(29519970952897567.0e-17);
t250 = t16*(10283544650606943.0e-16)+t14*(70096829711104138.0e-17)-t15*(29519970952897567.0e-17);
t251 = t16*(16474142050204687.0e-16)-t15*(13835956938205637.0e-16)+t14*(15513477098500949.0e-16);
t252 = -t10*(13835956938205637.0e-16)+t9*(11620253352950916.0e-16)-t8*(13029133805121679.0e-16);
t253 = -t4*(13835956938205637.0e-16)+t3*(15513477098500949.0e-16)+t2*(16474142050204687.0e-16);
t254 = t16*(70096829711104138.0e-17)-t15*(20122014803911725.0e-17)+t14*(47780854778099587.0e-17);
t255 = t10*(16474142050204687.0e-16)-t9*(13835956938205637.0e-16)+t8*(15513477098500949.0e-16);
t256 = t8*(1460883188649713.0e-15)-t9*(13029133805121679.0e-16)+t10*(15513477098500949.0e-16);
t257 = -t3*(97755669685292.0e-14)-t2*(143412305264276.0e-14)+t4*(41167974949568.0e-14);
t258 = -t15*(13029133805121679.0e-16)+t14*(1460883188649713.0e-15)+t16*(15513477098500949.0e-16);
t259 = t2*(70096829711104138.0e-17)+t3*(47780854778099587.0e-17)-t4*(20122014803911725.0e-17);
t260 = t1*(62622424088128.0e-14);
t261 = t25*(8895060122105.0e-13);
t262 = -t24*(48426974690822.0e-14)-t260-t261;
t263 = -t16*(143412305264276.0e-14)+t15*(41167974949568.0e-14)-t14*(97755669685292.0e-14);
t264 = t15*(84740108072412919.0e-18)-t16*(29519970952897567.0e-17)-t14*(20122014803911725.0e-17);
t265 = -t8*(170931751798764.0e-14)+t9*(152448373903764.0e-14)-t10*(181516622105.0e-11);
t266 = -t8*(20122014803911725.0e-17)+t9*(84740108072412919.0e-18)-t10*(29519970952897567.0e-17);
t267 = -t10*(143412305264276.0e-14)-t8*(97755669685292.0e-14)+t9*(41167974949568.0e-14);
t268 = t4*(84740108072412919.0e-18)-t2*(29519970952897567.0e-17)-t3*(20122014803911725.0e-17);
t269 = t35*(62622424088128.0e-14);
t270 = t10*(8895060122105.0e-13);
t34 = -t269-t270-t34*(48426974690822.0e-14);
t271 = t37*(8895060122105.0e-13);
t272 = t7*(62622424088128.0e-14);
t273 = -t38*(48426974690822.0e-14)-t271-t272;
t274 = -t4*(13029133805121679.0e-16)+t3*(1460883188649713.0e-15)+t2*(15513477098500949.0e-16);
t275 = t8*(47780854778099587.0e-17)-t9*(20122014803911725.0e-17)+t10*(70096829711104138.0e-17);
t276 = -t69+t170;
t143 *= t276;
t144 *= t276;
t276 = k39*t72/sqrt(t125);
t277 = t25+t42;
t278 = t28+t32;
t279 = t37+t36;
t277 = 1/(t277*t277+t278*t278+t279*t279);
t278 = t277*t277;
t279 = t277*t278;
t280 = t277*t279;
t281 = t278*t280;
t280 = t280*(24576)-t281*t277*(100663296);
t282 = -t10+t39;
t283 = -t2+t41;
t284 = -t16+t29;
t282 = 1/(t282*t282+t283*t283+t284*t284);
t283 = t282*t282;
t284 = t282*t283;
t285 = t282*t284;
t286 = t283*t285;
t285 = t285*(24576)-t286*t282*(100663296);
t287 = t137*t221-t138*t229;
t62 = (-t55*t66+t65*t62)*(6);
t288 = -t159*t232+t158*t226;
t289 = t56+t41;
t290 = t29+t53;
t291 = t39+t60;
t289 = 1/(t291*t291+t289*t289+t290*t290);
t290 = t289*t289;
t291 = t290*t289;
t292 = t289*t291;
t293 = t290*t292;
t292 = -t293*t289*(20275323048339844.0e-9)+t292*(1102959375.0e-5);
t294 = t37+t60;
t295 = t25+t56;
t296 = t28+t53;
t294 = 1/(t295*t295+t294*t294+t296*t296);
t295 = t294*t294;
t296 = t294*t295;
t297 = t294*t296;
t298 = t295*t297;
t297 = t297*(1102959375.0e-5)-t298*t294*(20275323048339844.0e-9);
t299 = t37+t11;
t300 = t25+t5;
t301 = t28+t17;
t299 = 1/(t299*t299+t300*t300+t301*t301);
t300 = t299*t299;
t301 = t299*t300;
t302 = t299*t301;
t303 = t300*t302;
t302 = -t303*t299*(69175290276410819.0e-10)+t302*(6442450944.0e-6);
t5 += t41;
t11 += t39;
t17 += t29;
t304 = 1/(t11*t11+t5*t5+t17*t17);
t305 = t304*t304;
t306 = t304*t305;
t307 = t304*t306;
t305 *= t307;
t304 = t307*(6442450944.0e-6)-t305*t304*(69175290276410819.0e-10);
t39 -= t35;
t41 -= t22;
t29 -= t31;
t307 = 1/(t39*t39+t41*t41+t29*t29);
t308 = t307*t307;
t309 = t307*t308;
t310 = t307*t309;
t308 *= t310;
t310 = t310*(9268826496.0e-6)-t308*t307*(14318524102158606.0e-9);
t36 += t7;
t42 += t1;
t32 += t13;
t311 = 1/(t42*t42+t32*t32+t36*t36);
t312 = t311*t311;
t313 = t311*t312;
t314 = t311*t313;
t312 *= t314;
t311 = -t312*t311*(14318524102158606.0e-9)+t314*(9268826496.0e-6);
t56 += t1;
t53 += t13;
t60 += t7;
t314 = 1/(t53*t53+t56*t56+t60*t60);
t315 = t314*t314;
t316 = t314*t315;
t317 = t314*t316;
t315 *= t317;
t317 = -21228886992328142.0e-10*t314*t315+3568939926.0e-6*t317;
t175 = 1/t175*t209;
t131 = -t126*(5.0e-1)*t276*t216+(t129*t131-t126*t132)*(6);
t209 = -t133+t68;
t318 = -t67*(8895060122105.0e-13)+t188;
t319 = -t7*(181516622105.0e-11)+t255;
t320 = -t1*(181516622105.0e-11)+t253;
t321 = -t13*(181516622105.0e-11)+t251;
t322 = -t57*(8895060122105.0e-13)+t189;
t323 = -t7*(170931751798764.0e-14)+t256;
t324 = -t13*(170931751798764.0e-14)+t258;
t325 = -t1*(170931751798764.0e-14)+t274;
t326 = t7*(152448373903764.0e-14)+t252;
t327 = t13*(152448373903764.0e-14)+t247;
t328 = t1*(152448373903764.0e-14)+t242;
Grad[0] += t196-1189646642.0e-6*t316+23221826508921242.0e-11*t198-963780608.0e-6*t199+95428956661682176.0e-12*t213+35381478320546904.0e-11*t315+t132-617831552.0e-6*t214+(t308+t123+t312+t167)*(23864206836931011.0e-10)+(-t165-t309-t313-t121)*(3089608832.0e-6)+(-t301-t306)*(2147483648.0e-6)+(t303+t305)*(1152921504606847.0e-9)+(-t291-t296)*(367653125.0e-5)+(t298+t293)*(33792205080566406.0e-10)+t108+t93+t97+t66+t77+t75+(t154+t230)*t159+(t142+t227)*t138+(-t82*t78-t112*t109-t129*t130+(-t219-t141)*t137+(-t152-t224)*t158-t65*t61-t95*t98)*(2)+(k32*t211+t276)*t216+(t45+t281+t186+t286)*(16777216)+(-t43-t279-t284-t184)*(8192)+t106;
Grad[1] += (-t153*t238+t225*t236)*t158+(t155*t238-t231*t236)*t159+t304*(-t8*(76022410451336763.0e-17)+t9*(67801872569556185.0e-17)-t10*(80730063339269422.0e-17)+t191)+t292*(-t8*(43477127956365475.0e-17)+t9*(18309580614085996.0e-17)-t10*(63783053878770521.0e-17)+t191)+t124+t297*(t118+t267)+t302*(t118+t265)+t280*(t118+t34)+t310*(-t35*(8895060122105.0e-13)+t191)+t285*(-t270+t191)+t193;
Grad[2] += (-t209*t160+t318*t226)*t158+(t209*t156-t318*t232)*t159+t304*(-t3*(76022410451336763.0e-17)+t4*(67801872569556185.0e-17)-t2*(80730063339269422.0e-17)+t188)+t292*(-t3*(43477127956365475.0e-17)+t4*(18309580614085996.0e-17)-t2*(63783053878770521.0e-17)+t188)+t297*(t133+t257)+t302*(t133+t248)+t285*(-t234+t188)+t310*(-t22*(8895060122105.0e-13)+t188)+t134+t280*(t133+t21)+t190;
Grad[3] += -t162+t288*(-t73*(8895060122105.0e-13)+t181)+t304*(-t14*(76022410451336763.0e-17)+t15*(67801872569556185.0e-17)-t16*(80730063339269422.0e-17)+t181)+t292*(-t14*(43477127956365475.0e-17)+t15*(18309580614085996.0e-17)-t16*(63783053878770521.0e-17)+t181)+t297*(t148+t263)-t149+t302*(t148+t239)+t280*(t148+t30)+t285*(-t241+t181)+t310*(-t31*(8895060122105.0e-13)+t181)+t187;
Grad[4] += -t174*t179+t292*(-t8*(30608485020256569.0e-17)+t9*(12890191930706386.0e-17)-t10*(44904130998577817.0e-17)+t207)+t288*(-t71*(62622424088128.0e-14)+t207)+t304*(-t8*(53520803256344177.0e-17)+t9*(47733433610735073.0e-17)-t10*(56835054442518897.0e-17)+t207)+t317*(t102+t267)+t311*(t102+t34)+t285*(-t10*(62622424088128.0e-14)+t207)+t310*(-t269+t207)+t169-t103+t215*(t102+t265)-t208;
Grad[5] += -t172*t179+t292*(-t3*(30608485020256569.0e-17)+t4*(12890191930706386.0e-17)-t2*(44904130998577817.0e-17)+t204)+t288*(-t67*(62622424088128.0e-14)+t204)+t304*(-t3*(53520803256344177.0e-17)+t4*(47733433610735073.0e-17)-t2*(56835054442518897.0e-17)+t204)+t285*(-t2*(62622424088128.0e-14)+t204)-t171+t311*(t100+t21)+t317*(t100+t257)+t310*(-t233+t204)-t101+t215*(t100+t248)+t205;
Grad[6] += -t173*t179+t292*(-t14*(30608485020256569.0e-17)+t15*(12890191930706386.0e-17)-t16*(44904130998577817.0e-17)+t194)+t288*(-t73*(62622424088128.0e-14)+t194)+t304*(-t14*(53520803256344177.0e-17)+t15*(47733433610735073.0e-17)-t16*(56835054442518897.0e-17)+t194)+t168+t310*(-t240+t194)+t317*(t89+t263)+t285*(-t16*(62622424088128.0e-14)+t194)+t311*(t89+t30)-t99+t215*(t89+t239)+t202;
Grad[7] += -t145+t287*(t87+t34)+t62*(t87+t267)-t115-t88+t131*(t87+t265);
Grad[8] += t62*(t69+t257)+(-t143+t220*t235)*t137+(t144-t228*t235)*t138-t117-t79+t131*(t69+t248);
Grad[9] += -t146+t287*(t83+t30)+t62*(t83+t263)-t85+t113+t131*(t83+t239);
Grad[10] += t288*(-t71*(48426974690822.0e-14)+t47)+t292*(-t8*(23670056708669956.0e-17)+t9*(99682024047756182.0e-18)-t10*(34725120386927663.0e-17)+t47)+t49+t304*(-t8*(41388538091083061.0e-17)+t9*(36913067723472741.0e-17)-t10*(43951504323211681.0e-17)+t47)+t285*(-t10*(48426974690822.0e-14)+t47)+t310*(-t35*(48426974690822.0e-14)+t47);
Grad[11] += t288*(-t67*(48426974690822.0e-14)+t26)+t292*(-t3*(23670056708669956.0e-17)+t4*(99682024047756182.0e-18)-t2*(34725120386927663.0e-17)+t26)+t46+t304*(-t3*(41388538091083061.0e-17)+t4*(36913067723472741.0e-17)-t2*(43951504323211681.0e-17)+t26)+t285*(-t2*(48426974690822.0e-14)+t26)+t310*(-t22*(48426974690822.0e-14)+t26);
Grad[12] += t288*(-t73*(48426974690822.0e-14)+t50)+t292*(-t14*(23670056708669956.0e-17)+t15*(99682024047756182.0e-18)-t16*(34725120386927663.0e-17)+t50)+t304*(-t14*(41388538091083061.0e-17)+t15*(36913067723472741.0e-17)-t16*(43951504323211681.0e-17)+t50)+t52+t310*(-t31*(48426974690822.0e-14)+t50)+t285*(-t16*(48426974690822.0e-14)+t50);
Grad[9*j-17] += t20*t323+(-t323*t212-((-t8*(62540579527129849.0e-17)+t9*(7544232065238296.0e-16)-t10*(49489782181989112.0e-17)+t7*(36588041056736.0e-14))*t176+(-t323*t210-(t8*(26773694967387984.0e-17)-t9*(40715318057460851.0e-17)+t10*(13941623090072867.0e-17))*t175)*t6)*t177)*t178+t62*(-t59*(97755669685292.0e-14)+t275)+t297*(-t37*(97755669685292.0e-14)+t275)+t302*(-t37*(170931751798764.0e-14)+t256)+t317*(-t7*(97755669685292.0e-14)+t275)+t292*(-t37*(43477127956365475.0e-17)-t7*(30608485020256569.0e-17)-t38*(23670056708669956.0e-17)+t275)+t304*(-t37*(76022410451336763.0e-17)-t7*(53520803256344177.0e-17)-t38*(41388538091083061.0e-17)+t256)+t131*(-t59*(170931751798764.0e-14)+t256);
Grad[9*j-16] += t20*t325+(-t325*t212-((-t3*(62540579527129849.0e-17)+t4*(7544232065238296.0e-16)-t2*(49489782181989112.0e-17)+t1*(36588041056736.0e-14))*t176+(-t325*t210-(t3*(26773694967387984.0e-17)-t4*(40715318057460851.0e-17)+t2*(13941623090072867.0e-17))*t175)*t6)*t177)*t178+t62*(-t57*(97755669685292.0e-14)+t259)+t297*(-t25*(97755669685292.0e-14)+t259)+t302*(-t25*(170931751798764.0e-14)+t274)+t317*(-t1*(97755669685292.0e-14)+t259)+t292*(-t25*(43477127956365475.0e-17)-t1*(30608485020256569.0e-17)-t24*(23670056708669956.0e-17)+t259)+t304*(-t25*(76022410451336763.0e-17)-t1*(53520803256344177.0e-17)-t24*(41388538091083061.0e-17)+t274)+t131*(-t57*(170931751798764.0e-14)+t274);
Grad[9*j-15] +=
t20*t324+(-t324*t212-((-t14*(62540579527129849.0e-17)+t15*(
7544232065238296.0e-16)-t16*(49489782181989112.0e-17)+t13*(36588041056736.0e-14
))*t176+(-t324*t210-(t14*(26773694967387984.0e-17)-t15*(40715318057460851.0e-17
)+t16*(13941623090072867.0e-17))*t175)*t6)*t177)*t178+t62*(-t54*(
97755669685292.0e-14)+t254)+t317*(-t13*(97755669685292.0e-14)+t254)+t302*(-t28*
(170931751798764.0e-14)+t258)+t297*(-t28*(97755669685292.0e-14)+t254)+t292*(-
t28*(43477127956365475.0e-17)-t13*(30608485020256569.0e-17)-t27*(
23670056708669956.0e-17)+t254)+t304*(-t28*(76022410451336763.0e-17)-t13*(
53520803256344177.0e-17)-t27*(41388538091083061.0e-17)+t258)+t131*(-t54*(
170931751798764.0e-14)+t258) ;
Grad[9*j-14] += t20*t326+(-t326*t212-((t8*(7544232065238296.0e-16)-t9*(84822579339646501.0e-17)+t10*(65020458164361541.0e-17)-t7*(55640199477098.0e-14))*t176+(-t326*t210-(-t8*(40715318057460851.0e-17)+t9*(61916635957025131.0e-17)-t10*(2120131789956428.0e-16))*t175)*t6)*t177)*t178+t62*(t59*(41167974949568.0e-14)+t266)+t302*(t37*(152448373903764.0e-14)+t252)+t292*(t37*(18309580614085996.0e-17)+t7*(12890191930706386.0e-17)+t38*(99682024047756182.0e-18)+t266)+t304*(t37*(67801872569556185.0e-17)+t7*(47733433610735073.0e-17)+t38*(36913067723472741.0e-17)+t252)+t297*(t37*(41167974949568.0e-14)+t266)+t317*(t7*(41167974949568.0e-14)+t266)+t131*(t59*(152448373903764.0e-14)+t252);
Grad[9*j-13] += t20*t328+(-t328*t212-((t3*(7544232065238296.0e-16)-t4*(84822579339646501.0e-17)+t2*(65020458164361541.0e-17)-t1*(55640199477098.0e-14))*t176+(-t328*t210-(-t3*(40715318057460851.0e-17)+t4*(61916635957025131.0e-17)-t2*(2120131789956428.0e-16))*t175)*t6)*t177)*t178+t62*(t57*(41167974949568.0e-14)+t268)+t302*(t25*(152448373903764.0e-14)+t242)+t292*(t25*(18309580614085996.0e-17)+t1*(12890191930706386.0e-17)+t24*(99682024047756182.0e-18)+t268)+t304*(t25*(67801872569556185.0e-17)+t1*(47733433610735073.0e-17)+t24*(36913067723472741.0e-17)+t242)+t317*(t1*(41167974949568.0e-14)+t268)+t297*(t25*(41167974949568.0e-14)+t268)+t131*(t57*(152448373903764.0e-14)+t242);
Grad[9*j-12] += t20*t327+(-t327*t212-((t14*(7544232065238296.0e-16)-t15*(
84822579339646501.0e-17)+t16*(65020458164361541.0e-17)-t13*(
55640199477098.0e-14))*t176+(-t327*t210-(-t14*(40715318057460851.0e-17)+t15*(
61916635957025131.0e-17)-t16*(2120131789956428.0e-16))*t175)*t6)*t177)*t178+t62
*(t54*(41167974949568.0e-14)+t264)+t302*(t28*(152448373903764.0e-14)+t247)+t292
*(t28*(18309580614085996.0e-17)+t13*(12890191930706386.0e-17)+t27*(
99682024047756182.0e-18)+t264)+t304*(t28*(67801872569556185.0e-17)+t13*(
47733433610735073.0e-17)+t27*(36913067723472741.0e-17)+t247)+t297*(t28*(
41167974949568.0e-14)+t264)+t317*(t13*(41167974949568.0e-14)+t264)+t131*(t54*(
152448373903764.0e-14)+t247) ;
Grad[9*j-8] += t20*t319+(-((-t8*(49489782181989112.0e-17)+t9*(65020458164361541.0e-17)-t10*(
34582834402734429.0e-17)+t7*(19052158420362.0e-14))*t176+(-t319*t210-(t8*(
13941623090072867.0e-17)-t9*(2120131789956428.0e-16)+t10*(
72596948094914132.0e-18))*t175)*t6)*t177-t319*t212)*t178+t62*(-t59*(
143412305264276.0e-14)+t246)+t145+t287*(-t59*(8895060122105.0e-13)+t192)+t292*(
-t37*(63783053878770521.0e-17)-t7*(44904130998577817.0e-17)-t38*(
34725120386927663.0e-17)+t246)+t317*(-t7*(143412305264276.0e-14)+t246)+t297*(-
t37*(143412305264276.0e-14)+t246)+t304*(-t37*(80730063339269422.0e-17)-t7*(
56835054442518897.0e-17)-t38*(43951504323211681.0e-17)+t255)+t302*(-t37*(
181516622105.0e-11)+t255)+t285*(t147+t273)-t169+t311*(-t7*(8895060122105.0e-13)
+t192)+t280*(-t271+t192)+t131*(-t59*(181516622105.0e-11)+t255)-t193 ;
Grad[9*j-7] += t20*t320+(-t320*t212-((-t3*(49489782181989112.0e-17)+t4*(
65020458164361541.0e-17)-t2*(34582834402734429.0e-17)+t1*(19052158420362.0e-14)
)*t176+(-t320*t210-(t3*(13941623090072867.0e-17)-t4*(2120131789956428.0e-16)+t2
*(72596948094914132.0e-18))*t175)*t6)*t177)*t178+(-t144-t322*t229)*t138+t62*(-
t57*(143412305264276.0e-14)+t249)+(t322*t221+t143)*t137+t292*(-t25*(
63783053878770521.0e-17)-t1*(44904130998577817.0e-17)-t24*(
34725120386927663.0e-17)+t249)+t317*(-t1*(143412305264276.0e-14)+t249)+t297*(-
t25*(143412305264276.0e-14)+t249)+t304*(-t25*(80730063339269422.0e-17)-t1*(
56835054442518897.0e-17)-t24*(43951504323211681.0e-17)+t253)+t302*(-t25*(
181516622105.0e-11)+t253)+t285*(t170+t262)+t171+t280*(-t261+t189)+t311*(-t1*(
8895060122105.0e-13)+t189)+t131*(-t57*(181516622105.0e-11)+t253)-t190 ;
Grad[9*j-6] += t20*t321+(-((-t14*(49489782181989112.0e-17)+t15*(65020458164361541.0e-17)-t16
*(34582834402734429.0e-17)+t13*(19052158420362.0e-14))*t176+(-t321*t210-(t14*(
13941623090072867.0e-17)-t15*(2120131789956428.0e-16)+t16*(
72596948094914132.0e-18))*t175)*t6)*t177-t321*t212)*t178+t62*(-t54*(
143412305264276.0e-14)+t250)+t146+t287*(-t54*(8895060122105.0e-13)+t180)+t292*(
-t28*(63783053878770521.0e-17)-t13*(44904130998577817.0e-17)-t27*(
34725120386927663.0e-17)+t250)+t317*(-t13*(143412305264276.0e-14)+t250)+t297*(-
t28*(143412305264276.0e-14)+t250)+t304*(-t28*(80730063339269422.0e-17)-t13*(
56835054442518897.0e-17)-t27*(43951504323211681.0e-17)+t251)-t168+t285*(t135+
t245)+t311*(-t13*(8895060122105.0e-13)+t180)+t280*(-t244+t180)+t302*(-t28*(
181516622105.0e-11)+t251)+t131*(-t54*(181516622105.0e-11)+t251)-t187 ;
Grad[9*j-5] += t287*(-t59*(62622424088128.0e-14)+t206)-t124+t310*(t114+t273)+t311*(-t272+t206)+t280*(-t37*(62622424088128.0e-14)+t206)+t115+t208;
Grad[9*j-4] += t287*(-t57*(62622424088128.0e-14)+t203)+t310*(t116+t262)-t134+t311*(-t260+t203)+t280*(-t25*(62622424088128.0e-14)+t203)+t117-t205;
Grad[9*j-3] += t287*(-t54*(62622424088128.0e-14)+t201)+t149+t310*(t104+t245)+t311*(-t243+t201)+t280*(-t28*(62622424088128.0e-14)+t201)-t113-t202;
Grad[9*j-2] += t161*t237+t288*(t86+t273)+t103+t88;
Grad[9*j-1] += t161*t209+t288*(t68+t262)+t79+t101;
Grad[9*j] += t288*(t84+t245)+t162+t85+t99;
Grad[9*j+1] += t287*(-t59*(48426974690822.0e-14)+t48)+t311*(-t7*(48426974690822.0e-14)+t48)+t280*(-t37*(48426974690822.0e-14)+t48)-t49;
Grad[9*j+2] += t287*(-t57*(48426974690822.0e-14)+t23)+t280*(-t25*(48426974690822.0e-14)+t23)+t311*(-t1*(48426974690822.0e-14)+t23)-t46;
Grad[9*j+3] += t287*(-t54*(48426974690822.0e-14)+t51)+t311*(-t13*(48426974690822.0e-14)+t51)+t280*(-t28*(48426974690822.0e-14)+t51)-t52;
}
}
for( i=2; i <= lastaa; i++ ) {
/* vars = [v[9*i-17], v[9*i-16], v[9*i-15], v[9*i-14], v[9*i
-13], v[9*i-12], v[9*i-8], v[9*i-7], v[9*i-6], v[9*i-5], v[9*i-4], v[9*i-3], v[
9*i-2], v[9*i-1], v[9*i], v[9*i+1], v[9*i+2], v[9*i+3]] */
/* enter PartitionList ls = 135839 */
/* final chunk, 135839 */
/* length(li)=135839, nops(li)=19 */
/* input: len=135839, nops=19
output: len=24736, nops=206, in 713 secs
length ratio 5.49, cost: 298*subtractions+583*multiplications+214*additions+14*divisions+45*subscripts+284*functions+206*assignments */
/* 44 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-16];
t2 = v[9*i-13];
t3 = t1*(48877834842646.0e-14)-t2*(20583987474784.0e-14);
t4 = v[9*i-1];
t5 = v[9*i-7];
t6 = t4-t5;
t7 = v[9*i-4];
t8 = v[9*i+2];
t9 = -t7*(31311212044064.0e-14)-t8*(24213487345411.0e-14);
t10 = -t5*(55524699389475.0e-14)-t9;
t11 = bN[i];
t12 = t11*t10;
t13 = DistCA_SC[i];
t14 = 1/t13;
t15 = 153.0e-2*t14;
t16 = cN[i];
t17 = t16*t15;
t18 = t5*(28293847367862.0e-14)+t12+t6*t17-t3;
t19 = aN[i];
t20 = v[9*i-6];
t21 = v[9*i];
t22 = t21-t20;
t23 = v[9*i-2];
t24 = v[9*i-8];
t25 = t23-t24;
t26 = v[9*i+1];
t27 = v[9*i-5];
t28 = -t27*(31311212044064.0e-14)-t26*(24213487345411.0e-14);
t29 = -t24*(55524699389475.0e-14)-t28;
t30 = t29*t15;
t31 = v[9*i-3];
t32 = v[9*i+3];
t33 = t32*(24213487345411.0e-14)+t31*(31311212044064.0e-14);
t34 = -t20*(55524699389475.0e-14)+t33;
t35 = t34*t15;
t36 = t25*t35-t22*t30;
t37 = t19*t36+t18;
t15 *= t10;
t38 = t22*t15-t6*t35;
t39 = v[9*i-14];
t40 = v[9*i-17];
t41 = t40*(48877834842646.0e-14)-t39*(20583987474784.0e-14);
t42 = t11*t29;
t43 = t24*(28293847367862.0e-14)+t42+t25*t17-t41;
t44 = -t43-t19*t38;
t45 = v[9*i-12];
t46 = v[9*i-15];
t47 = -t46*(48877834842646.0e-14)+t45*(20583987474784.0e-14);
t48 = t11*t34;
t49 = t20*(28293847367862.0e-14)+t48+t22*t17+t47;
t50 = t6*t30-t25*t15;
t51 = t49+t19*t50;
t52 = t40*(47780854778099587.0e-17)-t39*(20122014803911725.0e-17);
t53 = t5-t8;
t54 = t24-t26;
t55 = t20-t32;
t53 = sqrt(t54*t54+t53*t53+t55*t55);
t54 = 37895276358021.0e-13-t53;
t55 = t54/t53;
t56 = t27-t26;
t57 = t7-t8;
t58 = t31-t32;
t56 = sqrt(t56*t56+t57*t57+t58*t58);
t57 = 27941364052411.0e-13-t56;
t58 = t57/t56;
t59 = t46*(47780854778099587.0e-17)-t45*(20122014803911725.0e-17);
t60 = -t2*(20122014803911725.0e-17)+t1*(47780854778099587.0e-17);
t61 = t8*(11725859388527573.0e-17)+t7*(15163072731968483.0e-17);
t62 = t26*(11725859388527573.0e-17)+t27*(15163072731968483.0e-17);
t63 = k30*k31;
t64 = t5-t7;
t65 = t20-t31;
t66 = t24-t27;
t64 = sqrt(t66*t66+t64*t64+t65*t65);
t65 = 24008483689129.0e-13-t64;
t66 = t65/t64;
t67 = t32*(11725859388527573.0e-17)+t31*(15163072731968483.0e-17);
t68 = sqrt(t25*t25+t6*t6+t22*t22);
t13 -= t68;
t68 = t13/t68;
t69 = -t40*(20122014803911725.0e-17)+t39*(84740108072412919.0e-18);
t70 = t2*(84740108072412919.0e-18)-t1*(20122014803911725.0e-17);
t71 = -t46*(20122014803911725.0e-17)+t45*(84740108072412919.0e-18);
t72 = t7*(1960783999336677.0e-16)+t8*(15163072731968483.0e-17);
t73 = t26*(15163072731968483.0e-17)+t27*(1960783999336677.0e-16);
t74 = t32*(15163072731968483.0e-17)+t31*(1960783999336677.0e-16);
t75 = t14*t16;
t76 = t14*t19;
t77 = k11*(2);
t78 = t1*(85465875899382.0e-14)-t2*(76224186951882.0e-14)+t5*(907583110525.0e-12);
t79 = -t7+t78;
t80 = t45*(76224186951882.0e-14)-t46*(85465875899382.0e-14)-t20*(907583110525.0e-12);
t81 = -t31-t80;
t82 = t39*(76224186951882.0e-14)-t24*(907583110525.0e-12)-t40*(85465875899382.0e-14);
t83 = -t27-t82;
t79 = t83*t83+t79*t79+t81*t81;
t78 = t4-t78;
t81 = t23+t82;
t80 += t21;
t82 = t81*t81+t78*t78+t80*t80;
t83 = t40*(1460883188649713.0e-15)+t24*(15513477098500949.0e-16)-t39*(13029133805121679.0e-16);
t84 = t26*(2);
t85 = t27*(2);
t86 = (-t85+t84)*t58;
t87 = t39*(11620253352950916.0e-16)-t24*(13835956938205637.0e-16)-t40*(13029133805121679.0e-16);
t88 = t21*(2);
t89 = t20*(2);
t90 = (t88-t89)*t68;
t91 = t31*(2);
t92 = (-t89+t91)*t66;
t93 = t32*(2);
t89 = (-t89+t93)*t55;
t94 = -t5*(13835956938205637.0e-16)+t2*(11620253352950916.0e-16)-t1*(13029133805121679.0e-16);
t95 = t5*(15513477098500949.0e-16)+t1*(1460883188649713.0e-15)-t2*(13029133805121679.0e-16);
t93 = (-t91+t93)*t58;
t96 = t8*(2);
t97 = t7*(2);
t98 = (t97-t96)*t58;
t99 = t20*(15513477098500949.0e-16)+t46*(1460883188649713.0e-15)-t45*(13029133805121679.0e-16);
t100 = t4*(2);
t101 = t5*(2);
t102 = (t100-t101)*t68;
t103 = (-t101+t97)*t66;
t96 = (t101-t96)*t55;
t101 = t24*(2);
t104 = (-t101+t85)*t66;
t84 = (-t101+t84)*t55;
t105 = t23*(2);
t106 = (t105-t101)*t68;
t107 = t45*(11620253352950916.0e-16)-t20*(13835956938205637.0e-16)-t46*(13029133805121679.0e-16);
t108 = t1*(15513477098500949.0e-16)-t2*(13835956938205637.0e-16)+t5*(16474142050204687.0e-16);
t109 = t20*(16474142050204687.0e-16)-t45*(13835956938205637.0e-16)+t46*(15513477098500949.0e-16);
t110 = -t1*(170931751798764.0e-14)-t5*(181516622105.0e-11)+t2*(152448373903764.0e-14);
t111 = -t39*(13835956938205637.0e-16)+t40*(15513477098500949.0e-16)+t24*(16474142050204687.0e-16);
t112 = t39*(152448373903764.0e-14)-t24*(181516622105.0e-11)-t40*(170931751798764.0e-14);
t113 = -t46*(170931751798764.0e-14)-t20*(181516622105.0e-11)+t45*(152448373903764.0e-14);
t114 = (5.0e-1)*t63;
t115 = t21-t31;
t116 = t4-t7;
t117 = t23-t27;
t115 = t117*t117+t116*t116+t115*t115;
t116 = ChargeR[i];
t117 = k39*k30*t116*k32/sqrt(t115);
t118 = (5.0e-1)*t117/t115;
t119 = t5*(27230852021613.0e-14)+t9+t3;
t120 = t24*(27230852021613.0e-14)+t28+t41;
t121 = t20*(27230852021613.0e-14)-t33-t47;
t119 = sqrt(t119*t119+t121*t121+t120*t120);
t120 = 306.0e-2*t14*k11;
t28 += t23-t24*(44475300610525.0e-14);
t33 = t21-t20*(44475300610525.0e-14)-t33;
t9 += t4-t5*(44475300610525.0e-14);
t121 = sqrt(t28*t28+t9*t9+t33*t33);
t41 = t23-t24*(71706152632138.0e-14)-t41;
t3 = t4-t5*(71706152632138.0e-14)-t3;
t47 += t21-t20*(71706152632138.0e-14);
t122 = sqrt(t41*t41+t3*t3+t47*t47);
t123 = (t100-t97)*t118;
t124 = (-t105+t85)*t118;
t118 *= t88-t91;
t125 = DistN_Cpr[i]-t119;
t126 = DistN_R[i]-t122;
t127 = t116/sqrt(t82);
t128 = DistCpr_R[i]-t121;
t129 = t19*(41167974949568.0e-14);
t130 = t19*(97755669685292.0e-14);
t131 = k38*k32/sqrt(t79);
t14 *= 8495279006589675.0e-16;
t132 = 6298700167283904.0e-16*t75;
t75 *= 14956617461849676.0e-16;
t133 = 1/t82*t127;
t134 = 1/t79*t131;
t135 = t51*t11;
t136 = t44*t11;
t137 = t11*t37;
t138 = t125/t119;
t139 = 1/t121*t128;
t122 = t126/t122;
t140 = t133*t114;
t141 = t134*t114;
t142 = (t43*t22-t49*t25+(t38*t22-t50*t25)*t19)*t76;
t143 = (-t18*t22+t49*t6+(-t36*t22+t50*t6)*t19)*t76;
t76 *= -t43*t6+t25*t18+(-t38*t6+t36*t25)*t19;
t11 = -(28293847367862.0e-14)+t11*(55524699389475.0e-14)+t17;
t17 = -t35+t22*t14;
t30 -= t25*t14;
t35 = -t15+t6*t14;
Grad[0] += t117+(t44*t44+t37*t37+t51*t51)*k11+(t127+t131)*t63+(t13*t13+t128*t128+t126*t126+t65*t65+t54*t54+t57*t57+t125*t125)*k10;
Grad[9*i-17] += (-t24*(27658839974187862.0e-17)-t25*t75-t38*t130-(97755669685292.0e-14)*t42+t52)*k11+(-(t24*(26619701754738663.0e-17)-t27*(30608485020256569.0e-17)-t26*(23670056708669956.0e-17)+t52)*t138-(-t23*(97755669685292.0e-14)+t24*(70096829711104138.0e-17)+t52)*t122)*k10+(-(-t23*(170931751798764.0e-14)+t83)*t133-(-t27*(170931751798764.0e-14)+t83)*t134)*t114;
Grad[9*i-16] += (-t5*(27658839974187862.0e-17)-t6*t75-t36*t130-(97755669685292.0e-14)*t12+t60)*k11+(-(t5*(26619701754738663.0e-17)-t7*(30608485020256569.0e-17)-t8*(23670056708669956.0e-17)+t60)*t138-(-t4*(97755669685292.0e-14)+t5*(70096829711104138.0e-17)+t60)*t122)*k10+(-(-t4*(170931751798764.0e-14)+t95)*t133-(-t7*(170931751798764.0e-14)+t95)*t134)*t114;
Grad[9*i-15] += (-t20*(27658839974187862.0e-17)-t22*t75-t50*t130-(97755669685292.0e-14)*t48+t59)*k11+(-(t20*(26619701754738663.0e-17)-t31*(30608485020256569.0e-17)-t32*(23670056708669956.0e-17)+t59)*t138-(-t21*(97755669685292.0e-14)+t20*(70096829711104138.0e-17)+t59)*t122)*k10+(-(-t21*(170931751798764.0e-14)+t99)*t133-(-t31*(170931751798764.0e-14)+t99)*t134)*t114;
Grad[9*i-14] += (t24*(11648003996670433.0e-17)+t25*t132+t38*t129+(41167974949568.0e-14)*t42+t69)*k11+(-(-t24*(11210390338811571.0e-17)+t27*(12890191930706386.0e-17)+t26*(99682024047756182.0e-18)+t69)*t138-(t23*(41167974949568.0e-14)-t24*(29519970952897567.0e-17)+t69)*t122)*k10+(-(t23*(152448373903764.0e-14)+t87)*t133-(t27*(152448373903764.0e-14)+t87)*t134)*t114;
Grad[9*i-13] += (t5*(11648003996670433.0e-17)+t6*t132+t36*t129+(41167974949568.0e-14)*t12+t70)*k11+(-(-t5*(11210390338811571.0e-17)+t7*(12890191930706386.0e-17)+t8*(99682024047756182.0e-18)+t70)*t138-(t4*(41167974949568.0e-14)-t5*(29519970952897567.0e-17)+t70)*t122)*k10+(-(t4*(152448373903764.0e-14)+t94)*t133-(t7*(152448373903764.0e-14)+t94)*t134)*t114;
Grad[9*i-12] += (t20*(11648003996670433.0e-17)+t22*t132+t50*t129+(41167974949568.0e-14)*t48+t71)*k11+(-(-t20*(11210390338811571.0e-17)+t31*(12890191930706386.0e-17)+t32*(99682024047756182.0e-18)+t71)*t138-(t21*(41167974949568.0e-14)-t20*(29519970952897567.0e-17)+t71)*t122)*k10+(-(t21*(152448373903764.0e-14)+t107)*t133-(t31*(152448373903764.0e-14)+t107)*t134)*t114;
Grad[9*i-8] += (-t43*t11+(-t38*t11+t18*t17-t49*t35+(t36*t17-t50*t35)*t19)*t19)*t77+(-(-t23*(181516622105.0e-11)+t111)*t133-(-t27*(181516622105.0e-11)+t111)*t134)*t114+(-(-t23*(8895060122105.0e-13)+t24*(39561047287931309.0e-17)+t27*(27851511362792747.0e-17)+t26*(21538042570325944.0e-17))*t139+t106-(t40*(26619701754738663.0e-17)-t39*(11210390338811571.0e-17)+t24*(14830386036459696.0e-17)-t27*(1705261963578507.0e-16)-t26*(13187077816601718.0e-17))*t138-(-t23*(143412305264276.0e-14)+t40*(70096829711104138.0e-17)-t39*(29519970952897567.0e-17)+t24*(10283544650606943.0e-16))*t122+t104+t84)*k10;
Grad[9*i-7] += (-t18*t11+(-t36*t11+t44*t17-t51*t30)*t19)*t77+(-(-t4*(181516622105.0e-11)+t108)*t133-(-t7*(181516622105.0e-11)+t108)*t134)*t114+(-(-t4*(8895060122105.0e-13)+t5*(39561047287931309.0e-17)+t7*(27851511362792747.0e-17)+t8*(21538042570325944.0e-17))*t139+t102-(t1*(26619701754738663.0e-17)-t2*(11210390338811571.0e-17)+t5*(14830386036459696.0e-17)-t7*(1705261963578507.0e-16)-t8*(13187077816601718.0e-17))*t138-(-t4*(143412305264276.0e-14)+t1*(70096829711104138.0e-17)-t2*(29519970952897567.0e-17)+t5*(10283544650606943.0e-16))*t122+t103-t96)*k10;
Grad[9*i-6] += (-t51*t11+(-t44*t35+t37*t30)*t19)*t77+(-(-t21*(181516622105.0e-11)+t109)*t133-(-t31*(181516622105.0e-11)+t109)*t134)*t114+(-(-t21*(8895060122105.0e-13)+t20*(39561047287931309.0e-17)+t31*(27851511362792747.0e-17)+t32*(21538042570325944.0e-17))*t139+t90-(t46*(26619701754738663.0e-17)-t45*(11210390338811571.0e-17)+t20*(14830386036459696.0e-17)-t31*(1705261963578507.0e-16)-t32*(13187077816601718.0e-17))*t138-(-t21*(143412305264276.0e-14)+t46*(70096829711104138.0e-17)-t45*(29519970952897567.0e-17)+t20*(10283544650606943.0e-16))*t122+t92+t89)*k10;
Grad[9*i-5] += (-(62622424088128.0e-14)*t136+(9581230885483584.0e-16)*t143)*k11-t124-(t85+t112)*t141+(-(-t40*(30608485020256569.0e-17)+t39*(12890191930706386.0e-17)-t24*(1705261963578507.0e-16)+t73)*t138-(-t23*(62622424088128.0e-14)+t24*(27851511362792747.0e-17)+t73)*t139-t104+t86)*k10;
Grad[9*i-4] += ((62622424088128.0e-14)*t137+(9581230885483584.0e-16)*t142)*k11+t123-(t97+t110)*t141+(-(-t1*(30608485020256569.0e-17)+t2*(12890191930706386.0e-17)-t5*(1705261963578507.0e-16)+t72)*t138-(-t4*(62622424088128.0e-14)+t5*(27851511362792747.0e-17)+t72)*t139-t103-t98)*k10;
Grad[9*i-3] += ((62622424088128.0e-14)*t135+(9581230885483584.0e-16)*t76)*k11+t118-(t91+t113)*t141+(-(-t46*(30608485020256569.0e-17)+t45*(12890191930706386.0e-17)-t20*(1705261963578507.0e-16)+t74)*t138-(-t21*(62622424088128.0e-14)+t20*(27851511362792747.0e-17)+t74)*t139-t92+t93)*k10;
Grad[9*i-2] += ((t18*t34-t49*t10+(t36*t34-t50*t10)*t19)*t19-t44*t16)*t120-(t105+t112)*t140+t124+(-(t105-t40*(97755669685292.0e-14)+t39*(41167974949568.0e-14)-t24*(143412305264276.0e-14))*t122-t106-(t105-t24*(8895060122105.0e-13)-t27*(62622424088128.0e-14)-t26*(48426974690822.0e-14))*t139)*k10;
Grad[9*i-1] += ((-t43*t34+t49*t29+(-t38*t34+t50*t29)*t19)*t19+t37*t16)*t120-(t100+t110)*t140-t123+(-(t100-t1*(97755669685292.0e-14)+t2*(41167974949568.0e-14)-t5*(143412305264276.0e-14))*t122-t102-(t100-t5*(8895060122105.0e-13)-t7*(62622424088128.0e-14)-t8*(48426974690822.0e-14))*t139)*k10;
Grad[9*i] += ((-t18*t29+t43*t10+(-t36*t29+t38*t10)*t19)*t19+t51*t16)*t120-(t88+t113)*t140-t118+(-(t88-t46*(97755669685292.0e-14)+t45*(41167974949568.0e-14)-t20*(143412305264276.0e-14))*t122-t90-(t88-t20*(8895060122105.0e-13)-t31*(62622424088128.0e-14)-t32*(48426974690822.0e-14))*t139)*k10;
Grad[9*i+1] += (-(48426974690822.0e-14)*t136+(7409327127695766.0e-16)*t143)*k11+(-t84-t86-(-t40*(23670056708669956.0e-17)+t39*(99682024047756182.0e-18)-t24*(13187077816601718.0e-17)+t62)*t138-(-t23*(48426974690822.0e-14)+t24*(21538042570325944.0e-17)+t62)*t139)*k10;
Grad[9*i+2] += ((48426974690822.0e-14)*t137+(7409327127695766.0e-16)*t142)*k11+(t96+t98-(-t1*(23670056708669956.0e-17)+t2*(99682024047756182.0e-18)-t5*(13187077816601718.0e-17)+t61)*t138-(-t4*(48426974690822.0e-14)+t5*(21538042570325944.0e-17)+t61)*t139)*k10;
Grad[9*i+3] += ((48426974690822.0e-14)*t135+(7409327127695766.0e-16)*t76)*k11+(-t89-t93-(-t46*(23670056708669956.0e-17)+t45*(99682024047756182.0e-18)-t20*(13187077816601718.0e-17)+t67)*t138-(-t21*(48426974690822.0e-14)+t20*(21538042570325944.0e-17)+t67)*t139)*k10;
for( j=i+1; j <= lastaa; j++ ) {
if( j==i+1 ) {
/* final chunk, 1945 */
/* vars = [v[9*i-17], v[9*i-16], v[9*i-15], v[9*i-14], v[9*i-13], v[9*i-12],
v[9*i-8], v[9*i-7], v[9*i-6], v[9*i-5], v[9*i-4], v[9*i-3], v[9*i-2], v[9*i-1]
, v[9*i], v[9*i+1], v[9*i+2], v[9*i+3], v[9*i+4], v[9*i+5], v[9*i+6], v[9*i+7]
, v[9*i+8], v[9*i+9]] */
/* enter PartitionList ls = 191779 */
/* final chunk, 191779 */
/* length(li)=191779, nops(li)=25 */
/* input: len=191779, nops=25
output: len=20859, nops=205, in 602 secs
length ratio 9.19, cost: 232*subtractions+493*multiplications+172*additions+19*divisions+51*subscripts+241*functions+205*assignments */
/* 43 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-7];
t2 = v[9*i-16];
t3 = v[9*i-13];
t4 = t2*(85465875899382.0e-14)-t3*(76224186951882.0e-14);
t5 = t1*(907583110525.0e-12)+t4;
t6 = v[9*i+5];
t7 = -t6+t5;
t8 = v[9*i-8];
t9 = v[9*i-17];
t10 = v[9*i-14];
t11 = -t10*(76224186951882.0e-14)+t9*(85465875899382.0e-14);
t12 = t8*(907583110525.0e-12)+t11;
t13 = v[9*i+4];
t14 = -t13+t12;
t15 = v[9*i+6];
t16 = v[9*i-6];
t17 = v[9*i-15];
t18 = v[9*i-12];
t19 = t17*(85465875899382.0e-14)-t18*(76224186951882.0e-14);
t20 = t16*(907583110525.0e-12)+t19;
t21 = -t15+t20;
t22 = -t2*(36588041056736.0e-14)+t3*(55640199477098.0e-14)-t1*(19052158420362.0e-14);
t23 = -t17*(36588041056736.0e-14)+t18*(55640199477098.0e-14)-t16*(19052158420362.0e-14);
t24 = -t9*(36588041056736.0e-14)+t10*(55640199477098.0e-14)-t8*(19052158420362.0e-14);
t25 = t14*t24+t7*t22+t21*t23;
t26 = t24*t24+t23*t23+t22*t22;
t7 = t14*t14+t7*t7+t21*t21;
t14 = 1/sqrt(t7);
t21 = 1/sqrt(t26)*t14;
t27 = t25*t21;
t28 = t27-1;
t29 = 1/(1+k37*t28*t28);
t28 *= t29*t29*k37*t14*(2);
t30 = t28*t21;
t31 = 1/t7;
t32 = t31*(5.0e-1);
t29 *= t14;
t33 = t29*t32;
t27 = -t33+t27*t32*t28;
t32 = v[9*i+2];
t34 = v[9*i-4];
t35 = t32*(16474142050204687.0e-16)-t34*(13835956938205637.0e-16);
t36 = -t32*(13835956938205637.0e-16)+t34*(11620253352950916.0e-16);
t37 = t32*(15513477098500949.0e-16)-t34*(13029133805121679.0e-16);
t38 = v[9*i+3];
t39 = v[9*i-3];
t40 = -t38*(13835956938205637.0e-16)+t39*(11620253352950916.0e-16);
t41 = t38*(15513477098500949.0e-16)-t39*(13029133805121679.0e-16);
t42 = v[9*i-5];
t43 = v[9*i+1];
t44 = -t43*(13835956938205637.0e-16)+t42*(11620253352950916.0e-16);
t45 = t9*(1460883188649713.0e-15)-t10*(13029133805121679.0e-16);
t46 = t42*(13029133805121679.0e-16)-t43*(15513477098500949.0e-16);
t47 = -t39*(13835956938205637.0e-16)+t38*(16474142050204687.0e-16);
t48 = -t18*(13835956938205637.0e-16)+t17*(15513477098500949.0e-16);
t49 = t17*(1460883188649713.0e-15)-t18*(13029133805121679.0e-16);
t50 = t18*(11620253352950916.0e-16)-t17*(13029133805121679.0e-16);
t51 = t9*(15513477098500949.0e-16)-t10*(13835956938205637.0e-16);
t52 = -t3*(13835956938205637.0e-16)+t2*(15513477098500949.0e-16);
t53 = t10*(11620253352950916.0e-16)-t9*(13029133805121679.0e-16);
t54 = -t2*(13029133805121679.0e-16)+t3*(11620253352950916.0e-16);
t55 = t2*(1460883188649713.0e-15)-t3*(13029133805121679.0e-16);
t56 = -t42*(13835956938205637.0e-16)+t43*(16474142050204687.0e-16);
t57 = k30*k32;
t58 = t39*(76224186951882.0e-14)-t38*(907583110525.0e-12);
t59 = t42*(76224186951882.0e-14)-t43*(907583110525.0e-12);
t60 = t34*(76224186951882.0e-14)-t32*(907583110525.0e-12);
t4 += t1*(5292435153118.0e-14)+t60;
t11 += t8*(5292435153118.0e-14)+t59;
t19 += t16*(5292435153118.0e-14)+t58;
t61 = t11*t11+t4*t4+t19*t19;
t62 = k39*t57;
t63 = t8*(15513477098500949.0e-16);
t64 = t63+t45;
t65 = v[9*i+9];
t20 -= t65;
t66 = v[9*i+8];
t5 -= t66;
t67 = v[9*i+7];
t12 -= t67;
t68 = t12*t12+t5*t5+t20*t20;
t57 *= k31;
t69 = t16*(15513477098500949.0e-16);
t70 = t69+t49;
t71 = -t16*(13835956938205637.0e-16)+t50;
t72 = -t8*(13835956938205637.0e-16)+t53;
t73 = -t1*(13835956938205637.0e-16)+t54;
t74 = t1*(15513477098500949.0e-16);
t75 = t74+t55;
t76 = v[9*i-1];
t60 += t76-t1*(85465875899382.0e-14);
t77 = v[9*i-2];
t59 += t77-t8*(85465875899382.0e-14);
t78 = v[9*i];
t58 += t78-t16*(85465875899382.0e-14);
t79 = t59*t59+t60*t60+t58*t58;
t80 = t16*(16474142050204687.0e-16)+t48;
t81 = t8*(16474142050204687.0e-16)+t51;
t82 = t1*(16474142050204687.0e-16)+t52;
t83 = t10*(152448373903764.0e-14)-t9*(170931751798764.0e-14)-t8*(181516622105.0e-11);
t84 = -t1*(181516622105.0e-11)-t2*(170931751798764.0e-14)+t3*(152448373903764.0e-14);
t85 = k30*(5.0e-1);
t86 = k39*(5.0e-1);
t87 = -t17*(170931751798764.0e-14)+t18*(152448373903764.0e-14)-t16*(181516622105.0e-11);
t88 = ChargeR[i];
t89 = ChargeR[i+1];
t90 = t76-t66;
t91 = t77-t67;
t92 = t78-t65;
t90 = t90*t90+t91*t91+t92*t92;
t91 = k30*t88*t89/sqrt(t90);
t92 = t91/t90*(5.0e-1);
t93 = t34-t6;
t94 = t39-t15;
t95 = t42-t13;
t93 = t95*t95+t93*t93+t94*t94;
t94 = k30*k32*k32/sqrt(t93);
t95 = 1/t93*t94*(5.0e-1);
t96 = t42-t67;
t97 = t34-t66;
t98 = t39-t65;
t96 = t96*t96+t97*t97+t98*t98;
t97 = t89/sqrt(t96)*t62;
t98 = t97/t96*(5.0e-1);
t99 = t76-t6;
t100 = t77-t13;
t101 = t78-t15;
t99 = t100*t100+t99*t99+t101*t101;
t62 *= t88/sqrt(t99);
t100 = t62/t99*(5.0e-1);
t50 = t16*(80682313308395734.0e-18)-t50+t40;
t53 = t8*(80682313308395734.0e-18)-t53+t44;
t54 = t1*(80682313308395734.0e-18)-t54+t36;
t101 = t42*(2);
t102 = t13*(2);
t103 = (-t101+t102)*t95;
t104 = t67*(2);
t105 = (-t101+t104)*t98;
t106 = t34*(2);
t107 = t6*(2);
t108 = (-t106+t107)*t95;
t109 = t66*(2);
t106 = (-t106+t109)*t98;
t110 = t39*(2);
t111 = t15*(2);
t112 = (-t110+t111)*t95;
t113 = t65*(2);
t110 = (-t110+t113)*t98;
t114 = t76*(2);
t115 = (-t114+t109)*t92;
t116 = t78*(2);
t117 = (-t116+t111)*t100;
t118 = (-t116+t113)*t92;
t119 = t77*(2);
t120 = (t119-t102)*t100;
t121 = (t114-t107)*t100;
t122 = (t119-t104)*t92;
t123 = k31*k31/sqrt(t61);
t88 /= sqrt(t79);
t89 /= sqrt(t68);
t61 = 1/t61*t123;
t79 = 1/t79*t88;
t68 = 1/t68*t89;
t25 *= (5.0e-1);
t124 = (5.0e-1)*t61;
t125 = k31*k39*t79;
t126 = t68*t86;
t31 *= t21;
t26 = 1/t26*t21;
t127 = k30*k31*t126;
t128 = t125*t85;
t129 = -t15*(181516622105.0e-11)+t80;
t130 = -t6*(181516622105.0e-11)+t82;
t131 = -t13*(181516622105.0e-11)+t81;
t132 = -t13*(170931751798764.0e-14)+t64;
t133 = -t6*(170931751798764.0e-14)+t75;
t134 = -t15*(170931751798764.0e-14)+t70;
t135 = t6*(152448373903764.0e-14)+t73;
t136 = t15*(152448373903764.0e-14)+t71;
t137 = t13*(152448373903764.0e-14)+t72;
Grad[0] += t62+t91+t97+t94+(t123+(k32*t29+(t88+t89)*k39)*k31)*k30;
Grad[9*i-17] += (-(t8*(90464521200381952.0e-18)+t46+t45)*t124+(-(-t67*(170931751798764.0e-14)+t64)*t126+(-t132*t33-((-t9*(62540579527129849.0e-17)+t10*(7544232065238296.0e-16)-t8*(49489782181989112.0e-17)+t13*(36588041056736.0e-14))*t21+(-t132*t31-(t9*(26773694967387984.0e-17)-t10*(40715318057460851.0e-17)+t8*(13941623090072867.0e-17))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-16] += (-(t1*(90464521200381952.0e-18)+t55-t37)*t124+(-(-t66*(170931751798764.0e-14)+t75)*t126+(-t133*t33-((-t2*(62540579527129849.0e-17)+t3*(7544232065238296.0e-16)-t1*(49489782181989112.0e-17)+t6*(36588041056736.0e-14))*t21+(-t133*t31-(t2*(26773694967387984.0e-17)-t3*(40715318057460851.0e-17)+t1*(13941623090072867.0e-17))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-15] += (-(t16*(90464521200381952.0e-18)+t49-t41)*t124+(-(-t65*(170931751798764.0e-14)+t70)*t126+(-t134*t33-((-t17*(62540579527129849.0e-17)+t18*(7544232065238296.0e-16)-t16*(49489782181989112.0e-17)+t15*(36588041056736.0e-14))*t21+(-t134*t31-(t17*(26773694967387984.0e-17)-t18*(40715318057460851.0e-17)+t16*(13941623090072867.0e-17))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-14] += (t53*t124+(-(t67*(152448373903764.0e-14)+t72)*t126+(-t137*t33-((t9*(7544232065238296.0e-16)-t10*(84822579339646501.0e-17)+t8*(65020458164361541.0e-17)-t13*(55640199477098.0e-14))*t21+(-t137*t31-(-t9*(40715318057460851.0e-17)+t10*(61916635957025131.0e-17)-t8*(2120131789956428.0e-16))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-13] += (t54*t124+(-(t66*(152448373903764.0e-14)+t73)*t126+(-t135*t33-((t2*(7544232065238296.0e-16)-t3*(84822579339646501.0e-17)+t1*(65020458164361541.0e-17)-t6*(55640199477098.0e-14))*t21+(-t135*t31-(-t2*(40715318057460851.0e-17)+t3*(61916635957025131.0e-17)-t1*(2120131789956428.0e-16))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-12] += (t50*t124+(-(t65*(152448373903764.0e-14)+t71)*t126+(-t136*t33-((t17*(7544232065238296.0e-16)-t18*(84822579339646501.0e-17)+t16*(65020458164361541.0e-17)-t15*(55640199477098.0e-14))*t21+(-t136*t31-(-t17*(40715318057460851.0e-17)+t18*(61916635957025131.0e-17)-t16*(2120131789956428.0e-16))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-8] += (-(t9*(90464521200381952.0e-18)+t8*(56019739699918296.0e-19)-t43*(96066495170373782.0e-18)+(-t10+t42)*(80682313308395734.0e-18))*t124+((-(-t77*(170931751798764.0e-14)+t8*(1460883188649713.0e-15)-t46)*t79-(-t67*(181516622105.0e-11)+t81)*t68)*t86+(-t131*t33-((-t9*(49489782181989112.0e-17)+t10*(65020458164361541.0e-17)-t8*(34582834402734429.0e-17)+t13*(19052158420362.0e-14))*t21+(-t131*t31-(t9*(13941623090072867.0e-17)-t10*(2120131789956428.0e-16)+t8*(72596948094914132.0e-18))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-7] += (-(t2*(90464521200381952.0e-18)+t1*(56019739699918296.0e-19)-t32*(96066495170373782.0e-18)+(-t3+t34)*(80682313308395734.0e-18))*t124+((-(-t76*(170931751798764.0e-14)+t1*(1460883188649713.0e-15)+t37)*t79-(-t66*(181516622105.0e-11)+t82)*t68)*t86+(-t130*t33-((-t2*(49489782181989112.0e-17)+t3*(65020458164361541.0e-17)-t1*(34582834402734429.0e-17)+t6*(19052158420362.0e-14))*t21+(-t130*t31-(t2*(13941623090072867.0e-17)-t3*(2120131789956428.0e-16)+t1*(72596948094914132.0e-18))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-6] += (-(t17*(90464521200381952.0e-18)+t16*(56019739699918296.0e-19)-t38*(96066495170373782.0e-18)+(-t18+t39)*(80682313308395734.0e-18))*t124+((-(-t78*(170931751798764.0e-14)+t16*(1460883188649713.0e-15)+t41)*t79-(-t65*(181516622105.0e-11)+t80)*t68)*t86+(-t129*t33-((-t17*(49489782181989112.0e-17)+t18*(65020458164361541.0e-17)-t16*(34582834402734429.0e-17)+t15*(19052158420362.0e-14))*t21+(-t129*t31-(t17*(13941623090072867.0e-17)-t18*(2120131789956428.0e-16)+t16*(72596948094914132.0e-18))*t26)*t25)*t28)*k32)*k31)*k30;
Grad[9*i-5] += t103+t105+(-(t77*(152448373903764.0e-14)-t8*(13029133805121679.0e-16)+t44)*t125-t53*t61)*t85;
Grad[9*i-4] += t108+t106+(-(t76*(152448373903764.0e-14)-t1*(13029133805121679.0e-16)+t36)*t125-t54*t61)*t85;
Grad[9*i-3] += t112+t110+(-(t78*(152448373903764.0e-14)-t16*(13029133805121679.0e-16)+t40)*t125-t50*t61)*t85;
Grad[9*i-2] += -(t119-t8*(170931751798764.0e-14)+t42*(152448373903764.0e-14)-t43*(181516622105.0e-11))*t128-t120-t122;
Grad[9*i-1] += -(t114-t1*(170931751798764.0e-14)+t34*(152448373903764.0e-14)-t32*(181516622105.0e-11))*t128-t121+t115;
Grad[9*i] += -(t116-t16*(170931751798764.0e-14)+t39*(152448373903764.0e-14)-t38*(181516622105.0e-11))*t128+t117+t118;
Grad[9*i+1] += (-(-t77*(181516622105.0e-11)+t63+t56)*t125-(-t8*(96066495170373782.0e-18)+t56-t51)*t61)*t85;
Grad[9*i+2] += (-(-t76*(181516622105.0e-11)+t74+t35)*t125-(-t1*(96066495170373782.0e-18)-t52+t35)*t61)*t85;
Grad[9*i+3] += (-(-t78*(181516622105.0e-11)+t69+t47)*t125-(-t16*(96066495170373782.0e-18)-t48+t47)*t61)*t85;
Grad[9*i+4] += t120-t103+(t24*t30+t27*(t102+t83))*t57;
Grad[9*i+5] += t121-t108+(t22*t30+t27*(t107+t84))*t57;
Grad[9*i+6] += -t117-t112+(t23*t30+t27*(t111+t87))*t57;
Grad[9*i+7] += t122-(t104+t83)*t127-t105;
Grad[9*i+8] += -t115-(t109+t84)*t127-t106;
Grad[9*i+9] += -t118-(t113+t87)*t127-t110;
} else if( j==i+2 ) {
/* vars = [v[9*i-17], v[9*i-16], v[9*i-15], v[9*i-14], v[9*i-13], v[9*i-12],
v[9*i-8], v[9*i-7], v[9*i-6], v[9*i-5], v[9*i-4], v[9*i-3], v[9*i-2], v[9*i-1]
, v[9*i], v[9*i+1], v[9*i+2], v[9*i+3], v[9*i+4], v[9*i+5], v[9*i+6], v[9*i+10]
, v[9*i+11], v[9*i+12], v[9*i+13], v[9*i+14], v[9*i+15], v[9*i+16], v[9*i+17],
v[9*i+18], v[9*i+19], v[9*i+20], v[9*i+21]] */
/* enter PartitionList ls = 1145168 */
/* final chunk, 1145168 */
/* length(li)=1145168, nops(li)=34 */
/* input: len=1145168, nops=34
output: len=90439, nops=785, in 6827 secs
length ratio 12.66, cost: 869*subtractions+2025*multiplications+951*additions+51*divisions+71*subscripts+967*functions+785*assignments */
/* 200 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i+6];
t2 = v[9*i+12];
t3 = -t1*(29519970952897567.0e-17)+t2*(10283544650606943.0e-16);
t4 = v[9*i+3];
t5 = t4*(70096829711104138.0e-17)+t3;
t6 = v[9*i+2];
t7 = v[9*i+5];
t8 = v[9*i+11];
t9 = -t7*(29519970952897567.0e-17)+t8*(10283544650606943.0e-16);
t10 = t6*(70096829711104138.0e-17)+t9;
t11 = -t7*(13835956938205637.0e-16)+t8*(16474142050204687.0e-16);
t12 = t6*(15513477098500949.0e-16)+t11;
t13 = v[9*i+4];
t14 = v[9*i+10];
t15 = -t13*(29519970952897567.0e-17)+t14*(10283544650606943.0e-16);
t16 = v[9*i+1];
t17 = t16*(70096829711104138.0e-17)+t15;
t18 = t1*(84740108072412919.0e-18)-t2*(29519970952897567.0e-17);
t19 = -t4*(20122014803911725.0e-17)+t18;
t20 = t7*(84740108072412919.0e-18)-t8*(29519970952897567.0e-17);
t21 = -t6*(20122014803911725.0e-17)+t20;
t22 = -t14*(29519970952897567.0e-17)+t13*(84740108072412919.0e-18);
t23 = -t16*(20122014803911725.0e-17)+t22;
t24 = t13*(76224186951882.0e-14)-t14*(907583110525.0e-12);
t25 = -t16*(85465875899382.0e-14)+t24;
t26 = t7*(76224186951882.0e-14)-t8*(907583110525.0e-12);
t27 = -t6*(85465875899382.0e-14)+t26;
t28 = t1*(76224186951882.0e-14)-t2*(907583110525.0e-12);
t29 = -t4*(85465875899382.0e-14)+t28;
t30 = t13*(11620253352950916.0e-16)-t14*(13835956938205637.0e-16);
t31 = -t16*(13029133805121679.0e-16)+t30;
t32 = t1*(11620253352950916.0e-16)-t2*(13835956938205637.0e-16);
t33 = -t4*(13029133805121679.0e-16)+t32;
t34 = t7*(11620253352950916.0e-16)-t8*(13835956938205637.0e-16);
t35 = -t6*(13029133805121679.0e-16)+t34;
t36 = v[9*i-3];
t37 = -t36-t29;
t38 = v[9*i-4];
t39 = -t38-t27;
t40 = v[9*i-5];
t41 = -t40-t25;
t42 = t41*t41+t39*t39+t37*t37;
t43 = 1/t42;
t44 = t43*(5.0e-1);
t45 = v[9*i-6];
t46 = t36*(15163072731968483.0e-17)+t45*(21538042570325944.0e-17)+t4*(11725859388527573.0e-17);
t47 = v[9*i+19];
t48 = v[9*i+13];
t49 = -t48*(31311212044064.0e-14)-t47*(24213487345411.0e-14)-t14*(44475300610525.0e-14);
t50 = v[9*i-8];
t51 = t40*(31311212044064.0e-14)+t50*(44475300610525.0e-14);
t52 = t16*(24213487345411.0e-14)+t51;
t53 = t52+t49;
t54 = v[9*i-7];
t55 = t38*(31311212044064.0e-14)+t54*(44475300610525.0e-14);
t56 = t6*(24213487345411.0e-14)+t55;
t57 = v[9*i+20];
t58 = v[9*i+14];
t59 = -t58*(31311212044064.0e-14)-t57*(24213487345411.0e-14)-t8*(44475300610525.0e-14);
t60 = t59+t56;
t61 = t36*(31311212044064.0e-14)+t45*(44475300610525.0e-14);
t62 = t4*(24213487345411.0e-14)+t61;
t63 = v[9*i+21];
t64 = v[9*i+15];
t65 = -t63*(24213487345411.0e-14)-t64*(31311212044064.0e-14)-t2*(44475300610525.0e-14);
t66 = t65+t62;
t53 = 1/(t53*t53+t60*t60+t66*t66);
t60 = t53*t53;
t66 = t53*t60;
t67 = t53*t66;
t68 = t60*t67;
t67 = t68*t53*(100663296)-t67*(24576);
t69 = t2*(21538042570325944.0e-17)+t64*(15163072731968483.0e-17)+t63*(11725859388527573.0e-17);
t70 = t67*(-t46+t69);
t71 = t38*(15163072731968483.0e-17)+t6*(11725859388527573.0e-17)+t54*(21538042570325944.0e-17);
t72 = t57*(11725859388527573.0e-17)+t58*(15163072731968483.0e-17)+t8*(21538042570325944.0e-17);
t73 = t67*(t72-t71);
t74 = t40*(15163072731968483.0e-17)+t50*(21538042570325944.0e-17)+t16*(11725859388527573.0e-17);
t75 = t47*(11725859388527573.0e-17)+t48*(15163072731968483.0e-17)+t14*(21538042570325944.0e-17);
t76 = t67*(t74-t75);
t77 = v[9*i+18];
t78 = v[9*i];
t79 = t78-t77;
t80 = v[9*i+16];
t81 = v[9*i-2];
t82 = t81-t80;
t83 = v[9*i+17];
t84 = v[9*i-1];
t85 = -t83+t84;
t79 = t82*t82+t85*t85+t79*t79;
t82 = 1/t79;
t85 = t82*t82;
t86 = t82*t85;
t87 = t82*t86;
t88 = RadiusR[i+2];
t89 = RadiusR[i];
t90 = t88+t89;
t91 = t90*t90;
t90 *= t91;
t91 = t90*t90;
t92 = t91*t91*t85*t87;
t93 = ChargeR[i+2];
t94 = ChargeR[i];
t95 = k30*t94*t93/sqrt(t79);
t87 = -t82*t95*(5.0e-1)+(-t82*t92+t91*t87)*(6);
t96 = t78*(2);
t97 = t77*(2);
t98 = t87*(t96-t97);
t99 = t84*(2);
t100 = t83*(2);
t101 = t87*(t99-t100);
t102 = t81*(2);
t103 = t80*(2);
t104 = t87*(t102-t103);
t105 = -t1*(13835956938205637.0e-16)+t2*(16474142050204687.0e-16);
t106 = t4*(15513477098500949.0e-16)+t105;
t107 = t89+(12.0e-1);
t108 = t107*t107;
t107 *= t108;
t108 = t107*t107;
t109 = t78+t29;
t110 = t84+t27;
t111 = t81+t25;
t109 = t111*t111+t110*t110+t109*t109;
t110 = 1/t109;
t111 = t110*t110;
t112 = t110*t111;
t113 = t112*t110;
t114 = t108*t108*t111*t113;
t115 = t84-t8;
t116 = t81-t14;
t117 = t78-t2;
t115 = 1/(t117*t117+t116*t116+t115*t115);
t116 = t115*t115;
t117 = t115*t116;
t118 = t115*t117;
t119 = (6)*t118;
t120 = t89+(2);
t121 = t120*t120;
t120 *= t121;
t121 = t120*t120;
t122 = t121*t121;
t123 = t122*(6);
t118 *= t116;
t124 = t118*t115;
t125 = t119*t121-t124*t123;
t126 = t14*(2);
t127 = t125*(t102-t126);
t128 = v[9*i-13];
t129 = v[9*i-16];
t130 = t129*(48877834842646.0e-14)+t54*(71706152632138.0e-14)-t128*(20583987474784.0e-14);
t131 = -t83+t130;
t132 = v[9*i-15];
t133 = v[9*i-12];
t134 = t132*(48877834842646.0e-14)-t133*(20583987474784.0e-14)+t45*(71706152632138.0e-14);
t135 = -t77+t134;
t136 = v[9*i-17];
t137 = v[9*i-14];
t138 = t136*(48877834842646.0e-14)+t50*(71706152632138.0e-14)-t137*(20583987474784.0e-14);
t139 = -t80+t138;
t131 = 1/(t139*t139+t131*t131+t135*t135);
t135 = t131*t131;
t139 = t131*t135;
t140 = t131*t139;
t141 = (15.0e-1)+t88;
t142 = t141*t141;
t141 *= t142;
t142 = t141*t141;
t143 = t142*t142*t135*t140;
t144 = t2*(2);
t145 = t125*(-t96+t144);
t146 = t136*(85465875899382.0e-14)-t137*(76224186951882.0e-14)+t50*(907583110525.0e-12);
t147 = -t80+t146;
t148 = t129*(85465875899382.0e-14)-t128*(76224186951882.0e-14)+t54*(907583110525.0e-12);
t149 = -t83+t148;
t150 = t132*(85465875899382.0e-14)-t133*(76224186951882.0e-14)+t45*(907583110525.0e-12);
t151 = -t77+t150;
t147 = t147*t147+t149*t149+t151*t151;
t149 = 1/t147;
t151 = t149*t149;
t152 = t149*t151;
t153 = t149*t152;
t154 = (12.0e-1)+t88;
t155 = t154*t154;
t154 *= t155;
t155 = t154*t154;
t156 = t155*t155*t151*t153;
t157 = t38*(2);
t158 = (14.0e-1)+t88;
t159 = t158*t158;
t158 *= t159;
t159 = t158*t158;
t160 = t40-t80;
t161 = t36-t77;
t162 = t38-t83;
t160 = t160*t160+t162*t162+t161*t161;
t161 = 1/t160;
t162 = t161*t161;
t163 = t161*t162;
t164 = t161*t163;
t165 = t159*t159*t162*t164;
t166 = k30*k32;
t167 = k39*t166;
t168 = t93/sqrt(t160)*t167;
t164 = -t161*t168*(5.0e-1)+(t159*t164-t161*t165)*(6);
t169 = t164*(t157-t100);
t170 = t40*(2);
t171 = t164*(t170-t103);
t172 = t36*(2);
t173 = t164*(t172-t97);
t174 = t50*(2);
t175 = t54-t58;
t176 = t50-t48;
t177 = t45-t64;
t175 = 1/(t176*t176+t175*t175+t177*t177);
t176 = t175*t175;
t177 = t175*t176;
t178 = t175*t177;
t179 = t176*t178;
t178 = -t178*(9268826496.0e-6)+t179*t175*(14318524102158606.0e-9);
t180 = t48*(2);
t181 = t178*(t174-t180);
t182 = t54*(2);
t183 = t58*(2);
t184 = t178*(t182-t183);
t185 = t45*(2);
t186 = t64*(2);
t187 = t178*(t185-t186);
t188 = t89+(14.0e-1);
t189 = t188*t188;
t188 *= t189;
t189 = t188*t188;
t190 = t78-t64;
t191 = t84-t58;
t192 = t81-t48;
t190 = t192*t192+t191*t191+t190*t190;
t191 = 1/t190;
t192 = t191*t191;
t193 = t191*t192;
t194 = t191*t193;
t195 = t189*t189*t192*t194;
t196 = t38-t8;
t197 = t36-t2;
t198 = t40-t14;
t196 = 1/(t198*t198+t196*t196+t197*t197);
t197 = t196*t196;
t198 = t196*t197;
t199 = t196*t198;
t200 = t197*t199;
t199 = t200*t196*(14318524102158606.0e-9)-t199*(9268826496.0e-6);
t201 = t199*(t170-t126);
t202 = t8*(2);
t203 = t199*(t157-t202);
t204 = t199*(t172-t144);
t205 = t14*(16474142050204687.0e-16)-t13*(13835956938205637.0e-16);
t206 = t16*(15513477098500949.0e-16)+t205;
t167 *= t94/sqrt(t190);
t194 = -t191*t167*(5.0e-1)+(t189*t194-t191*t195)*(6);
t207 = t194*(t99-t183);
t208 = t194*(t102-t180);
t209 = t50-t80;
t210 = t54-t83;
t211 = t45-t77;
t209 = 1/(t209*t209+t210*t210+t211*t211);
t210 = t209*t209;
t211 = t209*t210;
t212 = t209*t211;
t213 = t210*t212;
t214 = t213*t209*(6);
t88 += (2);
t215 = t88*t88;
t215 *= t88;
t216 = t215*t215;
t217 = t216*t216;
t212 *= (6);
t218 = -t216*t212+t217*t214;
t219 = t218*(t182-t100);
t220 = t218*(t174-t103);
t221 = t194*(-t96+t186);
t89 += (15.0e-1);
t222 = t89*t89;
t222 *= t89;
t223 = t222*t222;
t224 = t1*(20583987474784.0e-14)-t2*(71706152632138.0e-14);
t225 = -t4*(48877834842646.0e-14)+t224;
t226 = t78+t225;
t227 = t7*(20583987474784.0e-14)-t8*(71706152632138.0e-14);
t228 = -t6*(48877834842646.0e-14)+t227;
t229 = t84+t228;
t230 = -t14*(71706152632138.0e-14)+t13*(20583987474784.0e-14);
t231 = -t16*(48877834842646.0e-14)+t230;
t232 = t81+t231;
t226 = 1/(t232*t232+t229*t229+t226*t226);
t229 = t226*t226;
t232 = t226*t229;
t233 = t226*t232;
t234 = t223*t223*t229*t233;
t235 = -t1*(20122014803911725.0e-17)+t4*(47780854778099587.0e-17)+t2*(70096829711104138.0e-17);
t236 = -t7*(20122014803911725.0e-17)+t8*(70096829711104138.0e-17)+t6*(47780854778099587.0e-17);
t237 = t14*(70096829711104138.0e-17)-t13*(20122014803911725.0e-17)+t16*(47780854778099587.0e-17);
t238 = t4*(1460883188649713.0e-15)+t2*(15513477098500949.0e-16)-t1*(13029133805121679.0e-16);
t239 = t6*(1460883188649713.0e-15)+t8*(15513477098500949.0e-16)-t7*(13029133805121679.0e-16);
t240 = -t13*(13029133805121679.0e-16)+t16*(1460883188649713.0e-15)+t14*(15513477098500949.0e-16);
t42 = 1/sqrt(t42);
t241 = -t58+t148;
t242 = -t48+t146;
t243 = -t64+t150;
t244 = t242*t242+t241*t241+t243*t243;
t245 = 1/sqrt(t244);
t166 *= k31;
t246 = k37*(2);
t247 = t136*(36588041056736.0e-14)-t137*(55640199477098.0e-14)+t50*(19052158420362.0e-14);
t248 = t129*(36588041056736.0e-14)-t128*(55640199477098.0e-14)+t54*(19052158420362.0e-14);
t249 = t132*(36588041056736.0e-14)-t133*(55640199477098.0e-14)+t45*(19052158420362.0e-14);
t250 = t248*t248+t249*t249+t247*t247;
t251 = 1/sqrt(t250);
t241 = -t242*t247-t241*t248-t243*t249;
t242 = t245*t241;
t243 = t251*t242-1;
t252 = 1/(1+k37*t243*t243);
t251 *= t243*t245*t252*t252*t246;
t253 = t245*t166*t251;
t254 = -t132*(13029133805121679.0e-16)+t133*(11620253352950916.0e-16)-t45*(13835956938205637.0e-16);
t255 = t254-t33;
t256 = t133*(84740108072412919.0e-18)-t45*(29519970952897567.0e-17)-t132*(20122014803911725.0e-17);
t257 = t130+t228;
t258 = t134+t225;
t259 = t138+t231;
t257 = 1/(t259*t259+t257*t257+t258*t258);
t258 = t257*t257;
t259 = t257*t258;
t260 = t257*t259;
t261 = t258*t260;
t260 = 4374*t260-3188646*t261*t257;
t262 = t27+t148;
t263 = t29+t150;
t264 = t25+t146;
t262 = t264*t264+t262*t262+t263*t263;
t263 = 1/t262;
t264 = t263*t263;
t265 = t263*t264;
t266 = t263*t265;
t267 = t264*t266;
t266 = -1146617856.0e-6*t266+21912208461633946.0e-11*t267*t263;
t268 = -t260*(t256-t19)+t266*t255;
t269 = t128*(84740108072412919.0e-18)-t54*(29519970952897567.0e-17)-t129*(20122014803911725.0e-17);
t270 = t128*(11620253352950916.0e-16)-t129*(13029133805121679.0e-16)-t54*(13835956938205637.0e-16);
t271 = t270-t35;
t272 = -t260*(t269-t21)+t266*t271;
t273 = -t133*(13029133805121679.0e-16)+t132*(1460883188649713.0e-15)+t45*(15513477098500949.0e-16);
t274 = t273-t238;
t275 = -t133*(20122014803911725.0e-17)+t132*(47780854778099587.0e-17)+t45*(70096829711104138.0e-17);
t276 = -t260*(t275-t235)+t266*t274;
t277 = -t128*(20122014803911725.0e-17)+t129*(47780854778099587.0e-17)+t54*(70096829711104138.0e-17);
t278 = t54*(15513477098500949.0e-16)+t129*(1460883188649713.0e-15)-t128*(13029133805121679.0e-16);
t279 = t278-t239;
t280 = -t260*(t277-t236)+t266*t279;
t281 = t48*(1960783999336677.0e-16)+t47*(15163072731968483.0e-17)+t14*(27851511362792747.0e-17);
t282 = t36-t64;
t283 = t40-t48;
t284 = t38-t58;
t282 = t282*t282+t283*t283+t284*t284;
t283 = 1/t282;
t284 = t283*t283;
t285 = t283*t284;
t286 = t283*t285;
t287 = k30*k32*k32/sqrt(t282);
t288 = t284*t286;
t286 = -2891341824.0e-6*t286+(13933095905352745.0e-10*t288+t287*(5.0e-1))*t283;
t289 = t50*(27851511362792747.0e-17)+t40*(1960783999336677.0e-16);
t290 = t16*(15163072731968483.0e-17)+t289;
t291 = -t286*(t170-t180)-t67*(t290-t281);
t292 = t2*(27851511362792747.0e-17)+t64*(1960783999336677.0e-16)+t63*(15163072731968483.0e-17);
t293 = t45*(27851511362792747.0e-17)+t36*(1960783999336677.0e-16);
t294 = t4*(15163072731968483.0e-17)+t293;
t295 = t67*(-t292+t294)+t286*(t172-t186);
t296 = -t137*(13029133805121679.0e-16)+t50*(15513477098500949.0e-16)+t136*(1460883188649713.0e-15);
t297 = t296-t240;
t298 = t136*(47780854778099587.0e-17)+t50*(70096829711104138.0e-17)-t137*(20122014803911725.0e-17);
t299 = -t260*(t298-t237)+t266*t297;
t300 = t54*(27851511362792747.0e-17)+t38*(1960783999336677.0e-16);
t301 = t6*(15163072731968483.0e-17)+t300;
t302 = t58*(1960783999336677.0e-16)+t57*(15163072731968483.0e-17)+t8*(27851511362792747.0e-17);
t303 = t67*(-t302+t301)+t286*(t157-t183);
t304 = -t136*(20122014803911725.0e-17)+t137*(84740108072412919.0e-18)-t50*(29519970952897567.0e-17);
t305 = t137*(11620253352950916.0e-16)-t136*(13029133805121679.0e-16)-t50*(13835956938205637.0e-16);
t306 = t305-t31;
t307 = -t260*(t304-t23)+t266*t306;
t244 = 1/t244;
t308 = t245*(5.0e-1);
t309 = t244*t308;
t310 = t252*t309;
t311 = t244*t244;
t312 = t244*t311;
t313 = t244*t312;
t311 *= t313;
t313 = -t311*t244*(57257373997009306.0e-11)+t313*(1853494656.0e-6);
t314 = (-t310+t244*(5.0e-1)*t242*t251)*t166+t313;
t315 = t47*(21538042570325944.0e-17)+t14*(39561047287931309.0e-17)+t48*(27851511362792747.0e-17);
t316 = t50-t14;
t317 = t45-t2;
t318 = t54-t8;
t316 = 1/(t316*t316+t318*t318+t317*t317);
t317 = t316*t316;
t318 = t316*t317;
t319 = t316*t318;
t320 = t317*t319;
t319 = -t319*(24576)+t320*t316*(100663296);
t321 = t136*(70096829711104138.0e-17)+t50*(10283544650606943.0e-16)-t137*(29519970952897567.0e-17);
t322 = t40*(27851511362792747.0e-17)+t50*(39561047287931309.0e-17);
t323 = t16*(21538042570325944.0e-17)+t322;
t324 = t136*(15513477098500949.0e-16)-t137*(13835956938205637.0e-16)+t50*(16474142050204687.0e-16);
t325 = t324-t206;
t326 = -t319*(t174-t126)-t67*(-t315+t323)-t266*t325+t260*(t321-t17);
t327 = t132*(15513477098500949.0e-16)-t133*(13835956938205637.0e-16)+t45*(16474142050204687.0e-16);
t328 = t327-t106;
t329 = t63*(21538042570325944.0e-17)+t64*(27851511362792747.0e-17)+t2*(39561047287931309.0e-17);
t330 = t132*(70096829711104138.0e-17)+t45*(10283544650606943.0e-16)-t133*(29519970952897567.0e-17);
t331 = t36*(27851511362792747.0e-17)+t45*(39561047287931309.0e-17);
t332 = t4*(21538042570325944.0e-17)+t331;
t333 = -t67*(-t329+t332)-t319*(t185-t144)-t266*t328+t260*(t330-t5);
t334 = t54*(16474142050204687.0e-16)-t128*(13835956938205637.0e-16)+t129*(15513477098500949.0e-16);
t335 = t334-t12;
t336 = t38*(27851511362792747.0e-17)+t54*(39561047287931309.0e-17);
t337 = t6*(21538042570325944.0e-17)+t336;
t338 = t57*(21538042570325944.0e-17)+t58*(27851511362792747.0e-17)+t8*(39561047287931309.0e-17);
t339 = t129*(70096829711104138.0e-17)+t54*(10283544650606943.0e-16)-t128*(29519970952897567.0e-17);
t340 = -t319*(t182-t202)-t67*(-t338+t337)-t266*t335+t260*(t339-t10);
t341 = t4*(36588041056736.0e-14)-t1*(55640199477098.0e-14)+t2*(19052158420362.0e-14);
t342 = t6*(36588041056736.0e-14)-t7*(55640199477098.0e-14)+t8*(19052158420362.0e-14);
t343 = t16*(36588041056736.0e-14)-t13*(55640199477098.0e-14)+t14*(19052158420362.0e-14);
t344 = t343*t343+t342*t342+t341*t341;
t345 = t42/sqrt(t344);
t346 = k32*t42;
t347 = k30*k31;
t94 /= sqrt(t109);
t348 = -t80+t52;
t349 = -t83+t56;
t350 = -t77+t62;
t348 = 1/(t348*t348+t349*t349+t350*t350);
t349 = t348*t348;
t350 = t348*t349;
t351 = t348*t350;
t352 = t349*t351;
t353 = t352*t348*(6);
t351 *= (6);
t354 = t84+t59;
t355 = t78+t65;
t356 = t81+t49;
t354 = 1/(t356*t356+t354*t354+t355*t355);
t355 = t354*t354;
t356 = t354*t355;
t357 = t354*t356;
t358 = t357*(6);
t359 = t50*(181516622105.0e-11);
t360 = t137*(152448373903764.0e-14)-t136*(170931751798764.0e-14)-t359;
t361 = t54*(143412305264276.0e-14);
t362 = -t129*(97755669685292.0e-14)+t128*(41167974949568.0e-14)-t361;
t363 = t2*(181516622105.0e-11);
t364 = -t363+t1*(152448373903764.0e-14)-t4*(170931751798764.0e-14);
t365 = t8*(181516622105.0e-11);
t366 = -t365+t7*(152448373903764.0e-14)-t6*(170931751798764.0e-14);
t367 = t14*(143412305264276.0e-14);
t368 = -t16*(97755669685292.0e-14)+t13*(41167974949568.0e-14)-t367;
t369 = t38*(62622424088128.0e-14);
t370 = t54*(8895060122105.0e-13);
t371 = -t369-t370-t6*(48426974690822.0e-14);
t372 = t40*(62622424088128.0e-14);
t373 = t50*(8895060122105.0e-13);
t374 = -t372-t373-t16*(48426974690822.0e-14);
t375 = t2*(8895060122105.0e-13);
t376 = t64*(62622424088128.0e-14);
t377 = -t375-t376-t63*(48426974690822.0e-14);
t378 = t14*(8895060122105.0e-13);
t379 = t48*(62622424088128.0e-14);
t380 = -t47*(48426974690822.0e-14)-t378-t379;
t381 = t36*(62622424088128.0e-14);
t382 = t45*(8895060122105.0e-13);
t383 = -t381-t4*(48426974690822.0e-14)-t382;
t384 = t54*(181516622105.0e-11);
t385 = -t129*(170931751798764.0e-14)+t128*(152448373903764.0e-14)-t384;
t37 = -t37*t341-t39*t342-t41*t343;
t39 = t50*(143412305264276.0e-14);
t41 = -t136*(97755669685292.0e-14)+t137*(41167974949568.0e-14)-t39;
t386 = t2*(143412305264276.0e-14);
t387 = t1*(41167974949568.0e-14)-t386-t4*(97755669685292.0e-14);
t388 = t45*(181516622105.0e-11);
t389 = -t132*(170931751798764.0e-14)-t388+t133*(152448373903764.0e-14);
t390 = t14*(181516622105.0e-11);
t391 = -t390+t13*(152448373903764.0e-14)-t16*(170931751798764.0e-14);
t392 = t8*(143412305264276.0e-14);
t393 = t7*(41167974949568.0e-14)-t392-t6*(97755669685292.0e-14);
t344 = 1/t344*(5.0e-1);
t394 = t8*(8895060122105.0e-13);
t395 = t58*(62622424088128.0e-14);
t396 = -t394-t395-t57*(48426974690822.0e-14);
t397 = t45*(143412305264276.0e-14);
t398 = -t132*(97755669685292.0e-14)-t397+t133*(41167974949568.0e-14);
t399 = k39*(5.0e-1);
t400 = t42*t166;
t250 = 1/t250*t308;
t93 /= sqrt(t147);
t308 = t37*t345-1;
t401 = 1/(1+k37*t308*t308);
t402 = t401*t44;
t403 = t110*t399*t94;
t404 = t37*t44;
t405 = k31*k31/sqrt(t262);
t406 = t50+t49;
t407 = t45+t65;
t408 = t54+t59;
t406 = 1/(t406*t406+t408*t408+t407*t407);
t407 = t406*t406;
t408 = t406*t407;
t409 = t406*t408;
t410 = t407*t409;
t409 = -t410*t406*(100663296)+t409*(24576);
t411 = -t14+t52;
t412 = -t8+t56;
t413 = -t2+t62;
t411 = 1/(t411*t411+t412*t412+t413*t413);
t412 = t411*t411;
t413 = t411*t412;
t414 = t411*t413;
t415 = t412*t414;
t414 = -t415*t411*(100663296)+t414*(24576);
t399 *= t149*t93;
t140 = (t142*t140-t131*t143)*(6);
t153 = (t155*t153-t149*t156)*(6);
t113 = (t108*t113-t110*t114)*(6);
t233 = (-t226*t234+t223*t233)*(6);
t357 *= t355;
t416 = t357*t354;
t417 = t121*t358-t416*t123;
t418 = t216*t351-t217*t353;
t419 = t263*(5.0e-1)*t405;
t420 = -t14+t138;
t421 = -t8+t130;
t422 = -t2+t134;
t420 = 1/(t420*t420+t421*t421+t422*t422);
t421 = t420*t420;
t422 = t420*t421;
t423 = t420*t422;
t424 = t421*t423;
t423 = t423*(1102959375.0e-5)-t424*t420*(20275323048339844.0e-9);
t425 = t45+t225;
t426 = t54+t228;
t427 = t50+t231;
t425 = 1/(t427*t427+t426*t426+t425*t425);
t426 = t425*t425;
t427 = t425*t426;
t428 = t425*t427;
t429 = t426*t428;
t428 = t428*(1102959375.0e-5)-t429*t425*(20275323048339844.0e-9);
t430 = t59+t130;
t431 = t138+t49;
t432 = t134+t65;
t430 = 1/(t430*t430+t432*t432+t431*t431);
t431 = t430*t430;
t432 = t431*t430;
t433 = t432*t430;
t434 = t431*t433;
t433 = t433*(1102959375.0e-5)-t434*t430*(20275323048339844.0e-9);
t224 += -t4*(24664347497235.0e-14)+t61;
t227 += -t6*(24664347497235.0e-14)+t55;
t230 += -t16*(24664347497235.0e-14)+t51;
t435 = 1/(t230*t230+t227*t227+t224*t224);
t436 = t435*t435;
t437 = t435*t436;
t438 = t435*t437;
t436 *= t438;
t435 = t438*(1102959375.0e-5)-t436*t435*(20275323048339844.0e-9);
t306 *= t419;
t274 *= t419;
t279 *= t419;
t297 *= t419;
t328 *= t419;
t335 *= t419;
t325 *= t419;
t255 *= t419;
t271 *= t419;
t246 *= t308*t401*t401*t345;
t345 = t43*t43;
t419 = t43*t345;
t438 = t43*t419;
t439 = t345*t438;
t43 = t438*(1853494656.0e-6)-t439*t43*(57257373997009306.0e-11);
t440 = -t8+t148;
t441 = -t14+t146;
t442 = -t2+t150;
t440 = 1/(t441*t441+t440*t440+t442*t442);
t441 = t440*t440;
t442 = t440*t441;
t443 = t440*t442;
t444 = t441*t443;
t443 = t443*(6442450944.0e-6)-t444*t440*(69175290276410819.0e-10);
t445 = t50+t25;
t446 = t54+t27;
t447 = t45+t29;
t445 = 1/(t445*t445+t446*t446+t447*t447);
t446 = t445*t445;
t447 = t445*t446;
t448 = t445*t447;
t449 = t446*t448;
t448 = -t449*t445*(69175290276410819.0e-10)+t448*(6442450944.0e-6);
t52 -= t48;
t56 -= t58;
t62 -= t64;
t450 = 1/(t52*t52+t56*t56+t62*t62);
t451 = t450*t450;
t452 = t450*t451;
t453 = t450*t452;
t451 *= t453;
t450 = t453*(9268826496.0e-6)-t451*t450*(14318524102158606.0e-9);
t453 = t36+t65;
t454 = t38+t59;
t455 = t40+t49;
t454 = 1/(t455*t455+t454*t454+t453*t453);
t455 = t454*t454;
t456 = t454*t455;
t457 = t454*t456;
t458 = t455*t457;
t457 = t457*(9268826496.0e-6)-t458*t454*(14318524102158606.0e-9);
t59 += t148;
t65 += t150;
t49 += t146;
t459 = 1/(t49*t49+t59*t59+t65*t65);
t460 = t459*t459;
t461 = t459*t460;
t462 = t459*t461;
t460 *= t462;
t459 = -t460*t459*(69175290276410819.0e-10)+t462*(6442450944.0e-6);
t28 += -t4*(61252388553971.0e-14)+t61;
t26 += -t6*(61252388553971.0e-14)+t55;
t24 += -t16*(61252388553971.0e-14)+t51;
t51 = 1/(t24*t24+t26*t26+t28*t28);
t55 = t51*t51;
t61 = t51*t55;
t462 = t51*t61;
t463 = t55*t462;
t464 = t462*(6442450944.0e-6)-t463*t51*(69175290276410819.0e-10);
t465 = -t48+t138;
t466 = -t64+t134;
t467 = -t58+t130;
t465 = 1/(t465*t465+t467*t467+t466*t466);
t466 = t465*t465;
t467 = t465*t466;
t468 = t465*t467;
t469 = t466*t468;
t468 = -t469*t465*(21228886992328142.0e-10)+t468*(3568939926.0e-6);
t470 = t36+t225;
t471 = t40+t231;
t472 = t38+t228;
t470 = 1/(t471*t471+t472*t472+t470*t470);
t471 = t470*t470;
t472 = t470*t471;
t473 = t470*t472;
t474 = t471*t473;
t473 = -t474*t470*(21228886992328142.0e-10)+t473*(3568939926.0e-6);
t27 += t130;
t29 += t134;
t25 += t138;
t130 = 1/(t25*t25+t27*t27+t29*t29);
t134 = t130*t130;
t138 = t130*t134;
t475 = t130*t138;
t476 = t134*t475;
t475 = t475*(2324522934.0e-6)-t476*t130*(90056781178199473.0e-11);
t148 += t228;
t146 += t231;
t150 += t225;
t225 = 1/(t146*t146+t148*t148+t150*t150);
t228 = t225*t225;
t231 = t225*t228;
t477 = t225*t231;
t478 = t228*t477;
t477 = -t478*t225*(90056781178199473.0e-11)+t477*(2324522934.0e-6);
t479 = -t403*t347+t113;
t347 = -t399*t347+t153;
t480 = t185-t97;
t481 = t99-t202;
t482 = t50*(80730063339269422.0e-17);
t483 = t54*(80730063339269422.0e-17);
t484 = t45*(80730063339269422.0e-17);
t485 = t14*(80730063339269422.0e-17);
t486 = t8*(80730063339269422.0e-17);
t487 = t2*(80730063339269422.0e-17);
t488 = t50*(13015858609931244.0e-16);
t489 = t54*(13015858609931244.0e-16);
t490 = t45*(13015858609931244.0e-16);
t491 = t14*(13015858609931244.0e-16);
t492 = t8*(13015858609931244.0e-16);
t493 = t2*(13015858609931244.0e-16);
t494 = t13*(31379954189862662.0e-17);
t495 = t7*(31379954189862662.0e-17);
t496 = t1*(31379954189862662.0e-17);
t497 = t137*(31379954189862662.0e-17);
t498 = t128*(31379954189862662.0e-17);
t499 = t133*(31379954189862662.0e-17);
t500 = t50*(63783053878770521.0e-17);
t501 = t54*(63783053878770521.0e-17);
t502 = t45*(63783053878770521.0e-17);
t503 = t14*(63783053878770521.0e-17);
t504 = t8*(63783053878770521.0e-17);
t505 = t2*(63783053878770521.0e-17);
t506 = t6*(83547739337841451.0e-17);
t507 = t4*(83547739337841451.0e-17);
t508 = t16*(83547739337841451.0e-17);
t509 = t136*(83547739337841451.0e-17);
t510 = t129*(83547739337841451.0e-17);
t511 = t132*(83547739337841451.0e-17);
t512 = t157+t366;
t513 = t172+t364;
t514 = t97+t383;
t515 = -t78*(181516622105.0e-11)+t106;
t516 = -t40*(181516622105.0e-11)+t206;
t517 = -t81*(181516622105.0e-11)+t206;
t518 = -t38*(181516622105.0e-11)+t12;
t519 = -t84*(181516622105.0e-11)+t12;
t520 = -t36*(181516622105.0e-11)+t106;
t521 = -t48*(181516622105.0e-11)+t324;
t522 = -t80*(181516622105.0e-11)+t324;
t523 = -t58*(181516622105.0e-11)+t334;
t524 = -t83*(181516622105.0e-11)+t334;
t525 = -t64*(181516622105.0e-11)+t327;
t526 = -t77*(181516622105.0e-11)+t327;
t527 = -t84*(8895060122105.0e-13)+t338;
t528 = -t78*(170931751798764.0e-14)+t238;
t529 = t78*(152448373903764.0e-14)+t33;
t530 = -t40*(170931751798764.0e-14)+t240;
t531 = -t81*(170931751798764.0e-14)+t240;
t532 = -t84*(170931751798764.0e-14)+t239;
t533 = -t38*(170931751798764.0e-14)+t239;
t534 = -t36*(170931751798764.0e-14)+t238;
t535 = t40*(152448373903764.0e-14)+t31;
t536 = t84*(152448373903764.0e-14)+t35;
t537 = t38*(152448373903764.0e-14)+t35;
t538 = t81*(152448373903764.0e-14)+t31;
t539 = t36*(152448373903764.0e-14)+t33;
t540 = -t80*(170931751798764.0e-14)+t296;
t541 = -t48*(170931751798764.0e-14)+t296;
t542 = -t58*(170931751798764.0e-14)+t278;
t543 = -t83*(170931751798764.0e-14)+t278;
t544 = -t64*(170931751798764.0e-14)+t273;
t545 = -t77*(170931751798764.0e-14)+t273;
t546 = t48*(152448373903764.0e-14)+t305;
t547 = t80*(152448373903764.0e-14)+t305;
t548 = t58*(152448373903764.0e-14)+t270;
t549 = t83*(152448373903764.0e-14)+t270;
t550 = t64*(152448373903764.0e-14)+t254;
t551 = t77*(152448373903764.0e-14)+t254;
Grad[0] +=
t143+531441*t261-1458*t259+t195+t287+(-t66-t408-t318-t413)*(8192)-
963780608.0e-6*t285+t165+t234+t95+t92+(t352+t213)*t217+(-t159*t163-t189*t193-
t142*t139-t223*t232-t91*t86+(-t350-t211)*t216+(-t117-t356)*t121-t155*t152-t108*
t112)*(2)+(t357+t118)*t122+t167+t156+t168+(t405+((t93+t94)*k39+(t245*t252+t42*
t401)*k32)*k31)*k30+t114+(t415+t68+t410+t320)*(16777216)+(t458+t200+t179+t451)*
(23864206836931011.0e-10)+(t460+t463+t449+t444)*(1152921504606847.0e-9)+(t476+
t478)*(15009463529699912.0e-11)+(t469+t474)*(35381478320546904.0e-11)+(-t231-
t138)*(774840978.0e-6)+(-t467-t472)*(1189646642.0e-6)+(-t442-t61-t461-t447)*(
2147483648.0e-6)+23221826508921242.0e-11*t288+(t436+t424+t429+t434)*(
33792205080566406.0e-10)-382205952.0e-6*t265+36520347436056576.0e-12*t267+(-
t432-t437-t427-t422)*(367653125.0e-5)+(t439+t311)*(95428956661682176.0e-12)+(-
t198-t456-t452-t177)*(3089608832.0e-6)+(-t312-t419)*(617831552.0e-6) ;
Grad[9*i-17] += t153*t540+t140*(-t80*(97755669685292.0e-14)+t298)+t477*(-t508+t13*(
35184570380686456.0e-17)-t14*(12256858284160901.0e-16)+t296)+t459*(-t14*(
76022410451336763.0e-17)-t48*(53520803256344177.0e-17)-t47*(
41388538091083061.0e-17)+t296)+t423*(-t14*(97755669685292.0e-14)+t298)+t433*(-
t14*(43477127956365475.0e-17)-t48*(30608485020256569.0e-17)-t47*(
23670056708669956.0e-17)+t298)+t475*(-t508+t13*(74513464416981212.0e-17)-t14*(
88721394764431761.0e-17)+t298)+t443*(-t14*(170931751798764.0e-14)+t296)+t468*(-
(97755669685292.0e-14)*t48+t298)+t313*t541+(-t297+(-t540*t399+(-t541*t310-((-
t136*(62540579527129849.0e-17)+t137*(7544232065238296.0e-16)-t50*(
49489782181989112.0e-17)+t48*(36588041056736.0e-14))*t245+(-t541*t309-(t136*(
26773694967387984.0e-17)-t137*(40715318057460851.0e-17)+t50*(
13941623090072867.0e-17))*t250)*t241)*t251)*k32)*k31)*k30-t299 ;
Grad[9*i-16] += t140*(-t83*(97755669685292.0e-14)+t277)+t153*t543+t477*(-t506+t7*(
35184570380686456.0e-17)-t8*(12256858284160901.0e-16)+t278)+t459*(-t8*(
76022410451336763.0e-17)-t58*(53520803256344177.0e-17)-t57*(
41388538091083061.0e-17)+t278)+t443*(-t8*(170931751798764.0e-14)+t278)+t423*(-
t8*(97755669685292.0e-14)+t277)+t468*(-t58*(97755669685292.0e-14)+t277)+t433*(-
t8*(43477127956365475.0e-17)-t58*(30608485020256569.0e-17)-t57*(
23670056708669956.0e-17)+t277)+t475*(-t506+t7*(74513464416981212.0e-17)-t8*(
88721394764431761.0e-17)+t277)+t313*t542+(-t279+(-t543*t399+(-((-t129*(
62540579527129849.0e-17)+t128*(7544232065238296.0e-16)-t54*(
49489782181989112.0e-17)+t58*(36588041056736.0e-14))*t245+(-t542*t309-(t129*(
26773694967387984.0e-17)-t128*(40715318057460851.0e-17)+t54*(
13941623090072867.0e-17))*t250)*t241)*t251-t542*t310)*k32)*k31)*k30-t280 ;
Grad[9*i-15] += t153*t545+t140*(-t77*(97755669685292.0e-14)+t275)+t477*(-t507+t1*(
35184570380686456.0e-17)-t2*(12256858284160901.0e-16)+t273)+t459*(-t2*(
76022410451336763.0e-17)-t64*(53520803256344177.0e-17)-t63*(
41388538091083061.0e-17)+t273)+t475*(-t507+t1*(74513464416981212.0e-17)-t2*(
88721394764431761.0e-17)+t275)+t468*(-t64*(97755669685292.0e-14)+t275)+t433*(-
t2*(43477127956365475.0e-17)-t64*(30608485020256569.0e-17)-t63*(
23670056708669956.0e-17)+t275)+t313*t544+t443*(-t2*(170931751798764.0e-14)+t273
)+t423*(-t2*(97755669685292.0e-14)+t275)+(-t274+(-t545*t399+(-t544*t310-((-t132
*(62540579527129849.0e-17)+t133*(7544232065238296.0e-16)-t45*(
49489782181989112.0e-17)+t64*(36588041056736.0e-14))*t245+(-t544*t309-(t132*(
26773694967387984.0e-17)-t133*(40715318057460851.0e-17)+t45*(
13941623090072867.0e-17))*t250)*t241)*t251)*k32)*k31)*k30-t276 ;
Grad[9*i-14] += t140*(t80*(41167974949568.0e-14)+t304)+t153*t547+t477*(t16*(
74513464416981212.0e-17)-t494+t14*(10931486367664545.0e-16)+t305)+t459*(t14*(
67801872569556185.0e-17)+t48*(47733433610735073.0e-17)+t47*(
36913067723472741.0e-17)+t305)+t475*(t16*(35184570380686456.0e-17)-t494+t14*(
37363358758744205.0e-17)+t304)+t313*t546+t443*(t14*(152448373903764.0e-14)+t305
)+t468*((41167974949568.0e-14)*t48+t304)+t423*(t14*(41167974949568.0e-14)+t304)
+t433*(t14*(18309580614085996.0e-17)+t48*(12890191930706386.0e-17)+t47*(
99682024047756182.0e-18)+t304)+(-t306+(-t547*t399+(-t546*t310-((t136*(
7544232065238296.0e-16)-t137*(84822579339646501.0e-17)+t50*(
65020458164361541.0e-17)-t48*(55640199477098.0e-14))*t245+(-t546*t309-(-t136*(
40715318057460851.0e-17)+t137*(61916635957025131.0e-17)-t50*(
2120131789956428.0e-16))*t250)*t241)*t251)*k32)*k31)*k30-t307 ;
Grad[9*i-13] += t140*(t83*(41167974949568.0e-14)+t269)+t153*t549+t477*(t6*(
74513464416981212.0e-17)-t495+t8*(10931486367664545.0e-16)+t270)+t459*(t8*(
67801872569556185.0e-17)+t58*(47733433610735073.0e-17)+t57*(
36913067723472741.0e-17)+t270)+t475*(t6*(35184570380686456.0e-17)-t495+t8*(
37363358758744205.0e-17)+t269)+t443*(t8*(152448373903764.0e-14)+t270)+t433*(t8*
(18309580614085996.0e-17)+t58*(12890191930706386.0e-17)+t57*(
99682024047756182.0e-18)+t269)+t423*(t8*(41167974949568.0e-14)+t269)+t468*(t58*
(41167974949568.0e-14)+t269)+t313*t548+(-t271+(-t549*t399+(-t548*t310-((t129*(
7544232065238296.0e-16)-t128*(84822579339646501.0e-17)+t54*(
65020458164361541.0e-17)-t58*(55640199477098.0e-14))*t245+(-t548*t309-(-t129*(
40715318057460851.0e-17)+t128*(61916635957025131.0e-17)-t54*(
2120131789956428.0e-16))*t250)*t241)*t251)*k32)*k31)*k30-t272 ;
Grad[9*i-12] += t140*(t77*(41167974949568.0e-14)+t256)+t153*t551+t477*(t4*(
74513464416981212.0e-17)-t496+t2*(10931486367664545.0e-16)+t254)+t468*(t64*(
41167974949568.0e-14)+t256)+t459*(t2*(67801872569556185.0e-17)+t64*(
47733433610735073.0e-17)+t63*(36913067723472741.0e-17)+t254)+t475*(t4*(
35184570380686456.0e-17)-t496+t2*(37363358758744205.0e-17)+t256)+t423*(t2*(
41167974949568.0e-14)+t256)+t443*(t2*(152448373903764.0e-14)+t254)+t313*t550+
t433*(t2*(18309580614085996.0e-17)+t64*(12890191930706386.0e-17)+t63*(
99682024047756182.0e-18)+t256)+(-t255+(-t551*t399+(-t550*t310-((t132*(
7544232065238296.0e-16)-t133*(84822579339646501.0e-17)+t45*(
65020458164361541.0e-17)-t64*(55640199477098.0e-14))*t245+(-t550*t309-(-t132*(
40715318057460851.0e-17)+t133*(61916635957025131.0e-17)-t45*(
2120131789956428.0e-16))*t250)*t241)*t251)*k32)*k31)*k30-t268 ;
Grad[9*i-8] += t435*(-t16*(21939085386039531.0e-17)+t13*(18309580614085996.0e-17)-t503+t322)
+t433*(-t503-t48*(44904130998577817.0e-17)-t47*(34725120386927663.0e-17)+t321)+
(-t325+(-t522*t399+(-t521*t310-((-t136*(49489782181989112.0e-17)+t137*(
65020458164361541.0e-17)-t50*(34582834402734429.0e-17)+t48*(
19052158420362.0e-14))*t245+(-t521*t309-(t136*(13941623090072867.0e-17)-t137*(
2120131789956428.0e-16)+t50*(72596948094914132.0e-18))*t250)*t241)*t251)*k32)*
k31)*k30+t326+t140*(-t80*(143412305264276.0e-14)+t321)+t468*(-t48*(
143412305264276.0e-14)+t321)+t313*t521+t448*(t174+t391)+t428*(t174+t368)-t181+
t409*(t174+t380)+t153*t522+t443*(-t390+t324)+t475*(-t16*(
12256858284160901.0e-16)+t13*(10931486367664545.0e-16)-t491+t321)+t477*(-t16*(
88721394764431761.0e-17)+t13*(37363358758744205.0e-17)-t491+t324)+t423*(-t367+
t321)+t450*(-t48*(8895060122105.0e-13)+t323)+t418*(-t80*(8895060122105.0e-13)+
t323)-t220+t464*(-t16*(54484367881010819.0e-17)+t13*(67801872569556185.0e-17)-
t485+t322)+t459*(-t485-t48*(56835054442518897.0e-17)-t47*(
43951504323211681.0e-17)+t324)+t414*(-t378+t323) ;
Grad[9*i-7] += t450*(-t58*(8895060122105.0e-13)+t337)+t418*(-t83*(8895060122105.0e-13)+t337)
+(-t335+(-t524*t399+(-t523*t310-((-t129*(49489782181989112.0e-17)+t128*(
65020458164361541.0e-17)-t54*(34582834402734429.0e-17)+t58*(
19052158420362.0e-14))*t245+(-t523*t309-(t129*(13941623090072867.0e-17)-t128*(
2120131789956428.0e-16)+t54*(72596948094914132.0e-18))*t250)*t241)*t251)*k32)*
k31)*k30+t409*(t182+t396)+t140*(-t83*(143412305264276.0e-14)+t339)+t468*(-t58*(
143412305264276.0e-14)+t339)+t313*t523+t443*(-t365+t334)-t184+t340+t153*t524+
t428*(t182+t393)+t475*(-t6*(12256858284160901.0e-16)+t7*(
10931486367664545.0e-16)-t492+t339)+t477*(-t6*(88721394764431761.0e-17)+t7*(
37363358758744205.0e-17)-t492+t334)+t423*(-t392+t339)-t219+t448*(t182+t366)+
t414*(-t394+t337)+t459*(-t486-t58*(56835054442518897.0e-17)-t57*(
43951504323211681.0e-17)+t334)+t464*(-t6*(54484367881010819.0e-17)+t7*(
67801872569556185.0e-17)-t486+t336)+t433*(-t504-t58*(44904130998577817.0e-17)-
t57*(34725120386927663.0e-17)+t339)+t435*(-t6*(21939085386039531.0e-17)+t7*(
18309580614085996.0e-17)-t504+t336) ;
Grad[9*i-6] += t428*(t185+t387)+(-t328+(-t526*t399+(-((-t132*(49489782181989112.0e-17)+t133*
(65020458164361541.0e-17)-t45*(34582834402734429.0e-17)+t64*(
19052158420362.0e-14))*t245+(-t525*t309-(t132*(13941623090072867.0e-17)-t133*(
2120131789956428.0e-16)+t45*(72596948094914132.0e-18))*t250)*t241)*t251-t525*
t310)*k32)*k31)*k30+t409*(t185+t377)+t443*(-t363+t327)+t313*t525-t187+t153*t526
+t477*(-t4*(88721394764431761.0e-17)+t1*(37363358758744205.0e-17)-t493+t327)+
t475*(-t4*(12256858284160901.0e-16)+t1*(10931486367664545.0e-16)-t493+t330)+
t423*(-t386+t330)+t435*(-t4*(21939085386039531.0e-17)+t1*(
18309580614085996.0e-17)-t505+t331)+t433*(-t505-t64*(44904130998577817.0e-17)-
t63*(34725120386927663.0e-17)+t330)+t333-t218*t480+t464*(-t4*(
54484367881010819.0e-17)+t1*(67801872569556185.0e-17)-t487+t331)+t459*(-t487-
t64*(56835054442518897.0e-17)-t63*(43951504323211681.0e-17)+t327)+t414*(-t375+
t332)+t448*(t185+t364)+t140*(-t77*(143412305264276.0e-14)+t330)+t468*(-t64*(
143412305264276.0e-14)+t330)+t450*(-t64*(8895060122105.0e-13)+t332)+t418*(-t77*
(8895060122105.0e-13)+t332) ;
Grad[9*i-5] += -t343*t246*t400+t450*(-t379+t290)+t418*(-t80*(62622424088128.0e-14)+t290)+t473*(t170+t368)+t457*(t170+t380)+t435*(-t16*(15445412288288086.0e-17)+t13*(12890191930706386.0e-17)-t14*(44904130998577817.0e-17)+t289)+t414*(-t14*(62622424088128.0e-14)+t290)-t201+t464*(-t16*(38357730524375693.0e-17)+t13*(47733433610735073.0e-17)-t14*(56835054442518897.0e-17)+t289)+t171+((-t402+t404*t246)*t400+t43)*(t170+t391)+t291;
Grad[9*i-4] += t43*t512+(-t512*t402+(-t342+t512*t404)*t246)*t400+t418*(-t83*(62622424088128.0e-14)+t301)+t473*(t157+t393)+t457*(t157+t396)-t203+t450*(-t395+t301)+t414*(-t8*(62622424088128.0e-14)+t301)+t435*(-t6*(15445412288288086.0e-17)+t7*(12890191930706386.0e-17)-t8*(44904130998577817.0e-17)+t300)+t464*(-t6*(38357730524375693.0e-17)+t7*(47733433610735073.0e-17)-t8*(56835054442518897.0e-17)+t300)+t169-t303;
Grad[9*i-3] += t43*t513+(-t513*t402+(-t341+t513*t404)*t246)*t400+t418*(-t77*(62622424088128.0e-14)+t294)-t204+t450*(-t376+t294)+t414*(-t2*(62622424088128.0e-14)+t294)+t473*(t172+t387)+t457*(t172+t377)+t464*(-t4*(38357730524375693.0e-17)+t1*(47733433610735073.0e-17)-t2*(56835054442518897.0e-17)+t293)+t435*(-t4*(15445412288288086.0e-17)+t1*(12890191930706386.0e-17)-t2*(44904130998577817.0e-17)+t293)+t173-t295;
Grad[9*i-2] += t127+t233*(t102+t368)+t417*(t102+t380)+t104+t479*(t102+t391)+t208;
Grad[9*i-1] += t125*t481+t417*(t99+t396)+t233*(t99+t393)+t479*(t99+t366)+t101+t207;
Grad[9*i] += -t145+t233*(t96+t387)+t417*(t96+t377)+t479*(t96+t364)+t98-t221;
Grad[9*i+1] += t113*t531+t233*(-t81*(97755669685292.0e-14)+t237)+t418*(-t80*(
48426974690822.0e-14)+t74)+t475*(-t509+t137*(35184570380686456.0e-17)-t50*(
12256858284160901.0e-16)+t240)+t473*(-t40*(97755669685292.0e-14)+t237)-t76+t464
*(-t50*(54484367881010819.0e-17)-t40*(38357730524375693.0e-17)+t16*(
75037102071332751.0e-17)-t13*(93378270327744053.0e-17)+t14*(
11118326666179781.0e-16))+t448*(-t50*(170931751798764.0e-14)+t240)+t43*t530+
t435*(-t50*(21939085386039531.0e-17)-t40*(15445412288288086.0e-17)+t16*(
12166600749287248.0e-17)-t13*(10153812399136107.0e-17)+t14*(
35371709324176476.0e-17))+t414*(-t14*(48426974690822.0e-14)+t74)+t450*(-t48*(
48426974690822.0e-14)+t74)+t428*(-t50*(97755669685292.0e-14)+t237)+t477*(-t509+
t137*(74513464416981212.0e-17)-t50*(88721394764431761.0e-17)+t237)+(t297+(-t531
*t403+(-t530*t402-(-t16*(62540579527129849.0e-17)+t13*(7544232065238296.0e-16)-
t14*(49489782181989112.0e-17)+t40*(36588041056736.0e-14)+(-t530*t44-(t16*(
26773694967387984.0e-17)-t13*(40715318057460851.0e-17)+t14*(
13941623090072867.0e-17))*t344)*t37)*t246)*t346)*k31)*k30+t299 ;
Grad[9*i+2] += t233*(-t84*(97755669685292.0e-14)+t236)+t113*t532+t418*(-t83*(
48426974690822.0e-14)+t71)+t475*(-t510+t128*(35184570380686456.0e-17)-t54*(
12256858284160901.0e-16)+t239)+t448*(-t54*(170931751798764.0e-14)+t239)+t450*(-
t58*(48426974690822.0e-14)+t71)+t414*(-t8*(48426974690822.0e-14)+t71)+t473*(-
t38*(97755669685292.0e-14)+t236)+t43*t533+t428*(-t54*(97755669685292.0e-14)+
t236)+t477*(-t510+t128*(74513464416981212.0e-17)-t54*(88721394764431761.0e-17)+
t236)+t73+t464*(-t54*(54484367881010819.0e-17)-t38*(38357730524375693.0e-17)+t6
*(75037102071332751.0e-17)-t7*(93378270327744053.0e-17)+t8*(
11118326666179781.0e-16))+t435*(-t54*(21939085386039531.0e-17)-t38*(
15445412288288086.0e-17)+t6*(12166600749287248.0e-17)-t7*(
10153812399136107.0e-17)+t8*(35371709324176476.0e-17))+(t279+(-t532*t403+(-(-t6
*(62540579527129849.0e-17)+t7*(7544232065238296.0e-16)-t8*(
49489782181989112.0e-17)+t38*(36588041056736.0e-14)+(-t533*t44-(t6*(
26773694967387984.0e-17)-t7*(40715318057460851.0e-17)+t8*(
13941623090072867.0e-17))*t344)*t37)*t246-t533*t402)*t346)*k31)*k30+t280 ;
Grad[9*i+3] += t418*(-t77*(48426974690822.0e-14)+t46)+t113*t528+t233*(-t78*(
97755669685292.0e-14)+t235)+t475*(-t511+t133*(35184570380686456.0e-17)-t45*(
12256858284160901.0e-16)+t238)+t477*(-t511+t133*(74513464416981212.0e-17)-t45*(
88721394764431761.0e-17)+t235)+t464*(-t45*(54484367881010819.0e-17)-t36*(
38357730524375693.0e-17)+t4*(75037102071332751.0e-17)-t1*(
93378270327744053.0e-17)+t2*(11118326666179781.0e-16))+t414*(-t2*(
48426974690822.0e-14)+t46)+t450*(-t64*(48426974690822.0e-14)+t46)+t435*(-t45*(
21939085386039531.0e-17)-t36*(15445412288288086.0e-17)+t4*(
12166600749287248.0e-17)-t1*(10153812399136107.0e-17)+t2*(
35371709324176476.0e-17))+t428*(-t45*(97755669685292.0e-14)+t235)+t43*t534+t473
*(-t36*(97755669685292.0e-14)+t235)+t448*(-t45*(170931751798764.0e-14)+t238)+
t70+(t274+(-t528*t403+(-t534*t402-(-t4*(62540579527129849.0e-17)+t1*(
7544232065238296.0e-16)-t2*(49489782181989112.0e-17)+t36*(36588041056736.0e-14)
+(-t534*t44-(t4*(26773694967387984.0e-17)-t1*(40715318057460851.0e-17)+t2*(
13941623090072867.0e-17))*t344)*t37)*t246)*t346)*k31)*k30+t276 ;
Grad[9*i+4] += t233*(t81*(41167974949568.0e-14)+t23)+t113*t538+t43*t535+t475*(t136*(
74513464416981212.0e-17)-t497+t50*(10931486367664545.0e-16)+t31)+t428*(t50*(
41167974949568.0e-14)+t23)+t473*(t40*(41167974949568.0e-14)+t23)+t448*(t50*(
152448373903764.0e-14)+t31)+t435*(t50*(18309580614085996.0e-17)+t40*(
12890191930706386.0e-17)-t16*(10153812399136107.0e-17)+t22)+t464*(t50*(
67801872569556185.0e-17)+t40*(47733433610735073.0e-17)-t16*(
93378270327744053.0e-17)+t30)+t477*(t136*(35184570380686456.0e-17)-t497+t50*(
37363358758744205.0e-17)+t23)+(t306+(-t538*t403+(-t535*t402-(t16*(
7544232065238296.0e-16)-t13*(84822579339646501.0e-17)+t14*(
65020458164361541.0e-17)-t40*(55640199477098.0e-14)+(-t535*t44-(-t16*(
40715318057460851.0e-17)+t13*(61916635957025131.0e-17)-t14*(
2120131789956428.0e-16))*t344)*t37)*t246)*t346)*k31)*k30+t307 ;
Grad[9*i+5] += t233*(t84*(41167974949568.0e-14)+t21)+t113*t536+t475*(t129*(
74513464416981212.0e-17)-t498+t54*(10931486367664545.0e-16)+t35)+t477*(t129*(
35184570380686456.0e-17)-t498+t54*(37363358758744205.0e-17)+t21)+t448*(t54*(
152448373903764.0e-14)+t35)+t473*(t38*(41167974949568.0e-14)+t21)+t464*(t54*(
67801872569556185.0e-17)+t38*(47733433610735073.0e-17)-t6*(
93378270327744053.0e-17)+t34)+t43*t537+t435*(t54*(18309580614085996.0e-17)+t38*
(12890191930706386.0e-17)-t6*(10153812399136107.0e-17)+t20)+t428*(t54*(
41167974949568.0e-14)+t21)+(t271+(-t536*t403+(-t537*t402-(t6*(
7544232065238296.0e-16)-t7*(84822579339646501.0e-17)+t8*(
65020458164361541.0e-17)-t38*(55640199477098.0e-14)+(-t537*t44-(-t6*(
40715318057460851.0e-17)+t7*(61916635957025131.0e-17)-t8*(
2120131789956428.0e-16))*t344)*t37)*t246)*t346)*k31)*k30+t272 ;
Grad[9*i+6] += t233*(t78*(41167974949568.0e-14)+t19)+t113*t529+t475*(t132*(
74513464416981212.0e-17)-t499+t45*(10931486367664545.0e-16)+t33)+t428*(t45*(
41167974949568.0e-14)+t19)+t477*(t132*(35184570380686456.0e-17)-t499+t45*(
37363358758744205.0e-17)+t19)+t448*(t45*(152448373903764.0e-14)+t33)+t473*(t36*
(41167974949568.0e-14)+t19)+t43*t539+t435*(t45*(18309580614085996.0e-17)+t36*(
12890191930706386.0e-17)-t4*(10153812399136107.0e-17)+t18)+t464*(t45*(
67801872569556185.0e-17)+t36*(47733433610735073.0e-17)-t4*(
93378270327744053.0e-17)+t32)+(t255+(-t529*t403+(-(t4*(7544232065238296.0e-16)-
t1*(84822579339646501.0e-17)+t2*(65020458164361541.0e-17)-t36*(
55640199477098.0e-14)+(-t539*t44-(-t4*(40715318057460851.0e-17)+t1*(
61916635957025131.0e-17)-t2*(2120131789956428.0e-16))*t344)*t37)*t246-t539*t402
)*t346)*k31)*k30+t268 ;
Grad[9*i+10] += t43*t516-t326+t409*(-t373+t315)+t448*(-t359+t206)+t423*(t126+t41)+t457*(-t40
*(8895060122105.0e-13)+t315)+t417*(-t81*(8895060122105.0e-13)+t315)-t127+t433*(
-t136*(43477127956365475.0e-17)+t137*(18309580614085996.0e-17)-t500+t315)+t435*
(-t500-t40*(44904130998577817.0e-17)+t16*(35371709324176476.0e-17)+t15)+t113*
t517+t414*(t126+t374)+t464*(-t482-t40*(56835054442518897.0e-17)+t16*(
11118326666179781.0e-16)+t205)+t459*(-t136*(76022410451336763.0e-17)+t137*(
67801872569556185.0e-17)-t482+t315)+t201+(t325+(-t517*t403+(-t516*t402-(-t16*(
49489782181989112.0e-17)+t13*(65020458164361541.0e-17)-t14*(
34582834402734429.0e-17)+t40*(19052158420362.0e-14)+(-t516*t44-(t16*(
13941623090072867.0e-17)-t13*(2120131789956428.0e-16)+t14*(
72596948094914132.0e-18))*t344)*t37)*t246)*t346)*k31)*k30+t475*(-t136*(
88721394764431761.0e-17)+t137*(37363358758744205.0e-17)-t488+t206)+t477*(-t136*
(12256858284160901.0e-16)+t137*(10931486367664545.0e-16)-t488+t17)+t428*(-t39+
t17)+t473*(-t40*(143412305264276.0e-14)+t17)+t233*(-t81*(143412305264276.0e-14)
+t17)+t443*(t126+t360) ;
Grad[9*i+11] += t464*(-t483-t38*(56835054442518897.0e-17)+t6*(11118326666179781.0e-16)+t11)+
t459*(-t129*(76022410451336763.0e-17)+t128*(67801872569556185.0e-17)-t483+t338)
+t448*(-t384+t12)+(t527*t358-t481*t119)*t121+t43*t518+t414*(t202+t371)+t435*(-
t501-t38*(44904130998577817.0e-17)+t6*(35371709324176476.0e-17)+t9)+t433*(-t129
*(43477127956365475.0e-17)+t128*(18309580614085996.0e-17)-t501+t338)+t113*t519-
t340+(-t416*t527+t124*t481)*t123+t203+(t335+(-t519*t403+(-t518*t402-(-t6*(
49489782181989112.0e-17)+t7*(65020458164361541.0e-17)-t8*(
34582834402734429.0e-17)+t38*(19052158420362.0e-14)+(-t518*t44-(t6*(
13941623090072867.0e-17)-t7*(2120131789956428.0e-16)+t8*(
72596948094914132.0e-18))*t344)*t37)*t246)*t346)*k31)*k30+t473*(-t38*(
143412305264276.0e-14)+t10)+t233*(-t84*(143412305264276.0e-14)+t10)+t477*(-t129
*(12256858284160901.0e-16)+t128*(10931486367664545.0e-16)-t489+t10)+t475*(-t129
*(88721394764431761.0e-17)+t128*(37363358758744205.0e-17)-t489+t12)+t428*(-t361
+t10)+t409*(-t370+t338)+t443*(t202+t385)+t457*(-t38*(8895060122105.0e-13)+t338)
+t423*(t202+t362) ;
Grad[9*i+12] += t443*(t144+t389)+t43*t520+t433*(-t132*(43477127956365475.0e-17)+t133*(
18309580614085996.0e-17)-t502+t329)+t435*(-t502-t36*(44904130998577817.0e-17)+
t4*(35371709324176476.0e-17)+t3)+t145+t113*t515+t473*(-t36*(
143412305264276.0e-14)+t5)+t233*(-t78*(143412305264276.0e-14)+t5)+t204+(t328+(-
t515*t403+(-(-t4*(49489782181989112.0e-17)+t1*(65020458164361541.0e-17)-t2*(
34582834402734429.0e-17)+t36*(19052158420362.0e-14)+(-t520*t44-(t4*(
13941623090072867.0e-17)-t1*(2120131789956428.0e-16)+t2*(
72596948094914132.0e-18))*t344)*t37)*t246-t520*t402)*t346)*k31)*k30+t423*(t144+
t398)-t333+t475*(-t132*(88721394764431761.0e-17)+t133*(37363358758744205.0e-17)
-t490+t106)+t477*(-t132*(12256858284160901.0e-16)+t133*(10931486367664545.0e-16
)-t490+t5)+t428*(-t397+t5)+t457*(-t36*(8895060122105.0e-13)+t329)+t417*(-t78*(
8895060122105.0e-13)+t329)+t448*(-t388+t106)+t409*(-t382+t329)+t414*(t144+t383)
+t464*(-t484-t36*(56835054442518897.0e-17)+t4*(11118326666179781.0e-16)+t105)+
t459*(-t132*(76022410451336763.0e-17)+t133*(67801872569556185.0e-17)-t484+t329)
;
Grad[9*i+13] += -t247*t253+t457*(-t372+t281)+t417*(-t81*(62622424088128.0e-14)+t281)+t450*(t180+t374)+t409*(-t50*(62622424088128.0e-14)+t281)+t181+t468*(t180+t41)+t459*(-t136*(53520803256344177.0e-17)+t137*(47733433610735073.0e-17)-t50*(56835054442518897.0e-17)+t281)+t433*(-t136*(30608485020256569.0e-17)+t137*(12890191930706386.0e-17)-t50*(44904130998577817.0e-17)+t281)-t208+t314*(t180+t360)-t291;
Grad[9*i+14] += -t248*t253+t409*(-t54*(62622424088128.0e-14)+t302)+t417*(-t84*(62622424088128.0e-14)+t302)+t457*(-t369+t302)+t459*(-t129*(53520803256344177.0e-17)+t128*(47733433610735073.0e-17)-t54*(56835054442518897.0e-17)+t302)+t433*(-t129*(30608485020256569.0e-17)+t128*(12890191930706386.0e-17)-t54*(44904130998577817.0e-17)+t302)+t450*(t183+t371)+t184+t468*(t183+t362)-t207+t314*(t183+t385)+t303;
Grad[9*i+15] += -t249*t253+t459*(-t132*(53520803256344177.0e-17)+t133*(47733433610735073.0e-17)-t45*(56835054442518897.0e-17)+t292)+t417*(-t78*(62622424088128.0e-14)+t292)+t187+t450*(t186+t383)+t433*(-t132*(30608485020256569.0e-17)+t133*(12890191930706386.0e-17)-t45*(44904130998577817.0e-17)+t292)+t457*(-t381+t292)+t409*(-t45*(62622424088128.0e-14)+t292)+t468*(t186+t398)+t221+t314*(t186+t389)+t295;
Grad[9*i+16] += t140*(t103+t41)+t220+t418*(t103+t374)-t104-t171+t347*(t103+t360);
Grad[9*i+17] += t219+t140*(t100+t362)+t418*(t100+t371)-t169-t101+t347*(t100+t385);
Grad[9*i+18] += t140*(t97+t398)+(-t480*t212+t514*t351)*t216+(-t514*t353+t480*t214)*t217+t347*(t97+t389)-t173-t98;
Grad[9*i+19] += t417*(-t81*(48426974690822.0e-14)+t75)+t433*(-t136*(23670056708669956.0e-17)+t137*(99682024047756182.0e-18)-t50*(34725120386927663.0e-17)+t75)+t76+t459*(-t136*(41388538091083061.0e-17)+t137*(36913067723472741.0e-17)-t50*(43951504323211681.0e-17)+t75)+t409*(-t50*(48426974690822.0e-14)+t75)+t457*(-t40*(48426974690822.0e-14)+t75);
Grad[9*i+20] += t417*(-t84*(48426974690822.0e-14)+t72)+t433*(-t129*(23670056708669956.0e-17)+t128*(99682024047756182.0e-18)-t54*(34725120386927663.0e-17)+t72)+t459*(-t129*(41388538091083061.0e-17)+t128*(36913067723472741.0e-17)-t54*(43951504323211681.0e-17)+t72)+t409*(-t54*(48426974690822.0e-14)+t72)+t457*(-t38*(48426974690822.0e-14)+t72)-t73;
Grad[9*i+21] += t417*(-t78*(48426974690822.0e-14)+t69)+t433*(-t132*(23670056708669956.0e-17)+t133*(99682024047756182.0e-18)-t45*(34725120386927663.0e-17)+t69)+t409*(-t45*(48426974690822.0e-14)+t69)+t457*(-t36*(48426974690822.0e-14)+t69)+t459*(-t132*(41388538091083061.0e-17)+t133*(36913067723472741.0e-17)-t45*(43951504323211681.0e-17)+t69)-t70;
} else {
/* partition in CA(i-1), part1=7280, rest=8377 */
/* partition in CA(j), part1=6721, rest=1657 */
/* final chunk, 1658 */
/* vars = [v[9*i-17], v[9*i-16], v[9*i-15], v[9*i
-14], v[9*i-13], v[9*i-12], v[9*i-8], v[9*i-7], v[9*i-6], v[9*j-17], v[9*j-16]
, v[9*j-15], v[9*j-14], v[9*j-13], v[9*j-12], v[9*j-8], v[9*j-7], v[9*j-6], v[9
*j-5], v[9*j-4], v[9*j-3], v[9*j-2], v[9*j-1], v[9*j], v[9*j+1], v[9*j+2], v[9*
j+3]] */
/* enter PartitionList ls = 601058 */
/* final chunk, 601058 */
/* length(li)=601058, nops(li)=28 */
/* input: len=601058, nops=28
output: len=48120, nops=314, in 1742 secs
length ratio 12.49, cost: 410*subtractions+1006*multiplications+462*additions+18*divisions+57*subscripts+561*functions+314*assignments */
/* 66 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-12];
t2 = v[9*i-15];
t3 = v[9*i-6];
t4 = t2*(48877834842646.0e-14)+t3*(71706152632138.0e-14)-t1*(20583987474784.0e-14);
t5 = v[9*j-12];
t6 = v[9*j-15];
t7 = v[9*j-6];
t8 = -t6*(48877834842646.0e-14)-t7*(71706152632138.0e-14)+t5*(20583987474784.0e-14);
t9 = t4+t8;
t10 = v[9*j-17];
t11 = v[9*j-8];
t12 = v[9*j-14];
t13 = t12*(20583987474784.0e-14)-t11*(71706152632138.0e-14)-t10*(48877834842646.0e-14);
t14 = v[9*i-17];
t15 = v[9*i-14];
t16 = v[9*i-8];
t17 = t16*(71706152632138.0e-14)+t14*(48877834842646.0e-14)-t15*(20583987474784.0e-14);
t18 = t13+t17;
t19 = v[9*i-16];
t20 = v[9*i-7];
t21 = v[9*i-13];
t22 = t20*(71706152632138.0e-14)+t19*(48877834842646.0e-14)-t21*(20583987474784.0e-14);
t23 = v[9*j-13];
t24 = v[9*j-16];
t25 = v[9*j-7];
t26 = -t24*(48877834842646.0e-14)+t23*(20583987474784.0e-14)-t25*(71706152632138.0e-14);
t27 = t22+t26;
t9 = 1/(t9*t9+t27*t27+t18*t18);
t18 = t9*t9;
t27 = t9*t18;
t28 = t27*t9;
t29 = t18*t28;
t28 = 4374*t28-3188646*t29*t9;
t30 = t19*(70096829711104138.0e-17)-t21*(29519970952897567.0e-17)+t20*(10283544650606943.0e-16);
t31 = -t23*(29519970952897567.0e-17)+t24*(70096829711104138.0e-17)+t25*(10283544650606943.0e-16);
t32 = t28*(t31-t30);
t33 = t16*(10283544650606943.0e-16)+t14*(70096829711104138.0e-17)-t15*(29519970952897567.0e-17);
t34 = t11*(10283544650606943.0e-16)+t10*(70096829711104138.0e-17)-t12*(29519970952897567.0e-17);
t35 = t28*(t34-t33);
t36 = -t20*(29519970952897567.0e-17)+t21*(84740108072412919.0e-18)-t19*(20122014803911725.0e-17);
t37 = -t25*(29519970952897567.0e-17)+t23*(84740108072412919.0e-18)-t24*(20122014803911725.0e-17);
t38 = t28*(t37-t36);
t39 = -t10*(20122014803911725.0e-17)+t12*(84740108072412919.0e-18)-t11*(29519970952897567.0e-17);
t40 = t15*(84740108072412919.0e-18)-t16*(29519970952897567.0e-17)-t14*(20122014803911725.0e-17);
t41 = t28*(t39-t40);
t42 = t24*(47780854778099587.0e-17)+t25*(70096829711104138.0e-17)-t23*(20122014803911725.0e-17);
t43 = t19*(47780854778099587.0e-17)+t20*(70096829711104138.0e-17)-t21*(20122014803911725.0e-17);
t44 = t28*(t42-t43);
t45 = t10*(47780854778099587.0e-17)-t12*(20122014803911725.0e-17)+t11*(70096829711104138.0e-17);
t46 = t16*(70096829711104138.0e-17)-t15*(20122014803911725.0e-17)+t14*(47780854778099587.0e-17);
t47 = t28*(t45-t46);
t48 = v[9*j-2];
t49 = t14*(85465875899382.0e-14)+t16*(907583110525.0e-12)-t15*(76224186951882.0e-14);
t50 = -t48+t49;
t51 = v[9*j-1];
t52 = -t21*(76224186951882.0e-14)+t20*(907583110525.0e-12)+t19*(85465875899382.0e-14);
t53 = -t51+t52;
t54 = t2*(85465875899382.0e-14)-t1*(76224186951882.0e-14)+t3*(907583110525.0e-12);
t55 = v[9*j];
t56 = -t55+t54;
t50 = t50*t50+t53*t53+t56*t56;
t53 = 1/t50;
t56 = t53*t53;
t57 = t53*t56;
t58 = t53*t57;
t59 = RadiusR[j];
t60 = 12.0e-1+t59;
t61 = t60*t60;
t60 *= t61;
t61 = t60*t60;
t62 = t61*t61*t56*t58;
t63 = -t55+t4;
t64 = -t51+t22;
t65 = -t48+t17;
t63 = 1/(t65*t65+t64*t64+t63*t63);
t64 = t63*t63;
t65 = t63*t64;
t66 = t63*t65;
t59 += 15.0e-1;
t67 = t59*t59;
t67 *= t59;
t68 = t67*t67;
t69 = t68*t68*t64*t66;
t70 = k31*k32;
t71 = k30*t70;
t72 = v[9*j-4];
t73 = -t72+t52;
t74 = v[9*j-3];
t75 = -t74+t54;
t76 = v[9*j-5];
t77 = -t76+t49;
t78 = t77*t77+t73*t73+t75*t75;
t79 = 1/sqrt(t78);
t80 = t14*(36588041056736.0e-14)-t15*(55640199477098.0e-14)+t16*(19052158420362.0e-14);
t81 = t2*(36588041056736.0e-14)-t1*(55640199477098.0e-14)+t3*(19052158420362.0e-14);
t82 = t19*(36588041056736.0e-14)-t21*(55640199477098.0e-14)+t20*(19052158420362.0e-14);
t83 = t82*t82+t80*t80+t81*t81;
t84 = 1/sqrt(t83);
t73 = -t77*t80-t73*t82-t75*t81;
t75 = t73*t79*t84-1;
t77 = 1/(1+k37*t75*t75);
t84 *= k37*t77*t77*t79*t79*(2)*t75;
t85 = t71*t84;
t86 = t1*(84740108072412919.0e-18)-t3*(29519970952897567.0e-17)-t2*(20122014803911725.0e-17);
t87 = t16*(16474142050204687.0e-16)-t15*(13835956938205637.0e-16)+t14*(15513477098500949.0e-16);
t88 = t3*(16474142050204687.0e-16)+t2*(15513477098500949.0e-16)-t1*(13835956938205637.0e-16);
t89 = t20*(15513477098500949.0e-16)-t21*(13029133805121679.0e-16)+t19*(1460883188649713.0e-15);
t90 = -t15*(13029133805121679.0e-16)+t14*(1460883188649713.0e-15)+t16*(15513477098500949.0e-16);
t91 = t1*(11620253352950916.0e-16)-t3*(13835956938205637.0e-16)-t2*(13029133805121679.0e-16);
t92 = -t20*(13835956938205637.0e-16)+t21*(11620253352950916.0e-16)-t19*(13029133805121679.0e-16);
t93 = t15*(11620253352950916.0e-16)-t16*(13835956938205637.0e-16)-t14*(13029133805121679.0e-16);
t94 = t2*(1460883188649713.0e-15)+t3*(15513477098500949.0e-16)-t1*(13029133805121679.0e-16);
t95 = t3*(70096829711104138.0e-17)+t2*(47780854778099587.0e-17)-t1*(20122014803911725.0e-17);
t96 = -t21*(13835956938205637.0e-16)+t19*(15513477098500949.0e-16)+t20*(16474142050204687.0e-16);
t97 = t2*(70096829711104138.0e-17)-t1*(29519970952897567.0e-17)+t3*(10283544650606943.0e-16);
t98 = -t11*(907583110525.0e-12)+t12*(76224186951882.0e-14)-t10*(85465875899382.0e-14);
t99 = t98+t49;
t100 = t5*(76224186951882.0e-14)-t6*(85465875899382.0e-14)-t7*(907583110525.0e-12);
t101 = t100+t54;
t102 = -t24*(85465875899382.0e-14)+t23*(76224186951882.0e-14)-t25*(907583110525.0e-12);
t103 = t102+t52;
t99 = t99*t99+t103*t103+t101*t101;
t101 = 1/t99;
t103 = k31*k31/sqrt(t99);
t104 = t101*(5.0e-1)*t103;
t105 = t101*t101;
t106 = t101*t105;
t107 = t101*t106;
t105 *= t107;
t107 = -1146617856.0e-6*t107+21912208461633946.0e-11*t101*t105;
t108 = k30*t104+t107;
t109 = -t5*(13029133805121679.0e-16)+t6*(1460883188649713.0e-15)+t7*(15513477098500949.0e-16);
t110 = t7*(70096829711104138.0e-17)-t5*(20122014803911725.0e-17)+t6*(47780854778099587.0e-17);
t111 = -t28*(t110-t95)+t108*(t109-t94);
t112 = -t7*(29519970952897567.0e-17)+t5*(84740108072412919.0e-18)-t6*(20122014803911725.0e-17);
t113 = t5*(11620253352950916.0e-16)-t6*(13029133805121679.0e-16)-t7*(13835956938205637.0e-16);
t114 = t28*(t112-t86)-t108*(t113-t91);
t115 = -t5*(29519970952897567.0e-17)+t7*(10283544650606943.0e-16)+t6*(70096829711104138.0e-17);
t116 = -t5*(13835956938205637.0e-16)+t6*(15513477098500949.0e-16)+t7*(16474142050204687.0e-16);
t117 = t28*(t115-t97)-t108*(t116-t88);
t78 = 1/t78;
t118 = (5.0e-1)*t78;
t79 *= t77;
t119 = t118*t79;
t120 = t78*t78;
t121 = t78*t120;
t122 = t78*t121;
t120 *= t122;
t122 = -57257373997009306.0e-11*t78*t120+1853494656.0e-6*t122;
t123 = (-t119+t73*t118*t84)*t71+t122;
t124 = -t2*(170931751798764.0e-14)-t3*(181516622105.0e-11)+t1*(152448373903764.0e-14);
t125 = -t16*(143412305264276.0e-14)+t15*(41167974949568.0e-14)-t14*(97755669685292.0e-14);
t126 = -t23*(13835956938205637.0e-16)+t24*(15513477098500949.0e-16)+t25*(16474142050204687.0e-16);
t127 = t15*(152448373903764.0e-14)-t16*(181516622105.0e-11)-t14*(170931751798764.0e-14);
t128 = t10*(15513477098500949.0e-16)-t12*(13835956938205637.0e-16)+t11*(16474142050204687.0e-16);
t129 = t23*(11620253352950916.0e-16)-t24*(13029133805121679.0e-16)-t25*(13835956938205637.0e-16);
t130 = v[9*j+3];
t131 = t130*(21538042570325944.0e-17)+t74*(27851511362792747.0e-17)+t7*(39561047287931309.0e-17);
t132 = v[9*j+2];
t133 = t132*(21538042570325944.0e-17)+t72*(27851511362792747.0e-17)+t25*(39561047287931309.0e-17);
t134 = -t11*(13835956938205637.0e-16)-t10*(13029133805121679.0e-16)+t12*(11620253352950916.0e-16);
t135 = v[9*j+1];
t136 = t76*(27851511362792747.0e-17)+t135*(21538042570325944.0e-17)+t11*(39561047287931309.0e-17);
t83 = 1/t83*(5.0e-1);
t137 = -t20*(143412305264276.0e-14)-t19*(97755669685292.0e-14)+t21*(41167974949568.0e-14);
t138 = -t74*(31311212044064.0e-14)-t130*(24213487345411.0e-14)-t7*(44475300610525.0e-14);
t139 = t7*(27851511362792747.0e-17)+t130*(15163072731968483.0e-17)+t74*(1960783999336677.0e-16);
t140 = -t12*(13029133805121679.0e-16)+t11*(15513477098500949.0e-16)+t10*(1460883188649713.0e-15);
t141 = -t20*(181516622105.0e-11)-t19*(170931751798764.0e-14)+t21*(152448373903764.0e-14);
t142 = -t25*(44475300610525.0e-14)-t132*(24213487345411.0e-14)-t72*(31311212044064.0e-14);
t143 = t132*(15163072731968483.0e-17)+t25*(27851511362792747.0e-17)+t72*(1960783999336677.0e-16);
t144 = t24*(1460883188649713.0e-15)-t23*(13029133805121679.0e-16)+t25*(15513477098500949.0e-16);
t145 = t132*(11725859388527573.0e-17)+t72*(15163072731968483.0e-17)+t25*(21538042570325944.0e-17);
t146 = -t11*(44475300610525.0e-14)-t135*(24213487345411.0e-14)-t76*(31311212044064.0e-14);
t147 = t135*(15163072731968483.0e-17)+t11*(27851511362792747.0e-17)+t76*(1960783999336677.0e-16);
t148 = t11*(21538042570325944.0e-17)+t135*(11725859388527573.0e-17)+t76*(15163072731968483.0e-17);
t149 = t1*(41167974949568.0e-14)-t2*(97755669685292.0e-14)-t3*(143412305264276.0e-14);
t150 = t7*(21538042570325944.0e-17)+t74*(15163072731968483.0e-17)+t130*(11725859388527573.0e-17);
t66 = (-t63*t69+t68*t66)*(6);
t151 = t4-t7;
t152 = -t11+t17;
t153 = -t25+t22;
t151 = 1/(t153*t153+t152*t152+t151*t151);
t152 = t151*t151;
t153 = t151*t152;
t154 = t151*t153;
t155 = t152*t154;
t154 = -t155*t151*(20275323048339844.0e-9)+t154*(1102959375.0e-5);
t156 = t4+t138;
t157 = t142+t22;
t158 = t146+t17;
t156 = 1/(t158*t158+t157*t157+t156*t156);
t157 = t156*t156;
t158 = t156*t157;
t159 = t156*t158;
t160 = t157*t159;
t159 = -t160*t156*(20275323048339844.0e-9)+t159*(1102959375.0e-5);
t161 = -t11+t49;
t162 = -t25+t52;
t163 = -t7+t54;
t161 = 1/(t161*t161+t162*t162+t163*t163);
t162 = t161*t161;
t163 = t161*t162;
t164 = t161*t163;
t165 = t162*t164;
t164 = t164*(6442450944.0e-6)-t165*t161*(69175290276410819.0e-10);
t138 += t54;
t142 += t52;
t146 += t49;
t166 = 1/(t146*t146+t142*t142+t138*t138);
t167 = t166*t166;
t168 = t166*t167;
t169 = t166*t168;
t167 *= t169;
t166 = -t167*t166*(69175290276410819.0e-10)+t169*(6442450944.0e-6);
t169 = k39*k30*k31*ChargeR[j]/sqrt(t50);
t58 = -t53*t169*(5.0e-1)+(-t53*t62+t61*t58)*(6);
t170 = -t76+t17;
t171 = -t72+t22;
t172 = -t74+t4;
t170 = 1/(t171*t171+t170*t170+t172*t172);
t171 = t170*t170;
t172 = t170*t171;
t173 = t172*t170;
t174 = t171*t173;
t173 = 3568939926.0e-6*t173-21228886992328142.0e-10*t174*t170;
t4 += t100;
t22 += t102;
t17 += t98;
t98 = 1/(t17*t17+t22*t22+t4*t4);
t100 = t98*t98;
t102 = t98*t100;
t175 = t98*t102;
t176 = t100*t175;
t175 = t175*(2324522934.0e-6)-t176*t98*(90056781178199473.0e-11);
t13 += t49;
t8 += t54;
t26 += t52;
t49 = 1/(t13*t13+t26*t26+t8*t8);
t52 = t49*t49;
t54 = t49*t52;
t177 = t49*t54;
t178 = t52*t177;
t177 = -t178*t49*(90056781178199473.0e-11)+t177*(2324522934.0e-6);
t179 = t55*(2);
t180 = t11*(2);
t181 = t25*(2);
t182 = t76*(2);
t183 = t51*(2);
t184 = t48*(2);
t185 = t7*(2);
t186 = t74*(2);
t187 = t72*(2);
t188 = t11*(13015858609931244.0e-16);
t189 = t25*(13015858609931244.0e-16);
t190 = t7*(13015858609931244.0e-16);
t191 = t16*(13015858609931244.0e-16);
t192 = t20*(13015858609931244.0e-16);
t193 = t3*(13015858609931244.0e-16);
t194 = t12*(31379954189862662.0e-17);
t195 = t23*(31379954189862662.0e-17);
t196 = t5*(31379954189862662.0e-17);
t197 = t15*(31379954189862662.0e-17);
t198 = t21*(31379954189862662.0e-17);
t199 = t1*(31379954189862662.0e-17);
t200 = t10*(83547739337841451.0e-17);
t201 = t14*(83547739337841451.0e-17);
t202 = t19*(83547739337841451.0e-17);
t203 = t2*(83547739337841451.0e-17);
t204 = t24*(83547739337841451.0e-17);
t205 = t6*(83547739337841451.0e-17);
t206 = -t76*(181516622105.0e-11)+t87;
t207 = -t72*(181516622105.0e-11)+t96;
t208 = -t74*(181516622105.0e-11)+t88;
t209 = -t76*(170931751798764.0e-14)+t90;
t210 = -t72*(170931751798764.0e-14)+t89;
t211 = -t74*(170931751798764.0e-14)+t94;
t212 = t76*(152448373903764.0e-14)+t93;
t213 = t72*(152448373903764.0e-14)+t92;
t214 = t74*(152448373903764.0e-14)+t91;
t215 = t128-t87;
t216 = t126-t96;
t217 = t140-t90;
t218 = t144-t89;
t219 = t134-t93;
t220 = t129-t92;
Grad[0] += t169-382205952.0e-6*t106+(t79*t70+t103)*k30+t69+t62+36520347436056576.0e-12*t105-1189646642.0e-6*t172+531441*t29+35381478320546904.0e-11*t174+95428956661682176.0e-12*t120-1458*t27-617831552.0e-6*t121+(-t68*t65-t61*t57)*(2)+(-t158-t153)*(367653125.0e-5)+(-t168-t163)*(2147483648.0e-6)+(-t54-t102)*(774840978.0e-6)+(t155+t160)*(33792205080566406.0e-10)+(t165+t167)*(1152921504606847.0e-9)+(t178+t176)*(15009463529699912.0e-11);
Grad[9*i-17] +=
t122*t209+t175*(-t200+t12*(74513464416981212.0e-17)-t11*(
88721394764431761.0e-17)+t46)+t66*(-(97755669685292.0e-14)*t48+t46)+t166*(-t11*
(76022410451336763.0e-17)-t76*(53520803256344177.0e-17)-t135*(
41388538091083061.0e-17)+t90)+t159*(-t11*(43477127956365475.0e-17)-t76*(
30608485020256569.0e-17)-t135*(23670056708669956.0e-17)+t46)+t173*(-t76*(
97755669685292.0e-14)+t46)-t47+t177*(-t200+t12*(35184570380686456.0e-17)-t11*(
12256858284160901.0e-16)+t90)+t164*(-t11*(170931751798764.0e-14)+t90)+t154*(-
t11*(97755669685292.0e-14)+t46)+t58*(-t48*(170931751798764.0e-14)+t90)+t107*
t217+((-(-t14*(62540579527129849.0e-17)+t15*(7544232065238296.0e-16)-t16*(
49489782181989112.0e-17)+t76*(36588041056736.0e-14)+(-t209*t118-(t14*(
26773694967387984.0e-17)-t15*(40715318057460851.0e-17)+t16*(
13941623090072867.0e-17))*t83)*t73)*t84-t209*t119)*t70+t217*t104)*k30 ;
Grad[9*i-16] += t122*t210+t175*(-t204+t23*(74513464416981212.0e-17)-t25*(
88721394764431761.0e-17)+t43)+t66*(-t51*(97755669685292.0e-14)+t43)+t159*(-t25*
(43477127956365475.0e-17)-t72*(30608485020256569.0e-17)-t132*(
23670056708669956.0e-17)+t43)+t166*(-t25*(76022410451336763.0e-17)-t72*(
53520803256344177.0e-17)-t132*(41388538091083061.0e-17)+t89)+t154*(-t25*(
97755669685292.0e-14)+t43)-t44+t177*(-t204+t23*(35184570380686456.0e-17)-t25*(
12256858284160901.0e-16)+t89)+t164*(-t25*(170931751798764.0e-14)+t89)+t173*(-
t72*(97755669685292.0e-14)+t43)+t58*(-t51*(170931751798764.0e-14)+t89)+t107*
t218+((-t210*t119-(-t19*(62540579527129849.0e-17)+t21*(7544232065238296.0e-16)-
t20*(49489782181989112.0e-17)+t72*(36588041056736.0e-14)+(-t210*t118-(t19*(
26773694967387984.0e-17)-t21*(40715318057460851.0e-17)+t20*(
13941623090072867.0e-17))*t83)*t73)*t84)*t70+t218*t104)*k30 ;
Grad[9*i-15] += t122*t211+(-(-t2*(62540579527129849.0e-17)+t1*(7544232065238296.0e-16)-t3*(
49489782181989112.0e-17)+t74*(36588041056736.0e-14)+(-t211*t118-(t2*(
26773694967387984.0e-17)-t1*(40715318057460851.0e-17)+t3*(
13941623090072867.0e-17))*t83)*t73)*t84-t211*t119)*t71+t66*(-t55*(
97755669685292.0e-14)+t95)+t166*(-t7*(76022410451336763.0e-17)-t74*(
53520803256344177.0e-17)-t130*(41388538091083061.0e-17)+t94)+t159*(-t7*(
43477127956365475.0e-17)-t74*(30608485020256569.0e-17)-t130*(
23670056708669956.0e-17)+t95)+t175*(-t205+t5*(74513464416981212.0e-17)-t7*(
88721394764431761.0e-17)+t95)+t177*(-t205+t5*(35184570380686456.0e-17)-t7*(
12256858284160901.0e-16)+t94)+t164*(-t7*(170931751798764.0e-14)+t94)+t173*(-t74
*(97755669685292.0e-14)+t95)+t154*(-t7*(97755669685292.0e-14)+t95)+t58*(-t55*(
170931751798764.0e-14)+t94)+t111 ;
Grad[9*i-14] += t122*t212+t159*(t11*(18309580614085996.0e-17)+t76*(12890191930706386.0e-17)+
t135*(99682024047756182.0e-18)+t40)+t66*((41167974949568.0e-14)*t48+t40)-t41+
t166*(t11*(67801872569556185.0e-17)+t76*(47733433610735073.0e-17)+t135*(
36913067723472741.0e-17)+t93)+t173*(t76*(41167974949568.0e-14)+t40)+t177*(t10*(
74513464416981212.0e-17)-t194+t11*(10931486367664545.0e-16)+t93)+t164*(t11*(
152448373903764.0e-14)+t93)+t175*(t10*(35184570380686456.0e-17)-t194+t11*(
37363358758744205.0e-17)+t40)+t154*(t11*(41167974949568.0e-14)+t40)+t58*(t48*(
152448373903764.0e-14)+t93)+t107*t219+((-(t14*(7544232065238296.0e-16)-t15*(
84822579339646501.0e-17)+t16*(65020458164361541.0e-17)-t76*(
55640199477098.0e-14)+(-t212*t118-(-t14*(40715318057460851.0e-17)+t15*(
61916635957025131.0e-17)-t16*(2120131789956428.0e-16))*t83)*t73)*t84-t212*t119)
*t70+t219*t104)*k30 ;
Grad[9*i-13] += t122*t213+t159*(t25*(18309580614085996.0e-17)+t72*(12890191930706386.0e-17)+
t132*(99682024047756182.0e-18)+t36)+t66*(t51*(41167974949568.0e-14)+t36)+t166*(
t25*(67801872569556185.0e-17)+t72*(47733433610735073.0e-17)+t132*(
36913067723472741.0e-17)+t92)+t175*(t24*(35184570380686456.0e-17)-t195+t25*(
37363358758744205.0e-17)+t36)+t173*(t72*(41167974949568.0e-14)+t36)-t38+t177*(
t24*(74513464416981212.0e-17)-t195+t25*(10931486367664545.0e-16)+t92)+t164*(t25
*(152448373903764.0e-14)+t92)+t154*(t25*(41167974949568.0e-14)+t36)+t58*(t51*(
152448373903764.0e-14)+t92)+t107*t220+((-t213*t119-(t19*(7544232065238296.0e-16
)-t21*(84822579339646501.0e-17)+t20*(65020458164361541.0e-17)-t72*(
55640199477098.0e-14)+(-t213*t118-(-t19*(40715318057460851.0e-17)+t21*(
61916635957025131.0e-17)-t20*(2120131789956428.0e-16))*t83)*t73)*t84)*t70+t220*
t104)*k30 ;
Grad[9*i-12] += t122*t214+(-(t2*(7544232065238296.0e-16)-t1*(84822579339646501.0e-17)+t3*(
65020458164361541.0e-17)-t74*(55640199477098.0e-14)+(-t214*t118-(-t2*(
40715318057460851.0e-17)+t1*(61916635957025131.0e-17)-t3*(
2120131789956428.0e-16))*t83)*t73)*t84-t214*t119)*t71+t66*(t55*(
41167974949568.0e-14)+t86)+t166*(t7*(67801872569556185.0e-17)+t74*(
47733433610735073.0e-17)+t130*(36913067723472741.0e-17)+t91)+t175*(t6*(
35184570380686456.0e-17)-t196+t7*(37363358758744205.0e-17)+t86)+t159*(t7*(
18309580614085996.0e-17)+t74*(12890191930706386.0e-17)+t130*(
99682024047756182.0e-18)+t86)+t177*(t6*(74513464416981212.0e-17)-t196+t7*(
10931486367664545.0e-16)+t91)+t164*(t7*(152448373903764.0e-14)+t91)+t173*(t74*(
41167974949568.0e-14)+t86)+t154*(t7*(41167974949568.0e-14)+t86)+t58*(t55*(
152448373903764.0e-14)+t91)-t114 ;
Grad[9*i-8] += t122*t206-t35+t66*(-t48*(143412305264276.0e-14)+t33)+t159*(-t11*(
63783053878770521.0e-17)-t76*(44904130998577817.0e-17)-t135*(
34725120386927663.0e-17)+t33)+t175*(-t10*(12256858284160901.0e-16)+t12*(
10931486367664545.0e-16)-t188+t33)+t173*(-t76*(143412305264276.0e-14)+t33)+t166
*(-t11*(80730063339269422.0e-17)-t76*(56835054442518897.0e-17)-t135*(
43951504323211681.0e-17)+t87)+t177*(-t10*(88721394764431761.0e-17)+t12*(
37363358758744205.0e-17)-t188+t87)+t164*(-t11*(181516622105.0e-11)+t87)+t154*(-
t11*(143412305264276.0e-14)+t33)+t58*(-t48*(181516622105.0e-11)+t87)+t107*t215+
((-t206*t119-(-t14*(49489782181989112.0e-17)+t15*(65020458164361541.0e-17)-t16*
(34582834402734429.0e-17)+t76*(19052158420362.0e-14)+(-t206*t118-(t14*(
13941623090072867.0e-17)-t15*(2120131789956428.0e-16)+t16*(
72596948094914132.0e-18))*t83)*t73)*t84)*t70+t215*t104)*k30 ;
Grad[9*i-7] += t122*t207-t32+t66*(-t51*(143412305264276.0e-14)+t30)+t159*(-t25*(
63783053878770521.0e-17)-t72*(44904130998577817.0e-17)-t132*(
34725120386927663.0e-17)+t30)+t175*(-t24*(12256858284160901.0e-16)+t23*(
10931486367664545.0e-16)-t189+t30)+t173*(-t72*(143412305264276.0e-14)+t30)+t166
*(-t25*(80730063339269422.0e-17)-t72*(56835054442518897.0e-17)-t132*(
43951504323211681.0e-17)+t96)+t164*(-t25*(181516622105.0e-11)+t96)+t177*(-t24*(
88721394764431761.0e-17)+t23*(37363358758744205.0e-17)-t189+t96)+t154*(-t25*(
143412305264276.0e-14)+t30)+t58*(-t51*(181516622105.0e-11)+t96)+t107*t216+((-(-
t19*(49489782181989112.0e-17)+t21*(65020458164361541.0e-17)-t20*(
34582834402734429.0e-17)+t72*(19052158420362.0e-14)+(-t207*t118-(t19*(
13941623090072867.0e-17)-t21*(2120131789956428.0e-16)+t20*(
72596948094914132.0e-18))*t83)*t73)*t84-t207*t119)*t70+t216*t104)*k30 ;
Grad[9*i-6] += t122*t208+(-t208*t119-(-t2*(49489782181989112.0e-17)+t1*(
65020458164361541.0e-17)-t3*(34582834402734429.0e-17)+t74*(19052158420362.0e-14
)+(-t208*t118-(t2*(13941623090072867.0e-17)-t1*(2120131789956428.0e-16)+t3*(
72596948094914132.0e-18))*t83)*t73)*t84)*t71+t66*(-t55*(143412305264276.0e-14)+
t97)+t159*(-t7*(63783053878770521.0e-17)-t74*(44904130998577817.0e-17)-t130*(
34725120386927663.0e-17)+t97)+t175*(-t6*(12256858284160901.0e-16)+t5*(
10931486367664545.0e-16)-t190+t97)+t177*(-t6*(88721394764431761.0e-17)+t5*(
37363358758744205.0e-17)-t190+t88)+t154*(-t7*(143412305264276.0e-14)+t97)+t173*
(-t74*(143412305264276.0e-14)+t97)+t166*(-t7*(80730063339269422.0e-17)-t74*(
56835054442518897.0e-17)-t130*(43951504323211681.0e-17)+t88)+t164*(-t7*(
181516622105.0e-11)+t88)+t58*(-t55*(181516622105.0e-11)+t88)-t117 ;
Grad[9*j-17] += t177*(-t201+t15*(74513464416981212.0e-17)-t16*(88721394764431761.0e-17)+t45)+t47+t175*(-t201+t15*(35184570380686456.0e-17)-t16*(12256858284160901.0e-16)+t140)-t108*t217;
Grad[9*j-16] += t177*(-t202+t21*(74513464416981212.0e-17)-t20*(88721394764431761.0e-17)+t42)+t44+t175*(-t202+t21*(35184570380686456.0e-17)-t20*(12256858284160901.0e-16)+t144)-t108*t218;
Grad[9*j-15] += t177*(-t203+t1*(74513464416981212.0e-17)-t3*(88721394764431761.0e-17)+t110)+t175*(-t203+t1*(35184570380686456.0e-17)-t3*(12256858284160901.0e-16)+t109)-t111;
Grad[9*j-14] += t41+t177*(t14*(35184570380686456.0e-17)-t197+t16*(37363358758744205.0e-17)+t39)+t175*(t14*(74513464416981212.0e-17)-t197+t16*(10931486367664545.0e-16)+t134)-t108*t219;
Grad[9*j-13] += t177*(t19*(35184570380686456.0e-17)-t198+t20*(37363358758744205.0e-17)+t37)+t38+t175*(t19*(74513464416981212.0e-17)-t198+t20*(10931486367664545.0e-16)+t129)-t108*t220;
Grad[9*j-12] += t177*(t2*(35184570380686456.0e-17)-t199+t3*(37363358758744205.0e-17)+t112)+t175*(t2*(74513464416981212.0e-17)-t199+t3*(10931486367664545.0e-16)+t113)+t114;
Grad[9*j-8] += t166*(-t14*(76022410451336763.0e-17)+t15*(67801872569556185.0e-17)-t16*(80730063339269422.0e-17)+t136)+t159*(-t14*(43477127956365475.0e-17)+t15*(18309580614085996.0e-17)-t16*(63783053878770521.0e-17)+t136)+t177*(-t14*(12256858284160901.0e-16)+t15*(10931486367664545.0e-16)-t191+t34)+t35+t175*(-t14*(88721394764431761.0e-17)+t15*(37363358758744205.0e-17)-t191+t128)+t154*(t180+t125)+t164*(t180+t127)-t108*t215;
Grad[9*j-7] += t166*(-t19*(76022410451336763.0e-17)+t21*(67801872569556185.0e-17)-t20*(80730063339269422.0e-17)+t133)+t159*(-t19*(43477127956365475.0e-17)+t21*(18309580614085996.0e-17)-t20*(63783053878770521.0e-17)+t133)+t177*(-t19*(12256858284160901.0e-16)+t21*(10931486367664545.0e-16)-t192+t31)+t32+t154*(t181+t137)+t175*(-t19*(88721394764431761.0e-17)+t21*(37363358758744205.0e-17)-t192+t126)+t164*(t181+t141)-t108*t216;
Grad[9*j-6] += t166*(-t2*(76022410451336763.0e-17)+t1*(67801872569556185.0e-17)-t3*(80730063339269422.0e-17)+t131)+t159*(-t2*(43477127956365475.0e-17)+t1*(18309580614085996.0e-17)-t3*(63783053878770521.0e-17)+t131)+t177*(-t2*(12256858284160901.0e-16)+t1*(10931486367664545.0e-16)-t193+t115)+t154*(t185+t149)+t175*(-t2*(88721394764431761.0e-17)+t1*(37363358758744205.0e-17)-t193+t116)+t164*(t185+t124)+t117;
Grad[9*j-5] += t166*(-t14*(53520803256344177.0e-17)+t15*(47733433610735073.0e-17)-t16*(56835054442518897.0e-17)+t147)-t80*t85+t159*(-t14*(30608485020256569.0e-17)+t15*(12890191930706386.0e-17)-t16*(44904130998577817.0e-17)+t147)+t173*(t182+t125)+t123*(t182+t127);
Grad[9*j-4] += t173*(t187+t137)-t82*t85+t159*(-t19*(30608485020256569.0e-17)+t21*(12890191930706386.0e-17)-t20*(44904130998577817.0e-17)+t143)+t166*(-t19*(53520803256344177.0e-17)+t21*(47733433610735073.0e-17)-t20*(56835054442518897.0e-17)+t143)+t123*(t187+t141);
Grad[9*j-3] += t173*(t186+t149)-t81*t85+t159*(-t2*(30608485020256569.0e-17)+t1*(12890191930706386.0e-17)-t3*(44904130998577817.0e-17)+t139)+t166*(-t2*(53520803256344177.0e-17)+t1*(47733433610735073.0e-17)-t3*(56835054442518897.0e-17)+t139)+t123*(t186+t124);
Grad[9*j-2] += t66*(t184+t125)+t58*(t184+t127);
Grad[9*j-1] += t66*(t183+t137)+t58*(t183+t141);
Grad[9*j] += t66*(t179+t149)+t58*(t179+t124);
Grad[9*j+1] += t166*(-t14*(41388538091083061.0e-17)+t15*(36913067723472741.0e-17)-t16*(43951504323211681.0e-17)+t148)+t159*(-t14*(23670056708669956.0e-17)+t15*(99682024047756182.0e-18)-t16*(34725120386927663.0e-17)+t148);
Grad[9*j+2] += t166*(-t19*(41388538091083061.0e-17)+t21*(36913067723472741.0e-17)-t20*(43951504323211681.0e-17)+t145)+t159*(-t19*(23670056708669956.0e-17)+t21*(99682024047756182.0e-18)-t20*(34725120386927663.0e-17)+t145);
Grad[9*j+3] += t166*(-t2*(41388538091083061.0e-17)+t1*(36913067723472741.0e-17)-t3*(43951504323211681.0e-17)+t150)+t159*(-t2*(23670056708669956.0e-17)+t1*(99682024047756182.0e-18)-t3*(34725120386927663.0e-17)+t150);
/* vars = [v[9*i-8], v[9*i-7], v[9*i
-6], v[9*i-5], v[9*i-4], v[9*i-3], v[9*i-2], v[9*i-1], v[9*i], v[9*i+1], v[9*i+
2], v[9*i+3], v[9*j-17], v[9*j-16], v[9*j-15], v[9*j-14], v[9*j-13], v[9*j-12]
, v[9*j-8], v[9*j-7], v[9*j-6], v[9*j-5], v[9*j-4], v[9*j-3], v[9*j+1], v[9*j+2
], v[9*j+3]] */
/* enter PartitionList ls = 509644 */
/* final chunk, 509644 */
/* length(li)=509644, nops(li)=28 */
/* input: len=509644, nops=28
output: len=42493, nops=344, in 1561 secs
length ratio 11.99, cost: 382*subtractions+978*multiplications+465*additions+21*divisions+57*subscripts+494*functions+344*assignments */
/* 90 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*j-7];
t2 = v[9*j-16];
t3 = v[9*j-13];
t4 = t3*(76224186951882.0e-14)-t2*(85465875899382.0e-14)-t1*(907583110525.0e-12);
t5 = v[9*i-4];
t6 = -t5-t4;
t7 = v[9*j-6];
t8 = v[9*j-15];
t9 = v[9*j-12];
t10 = t9*(76224186951882.0e-14)-t7*(907583110525.0e-12)-t8*(85465875899382.0e-14);
t11 = v[9*i-3];
t12 = -t11-t10;
t13 = v[9*i-5];
t14 = v[9*j-8];
t15 = v[9*j-14];
t16 = v[9*j-17];
t17 = -t14*(907583110525.0e-12)+t15*(76224186951882.0e-14)-t16*(85465875899382.0e-14);
t18 = t13+t17;
t19 = t12*t12+t6*t6+t18*t18;
t20 = 1/t19;
t21 = t20*(5.0e-1);
t22 = v[9*j-3];
t23 = v[9*j+3];
t24 = -t7*(44475300610525.0e-14)-t23*(24213487345411.0e-14)-t22*(31311212044064.0e-14);
t25 = v[9*i-6];
t26 = v[9*i+3];
t27 = t11*(31311212044064.0e-14)+t25*(44475300610525.0e-14)+t26*(24213487345411.0e-14);
t28 = t24+t27;
t29 = v[9*i-7];
t30 = v[9*i+2];
t31 = t5*(31311212044064.0e-14)+t30*(24213487345411.0e-14)+t29*(44475300610525.0e-14);
t32 = v[9*j-4];
t33 = v[9*j+2];
t34 = -t1*(44475300610525.0e-14)-t33*(24213487345411.0e-14)-t32*(31311212044064.0e-14);
t35 = t31+t34;
t36 = v[9*j+1];
t37 = v[9*j-5];
t38 = -t37*(31311212044064.0e-14)-t14*(44475300610525.0e-14)-t36*(24213487345411.0e-14);
t39 = v[9*i-8];
t40 = v[9*i+1];
t41 = t39*(44475300610525.0e-14)+t13*(31311212044064.0e-14)+t40*(24213487345411.0e-14);
t42 = t38+t41;
t28 = 1/(t42*t42+t35*t35+t28*t28);
t35 = t28*t28;
t42 = t28*t35;
t43 = t28*t42;
t44 = t35*t43;
t43 = t44*t28*(100663296)-t43*(24576);
t45 = t39*(27851511362792747.0e-17)+t13*(1960783999336677.0e-16)+t40*(15163072731968483.0e-17);
t46 = t36*(15163072731968483.0e-17)+t14*(27851511362792747.0e-17)+t37*(1960783999336677.0e-16);
t47 = t43*(t45-t46);
t48 = t11*(15163072731968483.0e-17)+t25*(21538042570325944.0e-17)+t26*(11725859388527573.0e-17);
t49 = t23*(11725859388527573.0e-17)+t22*(15163072731968483.0e-17)+t7*(21538042570325944.0e-17);
t50 = t43*(-t48+t49);
t51 = t1*(21538042570325944.0e-17)+t33*(11725859388527573.0e-17)+t32*(15163072731968483.0e-17);
t52 = t30*(11725859388527573.0e-17)+t29*(21538042570325944.0e-17)+t5*(15163072731968483.0e-17);
t53 = t43*(-t52+t51);
t54 = t39*(21538042570325944.0e-17)+t40*(11725859388527573.0e-17)+t13*(15163072731968483.0e-17);
t55 = t36*(11725859388527573.0e-17)+t37*(15163072731968483.0e-17)+t14*(21538042570325944.0e-17);
t56 = t43*(-t54+t55);
t57 = t26*(15163072731968483.0e-17)+t25*(27851511362792747.0e-17)+t11*(1960783999336677.0e-16);
t58 = t23*(15163072731968483.0e-17)+t7*(27851511362792747.0e-17)+t22*(1960783999336677.0e-16);
t59 = t43*(-t57+t58);
t60 = t30*(15163072731968483.0e-17)+t29*(27851511362792747.0e-17)+t5*(1960783999336677.0e-16);
t61 = t33*(15163072731968483.0e-17)+t1*(27851511362792747.0e-17)+t32*(1960783999336677.0e-16);
t62 = t43*(-t60+t61);
t63 = v[9*i];
t64 = t63*(2);
t65 = t7*(2);
t66 = RadiusR[i];
t67 = t66+(2);
t68 = t67*t67;
t67 *= t68;
t68 = t67*t67;
t69 = t68*(6);
t70 = t63-t7;
t71 = v[9*i-1];
t72 = t71-t1;
t73 = v[9*i-2];
t74 = t73-t14;
t70 = 1/(t72*t72+t70*t70+t74*t74);
t72 = t70*t70;
t74 = t70*t72;
t75 = t70*t74;
t76 = t68*t68;
t77 = (6)*t76;
t78 = t72*t75;
t75 = t75*t69-t78*t70*t77;
t79 = t75*(-t64+t65);
t80 = t73*(2);
t81 = t14*(2);
t82 = t75*(t81-t80);
t83 = t1*(2);
t84 = t71*(2);
t85 = t75*(-t84+t83);
t86 = t66+15.0e-1;
t87 = t86*t86;
t86 *= t87;
t87 = t86*t86;
t88 = -t16*(48877834842646.0e-14)+t15*(20583987474784.0e-14)-t14*(71706152632138.0e-14);
t89 = t73+t88;
t90 = t3*(20583987474784.0e-14)-t1*(71706152632138.0e-14)-t2*(48877834842646.0e-14);
t91 = t71+t90;
t92 = -t8*(48877834842646.0e-14)+t9*(20583987474784.0e-14)-t7*(71706152632138.0e-14);
t93 = t63+t92;
t89 = 1/(t89*t89+t91*t91+t93*t93);
t91 = t89*t89;
t93 = t89*t91;
t94 = t89*t93;
t95 = t87*t87*t91*t94;
t96 = t5-t1;
t97 = t11-t7;
t98 = t13-t14;
t96 = 1/(t96*t96+t97*t97+t98*t98);
t97 = t96*t96;
t98 = t96*t97;
t99 = t96*t98;
t100 = t99*t97;
t99 = -t99*(9268826496.0e-6)+t100*t96*(14318524102158606.0e-9);
t101 = t11*(2);
t102 = t99*(-t101+t65);
t103 = t5*(2);
t104 = t99*(-t103+t83);
t105 = t2*(36588041056736.0e-14)-t3*(55640199477098.0e-14)+t1*(19052158420362.0e-14);
t106 = t8*(36588041056736.0e-14)-t9*(55640199477098.0e-14)+t7*(19052158420362.0e-14);
t107 = t16*(36588041056736.0e-14)-t15*(55640199477098.0e-14)+t14*(19052158420362.0e-14);
t108 = t106*t106+t107*t107+t105*t105;
t109 = 1/sqrt(t108);
t6 = t18*t107-t6*t105-t12*t106;
t12 = 1/sqrt(t19);
t18 = t6*t12;
t19 = t109*t18-1;
t110 = 1/(1+k37*t19*t19);
t109 *= k37*t19*(2)*t12*t110*t110;
t111 = t109*t12;
t112 = t13*(2);
t113 = t99*(t112-t81);
t66 += 12.0e-1;
t114 = t66*t66;
t114 *= t66;
t115 = t114*t114;
t116 = t73+t17;
t117 = t71+t4;
t118 = t63+t10;
t116 = t116*t116+t117*t117+t118*t118;
t117 = 1/t116;
t118 = t117*t117;
t119 = t117*t118;
t120 = t117*t119;
t121 = t115*t115*t118*t120;
t110 *= t12;
t122 = t110*t21;
t21 = -t122+t18*t109*t21;
t123 = t39-t14;
t124 = t29-t1;
t125 = t25-t7;
t123 = 1/(t123*t123+t124*t124+t125*t125);
t124 = t123*t123;
t125 = t124*t123;
t126 = t123*t125;
t127 = t124*t126;
t126 = t127*t123*(100663296)-t126*(24576);
t128 = t25*(2);
t129 = t23*(21538042570325944.0e-17)+t22*(27851511362792747.0e-17)+t7*(39561047287931309.0e-17);
t130 = t11*(27851511362792747.0e-17)+t25*(39561047287931309.0e-17)+t26*(21538042570325944.0e-17);
t131 = -t43*(-t129+t130)-t126*(t128-t65);
t132 = t30*(21538042570325944.0e-17)+t5*(27851511362792747.0e-17)+t29*(39561047287931309.0e-17);
t133 = t29*(2);
t134 = t32*(27851511362792747.0e-17)+t33*(21538042570325944.0e-17)+t1*(39561047287931309.0e-17);
t135 = -t43*(t132-t134)-t126*(t133-t83);
t136 = t14*(39561047287931309.0e-17)+t36*(21538042570325944.0e-17)+t37*(27851511362792747.0e-17);
t137 = t39*(2);
t138 = t39*(39561047287931309.0e-17)+t40*(21538042570325944.0e-17)+t13*(27851511362792747.0e-17);
t139 = -t43*(-t136+t138)-t126*(t137-t81);
t140 = k30*k31;
t141 = k32*t140;
t142 = k39*ChargeR[i]/sqrt(t116);
t143 = t12*(5.0e-1);
t144 = -t8*(170931751798764.0e-14)-t7*(181516622105.0e-11)+t9*(152448373903764.0e-14);
t145 = t7*(8895060122105.0e-13);
t22 = -t22*(62622424088128.0e-14)-t145-t23*(48426974690822.0e-14);
t23 = t15*(152448373903764.0e-14)-t16*(170931751798764.0e-14)-t14*(181516622105.0e-11);
t146 = -t1*(29519970952897567.0e-17)-t2*(20122014803911725.0e-17)+t3*(84740108072412919.0e-18);
t147 = -t14*(29519970952897567.0e-17)-t16*(20122014803911725.0e-17)+t15*(84740108072412919.0e-18);
t148 = -t7*(29519970952897567.0e-17)-t8*(20122014803911725.0e-17)+t9*(84740108072412919.0e-18);
t149 = -t3*(29519970952897567.0e-17)+t2*(70096829711104138.0e-17)+t1*(10283544650606943.0e-16);
t150 = t14*(10283544650606943.0e-16)-t15*(29519970952897567.0e-17)+t16*(70096829711104138.0e-17);
t151 = t16*(47780854778099587.0e-17)-t15*(20122014803911725.0e-17)+t14*(70096829711104138.0e-17);
t152 = t15*(11620253352950916.0e-16)-t16*(13029133805121679.0e-16)-t14*(13835956938205637.0e-16);
t153 = -t9*(13029133805121679.0e-16)+t7*(15513477098500949.0e-16)+t8*(1460883188649713.0e-15);
t154 = -t2*(97755669685292.0e-14)+t3*(41167974949568.0e-14)-t1*(143412305264276.0e-14);
t155 = -t2*(13029133805121679.0e-16)-t1*(13835956938205637.0e-16)+t3*(11620253352950916.0e-16);
t156 = -t1*(181516622105.0e-11)-t2*(170931751798764.0e-14)+t3*(152448373903764.0e-14);
t157 = t14*(8895060122105.0e-13);
t36 = -t37*(62622424088128.0e-14)-t36*(48426974690822.0e-14)-t157;
t37 = -t7*(13835956938205637.0e-16)+t9*(11620253352950916.0e-16)-t8*(13029133805121679.0e-16);
t158 = -t15*(13029133805121679.0e-16)+t16*(1460883188649713.0e-15)+t14*(15513477098500949.0e-16);
t159 = t1*(8895060122105.0e-13);
t32 = -t33*(48426974690822.0e-14)-t32*(62622424088128.0e-14)-t159;
t33 = -t9*(20122014803911725.0e-17)+t7*(70096829711104138.0e-17)+t8*(47780854778099587.0e-17);
t160 = t7*(10283544650606943.0e-16)-t9*(29519970952897567.0e-17)+t8*(70096829711104138.0e-17);
t161 = -t3*(13029133805121679.0e-16)+t1*(15513477098500949.0e-16)+t2*(1460883188649713.0e-15);
t162 = t8*(15513477098500949.0e-16)+t7*(16474142050204687.0e-16)-t9*(13835956938205637.0e-16);
t163 = -t8*(97755669685292.0e-14)-t7*(143412305264276.0e-14)+t9*(41167974949568.0e-14);
t164 = t2*(15513477098500949.0e-16)-t3*(13835956938205637.0e-16)+t1*(16474142050204687.0e-16);
t165 = t14*(16474142050204687.0e-16)-t15*(13835956938205637.0e-16)+t16*(15513477098500949.0e-16);
t166 = t1*(70096829711104138.0e-17)+t2*(47780854778099587.0e-17)-t3*(20122014803911725.0e-17);
t167 = -t16*(97755669685292.0e-14)+t15*(41167974949568.0e-14)-t14*(143412305264276.0e-14);
t108 = 1/t108*t143;
t143 *= t20;
t168 = t39+t38;
t169 = t29+t34;
t170 = t25+t24;
t168 = 1/(t169*t169+t170*t170+t168*t168);
t169 = t168*t168;
t170 = t168*t169;
t171 = t168*t170;
t172 = t169*t171;
t171 = t171*(24576)-t172*t168*(100663296);
t173 = -t7+t27;
t174 = -t14+t41;
t175 = -t1+t31;
t173 = 1/(t174*t174+t173*t173+t175*t175);
t174 = t173*t173;
t175 = t173*t174;
t176 = t175*t173;
t177 = t174*t176;
t176 = -t177*t173*(100663296)+t176*(24576);
t94 = (t87*t94-t89*t95)*(6);
t178 = t63+t24;
t179 = t73+t38;
t180 = t71+t34;
t178 = 1/(t179*t179+t180*t180+t178*t178);
t179 = t178*t178;
t180 = t178*t179;
t181 = t178*t180;
t182 = t179*t181;
t69 = -t182*t178*t77+t181*t69;
t77 = t39+t88;
t181 = t29+t90;
t183 = t25+t92;
t183 = 1/(t77*t77+t181*t181+t183*t183);
t184 = t183*t183;
t185 = t183*t184;
t186 = t183*t185;
t184 *= t186;
t186 = t186*(1102959375.0e-5)-t184*t183*(20275323048339844.0e-9);
t187 = t92+t27;
t188 = t31+t90;
t189 = t88+t41;
t187 = 1/(t189*t189+t188*t188+t187*t187);
t188 = t187*t187;
t189 = t187*t188;
t190 = t187*t189;
t191 = t188*t190;
t190 = t190*(1102959375.0e-5)-t191*t187*(20275323048339844.0e-9);
t192 = t20*t20;
t193 = t20*t192;
t194 = t20*t193;
t192 *= t194;
t20 = -57257373997009306.0e-11*t20*t192+1853494656.0e-6*t194;
t194 = t39+t17;
t195 = t29+t4;
t196 = t25+t10;
t195 = 1/(t194*t194+t195*t195+t196*t196);
t196 = t195*t195;
t197 = t195*t196;
t198 = t195*t197;
t199 = t196*t198;
t198 = -t199*t195*(69175290276410819.0e-10)+t198*(6442450944.0e-6);
t24 += t11;
t38 += t13;
t34 += t5;
t200 = 1/(t38*t38+t34*t34+t24*t24);
t201 = t200*t200;
t202 = t200*t201;
t203 = t200*t202;
t201 *= t203;
t200 = -t201*t200*(14318524102158606.0e-9)+t203*(9268826496.0e-6);
t10 += t27;
t17 += t41;
t4 += t31;
t27 = 1/(t17*t17+t4*t4+t10*t10);
t31 = t27*t27;
t41 = t27*t31;
t203 = t27*t41;
t204 = t31*t203;
t205 = t203*(6442450944.0e-6)-t204*t27*(69175290276410819.0e-10);
t90 += t5;
t92 += t11;
t88 += t13;
t206 = 1/(t88*t88+t90*t90+t92*t92);
t207 = t206*t206;
t208 = t206*t207;
t209 = t206*t208;
t207 *= t209;
t206 = -21228886992328142.0e-10*t206*t207+3568939926.0e-6*t209;
t120 = -t117*(5.0e-1)*t142*t140+(t115*t120-t117*t121)*(6);
t209 = t13*(62622424088128.0e-14);
t210 = t5*(62622424088128.0e-14);
t211 = t11*(62622424088128.0e-14);
t212 = t39*(8895060122105.0e-13);
t213 = t29*(8895060122105.0e-13);
t214 = t25*(8895060122105.0e-13);
t215 = t103+t156;
t216 = t101+t144;
t217 = t112+t23;
t218 = -t13*(181516622105.0e-11)+t165;
t219 = -t5*(181516622105.0e-11)+t164;
t220 = -t11*(181516622105.0e-11)+t162;
t221 = -t13*(170931751798764.0e-14)+t158;
t222 = -t5*(170931751798764.0e-14)+t161;
t223 = -t11*(170931751798764.0e-14)+t153;
t224 = t13*(152448373903764.0e-14)+t152;
t225 = t5*(152448373903764.0e-14)+t155;
t226 = t11*(152448373903764.0e-14)+t37;
Grad[0] += 35381478320546904.0e-11*t207+(k32*t110+t142)*t140-1189646642.0e-6*t208+t95-617831552.0e-6*t193+t121+(t78+t182)*t76+95428956661682176.0e-12*t192+(-t185-t189)*(367653125.0e-5)+(-t197-t41)*(2147483648.0e-6)+(-t98-t202)*(3089608832.0e-6)+(t184+t191)*(33792205080566406.0e-10)+(t100+t201)*(23864206836931011.0e-10)+(t204+t199)*(1152921504606847.0e-9)+(-t87*t93+(-t180-t74)*t68-t115*t119)*(2)+(-t175-t170-t42-t125)*(8192)+(t177+t172+t127+t44)*(16777216);
Grad[9*i-8] += t205*(-t16*(76022410451336763.0e-17)+t15*(67801872569556185.0e-17)-t14*(80730063339269422.0e-17)+t138)+t190*(-t16*(43477127956365475.0e-17)+t15*(18309580614085996.0e-17)-t14*(63783053878770521.0e-17)+t138)+t171*(t137+t36)+t186*(t137+t167)+t198*(t137+t23)+t176*(-t157+t138)+t139;
Grad[9*i-7] += t205*(-t2*(76022410451336763.0e-17)+t3*(67801872569556185.0e-17)-t1*(80730063339269422.0e-17)+t132)+t190*(-t2*(43477127956365475.0e-17)+t3*(18309580614085996.0e-17)-t1*(63783053878770521.0e-17)+t132)+t198*(t133+t156)+t176*(-t159+t132)+t171*(t133+t32)+t186*(t133+t154)+t135;
Grad[9*i-6] += t205*(-t8*(76022410451336763.0e-17)+t9*(67801872569556185.0e-17)-t7*(80730063339269422.0e-17)+t130)+t190*(-t8*(43477127956365475.0e-17)+t9*(18309580614085996.0e-17)-t7*(63783053878770521.0e-17)+t130)+t198*(t128+t144)+t176*(-t145+t130)+t171*(t128+t22)+t186*(t128+t163)+t131;
Grad[9*i-5] += t20*t217+(-t107*t111+t21*t217)*t141-t47+t205*(-t16*(53520803256344177.0e-17)+t15*(47733433610735073.0e-17)-t14*(56835054442518897.0e-17)+t45)+t190*(-t16*(30608485020256569.0e-17)+t15*(12890191930706386.0e-17)-t14*(44904130998577817.0e-17)+t45)+t200*(t112+t36)-t113+t206*(t112+t167)+t176*(-t14*(62622424088128.0e-14)+t45);
Grad[9*i-4] += t20*t215+(-t105*t111+t21*t215)*t141+t62+t190*(-t2*(30608485020256569.0e-17)+t3*(12890191930706386.0e-17)-t1*(44904130998577817.0e-17)+t60)+t205*(-t2*(53520803256344177.0e-17)+t3*(47733433610735073.0e-17)-t1*(56835054442518897.0e-17)+t60)+t104+t200*(t103+t32)+t206*(t103+t154)+t176*(-t1*(62622424088128.0e-14)+t60);
Grad[9*i-3] += t20*t216+(-t106*t111+t21*t216)*t141+t59+t190*(-t8*(30608485020256569.0e-17)+t9*(12890191930706386.0e-17)-t7*(44904130998577817.0e-17)+t57)+t205*(-t8*(53520803256344177.0e-17)+t9*(47733433610735073.0e-17)-t7*(56835054442518897.0e-17)+t57)+t102+t206*(t101+t163)+t200*(t101+t22)+t176*(-t7*(62622424088128.0e-14)+t57);
Grad[9*i-2] += -t82+t69*(t80+t36)+t94*(t80+t167)+t120*(t80+t23);
Grad[9*i-1] += t69*(t84+t32)-t85+t94*(t84+t154)+t120*(t84+t156);
Grad[9*i] += t94*(t64+t163)-t79+t69*(t64+t22)+t120*(t64+t144);
Grad[9*i+1] += t205*(-t16*(41388538091083061.0e-17)+t15*(36913067723472741.0e-17)-t14*(43951504323211681.0e-17)+t54)+t56+t190*(-t16*(23670056708669956.0e-17)+t15*(99682024047756182.0e-18)-t14*(34725120386927663.0e-17)+t54)+t176*(-t14*(48426974690822.0e-14)+t54);
Grad[9*i+2] += t205*(-t2*(41388538091083061.0e-17)+t3*(36913067723472741.0e-17)-t1*(43951504323211681.0e-17)+t52)+t53+t190*(-t2*(23670056708669956.0e-17)+t3*(99682024047756182.0e-18)-t1*(34725120386927663.0e-17)+t52)+t176*(-t1*(48426974690822.0e-14)+t52);
Grad[9*i+3] += t50+t205*(-t8*(41388538091083061.0e-17)+t9*(36913067723472741.0e-17)-t7*(43951504323211681.0e-17)+t48)+t190*(-t8*(23670056708669956.0e-17)+t9*(99682024047756182.0e-18)-t7*(34725120386927663.0e-17)+t48)+t176*(-t7*(48426974690822.0e-14)+t48);
Grad[9*j-17] +=
t20*t221+(-t221*t122-((-t16*(62540579527129849.0e-17)+t15*(
7544232065238296.0e-16)-t14*(49489782181989112.0e-17)+t13*(36588041056736.0e-14
))*t12+(-t221*t143-(t16*(26773694967387984.0e-17)-t15*(40715318057460851.0e-17)
+t14*(13941623090072867.0e-17))*t108)*t6)*t109)*t141+t94*(-t73*(
97755669685292.0e-14)+t151)+t190*(-t39*(43477127956365475.0e-17)-t13*(
30608485020256569.0e-17)-t40*(23670056708669956.0e-17)+t151)+t205*(-t39*(
76022410451336763.0e-17)-t13*(53520803256344177.0e-17)-t40*(
41388538091083061.0e-17)+t158)+t186*(-t39*(97755669685292.0e-14)+t151)+t206*(-
t13*(97755669685292.0e-14)+t151)+t198*(-t39*(170931751798764.0e-14)+t158)+t120*
(-t73*(170931751798764.0e-14)+t158) ;
Grad[9*j-16] += t20*t222+(-t222*t122-((-t2*(62540579527129849.0e-17)+t3*(7544232065238296.0e-16)-t1*(49489782181989112.0e-17)+t5*(36588041056736.0e-14))*t12+(-t222*t143-(t2*(26773694967387984.0e-17)-t3*(40715318057460851.0e-17)+t1*(13941623090072867.0e-17))*t108)*t6)*t109)*t141+t94*(-t71*(97755669685292.0e-14)+t166)+t190*(-t29*(43477127956365475.0e-17)-t5*(30608485020256569.0e-17)-t30*(23670056708669956.0e-17)+t166)+t205*(-t29*(76022410451336763.0e-17)-t5*(53520803256344177.0e-17)-t30*(41388538091083061.0e-17)+t161)+t206*(-t5*(97755669685292.0e-14)+t166)+t186*(-t29*(97755669685292.0e-14)+t166)+t198*(-t29*(170931751798764.0e-14)+t161)+t120*(-t71*(170931751798764.0e-14)+t161);
Grad[9*j-15] += t20*t223+(-t223*t122-((-t8*(62540579527129849.0e-17)+t9*(7544232065238296.0e-16)-t7*(49489782181989112.0e-17)+t11*(36588041056736.0e-14))*t12+(-t223*t143-(t8*(26773694967387984.0e-17)-t9*(40715318057460851.0e-17)+t7*(13941623090072867.0e-17))*t108)*t6)*t109)*t141+t94*(-t63*(97755669685292.0e-14)+t33)+t190*(-t25*(43477127956365475.0e-17)-t11*(30608485020256569.0e-17)-t26*(23670056708669956.0e-17)+t33)+t205*(-t25*(76022410451336763.0e-17)-t11*(53520803256344177.0e-17)-t26*(41388538091083061.0e-17)+t153)+t186*(-t25*(97755669685292.0e-14)+t33)+t206*(-t11*(97755669685292.0e-14)+t33)+t198*(-t25*(170931751798764.0e-14)+t153)+t120*(-t63*(170931751798764.0e-14)+t153);
Grad[9*j-14] += t20*t224+(-t224*t122-((t16*(7544232065238296.0e-16)-t15*(84822579339646501.0e-17)+t14*(65020458164361541.0e-17)-t13*(55640199477098.0e-14))*t12+(-t224*t143-(-t16*(40715318057460851.0e-17)+t15*(61916635957025131.0e-17)-t14*(2120131789956428.0e-16))*t108)*t6)*t109)*t141+t94*(t73*(41167974949568.0e-14)+t147)+t190*(t39*(18309580614085996.0e-17)+t13*(12890191930706386.0e-17)+t40*(99682024047756182.0e-18)+t147)+t205*(t39*(67801872569556185.0e-17)+t13*(47733433610735073.0e-17)+t40*(36913067723472741.0e-17)+t152)+t198*(t39*(152448373903764.0e-14)+t152)+t206*(t13*(41167974949568.0e-14)+t147)+t186*(t39*(41167974949568.0e-14)+t147)+t120*(t73*(152448373903764.0e-14)+t152);
Grad[9*j-13] += t20*t225+(-t225*t122-((t2*(7544232065238296.0e-16)-t3*(84822579339646501.0e-17)+t1*(65020458164361541.0e-17)-t5*(55640199477098.0e-14))*t12+(-t225*t143-(-t2*(40715318057460851.0e-17)+t3*(61916635957025131.0e-17)-t1*(2120131789956428.0e-16))*t108)*t6)*t109)*t141+t94*(t71*(41167974949568.0e-14)+t146)+t190*(t29*(18309580614085996.0e-17)+t5*(12890191930706386.0e-17)+t30*(99682024047756182.0e-18)+t146)+t205*(t29*(67801872569556185.0e-17)+t5*(47733433610735073.0e-17)+t30*(36913067723472741.0e-17)+t155)+t206*(t5*(41167974949568.0e-14)+t146)+t198*(t29*(152448373903764.0e-14)+t155)+t186*(t29*(41167974949568.0e-14)+t146)+t120*(t71*(152448373903764.0e-14)+t155);
Grad[9*j-12] += t20*t226+(-t226*t122-((t8*(7544232065238296.0e-16)-t9*(84822579339646501.0e-17)+t7*(65020458164361541.0e-17)-t11*(55640199477098.0e-14))*t12+(-t226*t143-(-t8*(40715318057460851.0e-17)+t9*(61916635957025131.0e-17)-t7*(2120131789956428.0e-16))*t108)*t6)*t109)*t141+t94*(t63*(41167974949568.0e-14)+t148)+t190*(t25*(18309580614085996.0e-17)+t11*(12890191930706386.0e-17)+t26*(99682024047756182.0e-18)+t148)+t205*(t25*(67801872569556185.0e-17)+t11*(47733433610735073.0e-17)+t26*(36913067723472741.0e-17)+t37)+t198*(t25*(152448373903764.0e-14)+t37)+t206*(t11*(41167974949568.0e-14)+t148)+t186*(t25*(41167974949568.0e-14)+t148)+t120*(t63*(152448373903764.0e-14)+t37);
Grad[9*j-8] += t20*t218+(-t218*t122-((-t16*(49489782181989112.0e-17)+t15*(
65020458164361541.0e-17)-t14*(34582834402734429.0e-17)+t13*(
19052158420362.0e-14))*t12+(-t218*t143-(t16*(13941623090072867.0e-17)-t15*(
2120131789956428.0e-16)+t14*(72596948094914132.0e-18))*t108)*t6)*t109)*t141+t82
+t94*(-t73*(143412305264276.0e-14)+t150)+t69*(-t73*(8895060122105.0e-13)+t136)+
t190*(-t39*(63783053878770521.0e-17)-t13*(44904130998577817.0e-17)-t40*(
34725120386927663.0e-17)+t150)+t205*(-t39*(80730063339269422.0e-17)-t13*(
56835054442518897.0e-17)-t40*(43951504323211681.0e-17)+t165)+t200*(-t13*(
8895060122105.0e-13)+t136)+t176*(-t212-t209-t40*(48426974690822.0e-14)+t81)+
t171*(-t212+t136)+t206*(-t13*(143412305264276.0e-14)+t150)+t186*(-t39*(
143412305264276.0e-14)+t150)+t113+t198*(-t39*(181516622105.0e-11)+t165)+t120*(-
t73*(181516622105.0e-11)+t165)-t139 ;
Grad[9*j-7] += t20*t219+(-t219*t122-((-t2*(49489782181989112.0e-17)+t3*(
65020458164361541.0e-17)-t1*(34582834402734429.0e-17)+t5*(19052158420362.0e-14)
)*t12+(-t219*t143-(t2*(13941623090072867.0e-17)-t3*(2120131789956428.0e-16)+t1*
(72596948094914132.0e-18))*t108)*t6)*t109)*t141+t69*(-t71*(8895060122105.0e-13)
+t134)+t94*(-t71*(143412305264276.0e-14)+t149)+t85+t205*(-t29*(
80730063339269422.0e-17)-t5*(56835054442518897.0e-17)-t30*(
43951504323211681.0e-17)+t164)+t190*(-t29*(63783053878770521.0e-17)-t5*(
44904130998577817.0e-17)-t30*(34725120386927663.0e-17)+t149)+t200*(-t5*(
8895060122105.0e-13)+t134)+t171*(-t213+t134)-t104+t186*(-t29*(
143412305264276.0e-14)+t149)+t176*(-t213-t210-t30*(48426974690822.0e-14)+t83)+
t206*(-t5*(143412305264276.0e-14)+t149)+t198*(-t29*(181516622105.0e-11)+t164)+
t120*(-t71*(181516622105.0e-11)+t164)-t135 ;
Grad[9*j-6] += t20*t220+(-t220*t122-((-t8*(49489782181989112.0e-17)+t9*(
65020458164361541.0e-17)-t7*(34582834402734429.0e-17)+t11*(19052158420362.0e-14
))*t12+(-t220*t143-(t8*(13941623090072867.0e-17)-t9*(2120131789956428.0e-16)+t7
*(72596948094914132.0e-18))*t108)*t6)*t109)*t141+t79+t94*(-t63*(
143412305264276.0e-14)+t160)+t69*(-t63*(8895060122105.0e-13)+t129)+t190*(-t25*(
63783053878770521.0e-17)-t11*(44904130998577817.0e-17)-t26*(
34725120386927663.0e-17)+t160)+t205*(-t25*(80730063339269422.0e-17)-t11*(
56835054442518897.0e-17)-t26*(43951504323211681.0e-17)+t162)+t206*(-t11*(
143412305264276.0e-14)+t160)+t186*(-t25*(143412305264276.0e-14)+t160)+t200*(-
t11*(8895060122105.0e-13)+t129)+t171*(-t214+t129)-t102+t176*(-t214-t211-t26*(
48426974690822.0e-14)+t65)+t198*(-t25*(181516622105.0e-11)+t162)+t120*(-t63*(
181516622105.0e-11)+t162)-t131 ;
Grad[9*j-5] += t69*(-t73*(62622424088128.0e-14)+t46)+t47+t171*(-t39*(62622424088128.0e-14)+t46)+t200*(-t209+t46);
Grad[9*j-4] += t69*(-t71*(62622424088128.0e-14)+t61)-t62+t171*(-t29*(62622424088128.0e-14)+t61)+t200*(-t210+t61);
Grad[9*j-3] += t69*(-t63*(62622424088128.0e-14)+t58)-t59+t200*(-t211+t58)+t171*(-t25*(62622424088128.0e-14)+t58);
Grad[9*j+1] += t69*(-t73*(48426974690822.0e-14)+t55)-t56+t171*(-t39*(48426974690822.0e-14)+t55)+t200*(-t13*(48426974690822.0e-14)+t55);
Grad[9*j+2] += t69*(-t71*(48426974690822.0e-14)+t51)-t53+t171*(-t29*(48426974690822.0e-14)+t51)+t200*(-t5*(48426974690822.0e-14)+t51);
Grad[9*j+3] += t69*(-t63*(48426974690822.0e-14)+t49)-t50+t200*(-t11*(48426974690822.0e-14)+t49)+t171*(-t25*(48426974690822.0e-14)+t49);
/* vars = [v[9*i-8], v[9*i-7], v[9*i-6], v[9*i-5], v[9*i-4], v[9*
i-3], v[9*i-2], v[9*i-1], v[9*i], v[9*i+1], v[9*i+2], v[9*i+3], v[9*j-5], v[9*j
-4], v[9*j-3], v[9*j-2], v[9*j-1], v[9*j]] */
/* enter PartitionList ls = 61576 */
/* final chunk, 61576 */
/* length(li)=61576, nops(li)=19 */
/* input: len=61576, nops=19
output: len=10107, nops=194, in 259 secs
length ratio 6.09, cost: 108*subtractions+297*multiplications+124*additions+12*divisions+41*subscripts+101*functions+194*assignments */
/* 64 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*j-5];
t2 = t1*(2);
t3 = v[9*i-2];
t4 = t3*(2);
t5 = RadiusR[i];
t6 = t5+(14.0e-1);
t7 = t6*t6;
t6 *= t7;
t7 = t6*t6;
t8 = v[9*j-3];
t9 = v[9*i];
t10 = t9-t8;
t11 = v[9*i-1];
t12 = v[9*j-4];
t13 = t11-t12;
t14 = t3-t1;
t10 = t14*t14+t13*t13+t10*t10;
t13 = 1/t10;
t14 = t13*t13;
t15 = t13*t14;
t16 = t13*t15;
t17 = ChargeR[i];
t18 = k30*k32*k39;
t19 = t17/sqrt(t10)*t18;
t20 = t7*t7*t14*t16;
t16 = t13*(5.0e-1)*t19+(t13*t20-t7*t16)*(6);
t21 = t16*(t4-t2);
t22 = t11*(2);
t23 = t12*(2);
t24 = t16*(-t22+t23);
t25 = t9*(2);
t26 = t8*(2);
t27 = t16*(-t25+t26);
t28 = v[9*i-4];
t29 = t28*(2);
t30 = t28-t12;
t31 = v[9*i-5];
t32 = -t1+t31;
t33 = v[9*i-3];
t34 = t33-t8;
t30 = t32*t32+t30*t30+t34*t34;
t32 = 1/t30;
t34 = k30*k32*k32/sqrt(t30);
t35 = t32*t32;
t36 = t32*t35;
t37 = t32*t36;
t35 *= t37;
t37 = -2891341824.0e-6*t37+(13933095905352745.0e-10*t35+(5.0e-1)*t34)*t32;
t38 = t37*(-t29+t23);
t39 = t33*(2);
t40 = t37*(-t39+t26);
t41 = t31*(2);
t42 = t37*(-t41+t2);
t43 = v[9*i-7];
t44 = t43-t12;
t45 = v[9*i-8];
t46 = t45-t1;
t47 = v[9*i-6];
t48 = t47-t8;
t44 = 1/(t46*t46+t44*t44+t48*t48);
t46 = t44*t44;
t48 = t44*t46;
t49 = t44*t48;
t50 = t46*t49;
t49 = t49*(9268826496.0e-6)-t50*t44*(14318524102158606.0e-9);
t51 = t47*(2);
t52 = t49*(-t51+t26);
t53 = t45*(2);
t54 = t49*(-t53+t2);
t55 = t43*(2);
t56 = t49*(-t55+t23);
t57 = RadiusR[j];
t5 += t57;
t58 = t5*t5;
t58 *= t5;
t59 = t58*t58;
t60 = v[9*j-1];
t11 -= t60;
t61 = v[9*j-2];
t3 -= t61;
t62 = v[9*j];
t9 -= t62;
t63 = t3*t3+t11*t11+t9*t9;
t64 = 1/t63;
t65 = t64*t64;
t66 = t64*t65;
t67 = t64*t66;
t65 *= t59*t59*t67;
t68 = ChargeR[j];
t17 *= k30*t68/sqrt(t63);
t63 = (5.0e-1)*t64*t17-(-t64*t65+t59*t67)*(6);
t64 = (14.0e-1)+t57;
t67 = t64*t64;
t69 = t64*t67;
t69 = t69*t69;
t70 = t28-t60;
t71 = t31-t61;
t72 = t33-t62;
t70 = t71*t71+t70*t70+t72*t72;
t71 = 1/t70;
t72 = t71*t71;
t73 = t71*t72;
t74 = t71*t73;
t18 *= t68/sqrt(t70);
t68 = t69*t69*t72*t74;
t74 = -(-t71*t68+t69*t74)*(6)+(5.0e-1)*t18*t71;
t75 = t60*(2);
t22 = t63*(t22-t75);
t29 = t74*(t29-t75);
t76 = t61*(2);
t41 = t74*(-t41+t76);
t4 = t63*(-t4+t76);
t77 = t62*(2);
t39 = t74*(t39-t77);
t25 = t63*(t25-t77);
t78 = v[9*i+3];
t79 = t33*(31311212044064.0e-14)+t47*(44475300610525.0e-14)+t78*(24213487345411.0e-14);
t80 = -t8+t79;
t81 = v[9*i+1];
t82 = t45*(44475300610525.0e-14)+t81*(24213487345411.0e-14)+t31*(31311212044064.0e-14);
t83 = -t1+t82;
t84 = v[9*i+2];
t85 = t84*(24213487345411.0e-14)+t28*(31311212044064.0e-14)+t43*(44475300610525.0e-14);
t86 = -t12+t85;
t80 = 1/(t83*t83+t86*t86+t80*t80);
t83 = t80*t80;
t86 = t80*t83;
t87 = t86*t80;
t88 = t83*t87;
t87 = -t88*t80*(14318524102158606.0e-9)+t87*(9268826496.0e-6);
t57 += (2);
t89 = t57*t57;
t89 *= t57;
t90 = t89*t89;
t91 = t90*(6);
t92 = t90*t90;
t93 = t92*(6);
t94 = t81*(21538042570325944.0e-17)+t45*(39561047287931309.0e-17)+t31*(27851511362792747.0e-17);
t95 = t78*(11725859388527573.0e-17)+t47*(21538042570325944.0e-17)+t33*(15163072731968483.0e-17);
t96 = t81*(11725859388527573.0e-17)+t45*(21538042570325944.0e-17)+t31*(15163072731968483.0e-17);
t97 = t84*(11725859388527573.0e-17)+t43*(21538042570325944.0e-17)+t28*(15163072731968483.0e-17);
t98 = t84*(21538042570325944.0e-17)+t43*(39561047287931309.0e-17)+t28*(27851511362792747.0e-17);
t99 = t78*(21538042570325944.0e-17)+t47*(39561047287931309.0e-17)+t33*(27851511362792747.0e-17);
t100 = t81*(15163072731968483.0e-17)+t45*(27851511362792747.0e-17)+t31*(1960783999336677.0e-16);
t101 = t84*(15163072731968483.0e-17)+t43*(27851511362792747.0e-17)+t28*(1960783999336677.0e-16);
t102 = t78*(15163072731968483.0e-17)+t47*(27851511362792747.0e-17)+t33*(1960783999336677.0e-16);
t28 = -t43*(8895060122105.0e-13)-t84*(48426974690822.0e-14)-t28*(62622424088128.0e-14);
t31 = -t81*(48426974690822.0e-14)-t31*(62622424088128.0e-14)-t45*(8895060122105.0e-13);
t33 = -t78*(48426974690822.0e-14)-t47*(8895060122105.0e-13)-t33*(62622424088128.0e-14);
t43 -= t60;
t45 -= t61;
t47 -= t62;
t78 = 1/(t45*t45+t43*t43+t47*t47);
t81 = t78*t78;
t84 = t78*t81;
t103 = t84*t78;
t104 = t81*t103;
t105 = t104*t78;
t106 = -t105*t93+t103*t91;
t82 -= t61;
t85 -= t60;
t79 -= t62;
t107 = 1/(t82*t82+t85*t85+t79*t79);
t108 = t107*t107;
t109 = t108*t107;
t110 = t107*t109;
t108 *= t110;
t107 *= t108;
t111 = -t107*t93+t110*t91;
t51 -= t77;
t53 -= t76;
t55 -= t75;
t77 += t33;
t76 += t31;
t75 += t28;
Grad[0] += t20+t34+t68+t65-963780608.0e-6*t36+23221826508921242.0e-11*t35+t19+t18+t17+(t108+t104)*t92+(-t86-t48)*(3089608832.0e-6)+(t50+t88)*(23864206836931011.0e-10)+(-t59*t66-t7*t15-t69*t73+(-t84-t109)*t90)*(2);
Grad[9*i-8] += -t54+t87*(-t1*(8895060122105.0e-13)+t94)+t53*t106+(-t61*(8895060122105.0e-13)+t94)*t111;
Grad[9*i-7] += -t56+t87*(-t12*(8895060122105.0e-13)+t98)+t55*t106+(-t60*(8895060122105.0e-13)+t98)*t111;
Grad[9*i-6] += -t52+t87*(-t8*(8895060122105.0e-13)+t99)+t51*t106+(-t62*(8895060122105.0e-13)+t99)*t111;
Grad[9*i-5] += (-t61*(62622424088128.0e-14)+t100)*t111+t87*(-t1*(62622424088128.0e-14)+t100)+t42+t41;
Grad[9*i-4] += (-t60*(62622424088128.0e-14)+t101)*t111+t87*(-t12*(62622424088128.0e-14)+t101)+t38-t29;
Grad[9*i-3] += (-t62*(62622424088128.0e-14)+t102)*t111+t87*(-t8*(62622424088128.0e-14)+t102)+t40-t39;
Grad[9*i-2] += -t21+t4;
Grad[9*i-1] += t24-t22;
Grad[9*i] += t27-t25;
Grad[9*i+1] += t87*(-t1*(48426974690822.0e-14)+t96)+(-t61*(48426974690822.0e-14)+t96)*t111;
Grad[9*i+2] += (-t60*(48426974690822.0e-14)+t97)*t111+t87*(-t12*(48426974690822.0e-14)+t97);
Grad[9*i+3] += t87*(-t8*(48426974690822.0e-14)+t95)+(-t62*(48426974690822.0e-14)+t95)*t111;
Grad[9*j-5] += t21-t42+t87*(t2+t31)+t54;
Grad[9*j-4] += -t38-t24+t87*(t23+t28)+t56;
Grad[9*j-3] += -t40-t27+t87*(t26+t33)+t52;
Grad[9*j-2] += (-t103*t53+t110*t76)*t91+(-t107*t76+t105*t53)*t93-t4-t41;
Grad[9*j-1] += (-t103*t55+t110*t75)*t91+(-t107*t75+t105*t55)*t93+t29+t22;
Grad[9*j] += (-t103*t51+t110*t77)*t91+(-t107*t77+t105*t51)*t93+t25+t39;
}
if( Seq[i]==5 && Seq[j]==5 )
{ if( j==i+1 ) {
/* vars = [v[9*i-2], v[9*i-1], v[9*i], v[9*i+7], v[9*i+8], v[9*i+9]] */
/* enter PartitionList ls = 6420 */
/* final chunk, 6420 */
/* length(li)=6420, nops(li)=7 */
/* input: len=6420, nops=7
output: len=1006, nops=25, in 8 secs
length ratio 6.38, cost: 6*subtractions+39*multiplications+17*additions+divisions+15*subscripts+3*functions+25*assignments */
/* 8 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = -v[9*i-1]+v[9*i+8];
t2 = -v[9*i]+v[9*i+9];
t3 = -v[9*i-2]+v[9*i+7];
t4 = 1/(t3*t3+t1*t1+t2*t2);
t5 = t4*t4;
t6 = t4*t5;
t7 = t4*t6;
t5 *= t7;
t4 *= t5;
t8 = RadiusR[i]+RadiusR[i+1];
t9 = t8*t8;
t8 *= t9;
t9 = t8*t8;
t10 = t9*t9;
t7 = (-12422879162518188.0e-10*t4+27516352214586121.0e-12*t7+(t10*t4-t7*t9)*(6))*(2);
t3 *= t7;
t1 *= t7;
t2 *= t7;
Grad[0] += (-91721174048620405.0e-13+t9*(2))*t6+(20704798604196981.0e-11-t10)*t5;
Grad[9*i-2] -= t3;
Grad[9*i-1] -= t1;
Grad[9*i] -= t2;
Grad[9*i+7] += t3;
Grad[9*i+8] += t1;
Grad[9*i+9] += t2;
} else if( j==i+2 ) {
/* vars = [v[9*i-2], v[9*i-1], v[9*i], v[9*i+16],
v[9*i+17], v[9*i+18]] */
/* enter PartitionList ls = 6531 */
/* final chunk, 6531 */
/* length(li)=6531, nops(li)=7 */
/* input: len=6531, nops=7
output: len=1012, nops=25, in 6 secs
length ratio 6.45, cost: 6*subtractions+39*multiplications+17*additions+divisions+15*subscripts+3*functions+25*assignments */
/* 8 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-1]-v[9*i+17];
t2 = v[9*i]-v[9*i+18];
t3 = -v[9*i-2]+v[9*i+16];
t4 = 1/(t3*t3+t1*t1+t2*t2);
t5 = t4*t4;
t6 = t4*t5;
t7 = t4*t6;
t5 *= t7;
t4 *= t5;
t8 = RadiusR[i]+RadiusR[i+2];
t9 = t8*t8;
t8 *= t9;
t9 = t8*t8;
t10 = t9*t9;
t7 = (2)*(12422879162518188.0e-10*t4-27516352214586121.0e-12*t7+(-t10*t4+t7*t9)*(6));
t1 *= t7;
t3 *= t7;
t2 *= t7;
Grad[0] += (-91721174048620405.0e-13+t9*(2))*t6+(20704798604196981.0e-11-t10)*t5;
Grad[9*i-2] += t3;
Grad[9*i-1] -= t1;
Grad[9*i] -= t2;
Grad[9*i+16] -= t3;
Grad[9*i+17] += t1;
Grad[9*i+18] += t2;
} else {
/* vars = [v[9*i-2], v[9*i-1], v[9*i], v[9*j
-2], v[9*j-1], v[9*j]] */
/* enter PartitionList ls = 6160 */
/* final chunk, 6160 */
/* length(li)=6160, nops(li)=7 */
/* input: len=6160, nops=7
output: len=990, nops=25, in 8 secs
length ratio 6.22, cost: 6*subtractions+39*multiplications+14*additions+divisions+15*subscripts+3*functions+25*assignments */
/* 8 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-2]-v[9*j-2];
t2 = -v[9*i-1]+v[9*j-1];
t3 = -v[9*i]+v[9*j];
t4 = 1/(t3*t3+t1*t1+t2*t2);
t5 = t4*t4;
t6 = t4*t5;
t7 = t4*t6;
t5 *= t7;
t4 *= t5;
t8 = RadiusR[i]+RadiusR[j];
t9 = t8*t8;
t8 *= t9;
t9 = t8*t8;
t10 = t9*t9;
t7 = (-12422879162518188.0e-10*t4+27516352214586121.0e-12*t7+(t10*t4-t7*t9)*(6))*(2);
t2 *= t7;
t1 *= t7;
t3 *= t7;
Grad[0] += (-91721174048620405.0e-13+t9*(2))*t6+(20704798604196981.0e-11-t10)*t5;
Grad[9*i-2] += t1;
Grad[9*i-1] -= t2;
Grad[9*i] -= t3;
Grad[9*j-2] -= t1;
Grad[9*j-1] += t2;
Grad[9*j] += t3;
}}
if( Interior[i] && Interior[j] )
{ if( j==i+1 ) {
/* vars = [v[9*i-2], v[9*i-1], v[9*i], v[9*i+7], v[9*
i+8], v[9*i+9]] */
/* enter PartitionList ls = 2561 */
/* final chunk, 2561 */
/* length(li)=2561, nops(li)=7 */
/* input: len=2561, nops=7
output: len=489, nops=16, in 3 secs
length ratio 5.24, cost: 5*subtractions+27*multiplications+12*additions+divisions+13*subscripts+3*functions+16*assignments */
/* 3 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i]-v[9*i+9];
t2 = v[9*i-1]-v[9*i+8];
t3 = v[9*i-2]-v[9*i+7];
t4 = 1/(t3*t3+t1*t1+t2*t2);
t5 = t4*t4;
t6 = (-24010*t4+(490))*t5*(2);
t2 *= t6;
t1 *= t6;
t3 *= t6;
Grad[0] += -12005*t5+t4*(490);
Grad[9*i-2] -= t3;
Grad[9*i-1] -= t2;
Grad[9*i] -= t1;
Grad[9*i+7] += t3;
Grad[9*i+8] += t2;
Grad[9*i+9] += t1;
} else if( j==i+2 ) {
/* vars = [v[9*i-2], v[9*i-1], v[9*i]
, v[9*i+16], v[9*i+17], v[9*i+18]] */
/* enter PartitionList ls = 2618 */
/* final chunk, 2618 */
/* length(li)=2618, nops(li)=7 */
/* input: len=2618, nops=7
output: len=495, nops=16, in 3 secs
length ratio 5.29, cost: 5*subtractions+27*multiplications+12*additions+divisions+13*subscripts+3*functions+16*assignments */
/* 3 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i]-v[9*i+18];
t2 = v[9*i-1]-v[9*i+17];
t3 = v[9*i-2]-v[9*i+16];
t4 = 1/(t3*t3+t1*t1+t2*t2);
t5 = t4*t4;
t6 = (2)*(24010*t4-(490))*t5;
t2 *= t6;
t1 *= t6;
t3 *= t6;
Grad[0] += -12005*t5+t4*(490);
Grad[9*i-2] += t3;
Grad[9*i-1] += t2;
Grad[9*i] += t1;
Grad[9*i+16] -= t3;
Grad[9*i+17] -= t2;
Grad[9*i+18] -= t1;
} else {
/* vars = [v[9*i-2], v[9*i-1],
v[9*i], v[9*j-2], v[9*j-1], v[9*j]] */
/* enter PartitionList ls = 2485 */
/* final chunk, 2485 */
/* length(li)=2485, nops(li)=7 */
/* input: len=2485, nops=7
output: len=481, nops=16, in 3 secs
length ratio 5.17, cost: 5*subtractions+27*multiplications+10*additions+divisions+13*subscripts+3*functions+16*assignments */
/* 3 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-2]-v[9*j-2];
t2 = v[9*i]-v[9*j];
t3 = v[9*i-1]-v[9*j-1];
t4 = 1/(t3*t3+t1*t1+t2*t2);
t5 = t4*t4;
t6 = (2)*(24010*t4-(490))*t5;
t3 *= t6;
t2 *= t6;
t1 *= t6;
Grad[0] += -12005*t5+t4*(490);
Grad[9*i-2] += t1;
Grad[9*i-1] += t3;
Grad[9*i] += t2;
Grad[9*j-2] -= t1;
Grad[9*j-1] -= t3;
Grad[9*j] -= t2;
}}
if( Interior[i] && Surface[j] || Interior[j] && Surface[i] )
{ if( j==i+1 ) {
/* vars = [v[9*i-2], v[9*i-1], v[9*i],
v[9*i+7], v[9*i+8], v[9*i+9]] */
/* enter PartitionList ls = 1643 */
/* final chunk, 1643 */
/* length(li)=1643, nops(li)=7 */
/* input: len=1643, nops=7
output: len=504, nops=17, in 4 secs
length ratio 3.26, cost: 3*subtractions+27*multiplications+14*additions+divisions+15*subscripts+functions+17*assignments */
/* 4 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-2]-v[9*i+7];
t2 = RadiusR[i]+RadiusR[i+1];
t2 *= 5*t2;
t3 = v[9*i-1]-v[9*i+8];
t4 = v[9*i]-v[9*i+9];
t5 = 1/(t1*t1+t3*t3+t4*t4);
t6 = t5*t5*t2*(2);
t1 *= t6;
t4 *= t6;
t3 *= t6;
Grad[0] += t5*t2;
Grad[9*i-2] -= t1;
Grad[9*i-1] -= t3;
Grad[9*i] -= t4;
Grad[9*i+7] += t1;
Grad[9*i+8] += t3;
Grad[9*i+9] += t4;
} else if( j==i+2 ) {
/* vars = [v[9*i-2], v[9*i-1], v[9*i], v[9*i+16], v
[9*i+17], v[9*i+18]] */
/* enter PartitionList ls = 1673 */
/* final chunk, 1673 */
/* length(li)=1673, nops(li)=7 */
/* input: len=1673, nops=7
output: len=510, nops=17, in 2 secs
length ratio 3.28, cost: 3*subtractions+27*multiplications+14*additions+divisions+15*subscripts+functions+17*assignments */
/* 4 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-2]-v[9*i+16];
t2 = RadiusR[i]+RadiusR[i+2];
t2 *= 5*t2;
t3 = v[9*i-1]-v[9*i+17];
t4 = v[9*i]-v[9*i+18];
t5 = 1/(t1*t1+t3*t3+t4*t4);
t6 = t5*t5*t2*(2);
t1 *= t6;
t3 *= t6;
t4 *= t6;
Grad[0] += t5*t2;
Grad[9*i-2] -= t1;
Grad[9*i-1] -= t3;
Grad[9*i] -= t4;
Grad[9*i+16] += t1;
Grad[9*i+17] += t3;
Grad[9*i+18] += t4;
} else {
/* vars = [v[9*i-2], v[9*i-1], v[9*i], v[9*j-
2], v[9*j-1], v[9*j]] */
/* enter PartitionList ls = 1547 */
/* final chunk, 1547 */
/* length(li)=1547, nops(li)=7 */
/* input: len=1547, nops=7
output: len=488, nops=17, in 2 secs
length ratio 3.17, cost: 3*subtractions+27*multiplications+11*additions+divisions+15*subscripts+functions+17*assignments */
/* 4 temporary variables saved through reusage */
/* Begin verification of optimization verification ended successfully */
t1 = v[9*i-2]-v[9*j-2];
t2 = RadiusR[i]+RadiusR[j];
t2 *= 5*t2;
t3 = v[9*i-1]-v[9*j-1];
t4 = -v[9*i]+v[9*j];
t5 = 1/(t1*t1+t3*t3+t4*t4);
t6 = t5*t5*t2*(2);
t1 *= t6;
t4 *= t6;
t3 *= t6;
Grad[0] += t5*t2;
Grad[9*i-2] -= t1;
Grad[9*i-1] -= t3;
Grad[9*i] += t4;
Grad[9*j-2] += t1;
Grad[9*j-1] += t3;
Grad[9*j] -= t4;
}}
}
}
return;
}
/* total time 21513.32 secs */
#endif