From d35e103b9f75de20c7e90c63458b61cc40151725 Mon Sep 17 00:00:00 2001 From: Colin Douglas Howell Date: Sun, 2 Aug 2020 19:35:58 -0700 Subject: mw8080bw: engine sound tone fix for 280zzzap netlist audio (#7028) --- src/lib/netlist/generated/static_solvers.cpp | 18636 ++++++++++++++----------- src/mame/audio/nl_280zzzap.cpp | 31 +- 2 files changed, 10702 insertions(+), 7965 deletions(-) diff --git a/src/lib/netlist/generated/static_solvers.cpp b/src/lib/netlist/generated/static_solvers.cpp index 029120c53ce..e184c0337cc 100644 --- a/src/lib/netlist/generated/static_solvers.cpp +++ b/src/lib/netlist/generated/static_solvers.cpp @@ -1,5 +1,138 @@ #include "plib/pdynlib.h" +// tankbatt +static void nl_gcr_124f7aa10f044582_16_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; + m_A2 += gt[7]; + m_A2 += gt[8]; + m_A2 += gt[9]; + m_A3 += go[3]; + m_A4 += go[4]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; + RHS1 += Idr[8]; + RHS1 += Idr[9]; + RHS1 -= go[5] * *cnV[5]; + RHS1 -= go[6] * *cnV[6]; + RHS1 -= go[7] * *cnV[7]; + RHS1 -= go[8] * *cnV[8]; + RHS1 -= go[9] * *cnV[9]; + m_A5 += gt[10]; + m_A5 += gt[11]; + m_A5 += gt[12]; + m_A5 += gt[13]; + m_A7 += go[10]; + m_A6 += go[11]; + double RHS2 = Idr[10]; + RHS2 += Idr[11]; + RHS2 += Idr[12]; + RHS2 += Idr[13]; + RHS2 -= go[12] * *cnV[12]; + RHS2 -= go[13] * *cnV[13]; + m_A10 += gt[14]; + m_A10 += gt[15]; + m_A10 += gt[16]; + m_A10 += gt[17]; + m_A11 += go[14]; + m_A9 += go[15]; + m_A8 += go[16]; + double RHS3 = Idr[14]; + RHS3 += Idr[15]; + RHS3 += Idr[16]; + RHS3 += Idr[17]; + RHS3 -= go[17] * *cnV[17]; + m_A15 += gt[18]; + m_A15 += gt[19]; + m_A15 += gt[20]; + m_A15 += gt[21]; + m_A15 += gt[22]; + m_A15 += gt[23]; + m_A12 += go[18]; + m_A13 += go[19]; + m_A14 += go[20]; + double RHS4 = Idr[18]; + RHS4 += Idr[19]; + RHS4 += Idr[20]; + RHS4 += Idr[21]; + RHS4 += Idr[22]; + RHS4 += Idr[23]; + RHS4 -= go[21] * *cnV[21]; + RHS4 -= go[22] * *cnV[22]; + RHS4 -= go[23] * *cnV[23]; + const double f0 = 1.0 / m_A0; + const double f0_3 = -f0 * m_A8; + m_A10 += m_A1 * f0_3; + RHS3 += f0_3 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_4 = -f1 * m_A12; + m_A13 += m_A3 * f1_4; + m_A14 += m_A4 * f1_4; + RHS4 += f1_4 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_3 = -f2 * m_A9; + m_A10 += m_A6 * f2_3; + m_A11 += m_A7 * f2_3; + RHS3 += f2_3 * RHS2; + const double f2_4 = -f2 * m_A13; + m_A14 += m_A6 * f2_4; + m_A15 += m_A7 * f2_4; + RHS4 += f2_4 * RHS2; + const double f3 = 1.0 / m_A10; + const double f3_4 = -f3 * m_A14; + m_A15 += m_A11 * f3_4; + RHS4 += f3_4 * RHS3; + V[4] = RHS4 / m_A15; + double tmp3 = 0.0; + tmp3 += m_A11 * V[4]; + V[3] = (RHS3 - tmp3) / m_A10; + double tmp2 = 0.0; + tmp2 += m_A6 * V[3]; + tmp2 += m_A7 * V[4]; + V[2] = (RHS2 - tmp2) / m_A5; + double tmp1 = 0.0; + tmp1 += m_A3 * V[2]; + tmp1 += m_A4 * V[3]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[3]; + V[0] = (RHS0 - tmp0) / m_A0; +} + // armora static void nl_gcr_1250f340dea396ae_22_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) @@ -3711,8 +3844,8 @@ static void nl_gcr_2f84bc98d737730b_22_double_double(double * __restrict V, cons V[0] = (RHS0 - tmp0) / m_A0; } -// solarq -static void nl_gcr_34e910fc1896999f_76_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// tankbatt +static void nl_gcr_328d886b444b586b_137_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -3793,559 +3926,789 @@ static void nl_gcr_34e910fc1896999f_76_double_double(double * __restrict V, cons double m_A73(0.0); double m_A74(0.0); double m_A75(0.0); + double m_A76(0.0); + double m_A77(0.0); + double m_A78(0.0); + double m_A79(0.0); + double m_A80(0.0); + double m_A81(0.0); + double m_A82(0.0); + double m_A83(0.0); + double m_A84(0.0); + double m_A85(0.0); + double m_A86(0.0); + double m_A87(0.0); + double m_A88(0.0); + double m_A89(0.0); + double m_A90(0.0); + double m_A91(0.0); + double m_A92(0.0); + double m_A93(0.0); + double m_A94(0.0); + double m_A95(0.0); + double m_A96(0.0); + double m_A97(0.0); + double m_A98(0.0); + double m_A99(0.0); + double m_A100(0.0); + double m_A101(0.0); + double m_A102(0.0); + double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); + double m_A111(0.0); + double m_A112(0.0); + double m_A113(0.0); + double m_A114(0.0); + double m_A115(0.0); + double m_A116(0.0); + double m_A117(0.0); + double m_A118(0.0); + double m_A119(0.0); + double m_A120(0.0); + double m_A121(0.0); + double m_A122(0.0); + double m_A123(0.0); + double m_A124(0.0); + double m_A125(0.0); + double m_A126(0.0); + double m_A127(0.0); + double m_A128(0.0); + double m_A129(0.0); + double m_A130(0.0); + double m_A131(0.0); + double m_A132(0.0); + double m_A133(0.0); + double m_A134(0.0); + double m_A135(0.0); + double m_A136(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; - m_A0 += gt[3]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; - RHS0 += Idr[3]; RHS0 -= go[1] * *cnV[1]; RHS0 -= go[2] * *cnV[2]; - RHS0 -= go[3] * *cnV[3]; + m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; m_A2 += gt[6]; - m_A2 += gt[7]; - m_A2 += gt[8]; - m_A2 += gt[9]; - m_A2 += gt[10]; - m_A2 += gt[11]; - m_A5 += go[4]; - m_A4 += go[5]; - m_A4 += go[6]; - m_A3 += go[7]; - m_A3 += go[8]; - double RHS1 = Idr[4]; + m_A3 += go[3]; + m_A3 += go[4]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; RHS1 += Idr[5]; RHS1 += Idr[6]; - RHS1 += Idr[7]; - RHS1 += Idr[8]; - RHS1 += Idr[9]; - RHS1 += Idr[10]; - RHS1 += Idr[11]; - RHS1 -= go[9] * *cnV[9]; - RHS1 -= go[10] * *cnV[10]; - RHS1 -= go[11] * *cnV[11]; - m_A6 += gt[12]; - m_A6 += gt[13]; - m_A6 += gt[14]; - m_A6 += gt[15]; - m_A7 += go[12]; - double RHS2 = Idr[12]; - RHS2 += Idr[13]; - RHS2 += Idr[14]; - RHS2 += Idr[15]; - RHS2 -= go[13] * *cnV[13]; - RHS2 -= go[14] * *cnV[14]; - RHS2 -= go[15] * *cnV[15]; - m_A8 += gt[16]; - m_A8 += gt[17]; - m_A8 += gt[18]; - m_A8 += gt[19]; - m_A8 += gt[20]; - m_A8 += gt[21]; - m_A8 += gt[22]; - m_A8 += gt[23]; - m_A11 += go[16]; - m_A10 += go[17]; - m_A10 += go[18]; - m_A9 += go[19]; - m_A9 += go[20]; - double RHS3 = Idr[16]; - RHS3 += Idr[17]; - RHS3 += Idr[18]; - RHS3 += Idr[19]; - RHS3 += Idr[20]; - RHS3 += Idr[21]; - RHS3 += Idr[22]; - RHS3 += Idr[23]; - RHS3 -= go[21] * *cnV[21]; - RHS3 -= go[22] * *cnV[22]; - RHS3 -= go[23] * *cnV[23]; - m_A12 += gt[24]; - m_A12 += gt[25]; - m_A12 += gt[26]; - m_A13 += go[24]; - m_A14 += go[25]; - double RHS4 = Idr[24]; - RHS4 += Idr[25]; - RHS4 += Idr[26]; - RHS4 -= go[26] * *cnV[26]; + RHS1 -= go[5] * *cnV[5]; + RHS1 -= go[6] * *cnV[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; + m_A4 += gt[9]; + m_A4 += gt[10]; + m_A4 += gt[11]; + m_A5 += go[7]; + m_A7 += go[8]; + m_A6 += go[9]; + double RHS2 = Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 += Idr[11]; + RHS2 -= go[10] * *cnV[10]; + RHS2 -= go[11] * *cnV[11]; + m_A8 += gt[12]; + m_A8 += gt[13]; + m_A8 += gt[14]; + m_A9 += go[12]; + double RHS3 = Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; + RHS3 -= go[13] * *cnV[13]; + RHS3 -= go[14] * *cnV[14]; + m_A10 += gt[15]; + m_A10 += gt[16]; + m_A10 += gt[17]; + m_A10 += gt[18]; + m_A10 += gt[19]; + m_A10 += gt[20]; + m_A10 += gt[21]; + m_A11 += go[15]; + m_A12 += go[16]; + double RHS4 = Idr[15]; + RHS4 += Idr[16]; + RHS4 += Idr[17]; + RHS4 += Idr[18]; + RHS4 += Idr[19]; + RHS4 += Idr[20]; + RHS4 += Idr[21]; + RHS4 -= go[17] * *cnV[17]; + RHS4 -= go[18] * *cnV[18]; + RHS4 -= go[19] * *cnV[19]; + RHS4 -= go[20] * *cnV[20]; + RHS4 -= go[21] * *cnV[21]; + m_A13 += gt[22]; + m_A13 += gt[23]; + m_A13 += gt[24]; + m_A14 += go[22]; + double RHS5 = Idr[22]; + RHS5 += Idr[23]; + RHS5 += Idr[24]; + RHS5 -= go[23] * *cnV[23]; + RHS5 -= go[24] * *cnV[24]; + m_A15 += gt[25]; + m_A15 += gt[26]; m_A15 += gt[27]; - m_A15 += gt[28]; - m_A15 += gt[29]; - m_A15 += gt[30]; - m_A16 += go[27]; - double RHS5 = Idr[27]; - RHS5 += Idr[28]; - RHS5 += Idr[29]; - RHS5 += Idr[30]; - RHS5 -= go[28] * *cnV[28]; - RHS5 -= go[29] * *cnV[29]; - RHS5 -= go[30] * *cnV[30]; - m_A17 += gt[31]; - m_A17 += gt[32]; - m_A17 += gt[33]; - m_A17 += gt[34]; - m_A17 += gt[35]; - m_A17 += gt[36]; - m_A17 += gt[37]; - m_A17 += gt[38]; - m_A20 += go[31]; - m_A19 += go[32]; - m_A19 += go[33]; - m_A18 += go[34]; - m_A18 += go[35]; - double RHS6 = Idr[31]; - RHS6 += Idr[32]; - RHS6 += Idr[33]; - RHS6 += Idr[34]; - RHS6 += Idr[35]; - RHS6 += Idr[36]; - RHS6 += Idr[37]; - RHS6 += Idr[38]; - RHS6 -= go[36] * *cnV[36]; - RHS6 -= go[37] * *cnV[37]; - RHS6 -= go[38] * *cnV[38]; - m_A21 += gt[39]; - m_A21 += gt[40]; - m_A21 += gt[41]; - m_A23 += go[39]; - m_A22 += go[40]; - double RHS7 = Idr[39]; - RHS7 += Idr[40]; - RHS7 += Idr[41]; - RHS7 -= go[41] * *cnV[41]; - m_A26 += gt[42]; - m_A26 += gt[43]; - m_A26 += gt[44]; - m_A26 += gt[45]; - m_A26 += gt[46]; - m_A26 += gt[47]; - m_A25 += go[42]; - m_A25 += go[43]; - m_A24 += go[44]; - double RHS8 = Idr[42]; - RHS8 += Idr[43]; - RHS8 += Idr[44]; - RHS8 += Idr[45]; - RHS8 += Idr[46]; - RHS8 += Idr[47]; - RHS8 -= go[45] * *cnV[45]; - RHS8 -= go[46] * *cnV[46]; - RHS8 -= go[47] * *cnV[47]; - m_A31 += gt[48]; - m_A31 += gt[49]; - m_A31 += gt[50]; - m_A31 += gt[51]; - m_A31 += gt[52]; - m_A32 += go[48]; - m_A32 += go[49]; - m_A29 += go[50]; - m_A29 += go[51]; - double RHS9 = Idr[48]; - RHS9 += Idr[49]; - RHS9 += Idr[50]; - RHS9 += Idr[51]; - RHS9 += Idr[52]; - RHS9 -= go[52] * *cnV[52]; - m_A35 += gt[53]; - m_A35 += gt[54]; - m_A35 += gt[55]; - m_A35 += gt[56]; - m_A35 += gt[57]; - m_A35 += gt[58]; - m_A34 += go[53]; - m_A34 += go[54]; - m_A33 += go[55]; - double RHS10 = Idr[53]; - RHS10 += Idr[54]; - RHS10 += Idr[55]; - RHS10 += Idr[56]; - RHS10 += Idr[57]; - RHS10 += Idr[58]; - RHS10 -= go[56] * *cnV[56]; - RHS10 -= go[57] * *cnV[57]; - RHS10 -= go[58] * *cnV[58]; - m_A40 += gt[59]; - m_A40 += gt[60]; - m_A40 += gt[61]; - m_A40 += gt[62]; - m_A40 += gt[63]; - m_A40 += gt[64]; - m_A39 += go[59]; - m_A39 += go[60]; - m_A38 += go[61]; - double RHS11 = Idr[59]; - RHS11 += Idr[60]; - RHS11 += Idr[61]; - RHS11 += Idr[62]; - RHS11 += Idr[63]; - RHS11 += Idr[64]; - RHS11 -= go[62] * *cnV[62]; - RHS11 -= go[63] * *cnV[63]; - RHS11 -= go[64] * *cnV[64]; - m_A45 += gt[65]; - m_A45 += gt[66]; - m_A45 += gt[67]; - m_A45 += gt[68]; - m_A45 += gt[69]; - m_A46 += go[65]; - m_A46 += go[66]; - m_A43 += go[67]; - m_A43 += go[68]; - double RHS12 = Idr[65]; - RHS12 += Idr[66]; - RHS12 += Idr[67]; - RHS12 += Idr[68]; - RHS12 += Idr[69]; - RHS12 -= go[69] * *cnV[69]; - m_A49 += gt[70]; - m_A49 += gt[71]; - m_A49 += gt[72]; - m_A49 += gt[73]; - m_A49 += gt[74]; - m_A50 += go[70]; - m_A50 += go[71]; - m_A47 += go[72]; - m_A47 += go[73]; - double RHS13 = Idr[70]; - RHS13 += Idr[71]; - RHS13 += Idr[72]; - RHS13 += Idr[73]; - RHS13 += Idr[74]; - RHS13 -= go[74] * *cnV[74]; - m_A55 += gt[75]; - m_A55 += gt[76]; - m_A55 += gt[77]; - m_A55 += gt[78]; - m_A52 += go[75]; - m_A54 += go[76]; - m_A54 += go[77]; - m_A51 += go[78]; - double RHS14 = Idr[75]; - RHS14 += Idr[76]; - RHS14 += Idr[77]; - RHS14 += Idr[78]; - m_A60 += gt[79]; - m_A60 += gt[80]; - m_A60 += gt[81]; - m_A60 += gt[82]; - m_A58 += go[79]; - m_A57 += go[80]; - m_A62 += go[81]; - double RHS15 = Idr[79]; - RHS15 += Idr[80]; - RHS15 += Idr[81]; - RHS15 += Idr[82]; - RHS15 -= go[82] * *cnV[82]; - m_A68 += gt[83]; - m_A68 += gt[84]; - m_A68 += gt[85]; - m_A68 += gt[86]; - m_A64 += go[83]; - m_A66 += go[84]; - m_A66 += go[85]; - m_A63 += go[86]; - double RHS16 = Idr[83]; - RHS16 += Idr[84]; - RHS16 += Idr[85]; - RHS16 += Idr[86]; - m_A75 += gt[87]; - m_A75 += gt[88]; - m_A75 += gt[89]; - m_A75 += gt[90]; - m_A75 += gt[91]; - m_A72 += go[87]; - m_A72 += go[88]; - m_A70 += go[89]; - m_A73 += go[90]; - double RHS17 = Idr[87]; - RHS17 += Idr[88]; - RHS17 += Idr[89]; - RHS17 += Idr[90]; - RHS17 += Idr[91]; - RHS17 -= go[91] * *cnV[91]; + m_A16 += go[25]; + double RHS6 = Idr[25]; + RHS6 += Idr[26]; + RHS6 += Idr[27]; + RHS6 -= go[26] * *cnV[26]; + RHS6 -= go[27] * *cnV[27]; + m_A17 += gt[28]; + m_A17 += gt[29]; + m_A17 += gt[30]; + m_A19 += go[28]; + m_A18 += go[29]; + double RHS7 = Idr[28]; + RHS7 += Idr[29]; + RHS7 += Idr[30]; + RHS7 -= go[30] * *cnV[30]; + m_A20 += gt[31]; + m_A20 += gt[32]; + m_A20 += gt[33]; + m_A21 += go[31]; + double RHS8 = Idr[31]; + RHS8 += Idr[32]; + RHS8 += Idr[33]; + RHS8 -= go[32] * *cnV[32]; + RHS8 -= go[33] * *cnV[33]; + m_A22 += gt[34]; + m_A22 += gt[35]; + m_A22 += gt[36]; + m_A24 += go[34]; + m_A23 += go[35]; + double RHS9 = Idr[34]; + RHS9 += Idr[35]; + RHS9 += Idr[36]; + RHS9 -= go[36] * *cnV[36]; + m_A25 += gt[37]; + m_A25 += gt[38]; + m_A25 += gt[39]; + m_A25 += gt[40]; + m_A25 += gt[41]; + m_A25 += gt[42]; + m_A25 += gt[43]; + m_A27 += go[37]; + m_A26 += go[38]; + double RHS10 = Idr[37]; + RHS10 += Idr[38]; + RHS10 += Idr[39]; + RHS10 += Idr[40]; + RHS10 += Idr[41]; + RHS10 += Idr[42]; + RHS10 += Idr[43]; + RHS10 -= go[39] * *cnV[39]; + RHS10 -= go[40] * *cnV[40]; + RHS10 -= go[41] * *cnV[41]; + RHS10 -= go[42] * *cnV[42]; + RHS10 -= go[43] * *cnV[43]; + m_A28 += gt[44]; + m_A28 += gt[45]; + m_A28 += gt[46]; + m_A28 += gt[47]; + m_A28 += gt[48]; + m_A28 += gt[49]; + m_A30 += go[44]; + m_A31 += go[45]; + m_A29 += go[46]; + double RHS11 = Idr[44]; + RHS11 += Idr[45]; + RHS11 += Idr[46]; + RHS11 += Idr[47]; + RHS11 += Idr[48]; + RHS11 += Idr[49]; + RHS11 -= go[47] * *cnV[47]; + RHS11 -= go[48] * *cnV[48]; + RHS11 -= go[49] * *cnV[49]; + m_A32 += gt[50]; + m_A32 += gt[51]; + m_A32 += gt[52]; + m_A32 += gt[53]; + m_A35 += go[50]; + m_A34 += go[51]; + m_A33 += go[52]; + double RHS12 = Idr[50]; + RHS12 += Idr[51]; + RHS12 += Idr[52]; + RHS12 += Idr[53]; + RHS12 -= go[53] * *cnV[53]; + m_A36 += gt[54]; + m_A36 += gt[55]; + m_A36 += gt[56]; + m_A37 += go[54]; + double RHS13 = Idr[54]; + RHS13 += Idr[55]; + RHS13 += Idr[56]; + RHS13 -= go[55] * *cnV[55]; + RHS13 -= go[56] * *cnV[56]; + m_A38 += gt[57]; + m_A38 += gt[58]; + m_A38 += gt[59]; + m_A39 += go[57]; + double RHS14 = Idr[57]; + RHS14 += Idr[58]; + RHS14 += Idr[59]; + RHS14 -= go[58] * *cnV[58]; + RHS14 -= go[59] * *cnV[59]; + m_A44 += gt[60]; + m_A44 += gt[61]; + m_A41 += go[60]; + m_A40 += go[61]; + double RHS15 = Idr[60]; + RHS15 += Idr[61]; + m_A50 += gt[62]; + m_A50 += gt[63]; + m_A49 += go[62]; + m_A48 += go[63]; + double RHS16 = Idr[62]; + RHS16 += Idr[63]; + m_A52 += gt[64]; + m_A52 += gt[65]; + m_A52 += gt[66]; + m_A52 += gt[67]; + m_A55 += go[64]; + m_A54 += go[65]; + m_A53 += go[66]; + double RHS17 = Idr[64]; + RHS17 += Idr[65]; + RHS17 += Idr[66]; + RHS17 += Idr[67]; + RHS17 -= go[67] * *cnV[67]; + m_A58 += gt[68]; + m_A58 += gt[69]; + m_A57 += go[68]; + m_A56 += go[69]; + double RHS18 = Idr[68]; + RHS18 += Idr[69]; + m_A60 += gt[70]; + m_A60 += gt[71]; + m_A60 += gt[72]; + m_A61 += go[70]; + double RHS19 = Idr[70]; + RHS19 += Idr[71]; + RHS19 += Idr[72]; + RHS19 -= go[71] * *cnV[71]; + RHS19 -= go[72] * *cnV[72]; + m_A63 += gt[73]; + m_A63 += gt[74]; + m_A64 += go[73]; + m_A62 += go[74]; + double RHS20 = Idr[73]; + RHS20 += Idr[74]; + m_A66 += gt[75]; + m_A66 += gt[76]; + m_A67 += go[75]; + m_A65 += go[76]; + double RHS21 = Idr[75]; + RHS21 += Idr[76]; + m_A73 += gt[77]; + m_A73 += gt[78]; + m_A73 += gt[79]; + m_A73 += gt[80]; + m_A71 += go[77]; + m_A69 += go[78]; + m_A68 += go[79]; + m_A68 += go[80]; + double RHS22 = Idr[77]; + RHS22 += Idr[78]; + RHS22 += Idr[79]; + RHS22 += Idr[80]; + m_A79 += gt[81]; + m_A79 += gt[82]; + m_A77 += go[81]; + m_A76 += go[82]; + double RHS23 = Idr[81]; + RHS23 += Idr[82]; + m_A84 += gt[83]; + m_A84 += gt[84]; + m_A84 += gt[85]; + m_A84 += gt[86]; + m_A84 += gt[87]; + m_A84 += gt[88]; + m_A84 += gt[89]; + m_A85 += go[83]; + m_A82 += go[84]; + double RHS24 = Idr[83]; + RHS24 += Idr[84]; + RHS24 += Idr[85]; + RHS24 += Idr[86]; + RHS24 += Idr[87]; + RHS24 += Idr[88]; + RHS24 += Idr[89]; + RHS24 -= go[85] * *cnV[85]; + RHS24 -= go[86] * *cnV[86]; + RHS24 -= go[87] * *cnV[87]; + RHS24 -= go[88] * *cnV[88]; + RHS24 -= go[89] * *cnV[89]; + m_A91 += gt[90]; + m_A91 += gt[91]; + m_A91 += gt[92]; + m_A93 += go[90]; + m_A88 += go[91]; + m_A87 += go[92]; + double RHS25 = Idr[90]; + RHS25 += Idr[91]; + RHS25 += Idr[92]; + m_A97 += gt[93]; + m_A97 += gt[94]; + m_A96 += go[93]; + m_A94 += go[94]; + double RHS26 = Idr[93]; + RHS26 += Idr[94]; + m_A105 += gt[95]; + m_A105 += gt[96]; + m_A105 += gt[97]; + m_A107 += go[95]; + m_A101 += go[96]; + m_A100 += go[97]; + double RHS27 = Idr[95]; + RHS27 += Idr[96]; + RHS27 += Idr[97]; + m_A111 += gt[98]; + m_A111 += gt[99]; + m_A111 += gt[100]; + m_A111 += gt[101]; + m_A111 += gt[102]; + m_A112 += go[98]; + m_A110 += go[99]; + m_A109 += go[100]; + m_A108 += go[101]; + double RHS28 = Idr[98]; + RHS28 += Idr[99]; + RHS28 += Idr[100]; + RHS28 += Idr[101]; + RHS28 += Idr[102]; + RHS28 -= go[102] * *cnV[102]; + m_A118 += gt[103]; + m_A118 += gt[104]; + m_A118 += gt[105]; + m_A118 += gt[106]; + m_A118 += gt[107]; + m_A118 += gt[108]; + m_A115 += go[103]; + m_A120 += go[104]; + m_A116 += go[105]; + m_A113 += go[106]; + double RHS29 = Idr[103]; + RHS29 += Idr[104]; + RHS29 += Idr[105]; + RHS29 += Idr[106]; + RHS29 += Idr[107]; + RHS29 += Idr[108]; + RHS29 -= go[107] * *cnV[107]; + RHS29 -= go[108] * *cnV[108]; + m_A129 += gt[109]; + m_A129 += gt[110]; + m_A129 += gt[111]; + m_A129 += gt[112]; + m_A129 += gt[113]; + m_A129 += gt[114]; + m_A121 += go[109]; + m_A130 += go[110]; + m_A127 += go[111]; + m_A123 += go[112]; + double RHS30 = Idr[109]; + RHS30 += Idr[110]; + RHS30 += Idr[111]; + RHS30 += Idr[112]; + RHS30 += Idr[113]; + RHS30 += Idr[114]; + RHS30 -= go[113] * *cnV[113]; + RHS30 -= go[114] * *cnV[114]; + m_A136 += gt[115]; + m_A136 += gt[116]; + m_A136 += gt[117]; + m_A136 += gt[118]; + m_A136 += gt[119]; + m_A133 += go[115]; + m_A134 += go[116]; + m_A135 += go[117]; + m_A132 += go[118]; + m_A131 += go[119]; + double RHS31 = Idr[115]; + RHS31 += Idr[116]; + RHS31 += Idr[117]; + RHS31 += Idr[118]; + RHS31 += Idr[119]; const double f0 = 1.0 / m_A0; - const double f0_8 = -f0 * m_A24; - m_A26 += m_A1 * f0_8; - RHS8 += f0_8 * RHS0; + const double f0_15 = -f0 * m_A40; + m_A44 += m_A1 * f0_15; + RHS15 += f0_15 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_8 = -f1 * m_A25; - m_A26 += m_A3 * f1_8; - m_A27 += m_A4 * f1_8; - m_A28 += m_A5 * f1_8; - RHS8 += f1_8 * RHS1; - const double f1_9 = -f1 * m_A29; - m_A30 += m_A3 * f1_9; - m_A31 += m_A4 * f1_9; - m_A32 += m_A5 * f1_9; - RHS9 += f1_9 * RHS1; - const double f1_17 = -f1 * m_A70; - m_A71 += m_A3 * f1_17; - m_A72 += m_A4 * f1_17; - m_A75 += m_A5 * f1_17; - RHS17 += f1_17 * RHS1; - const double f2 = 1.0 / m_A6; - const double f2_10 = -f2 * m_A33; - m_A35 += m_A7 * f2_10; - RHS10 += f2_10 * RHS2; + const double f1_22 = -f1 * m_A68; + m_A73 += m_A3 * f1_22; + RHS22 += f1_22 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_15 = -f2 * m_A41; + m_A42 += m_A5 * f2_15; + m_A44 += m_A6 * f2_15; + m_A45 += m_A7 * f2_15; + RHS15 += f2_15 * RHS2; + const double f2_22 = -f2 * m_A69; + m_A70 += m_A5 * f2_22; + m_A72 += m_A6 * f2_22; + m_A73 += m_A7 * f2_22; + RHS22 += f2_22 * RHS2; const double f3 = 1.0 / m_A8; - const double f3_10 = -f3 * m_A34; - m_A35 += m_A9 * f3_10; - m_A36 += m_A10 * f3_10; - m_A37 += m_A11 * f3_10; - RHS10 += f3_10 * RHS3; - const double f3_12 = -f3 * m_A43; - m_A44 += m_A9 * f3_12; - m_A45 += m_A10 * f3_12; - m_A46 += m_A11 * f3_12; - RHS12 += f3_12 * RHS3; - const double f3_14 = -f3 * m_A51; - m_A53 += m_A9 * f3_14; - m_A54 += m_A10 * f3_14; - m_A55 += m_A11 * f3_14; - RHS14 += f3_14 * RHS3; - const double f4 = 1.0 / m_A12; - const double f4_14 = -f4 * m_A52; - m_A55 += m_A13 * f4_14; - m_A56 += m_A14 * f4_14; - RHS14 += f4_14 * RHS4; - const double f4_15 = -f4 * m_A57; - m_A59 += m_A13 * f4_15; - m_A60 += m_A14 * f4_15; + const double f3_16 = -f3 * m_A48; + m_A50 += m_A9 * f3_16; + RHS16 += f3_16 * RHS3; + const double f4 = 1.0 / m_A10; + const double f4_15 = -f4 * m_A42; + m_A43 += m_A11 * f4_15; + m_A45 += m_A12 * f4_15; RHS15 += f4_15 * RHS4; - const double f5 = 1.0 / m_A15; - const double f5_11 = -f5 * m_A38; - m_A40 += m_A16 * f5_11; - RHS11 += f5_11 * RHS5; - const double f6 = 1.0 / m_A17; - const double f6_11 = -f6 * m_A39; - m_A40 += m_A18 * f6_11; - m_A41 += m_A19 * f6_11; - m_A42 += m_A20 * f6_11; - RHS11 += f6_11 * RHS6; - const double f6_13 = -f6 * m_A47; - m_A48 += m_A18 * f6_13; - m_A49 += m_A19 * f6_13; - m_A50 += m_A20 * f6_13; - RHS13 += f6_13 * RHS6; - const double f6_16 = -f6 * m_A63; - m_A65 += m_A18 * f6_16; - m_A66 += m_A19 * f6_16; - m_A68 += m_A20 * f6_16; - RHS16 += f6_16 * RHS6; - const double f7 = 1.0 / m_A21; - const double f7_15 = -f7 * m_A58; - m_A60 += m_A22 * f7_15; - m_A61 += m_A23 * f7_15; - RHS15 += f7_15 * RHS7; - const double f7_16 = -f7 * m_A64; - m_A67 += m_A22 * f7_16; - m_A68 += m_A23 * f7_16; + const double f4_22 = -f4 * m_A70; + m_A71 += m_A11 * f4_22; + m_A73 += m_A12 * f4_22; + RHS22 += f4_22 * RHS4; + const double f5 = 1.0 / m_A13; + const double f5_20 = -f5 * m_A62; + m_A63 += m_A14 * f5_20; + RHS20 += f5_20 * RHS5; + const double f6 = 1.0 / m_A15; + const double f6_18 = -f6 * m_A56; + m_A58 += m_A16 * f6_18; + RHS18 += f6_18 * RHS6; + const double f7 = 1.0 / m_A17; + const double f7_16 = -f7 * m_A49; + m_A50 += m_A18 * f7_16; + m_A51 += m_A19 * f7_16; RHS16 += f7_16 * RHS7; - const double f8 = 1.0 / m_A26; - const double f8_9 = -f8 * m_A30; - m_A31 += m_A27 * f8_9; - m_A32 += m_A28 * f8_9; - RHS9 += f8_9 * RHS8; - const double f8_17 = -f8 * m_A71; - m_A72 += m_A27 * f8_17; - m_A75 += m_A28 * f8_17; - RHS17 += f8_17 * RHS8; - const double f9 = 1.0 / m_A31; - const double f9_17 = -f9 * m_A72; - m_A75 += m_A32 * f9_17; - RHS17 += f9_17 * RHS9; - const double f10 = 1.0 / m_A35; - const double f10_12 = -f10 * m_A44; - m_A45 += m_A36 * f10_12; - m_A46 += m_A37 * f10_12; - RHS12 += f10_12 * RHS10; - const double f10_14 = -f10 * m_A53; - m_A54 += m_A36 * f10_14; - m_A55 += m_A37 * f10_14; - RHS14 += f10_14 * RHS10; - const double f11 = 1.0 / m_A40; - const double f11_13 = -f11 * m_A48; - m_A49 += m_A41 * f11_13; - m_A50 += m_A42 * f11_13; - RHS13 += f11_13 * RHS11; - const double f11_16 = -f11 * m_A65; - m_A66 += m_A41 * f11_16; - m_A68 += m_A42 * f11_16; - RHS16 += f11_16 * RHS11; - const double f12 = 1.0 / m_A45; - const double f12_14 = -f12 * m_A54; - m_A55 += m_A46 * f12_14; - RHS14 += f12_14 * RHS12; - const double f13 = 1.0 / m_A49; - const double f13_16 = -f13 * m_A66; - m_A68 += m_A50 * f13_16; - RHS16 += f13_16 * RHS13; - const double f14 = 1.0 / m_A55; - const double f14_15 = -f14 * m_A59; - m_A60 += m_A56 * f14_15; - RHS15 += f14_15 * RHS14; - const double f15 = 1.0 / m_A60; - const double f15_16 = -f15 * m_A67; - m_A68 += m_A61 * f15_16; - m_A69 += m_A62 * f15_16; - RHS16 += f15_16 * RHS15; - const double f15_17 = -f15 * m_A73; - m_A74 += m_A61 * f15_17; - m_A75 += m_A62 * f15_17; - RHS17 += f15_17 * RHS15; - const double f16 = 1.0 / m_A68; - const double f16_17 = -f16 * m_A74; - m_A75 += m_A69 * f16_17; - RHS17 += f16_17 * RHS16; - V[17] = RHS17 / m_A75; + const double f7_26 = -f7 * m_A94; + m_A95 += m_A18 * f7_26; + m_A97 += m_A19 * f7_26; + RHS26 += f7_26 * RHS7; + const double f8 = 1.0 / m_A20; + const double f8_21 = -f8 * m_A65; + m_A66 += m_A21 * f8_21; + RHS21 += f8_21 * RHS8; + const double f9 = 1.0 / m_A22; + const double f9_18 = -f9 * m_A57; + m_A58 += m_A23 * f9_18; + m_A59 += m_A24 * f9_18; + RHS18 += f9_18 * RHS9; + const double f9_23 = -f9 * m_A76; + m_A78 += m_A23 * f9_23; + m_A79 += m_A24 * f9_23; + RHS23 += f9_23 * RHS9; + const double f10 = 1.0 / m_A25; + const double f10_30 = -f10 * m_A121; + m_A122 += m_A26 * f10_30; + m_A127 += m_A27 * f10_30; + RHS30 += f10_30 * RHS10; + const double f11 = 1.0 / m_A28; + const double f11_15 = -f11 * m_A43; + m_A45 += m_A29 * f11_15; + m_A46 += m_A30 * f11_15; + m_A47 += m_A31 * f11_15; + RHS15 += f11_15 * RHS11; + const double f11_22 = -f11 * m_A71; + m_A73 += m_A29 * f11_22; + m_A74 += m_A30 * f11_22; + m_A75 += m_A31 * f11_22; + RHS22 += f11_22 * RHS11; + const double f11_24 = -f11 * m_A82; + m_A83 += m_A29 * f11_24; + m_A85 += m_A30 * f11_24; + m_A86 += m_A31 * f11_24; + RHS24 += f11_24 * RHS11; + const double f11_25 = -f11 * m_A87; + m_A89 += m_A29 * f11_25; + m_A91 += m_A30 * f11_25; + m_A92 += m_A31 * f11_25; + RHS25 += f11_25 * RHS11; + const double f11_27 = -f11 * m_A100; + m_A102 += m_A29 * f11_27; + m_A103 += m_A30 * f11_27; + m_A105 += m_A31 * f11_27; + RHS27 += f11_27 * RHS11; + const double f11_30 = -f11 * m_A122; + m_A124 += m_A29 * f11_30; + m_A125 += m_A30 * f11_30; + m_A127 += m_A31 * f11_30; + RHS30 += f11_30 * RHS11; + const double f12 = 1.0 / m_A32; + const double f12_23 = -f12 * m_A77; + m_A79 += m_A33 * f12_23; + m_A80 += m_A34 * f12_23; + m_A81 += m_A35 * f12_23; + RHS23 += f12_23 * RHS12; + const double f12_25 = -f12 * m_A88; + m_A90 += m_A33 * f12_25; + m_A91 += m_A34 * f12_25; + m_A93 += m_A35 * f12_25; + RHS25 += f12_25 * RHS12; + const double f12_29 = -f12 * m_A113; + m_A114 += m_A33 * f12_29; + m_A116 += m_A34 * f12_29; + m_A118 += m_A35 * f12_29; + RHS29 += f12_29 * RHS12; + const double f13 = 1.0 / m_A36; + const double f13_28 = -f13 * m_A108; + m_A111 += m_A37 * f13_28; + RHS28 += f13_28 * RHS13; + const double f14 = 1.0 / m_A38; + const double f14_28 = -f14 * m_A109; + m_A111 += m_A39 * f14_28; + RHS28 += f14_28 * RHS14; + const double f15 = 1.0 / m_A44; + const double f15_22 = -f15 * m_A72; + m_A73 += m_A45 * f15_22; + m_A74 += m_A46 * f15_22; + m_A75 += m_A47 * f15_22; + RHS22 += f15_22 * RHS15; + const double f16 = 1.0 / m_A50; + const double f16_26 = -f16 * m_A95; + m_A97 += m_A51 * f16_26; + RHS26 += f16_26 * RHS16; + const double f17 = 1.0 / m_A52; + const double f17_26 = -f17 * m_A96; + m_A97 += m_A53 * f17_26; + m_A98 += m_A54 * f17_26; + m_A99 += m_A55 * f17_26; + RHS26 += f17_26 * RHS17; + const double f17_27 = -f17 * m_A101; + m_A104 += m_A53 * f17_27; + m_A105 += m_A54 * f17_27; + m_A107 += m_A55 * f17_27; + RHS27 += f17_27 * RHS17; + const double f17_30 = -f17 * m_A123; + m_A126 += m_A53 * f17_30; + m_A127 += m_A54 * f17_30; + m_A129 += m_A55 * f17_30; + RHS30 += f17_30 * RHS17; + const double f18 = 1.0 / m_A58; + const double f18_23 = -f18 * m_A78; + m_A79 += m_A59 * f18_23; + RHS23 += f18_23 * RHS18; + const double f19 = 1.0 / m_A60; + const double f19_28 = -f19 * m_A110; + m_A111 += m_A61 * f19_28; + RHS28 += f19_28 * RHS19; + const double f20 = 1.0 / m_A63; + const double f20_31 = -f20 * m_A131; + m_A136 += m_A64 * f20_31; + RHS31 += f20_31 * RHS20; + const double f21 = 1.0 / m_A66; + const double f21_31 = -f21 * m_A132; + m_A136 += m_A67 * f21_31; + RHS31 += f21_31 * RHS21; + const double f22 = 1.0 / m_A73; + const double f22_24 = -f22 * m_A83; + m_A85 += m_A74 * f22_24; + m_A86 += m_A75 * f22_24; + RHS24 += f22_24 * RHS22; + const double f22_25 = -f22 * m_A89; + m_A91 += m_A74 * f22_25; + m_A92 += m_A75 * f22_25; + RHS25 += f22_25 * RHS22; + const double f22_27 = -f22 * m_A102; + m_A103 += m_A74 * f22_27; + m_A105 += m_A75 * f22_27; + RHS27 += f22_27 * RHS22; + const double f22_30 = -f22 * m_A124; + m_A125 += m_A74 * f22_30; + m_A127 += m_A75 * f22_30; + RHS30 += f22_30 * RHS22; + const double f23 = 1.0 / m_A79; + const double f23_25 = -f23 * m_A90; + m_A91 += m_A80 * f23_25; + m_A93 += m_A81 * f23_25; + RHS25 += f23_25 * RHS23; + const double f23_29 = -f23 * m_A114; + m_A116 += m_A80 * f23_29; + m_A118 += m_A81 * f23_29; + RHS29 += f23_29 * RHS23; + const double f24 = 1.0 / m_A84; + const double f24_29 = -f24 * m_A115; + m_A116 += m_A85 * f24_29; + m_A117 += m_A86 * f24_29; + RHS29 += f24_29 * RHS24; + const double f25 = 1.0 / m_A91; + const double f25_27 = -f25 * m_A103; + m_A105 += m_A92 * f25_27; + m_A106 += m_A93 * f25_27; + RHS27 += f25_27 * RHS25; + const double f25_29 = -f25 * m_A116; + m_A117 += m_A92 * f25_29; + m_A118 += m_A93 * f25_29; + RHS29 += f25_29 * RHS25; + const double f25_30 = -f25 * m_A125; + m_A127 += m_A92 * f25_30; + m_A128 += m_A93 * f25_30; + RHS30 += f25_30 * RHS25; + const double f26 = 1.0 / m_A97; + const double f26_27 = -f26 * m_A104; + m_A105 += m_A98 * f26_27; + m_A107 += m_A99 * f26_27; + RHS27 += f26_27 * RHS26; + const double f26_30 = -f26 * m_A126; + m_A127 += m_A98 * f26_30; + m_A129 += m_A99 * f26_30; + RHS30 += f26_30 * RHS26; + const double f27 = 1.0 / m_A105; + const double f27_29 = -f27 * m_A117; + m_A118 += m_A106 * f27_29; + m_A119 += m_A107 * f27_29; + RHS29 += f27_29 * RHS27; + const double f27_30 = -f27 * m_A127; + m_A128 += m_A106 * f27_30; + m_A129 += m_A107 * f27_30; + RHS30 += f27_30 * RHS27; + const double f28 = 1.0 / m_A111; + const double f28_31 = -f28 * m_A133; + m_A136 += m_A112 * f28_31; + RHS31 += f28_31 * RHS28; + const double f29 = 1.0 / m_A118; + const double f29_30 = -f29 * m_A128; + m_A129 += m_A119 * f29_30; + m_A130 += m_A120 * f29_30; + RHS30 += f29_30 * RHS29; + const double f29_31 = -f29 * m_A134; + m_A135 += m_A119 * f29_31; + m_A136 += m_A120 * f29_31; + RHS31 += f29_31 * RHS29; + const double f30 = 1.0 / m_A129; + const double f30_31 = -f30 * m_A135; + m_A136 += m_A130 * f30_31; + RHS31 += f30_31 * RHS30; + V[31] = RHS31 / m_A136; + double tmp30 = 0.0; + tmp30 += m_A130 * V[31]; + V[30] = (RHS30 - tmp30) / m_A129; + double tmp29 = 0.0; + tmp29 += m_A119 * V[30]; + tmp29 += m_A120 * V[31]; + V[29] = (RHS29 - tmp29) / m_A118; + double tmp28 = 0.0; + tmp28 += m_A112 * V[31]; + V[28] = (RHS28 - tmp28) / m_A111; + double tmp27 = 0.0; + tmp27 += m_A106 * V[29]; + tmp27 += m_A107 * V[30]; + V[27] = (RHS27 - tmp27) / m_A105; + double tmp26 = 0.0; + tmp26 += m_A98 * V[27]; + tmp26 += m_A99 * V[30]; + V[26] = (RHS26 - tmp26) / m_A97; + double tmp25 = 0.0; + tmp25 += m_A92 * V[27]; + tmp25 += m_A93 * V[29]; + V[25] = (RHS25 - tmp25) / m_A91; + double tmp24 = 0.0; + tmp24 += m_A85 * V[25]; + tmp24 += m_A86 * V[27]; + V[24] = (RHS24 - tmp24) / m_A84; + double tmp23 = 0.0; + tmp23 += m_A80 * V[25]; + tmp23 += m_A81 * V[29]; + V[23] = (RHS23 - tmp23) / m_A79; + double tmp22 = 0.0; + tmp22 += m_A74 * V[25]; + tmp22 += m_A75 * V[27]; + V[22] = (RHS22 - tmp22) / m_A73; + double tmp21 = 0.0; + tmp21 += m_A67 * V[31]; + V[21] = (RHS21 - tmp21) / m_A66; + double tmp20 = 0.0; + tmp20 += m_A64 * V[31]; + V[20] = (RHS20 - tmp20) / m_A63; + double tmp19 = 0.0; + tmp19 += m_A61 * V[28]; + V[19] = (RHS19 - tmp19) / m_A60; + double tmp18 = 0.0; + tmp18 += m_A59 * V[23]; + V[18] = (RHS18 - tmp18) / m_A58; + double tmp17 = 0.0; + tmp17 += m_A53 * V[26]; + tmp17 += m_A54 * V[27]; + tmp17 += m_A55 * V[30]; + V[17] = (RHS17 - tmp17) / m_A52; double tmp16 = 0.0; - tmp16 += m_A69 * V[17]; - V[16] = (RHS16 - tmp16) / m_A68; + tmp16 += m_A51 * V[26]; + V[16] = (RHS16 - tmp16) / m_A50; double tmp15 = 0.0; - tmp15 += m_A61 * V[16]; - tmp15 += m_A62 * V[17]; - V[15] = (RHS15 - tmp15) / m_A60; + tmp15 += m_A45 * V[22]; + tmp15 += m_A46 * V[25]; + tmp15 += m_A47 * V[27]; + V[15] = (RHS15 - tmp15) / m_A44; double tmp14 = 0.0; - tmp14 += m_A56 * V[15]; - V[14] = (RHS14 - tmp14) / m_A55; + tmp14 += m_A39 * V[28]; + V[14] = (RHS14 - tmp14) / m_A38; double tmp13 = 0.0; - tmp13 += m_A50 * V[16]; - V[13] = (RHS13 - tmp13) / m_A49; + tmp13 += m_A37 * V[28]; + V[13] = (RHS13 - tmp13) / m_A36; double tmp12 = 0.0; - tmp12 += m_A46 * V[14]; - V[12] = (RHS12 - tmp12) / m_A45; + tmp12 += m_A33 * V[23]; + tmp12 += m_A34 * V[25]; + tmp12 += m_A35 * V[29]; + V[12] = (RHS12 - tmp12) / m_A32; double tmp11 = 0.0; - tmp11 += m_A41 * V[13]; - tmp11 += m_A42 * V[16]; - V[11] = (RHS11 - tmp11) / m_A40; + tmp11 += m_A29 * V[22]; + tmp11 += m_A30 * V[25]; + tmp11 += m_A31 * V[27]; + V[11] = (RHS11 - tmp11) / m_A28; double tmp10 = 0.0; - tmp10 += m_A36 * V[12]; - tmp10 += m_A37 * V[14]; - V[10] = (RHS10 - tmp10) / m_A35; + tmp10 += m_A26 * V[11]; + tmp10 += m_A27 * V[27]; + V[10] = (RHS10 - tmp10) / m_A25; double tmp9 = 0.0; - tmp9 += m_A32 * V[17]; - V[9] = (RHS9 - tmp9) / m_A31; + tmp9 += m_A23 * V[18]; + tmp9 += m_A24 * V[23]; + V[9] = (RHS9 - tmp9) / m_A22; double tmp8 = 0.0; - tmp8 += m_A27 * V[9]; - tmp8 += m_A28 * V[17]; - V[8] = (RHS8 - tmp8) / m_A26; + tmp8 += m_A21 * V[21]; + V[8] = (RHS8 - tmp8) / m_A20; double tmp7 = 0.0; - tmp7 += m_A22 * V[15]; - tmp7 += m_A23 * V[16]; - V[7] = (RHS7 - tmp7) / m_A21; + tmp7 += m_A18 * V[16]; + tmp7 += m_A19 * V[26]; + V[7] = (RHS7 - tmp7) / m_A17; double tmp6 = 0.0; - tmp6 += m_A18 * V[11]; - tmp6 += m_A19 * V[13]; - tmp6 += m_A20 * V[16]; - V[6] = (RHS6 - tmp6) / m_A17; + tmp6 += m_A16 * V[18]; + V[6] = (RHS6 - tmp6) / m_A15; double tmp5 = 0.0; - tmp5 += m_A16 * V[11]; - V[5] = (RHS5 - tmp5) / m_A15; + tmp5 += m_A14 * V[20]; + V[5] = (RHS5 - tmp5) / m_A13; double tmp4 = 0.0; - tmp4 += m_A13 * V[14]; - tmp4 += m_A14 * V[15]; - V[4] = (RHS4 - tmp4) / m_A12; + tmp4 += m_A11 * V[11]; + tmp4 += m_A12 * V[22]; + V[4] = (RHS4 - tmp4) / m_A10; double tmp3 = 0.0; - tmp3 += m_A9 * V[10]; - tmp3 += m_A10 * V[12]; - tmp3 += m_A11 * V[14]; + tmp3 += m_A9 * V[16]; V[3] = (RHS3 - tmp3) / m_A8; double tmp2 = 0.0; - tmp2 += m_A7 * V[10]; - V[2] = (RHS2 - tmp2) / m_A6; - double tmp1 = 0.0; - tmp1 += m_A3 * V[8]; - tmp1 += m_A4 * V[9]; - tmp1 += m_A5 * V[17]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[8]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// warrior -static void nl_gcr_42a31ce5c187b308_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A4 += go[3]; - m_A3 += go[4]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - m_A7 += gt[5]; - m_A7 += gt[6]; - m_A7 += gt[7]; - m_A6 += go[5]; - m_A5 += go[6]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; - RHS2 -= go[7] * *cnV[7]; - m_A11 += gt[8]; - m_A9 += go[8]; - double RHS3 = Idr[8]; - const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A5; - m_A7 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A6; - m_A7 += m_A3 * f1_2; - m_A8 += m_A4 * f1_2; - RHS2 += f1_2 * RHS1; - const double f1_3 = -f1 * m_A9; - m_A10 += m_A3 * f1_3; - m_A11 += m_A4 * f1_3; - RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A7; - const double f2_3 = -f2 * m_A10; - m_A11 += m_A8 * f2_3; - RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A11; - double tmp2 = 0.0; - tmp2 += m_A8 * V[3]; - V[2] = (RHS2 - tmp2) / m_A7; + tmp2 += m_A5 * V[4]; + tmp2 += m_A6 * V[15]; + tmp2 += m_A7 * V[22]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; - tmp1 += m_A4 * V[3]; + tmp1 += m_A3 * V[22]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; + tmp0 += m_A1 * V[15]; V[0] = (RHS0 - tmp0) / m_A0; } -// 280zzzap -static void nl_gcr_42c57d523cac30d0_122_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// solarq +static void nl_gcr_34e910fc1896999f_76_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -4426,429 +4789,1062 @@ static void nl_gcr_42c57d523cac30d0_122_double_double(double * __restrict V, con double m_A73(0.0); double m_A74(0.0); double m_A75(0.0); - double m_A76(0.0); - double m_A77(0.0); - double m_A78(0.0); - double m_A79(0.0); - double m_A80(0.0); - double m_A81(0.0); - double m_A82(0.0); - double m_A83(0.0); - double m_A84(0.0); - double m_A85(0.0); - double m_A86(0.0); - double m_A87(0.0); - double m_A88(0.0); - double m_A89(0.0); - double m_A90(0.0); - double m_A91(0.0); - double m_A92(0.0); - double m_A93(0.0); - double m_A94(0.0); - double m_A95(0.0); - double m_A96(0.0); - double m_A97(0.0); - double m_A98(0.0); - double m_A99(0.0); - double m_A100(0.0); - double m_A101(0.0); - double m_A102(0.0); - double m_A103(0.0); - double m_A104(0.0); - double m_A105(0.0); - double m_A106(0.0); - double m_A107(0.0); - double m_A108(0.0); - double m_A109(0.0); - double m_A110(0.0); - double m_A111(0.0); - double m_A112(0.0); - double m_A113(0.0); - double m_A114(0.0); - double m_A115(0.0); - double m_A116(0.0); - double m_A117(0.0); - double m_A118(0.0); - double m_A119(0.0); - double m_A120(0.0); - double m_A121(0.0); m_A0 += gt[0]; m_A0 += gt[1]; + m_A0 += gt[2]; + m_A0 += gt[3]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 += Idr[3]; RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A2 += gt[3]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 -= go[3] * *cnV[3]; - m_A4 += gt[4]; - m_A4 += gt[5]; - m_A4 += gt[6]; + RHS0 -= go[2] * *cnV[2]; + RHS0 -= go[3] * *cnV[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; + m_A2 += gt[7]; + m_A2 += gt[8]; + m_A2 += gt[9]; + m_A2 += gt[10]; + m_A2 += gt[11]; m_A5 += go[4]; - double RHS2 = Idr[4]; - RHS2 += Idr[5]; - RHS2 += Idr[6]; - RHS2 -= go[5] * *cnV[5]; - RHS2 -= go[6] * *cnV[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; + m_A4 += go[5]; + m_A4 += go[6]; + m_A3 += go[7]; + m_A3 += go[8]; + double RHS1 = Idr[4]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; + RHS1 += Idr[8]; + RHS1 += Idr[9]; + RHS1 += Idr[10]; + RHS1 += Idr[11]; + RHS1 -= go[9] * *cnV[9]; + RHS1 -= go[10] * *cnV[10]; + RHS1 -= go[11] * *cnV[11]; m_A6 += gt[12]; m_A6 += gt[13]; - m_A7 += go[7]; - double RHS3 = Idr[7]; - RHS3 += Idr[8]; - RHS3 += Idr[9]; - RHS3 += Idr[10]; - RHS3 += Idr[11]; - RHS3 += Idr[12]; - RHS3 += Idr[13]; - RHS3 -= go[8] * *cnV[8]; - RHS3 -= go[9] * *cnV[9]; - RHS3 -= go[10] * *cnV[10]; - RHS3 -= go[11] * *cnV[11]; - RHS3 -= go[12] * *cnV[12]; - RHS3 -= go[13] * *cnV[13]; - m_A8 += gt[14]; - m_A8 += gt[15]; - m_A9 += go[14]; - double RHS4 = Idr[14]; - RHS4 += Idr[15]; - RHS4 -= go[15] * *cnV[15]; - m_A10 += gt[16]; - m_A10 += gt[17]; - m_A10 += gt[18]; - m_A10 += gt[19]; - m_A12 += go[16]; - m_A13 += go[17]; - m_A11 += go[18]; - double RHS5 = Idr[16]; - RHS5 += Idr[17]; - RHS5 += Idr[18]; - RHS5 += Idr[19]; - RHS5 -= go[19] * *cnV[19]; - m_A14 += gt[20]; - m_A14 += gt[21]; - m_A14 += gt[22]; - m_A14 += gt[23]; - m_A14 += gt[24]; - m_A14 += gt[25]; - m_A14 += gt[26]; - m_A15 += go[20]; - double RHS6 = Idr[20]; - RHS6 += Idr[21]; - RHS6 += Idr[22]; - RHS6 += Idr[23]; - RHS6 += Idr[24]; - RHS6 += Idr[25]; - RHS6 += Idr[26]; - RHS6 -= go[21] * *cnV[21]; - RHS6 -= go[22] * *cnV[22]; - RHS6 -= go[23] * *cnV[23]; - RHS6 -= go[24] * *cnV[24]; - RHS6 -= go[25] * *cnV[25]; - RHS6 -= go[26] * *cnV[26]; - m_A16 += gt[27]; - m_A16 += gt[28]; - m_A18 += go[27]; - m_A17 += go[28]; - double RHS7 = Idr[27]; - RHS7 += Idr[28]; - m_A19 += gt[29]; - m_A19 += gt[30]; - m_A19 += gt[31]; - m_A20 += go[29]; - double RHS8 = Idr[29]; - RHS8 += Idr[30]; - RHS8 += Idr[31]; - RHS8 -= go[30] * *cnV[30]; - RHS8 -= go[31] * *cnV[31]; - m_A21 += gt[32]; - m_A21 += gt[33]; - m_A22 += go[32]; - double RHS9 = Idr[32]; - RHS9 += Idr[33]; - RHS9 -= go[33] * *cnV[33]; - m_A23 += gt[34]; - m_A23 += gt[35]; - m_A23 += gt[36]; - m_A24 += go[34]; - m_A25 += go[35]; - m_A25 += go[36]; - double RHS10 = Idr[34]; - RHS10 += Idr[35]; - RHS10 += Idr[36]; - m_A26 += gt[37]; - m_A26 += gt[38]; - m_A26 += gt[39]; - m_A26 += gt[40]; - m_A26 += gt[41]; + m_A6 += gt[14]; + m_A6 += gt[15]; + m_A7 += go[12]; + double RHS2 = Idr[12]; + RHS2 += Idr[13]; + RHS2 += Idr[14]; + RHS2 += Idr[15]; + RHS2 -= go[13] * *cnV[13]; + RHS2 -= go[14] * *cnV[14]; + RHS2 -= go[15] * *cnV[15]; + m_A8 += gt[16]; + m_A8 += gt[17]; + m_A8 += gt[18]; + m_A8 += gt[19]; + m_A8 += gt[20]; + m_A8 += gt[21]; + m_A8 += gt[22]; + m_A8 += gt[23]; + m_A11 += go[16]; + m_A10 += go[17]; + m_A10 += go[18]; + m_A9 += go[19]; + m_A9 += go[20]; + double RHS3 = Idr[16]; + RHS3 += Idr[17]; + RHS3 += Idr[18]; + RHS3 += Idr[19]; + RHS3 += Idr[20]; + RHS3 += Idr[21]; + RHS3 += Idr[22]; + RHS3 += Idr[23]; + RHS3 -= go[21] * *cnV[21]; + RHS3 -= go[22] * *cnV[22]; + RHS3 -= go[23] * *cnV[23]; + m_A12 += gt[24]; + m_A12 += gt[25]; + m_A12 += gt[26]; + m_A13 += go[24]; + m_A14 += go[25]; + double RHS4 = Idr[24]; + RHS4 += Idr[25]; + RHS4 += Idr[26]; + RHS4 -= go[26] * *cnV[26]; + m_A15 += gt[27]; + m_A15 += gt[28]; + m_A15 += gt[29]; + m_A15 += gt[30]; + m_A16 += go[27]; + double RHS5 = Idr[27]; + RHS5 += Idr[28]; + RHS5 += Idr[29]; + RHS5 += Idr[30]; + RHS5 -= go[28] * *cnV[28]; + RHS5 -= go[29] * *cnV[29]; + RHS5 -= go[30] * *cnV[30]; + m_A17 += gt[31]; + m_A17 += gt[32]; + m_A17 += gt[33]; + m_A17 += gt[34]; + m_A17 += gt[35]; + m_A17 += gt[36]; + m_A17 += gt[37]; + m_A17 += gt[38]; + m_A20 += go[31]; + m_A19 += go[32]; + m_A19 += go[33]; + m_A18 += go[34]; + m_A18 += go[35]; + double RHS6 = Idr[31]; + RHS6 += Idr[32]; + RHS6 += Idr[33]; + RHS6 += Idr[34]; + RHS6 += Idr[35]; + RHS6 += Idr[36]; + RHS6 += Idr[37]; + RHS6 += Idr[38]; + RHS6 -= go[36] * *cnV[36]; + RHS6 -= go[37] * *cnV[37]; + RHS6 -= go[38] * *cnV[38]; + m_A21 += gt[39]; + m_A21 += gt[40]; + m_A21 += gt[41]; + m_A23 += go[39]; + m_A22 += go[40]; + double RHS7 = Idr[39]; + RHS7 += Idr[40]; + RHS7 += Idr[41]; + RHS7 -= go[41] * *cnV[41]; m_A26 += gt[42]; m_A26 += gt[43]; - m_A27 += go[37]; - double RHS11 = Idr[37]; - RHS11 += Idr[38]; - RHS11 += Idr[39]; - RHS11 += Idr[40]; - RHS11 += Idr[41]; - RHS11 += Idr[42]; - RHS11 += Idr[43]; - RHS11 -= go[38] * *cnV[38]; - RHS11 -= go[39] * *cnV[39]; - RHS11 -= go[40] * *cnV[40]; - RHS11 -= go[41] * *cnV[41]; - RHS11 -= go[42] * *cnV[42]; - RHS11 -= go[43] * *cnV[43]; - m_A28 += gt[44]; - m_A28 += gt[45]; - m_A28 += gt[46]; - m_A29 += go[44]; - double RHS12 = Idr[44]; - RHS12 += Idr[45]; - RHS12 += Idr[46]; - RHS12 -= go[45] * *cnV[45]; - RHS12 -= go[46] * *cnV[46]; - m_A30 += gt[47]; - m_A30 += gt[48]; - m_A30 += gt[49]; - m_A30 += gt[50]; - m_A32 += go[47]; - m_A31 += go[48]; - m_A33 += go[49]; - double RHS13 = Idr[47]; - RHS13 += Idr[48]; - RHS13 += Idr[49]; - RHS13 += Idr[50]; - RHS13 -= go[50] * *cnV[50]; - m_A35 += gt[51]; - m_A35 += gt[52]; - m_A34 += go[51]; - double RHS14 = Idr[51]; - RHS14 += Idr[52]; - RHS14 -= go[52] * *cnV[52]; - m_A37 += gt[53]; - m_A37 += gt[54]; - m_A37 += gt[55]; - m_A37 += gt[56]; - m_A36 += go[53]; - m_A38 += go[54]; - double RHS15 = Idr[53]; - RHS15 += Idr[54]; - RHS15 += Idr[55]; - RHS15 += Idr[56]; - RHS15 -= go[55] * *cnV[55]; - RHS15 -= go[56] * *cnV[56]; - m_A40 += gt[57]; - m_A40 += gt[58]; - m_A39 += go[57]; - double RHS16 = Idr[57]; - RHS16 += Idr[58]; - RHS16 -= go[58] * *cnV[58]; - m_A43 += gt[59]; - m_A43 += gt[60]; - m_A41 += go[59]; - m_A42 += go[60]; - double RHS17 = Idr[59]; - RHS17 += Idr[60]; - m_A47 += gt[61]; - m_A47 += gt[62]; - m_A47 += gt[63]; - m_A47 += gt[64]; - m_A47 += gt[65]; - m_A46 += go[61]; - m_A49 += go[62]; - m_A50 += go[63]; - double RHS18 = Idr[61]; - RHS18 += Idr[62]; - RHS18 += Idr[63]; - RHS18 += Idr[64]; - RHS18 += Idr[65]; - RHS18 -= go[64] * *cnV[64]; - RHS18 -= go[65] * *cnV[65]; - m_A52 += gt[66]; - m_A52 += gt[67]; - m_A51 += go[66]; - double RHS19 = Idr[66]; - RHS19 += Idr[67]; - RHS19 -= go[67] * *cnV[67]; - m_A55 += gt[68]; - m_A55 += gt[69]; - m_A54 += go[68]; - m_A53 += go[69]; - double RHS20 = Idr[68]; - RHS20 += Idr[69]; - m_A60 += gt[70]; - m_A60 += gt[71]; - m_A60 += gt[72]; - m_A60 += gt[73]; - m_A59 += go[70]; - m_A61 += go[71]; - double RHS21 = Idr[70]; - RHS21 += Idr[71]; - RHS21 += Idr[72]; - RHS21 += Idr[73]; - RHS21 -= go[72] * *cnV[72]; - RHS21 -= go[73] * *cnV[73]; - m_A69 += gt[74]; - m_A69 += gt[75]; - m_A69 += gt[76]; - m_A69 += gt[77]; - m_A69 += gt[78]; - m_A69 += gt[79]; - m_A69 += gt[80]; - m_A69 += gt[81]; - m_A69 += gt[82]; - m_A62 += go[74]; - m_A65 += go[75]; - m_A65 += go[76]; - m_A64 += go[77]; - m_A63 += go[78]; - m_A71 += go[79]; - double RHS22 = Idr[74]; - RHS22 += Idr[75]; - RHS22 += Idr[76]; - RHS22 += Idr[77]; - RHS22 += Idr[78]; - RHS22 += Idr[79]; - RHS22 += Idr[80]; - RHS22 += Idr[81]; - RHS22 += Idr[82]; - RHS22 -= go[80] * *cnV[80]; - RHS22 -= go[81] * *cnV[81]; - RHS22 -= go[82] * *cnV[82]; - m_A75 += gt[83]; - m_A75 += gt[84]; - m_A75 += gt[85]; - m_A75 += gt[86]; - m_A74 += go[83]; - m_A76 += go[84]; - double RHS23 = Idr[83]; - RHS23 += Idr[84]; - RHS23 += Idr[85]; - RHS23 += Idr[86]; - RHS23 -= go[85] * *cnV[85]; - RHS23 -= go[86] * *cnV[86]; - m_A82 += gt[87]; - m_A82 += gt[88]; - m_A82 += gt[89]; - m_A82 += gt[90]; - m_A82 += gt[91]; - m_A82 += gt[92]; - m_A77 += go[87]; - m_A78 += go[88]; - m_A84 += go[89]; - double RHS24 = Idr[87]; - RHS24 += Idr[88]; - RHS24 += Idr[89]; - RHS24 += Idr[90]; - RHS24 += Idr[91]; - RHS24 += Idr[92]; - RHS24 -= go[90] * *cnV[90]; - RHS24 -= go[91] * *cnV[91]; - RHS24 -= go[92] * *cnV[92]; - m_A93 += gt[93]; - m_A93 += gt[94]; - m_A93 += gt[95]; - m_A93 += gt[96]; - m_A93 += gt[97]; - m_A91 += go[93]; - m_A89 += go[94]; - m_A88 += go[95]; - m_A87 += go[96]; - m_A86 += go[97]; - double RHS25 = Idr[93]; - RHS25 += Idr[94]; - RHS25 += Idr[95]; - RHS25 += Idr[96]; - RHS25 += Idr[97]; - m_A104 += gt[98]; - m_A104 += gt[99]; - m_A104 += gt[100]; - m_A104 += gt[101]; - m_A104 += gt[102]; - m_A102 += go[98]; - m_A99 += go[99]; - m_A98 += go[100]; - m_A97 += go[101]; - m_A96 += go[102]; - double RHS26 = Idr[98]; - RHS26 += Idr[99]; - RHS26 += Idr[100]; - RHS26 += Idr[101]; - RHS26 += Idr[102]; - m_A113 += gt[103]; - m_A113 += gt[104]; - m_A113 += gt[105]; - m_A113 += gt[106]; - m_A107 += go[103]; - m_A106 += go[104]; - m_A114 += go[105]; - double RHS27 = Idr[103]; - RHS27 += Idr[104]; - RHS27 += Idr[105]; - RHS27 += Idr[106]; - RHS27 -= go[106] * *cnV[106]; - m_A121 += gt[107]; - m_A121 += gt[108]; - m_A121 += gt[109]; - m_A121 += gt[110]; - m_A121 += gt[111]; - m_A118 += go[107]; - m_A117 += go[108]; - m_A120 += go[109]; - m_A116 += go[110]; - m_A115 += go[111]; - double RHS28 = Idr[107]; - RHS28 += Idr[108]; - RHS28 += Idr[109]; - RHS28 += Idr[110]; - RHS28 += Idr[111]; - const double f0 = 1.0 / m_A0; - const double f0_17 = -f0 * m_A41; - m_A43 += m_A1 * f0_17; - RHS17 += f0_17 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_14 = -f1 * m_A34; - m_A35 += m_A3 * f1_14; - RHS14 += f1_14 * RHS1; - const double f1_25 = -f1 * m_A86; - m_A89 += m_A3 * f1_25; - RHS25 += f1_25 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_15 = -f2 * m_A36; - m_A38 += m_A5 * f2_15; - RHS15 += f2_15 * RHS2; - const double f2_25 = -f2 * m_A87; - m_A93 += m_A5 * f2_25; - RHS25 += f2_25 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_22 = -f3 * m_A62; - m_A66 += m_A7 * f3_22; - RHS22 += f3_22 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_16 = -f4 * m_A39; - m_A40 += m_A9 * f4_16; - RHS16 += f4_16 * RHS4; - const double f4_28 = -f4 * m_A115; - m_A117 += m_A9 * f4_28; - RHS28 += f4_28 * RHS4; - const double f5 = 1.0 / m_A10; - const double f5_17 = -f5 * m_A42; - m_A43 += m_A11 * f5_17; - m_A44 += m_A12 * f5_17; - m_A45 += m_A13 * f5_17; - RHS17 += f5_17 * RHS5; - const double f5_22 = -f5 * m_A63; - m_A67 += m_A11 * f5_22; - m_A69 += m_A12 * f5_22; - m_A71 += m_A13 * f5_22; - RHS22 += f5_22 * RHS5; - const double f5_25 = -f5 * m_A88; + m_A26 += gt[44]; + m_A26 += gt[45]; + m_A26 += gt[46]; + m_A26 += gt[47]; + m_A25 += go[42]; + m_A25 += go[43]; + m_A24 += go[44]; + double RHS8 = Idr[42]; + RHS8 += Idr[43]; + RHS8 += Idr[44]; + RHS8 += Idr[45]; + RHS8 += Idr[46]; + RHS8 += Idr[47]; + RHS8 -= go[45] * *cnV[45]; + RHS8 -= go[46] * *cnV[46]; + RHS8 -= go[47] * *cnV[47]; + m_A31 += gt[48]; + m_A31 += gt[49]; + m_A31 += gt[50]; + m_A31 += gt[51]; + m_A31 += gt[52]; + m_A32 += go[48]; + m_A32 += go[49]; + m_A29 += go[50]; + m_A29 += go[51]; + double RHS9 = Idr[48]; + RHS9 += Idr[49]; + RHS9 += Idr[50]; + RHS9 += Idr[51]; + RHS9 += Idr[52]; + RHS9 -= go[52] * *cnV[52]; + m_A35 += gt[53]; + m_A35 += gt[54]; + m_A35 += gt[55]; + m_A35 += gt[56]; + m_A35 += gt[57]; + m_A35 += gt[58]; + m_A34 += go[53]; + m_A34 += go[54]; + m_A33 += go[55]; + double RHS10 = Idr[53]; + RHS10 += Idr[54]; + RHS10 += Idr[55]; + RHS10 += Idr[56]; + RHS10 += Idr[57]; + RHS10 += Idr[58]; + RHS10 -= go[56] * *cnV[56]; + RHS10 -= go[57] * *cnV[57]; + RHS10 -= go[58] * *cnV[58]; + m_A40 += gt[59]; + m_A40 += gt[60]; + m_A40 += gt[61]; + m_A40 += gt[62]; + m_A40 += gt[63]; + m_A40 += gt[64]; + m_A39 += go[59]; + m_A39 += go[60]; + m_A38 += go[61]; + double RHS11 = Idr[59]; + RHS11 += Idr[60]; + RHS11 += Idr[61]; + RHS11 += Idr[62]; + RHS11 += Idr[63]; + RHS11 += Idr[64]; + RHS11 -= go[62] * *cnV[62]; + RHS11 -= go[63] * *cnV[63]; + RHS11 -= go[64] * *cnV[64]; + m_A45 += gt[65]; + m_A45 += gt[66]; + m_A45 += gt[67]; + m_A45 += gt[68]; + m_A45 += gt[69]; + m_A46 += go[65]; + m_A46 += go[66]; + m_A43 += go[67]; + m_A43 += go[68]; + double RHS12 = Idr[65]; + RHS12 += Idr[66]; + RHS12 += Idr[67]; + RHS12 += Idr[68]; + RHS12 += Idr[69]; + RHS12 -= go[69] * *cnV[69]; + m_A49 += gt[70]; + m_A49 += gt[71]; + m_A49 += gt[72]; + m_A49 += gt[73]; + m_A49 += gt[74]; + m_A50 += go[70]; + m_A50 += go[71]; + m_A47 += go[72]; + m_A47 += go[73]; + double RHS13 = Idr[70]; + RHS13 += Idr[71]; + RHS13 += Idr[72]; + RHS13 += Idr[73]; + RHS13 += Idr[74]; + RHS13 -= go[74] * *cnV[74]; + m_A55 += gt[75]; + m_A55 += gt[76]; + m_A55 += gt[77]; + m_A55 += gt[78]; + m_A52 += go[75]; + m_A54 += go[76]; + m_A54 += go[77]; + m_A51 += go[78]; + double RHS14 = Idr[75]; + RHS14 += Idr[76]; + RHS14 += Idr[77]; + RHS14 += Idr[78]; + m_A60 += gt[79]; + m_A60 += gt[80]; + m_A60 += gt[81]; + m_A60 += gt[82]; + m_A58 += go[79]; + m_A57 += go[80]; + m_A62 += go[81]; + double RHS15 = Idr[79]; + RHS15 += Idr[80]; + RHS15 += Idr[81]; + RHS15 += Idr[82]; + RHS15 -= go[82] * *cnV[82]; + m_A68 += gt[83]; + m_A68 += gt[84]; + m_A68 += gt[85]; + m_A68 += gt[86]; + m_A64 += go[83]; + m_A66 += go[84]; + m_A66 += go[85]; + m_A63 += go[86]; + double RHS16 = Idr[83]; + RHS16 += Idr[84]; + RHS16 += Idr[85]; + RHS16 += Idr[86]; + m_A75 += gt[87]; + m_A75 += gt[88]; + m_A75 += gt[89]; + m_A75 += gt[90]; + m_A75 += gt[91]; + m_A72 += go[87]; + m_A72 += go[88]; + m_A70 += go[89]; + m_A73 += go[90]; + double RHS17 = Idr[87]; + RHS17 += Idr[88]; + RHS17 += Idr[89]; + RHS17 += Idr[90]; + RHS17 += Idr[91]; + RHS17 -= go[91] * *cnV[91]; + const double f0 = 1.0 / m_A0; + const double f0_8 = -f0 * m_A24; + m_A26 += m_A1 * f0_8; + RHS8 += f0_8 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_8 = -f1 * m_A25; + m_A26 += m_A3 * f1_8; + m_A27 += m_A4 * f1_8; + m_A28 += m_A5 * f1_8; + RHS8 += f1_8 * RHS1; + const double f1_9 = -f1 * m_A29; + m_A30 += m_A3 * f1_9; + m_A31 += m_A4 * f1_9; + m_A32 += m_A5 * f1_9; + RHS9 += f1_9 * RHS1; + const double f1_17 = -f1 * m_A70; + m_A71 += m_A3 * f1_17; + m_A72 += m_A4 * f1_17; + m_A75 += m_A5 * f1_17; + RHS17 += f1_17 * RHS1; + const double f2 = 1.0 / m_A6; + const double f2_10 = -f2 * m_A33; + m_A35 += m_A7 * f2_10; + RHS10 += f2_10 * RHS2; + const double f3 = 1.0 / m_A8; + const double f3_10 = -f3 * m_A34; + m_A35 += m_A9 * f3_10; + m_A36 += m_A10 * f3_10; + m_A37 += m_A11 * f3_10; + RHS10 += f3_10 * RHS3; + const double f3_12 = -f3 * m_A43; + m_A44 += m_A9 * f3_12; + m_A45 += m_A10 * f3_12; + m_A46 += m_A11 * f3_12; + RHS12 += f3_12 * RHS3; + const double f3_14 = -f3 * m_A51; + m_A53 += m_A9 * f3_14; + m_A54 += m_A10 * f3_14; + m_A55 += m_A11 * f3_14; + RHS14 += f3_14 * RHS3; + const double f4 = 1.0 / m_A12; + const double f4_14 = -f4 * m_A52; + m_A55 += m_A13 * f4_14; + m_A56 += m_A14 * f4_14; + RHS14 += f4_14 * RHS4; + const double f4_15 = -f4 * m_A57; + m_A59 += m_A13 * f4_15; + m_A60 += m_A14 * f4_15; + RHS15 += f4_15 * RHS4; + const double f5 = 1.0 / m_A15; + const double f5_11 = -f5 * m_A38; + m_A40 += m_A16 * f5_11; + RHS11 += f5_11 * RHS5; + const double f6 = 1.0 / m_A17; + const double f6_11 = -f6 * m_A39; + m_A40 += m_A18 * f6_11; + m_A41 += m_A19 * f6_11; + m_A42 += m_A20 * f6_11; + RHS11 += f6_11 * RHS6; + const double f6_13 = -f6 * m_A47; + m_A48 += m_A18 * f6_13; + m_A49 += m_A19 * f6_13; + m_A50 += m_A20 * f6_13; + RHS13 += f6_13 * RHS6; + const double f6_16 = -f6 * m_A63; + m_A65 += m_A18 * f6_16; + m_A66 += m_A19 * f6_16; + m_A68 += m_A20 * f6_16; + RHS16 += f6_16 * RHS6; + const double f7 = 1.0 / m_A21; + const double f7_15 = -f7 * m_A58; + m_A60 += m_A22 * f7_15; + m_A61 += m_A23 * f7_15; + RHS15 += f7_15 * RHS7; + const double f7_16 = -f7 * m_A64; + m_A67 += m_A22 * f7_16; + m_A68 += m_A23 * f7_16; + RHS16 += f7_16 * RHS7; + const double f8 = 1.0 / m_A26; + const double f8_9 = -f8 * m_A30; + m_A31 += m_A27 * f8_9; + m_A32 += m_A28 * f8_9; + RHS9 += f8_9 * RHS8; + const double f8_17 = -f8 * m_A71; + m_A72 += m_A27 * f8_17; + m_A75 += m_A28 * f8_17; + RHS17 += f8_17 * RHS8; + const double f9 = 1.0 / m_A31; + const double f9_17 = -f9 * m_A72; + m_A75 += m_A32 * f9_17; + RHS17 += f9_17 * RHS9; + const double f10 = 1.0 / m_A35; + const double f10_12 = -f10 * m_A44; + m_A45 += m_A36 * f10_12; + m_A46 += m_A37 * f10_12; + RHS12 += f10_12 * RHS10; + const double f10_14 = -f10 * m_A53; + m_A54 += m_A36 * f10_14; + m_A55 += m_A37 * f10_14; + RHS14 += f10_14 * RHS10; + const double f11 = 1.0 / m_A40; + const double f11_13 = -f11 * m_A48; + m_A49 += m_A41 * f11_13; + m_A50 += m_A42 * f11_13; + RHS13 += f11_13 * RHS11; + const double f11_16 = -f11 * m_A65; + m_A66 += m_A41 * f11_16; + m_A68 += m_A42 * f11_16; + RHS16 += f11_16 * RHS11; + const double f12 = 1.0 / m_A45; + const double f12_14 = -f12 * m_A54; + m_A55 += m_A46 * f12_14; + RHS14 += f12_14 * RHS12; + const double f13 = 1.0 / m_A49; + const double f13_16 = -f13 * m_A66; + m_A68 += m_A50 * f13_16; + RHS16 += f13_16 * RHS13; + const double f14 = 1.0 / m_A55; + const double f14_15 = -f14 * m_A59; + m_A60 += m_A56 * f14_15; + RHS15 += f14_15 * RHS14; + const double f15 = 1.0 / m_A60; + const double f15_16 = -f15 * m_A67; + m_A68 += m_A61 * f15_16; + m_A69 += m_A62 * f15_16; + RHS16 += f15_16 * RHS15; + const double f15_17 = -f15 * m_A73; + m_A74 += m_A61 * f15_17; + m_A75 += m_A62 * f15_17; + RHS17 += f15_17 * RHS15; + const double f16 = 1.0 / m_A68; + const double f16_17 = -f16 * m_A74; + m_A75 += m_A69 * f16_17; + RHS17 += f16_17 * RHS16; + V[17] = RHS17 / m_A75; + double tmp16 = 0.0; + tmp16 += m_A69 * V[17]; + V[16] = (RHS16 - tmp16) / m_A68; + double tmp15 = 0.0; + tmp15 += m_A61 * V[16]; + tmp15 += m_A62 * V[17]; + V[15] = (RHS15 - tmp15) / m_A60; + double tmp14 = 0.0; + tmp14 += m_A56 * V[15]; + V[14] = (RHS14 - tmp14) / m_A55; + double tmp13 = 0.0; + tmp13 += m_A50 * V[16]; + V[13] = (RHS13 - tmp13) / m_A49; + double tmp12 = 0.0; + tmp12 += m_A46 * V[14]; + V[12] = (RHS12 - tmp12) / m_A45; + double tmp11 = 0.0; + tmp11 += m_A41 * V[13]; + tmp11 += m_A42 * V[16]; + V[11] = (RHS11 - tmp11) / m_A40; + double tmp10 = 0.0; + tmp10 += m_A36 * V[12]; + tmp10 += m_A37 * V[14]; + V[10] = (RHS10 - tmp10) / m_A35; + double tmp9 = 0.0; + tmp9 += m_A32 * V[17]; + V[9] = (RHS9 - tmp9) / m_A31; + double tmp8 = 0.0; + tmp8 += m_A27 * V[9]; + tmp8 += m_A28 * V[17]; + V[8] = (RHS8 - tmp8) / m_A26; + double tmp7 = 0.0; + tmp7 += m_A22 * V[15]; + tmp7 += m_A23 * V[16]; + V[7] = (RHS7 - tmp7) / m_A21; + double tmp6 = 0.0; + tmp6 += m_A18 * V[11]; + tmp6 += m_A19 * V[13]; + tmp6 += m_A20 * V[16]; + V[6] = (RHS6 - tmp6) / m_A17; + double tmp5 = 0.0; + tmp5 += m_A16 * V[11]; + V[5] = (RHS5 - tmp5) / m_A15; + double tmp4 = 0.0; + tmp4 += m_A13 * V[14]; + tmp4 += m_A14 * V[15]; + V[4] = (RHS4 - tmp4) / m_A12; + double tmp3 = 0.0; + tmp3 += m_A9 * V[10]; + tmp3 += m_A10 * V[12]; + tmp3 += m_A11 * V[14]; + V[3] = (RHS3 - tmp3) / m_A8; + double tmp2 = 0.0; + tmp2 += m_A7 * V[10]; + V[2] = (RHS2 - tmp2) / m_A6; + double tmp1 = 0.0; + tmp1 += m_A3 * V[8]; + tmp1 += m_A4 * V[9]; + tmp1 += m_A5 * V[17]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[8]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// warrior +static void nl_gcr_42a31ce5c187b308_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A4 += go[3]; + m_A3 += go[4]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + m_A7 += gt[5]; + m_A7 += gt[6]; + m_A7 += gt[7]; + m_A6 += go[5]; + m_A5 += go[6]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 -= go[7] * *cnV[7]; + m_A11 += gt[8]; + m_A9 += go[8]; + double RHS3 = Idr[8]; + const double f0 = 1.0 / m_A0; + const double f0_2 = -f0 * m_A5; + m_A7 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_2 = -f1 * m_A6; + m_A7 += m_A3 * f1_2; + m_A8 += m_A4 * f1_2; + RHS2 += f1_2 * RHS1; + const double f1_3 = -f1 * m_A9; + m_A10 += m_A3 * f1_3; + m_A11 += m_A4 * f1_3; + RHS3 += f1_3 * RHS1; + const double f2 = 1.0 / m_A7; + const double f2_3 = -f2 * m_A10; + m_A11 += m_A8 * f2_3; + RHS3 += f2_3 * RHS2; + V[3] = RHS3 / m_A11; + double tmp2 = 0.0; + tmp2 += m_A8 * V[3]; + V[2] = (RHS2 - tmp2) / m_A7; + double tmp1 = 0.0; + tmp1 += m_A3 * V[2]; + tmp1 += m_A4 * V[3]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[2]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// 280zzzap +static void nl_gcr_42c57d523cac30d0_122_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + double m_A49(0.0); + double m_A50(0.0); + double m_A51(0.0); + double m_A52(0.0); + double m_A53(0.0); + double m_A54(0.0); + double m_A55(0.0); + double m_A56(0.0); + double m_A57(0.0); + double m_A58(0.0); + double m_A59(0.0); + double m_A60(0.0); + double m_A61(0.0); + double m_A62(0.0); + double m_A63(0.0); + double m_A64(0.0); + double m_A65(0.0); + double m_A66(0.0); + double m_A67(0.0); + double m_A68(0.0); + double m_A69(0.0); + double m_A70(0.0); + double m_A71(0.0); + double m_A72(0.0); + double m_A73(0.0); + double m_A74(0.0); + double m_A75(0.0); + double m_A76(0.0); + double m_A77(0.0); + double m_A78(0.0); + double m_A79(0.0); + double m_A80(0.0); + double m_A81(0.0); + double m_A82(0.0); + double m_A83(0.0); + double m_A84(0.0); + double m_A85(0.0); + double m_A86(0.0); + double m_A87(0.0); + double m_A88(0.0); + double m_A89(0.0); + double m_A90(0.0); + double m_A91(0.0); + double m_A92(0.0); + double m_A93(0.0); + double m_A94(0.0); + double m_A95(0.0); + double m_A96(0.0); + double m_A97(0.0); + double m_A98(0.0); + double m_A99(0.0); + double m_A100(0.0); + double m_A101(0.0); + double m_A102(0.0); + double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); + double m_A111(0.0); + double m_A112(0.0); + double m_A113(0.0); + double m_A114(0.0); + double m_A115(0.0); + double m_A116(0.0); + double m_A117(0.0); + double m_A118(0.0); + double m_A119(0.0); + double m_A120(0.0); + double m_A121(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 -= go[1] * *cnV[1]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A3 += go[2]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 -= go[3] * *cnV[3]; + m_A4 += gt[4]; + m_A4 += gt[5]; + m_A4 += gt[6]; + m_A5 += go[4]; + double RHS2 = Idr[4]; + RHS2 += Idr[5]; + RHS2 += Idr[6]; + RHS2 -= go[5] * *cnV[5]; + RHS2 -= go[6] * *cnV[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A6 += gt[13]; + m_A7 += go[7]; + double RHS3 = Idr[7]; + RHS3 += Idr[8]; + RHS3 += Idr[9]; + RHS3 += Idr[10]; + RHS3 += Idr[11]; + RHS3 += Idr[12]; + RHS3 += Idr[13]; + RHS3 -= go[8] * *cnV[8]; + RHS3 -= go[9] * *cnV[9]; + RHS3 -= go[10] * *cnV[10]; + RHS3 -= go[11] * *cnV[11]; + RHS3 -= go[12] * *cnV[12]; + RHS3 -= go[13] * *cnV[13]; + m_A8 += gt[14]; + m_A8 += gt[15]; + m_A9 += go[14]; + double RHS4 = Idr[14]; + RHS4 += Idr[15]; + RHS4 -= go[15] * *cnV[15]; + m_A10 += gt[16]; + m_A10 += gt[17]; + m_A10 += gt[18]; + m_A10 += gt[19]; + m_A12 += go[16]; + m_A13 += go[17]; + m_A11 += go[18]; + double RHS5 = Idr[16]; + RHS5 += Idr[17]; + RHS5 += Idr[18]; + RHS5 += Idr[19]; + RHS5 -= go[19] * *cnV[19]; + m_A14 += gt[20]; + m_A14 += gt[21]; + m_A14 += gt[22]; + m_A14 += gt[23]; + m_A14 += gt[24]; + m_A14 += gt[25]; + m_A14 += gt[26]; + m_A15 += go[20]; + double RHS6 = Idr[20]; + RHS6 += Idr[21]; + RHS6 += Idr[22]; + RHS6 += Idr[23]; + RHS6 += Idr[24]; + RHS6 += Idr[25]; + RHS6 += Idr[26]; + RHS6 -= go[21] * *cnV[21]; + RHS6 -= go[22] * *cnV[22]; + RHS6 -= go[23] * *cnV[23]; + RHS6 -= go[24] * *cnV[24]; + RHS6 -= go[25] * *cnV[25]; + RHS6 -= go[26] * *cnV[26]; + m_A16 += gt[27]; + m_A16 += gt[28]; + m_A18 += go[27]; + m_A17 += go[28]; + double RHS7 = Idr[27]; + RHS7 += Idr[28]; + m_A19 += gt[29]; + m_A19 += gt[30]; + m_A19 += gt[31]; + m_A20 += go[29]; + double RHS8 = Idr[29]; + RHS8 += Idr[30]; + RHS8 += Idr[31]; + RHS8 -= go[30] * *cnV[30]; + RHS8 -= go[31] * *cnV[31]; + m_A21 += gt[32]; + m_A21 += gt[33]; + m_A22 += go[32]; + double RHS9 = Idr[32]; + RHS9 += Idr[33]; + RHS9 -= go[33] * *cnV[33]; + m_A23 += gt[34]; + m_A23 += gt[35]; + m_A23 += gt[36]; + m_A24 += go[34]; + m_A25 += go[35]; + m_A25 += go[36]; + double RHS10 = Idr[34]; + RHS10 += Idr[35]; + RHS10 += Idr[36]; + m_A26 += gt[37]; + m_A26 += gt[38]; + m_A26 += gt[39]; + m_A26 += gt[40]; + m_A26 += gt[41]; + m_A26 += gt[42]; + m_A26 += gt[43]; + m_A27 += go[37]; + double RHS11 = Idr[37]; + RHS11 += Idr[38]; + RHS11 += Idr[39]; + RHS11 += Idr[40]; + RHS11 += Idr[41]; + RHS11 += Idr[42]; + RHS11 += Idr[43]; + RHS11 -= go[38] * *cnV[38]; + RHS11 -= go[39] * *cnV[39]; + RHS11 -= go[40] * *cnV[40]; + RHS11 -= go[41] * *cnV[41]; + RHS11 -= go[42] * *cnV[42]; + RHS11 -= go[43] * *cnV[43]; + m_A28 += gt[44]; + m_A28 += gt[45]; + m_A28 += gt[46]; + m_A29 += go[44]; + double RHS12 = Idr[44]; + RHS12 += Idr[45]; + RHS12 += Idr[46]; + RHS12 -= go[45] * *cnV[45]; + RHS12 -= go[46] * *cnV[46]; + m_A30 += gt[47]; + m_A30 += gt[48]; + m_A30 += gt[49]; + m_A30 += gt[50]; + m_A32 += go[47]; + m_A31 += go[48]; + m_A33 += go[49]; + double RHS13 = Idr[47]; + RHS13 += Idr[48]; + RHS13 += Idr[49]; + RHS13 += Idr[50]; + RHS13 -= go[50] * *cnV[50]; + m_A35 += gt[51]; + m_A35 += gt[52]; + m_A34 += go[51]; + double RHS14 = Idr[51]; + RHS14 += Idr[52]; + RHS14 -= go[52] * *cnV[52]; + m_A37 += gt[53]; + m_A37 += gt[54]; + m_A37 += gt[55]; + m_A37 += gt[56]; + m_A36 += go[53]; + m_A38 += go[54]; + double RHS15 = Idr[53]; + RHS15 += Idr[54]; + RHS15 += Idr[55]; + RHS15 += Idr[56]; + RHS15 -= go[55] * *cnV[55]; + RHS15 -= go[56] * *cnV[56]; + m_A40 += gt[57]; + m_A40 += gt[58]; + m_A39 += go[57]; + double RHS16 = Idr[57]; + RHS16 += Idr[58]; + RHS16 -= go[58] * *cnV[58]; + m_A43 += gt[59]; + m_A43 += gt[60]; + m_A41 += go[59]; + m_A42 += go[60]; + double RHS17 = Idr[59]; + RHS17 += Idr[60]; + m_A47 += gt[61]; + m_A47 += gt[62]; + m_A47 += gt[63]; + m_A47 += gt[64]; + m_A47 += gt[65]; + m_A46 += go[61]; + m_A49 += go[62]; + m_A50 += go[63]; + double RHS18 = Idr[61]; + RHS18 += Idr[62]; + RHS18 += Idr[63]; + RHS18 += Idr[64]; + RHS18 += Idr[65]; + RHS18 -= go[64] * *cnV[64]; + RHS18 -= go[65] * *cnV[65]; + m_A52 += gt[66]; + m_A52 += gt[67]; + m_A51 += go[66]; + double RHS19 = Idr[66]; + RHS19 += Idr[67]; + RHS19 -= go[67] * *cnV[67]; + m_A55 += gt[68]; + m_A55 += gt[69]; + m_A54 += go[68]; + m_A53 += go[69]; + double RHS20 = Idr[68]; + RHS20 += Idr[69]; + m_A60 += gt[70]; + m_A60 += gt[71]; + m_A60 += gt[72]; + m_A60 += gt[73]; + m_A59 += go[70]; + m_A61 += go[71]; + double RHS21 = Idr[70]; + RHS21 += Idr[71]; + RHS21 += Idr[72]; + RHS21 += Idr[73]; + RHS21 -= go[72] * *cnV[72]; + RHS21 -= go[73] * *cnV[73]; + m_A69 += gt[74]; + m_A69 += gt[75]; + m_A69 += gt[76]; + m_A69 += gt[77]; + m_A69 += gt[78]; + m_A69 += gt[79]; + m_A69 += gt[80]; + m_A69 += gt[81]; + m_A69 += gt[82]; + m_A62 += go[74]; + m_A65 += go[75]; + m_A65 += go[76]; + m_A64 += go[77]; + m_A63 += go[78]; + m_A71 += go[79]; + double RHS22 = Idr[74]; + RHS22 += Idr[75]; + RHS22 += Idr[76]; + RHS22 += Idr[77]; + RHS22 += Idr[78]; + RHS22 += Idr[79]; + RHS22 += Idr[80]; + RHS22 += Idr[81]; + RHS22 += Idr[82]; + RHS22 -= go[80] * *cnV[80]; + RHS22 -= go[81] * *cnV[81]; + RHS22 -= go[82] * *cnV[82]; + m_A75 += gt[83]; + m_A75 += gt[84]; + m_A75 += gt[85]; + m_A75 += gt[86]; + m_A74 += go[83]; + m_A76 += go[84]; + double RHS23 = Idr[83]; + RHS23 += Idr[84]; + RHS23 += Idr[85]; + RHS23 += Idr[86]; + RHS23 -= go[85] * *cnV[85]; + RHS23 -= go[86] * *cnV[86]; + m_A82 += gt[87]; + m_A82 += gt[88]; + m_A82 += gt[89]; + m_A82 += gt[90]; + m_A82 += gt[91]; + m_A82 += gt[92]; + m_A77 += go[87]; + m_A78 += go[88]; + m_A84 += go[89]; + double RHS24 = Idr[87]; + RHS24 += Idr[88]; + RHS24 += Idr[89]; + RHS24 += Idr[90]; + RHS24 += Idr[91]; + RHS24 += Idr[92]; + RHS24 -= go[90] * *cnV[90]; + RHS24 -= go[91] * *cnV[91]; + RHS24 -= go[92] * *cnV[92]; + m_A93 += gt[93]; + m_A93 += gt[94]; + m_A93 += gt[95]; + m_A93 += gt[96]; + m_A93 += gt[97]; + m_A91 += go[93]; + m_A89 += go[94]; + m_A88 += go[95]; + m_A87 += go[96]; + m_A86 += go[97]; + double RHS25 = Idr[93]; + RHS25 += Idr[94]; + RHS25 += Idr[95]; + RHS25 += Idr[96]; + RHS25 += Idr[97]; + m_A104 += gt[98]; + m_A104 += gt[99]; + m_A104 += gt[100]; + m_A104 += gt[101]; + m_A104 += gt[102]; + m_A102 += go[98]; + m_A99 += go[99]; + m_A98 += go[100]; + m_A97 += go[101]; + m_A96 += go[102]; + double RHS26 = Idr[98]; + RHS26 += Idr[99]; + RHS26 += Idr[100]; + RHS26 += Idr[101]; + RHS26 += Idr[102]; + m_A113 += gt[103]; + m_A113 += gt[104]; + m_A113 += gt[105]; + m_A113 += gt[106]; + m_A107 += go[103]; + m_A106 += go[104]; + m_A114 += go[105]; + double RHS27 = Idr[103]; + RHS27 += Idr[104]; + RHS27 += Idr[105]; + RHS27 += Idr[106]; + RHS27 -= go[106] * *cnV[106]; + m_A121 += gt[107]; + m_A121 += gt[108]; + m_A121 += gt[109]; + m_A121 += gt[110]; + m_A121 += gt[111]; + m_A118 += go[107]; + m_A117 += go[108]; + m_A120 += go[109]; + m_A116 += go[110]; + m_A115 += go[111]; + double RHS28 = Idr[107]; + RHS28 += Idr[108]; + RHS28 += Idr[109]; + RHS28 += Idr[110]; + RHS28 += Idr[111]; + const double f0 = 1.0 / m_A0; + const double f0_17 = -f0 * m_A41; + m_A43 += m_A1 * f0_17; + RHS17 += f0_17 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_14 = -f1 * m_A34; + m_A35 += m_A3 * f1_14; + RHS14 += f1_14 * RHS1; + const double f1_25 = -f1 * m_A86; + m_A89 += m_A3 * f1_25; + RHS25 += f1_25 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_15 = -f2 * m_A36; + m_A38 += m_A5 * f2_15; + RHS15 += f2_15 * RHS2; + const double f2_25 = -f2 * m_A87; + m_A93 += m_A5 * f2_25; + RHS25 += f2_25 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_22 = -f3 * m_A62; + m_A66 += m_A7 * f3_22; + RHS22 += f3_22 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_16 = -f4 * m_A39; + m_A40 += m_A9 * f4_16; + RHS16 += f4_16 * RHS4; + const double f4_28 = -f4 * m_A115; + m_A117 += m_A9 * f4_28; + RHS28 += f4_28 * RHS4; + const double f5 = 1.0 / m_A10; + const double f5_17 = -f5 * m_A42; + m_A43 += m_A11 * f5_17; + m_A44 += m_A12 * f5_17; + m_A45 += m_A13 * f5_17; + RHS17 += f5_17 * RHS5; + const double f5_22 = -f5 * m_A63; + m_A67 += m_A11 * f5_22; + m_A69 += m_A12 * f5_22; + m_A71 += m_A13 * f5_22; + RHS22 += f5_22 * RHS5; + const double f5_25 = -f5 * m_A88; m_A90 += m_A11 * f5_25; m_A91 += m_A12 * f5_25; m_A93 += m_A13 * f5_25; @@ -13207,73 +14203,1121 @@ static void nl_gcr_62612f71055b8fd4_303_double_double(double * __restrict V, con tmp15 += m_A50 * V[40]; V[15] = (RHS15 - tmp15) / m_A49; double tmp14 = 0.0; - tmp14 += m_A48 * V[37]; - V[14] = (RHS14 - tmp14) / m_A47; + tmp14 += m_A48 * V[37]; + V[14] = (RHS14 - tmp14) / m_A47; + double tmp13 = 0.0; + tmp13 += m_A45 * V[31]; + tmp13 += m_A46 * V[51]; + V[13] = (RHS13 - tmp13) / m_A44; + double tmp12 = 0.0; + tmp12 += m_A41 * V[30]; + tmp12 += m_A42 * V[32]; + tmp12 += m_A43 * V[43]; + V[12] = (RHS12 - tmp12) / m_A40; + double tmp11 = 0.0; + tmp11 += m_A38 * V[36]; + tmp11 += m_A39 * V[50]; + V[11] = (RHS11 - tmp11) / m_A37; + double tmp10 = 0.0; + tmp10 += m_A35 * V[36]; + tmp10 += m_A36 * V[39]; + V[10] = (RHS10 - tmp10) / m_A34; + double tmp9 = 0.0; + tmp9 += m_A31 * V[24]; + tmp9 += m_A32 * V[26]; + tmp9 += m_A33 * V[39]; + V[9] = (RHS9 - tmp9) / m_A30; + double tmp8 = 0.0; + tmp8 += m_A28 * V[30]; + tmp8 += m_A29 * V[39]; + V[8] = (RHS8 - tmp8) / m_A27; + double tmp7 = 0.0; + tmp7 += m_A24 * V[35]; + tmp7 += m_A25 * V[46]; + tmp7 += m_A26 * V[51]; + V[7] = (RHS7 - tmp7) / m_A23; + double tmp6 = 0.0; + tmp6 += m_A22 * V[24]; + V[6] = (RHS6 - tmp6) / m_A21; + double tmp5 = 0.0; + tmp5 += m_A18 * V[34]; + tmp5 += m_A19 * V[45]; + tmp5 += m_A20 * V[50]; + V[5] = (RHS5 - tmp5) / m_A17; + double tmp4 = 0.0; + tmp4 += m_A15 * V[45]; + tmp4 += m_A16 * V[51]; + V[4] = (RHS4 - tmp4) / m_A14; + double tmp3 = 0.0; + tmp3 += m_A12 * V[30]; + tmp3 += m_A13 * V[49]; + V[3] = (RHS3 - tmp3) / m_A11; + double tmp2 = 0.0; + tmp2 += m_A8 * V[28]; + tmp2 += m_A9 * V[43]; + tmp2 += m_A10 * V[48]; + V[2] = (RHS2 - tmp2) / m_A7; + double tmp1 = 0.0; + tmp1 += m_A5 * V[44]; + tmp1 += m_A6 * V[48]; + V[1] = (RHS1 - tmp1) / m_A4; + double tmp0 = 0.0; + tmp0 += m_A1 * V[27]; + tmp0 += m_A2 * V[44]; + tmp0 += m_A3 * V[49]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// konami1x +static void nl_gcr_62b99b9904a8c804_49_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 -= go[1] * *cnV[1]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A3 += go[2]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 -= go[3] * *cnV[3]; + m_A4 += gt[4]; + m_A4 += gt[5]; + m_A5 += go[4]; + double RHS2 = Idr[4]; + RHS2 += Idr[5]; + RHS2 -= go[5] * *cnV[5]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A7 += go[6]; + double RHS3 = Idr[6]; + RHS3 += Idr[7]; + RHS3 -= go[7] * *cnV[7]; + m_A8 += gt[8]; + m_A8 += gt[9]; + m_A9 += go[8]; + double RHS4 = Idr[8]; + RHS4 += Idr[9]; + RHS4 -= go[9] * *cnV[9]; + m_A10 += gt[10]; + m_A10 += gt[11]; + m_A11 += go[10]; + double RHS5 = Idr[10]; + RHS5 += Idr[11]; + RHS5 -= go[11] * *cnV[11]; + m_A12 += gt[12]; + m_A12 += gt[13]; + m_A13 += go[12]; + double RHS6 = Idr[12]; + RHS6 += Idr[13]; + RHS6 -= go[13] * *cnV[13]; + m_A14 += gt[14]; + m_A14 += gt[15]; + m_A15 += go[14]; + double RHS7 = Idr[14]; + RHS7 += Idr[15]; + RHS7 -= go[15] * *cnV[15]; + m_A16 += gt[16]; + m_A16 += gt[17]; + m_A16 += gt[18]; + m_A16 += gt[19]; + m_A16 += gt[20]; + m_A16 += gt[21]; + m_A16 += gt[22]; + m_A17 += go[16]; + double RHS8 = Idr[16]; + RHS8 += Idr[17]; + RHS8 += Idr[18]; + RHS8 += Idr[19]; + RHS8 += Idr[20]; + RHS8 += Idr[21]; + RHS8 += Idr[22]; + RHS8 -= go[17] * *cnV[17]; + RHS8 -= go[18] * *cnV[18]; + RHS8 -= go[19] * *cnV[19]; + RHS8 -= go[20] * *cnV[20]; + RHS8 -= go[21] * *cnV[21]; + RHS8 -= go[22] * *cnV[22]; + m_A18 += gt[23]; + m_A18 += gt[24]; + m_A19 += go[23]; + double RHS9 = Idr[23]; + RHS9 += Idr[24]; + RHS9 -= go[24] * *cnV[24]; + m_A20 += gt[25]; + m_A20 += gt[26]; + m_A21 += go[25]; + double RHS10 = Idr[25]; + RHS10 += Idr[26]; + RHS10 -= go[26] * *cnV[26]; + m_A25 += gt[27]; + m_A25 += gt[28]; + m_A25 += gt[29]; + m_A25 += gt[30]; + m_A26 += go[27]; + m_A24 += go[28]; + m_A23 += go[29]; + m_A22 += go[30]; + double RHS11 = Idr[27]; + RHS11 += Idr[28]; + RHS11 += Idr[29]; + RHS11 += Idr[30]; + m_A30 += gt[31]; + m_A30 += gt[32]; + m_A30 += gt[33]; + m_A30 += gt[34]; + m_A31 += go[31]; + m_A29 += go[32]; + m_A28 += go[33]; + m_A27 += go[34]; + double RHS12 = Idr[31]; + RHS12 += Idr[32]; + RHS12 += Idr[33]; + RHS12 += Idr[34]; + m_A35 += gt[35]; + m_A35 += gt[36]; + m_A35 += gt[37]; + m_A35 += gt[38]; + m_A36 += go[35]; + m_A34 += go[36]; + m_A33 += go[37]; + m_A32 += go[38]; + double RHS13 = Idr[35]; + RHS13 += Idr[36]; + RHS13 += Idr[37]; + RHS13 += Idr[38]; + m_A38 += gt[39]; + m_A38 += gt[40]; + m_A38 += gt[41]; + m_A37 += go[39]; + m_A39 += go[40]; + double RHS14 = Idr[39]; + RHS14 += Idr[40]; + RHS14 += Idr[41]; + RHS14 -= go[41] * *cnV[41]; + m_A43 += gt[42]; + m_A43 += gt[43]; + m_A43 += gt[44]; + m_A43 += gt[45]; + m_A43 += gt[46]; + m_A44 += go[42]; + m_A42 += go[43]; + m_A41 += go[44]; + m_A40 += go[45]; + double RHS15 = Idr[42]; + RHS15 += Idr[43]; + RHS15 += Idr[44]; + RHS15 += Idr[45]; + RHS15 += Idr[46]; + RHS15 -= go[46] * *cnV[46]; + m_A48 += gt[47]; + m_A48 += gt[48]; + m_A48 += gt[49]; + m_A48 += gt[50]; + m_A48 += gt[51]; + m_A45 += go[47]; + m_A46 += go[48]; + m_A47 += go[49]; + double RHS16 = Idr[47]; + RHS16 += Idr[48]; + RHS16 += Idr[49]; + RHS16 += Idr[50]; + RHS16 += Idr[51]; + RHS16 -= go[50] * *cnV[50]; + RHS16 -= go[51] * *cnV[51]; + const double f0 = 1.0 / m_A0; + const double f0_11 = -f0 * m_A22; + m_A25 += m_A1 * f0_11; + RHS11 += f0_11 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_11 = -f1 * m_A23; + m_A25 += m_A3 * f1_11; + RHS11 += f1_11 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_11 = -f2 * m_A24; + m_A25 += m_A5 * f2_11; + RHS11 += f2_11 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_12 = -f3 * m_A27; + m_A30 += m_A7 * f3_12; + RHS12 += f3_12 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_12 = -f4 * m_A28; + m_A30 += m_A9 * f4_12; + RHS12 += f4_12 * RHS4; + const double f5 = 1.0 / m_A10; + const double f5_12 = -f5 * m_A29; + m_A30 += m_A11 * f5_12; + RHS12 += f5_12 * RHS5; + const double f6 = 1.0 / m_A12; + const double f6_13 = -f6 * m_A32; + m_A35 += m_A13 * f6_13; + RHS13 += f6_13 * RHS6; + const double f7 = 1.0 / m_A14; + const double f7_13 = -f7 * m_A33; + m_A35 += m_A15 * f7_13; + RHS13 += f7_13 * RHS7; + const double f8 = 1.0 / m_A16; + const double f8_16 = -f8 * m_A45; + m_A47 += m_A17 * f8_16; + RHS16 += f8_16 * RHS8; + const double f9 = 1.0 / m_A18; + const double f9_13 = -f9 * m_A34; + m_A35 += m_A19 * f9_13; + RHS13 += f9_13 * RHS9; + const double f10 = 1.0 / m_A20; + const double f10_14 = -f10 * m_A37; + m_A38 += m_A21 * f10_14; + RHS14 += f10_14 * RHS10; + const double f11 = 1.0 / m_A25; + const double f11_15 = -f11 * m_A40; + m_A43 += m_A26 * f11_15; + RHS15 += f11_15 * RHS11; + const double f12 = 1.0 / m_A30; + const double f12_15 = -f12 * m_A41; + m_A43 += m_A31 * f12_15; + RHS15 += f12_15 * RHS12; + const double f13 = 1.0 / m_A35; + const double f13_15 = -f13 * m_A42; + m_A43 += m_A36 * f13_15; + RHS15 += f13_15 * RHS13; + const double f14 = 1.0 / m_A38; + const double f14_16 = -f14 * m_A46; + m_A48 += m_A39 * f14_16; + RHS16 += f14_16 * RHS14; + const double f15 = 1.0 / m_A43; + const double f15_16 = -f15 * m_A47; + m_A48 += m_A44 * f15_16; + RHS16 += f15_16 * RHS15; + V[16] = RHS16 / m_A48; + double tmp15 = 0.0; + tmp15 += m_A44 * V[16]; + V[15] = (RHS15 - tmp15) / m_A43; + double tmp14 = 0.0; + tmp14 += m_A39 * V[16]; + V[14] = (RHS14 - tmp14) / m_A38; + double tmp13 = 0.0; + tmp13 += m_A36 * V[15]; + V[13] = (RHS13 - tmp13) / m_A35; + double tmp12 = 0.0; + tmp12 += m_A31 * V[15]; + V[12] = (RHS12 - tmp12) / m_A30; + double tmp11 = 0.0; + tmp11 += m_A26 * V[15]; + V[11] = (RHS11 - tmp11) / m_A25; + double tmp10 = 0.0; + tmp10 += m_A21 * V[14]; + V[10] = (RHS10 - tmp10) / m_A20; + double tmp9 = 0.0; + tmp9 += m_A19 * V[13]; + V[9] = (RHS9 - tmp9) / m_A18; + double tmp8 = 0.0; + tmp8 += m_A17 * V[15]; + V[8] = (RHS8 - tmp8) / m_A16; + double tmp7 = 0.0; + tmp7 += m_A15 * V[13]; + V[7] = (RHS7 - tmp7) / m_A14; + double tmp6 = 0.0; + tmp6 += m_A13 * V[13]; + V[6] = (RHS6 - tmp6) / m_A12; + double tmp5 = 0.0; + tmp5 += m_A11 * V[12]; + V[5] = (RHS5 - tmp5) / m_A10; + double tmp4 = 0.0; + tmp4 += m_A9 * V[12]; + V[4] = (RHS4 - tmp4) / m_A8; + double tmp3 = 0.0; + tmp3 += m_A7 * V[12]; + V[3] = (RHS3 - tmp3) / m_A6; + double tmp2 = 0.0; + tmp2 += m_A5 * V[11]; + V[2] = (RHS2 - tmp2) / m_A4; + double tmp1 = 0.0; + tmp1 += m_A3 * V[11]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[11]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// armora +static void nl_gcr_64e460d8f716cd89_58_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + double m_A49(0.0); + double m_A50(0.0); + double m_A51(0.0); + double m_A52(0.0); + double m_A53(0.0); + double m_A54(0.0); + double m_A55(0.0); + double m_A56(0.0); + double m_A57(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A0 += gt[3]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 += Idr[3]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + RHS0 -= go[3] * *cnV[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; + m_A2 += gt[7]; + m_A2 += gt[8]; + m_A2 += gt[9]; + m_A4 += go[4]; + m_A3 += go[5]; + m_A3 += go[6]; + double RHS1 = Idr[4]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; + RHS1 += Idr[8]; + RHS1 += Idr[9]; + RHS1 -= go[7] * *cnV[7]; + RHS1 -= go[8] * *cnV[8]; + RHS1 -= go[9] * *cnV[9]; + m_A5 += gt[10]; + m_A5 += gt[11]; + m_A5 += gt[12]; + m_A5 += gt[13]; + m_A6 += go[10]; + m_A6 += go[11]; + m_A7 += go[12]; + double RHS2 = Idr[10]; + RHS2 += Idr[11]; + RHS2 += Idr[12]; + RHS2 += Idr[13]; + RHS2 -= go[13] * *cnV[13]; + m_A8 += gt[14]; + m_A8 += gt[15]; + m_A8 += gt[16]; + m_A8 += gt[17]; + m_A9 += go[14]; + double RHS3 = Idr[14]; + RHS3 += Idr[15]; + RHS3 += Idr[16]; + RHS3 += Idr[17]; + RHS3 -= go[15] * *cnV[15]; + RHS3 -= go[16] * *cnV[16]; + RHS3 -= go[17] * *cnV[17]; + m_A10 += gt[18]; + m_A10 += gt[19]; + m_A10 += gt[20]; + m_A10 += gt[21]; + m_A10 += gt[22]; + m_A10 += gt[23]; + m_A12 += go[18]; + m_A11 += go[19]; + m_A11 += go[20]; + double RHS4 = Idr[18]; + RHS4 += Idr[19]; + RHS4 += Idr[20]; + RHS4 += Idr[21]; + RHS4 += Idr[22]; + RHS4 += Idr[23]; + RHS4 -= go[21] * *cnV[21]; + RHS4 -= go[22] * *cnV[22]; + RHS4 -= go[23] * *cnV[23]; + m_A13 += gt[24]; + m_A13 += gt[25]; + m_A13 += gt[26]; + m_A13 += gt[27]; + m_A14 += go[24]; + m_A14 += go[25]; + m_A15 += go[26]; + double RHS5 = Idr[24]; + RHS5 += Idr[25]; + RHS5 += Idr[26]; + RHS5 += Idr[27]; + RHS5 -= go[27] * *cnV[27]; + m_A16 += gt[28]; + m_A16 += gt[29]; + m_A16 += gt[30]; + m_A16 += gt[31]; + m_A16 += gt[32]; + m_A16 += gt[33]; + m_A17 += go[28]; + double RHS6 = Idr[28]; + RHS6 += Idr[29]; + RHS6 += Idr[30]; + RHS6 += Idr[31]; + RHS6 += Idr[32]; + RHS6 += Idr[33]; + RHS6 -= go[29] * *cnV[29]; + RHS6 -= go[30] * *cnV[30]; + RHS6 -= go[31] * *cnV[31]; + RHS6 -= go[32] * *cnV[32]; + RHS6 -= go[33] * *cnV[33]; + m_A18 += gt[34]; + m_A18 += gt[35]; + m_A18 += gt[36]; + m_A18 += gt[37]; + m_A18 += gt[38]; + m_A18 += gt[39]; + m_A20 += go[34]; + m_A19 += go[35]; + m_A19 += go[36]; + double RHS7 = Idr[34]; + RHS7 += Idr[35]; + RHS7 += Idr[36]; + RHS7 += Idr[37]; + RHS7 += Idr[38]; + RHS7 += Idr[39]; + RHS7 -= go[37] * *cnV[37]; + RHS7 -= go[38] * *cnV[38]; + RHS7 -= go[39] * *cnV[39]; + m_A21 += gt[40]; + m_A21 += gt[41]; + m_A21 += gt[42]; + m_A21 += gt[43]; + m_A23 += go[40]; + m_A23 += go[41]; + m_A22 += go[42]; + double RHS8 = Idr[40]; + RHS8 += Idr[41]; + RHS8 += Idr[42]; + RHS8 += Idr[43]; + RHS8 -= go[43] * *cnV[43]; + m_A26 += gt[44]; + m_A26 += gt[45]; + m_A26 += gt[46]; + m_A26 += gt[47]; + m_A26 += gt[48]; + m_A26 += gt[49]; + m_A25 += go[44]; + m_A25 += go[45]; + m_A24 += go[46]; + double RHS9 = Idr[44]; + RHS9 += Idr[45]; + RHS9 += Idr[46]; + RHS9 += Idr[47]; + RHS9 += Idr[48]; + RHS9 += Idr[49]; + RHS9 -= go[47] * *cnV[47]; + RHS9 -= go[48] * *cnV[48]; + RHS9 -= go[49] * *cnV[49]; + m_A31 += gt[50]; + m_A31 += gt[51]; + m_A31 += gt[52]; + m_A31 += gt[53]; + m_A31 += gt[54]; + m_A29 += go[50]; + m_A29 += go[51]; + m_A28 += go[52]; + double RHS10 = Idr[50]; + RHS10 += Idr[51]; + RHS10 += Idr[52]; + RHS10 += Idr[53]; + RHS10 += Idr[54]; + RHS10 -= go[53] * *cnV[53]; + RHS10 -= go[54] * *cnV[54]; + m_A35 += gt[55]; + m_A35 += gt[56]; + m_A35 += gt[57]; + m_A35 += gt[58]; + m_A35 += gt[59]; + m_A35 += gt[60]; + m_A34 += go[55]; + m_A34 += go[56]; + m_A33 += go[57]; + double RHS11 = Idr[55]; + RHS11 += Idr[56]; + RHS11 += Idr[57]; + RHS11 += Idr[58]; + RHS11 += Idr[59]; + RHS11 += Idr[60]; + RHS11 -= go[58] * *cnV[58]; + RHS11 -= go[59] * *cnV[59]; + RHS11 -= go[60] * *cnV[60]; + m_A40 += gt[61]; + m_A40 += gt[62]; + m_A40 += gt[63]; + m_A40 += gt[64]; + m_A40 += gt[65]; + m_A38 += go[61]; + m_A38 += go[62]; + m_A37 += go[63]; + double RHS12 = Idr[61]; + RHS12 += Idr[62]; + RHS12 += Idr[63]; + RHS12 += Idr[64]; + RHS12 += Idr[65]; + RHS12 -= go[64] * *cnV[64]; + RHS12 -= go[65] * *cnV[65]; + m_A44 += gt[66]; + m_A44 += gt[67]; + m_A44 += gt[68]; + m_A44 += gt[69]; + m_A44 += gt[70]; + m_A44 += gt[71]; + m_A43 += go[66]; + m_A43 += go[67]; + m_A42 += go[68]; + double RHS13 = Idr[66]; + RHS13 += Idr[67]; + RHS13 += Idr[68]; + RHS13 += Idr[69]; + RHS13 += Idr[70]; + RHS13 += Idr[71]; + RHS13 -= go[69] * *cnV[69]; + RHS13 -= go[70] * *cnV[70]; + RHS13 -= go[71] * *cnV[71]; + m_A51 += gt[72]; + m_A51 += gt[73]; + m_A51 += gt[74]; + m_A51 += gt[75]; + m_A51 += gt[76]; + m_A51 += gt[77]; + m_A48 += go[72]; + m_A47 += go[73]; + m_A46 += go[74]; + double RHS14 = Idr[72]; + RHS14 += Idr[73]; + RHS14 += Idr[74]; + RHS14 += Idr[75]; + RHS14 += Idr[76]; + RHS14 += Idr[77]; + RHS14 -= go[75] * *cnV[75]; + RHS14 -= go[76] * *cnV[76]; + RHS14 -= go[77] * *cnV[77]; + m_A57 += gt[78]; + m_A57 += gt[79]; + m_A57 += gt[80]; + m_A57 += gt[81]; + m_A57 += gt[82]; + m_A54 += go[78]; + m_A54 += go[79]; + m_A53 += go[80]; + double RHS15 = Idr[78]; + RHS15 += Idr[79]; + RHS15 += Idr[80]; + RHS15 += Idr[81]; + RHS15 += Idr[82]; + RHS15 -= go[81] * *cnV[81]; + RHS15 -= go[82] * *cnV[82]; + const double f0 = 1.0 / m_A0; + const double f0_9 = -f0 * m_A24; + m_A26 += m_A1 * f0_9; + RHS9 += f0_9 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_9 = -f1 * m_A25; + m_A26 += m_A3 * f1_9; + m_A27 += m_A4 * f1_9; + RHS9 += f1_9 * RHS1; + const double f1_10 = -f1 * m_A28; + m_A30 += m_A3 * f1_10; + m_A31 += m_A4 * f1_10; + RHS10 += f1_10 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_10 = -f2 * m_A29; + m_A31 += m_A6 * f2_10; + m_A32 += m_A7 * f2_10; + RHS10 += f2_10 * RHS2; + const double f2_14 = -f2 * m_A46; + m_A49 += m_A6 * f2_14; + m_A51 += m_A7 * f2_14; + RHS14 += f2_14 * RHS2; + const double f3 = 1.0 / m_A8; + const double f3_11 = -f3 * m_A33; + m_A35 += m_A9 * f3_11; + RHS11 += f3_11 * RHS3; + const double f4 = 1.0 / m_A10; + const double f4_11 = -f4 * m_A34; + m_A35 += m_A11 * f4_11; + m_A36 += m_A12 * f4_11; + RHS11 += f4_11 * RHS4; + const double f4_12 = -f4 * m_A37; + m_A39 += m_A11 * f4_12; + m_A40 += m_A12 * f4_12; + RHS12 += f4_12 * RHS4; + const double f5 = 1.0 / m_A13; + const double f5_12 = -f5 * m_A38; + m_A40 += m_A14 * f5_12; + m_A41 += m_A15 * f5_12; + RHS12 += f5_12 * RHS5; + const double f5_14 = -f5 * m_A47; + m_A50 += m_A14 * f5_14; + m_A51 += m_A15 * f5_14; + RHS14 += f5_14 * RHS5; + const double f6 = 1.0 / m_A16; + const double f6_13 = -f6 * m_A42; + m_A44 += m_A17 * f6_13; + RHS13 += f6_13 * RHS6; + const double f7 = 1.0 / m_A18; + const double f7_13 = -f7 * m_A43; + m_A44 += m_A19 * f7_13; + m_A45 += m_A20 * f7_13; + RHS13 += f7_13 * RHS7; + const double f7_15 = -f7 * m_A53; + m_A55 += m_A19 * f7_15; + m_A57 += m_A20 * f7_15; + RHS15 += f7_15 * RHS7; + const double f8 = 1.0 / m_A21; + const double f8_14 = -f8 * m_A48; + m_A51 += m_A22 * f8_14; + m_A52 += m_A23 * f8_14; + RHS14 += f8_14 * RHS8; + const double f8_15 = -f8 * m_A54; + m_A56 += m_A22 * f8_15; + m_A57 += m_A23 * f8_15; + RHS15 += f8_15 * RHS8; + const double f9 = 1.0 / m_A26; + const double f9_10 = -f9 * m_A30; + m_A31 += m_A27 * f9_10; + RHS10 += f9_10 * RHS9; + const double f10 = 1.0 / m_A31; + const double f10_14 = -f10 * m_A49; + m_A51 += m_A32 * f10_14; + RHS14 += f10_14 * RHS10; + const double f11 = 1.0 / m_A35; + const double f11_12 = -f11 * m_A39; + m_A40 += m_A36 * f11_12; + RHS12 += f11_12 * RHS11; + const double f12 = 1.0 / m_A40; + const double f12_14 = -f12 * m_A50; + m_A51 += m_A41 * f12_14; + RHS14 += f12_14 * RHS12; + const double f13 = 1.0 / m_A44; + const double f13_15 = -f13 * m_A55; + m_A57 += m_A45 * f13_15; + RHS15 += f13_15 * RHS13; + const double f14 = 1.0 / m_A51; + const double f14_15 = -f14 * m_A56; + m_A57 += m_A52 * f14_15; + RHS15 += f14_15 * RHS14; + V[15] = RHS15 / m_A57; + double tmp14 = 0.0; + tmp14 += m_A52 * V[15]; + V[14] = (RHS14 - tmp14) / m_A51; double tmp13 = 0.0; - tmp13 += m_A45 * V[31]; - tmp13 += m_A46 * V[51]; + tmp13 += m_A45 * V[15]; V[13] = (RHS13 - tmp13) / m_A44; double tmp12 = 0.0; - tmp12 += m_A41 * V[30]; - tmp12 += m_A42 * V[32]; - tmp12 += m_A43 * V[43]; + tmp12 += m_A41 * V[14]; V[12] = (RHS12 - tmp12) / m_A40; double tmp11 = 0.0; - tmp11 += m_A38 * V[36]; - tmp11 += m_A39 * V[50]; - V[11] = (RHS11 - tmp11) / m_A37; + tmp11 += m_A36 * V[12]; + V[11] = (RHS11 - tmp11) / m_A35; double tmp10 = 0.0; - tmp10 += m_A35 * V[36]; - tmp10 += m_A36 * V[39]; - V[10] = (RHS10 - tmp10) / m_A34; + tmp10 += m_A32 * V[14]; + V[10] = (RHS10 - tmp10) / m_A31; double tmp9 = 0.0; - tmp9 += m_A31 * V[24]; - tmp9 += m_A32 * V[26]; - tmp9 += m_A33 * V[39]; - V[9] = (RHS9 - tmp9) / m_A30; + tmp9 += m_A27 * V[10]; + V[9] = (RHS9 - tmp9) / m_A26; double tmp8 = 0.0; - tmp8 += m_A28 * V[30]; - tmp8 += m_A29 * V[39]; - V[8] = (RHS8 - tmp8) / m_A27; + tmp8 += m_A22 * V[14]; + tmp8 += m_A23 * V[15]; + V[8] = (RHS8 - tmp8) / m_A21; double tmp7 = 0.0; - tmp7 += m_A24 * V[35]; - tmp7 += m_A25 * V[46]; - tmp7 += m_A26 * V[51]; - V[7] = (RHS7 - tmp7) / m_A23; + tmp7 += m_A19 * V[13]; + tmp7 += m_A20 * V[15]; + V[7] = (RHS7 - tmp7) / m_A18; double tmp6 = 0.0; - tmp6 += m_A22 * V[24]; - V[6] = (RHS6 - tmp6) / m_A21; + tmp6 += m_A17 * V[13]; + V[6] = (RHS6 - tmp6) / m_A16; double tmp5 = 0.0; - tmp5 += m_A18 * V[34]; - tmp5 += m_A19 * V[45]; - tmp5 += m_A20 * V[50]; - V[5] = (RHS5 - tmp5) / m_A17; + tmp5 += m_A14 * V[12]; + tmp5 += m_A15 * V[14]; + V[5] = (RHS5 - tmp5) / m_A13; + double tmp4 = 0.0; + tmp4 += m_A11 * V[11]; + tmp4 += m_A12 * V[12]; + V[4] = (RHS4 - tmp4) / m_A10; + double tmp3 = 0.0; + tmp3 += m_A9 * V[11]; + V[3] = (RHS3 - tmp3) / m_A8; + double tmp2 = 0.0; + tmp2 += m_A6 * V[10]; + tmp2 += m_A7 * V[14]; + V[2] = (RHS2 - tmp2) / m_A5; + double tmp1 = 0.0; + tmp1 += m_A3 * V[9]; + tmp1 += m_A4 * V[10]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[9]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// solarq +static void nl_gcr_66496d6073aca98e_20_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A0 += gt[3]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 += Idr[3]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + RHS0 -= go[3] * *cnV[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; + m_A2 += gt[7]; + m_A2 += gt[8]; + m_A2 += gt[9]; + m_A4 += go[4]; + m_A3 += go[5]; + m_A3 += go[6]; + double RHS1 = Idr[4]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; + RHS1 += Idr[8]; + RHS1 += Idr[9]; + RHS1 -= go[7] * *cnV[7]; + RHS1 -= go[8] * *cnV[8]; + RHS1 -= go[9] * *cnV[9]; + m_A5 += gt[10]; + m_A5 += gt[11]; + m_A5 += gt[12]; + m_A5 += gt[13]; + m_A7 += go[10]; + m_A6 += go[11]; + m_A6 += go[12]; + double RHS2 = Idr[10]; + RHS2 += Idr[11]; + RHS2 += Idr[12]; + RHS2 += Idr[13]; + RHS2 -= go[13] * *cnV[13]; + m_A10 += gt[14]; + m_A10 += gt[15]; + m_A10 += gt[16]; + m_A10 += gt[17]; + m_A10 += gt[18]; + m_A10 += gt[19]; + m_A9 += go[14]; + m_A9 += go[15]; + m_A8 += go[16]; + double RHS3 = Idr[14]; + RHS3 += Idr[15]; + RHS3 += Idr[16]; + RHS3 += Idr[17]; + RHS3 += Idr[18]; + RHS3 += Idr[19]; + RHS3 -= go[17] * *cnV[17]; + RHS3 -= go[18] * *cnV[18]; + RHS3 -= go[19] * *cnV[19]; + m_A15 += gt[20]; + m_A15 += gt[21]; + m_A15 += gt[22]; + m_A15 += gt[23]; + m_A15 += gt[24]; + m_A13 += go[20]; + m_A13 += go[21]; + m_A12 += go[22]; + double RHS4 = Idr[20]; + RHS4 += Idr[21]; + RHS4 += Idr[22]; + RHS4 += Idr[23]; + RHS4 += Idr[24]; + RHS4 -= go[23] * *cnV[23]; + RHS4 -= go[24] * *cnV[24]; + m_A19 += gt[25]; + m_A19 += gt[26]; + m_A19 += gt[27]; + m_A19 += gt[28]; + m_A19 += gt[29]; + m_A17 += go[25]; + double RHS5 = Idr[25]; + RHS5 += Idr[26]; + RHS5 += Idr[27]; + RHS5 += Idr[28]; + RHS5 += Idr[29]; + RHS5 -= go[26] * *cnV[26]; + RHS5 -= go[27] * *cnV[27]; + RHS5 -= go[28] * *cnV[28]; + RHS5 -= go[29] * *cnV[29]; + const double f0 = 1.0 / m_A0; + const double f0_3 = -f0 * m_A8; + m_A10 += m_A1 * f0_3; + RHS3 += f0_3 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_3 = -f1 * m_A9; + m_A10 += m_A3 * f1_3; + m_A11 += m_A4 * f1_3; + RHS3 += f1_3 * RHS1; + const double f1_4 = -f1 * m_A12; + m_A14 += m_A3 * f1_4; + m_A15 += m_A4 * f1_4; + RHS4 += f1_4 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_4 = -f2 * m_A13; + m_A15 += m_A6 * f2_4; + m_A16 += m_A7 * f2_4; + RHS4 += f2_4 * RHS2; + const double f2_5 = -f2 * m_A17; + m_A18 += m_A6 * f2_5; + m_A19 += m_A7 * f2_5; + RHS5 += f2_5 * RHS2; + const double f3 = 1.0 / m_A10; + const double f3_4 = -f3 * m_A14; + m_A15 += m_A11 * f3_4; + RHS4 += f3_4 * RHS3; + const double f4 = 1.0 / m_A15; + const double f4_5 = -f4 * m_A18; + m_A19 += m_A16 * f4_5; + RHS5 += f4_5 * RHS4; + V[5] = RHS5 / m_A19; double tmp4 = 0.0; - tmp4 += m_A15 * V[45]; - tmp4 += m_A16 * V[51]; - V[4] = (RHS4 - tmp4) / m_A14; + tmp4 += m_A16 * V[5]; + V[4] = (RHS4 - tmp4) / m_A15; double tmp3 = 0.0; - tmp3 += m_A12 * V[30]; - tmp3 += m_A13 * V[49]; - V[3] = (RHS3 - tmp3) / m_A11; + tmp3 += m_A11 * V[4]; + V[3] = (RHS3 - tmp3) / m_A10; double tmp2 = 0.0; - tmp2 += m_A8 * V[28]; - tmp2 += m_A9 * V[43]; - tmp2 += m_A10 * V[48]; - V[2] = (RHS2 - tmp2) / m_A7; + tmp2 += m_A6 * V[4]; + tmp2 += m_A7 * V[5]; + V[2] = (RHS2 - tmp2) / m_A5; double tmp1 = 0.0; - tmp1 += m_A5 * V[44]; - tmp1 += m_A6 * V[48]; - V[1] = (RHS1 - tmp1) / m_A4; + tmp1 += m_A3 * V[3]; + tmp1 += m_A4 * V[4]; + V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[27]; - tmp0 += m_A2 * V[44]; - tmp0 += m_A3 * V[49]; + tmp0 += m_A1 * V[3]; V[0] = (RHS0 - tmp0) / m_A0; } -// konami1x -static void nl_gcr_62b99b9904a8c804_49_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// starhawk +static void nl_gcr_67838e11f714c455_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 -= go[1] * *cnV[1]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A4 += go[2]; + m_A3 += go[3]; + m_A3 += go[4]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 += Idr[4]; + RHS1 += Idr[5]; + RHS1 -= go[5] * *cnV[5]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A7 += go[6]; + m_A7 += go[7]; + m_A5 += go[8]; + m_A5 += go[9]; + double RHS2 = Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 -= go[10] * *cnV[10]; + m_A11 += gt[11]; + m_A11 += gt[12]; + m_A11 += gt[13]; + m_A11 += gt[14]; + m_A11 += gt[15]; + m_A11 += gt[16]; + m_A10 += go[11]; + m_A10 += go[12]; + m_A9 += go[13]; + m_A8 += go[14]; + double RHS3 = Idr[11]; + RHS3 += Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; + RHS3 += Idr[15]; + RHS3 += Idr[16]; + RHS3 -= go[15] * *cnV[15]; + RHS3 -= go[16] * *cnV[16]; + const double f0 = 1.0 / m_A0; + const double f0_3 = -f0 * m_A8; + m_A11 += m_A1 * f0_3; + RHS3 += f0_3 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_2 = -f1 * m_A5; + m_A6 += m_A3 * f1_2; + m_A7 += m_A4 * f1_2; + RHS2 += f1_2 * RHS1; + const double f1_3 = -f1 * m_A9; + m_A10 += m_A3 * f1_3; + m_A11 += m_A4 * f1_3; + RHS3 += f1_3 * RHS1; + const double f2 = 1.0 / m_A6; + const double f2_3 = -f2 * m_A10; + m_A11 += m_A7 * f2_3; + RHS3 += f2_3 * RHS2; + V[3] = RHS3 / m_A11; + double tmp2 = 0.0; + tmp2 += m_A7 * V[3]; + V[2] = (RHS2 - tmp2) / m_A6; + double tmp1 = 0.0; + tmp1 += m_A3 * V[2]; + tmp1 += m_A4 * V[3]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[3]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// ripoff +static void nl_gcr_698d5dd47fb16d5_16_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -13294,39 +15338,6 @@ static void nl_gcr_62b99b9904a8c804_49_double_double(double * __restrict V, cons double m_A13(0.0); double m_A14(0.0); double m_A15(0.0); - double m_A16(0.0); - double m_A17(0.0); - double m_A18(0.0); - double m_A19(0.0); - double m_A20(0.0); - double m_A21(0.0); - double m_A22(0.0); - double m_A23(0.0); - double m_A24(0.0); - double m_A25(0.0); - double m_A26(0.0); - double m_A27(0.0); - double m_A28(0.0); - double m_A29(0.0); - double m_A30(0.0); - double m_A31(0.0); - double m_A32(0.0); - double m_A33(0.0); - double m_A34(0.0); - double m_A35(0.0); - double m_A36(0.0); - double m_A37(0.0); - double m_A38(0.0); - double m_A39(0.0); - double m_A40(0.0); - double m_A41(0.0); - double m_A42(0.0); - double m_A43(0.0); - double m_A44(0.0); - double m_A45(0.0); - double m_A46(0.0); - double m_A47(0.0); - double m_A48(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -13345,261 +15356,70 @@ static void nl_gcr_62b99b9904a8c804_49_double_double(double * __restrict V, cons double RHS2 = Idr[4]; RHS2 += Idr[5]; RHS2 -= go[5] * *cnV[5]; - m_A6 += gt[6]; - m_A6 += gt[7]; - m_A7 += go[6]; + m_A7 += gt[6]; + m_A7 += gt[7]; + m_A6 += go[6]; + m_A8 += go[7]; double RHS3 = Idr[6]; RHS3 += Idr[7]; - RHS3 -= go[7] * *cnV[7]; - m_A8 += gt[8]; - m_A8 += gt[9]; + m_A10 += gt[8]; + m_A10 += gt[9]; m_A9 += go[8]; + m_A11 += go[9]; double RHS4 = Idr[8]; RHS4 += Idr[9]; - RHS4 -= go[9] * *cnV[9]; - m_A10 += gt[10]; - m_A10 += gt[11]; - m_A11 += go[10]; - double RHS5 = Idr[10]; - RHS5 += Idr[11]; - RHS5 -= go[11] * *cnV[11]; - m_A12 += gt[12]; - m_A12 += gt[13]; - m_A13 += go[12]; - double RHS6 = Idr[12]; - RHS6 += Idr[13]; - RHS6 -= go[13] * *cnV[13]; - m_A14 += gt[14]; - m_A14 += gt[15]; - m_A15 += go[14]; - double RHS7 = Idr[14]; - RHS7 += Idr[15]; - RHS7 -= go[15] * *cnV[15]; - m_A16 += gt[16]; - m_A16 += gt[17]; - m_A16 += gt[18]; - m_A16 += gt[19]; - m_A16 += gt[20]; - m_A16 += gt[21]; - m_A16 += gt[22]; - m_A17 += go[16]; - double RHS8 = Idr[16]; - RHS8 += Idr[17]; - RHS8 += Idr[18]; - RHS8 += Idr[19]; - RHS8 += Idr[20]; - RHS8 += Idr[21]; - RHS8 += Idr[22]; - RHS8 -= go[17] * *cnV[17]; - RHS8 -= go[18] * *cnV[18]; - RHS8 -= go[19] * *cnV[19]; - RHS8 -= go[20] * *cnV[20]; - RHS8 -= go[21] * *cnV[21]; - RHS8 -= go[22] * *cnV[22]; - m_A18 += gt[23]; - m_A18 += gt[24]; - m_A19 += go[23]; - double RHS9 = Idr[23]; - RHS9 += Idr[24]; - RHS9 -= go[24] * *cnV[24]; - m_A20 += gt[25]; - m_A20 += gt[26]; - m_A21 += go[25]; - double RHS10 = Idr[25]; - RHS10 += Idr[26]; - RHS10 -= go[26] * *cnV[26]; - m_A25 += gt[27]; - m_A25 += gt[28]; - m_A25 += gt[29]; - m_A25 += gt[30]; - m_A26 += go[27]; - m_A24 += go[28]; - m_A23 += go[29]; - m_A22 += go[30]; - double RHS11 = Idr[27]; - RHS11 += Idr[28]; - RHS11 += Idr[29]; - RHS11 += Idr[30]; - m_A30 += gt[31]; - m_A30 += gt[32]; - m_A30 += gt[33]; - m_A30 += gt[34]; - m_A31 += go[31]; - m_A29 += go[32]; - m_A28 += go[33]; - m_A27 += go[34]; - double RHS12 = Idr[31]; - RHS12 += Idr[32]; - RHS12 += Idr[33]; - RHS12 += Idr[34]; - m_A35 += gt[35]; - m_A35 += gt[36]; - m_A35 += gt[37]; - m_A35 += gt[38]; - m_A36 += go[35]; - m_A34 += go[36]; - m_A33 += go[37]; - m_A32 += go[38]; - double RHS13 = Idr[35]; - RHS13 += Idr[36]; - RHS13 += Idr[37]; - RHS13 += Idr[38]; - m_A38 += gt[39]; - m_A38 += gt[40]; - m_A38 += gt[41]; - m_A37 += go[39]; - m_A39 += go[40]; - double RHS14 = Idr[39]; - RHS14 += Idr[40]; - RHS14 += Idr[41]; - RHS14 -= go[41] * *cnV[41]; - m_A43 += gt[42]; - m_A43 += gt[43]; - m_A43 += gt[44]; - m_A43 += gt[45]; - m_A43 += gt[46]; - m_A44 += go[42]; - m_A42 += go[43]; - m_A41 += go[44]; - m_A40 += go[45]; - double RHS15 = Idr[42]; - RHS15 += Idr[43]; - RHS15 += Idr[44]; - RHS15 += Idr[45]; - RHS15 += Idr[46]; - RHS15 -= go[46] * *cnV[46]; - m_A48 += gt[47]; - m_A48 += gt[48]; - m_A48 += gt[49]; - m_A48 += gt[50]; - m_A48 += gt[51]; - m_A45 += go[47]; - m_A46 += go[48]; - m_A47 += go[49]; - double RHS16 = Idr[47]; - RHS16 += Idr[48]; - RHS16 += Idr[49]; - RHS16 += Idr[50]; - RHS16 += Idr[51]; - RHS16 -= go[50] * *cnV[50]; - RHS16 -= go[51] * *cnV[51]; - const double f0 = 1.0 / m_A0; - const double f0_11 = -f0 * m_A22; - m_A25 += m_A1 * f0_11; - RHS11 += f0_11 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_11 = -f1 * m_A23; - m_A25 += m_A3 * f1_11; - RHS11 += f1_11 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_11 = -f2 * m_A24; - m_A25 += m_A5 * f2_11; - RHS11 += f2_11 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_12 = -f3 * m_A27; - m_A30 += m_A7 * f3_12; - RHS12 += f3_12 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_12 = -f4 * m_A28; - m_A30 += m_A9 * f4_12; - RHS12 += f4_12 * RHS4; - const double f5 = 1.0 / m_A10; - const double f5_12 = -f5 * m_A29; - m_A30 += m_A11 * f5_12; - RHS12 += f5_12 * RHS5; - const double f6 = 1.0 / m_A12; - const double f6_13 = -f6 * m_A32; - m_A35 += m_A13 * f6_13; - RHS13 += f6_13 * RHS6; - const double f7 = 1.0 / m_A14; - const double f7_13 = -f7 * m_A33; - m_A35 += m_A15 * f7_13; - RHS13 += f7_13 * RHS7; - const double f8 = 1.0 / m_A16; - const double f8_16 = -f8 * m_A45; - m_A47 += m_A17 * f8_16; - RHS16 += f8_16 * RHS8; - const double f9 = 1.0 / m_A18; - const double f9_13 = -f9 * m_A34; - m_A35 += m_A19 * f9_13; - RHS13 += f9_13 * RHS9; - const double f10 = 1.0 / m_A20; - const double f10_14 = -f10 * m_A37; - m_A38 += m_A21 * f10_14; - RHS14 += f10_14 * RHS10; - const double f11 = 1.0 / m_A25; - const double f11_15 = -f11 * m_A40; - m_A43 += m_A26 * f11_15; - RHS15 += f11_15 * RHS11; - const double f12 = 1.0 / m_A30; - const double f12_15 = -f12 * m_A41; - m_A43 += m_A31 * f12_15; - RHS15 += f12_15 * RHS12; - const double f13 = 1.0 / m_A35; - const double f13_15 = -f13 * m_A42; - m_A43 += m_A36 * f13_15; - RHS15 += f13_15 * RHS13; - const double f14 = 1.0 / m_A38; - const double f14_16 = -f14 * m_A46; - m_A48 += m_A39 * f14_16; - RHS16 += f14_16 * RHS14; - const double f15 = 1.0 / m_A43; - const double f15_16 = -f15 * m_A47; - m_A48 += m_A44 * f15_16; - RHS16 += f15_16 * RHS15; - V[16] = RHS16 / m_A48; - double tmp15 = 0.0; - tmp15 += m_A44 * V[16]; - V[15] = (RHS15 - tmp15) / m_A43; - double tmp14 = 0.0; - tmp14 += m_A39 * V[16]; - V[14] = (RHS14 - tmp14) / m_A38; - double tmp13 = 0.0; - tmp13 += m_A36 * V[15]; - V[13] = (RHS13 - tmp13) / m_A35; - double tmp12 = 0.0; - tmp12 += m_A31 * V[15]; - V[12] = (RHS12 - tmp12) / m_A30; - double tmp11 = 0.0; - tmp11 += m_A26 * V[15]; - V[11] = (RHS11 - tmp11) / m_A25; - double tmp10 = 0.0; - tmp10 += m_A21 * V[14]; - V[10] = (RHS10 - tmp10) / m_A20; - double tmp9 = 0.0; - tmp9 += m_A19 * V[13]; - V[9] = (RHS9 - tmp9) / m_A18; - double tmp8 = 0.0; - tmp8 += m_A17 * V[15]; - V[8] = (RHS8 - tmp8) / m_A16; - double tmp7 = 0.0; - tmp7 += m_A15 * V[13]; - V[7] = (RHS7 - tmp7) / m_A14; - double tmp6 = 0.0; - tmp6 += m_A13 * V[13]; - V[6] = (RHS6 - tmp6) / m_A12; - double tmp5 = 0.0; - tmp5 += m_A11 * V[12]; - V[5] = (RHS5 - tmp5) / m_A10; + m_A15 += gt[10]; + m_A15 += gt[11]; + m_A15 += gt[12]; + m_A15 += gt[13]; + m_A14 += go[10]; + m_A13 += go[11]; + m_A12 += go[12]; + double RHS5 = Idr[10]; + RHS5 += Idr[11]; + RHS5 += Idr[12]; + RHS5 += Idr[13]; + RHS5 -= go[13] * *cnV[13]; + const double f0 = 1.0 / m_A0; + const double f0_5 = -f0 * m_A12; + m_A15 += m_A1 * f0_5; + RHS5 += f0_5 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_3 = -f1 * m_A6; + m_A7 += m_A3 * f1_3; + RHS3 += f1_3 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_4 = -f2 * m_A9; + m_A10 += m_A5 * f2_4; + RHS4 += f2_4 * RHS2; + const double f3 = 1.0 / m_A7; + const double f3_5 = -f3 * m_A13; + m_A15 += m_A8 * f3_5; + RHS5 += f3_5 * RHS3; + const double f4 = 1.0 / m_A10; + const double f4_5 = -f4 * m_A14; + m_A15 += m_A11 * f4_5; + RHS5 += f4_5 * RHS4; + V[5] = RHS5 / m_A15; double tmp4 = 0.0; - tmp4 += m_A9 * V[12]; - V[4] = (RHS4 - tmp4) / m_A8; + tmp4 += m_A11 * V[5]; + V[4] = (RHS4 - tmp4) / m_A10; double tmp3 = 0.0; - tmp3 += m_A7 * V[12]; - V[3] = (RHS3 - tmp3) / m_A6; + tmp3 += m_A8 * V[5]; + V[3] = (RHS3 - tmp3) / m_A7; double tmp2 = 0.0; - tmp2 += m_A5 * V[11]; + tmp2 += m_A5 * V[4]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[11]; + tmp1 += m_A3 * V[3]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[11]; + tmp0 += m_A1 * V[5]; V[0] = (RHS0 - tmp0) / m_A0; } -// armora -static void nl_gcr_64e460d8f716cd89_58_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// barrier +static void nl_gcr_6ef39a62161d596c_47_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -13651,412 +15471,361 @@ static void nl_gcr_64e460d8f716cd89_58_double_double(double * __restrict V, cons double m_A44(0.0); double m_A45(0.0); double m_A46(0.0); - double m_A47(0.0); - double m_A48(0.0); - double m_A49(0.0); - double m_A50(0.0); - double m_A51(0.0); - double m_A52(0.0); - double m_A53(0.0); - double m_A54(0.0); - double m_A55(0.0); - double m_A56(0.0); - double m_A57(0.0); m_A0 += gt[0]; m_A0 += gt[1]; - m_A0 += gt[2]; - m_A0 += gt[3]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 += Idr[3]; RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; - RHS0 -= go[3] * *cnV[3]; + m_A2 += gt[2]; + m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; m_A2 += gt[6]; m_A2 += gt[7]; m_A2 += gt[8]; - m_A2 += gt[9]; - m_A4 += go[4]; - m_A3 += go[5]; - m_A3 += go[6]; - double RHS1 = Idr[4]; + m_A3 += go[2]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 += Idr[4]; RHS1 += Idr[5]; RHS1 += Idr[6]; RHS1 += Idr[7]; RHS1 += Idr[8]; - RHS1 += Idr[9]; + RHS1 -= go[3] * *cnV[3]; + RHS1 -= go[4] * *cnV[4]; + RHS1 -= go[5] * *cnV[5]; + RHS1 -= go[6] * *cnV[6]; RHS1 -= go[7] * *cnV[7]; RHS1 -= go[8] * *cnV[8]; - RHS1 -= go[9] * *cnV[9]; - m_A5 += gt[10]; - m_A5 += gt[11]; - m_A5 += gt[12]; - m_A5 += gt[13]; - m_A6 += go[10]; - m_A6 += go[11]; + m_A4 += gt[9]; + m_A4 += gt[10]; + m_A5 += go[9]; + double RHS2 = Idr[9]; + RHS2 += Idr[10]; + RHS2 -= go[10] * *cnV[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A6 += gt[13]; + m_A6 += gt[14]; + m_A6 += gt[15]; + m_A6 += gt[16]; + m_A7 += go[11]; m_A7 += go[12]; - double RHS2 = Idr[10]; - RHS2 += Idr[11]; - RHS2 += Idr[12]; - RHS2 += Idr[13]; - RHS2 -= go[13] * *cnV[13]; - m_A8 += gt[14]; - m_A8 += gt[15]; - m_A8 += gt[16]; - m_A8 += gt[17]; + m_A7 += go[13]; m_A9 += go[14]; - double RHS3 = Idr[14]; + m_A8 += go[15]; + double RHS3 = Idr[11]; + RHS3 += Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; RHS3 += Idr[15]; RHS3 += Idr[16]; - RHS3 += Idr[17]; - RHS3 -= go[15] * *cnV[15]; RHS3 -= go[16] * *cnV[16]; - RHS3 -= go[17] * *cnV[17]; + m_A10 += gt[17]; m_A10 += gt[18]; - m_A10 += gt[19]; - m_A10 += gt[20]; - m_A10 += gt[21]; - m_A10 += gt[22]; - m_A10 += gt[23]; + m_A11 += go[17]; m_A12 += go[18]; - m_A11 += go[19]; - m_A11 += go[20]; - double RHS4 = Idr[18]; - RHS4 += Idr[19]; - RHS4 += Idr[20]; - RHS4 += Idr[21]; - RHS4 += Idr[22]; - RHS4 += Idr[23]; - RHS4 -= go[21] * *cnV[21]; - RHS4 -= go[22] * *cnV[22]; - RHS4 -= go[23] * *cnV[23]; + double RHS4 = Idr[17]; + RHS4 += Idr[18]; + m_A13 += gt[19]; + m_A13 += gt[20]; + m_A13 += gt[21]; + m_A13 += gt[22]; + m_A13 += gt[23]; m_A13 += gt[24]; m_A13 += gt[25]; - m_A13 += gt[26]; - m_A13 += gt[27]; - m_A14 += go[24]; - m_A14 += go[25]; - m_A15 += go[26]; - double RHS5 = Idr[24]; + m_A14 += go[19]; + double RHS5 = Idr[19]; + RHS5 += Idr[20]; + RHS5 += Idr[21]; + RHS5 += Idr[22]; + RHS5 += Idr[23]; + RHS5 += Idr[24]; RHS5 += Idr[25]; - RHS5 += Idr[26]; - RHS5 += Idr[27]; - RHS5 -= go[27] * *cnV[27]; + RHS5 -= go[20] * *cnV[20]; + RHS5 -= go[21] * *cnV[21]; + RHS5 -= go[22] * *cnV[22]; + RHS5 -= go[23] * *cnV[23]; + RHS5 -= go[24] * *cnV[24]; + RHS5 -= go[25] * *cnV[25]; + m_A16 += gt[26]; + m_A16 += gt[27]; m_A16 += gt[28]; m_A16 += gt[29]; m_A16 += gt[30]; - m_A16 += gt[31]; - m_A16 += gt[32]; - m_A16 += gt[33]; - m_A17 += go[28]; - double RHS6 = Idr[28]; + m_A15 += go[26]; + m_A15 += go[27]; + m_A15 += go[28]; + double RHS6 = Idr[26]; + RHS6 += Idr[27]; + RHS6 += Idr[28]; RHS6 += Idr[29]; RHS6 += Idr[30]; - RHS6 += Idr[31]; - RHS6 += Idr[32]; - RHS6 += Idr[33]; RHS6 -= go[29] * *cnV[29]; RHS6 -= go[30] * *cnV[30]; - RHS6 -= go[31] * *cnV[31]; - RHS6 -= go[32] * *cnV[32]; - RHS6 -= go[33] * *cnV[33]; - m_A18 += gt[34]; - m_A18 += gt[35]; - m_A18 += gt[36]; - m_A18 += gt[37]; - m_A18 += gt[38]; - m_A18 += gt[39]; - m_A20 += go[34]; - m_A19 += go[35]; - m_A19 += go[36]; - double RHS7 = Idr[34]; - RHS7 += Idr[35]; - RHS7 += Idr[36]; - RHS7 += Idr[37]; - RHS7 += Idr[38]; - RHS7 += Idr[39]; - RHS7 -= go[37] * *cnV[37]; - RHS7 -= go[38] * *cnV[38]; - RHS7 -= go[39] * *cnV[39]; - m_A21 += gt[40]; - m_A21 += gt[41]; - m_A21 += gt[42]; - m_A21 += gt[43]; - m_A23 += go[40]; - m_A23 += go[41]; - m_A22 += go[42]; - double RHS8 = Idr[40]; - RHS8 += Idr[41]; - RHS8 += Idr[42]; - RHS8 += Idr[43]; - RHS8 -= go[43] * *cnV[43]; - m_A26 += gt[44]; - m_A26 += gt[45]; - m_A26 += gt[46]; - m_A26 += gt[47]; - m_A26 += gt[48]; - m_A26 += gt[49]; - m_A25 += go[44]; - m_A25 += go[45]; - m_A24 += go[46]; - double RHS9 = Idr[44]; - RHS9 += Idr[45]; - RHS9 += Idr[46]; - RHS9 += Idr[47]; - RHS9 += Idr[48]; - RHS9 += Idr[49]; - RHS9 -= go[47] * *cnV[47]; - RHS9 -= go[48] * *cnV[48]; - RHS9 -= go[49] * *cnV[49]; - m_A31 += gt[50]; - m_A31 += gt[51]; - m_A31 += gt[52]; - m_A31 += gt[53]; - m_A31 += gt[54]; - m_A29 += go[50]; - m_A29 += go[51]; - m_A28 += go[52]; - double RHS10 = Idr[50]; - RHS10 += Idr[51]; - RHS10 += Idr[52]; - RHS10 += Idr[53]; - RHS10 += Idr[54]; - RHS10 -= go[53] * *cnV[53]; - RHS10 -= go[54] * *cnV[54]; - m_A35 += gt[55]; - m_A35 += gt[56]; - m_A35 += gt[57]; - m_A35 += gt[58]; - m_A35 += gt[59]; - m_A35 += gt[60]; - m_A34 += go[55]; - m_A34 += go[56]; - m_A33 += go[57]; - double RHS11 = Idr[55]; - RHS11 += Idr[56]; - RHS11 += Idr[57]; - RHS11 += Idr[58]; - RHS11 += Idr[59]; - RHS11 += Idr[60]; - RHS11 -= go[58] * *cnV[58]; - RHS11 -= go[59] * *cnV[59]; - RHS11 -= go[60] * *cnV[60]; - m_A40 += gt[61]; - m_A40 += gt[62]; - m_A40 += gt[63]; - m_A40 += gt[64]; - m_A40 += gt[65]; - m_A38 += go[61]; - m_A38 += go[62]; - m_A37 += go[63]; - double RHS12 = Idr[61]; - RHS12 += Idr[62]; - RHS12 += Idr[63]; - RHS12 += Idr[64]; - RHS12 += Idr[65]; - RHS12 -= go[64] * *cnV[64]; - RHS12 -= go[65] * *cnV[65]; - m_A44 += gt[66]; - m_A44 += gt[67]; - m_A44 += gt[68]; - m_A44 += gt[69]; - m_A44 += gt[70]; - m_A44 += gt[71]; - m_A43 += go[66]; - m_A43 += go[67]; - m_A42 += go[68]; - double RHS13 = Idr[66]; - RHS13 += Idr[67]; - RHS13 += Idr[68]; - RHS13 += Idr[69]; - RHS13 += Idr[70]; - RHS13 += Idr[71]; - RHS13 -= go[69] * *cnV[69]; - RHS13 -= go[70] * *cnV[70]; - RHS13 -= go[71] * *cnV[71]; - m_A51 += gt[72]; - m_A51 += gt[73]; - m_A51 += gt[74]; - m_A51 += gt[75]; - m_A51 += gt[76]; - m_A51 += gt[77]; - m_A48 += go[72]; - m_A47 += go[73]; - m_A46 += go[74]; - double RHS14 = Idr[72]; - RHS14 += Idr[73]; - RHS14 += Idr[74]; - RHS14 += Idr[75]; - RHS14 += Idr[76]; - RHS14 += Idr[77]; - RHS14 -= go[75] * *cnV[75]; - RHS14 -= go[76] * *cnV[76]; - RHS14 -= go[77] * *cnV[77]; - m_A57 += gt[78]; - m_A57 += gt[79]; - m_A57 += gt[80]; - m_A57 += gt[81]; - m_A57 += gt[82]; - m_A54 += go[78]; - m_A54 += go[79]; - m_A53 += go[80]; - double RHS15 = Idr[78]; - RHS15 += Idr[79]; - RHS15 += Idr[80]; - RHS15 += Idr[81]; - RHS15 += Idr[82]; - RHS15 -= go[81] * *cnV[81]; - RHS15 -= go[82] * *cnV[82]; + m_A20 += gt[31]; + m_A20 += gt[32]; + m_A20 += gt[33]; + m_A20 += gt[34]; + m_A19 += go[31]; + m_A21 += go[32]; + m_A21 += go[33]; + double RHS7 = Idr[31]; + RHS7 += Idr[32]; + RHS7 += Idr[33]; + RHS7 += Idr[34]; + RHS7 -= go[34] * *cnV[34]; + m_A23 += gt[35]; + m_A23 += gt[36]; + m_A22 += go[35]; + m_A24 += go[36]; + double RHS8 = Idr[35]; + RHS8 += Idr[36]; + m_A26 += gt[37]; + m_A26 += gt[38]; + m_A26 += gt[39]; + m_A28 += go[37]; + m_A25 += go[38]; + double RHS9 = Idr[37]; + RHS9 += Idr[38]; + RHS9 += Idr[39]; + RHS9 -= go[39] * *cnV[39]; + m_A33 += gt[40]; + m_A33 += gt[41]; + m_A33 += gt[42]; + m_A33 += gt[43]; + m_A33 += gt[44]; + m_A33 += gt[45]; + m_A33 += gt[46]; + m_A29 += go[40]; + m_A30 += go[41]; + m_A32 += go[42]; + m_A32 += go[43]; + double RHS10 = Idr[40]; + RHS10 += Idr[41]; + RHS10 += Idr[42]; + RHS10 += Idr[43]; + RHS10 += Idr[44]; + RHS10 += Idr[45]; + RHS10 += Idr[46]; + RHS10 -= go[44] * *cnV[44]; + RHS10 -= go[45] * *cnV[45]; + RHS10 -= go[46] * *cnV[46]; + m_A41 += gt[47]; + m_A41 += gt[48]; + m_A41 += gt[49]; + m_A41 += gt[50]; + m_A41 += gt[51]; + m_A41 += gt[52]; + m_A36 += go[47]; + m_A35 += go[48]; + m_A38 += go[49]; + double RHS11 = Idr[47]; + RHS11 += Idr[48]; + RHS11 += Idr[49]; + RHS11 += Idr[50]; + RHS11 += Idr[51]; + RHS11 += Idr[52]; + RHS11 -= go[50] * *cnV[50]; + RHS11 -= go[51] * *cnV[51]; + RHS11 -= go[52] * *cnV[52]; + m_A46 += gt[53]; + m_A46 += gt[54]; + m_A46 += gt[55]; + m_A46 += gt[56]; + m_A46 += gt[57]; + m_A43 += go[53]; + m_A44 += go[54]; + double RHS12 = Idr[53]; + RHS12 += Idr[54]; + RHS12 += Idr[55]; + RHS12 += Idr[56]; + RHS12 += Idr[57]; + RHS12 -= go[55] * *cnV[55]; + RHS12 -= go[56] * *cnV[56]; + RHS12 -= go[57] * *cnV[57]; const double f0 = 1.0 / m_A0; - const double f0_9 = -f0 * m_A24; - m_A26 += m_A1 * f0_9; - RHS9 += f0_9 * RHS0; + const double f0_7 = -f0 * m_A19; + m_A20 += m_A1 * f0_7; + RHS7 += f0_7 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_9 = -f1 * m_A25; - m_A26 += m_A3 * f1_9; - m_A27 += m_A4 * f1_9; - RHS9 += f1_9 * RHS1; - const double f1_10 = -f1 * m_A28; - m_A30 += m_A3 * f1_10; - m_A31 += m_A4 * f1_10; + const double f1_10 = -f1 * m_A29; + m_A32 += m_A3 * f1_10; RHS10 += f1_10 * RHS1; - const double f2 = 1.0 / m_A5; - const double f2_10 = -f2 * m_A29; - m_A31 += m_A6 * f2_10; - m_A32 += m_A7 * f2_10; - RHS10 += f2_10 * RHS2; - const double f2_14 = -f2 * m_A46; - m_A49 += m_A6 * f2_14; - m_A51 += m_A7 * f2_14; - RHS14 += f2_14 * RHS2; - const double f3 = 1.0 / m_A8; - const double f3_11 = -f3 * m_A33; - m_A35 += m_A9 * f3_11; + const double f2 = 1.0 / m_A4; + const double f2_8 = -f2 * m_A22; + m_A23 += m_A5 * f2_8; + RHS8 += f2_8 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_6 = -f3 * m_A15; + m_A16 += m_A7 * f3_6; + m_A17 += m_A8 * f3_6; + m_A18 += m_A9 * f3_6; + RHS6 += f3_6 * RHS3; + const double f3_10 = -f3 * m_A30; + m_A31 += m_A7 * f3_10; + m_A33 += m_A8 * f3_10; + m_A34 += m_A9 * f3_10; + RHS10 += f3_10 * RHS3; + const double f3_11 = -f3 * m_A35; + m_A37 += m_A7 * f3_11; + m_A40 += m_A8 * f3_11; + m_A41 += m_A9 * f3_11; RHS11 += f3_11 * RHS3; const double f4 = 1.0 / m_A10; - const double f4_11 = -f4 * m_A34; - m_A35 += m_A11 * f4_11; - m_A36 += m_A12 * f4_11; + const double f4_9 = -f4 * m_A25; + m_A26 += m_A11 * f4_9; + m_A27 += m_A12 * f4_9; + RHS9 += f4_9 * RHS4; + const double f4_11 = -f4 * m_A36; + m_A39 += m_A11 * f4_11; + m_A41 += m_A12 * f4_11; RHS11 += f4_11 * RHS4; - const double f4_12 = -f4 * m_A37; - m_A39 += m_A11 * f4_12; - m_A40 += m_A12 * f4_12; - RHS12 += f4_12 * RHS4; const double f5 = 1.0 / m_A13; - const double f5_12 = -f5 * m_A38; - m_A40 += m_A14 * f5_12; - m_A41 += m_A15 * f5_12; + const double f5_12 = -f5 * m_A43; + m_A44 += m_A14 * f5_12; RHS12 += f5_12 * RHS5; - const double f5_14 = -f5 * m_A47; - m_A50 += m_A14 * f5_14; - m_A51 += m_A15 * f5_14; - RHS14 += f5_14 * RHS5; const double f6 = 1.0 / m_A16; - const double f6_13 = -f6 * m_A42; - m_A44 += m_A17 * f6_13; - RHS13 += f6_13 * RHS6; - const double f7 = 1.0 / m_A18; - const double f7_13 = -f7 * m_A43; - m_A44 += m_A19 * f7_13; - m_A45 += m_A20 * f7_13; - RHS13 += f7_13 * RHS7; - const double f7_15 = -f7 * m_A53; - m_A55 += m_A19 * f7_15; - m_A57 += m_A20 * f7_15; - RHS15 += f7_15 * RHS7; - const double f8 = 1.0 / m_A21; - const double f8_14 = -f8 * m_A48; - m_A51 += m_A22 * f8_14; - m_A52 += m_A23 * f8_14; - RHS14 += f8_14 * RHS8; - const double f8_15 = -f8 * m_A54; - m_A56 += m_A22 * f8_15; - m_A57 += m_A23 * f8_15; - RHS15 += f8_15 * RHS8; + const double f6_10 = -f6 * m_A31; + m_A33 += m_A17 * f6_10; + m_A34 += m_A18 * f6_10; + RHS10 += f6_10 * RHS6; + const double f6_11 = -f6 * m_A37; + m_A40 += m_A17 * f6_11; + m_A41 += m_A18 * f6_11; + RHS11 += f6_11 * RHS6; + const double f7 = 1.0 / m_A20; + const double f7_10 = -f7 * m_A32; + m_A33 += m_A21 * f7_10; + RHS10 += f7_10 * RHS7; + const double f8 = 1.0 / m_A23; + const double f8_11 = -f8 * m_A38; + m_A41 += m_A24 * f8_11; + RHS11 += f8_11 * RHS8; const double f9 = 1.0 / m_A26; - const double f9_10 = -f9 * m_A30; - m_A31 += m_A27 * f9_10; - RHS10 += f9_10 * RHS9; - const double f10 = 1.0 / m_A31; - const double f10_14 = -f10 * m_A49; - m_A51 += m_A32 * f10_14; - RHS14 += f10_14 * RHS10; - const double f11 = 1.0 / m_A35; - const double f11_12 = -f11 * m_A39; - m_A40 += m_A36 * f11_12; + const double f9_11 = -f9 * m_A39; + m_A41 += m_A27 * f9_11; + m_A42 += m_A28 * f9_11; + RHS11 += f9_11 * RHS9; + const double f9_12 = -f9 * m_A44; + m_A45 += m_A27 * f9_12; + m_A46 += m_A28 * f9_12; + RHS12 += f9_12 * RHS9; + const double f10 = 1.0 / m_A33; + const double f10_11 = -f10 * m_A40; + m_A41 += m_A34 * f10_11; + RHS11 += f10_11 * RHS10; + const double f11 = 1.0 / m_A41; + const double f11_12 = -f11 * m_A45; + m_A46 += m_A42 * f11_12; RHS12 += f11_12 * RHS11; - const double f12 = 1.0 / m_A40; - const double f12_14 = -f12 * m_A50; - m_A51 += m_A41 * f12_14; - RHS14 += f12_14 * RHS12; - const double f13 = 1.0 / m_A44; - const double f13_15 = -f13 * m_A55; - m_A57 += m_A45 * f13_15; - RHS15 += f13_15 * RHS13; - const double f14 = 1.0 / m_A51; - const double f14_15 = -f14 * m_A56; - m_A57 += m_A52 * f14_15; - RHS15 += f14_15 * RHS14; - V[15] = RHS15 / m_A57; - double tmp14 = 0.0; - tmp14 += m_A52 * V[15]; - V[14] = (RHS14 - tmp14) / m_A51; - double tmp13 = 0.0; - tmp13 += m_A45 * V[15]; - V[13] = (RHS13 - tmp13) / m_A44; - double tmp12 = 0.0; - tmp12 += m_A41 * V[14]; - V[12] = (RHS12 - tmp12) / m_A40; + V[12] = RHS12 / m_A46; double tmp11 = 0.0; - tmp11 += m_A36 * V[12]; - V[11] = (RHS11 - tmp11) / m_A35; + tmp11 += m_A42 * V[12]; + V[11] = (RHS11 - tmp11) / m_A41; double tmp10 = 0.0; - tmp10 += m_A32 * V[14]; - V[10] = (RHS10 - tmp10) / m_A31; + tmp10 += m_A34 * V[11]; + V[10] = (RHS10 - tmp10) / m_A33; double tmp9 = 0.0; - tmp9 += m_A27 * V[10]; + tmp9 += m_A27 * V[11]; + tmp9 += m_A28 * V[12]; V[9] = (RHS9 - tmp9) / m_A26; double tmp8 = 0.0; - tmp8 += m_A22 * V[14]; - tmp8 += m_A23 * V[15]; - V[8] = (RHS8 - tmp8) / m_A21; + tmp8 += m_A24 * V[11]; + V[8] = (RHS8 - tmp8) / m_A23; double tmp7 = 0.0; - tmp7 += m_A19 * V[13]; - tmp7 += m_A20 * V[15]; - V[7] = (RHS7 - tmp7) / m_A18; + tmp7 += m_A21 * V[10]; + V[7] = (RHS7 - tmp7) / m_A20; double tmp6 = 0.0; - tmp6 += m_A17 * V[13]; + tmp6 += m_A17 * V[10]; + tmp6 += m_A18 * V[11]; V[6] = (RHS6 - tmp6) / m_A16; double tmp5 = 0.0; - tmp5 += m_A14 * V[12]; - tmp5 += m_A15 * V[14]; + tmp5 += m_A14 * V[9]; V[5] = (RHS5 - tmp5) / m_A13; double tmp4 = 0.0; - tmp4 += m_A11 * V[11]; - tmp4 += m_A12 * V[12]; + tmp4 += m_A11 * V[9]; + tmp4 += m_A12 * V[11]; V[4] = (RHS4 - tmp4) / m_A10; double tmp3 = 0.0; + tmp3 += m_A7 * V[6]; + tmp3 += m_A8 * V[10]; tmp3 += m_A9 * V[11]; - V[3] = (RHS3 - tmp3) / m_A8; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A6 * V[10]; - tmp2 += m_A7 * V[14]; - V[2] = (RHS2 - tmp2) / m_A5; + tmp2 += m_A5 * V[8]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[9]; - tmp1 += m_A4 * V[10]; + tmp1 += m_A3 * V[7]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[9]; + tmp0 += m_A1 * V[7]; V[0] = (RHS0 - tmp0) / m_A0; } -// solarq -static void nl_gcr_66496d6073aca98e_20_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// starhawk +static void nl_gcr_723fa454468a93d_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A3 += go[3]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 -= go[4] * *cnV[4]; + m_A6 += gt[5]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A6 += gt[9]; + m_A5 += go[5]; + m_A4 += go[6]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + RHS2 -= go[9] * *cnV[9]; + const double f0 = 1.0 / m_A0; + const double f0_2 = -f0 * m_A4; + m_A6 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_2 = -f1 * m_A5; + m_A6 += m_A3 * f1_2; + RHS2 += f1_2 * RHS1; + V[2] = RHS2 / m_A6; + double tmp1 = 0.0; + tmp1 += m_A3 * V[2]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[2]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// cheekyms +static void nl_gcr_733c72a820fdbd1f_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -14068,161 +15837,58 @@ static void nl_gcr_66496d6073aca98e_20_double_double(double * __restrict V, cons double m_A4(0.0); double m_A5(0.0); double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); - double m_A15(0.0); - double m_A16(0.0); - double m_A17(0.0); - double m_A18(0.0); - double m_A19(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; m_A0 += gt[3]; m_A1 += go[0]; + m_A1 += go[1]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; RHS0 += Idr[3]; - RHS0 -= go[1] * *cnV[1]; RHS0 -= go[2] * *cnV[2]; RHS0 -= go[3] * *cnV[3]; m_A2 += gt[4]; m_A2 += gt[5]; - m_A2 += gt[6]; - m_A2 += gt[7]; - m_A2 += gt[8]; - m_A2 += gt[9]; - m_A4 += go[4]; - m_A3 += go[5]; - m_A3 += go[6]; + m_A3 += go[4]; double RHS1 = Idr[4]; RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 += Idr[7]; - RHS1 += Idr[8]; - RHS1 += Idr[9]; - RHS1 -= go[7] * *cnV[7]; - RHS1 -= go[8] * *cnV[8]; - RHS1 -= go[9] * *cnV[9]; - m_A5 += gt[10]; - m_A5 += gt[11]; - m_A5 += gt[12]; - m_A5 += gt[13]; - m_A7 += go[10]; - m_A6 += go[11]; - m_A6 += go[12]; - double RHS2 = Idr[10]; - RHS2 += Idr[11]; - RHS2 += Idr[12]; - RHS2 += Idr[13]; - RHS2 -= go[13] * *cnV[13]; - m_A10 += gt[14]; - m_A10 += gt[15]; - m_A10 += gt[16]; - m_A10 += gt[17]; - m_A10 += gt[18]; - m_A10 += gt[19]; - m_A9 += go[14]; - m_A9 += go[15]; - m_A8 += go[16]; - double RHS3 = Idr[14]; - RHS3 += Idr[15]; - RHS3 += Idr[16]; - RHS3 += Idr[17]; - RHS3 += Idr[18]; - RHS3 += Idr[19]; - RHS3 -= go[17] * *cnV[17]; - RHS3 -= go[18] * *cnV[18]; - RHS3 -= go[19] * *cnV[19]; - m_A15 += gt[20]; - m_A15 += gt[21]; - m_A15 += gt[22]; - m_A15 += gt[23]; - m_A15 += gt[24]; - m_A13 += go[20]; - m_A13 += go[21]; - m_A12 += go[22]; - double RHS4 = Idr[20]; - RHS4 += Idr[21]; - RHS4 += Idr[22]; - RHS4 += Idr[23]; - RHS4 += Idr[24]; - RHS4 -= go[23] * *cnV[23]; - RHS4 -= go[24] * *cnV[24]; - m_A19 += gt[25]; - m_A19 += gt[26]; - m_A19 += gt[27]; - m_A19 += gt[28]; - m_A19 += gt[29]; - m_A17 += go[25]; - double RHS5 = Idr[25]; - RHS5 += Idr[26]; - RHS5 += Idr[27]; - RHS5 += Idr[28]; - RHS5 += Idr[29]; - RHS5 -= go[26] * *cnV[26]; - RHS5 -= go[27] * *cnV[27]; - RHS5 -= go[28] * *cnV[28]; - RHS5 -= go[29] * *cnV[29]; + RHS1 -= go[5] * *cnV[5]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A5 += go[6]; + m_A4 += go[7]; + m_A4 += go[8]; + double RHS2 = Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 -= go[9] * *cnV[9]; + RHS2 -= go[10] * *cnV[10]; const double f0 = 1.0 / m_A0; - const double f0_3 = -f0 * m_A8; - m_A10 += m_A1 * f0_3; - RHS3 += f0_3 * RHS0; + const double f0_2 = -f0 * m_A4; + m_A6 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A9; - m_A10 += m_A3 * f1_3; - m_A11 += m_A4 * f1_3; - RHS3 += f1_3 * RHS1; - const double f1_4 = -f1 * m_A12; - m_A14 += m_A3 * f1_4; - m_A15 += m_A4 * f1_4; - RHS4 += f1_4 * RHS1; - const double f2 = 1.0 / m_A5; - const double f2_4 = -f2 * m_A13; - m_A15 += m_A6 * f2_4; - m_A16 += m_A7 * f2_4; - RHS4 += f2_4 * RHS2; - const double f2_5 = -f2 * m_A17; - m_A18 += m_A6 * f2_5; - m_A19 += m_A7 * f2_5; - RHS5 += f2_5 * RHS2; - const double f3 = 1.0 / m_A10; - const double f3_4 = -f3 * m_A14; - m_A15 += m_A11 * f3_4; - RHS4 += f3_4 * RHS3; - const double f4 = 1.0 / m_A15; - const double f4_5 = -f4 * m_A18; - m_A19 += m_A16 * f4_5; - RHS5 += f4_5 * RHS4; - V[5] = RHS5 / m_A19; - double tmp4 = 0.0; - tmp4 += m_A16 * V[5]; - V[4] = (RHS4 - tmp4) / m_A15; - double tmp3 = 0.0; - tmp3 += m_A11 * V[4]; - V[3] = (RHS3 - tmp3) / m_A10; - double tmp2 = 0.0; - tmp2 += m_A6 * V[4]; - tmp2 += m_A7 * V[5]; - V[2] = (RHS2 - tmp2) / m_A5; + const double f1_2 = -f1 * m_A5; + m_A6 += m_A3 * f1_2; + RHS2 += f1_2 * RHS1; + V[2] = RHS2 / m_A6; double tmp1 = 0.0; - tmp1 += m_A3 * V[3]; - tmp1 += m_A4 * V[4]; + tmp1 += m_A3 * V[2]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[3]; + tmp0 += m_A1 * V[2]; V[0] = (RHS0 - tmp0) / m_A0; } -// starhawk -static void nl_gcr_67838e11f714c455_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// tailg +static void nl_gcr_7388106355fb27c3_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -14249,6 +15915,7 @@ static void nl_gcr_67838e11f714c455_12_double_double(double * __restrict V, cons m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; + m_A2 += gt[6]; m_A4 += go[2]; m_A3 += go[3]; m_A3 += go[4]; @@ -14256,40 +15923,36 @@ static void nl_gcr_67838e11f714c455_12_double_double(double * __restrict V, cons RHS1 += Idr[3]; RHS1 += Idr[4]; RHS1 += Idr[5]; + RHS1 += Idr[6]; RHS1 -= go[5] * *cnV[5]; - m_A6 += gt[6]; + RHS1 -= go[6] * *cnV[6]; m_A6 += gt[7]; m_A6 += gt[8]; m_A6 += gt[9]; m_A6 += gt[10]; - m_A7 += go[6]; + m_A6 += gt[11]; m_A7 += go[7]; - m_A5 += go[8]; + m_A7 += go[8]; m_A5 += go[9]; - double RHS2 = Idr[6]; - RHS2 += Idr[7]; + m_A5 += go[10]; + double RHS2 = Idr[7]; RHS2 += Idr[8]; RHS2 += Idr[9]; RHS2 += Idr[10]; - RHS2 -= go[10] * *cnV[10]; - m_A11 += gt[11]; + RHS2 += Idr[11]; + RHS2 -= go[11] * *cnV[11]; m_A11 += gt[12]; m_A11 += gt[13]; m_A11 += gt[14]; m_A11 += gt[15]; - m_A11 += gt[16]; - m_A10 += go[11]; m_A10 += go[12]; - m_A9 += go[13]; - m_A8 += go[14]; - double RHS3 = Idr[11]; - RHS3 += Idr[12]; + m_A10 += go[13]; + m_A9 += go[14]; + m_A8 += go[15]; + double RHS3 = Idr[12]; RHS3 += Idr[13]; RHS3 += Idr[14]; RHS3 += Idr[15]; - RHS3 += Idr[16]; - RHS3 -= go[15] * *cnV[15]; - RHS3 -= go[16] * *cnV[16]; const double f0 = 1.0 / m_A0; const double f0_3 = -f0 * m_A8; m_A11 += m_A1 * f0_3; @@ -14320,8 +15983,8 @@ static void nl_gcr_67838e11f714c455_12_double_double(double * __restrict V, cons V[0] = (RHS0 - tmp0) / m_A0; } -// ripoff -static void nl_gcr_698d5dd47fb16d5_16_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// tp1985 +static void nl_gcr_73f2ba8ad4a45b26_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -14336,94 +15999,62 @@ static void nl_gcr_698d5dd47fb16d5_16_double_double(double * __restrict V, const double m_A7(0.0); double m_A8(0.0); double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); - double m_A15(0.0); m_A0 += gt[0]; m_A0 += gt[1]; + m_A0 += gt[2]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; + RHS0 += Idr[2]; RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; + RHS0 -= go[2] * *cnV[2]; m_A2 += gt[3]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 -= go[3] * *cnV[3]; - m_A4 += gt[4]; - m_A4 += gt[5]; - m_A5 += go[4]; - double RHS2 = Idr[4]; - RHS2 += Idr[5]; - RHS2 -= go[5] * *cnV[5]; - m_A7 += gt[6]; - m_A7 += gt[7]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A3 += go[3]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 += Idr[5]; + RHS1 -= go[4] * *cnV[4]; + RHS1 -= go[5] * *cnV[5]; + m_A5 += gt[6]; + m_A5 += gt[7]; m_A6 += go[6]; - m_A8 += go[7]; - double RHS3 = Idr[6]; - RHS3 += Idr[7]; - m_A10 += gt[8]; - m_A10 += gt[9]; - m_A9 += go[8]; - m_A11 += go[9]; - double RHS4 = Idr[8]; - RHS4 += Idr[9]; - m_A15 += gt[10]; - m_A15 += gt[11]; - m_A15 += gt[12]; - m_A15 += gt[13]; - m_A14 += go[10]; - m_A13 += go[11]; - m_A12 += go[12]; - double RHS5 = Idr[10]; - RHS5 += Idr[11]; - RHS5 += Idr[12]; - RHS5 += Idr[13]; - RHS5 -= go[13] * *cnV[13]; + m_A4 += go[7]; + double RHS2 = Idr[6]; + RHS2 += Idr[7]; + m_A9 += gt[8]; + m_A9 += gt[9]; + m_A7 += go[8]; + m_A8 += go[9]; + double RHS3 = Idr[8]; + RHS3 += Idr[9]; const double f0 = 1.0 / m_A0; - const double f0_5 = -f0 * m_A12; - m_A15 += m_A1 * f0_5; - RHS5 += f0_5 * RHS0; + const double f0_2 = -f0 * m_A4; + m_A5 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A6; - m_A7 += m_A3 * f1_3; + const double f1_3 = -f1 * m_A7; + m_A9 += m_A3 * f1_3; RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_4 = -f2 * m_A9; - m_A10 += m_A5 * f2_4; - RHS4 += f2_4 * RHS2; - const double f3 = 1.0 / m_A7; - const double f3_5 = -f3 * m_A13; - m_A15 += m_A8 * f3_5; - RHS5 += f3_5 * RHS3; - const double f4 = 1.0 / m_A10; - const double f4_5 = -f4 * m_A14; - m_A15 += m_A11 * f4_5; - RHS5 += f4_5 * RHS4; - V[5] = RHS5 / m_A15; - double tmp4 = 0.0; - tmp4 += m_A11 * V[5]; - V[4] = (RHS4 - tmp4) / m_A10; - double tmp3 = 0.0; - tmp3 += m_A8 * V[5]; - V[3] = (RHS3 - tmp3) / m_A7; + const double f2 = 1.0 / m_A5; + const double f2_3 = -f2 * m_A8; + m_A9 += m_A6 * f2_3; + RHS3 += f2_3 * RHS2; + V[3] = RHS3 / m_A9; double tmp2 = 0.0; - tmp2 += m_A5 * V[4]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A6 * V[3]; + V[2] = (RHS2 - tmp2) / m_A5; double tmp1 = 0.0; tmp1 += m_A3 * V[3]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[5]; + tmp0 += m_A1 * V[2]; V[0] = (RHS0 - tmp0) / m_A0; } -// barrier -static void nl_gcr_6ef39a62161d596c_47_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// zac1b11142 +static void nl_gcr_7425594cec8024ad_30_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -14458,318 +16089,194 @@ static void nl_gcr_6ef39a62161d596c_47_double_double(double * __restrict V, cons double m_A27(0.0); double m_A28(0.0); double m_A29(0.0); - double m_A30(0.0); - double m_A31(0.0); - double m_A32(0.0); - double m_A33(0.0); - double m_A34(0.0); - double m_A35(0.0); - double m_A36(0.0); - double m_A37(0.0); - double m_A38(0.0); - double m_A39(0.0); - double m_A40(0.0); - double m_A41(0.0); - double m_A42(0.0); - double m_A43(0.0); - double m_A44(0.0); - double m_A45(0.0); - double m_A46(0.0); m_A0 += gt[0]; m_A0 += gt[1]; + m_A0 += gt[2]; + m_A0 += gt[3]; + m_A0 += gt[4]; + m_A0 += gt[5]; + m_A0 += gt[6]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 += Idr[3]; + RHS0 += Idr[4]; + RHS0 += Idr[5]; + RHS0 += Idr[6]; RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A2 += gt[5]; - m_A2 += gt[6]; + RHS0 -= go[2] * *cnV[2]; + RHS0 -= go[3] * *cnV[3]; + RHS0 -= go[4] * *cnV[4]; + RHS0 -= go[5] * *cnV[5]; + RHS0 -= go[6] * *cnV[6]; m_A2 += gt[7]; m_A2 += gt[8]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 += Idr[7]; - RHS1 += Idr[8]; - RHS1 -= go[3] * *cnV[3]; - RHS1 -= go[4] * *cnV[4]; - RHS1 -= go[5] * *cnV[5]; - RHS1 -= go[6] * *cnV[6]; - RHS1 -= go[7] * *cnV[7]; + m_A2 += gt[9]; + m_A3 += go[7]; + double RHS1 = Idr[7]; + RHS1 += Idr[8]; + RHS1 += Idr[9]; RHS1 -= go[8] * *cnV[8]; - m_A4 += gt[9]; + RHS1 -= go[9] * *cnV[9]; m_A4 += gt[10]; - m_A5 += go[9]; - double RHS2 = Idr[9]; - RHS2 += Idr[10]; - RHS2 -= go[10] * *cnV[10]; - m_A6 += gt[11]; + m_A4 += gt[11]; + m_A5 += go[10]; + double RHS2 = Idr[10]; + RHS2 += Idr[11]; + RHS2 -= go[11] * *cnV[11]; m_A6 += gt[12]; m_A6 += gt[13]; m_A6 += gt[14]; - m_A6 += gt[15]; - m_A6 += gt[16]; - m_A7 += go[11]; m_A7 += go[12]; - m_A7 += go[13]; - m_A9 += go[14]; - m_A8 += go[15]; - double RHS3 = Idr[11]; - RHS3 += Idr[12]; + double RHS3 = Idr[12]; RHS3 += Idr[13]; RHS3 += Idr[14]; - RHS3 += Idr[15]; - RHS3 += Idr[16]; - RHS3 -= go[16] * *cnV[16]; - m_A10 += gt[17]; - m_A10 += gt[18]; - m_A11 += go[17]; - m_A12 += go[18]; - double RHS4 = Idr[17]; - RHS4 += Idr[18]; - m_A13 += gt[19]; - m_A13 += gt[20]; - m_A13 += gt[21]; - m_A13 += gt[22]; - m_A13 += gt[23]; - m_A13 += gt[24]; - m_A13 += gt[25]; - m_A14 += go[19]; - double RHS5 = Idr[19]; + RHS3 -= go[13] * *cnV[13]; + RHS3 -= go[14] * *cnV[14]; + m_A8 += gt[15]; + m_A8 += gt[16]; + m_A8 += gt[17]; + m_A9 += go[15]; + double RHS4 = Idr[15]; + RHS4 += Idr[16]; + RHS4 += Idr[17]; + RHS4 -= go[16] * *cnV[16]; + RHS4 -= go[17] * *cnV[17]; + m_A11 += gt[18]; + m_A11 += gt[19]; + m_A11 += gt[20]; + m_A11 += gt[21]; + m_A11 += gt[22]; + m_A11 += gt[23]; + m_A10 += go[18]; + m_A12 += go[19]; + m_A12 += go[20]; + double RHS5 = Idr[18]; + RHS5 += Idr[19]; RHS5 += Idr[20]; RHS5 += Idr[21]; RHS5 += Idr[22]; RHS5 += Idr[23]; - RHS5 += Idr[24]; - RHS5 += Idr[25]; - RHS5 -= go[20] * *cnV[20]; RHS5 -= go[21] * *cnV[21]; RHS5 -= go[22] * *cnV[22]; RHS5 -= go[23] * *cnV[23]; - RHS5 -= go[24] * *cnV[24]; - RHS5 -= go[25] * *cnV[25]; - m_A16 += gt[26]; - m_A16 += gt[27]; - m_A16 += gt[28]; - m_A16 += gt[29]; - m_A16 += gt[30]; - m_A15 += go[26]; - m_A15 += go[27]; - m_A15 += go[28]; - double RHS6 = Idr[26]; - RHS6 += Idr[27]; - RHS6 += Idr[28]; - RHS6 += Idr[29]; - RHS6 += Idr[30]; - RHS6 -= go[29] * *cnV[29]; - RHS6 -= go[30] * *cnV[30]; - m_A20 += gt[31]; - m_A20 += gt[32]; - m_A20 += gt[33]; - m_A20 += gt[34]; - m_A19 += go[31]; + m_A16 += gt[24]; + m_A16 += gt[25]; + m_A15 += go[24]; + m_A14 += go[25]; + double RHS6 = Idr[24]; + RHS6 += Idr[25]; + m_A18 += gt[26]; + m_A18 += gt[27]; + m_A19 += go[26]; + m_A17 += go[27]; + double RHS7 = Idr[26]; + RHS7 += Idr[27]; + m_A25 += gt[28]; + m_A25 += gt[29]; + m_A25 += gt[30]; + m_A25 += gt[31]; + m_A25 += gt[32]; + m_A25 += gt[33]; + m_A23 += go[28]; + m_A22 += go[29]; + m_A22 += go[30]; + m_A24 += go[31]; m_A21 += go[32]; - m_A21 += go[33]; - double RHS7 = Idr[31]; - RHS7 += Idr[32]; - RHS7 += Idr[33]; - RHS7 += Idr[34]; - RHS7 -= go[34] * *cnV[34]; - m_A23 += gt[35]; - m_A23 += gt[36]; - m_A22 += go[35]; - m_A24 += go[36]; - double RHS8 = Idr[35]; - RHS8 += Idr[36]; - m_A26 += gt[37]; - m_A26 += gt[38]; - m_A26 += gt[39]; - m_A28 += go[37]; - m_A25 += go[38]; - double RHS9 = Idr[37]; - RHS9 += Idr[38]; - RHS9 += Idr[39]; - RHS9 -= go[39] * *cnV[39]; - m_A33 += gt[40]; - m_A33 += gt[41]; - m_A33 += gt[42]; - m_A33 += gt[43]; - m_A33 += gt[44]; - m_A33 += gt[45]; - m_A33 += gt[46]; - m_A29 += go[40]; - m_A30 += go[41]; - m_A32 += go[42]; - m_A32 += go[43]; - double RHS10 = Idr[40]; - RHS10 += Idr[41]; - RHS10 += Idr[42]; - RHS10 += Idr[43]; - RHS10 += Idr[44]; - RHS10 += Idr[45]; - RHS10 += Idr[46]; - RHS10 -= go[44] * *cnV[44]; - RHS10 -= go[45] * *cnV[45]; - RHS10 -= go[46] * *cnV[46]; - m_A41 += gt[47]; - m_A41 += gt[48]; - m_A41 += gt[49]; - m_A41 += gt[50]; - m_A41 += gt[51]; - m_A41 += gt[52]; - m_A36 += go[47]; - m_A35 += go[48]; - m_A38 += go[49]; - double RHS11 = Idr[47]; - RHS11 += Idr[48]; - RHS11 += Idr[49]; - RHS11 += Idr[50]; - RHS11 += Idr[51]; - RHS11 += Idr[52]; - RHS11 -= go[50] * *cnV[50]; - RHS11 -= go[51] * *cnV[51]; - RHS11 -= go[52] * *cnV[52]; - m_A46 += gt[53]; - m_A46 += gt[54]; - m_A46 += gt[55]; - m_A46 += gt[56]; - m_A46 += gt[57]; - m_A43 += go[53]; - m_A44 += go[54]; - double RHS12 = Idr[53]; - RHS12 += Idr[54]; - RHS12 += Idr[55]; - RHS12 += Idr[56]; - RHS12 += Idr[57]; - RHS12 -= go[55] * *cnV[55]; - RHS12 -= go[56] * *cnV[56]; - RHS12 -= go[57] * *cnV[57]; + m_A20 += go[33]; + double RHS8 = Idr[28]; + RHS8 += Idr[29]; + RHS8 += Idr[30]; + RHS8 += Idr[31]; + RHS8 += Idr[32]; + RHS8 += Idr[33]; + m_A29 += gt[34]; + m_A29 += gt[35]; + m_A29 += gt[36]; + m_A29 += gt[37]; + m_A28 += go[34]; + m_A27 += go[35]; + double RHS9 = Idr[34]; + RHS9 += Idr[35]; + RHS9 += Idr[36]; + RHS9 += Idr[37]; + RHS9 -= go[36] * *cnV[36]; + RHS9 -= go[37] * *cnV[37]; const double f0 = 1.0 / m_A0; - const double f0_7 = -f0 * m_A19; - m_A20 += m_A1 * f0_7; - RHS7 += f0_7 * RHS0; + const double f0_5 = -f0 * m_A10; + m_A13 += m_A1 * f0_5; + RHS5 += f0_5 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_10 = -f1 * m_A29; - m_A32 += m_A3 * f1_10; - RHS10 += f1_10 * RHS1; + const double f1_7 = -f1 * m_A17; + m_A18 += m_A3 * f1_7; + RHS7 += f1_7 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_8 = -f2 * m_A22; + const double f2_6 = -f2 * m_A14; + m_A16 += m_A5 * f2_6; + RHS6 += f2_6 * RHS2; + const double f2_8 = -f2 * m_A20; m_A23 += m_A5 * f2_8; RHS8 += f2_8 * RHS2; const double f3 = 1.0 / m_A6; const double f3_6 = -f3 * m_A15; m_A16 += m_A7 * f3_6; - m_A17 += m_A8 * f3_6; - m_A18 += m_A9 * f3_6; RHS6 += f3_6 * RHS3; - const double f3_10 = -f3 * m_A30; - m_A31 += m_A7 * f3_10; - m_A33 += m_A8 * f3_10; - m_A34 += m_A9 * f3_10; - RHS10 += f3_10 * RHS3; - const double f3_11 = -f3 * m_A35; - m_A37 += m_A7 * f3_11; - m_A40 += m_A8 * f3_11; - m_A41 += m_A9 * f3_11; - RHS11 += f3_11 * RHS3; - const double f4 = 1.0 / m_A10; - const double f4_9 = -f4 * m_A25; - m_A26 += m_A11 * f4_9; - m_A27 += m_A12 * f4_9; + const double f4 = 1.0 / m_A8; + const double f4_8 = -f4 * m_A21; + m_A25 += m_A9 * f4_8; + RHS8 += f4_8 * RHS4; + const double f4_9 = -f4 * m_A27; + m_A28 += m_A9 * f4_9; RHS9 += f4_9 * RHS4; - const double f4_11 = -f4 * m_A36; - m_A39 += m_A11 * f4_11; - m_A41 += m_A12 * f4_11; - RHS11 += f4_11 * RHS4; - const double f5 = 1.0 / m_A13; - const double f5_12 = -f5 * m_A43; - m_A44 += m_A14 * f5_12; - RHS12 += f5_12 * RHS5; + const double f5 = 1.0 / m_A11; + const double f5_8 = -f5 * m_A22; + m_A25 += m_A12 * f5_8; + m_A26 += m_A13 * f5_8; + RHS8 += f5_8 * RHS5; const double f6 = 1.0 / m_A16; - const double f6_10 = -f6 * m_A31; - m_A33 += m_A17 * f6_10; - m_A34 += m_A18 * f6_10; - RHS10 += f6_10 * RHS6; - const double f6_11 = -f6 * m_A37; - m_A40 += m_A17 * f6_11; - m_A41 += m_A18 * f6_11; - RHS11 += f6_11 * RHS6; - const double f7 = 1.0 / m_A20; - const double f7_10 = -f7 * m_A32; - m_A33 += m_A21 * f7_10; - RHS10 += f7_10 * RHS7; - const double f8 = 1.0 / m_A23; - const double f8_11 = -f8 * m_A38; - m_A41 += m_A24 * f8_11; - RHS11 += f8_11 * RHS8; - const double f9 = 1.0 / m_A26; - const double f9_11 = -f9 * m_A39; - m_A41 += m_A27 * f9_11; - m_A42 += m_A28 * f9_11; - RHS11 += f9_11 * RHS9; - const double f9_12 = -f9 * m_A44; - m_A45 += m_A27 * f9_12; - m_A46 += m_A28 * f9_12; - RHS12 += f9_12 * RHS9; - const double f10 = 1.0 / m_A33; - const double f10_11 = -f10 * m_A40; - m_A41 += m_A34 * f10_11; - RHS11 += f10_11 * RHS10; - const double f11 = 1.0 / m_A41; - const double f11_12 = -f11 * m_A45; - m_A46 += m_A42 * f11_12; - RHS12 += f11_12 * RHS11; - V[12] = RHS12 / m_A46; - double tmp11 = 0.0; - tmp11 += m_A42 * V[12]; - V[11] = (RHS11 - tmp11) / m_A41; - double tmp10 = 0.0; - tmp10 += m_A34 * V[11]; - V[10] = (RHS10 - tmp10) / m_A33; - double tmp9 = 0.0; - tmp9 += m_A27 * V[11]; - tmp9 += m_A28 * V[12]; - V[9] = (RHS9 - tmp9) / m_A26; + const double f6_8 = -f6 * m_A23; + RHS8 += f6_8 * RHS6; + const double f7 = 1.0 / m_A18; + const double f7_8 = -f7 * m_A24; + m_A25 += m_A19 * f7_8; + RHS8 += f7_8 * RHS7; + const double f8 = 1.0 / m_A25; + const double f8_9 = -f8 * m_A28; + m_A29 += m_A26 * f8_9; + RHS9 += f8_9 * RHS8; + V[9] = RHS9 / m_A29; double tmp8 = 0.0; - tmp8 += m_A24 * V[11]; - V[8] = (RHS8 - tmp8) / m_A23; + tmp8 += m_A26 * V[9]; + V[8] = (RHS8 - tmp8) / m_A25; double tmp7 = 0.0; - tmp7 += m_A21 * V[10]; - V[7] = (RHS7 - tmp7) / m_A20; + tmp7 += m_A19 * V[8]; + V[7] = (RHS7 - tmp7) / m_A18; double tmp6 = 0.0; - tmp6 += m_A17 * V[10]; - tmp6 += m_A18 * V[11]; V[6] = (RHS6 - tmp6) / m_A16; double tmp5 = 0.0; - tmp5 += m_A14 * V[9]; - V[5] = (RHS5 - tmp5) / m_A13; + tmp5 += m_A12 * V[8]; + tmp5 += m_A13 * V[9]; + V[5] = (RHS5 - tmp5) / m_A11; double tmp4 = 0.0; - tmp4 += m_A11 * V[9]; - tmp4 += m_A12 * V[11]; - V[4] = (RHS4 - tmp4) / m_A10; + tmp4 += m_A9 * V[8]; + V[4] = (RHS4 - tmp4) / m_A8; double tmp3 = 0.0; tmp3 += m_A7 * V[6]; - tmp3 += m_A8 * V[10]; - tmp3 += m_A9 * V[11]; V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A5 * V[8]; + tmp2 += m_A5 * V[6]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; tmp1 += m_A3 * V[7]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[7]; + tmp0 += m_A1 * V[9]; V[0] = (RHS0 - tmp0) / m_A0; } -// starhawk -static void nl_gcr_723fa454468a93d_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// tp1985 +static void nl_gcr_74349e9889a2630b_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -14792,88 +16299,22 @@ static void nl_gcr_723fa454468a93d_7_double_double(double * __restrict V, const RHS0 -= go[2] * *cnV[2]; m_A2 += gt[3]; m_A2 += gt[4]; + m_A2 += gt[5]; m_A3 += go[3]; double RHS1 = Idr[3]; RHS1 += Idr[4]; - RHS1 -= go[4] * *cnV[4]; - m_A6 += gt[5]; - m_A6 += gt[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A5 += go[5]; - m_A4 += go[6]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 -= go[7] * *cnV[7]; - RHS2 -= go[8] * *cnV[8]; - RHS2 -= go[9] * *cnV[9]; - const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A6 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A5; - m_A6 += m_A3 * f1_2; - RHS2 += f1_2 * RHS1; - V[2] = RHS2 / m_A6; - double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// cheekyms -static void nl_gcr_733c72a820fdbd1f_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A0 += gt[3]; - m_A1 += go[0]; - m_A1 += go[1]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 += Idr[3]; - RHS0 -= go[2] * *cnV[2]; - RHS0 -= go[3] * *cnV[3]; - m_A2 += gt[4]; - m_A2 += gt[5]; - m_A3 += go[4]; - double RHS1 = Idr[4]; RHS1 += Idr[5]; + RHS1 -= go[4] * *cnV[4]; RHS1 -= go[5] * *cnV[5]; m_A6 += gt[6]; m_A6 += gt[7]; m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; m_A5 += go[6]; m_A4 += go[7]; - m_A4 += go[8]; double RHS2 = Idr[6]; RHS2 += Idr[7]; RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 -= go[9] * *cnV[9]; - RHS2 -= go[10] * *cnV[10]; + RHS2 -= go[8] * *cnV[8]; const double f0 = 1.0 / m_A0; const double f0_2 = -f0 * m_A4; m_A6 += m_A1 * f0_2; @@ -14891,8 +16332,8 @@ static void nl_gcr_733c72a820fdbd1f_7_double_double(double * __restrict V, const V[0] = (RHS0 - tmp0) / m_A0; } -// tailg -static void nl_gcr_7388106355fb27c3_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// gunfight +static void nl_gcr_743595e64cee0a5e_112_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -14909,6 +16350,106 @@ static void nl_gcr_7388106355fb27c3_12_double_double(double * __restrict V, cons double m_A9(0.0); double m_A10(0.0); double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + double m_A49(0.0); + double m_A50(0.0); + double m_A51(0.0); + double m_A52(0.0); + double m_A53(0.0); + double m_A54(0.0); + double m_A55(0.0); + double m_A56(0.0); + double m_A57(0.0); + double m_A58(0.0); + double m_A59(0.0); + double m_A60(0.0); + double m_A61(0.0); + double m_A62(0.0); + double m_A63(0.0); + double m_A64(0.0); + double m_A65(0.0); + double m_A66(0.0); + double m_A67(0.0); + double m_A68(0.0); + double m_A69(0.0); + double m_A70(0.0); + double m_A71(0.0); + double m_A72(0.0); + double m_A73(0.0); + double m_A74(0.0); + double m_A75(0.0); + double m_A76(0.0); + double m_A77(0.0); + double m_A78(0.0); + double m_A79(0.0); + double m_A80(0.0); + double m_A81(0.0); + double m_A82(0.0); + double m_A83(0.0); + double m_A84(0.0); + double m_A85(0.0); + double m_A86(0.0); + double m_A87(0.0); + double m_A88(0.0); + double m_A89(0.0); + double m_A90(0.0); + double m_A91(0.0); + double m_A92(0.0); + double m_A93(0.0); + double m_A94(0.0); + double m_A95(0.0); + double m_A96(0.0); + double m_A97(0.0); + double m_A98(0.0); + double m_A99(0.0); + double m_A100(0.0); + double m_A101(0.0); + double m_A102(0.0); + double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); + double m_A111(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -14917,148 +16458,588 @@ static void nl_gcr_7388106355fb27c3_12_double_double(double * __restrict V, cons RHS0 -= go[1] * *cnV[1]; m_A2 += gt[2]; m_A2 += gt[3]; - m_A2 += gt[4]; - m_A2 += gt[5]; - m_A2 += gt[6]; - m_A4 += go[2]; - m_A3 += go[3]; - m_A3 += go[4]; + m_A3 += go[2]; double RHS1 = Idr[2]; RHS1 += Idr[3]; - RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 -= go[5] * *cnV[5]; - RHS1 -= go[6] * *cnV[6]; + RHS1 -= go[3] * *cnV[3]; + m_A4 += gt[4]; + m_A4 += gt[5]; + m_A5 += go[4]; + double RHS2 = Idr[4]; + RHS2 += Idr[5]; + RHS2 -= go[5] * *cnV[5]; + m_A6 += gt[6]; m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A7 += go[7]; - m_A7 += go[8]; - m_A5 += go[9]; - m_A5 += go[10]; - double RHS2 = Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 += Idr[11]; - RHS2 -= go[11] * *cnV[11]; - m_A11 += gt[12]; - m_A11 += gt[13]; - m_A11 += gt[14]; - m_A11 += gt[15]; - m_A10 += go[12]; - m_A10 += go[13]; - m_A9 += go[14]; - m_A8 += go[15]; - double RHS3 = Idr[12]; - RHS3 += Idr[13]; - RHS3 += Idr[14]; - RHS3 += Idr[15]; - const double f0 = 1.0 / m_A0; - const double f0_3 = -f0 * m_A8; - m_A11 += m_A1 * f0_3; - RHS3 += f0_3 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A5; - m_A6 += m_A3 * f1_2; - m_A7 += m_A4 * f1_2; - RHS2 += f1_2 * RHS1; - const double f1_3 = -f1 * m_A9; - m_A10 += m_A3 * f1_3; - m_A11 += m_A4 * f1_3; - RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A6; - const double f2_3 = -f2 * m_A10; - m_A11 += m_A7 * f2_3; - RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A11; - double tmp2 = 0.0; - tmp2 += m_A7 * V[3]; - V[2] = (RHS2 - tmp2) / m_A6; - double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; - tmp1 += m_A4 * V[3]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[3]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// tp1985 -static void nl_gcr_73f2ba8ad4a45b26_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A2 += gt[5]; - m_A3 += go[3]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 -= go[4] * *cnV[4]; - RHS1 -= go[5] * *cnV[5]; - m_A5 += gt[6]; - m_A5 += gt[7]; - m_A6 += go[6]; - m_A4 += go[7]; - double RHS2 = Idr[6]; - RHS2 += Idr[7]; - m_A9 += gt[8]; - m_A9 += gt[9]; - m_A7 += go[8]; - m_A8 += go[9]; - double RHS3 = Idr[8]; - RHS3 += Idr[9]; + m_A7 += go[6]; + double RHS3 = Idr[6]; + RHS3 += Idr[7]; + RHS3 -= go[7] * *cnV[7]; + m_A8 += gt[8]; + m_A8 += gt[9]; + m_A9 += go[8]; + double RHS4 = Idr[8]; + RHS4 += Idr[9]; + RHS4 -= go[9] * *cnV[9]; + m_A10 += gt[10]; + m_A10 += gt[11]; + m_A12 += go[10]; + m_A11 += go[11]; + double RHS5 = Idr[10]; + RHS5 += Idr[11]; + m_A13 += gt[12]; + m_A13 += gt[13]; + m_A15 += go[12]; + m_A14 += go[13]; + double RHS6 = Idr[12]; + RHS6 += Idr[13]; + m_A17 += gt[14]; + m_A17 += gt[15]; + m_A17 += gt[16]; + m_A16 += go[14]; + m_A18 += go[15]; + double RHS7 = Idr[14]; + RHS7 += Idr[15]; + RHS7 += Idr[16]; + RHS7 -= go[16] * *cnV[16]; + m_A21 += gt[17]; + m_A21 += gt[18]; + m_A21 += gt[19]; + m_A20 += go[17]; + m_A22 += go[18]; + double RHS8 = Idr[17]; + RHS8 += Idr[18]; + RHS8 += Idr[19]; + RHS8 -= go[19] * *cnV[19]; + m_A25 += gt[20]; + m_A25 += gt[21]; + m_A25 += gt[22]; + m_A24 += go[20]; + m_A26 += go[21]; + double RHS9 = Idr[20]; + RHS9 += Idr[21]; + RHS9 += Idr[22]; + RHS9 -= go[22] * *cnV[22]; + m_A29 += gt[23]; + m_A29 += gt[24]; + m_A29 += gt[25]; + m_A28 += go[23]; + m_A30 += go[24]; + double RHS10 = Idr[23]; + RHS10 += Idr[24]; + RHS10 += Idr[25]; + RHS10 -= go[25] * *cnV[25]; + m_A32 += gt[26]; + m_A32 += gt[27]; + m_A32 += gt[28]; + m_A34 += go[26]; + m_A33 += go[27]; + double RHS11 = Idr[26]; + RHS11 += Idr[27]; + RHS11 += Idr[28]; + RHS11 -= go[28] * *cnV[28]; + m_A35 += gt[29]; + m_A35 += gt[30]; + m_A35 += gt[31]; + m_A37 += go[29]; + m_A36 += go[30]; + double RHS12 = Idr[29]; + RHS12 += Idr[30]; + RHS12 += Idr[31]; + RHS12 -= go[31] * *cnV[31]; + m_A40 += gt[32]; + m_A40 += gt[33]; + m_A38 += go[32]; + m_A39 += go[33]; + double RHS13 = Idr[32]; + RHS13 += Idr[33]; + m_A44 += gt[34]; + m_A44 += gt[35]; + m_A42 += go[34]; + m_A43 += go[35]; + double RHS14 = Idr[34]; + RHS14 += Idr[35]; + m_A47 += gt[36]; + m_A47 += gt[37]; + m_A47 += gt[38]; + m_A46 += go[36]; + m_A48 += go[37]; + double RHS15 = Idr[36]; + RHS15 += Idr[37]; + RHS15 += Idr[38]; + RHS15 -= go[38] * *cnV[38]; + m_A50 += gt[39]; + m_A50 += gt[40]; + m_A49 += go[39]; + m_A51 += go[40]; + double RHS16 = Idr[39]; + RHS16 += Idr[40]; + m_A52 += gt[41]; + m_A52 += gt[42]; + m_A52 += gt[43]; + m_A52 += gt[44]; + m_A52 += gt[45]; + m_A53 += go[41]; + m_A54 += go[42]; + m_A54 += go[43]; + double RHS17 = Idr[41]; + RHS17 += Idr[42]; + RHS17 += Idr[43]; + RHS17 += Idr[44]; + RHS17 += Idr[45]; + RHS17 -= go[44] * *cnV[44]; + RHS17 -= go[45] * *cnV[45]; + m_A56 += gt[46]; + m_A56 += gt[47]; + m_A56 += gt[48]; + m_A56 += gt[49]; + m_A57 += go[46]; + m_A58 += go[47]; + m_A55 += go[48]; + double RHS18 = Idr[46]; + RHS18 += Idr[47]; + RHS18 += Idr[48]; + RHS18 += Idr[49]; + RHS18 -= go[49] * *cnV[49]; + m_A60 += gt[50]; + m_A60 += gt[51]; + m_A60 += gt[52]; + m_A60 += gt[53]; + m_A61 += go[50]; + m_A62 += go[51]; + m_A59 += go[52]; + double RHS19 = Idr[50]; + RHS19 += Idr[51]; + RHS19 += Idr[52]; + RHS19 += Idr[53]; + RHS19 -= go[53] * *cnV[53]; + m_A63 += gt[54]; + m_A63 += gt[55]; + m_A63 += gt[56]; + m_A63 += gt[57]; + m_A63 += gt[58]; + m_A64 += go[54]; + m_A65 += go[55]; + m_A65 += go[56]; + double RHS20 = Idr[54]; + RHS20 += Idr[55]; + RHS20 += Idr[56]; + RHS20 += Idr[57]; + RHS20 += Idr[58]; + RHS20 -= go[57] * *cnV[57]; + RHS20 -= go[58] * *cnV[58]; + m_A66 += gt[59]; + m_A66 += gt[60]; + m_A66 += gt[61]; + m_A66 += gt[62]; + m_A67 += go[59]; + m_A68 += go[60]; + m_A68 += go[61]; + double RHS21 = Idr[59]; + RHS21 += Idr[60]; + RHS21 += Idr[61]; + RHS21 += Idr[62]; + RHS21 -= go[62] * *cnV[62]; + m_A71 += gt[63]; + m_A71 += gt[64]; + m_A71 += gt[65]; + m_A71 += gt[66]; + m_A71 += gt[67]; + m_A69 += go[63]; + m_A70 += go[64]; + m_A72 += go[65]; + m_A72 += go[66]; + double RHS22 = Idr[63]; + RHS22 += Idr[64]; + RHS22 += Idr[65]; + RHS22 += Idr[66]; + RHS22 += Idr[67]; + RHS22 -= go[67] * *cnV[67]; + m_A76 += gt[68]; + m_A76 += gt[69]; + m_A76 += gt[70]; + m_A76 += gt[71]; + m_A76 += gt[72]; + m_A73 += go[68]; + m_A75 += go[69]; + m_A78 += go[70]; + m_A78 += go[71]; + m_A74 += go[72]; + double RHS23 = Idr[68]; + RHS23 += Idr[69]; + RHS23 += Idr[70]; + RHS23 += Idr[71]; + RHS23 += Idr[72]; + m_A82 += gt[73]; + m_A82 += gt[74]; + m_A82 += gt[75]; + m_A82 += gt[76]; + m_A82 += gt[77]; + m_A79 += go[73]; + m_A81 += go[74]; + m_A83 += go[75]; + m_A83 += go[76]; + m_A80 += go[77]; + double RHS24 = Idr[73]; + RHS24 += Idr[74]; + RHS24 += Idr[75]; + RHS24 += Idr[76]; + RHS24 += Idr[77]; + m_A90 += gt[78]; + m_A90 += gt[79]; + m_A90 += gt[80]; + m_A90 += gt[81]; + m_A90 += gt[82]; + m_A90 += gt[83]; + m_A90 += gt[84]; + m_A90 += gt[85]; + m_A89 += go[78]; + m_A89 += go[79]; + m_A88 += go[80]; + m_A88 += go[81]; + m_A85 += go[82]; + m_A87 += go[83]; + double RHS25 = Idr[78]; + RHS25 += Idr[79]; + RHS25 += Idr[80]; + RHS25 += Idr[81]; + RHS25 += Idr[82]; + RHS25 += Idr[83]; + RHS25 += Idr[84]; + RHS25 += Idr[85]; + RHS25 -= go[84] * *cnV[84]; + RHS25 -= go[85] * *cnV[85]; + m_A103 += gt[86]; + m_A103 += gt[87]; + m_A103 += gt[88]; + m_A103 += gt[89]; + m_A103 += gt[90]; + m_A103 += gt[91]; + m_A103 += gt[92]; + m_A103 += gt[93]; + m_A99 += go[86]; + m_A99 += go[87]; + m_A98 += go[88]; + m_A98 += go[89]; + m_A92 += go[90]; + m_A93 += go[91]; + double RHS26 = Idr[86]; + RHS26 += Idr[87]; + RHS26 += Idr[88]; + RHS26 += Idr[89]; + RHS26 += Idr[90]; + RHS26 += Idr[91]; + RHS26 += Idr[92]; + RHS26 += Idr[93]; + RHS26 -= go[92] * *cnV[92]; + RHS26 -= go[93] * *cnV[93]; + m_A111 += gt[94]; + m_A111 += gt[95]; + m_A111 += gt[96]; + m_A111 += gt[97]; + m_A111 += gt[98]; + m_A111 += gt[99]; + m_A111 += gt[100]; + m_A111 += gt[101]; + m_A109 += go[94]; + m_A109 += go[95]; + m_A108 += go[96]; + m_A108 += go[97]; + m_A105 += go[98]; + m_A107 += go[99]; + double RHS27 = Idr[94]; + RHS27 += Idr[95]; + RHS27 += Idr[96]; + RHS27 += Idr[97]; + RHS27 += Idr[98]; + RHS27 += Idr[99]; + RHS27 += Idr[100]; + RHS27 += Idr[101]; + RHS27 -= go[100] * *cnV[100]; + RHS27 -= go[101] * *cnV[101]; const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A5 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; + const double f0_15 = -f0 * m_A46; + m_A47 += m_A1 * f0_15; + RHS15 += f0_15 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A7; - m_A9 += m_A3 * f1_3; - RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A5; - const double f2_3 = -f2 * m_A8; - m_A9 += m_A6 * f2_3; - RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A9; + const double f1_13 = -f1 * m_A38; + m_A40 += m_A3 * f1_13; + RHS13 += f1_13 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_14 = -f2 * m_A42; + m_A44 += m_A5 * f2_14; + RHS14 += f2_14 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_18 = -f3 * m_A55; + m_A56 += m_A7 * f3_18; + RHS18 += f3_18 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_19 = -f4 * m_A59; + m_A60 += m_A9 * f4_19; + RHS19 += f4_19 * RHS4; + const double f5 = 1.0 / m_A10; + const double f5_7 = -f5 * m_A16; + m_A17 += m_A11 * f5_7; + m_A19 += m_A12 * f5_7; + RHS7 += f5_7 * RHS5; + const double f5_26 = -f5 * m_A92; + m_A94 += m_A11 * f5_26; + m_A103 += m_A12 * f5_26; + RHS26 += f5_26 * RHS5; + const double f6 = 1.0 / m_A13; + const double f6_8 = -f6 * m_A20; + m_A21 += m_A14 * f6_8; + m_A23 += m_A15 * f6_8; + RHS8 += f6_8 * RHS6; + const double f6_26 = -f6 * m_A93; + m_A95 += m_A14 * f6_26; + m_A103 += m_A15 * f6_26; + RHS26 += f6_26 * RHS6; + const double f7 = 1.0 / m_A17; + const double f7_9 = -f7 * m_A24; + m_A25 += m_A18 * f7_9; + m_A27 += m_A19 * f7_9; + RHS9 += f7_9 * RHS7; + const double f7_26 = -f7 * m_A94; + m_A96 += m_A18 * f7_26; + m_A103 += m_A19 * f7_26; + RHS26 += f7_26 * RHS7; + const double f8 = 1.0 / m_A21; + const double f8_10 = -f8 * m_A28; + m_A29 += m_A22 * f8_10; + m_A31 += m_A23 * f8_10; + RHS10 += f8_10 * RHS8; + const double f8_26 = -f8 * m_A95; + m_A97 += m_A22 * f8_26; + m_A103 += m_A23 * f8_26; + RHS26 += f8_26 * RHS8; + const double f9 = 1.0 / m_A25; + const double f9_23 = -f9 * m_A73; + m_A76 += m_A26 * f9_23; + m_A77 += m_A27 * f9_23; + RHS23 += f9_23 * RHS9; + const double f9_26 = -f9 * m_A96; + m_A100 += m_A26 * f9_26; + m_A103 += m_A27 * f9_26; + RHS26 += f9_26 * RHS9; + const double f10 = 1.0 / m_A29; + const double f10_24 = -f10 * m_A79; + m_A82 += m_A30 * f10_24; + m_A84 += m_A31 * f10_24; + RHS24 += f10_24 * RHS10; + const double f10_26 = -f10 * m_A97; + m_A101 += m_A30 * f10_26; + m_A103 += m_A31 * f10_26; + RHS26 += f10_26 * RHS10; + const double f11 = 1.0 / m_A32; + const double f11_13 = -f11 * m_A39; + m_A40 += m_A33 * f11_13; + m_A41 += m_A34 * f11_13; + RHS13 += f11_13 * RHS11; + const double f11_27 = -f11 * m_A105; + m_A106 += m_A33 * f11_27; + m_A111 += m_A34 * f11_27; + RHS27 += f11_27 * RHS11; + const double f12 = 1.0 / m_A35; + const double f12_14 = -f12 * m_A43; + m_A44 += m_A36 * f12_14; + m_A45 += m_A37 * f12_14; + RHS14 += f12_14 * RHS12; + const double f12_25 = -f12 * m_A85; + m_A86 += m_A36 * f12_25; + m_A90 += m_A37 * f12_25; + RHS25 += f12_25 * RHS12; + const double f13 = 1.0 / m_A40; + const double f13_27 = -f13 * m_A106; + m_A111 += m_A41 * f13_27; + RHS27 += f13_27 * RHS13; + const double f14 = 1.0 / m_A44; + const double f14_25 = -f14 * m_A86; + m_A90 += m_A45 * f14_25; + RHS25 += f14_25 * RHS14; + const double f15 = 1.0 / m_A47; + const double f15_16 = -f15 * m_A49; + m_A50 += m_A48 * f15_16; + RHS16 += f15_16 * RHS15; + const double f16 = 1.0 / m_A50; + const double f16_22 = -f16 * m_A69; + m_A71 += m_A51 * f16_22; + RHS22 += f16_22 * RHS16; + const double f17 = 1.0 / m_A52; + const double f17_22 = -f17 * m_A70; + m_A71 += m_A53 * f17_22; + m_A72 += m_A54 * f17_22; + RHS22 += f17_22 * RHS17; + const double f17_26 = -f17 * m_A98; + m_A99 += m_A53 * f17_26; + m_A103 += m_A54 * f17_26; + RHS26 += f17_26 * RHS17; + const double f18 = 1.0 / m_A56; + const double f18_23 = -f18 * m_A74; + m_A76 += m_A57 * f18_23; + m_A78 += m_A58 * f18_23; + RHS23 += f18_23 * RHS18; + const double f18_27 = -f18 * m_A107; + m_A109 += m_A57 * f18_27; + m_A111 += m_A58 * f18_27; + RHS27 += f18_27 * RHS18; + const double f19 = 1.0 / m_A60; + const double f19_24 = -f19 * m_A80; + m_A82 += m_A61 * f19_24; + m_A83 += m_A62 * f19_24; + RHS24 += f19_24 * RHS19; + const double f19_25 = -f19 * m_A87; + m_A89 += m_A61 * f19_25; + m_A90 += m_A62 * f19_25; + RHS25 += f19_25 * RHS19; + const double f20 = 1.0 / m_A63; + const double f20_23 = -f20 * m_A75; + m_A76 += m_A64 * f20_23; + m_A78 += m_A65 * f20_23; + RHS23 += f20_23 * RHS20; + const double f20_27 = -f20 * m_A108; + m_A109 += m_A64 * f20_27; + m_A111 += m_A65 * f20_27; + RHS27 += f20_27 * RHS20; + const double f21 = 1.0 / m_A66; + const double f21_24 = -f21 * m_A81; + m_A82 += m_A67 * f21_24; + m_A83 += m_A68 * f21_24; + RHS24 += f21_24 * RHS21; + const double f21_25 = -f21 * m_A88; + m_A89 += m_A67 * f21_25; + m_A90 += m_A68 * f21_25; + RHS25 += f21_25 * RHS21; + const double f22 = 1.0 / m_A71; + const double f22_26 = -f22 * m_A99; + m_A103 += m_A72 * f22_26; + RHS26 += f22_26 * RHS22; + const double f23 = 1.0 / m_A76; + const double f23_26 = -f23 * m_A100; + m_A103 += m_A77 * f23_26; + m_A104 += m_A78 * f23_26; + RHS26 += f23_26 * RHS23; + const double f23_27 = -f23 * m_A109; + m_A110 += m_A77 * f23_27; + m_A111 += m_A78 * f23_27; + RHS27 += f23_27 * RHS23; + const double f24 = 1.0 / m_A82; + const double f24_25 = -f24 * m_A89; + m_A90 += m_A83 * f24_25; + m_A91 += m_A84 * f24_25; + RHS25 += f24_25 * RHS24; + const double f24_26 = -f24 * m_A101; + m_A102 += m_A83 * f24_26; + m_A103 += m_A84 * f24_26; + RHS26 += f24_26 * RHS24; + const double f25 = 1.0 / m_A90; + const double f25_26 = -f25 * m_A102; + m_A103 += m_A91 * f25_26; + RHS26 += f25_26 * RHS25; + const double f26 = 1.0 / m_A103; + const double f26_27 = -f26 * m_A110; + m_A111 += m_A104 * f26_27; + RHS27 += f26_27 * RHS26; + V[27] = RHS27 / m_A111; + double tmp26 = 0.0; + tmp26 += m_A104 * V[27]; + V[26] = (RHS26 - tmp26) / m_A103; + double tmp25 = 0.0; + tmp25 += m_A91 * V[26]; + V[25] = (RHS25 - tmp25) / m_A90; + double tmp24 = 0.0; + tmp24 += m_A83 * V[25]; + tmp24 += m_A84 * V[26]; + V[24] = (RHS24 - tmp24) / m_A82; + double tmp23 = 0.0; + tmp23 += m_A77 * V[26]; + tmp23 += m_A78 * V[27]; + V[23] = (RHS23 - tmp23) / m_A76; + double tmp22 = 0.0; + tmp22 += m_A72 * V[26]; + V[22] = (RHS22 - tmp22) / m_A71; + double tmp21 = 0.0; + tmp21 += m_A67 * V[24]; + tmp21 += m_A68 * V[25]; + V[21] = (RHS21 - tmp21) / m_A66; + double tmp20 = 0.0; + tmp20 += m_A64 * V[23]; + tmp20 += m_A65 * V[27]; + V[20] = (RHS20 - tmp20) / m_A63; + double tmp19 = 0.0; + tmp19 += m_A61 * V[24]; + tmp19 += m_A62 * V[25]; + V[19] = (RHS19 - tmp19) / m_A60; + double tmp18 = 0.0; + tmp18 += m_A57 * V[23]; + tmp18 += m_A58 * V[27]; + V[18] = (RHS18 - tmp18) / m_A56; + double tmp17 = 0.0; + tmp17 += m_A53 * V[22]; + tmp17 += m_A54 * V[26]; + V[17] = (RHS17 - tmp17) / m_A52; + double tmp16 = 0.0; + tmp16 += m_A51 * V[22]; + V[16] = (RHS16 - tmp16) / m_A50; + double tmp15 = 0.0; + tmp15 += m_A48 * V[16]; + V[15] = (RHS15 - tmp15) / m_A47; + double tmp14 = 0.0; + tmp14 += m_A45 * V[25]; + V[14] = (RHS14 - tmp14) / m_A44; + double tmp13 = 0.0; + tmp13 += m_A41 * V[27]; + V[13] = (RHS13 - tmp13) / m_A40; + double tmp12 = 0.0; + tmp12 += m_A36 * V[14]; + tmp12 += m_A37 * V[25]; + V[12] = (RHS12 - tmp12) / m_A35; + double tmp11 = 0.0; + tmp11 += m_A33 * V[13]; + tmp11 += m_A34 * V[27]; + V[11] = (RHS11 - tmp11) / m_A32; + double tmp10 = 0.0; + tmp10 += m_A30 * V[24]; + tmp10 += m_A31 * V[26]; + V[10] = (RHS10 - tmp10) / m_A29; + double tmp9 = 0.0; + tmp9 += m_A26 * V[23]; + tmp9 += m_A27 * V[26]; + V[9] = (RHS9 - tmp9) / m_A25; + double tmp8 = 0.0; + tmp8 += m_A22 * V[10]; + tmp8 += m_A23 * V[26]; + V[8] = (RHS8 - tmp8) / m_A21; + double tmp7 = 0.0; + tmp7 += m_A18 * V[9]; + tmp7 += m_A19 * V[26]; + V[7] = (RHS7 - tmp7) / m_A17; + double tmp6 = 0.0; + tmp6 += m_A14 * V[8]; + tmp6 += m_A15 * V[26]; + V[6] = (RHS6 - tmp6) / m_A13; + double tmp5 = 0.0; + tmp5 += m_A11 * V[7]; + tmp5 += m_A12 * V[26]; + V[5] = (RHS5 - tmp5) / m_A10; + double tmp4 = 0.0; + tmp4 += m_A9 * V[19]; + V[4] = (RHS4 - tmp4) / m_A8; + double tmp3 = 0.0; + tmp3 += m_A7 * V[18]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A6 * V[3]; - V[2] = (RHS2 - tmp2) / m_A5; + tmp2 += m_A5 * V[14]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[3]; + tmp1 += m_A3 * V[13]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; + tmp0 += m_A1 * V[15]; V[0] = (RHS0 - tmp0) / m_A0; } -// zac1b11142 -static void nl_gcr_7425594cec8024ad_30_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// ripoff +static void nl_gcr_76c9e236353caed1_35_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -15093,194 +17074,221 @@ static void nl_gcr_7425594cec8024ad_30_double_double(double * __restrict V, cons double m_A27(0.0); double m_A28(0.0); double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; m_A0 += gt[3]; m_A0 += gt[4]; - m_A0 += gt[5]; - m_A0 += gt[6]; - m_A1 += go[0]; + m_A3 += go[0]; + m_A2 += go[1]; + m_A1 += go[2]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; RHS0 += Idr[3]; RHS0 += Idr[4]; - RHS0 += Idr[5]; - RHS0 += Idr[6]; - RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; RHS0 -= go[3] * *cnV[3]; RHS0 -= go[4] * *cnV[4]; - RHS0 -= go[5] * *cnV[5]; - RHS0 -= go[6] * *cnV[6]; - m_A2 += gt[7]; - m_A2 += gt[8]; - m_A2 += gt[9]; - m_A3 += go[7]; - double RHS1 = Idr[7]; + m_A4 += gt[5]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; + m_A4 += gt[9]; + m_A4 += gt[10]; + m_A4 += gt[11]; + m_A5 += go[5]; + double RHS1 = Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; RHS1 += Idr[8]; RHS1 += Idr[9]; + RHS1 += Idr[10]; + RHS1 += Idr[11]; + RHS1 -= go[6] * *cnV[6]; + RHS1 -= go[7] * *cnV[7]; RHS1 -= go[8] * *cnV[8]; RHS1 -= go[9] * *cnV[9]; - m_A4 += gt[10]; - m_A4 += gt[11]; - m_A5 += go[10]; - double RHS2 = Idr[10]; - RHS2 += Idr[11]; - RHS2 -= go[11] * *cnV[11]; + RHS1 -= go[10] * *cnV[10]; + RHS1 -= go[11] * *cnV[11]; m_A6 += gt[12]; m_A6 += gt[13]; m_A6 += gt[14]; - m_A7 += go[12]; - double RHS3 = Idr[12]; - RHS3 += Idr[13]; - RHS3 += Idr[14]; - RHS3 -= go[13] * *cnV[13]; - RHS3 -= go[14] * *cnV[14]; - m_A8 += gt[15]; - m_A8 += gt[16]; - m_A8 += gt[17]; - m_A9 += go[15]; - double RHS4 = Idr[15]; - RHS4 += Idr[16]; - RHS4 += Idr[17]; - RHS4 -= go[16] * *cnV[16]; - RHS4 -= go[17] * *cnV[17]; - m_A11 += gt[18]; - m_A11 += gt[19]; - m_A11 += gt[20]; - m_A11 += gt[21]; - m_A11 += gt[22]; - m_A11 += gt[23]; - m_A10 += go[18]; - m_A12 += go[19]; - m_A12 += go[20]; - double RHS5 = Idr[18]; - RHS5 += Idr[19]; - RHS5 += Idr[20]; - RHS5 += Idr[21]; - RHS5 += Idr[22]; - RHS5 += Idr[23]; - RHS5 -= go[21] * *cnV[21]; - RHS5 -= go[22] * *cnV[22]; - RHS5 -= go[23] * *cnV[23]; - m_A16 += gt[24]; - m_A16 += gt[25]; - m_A15 += go[24]; - m_A14 += go[25]; - double RHS6 = Idr[24]; - RHS6 += Idr[25]; - m_A18 += gt[26]; - m_A18 += gt[27]; - m_A19 += go[26]; - m_A17 += go[27]; - double RHS7 = Idr[26]; - RHS7 += Idr[27]; - m_A25 += gt[28]; - m_A25 += gt[29]; - m_A25 += gt[30]; - m_A25 += gt[31]; - m_A25 += gt[32]; - m_A25 += gt[33]; - m_A23 += go[28]; - m_A22 += go[29]; - m_A22 += go[30]; - m_A24 += go[31]; - m_A21 += go[32]; - m_A20 += go[33]; - double RHS8 = Idr[28]; - RHS8 += Idr[29]; - RHS8 += Idr[30]; - RHS8 += Idr[31]; - RHS8 += Idr[32]; - RHS8 += Idr[33]; - m_A29 += gt[34]; - m_A29 += gt[35]; - m_A29 += gt[36]; - m_A29 += gt[37]; - m_A28 += go[34]; - m_A27 += go[35]; - double RHS9 = Idr[34]; - RHS9 += Idr[35]; - RHS9 += Idr[36]; - RHS9 += Idr[37]; - RHS9 -= go[36] * *cnV[36]; - RHS9 -= go[37] * *cnV[37]; + m_A6 += gt[15]; + m_A6 += gt[16]; + m_A10 += go[12]; + m_A9 += go[13]; + m_A8 += go[14]; + m_A7 += go[15]; + double RHS2 = Idr[12]; + RHS2 += Idr[13]; + RHS2 += Idr[14]; + RHS2 += Idr[15]; + RHS2 += Idr[16]; + RHS2 -= go[16] * *cnV[16]; + m_A13 += gt[17]; + m_A13 += gt[18]; + m_A13 += gt[19]; + m_A13 += gt[20]; + m_A12 += go[17]; + m_A11 += go[18]; + double RHS3 = Idr[17]; + RHS3 += Idr[18]; + RHS3 += Idr[19]; + RHS3 += Idr[20]; + RHS3 -= go[19] * *cnV[19]; + RHS3 -= go[20] * *cnV[20]; + m_A20 += gt[21]; + m_A20 += gt[22]; + m_A20 += gt[23]; + m_A20 += gt[24]; + m_A18 += go[21]; + m_A17 += go[22]; + double RHS4 = Idr[21]; + RHS4 += Idr[22]; + RHS4 += Idr[23]; + RHS4 += Idr[24]; + RHS4 -= go[23] * *cnV[23]; + RHS4 -= go[24] * *cnV[24]; + m_A27 += gt[25]; + m_A27 += gt[26]; + m_A27 += gt[27]; + m_A27 += gt[28]; + m_A24 += go[25]; + m_A23 += go[26]; + double RHS5 = Idr[25]; + RHS5 += Idr[26]; + RHS5 += Idr[27]; + RHS5 += Idr[28]; + RHS5 -= go[27] * *cnV[27]; + RHS5 -= go[28] * *cnV[28]; + m_A34 += gt[29]; + m_A34 += gt[30]; + m_A34 += gt[31]; + m_A34 += gt[32]; + m_A34 += gt[33]; + m_A34 += gt[34]; + m_A29 += go[29]; + m_A30 += go[30]; + double RHS6 = Idr[29]; + RHS6 += Idr[30]; + RHS6 += Idr[31]; + RHS6 += Idr[32]; + RHS6 += Idr[33]; + RHS6 += Idr[34]; + RHS6 -= go[31] * *cnV[31]; + RHS6 -= go[32] * *cnV[32]; + RHS6 -= go[33] * *cnV[33]; + RHS6 -= go[34] * *cnV[34]; const double f0 = 1.0 / m_A0; - const double f0_5 = -f0 * m_A10; - m_A13 += m_A1 * f0_5; + const double f0_3 = -f0 * m_A11; + m_A13 += m_A1 * f0_3; + m_A14 += m_A2 * f0_3; + m_A15 += m_A3 * f0_3; + RHS3 += f0_3 * RHS0; + const double f0_4 = -f0 * m_A17; + m_A19 += m_A1 * f0_4; + m_A20 += m_A2 * f0_4; + m_A21 += m_A3 * f0_4; + RHS4 += f0_4 * RHS0; + const double f0_5 = -f0 * m_A23; + m_A25 += m_A1 * f0_5; + m_A26 += m_A2 * f0_5; + m_A27 += m_A3 * f0_5; RHS5 += f0_5 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_7 = -f1 * m_A17; - m_A18 += m_A3 * f1_7; - RHS7 += f1_7 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_6 = -f2 * m_A14; - m_A16 += m_A5 * f2_6; + const double f1 = 1.0 / m_A4; + const double f1_6 = -f1 * m_A29; + m_A30 += m_A5 * f1_6; + RHS6 += f1_6 * RHS1; + const double f2 = 1.0 / m_A6; + const double f2_3 = -f2 * m_A12; + m_A13 += m_A7 * f2_3; + m_A14 += m_A8 * f2_3; + m_A15 += m_A9 * f2_3; + m_A16 += m_A10 * f2_3; + RHS3 += f2_3 * RHS2; + const double f2_4 = -f2 * m_A18; + m_A19 += m_A7 * f2_4; + m_A20 += m_A8 * f2_4; + m_A21 += m_A9 * f2_4; + m_A22 += m_A10 * f2_4; + RHS4 += f2_4 * RHS2; + const double f2_5 = -f2 * m_A24; + m_A25 += m_A7 * f2_5; + m_A26 += m_A8 * f2_5; + m_A27 += m_A9 * f2_5; + m_A28 += m_A10 * f2_5; + RHS5 += f2_5 * RHS2; + const double f2_6 = -f2 * m_A30; + m_A31 += m_A7 * f2_6; + m_A32 += m_A8 * f2_6; + m_A33 += m_A9 * f2_6; + m_A34 += m_A10 * f2_6; RHS6 += f2_6 * RHS2; - const double f2_8 = -f2 * m_A20; - m_A23 += m_A5 * f2_8; - RHS8 += f2_8 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_6 = -f3 * m_A15; - m_A16 += m_A7 * f3_6; + const double f3 = 1.0 / m_A13; + const double f3_4 = -f3 * m_A19; + m_A20 += m_A14 * f3_4; + m_A21 += m_A15 * f3_4; + m_A22 += m_A16 * f3_4; + RHS4 += f3_4 * RHS3; + const double f3_5 = -f3 * m_A25; + m_A26 += m_A14 * f3_5; + m_A27 += m_A15 * f3_5; + m_A28 += m_A16 * f3_5; + RHS5 += f3_5 * RHS3; + const double f3_6 = -f3 * m_A31; + m_A32 += m_A14 * f3_6; + m_A33 += m_A15 * f3_6; + m_A34 += m_A16 * f3_6; RHS6 += f3_6 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_8 = -f4 * m_A21; - m_A25 += m_A9 * f4_8; - RHS8 += f4_8 * RHS4; - const double f4_9 = -f4 * m_A27; - m_A28 += m_A9 * f4_9; - RHS9 += f4_9 * RHS4; - const double f5 = 1.0 / m_A11; - const double f5_8 = -f5 * m_A22; - m_A25 += m_A12 * f5_8; - m_A26 += m_A13 * f5_8; - RHS8 += f5_8 * RHS5; - const double f6 = 1.0 / m_A16; - const double f6_8 = -f6 * m_A23; - RHS8 += f6_8 * RHS6; - const double f7 = 1.0 / m_A18; - const double f7_8 = -f7 * m_A24; - m_A25 += m_A19 * f7_8; - RHS8 += f7_8 * RHS7; - const double f8 = 1.0 / m_A25; - const double f8_9 = -f8 * m_A28; - m_A29 += m_A26 * f8_9; - RHS9 += f8_9 * RHS8; - V[9] = RHS9 / m_A29; - double tmp8 = 0.0; - tmp8 += m_A26 * V[9]; - V[8] = (RHS8 - tmp8) / m_A25; - double tmp7 = 0.0; - tmp7 += m_A19 * V[8]; - V[7] = (RHS7 - tmp7) / m_A18; - double tmp6 = 0.0; - V[6] = (RHS6 - tmp6) / m_A16; + const double f4 = 1.0 / m_A20; + const double f4_5 = -f4 * m_A26; + m_A27 += m_A21 * f4_5; + m_A28 += m_A22 * f4_5; + RHS5 += f4_5 * RHS4; + const double f4_6 = -f4 * m_A32; + m_A33 += m_A21 * f4_6; + m_A34 += m_A22 * f4_6; + RHS6 += f4_6 * RHS4; + const double f5 = 1.0 / m_A27; + const double f5_6 = -f5 * m_A33; + m_A34 += m_A28 * f5_6; + RHS6 += f5_6 * RHS5; + V[6] = RHS6 / m_A34; double tmp5 = 0.0; - tmp5 += m_A12 * V[8]; - tmp5 += m_A13 * V[9]; - V[5] = (RHS5 - tmp5) / m_A11; + tmp5 += m_A28 * V[6]; + V[5] = (RHS5 - tmp5) / m_A27; double tmp4 = 0.0; - tmp4 += m_A9 * V[8]; - V[4] = (RHS4 - tmp4) / m_A8; - double tmp3 = 0.0; - tmp3 += m_A7 * V[6]; - V[3] = (RHS3 - tmp3) / m_A6; + tmp4 += m_A21 * V[5]; + tmp4 += m_A22 * V[6]; + V[4] = (RHS4 - tmp4) / m_A20; + double tmp3 = 0.0; + tmp3 += m_A14 * V[4]; + tmp3 += m_A15 * V[5]; + tmp3 += m_A16 * V[6]; + V[3] = (RHS3 - tmp3) / m_A13; double tmp2 = 0.0; - tmp2 += m_A5 * V[6]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A7 * V[3]; + tmp2 += m_A8 * V[4]; + tmp2 += m_A9 * V[5]; + tmp2 += m_A10 * V[6]; + V[2] = (RHS2 - tmp2) / m_A6; double tmp1 = 0.0; - tmp1 += m_A3 * V[7]; - V[1] = (RHS1 - tmp1) / m_A2; + tmp1 += m_A5 * V[2]; + V[1] = (RHS1 - tmp1) / m_A4; double tmp0 = 0.0; - tmp0 += m_A1 * V[9]; + tmp0 += m_A1 * V[3]; + tmp0 += m_A2 * V[4]; + tmp0 += m_A3 * V[5]; V[0] = (RHS0 - tmp0) / m_A0; } -// tp1985 -static void nl_gcr_74349e9889a2630b_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// gamemachine +static void nl_gcr_782d79b5cbe953b1_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -15296,29 +17304,41 @@ static void nl_gcr_74349e9889a2630b_7_double_double(double * __restrict V, const m_A0 += gt[1]; m_A0 += gt[2]; m_A1 += go[0]; + m_A1 += go[1]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; - RHS0 -= go[1] * *cnV[1]; RHS0 -= go[2] * *cnV[2]; m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; + m_A2 += gt[6]; m_A3 += go[3]; + m_A3 += go[4]; double RHS1 = Idr[3]; RHS1 += Idr[4]; RHS1 += Idr[5]; - RHS1 -= go[4] * *cnV[4]; + RHS1 += Idr[6]; RHS1 -= go[5] * *cnV[5]; - m_A6 += gt[6]; + RHS1 -= go[6] * *cnV[6]; m_A6 += gt[7]; m_A6 += gt[8]; - m_A5 += go[6]; - m_A4 += go[7]; - double RHS2 = Idr[6]; - RHS2 += Idr[7]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A5 += go[7]; + m_A5 += go[8]; + m_A4 += go[9]; + m_A4 += go[10]; + double RHS2 = Idr[7]; RHS2 += Idr[8]; - RHS2 -= go[8] * *cnV[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 += Idr[11]; + RHS2 += Idr[12]; + RHS2 -= go[11] * *cnV[11]; + RHS2 -= go[12] * *cnV[12]; const double f0 = 1.0 / m_A0; const double f0_2 = -f0 * m_A4; m_A6 += m_A1 * f0_2; @@ -15336,8 +17356,8 @@ static void nl_gcr_74349e9889a2630b_7_double_double(double * __restrict V, const V[0] = (RHS0 - tmp0) / m_A0; } -// gunfight -static void nl_gcr_743595e64cee0a5e_112_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// barrier +static void nl_gcr_79e756c5892cf87d_31_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -15373,87 +17393,6 @@ static void nl_gcr_743595e64cee0a5e_112_double_double(double * __restrict V, con double m_A28(0.0); double m_A29(0.0); double m_A30(0.0); - double m_A31(0.0); - double m_A32(0.0); - double m_A33(0.0); - double m_A34(0.0); - double m_A35(0.0); - double m_A36(0.0); - double m_A37(0.0); - double m_A38(0.0); - double m_A39(0.0); - double m_A40(0.0); - double m_A41(0.0); - double m_A42(0.0); - double m_A43(0.0); - double m_A44(0.0); - double m_A45(0.0); - double m_A46(0.0); - double m_A47(0.0); - double m_A48(0.0); - double m_A49(0.0); - double m_A50(0.0); - double m_A51(0.0); - double m_A52(0.0); - double m_A53(0.0); - double m_A54(0.0); - double m_A55(0.0); - double m_A56(0.0); - double m_A57(0.0); - double m_A58(0.0); - double m_A59(0.0); - double m_A60(0.0); - double m_A61(0.0); - double m_A62(0.0); - double m_A63(0.0); - double m_A64(0.0); - double m_A65(0.0); - double m_A66(0.0); - double m_A67(0.0); - double m_A68(0.0); - double m_A69(0.0); - double m_A70(0.0); - double m_A71(0.0); - double m_A72(0.0); - double m_A73(0.0); - double m_A74(0.0); - double m_A75(0.0); - double m_A76(0.0); - double m_A77(0.0); - double m_A78(0.0); - double m_A79(0.0); - double m_A80(0.0); - double m_A81(0.0); - double m_A82(0.0); - double m_A83(0.0); - double m_A84(0.0); - double m_A85(0.0); - double m_A86(0.0); - double m_A87(0.0); - double m_A88(0.0); - double m_A89(0.0); - double m_A90(0.0); - double m_A91(0.0); - double m_A92(0.0); - double m_A93(0.0); - double m_A94(0.0); - double m_A95(0.0); - double m_A96(0.0); - double m_A97(0.0); - double m_A98(0.0); - double m_A99(0.0); - double m_A100(0.0); - double m_A101(0.0); - double m_A102(0.0); - double m_A103(0.0); - double m_A104(0.0); - double m_A105(0.0); - double m_A106(0.0); - double m_A107(0.0); - double m_A108(0.0); - double m_A109(0.0); - double m_A110(0.0); - double m_A111(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -15468,582 +17407,450 @@ static void nl_gcr_743595e64cee0a5e_112_double_double(double * __restrict V, con RHS1 -= go[3] * *cnV[3]; m_A4 += gt[4]; m_A4 += gt[5]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; + m_A4 += gt[9]; + m_A4 += gt[10]; m_A5 += go[4]; double RHS2 = Idr[4]; RHS2 += Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; RHS2 -= go[5] * *cnV[5]; - m_A6 += gt[6]; - m_A6 += gt[7]; - m_A7 += go[6]; - double RHS3 = Idr[6]; - RHS3 += Idr[7]; - RHS3 -= go[7] * *cnV[7]; - m_A8 += gt[8]; - m_A8 += gt[9]; - m_A9 += go[8]; - double RHS4 = Idr[8]; - RHS4 += Idr[9]; - RHS4 -= go[9] * *cnV[9]; - m_A10 += gt[10]; - m_A10 += gt[11]; - m_A12 += go[10]; - m_A11 += go[11]; - double RHS5 = Idr[10]; - RHS5 += Idr[11]; - m_A13 += gt[12]; - m_A13 += gt[13]; - m_A15 += go[12]; - m_A14 += go[13]; - double RHS6 = Idr[12]; - RHS6 += Idr[13]; - m_A17 += gt[14]; - m_A17 += gt[15]; - m_A17 += gt[16]; - m_A16 += go[14]; - m_A18 += go[15]; - double RHS7 = Idr[14]; - RHS7 += Idr[15]; - RHS7 += Idr[16]; - RHS7 -= go[16] * *cnV[16]; - m_A21 += gt[17]; - m_A21 += gt[18]; - m_A21 += gt[19]; - m_A20 += go[17]; - m_A22 += go[18]; - double RHS8 = Idr[17]; - RHS8 += Idr[18]; - RHS8 += Idr[19]; - RHS8 -= go[19] * *cnV[19]; - m_A25 += gt[20]; - m_A25 += gt[21]; - m_A25 += gt[22]; - m_A24 += go[20]; - m_A26 += go[21]; - double RHS9 = Idr[20]; - RHS9 += Idr[21]; - RHS9 += Idr[22]; - RHS9 -= go[22] * *cnV[22]; - m_A29 += gt[23]; - m_A29 += gt[24]; - m_A29 += gt[25]; - m_A28 += go[23]; - m_A30 += go[24]; - double RHS10 = Idr[23]; - RHS10 += Idr[24]; - RHS10 += Idr[25]; - RHS10 -= go[25] * *cnV[25]; - m_A32 += gt[26]; - m_A32 += gt[27]; - m_A32 += gt[28]; - m_A34 += go[26]; - m_A33 += go[27]; - double RHS11 = Idr[26]; - RHS11 += Idr[27]; - RHS11 += Idr[28]; - RHS11 -= go[28] * *cnV[28]; - m_A35 += gt[29]; - m_A35 += gt[30]; - m_A35 += gt[31]; - m_A37 += go[29]; - m_A36 += go[30]; - double RHS12 = Idr[29]; - RHS12 += Idr[30]; - RHS12 += Idr[31]; - RHS12 -= go[31] * *cnV[31]; - m_A40 += gt[32]; - m_A40 += gt[33]; - m_A38 += go[32]; - m_A39 += go[33]; - double RHS13 = Idr[32]; - RHS13 += Idr[33]; - m_A44 += gt[34]; - m_A44 += gt[35]; - m_A42 += go[34]; - m_A43 += go[35]; - double RHS14 = Idr[34]; - RHS14 += Idr[35]; - m_A47 += gt[36]; - m_A47 += gt[37]; - m_A47 += gt[38]; - m_A46 += go[36]; - m_A48 += go[37]; - double RHS15 = Idr[36]; - RHS15 += Idr[37]; - RHS15 += Idr[38]; - RHS15 -= go[38] * *cnV[38]; - m_A50 += gt[39]; - m_A50 += gt[40]; - m_A49 += go[39]; - m_A51 += go[40]; - double RHS16 = Idr[39]; - RHS16 += Idr[40]; - m_A52 += gt[41]; - m_A52 += gt[42]; - m_A52 += gt[43]; - m_A52 += gt[44]; - m_A52 += gt[45]; - m_A53 += go[41]; - m_A54 += go[42]; - m_A54 += go[43]; - double RHS17 = Idr[41]; - RHS17 += Idr[42]; - RHS17 += Idr[43]; - RHS17 += Idr[44]; - RHS17 += Idr[45]; - RHS17 -= go[44] * *cnV[44]; - RHS17 -= go[45] * *cnV[45]; - m_A56 += gt[46]; - m_A56 += gt[47]; - m_A56 += gt[48]; - m_A56 += gt[49]; - m_A57 += go[46]; - m_A58 += go[47]; - m_A55 += go[48]; - double RHS18 = Idr[46]; - RHS18 += Idr[47]; - RHS18 += Idr[48]; - RHS18 += Idr[49]; - RHS18 -= go[49] * *cnV[49]; - m_A60 += gt[50]; - m_A60 += gt[51]; - m_A60 += gt[52]; - m_A60 += gt[53]; - m_A61 += go[50]; - m_A62 += go[51]; - m_A59 += go[52]; - double RHS19 = Idr[50]; - RHS19 += Idr[51]; - RHS19 += Idr[52]; - RHS19 += Idr[53]; - RHS19 -= go[53] * *cnV[53]; - m_A63 += gt[54]; - m_A63 += gt[55]; - m_A63 += gt[56]; - m_A63 += gt[57]; - m_A63 += gt[58]; - m_A64 += go[54]; - m_A65 += go[55]; - m_A65 += go[56]; - double RHS20 = Idr[54]; - RHS20 += Idr[55]; - RHS20 += Idr[56]; - RHS20 += Idr[57]; - RHS20 += Idr[58]; - RHS20 -= go[57] * *cnV[57]; - RHS20 -= go[58] * *cnV[58]; - m_A66 += gt[59]; - m_A66 += gt[60]; - m_A66 += gt[61]; - m_A66 += gt[62]; - m_A67 += go[59]; - m_A68 += go[60]; - m_A68 += go[61]; - double RHS21 = Idr[59]; - RHS21 += Idr[60]; - RHS21 += Idr[61]; - RHS21 += Idr[62]; - RHS21 -= go[62] * *cnV[62]; - m_A71 += gt[63]; - m_A71 += gt[64]; - m_A71 += gt[65]; - m_A71 += gt[66]; - m_A71 += gt[67]; - m_A69 += go[63]; - m_A70 += go[64]; - m_A72 += go[65]; - m_A72 += go[66]; - double RHS22 = Idr[63]; - RHS22 += Idr[64]; - RHS22 += Idr[65]; - RHS22 += Idr[66]; - RHS22 += Idr[67]; - RHS22 -= go[67] * *cnV[67]; - m_A76 += gt[68]; - m_A76 += gt[69]; - m_A76 += gt[70]; - m_A76 += gt[71]; - m_A76 += gt[72]; - m_A73 += go[68]; - m_A75 += go[69]; - m_A78 += go[70]; - m_A78 += go[71]; - m_A74 += go[72]; - double RHS23 = Idr[68]; - RHS23 += Idr[69]; - RHS23 += Idr[70]; - RHS23 += Idr[71]; - RHS23 += Idr[72]; - m_A82 += gt[73]; - m_A82 += gt[74]; - m_A82 += gt[75]; - m_A82 += gt[76]; - m_A82 += gt[77]; - m_A79 += go[73]; - m_A81 += go[74]; - m_A83 += go[75]; - m_A83 += go[76]; - m_A80 += go[77]; - double RHS24 = Idr[73]; - RHS24 += Idr[74]; - RHS24 += Idr[75]; - RHS24 += Idr[76]; - RHS24 += Idr[77]; - m_A90 += gt[78]; - m_A90 += gt[79]; - m_A90 += gt[80]; - m_A90 += gt[81]; - m_A90 += gt[82]; - m_A90 += gt[83]; - m_A90 += gt[84]; - m_A90 += gt[85]; - m_A89 += go[78]; - m_A89 += go[79]; - m_A88 += go[80]; - m_A88 += go[81]; - m_A85 += go[82]; - m_A87 += go[83]; - double RHS25 = Idr[78]; - RHS25 += Idr[79]; - RHS25 += Idr[80]; - RHS25 += Idr[81]; - RHS25 += Idr[82]; - RHS25 += Idr[83]; - RHS25 += Idr[84]; - RHS25 += Idr[85]; - RHS25 -= go[84] * *cnV[84]; - RHS25 -= go[85] * *cnV[85]; - m_A103 += gt[86]; - m_A103 += gt[87]; - m_A103 += gt[88]; - m_A103 += gt[89]; - m_A103 += gt[90]; - m_A103 += gt[91]; - m_A103 += gt[92]; - m_A103 += gt[93]; - m_A99 += go[86]; - m_A99 += go[87]; - m_A98 += go[88]; - m_A98 += go[89]; - m_A92 += go[90]; - m_A93 += go[91]; - double RHS26 = Idr[86]; - RHS26 += Idr[87]; - RHS26 += Idr[88]; - RHS26 += Idr[89]; - RHS26 += Idr[90]; - RHS26 += Idr[91]; - RHS26 += Idr[92]; - RHS26 += Idr[93]; - RHS26 -= go[92] * *cnV[92]; - RHS26 -= go[93] * *cnV[93]; - m_A111 += gt[94]; - m_A111 += gt[95]; - m_A111 += gt[96]; - m_A111 += gt[97]; - m_A111 += gt[98]; - m_A111 += gt[99]; - m_A111 += gt[100]; - m_A111 += gt[101]; - m_A109 += go[94]; - m_A109 += go[95]; - m_A108 += go[96]; - m_A108 += go[97]; - m_A105 += go[98]; - m_A107 += go[99]; - double RHS27 = Idr[94]; - RHS27 += Idr[95]; - RHS27 += Idr[96]; - RHS27 += Idr[97]; - RHS27 += Idr[98]; - RHS27 += Idr[99]; - RHS27 += Idr[100]; - RHS27 += Idr[101]; - RHS27 -= go[100] * *cnV[100]; - RHS27 -= go[101] * *cnV[101]; + RHS2 -= go[6] * *cnV[6]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + RHS2 -= go[9] * *cnV[9]; + RHS2 -= go[10] * *cnV[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A6 += gt[13]; + m_A6 += gt[14]; + m_A6 += gt[15]; + m_A8 += go[11]; + m_A9 += go[12]; + m_A7 += go[13]; + double RHS3 = Idr[11]; + RHS3 += Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; + RHS3 += Idr[15]; + RHS3 -= go[14] * *cnV[14]; + RHS3 -= go[15] * *cnV[15]; + m_A10 += gt[16]; + m_A10 += gt[17]; + m_A10 += gt[18]; + m_A11 += go[16]; + double RHS4 = Idr[16]; + RHS4 += Idr[17]; + RHS4 += Idr[18]; + RHS4 -= go[17] * *cnV[17]; + RHS4 -= go[18] * *cnV[18]; + m_A14 += gt[19]; + m_A14 += gt[20]; + m_A12 += go[19]; + m_A13 += go[20]; + double RHS5 = Idr[19]; + RHS5 += Idr[20]; + m_A18 += gt[21]; + m_A18 += gt[22]; + m_A18 += gt[23]; + m_A17 += go[21]; + m_A19 += go[22]; + double RHS6 = Idr[21]; + RHS6 += Idr[22]; + RHS6 += Idr[23]; + RHS6 -= go[23] * *cnV[23]; + m_A23 += gt[24]; + m_A23 += gt[25]; + m_A21 += go[24]; + m_A20 += go[25]; + double RHS7 = Idr[24]; + RHS7 += Idr[25]; + m_A30 += gt[26]; + m_A30 += gt[27]; + m_A30 += gt[28]; + m_A30 += gt[29]; + m_A30 += gt[30]; + m_A25 += go[26]; + m_A26 += go[27]; + m_A28 += go[28]; + double RHS8 = Idr[26]; + RHS8 += Idr[27]; + RHS8 += Idr[28]; + RHS8 += Idr[29]; + RHS8 += Idr[30]; + RHS8 -= go[29] * *cnV[29]; + RHS8 -= go[30] * *cnV[30]; const double f0 = 1.0 / m_A0; - const double f0_15 = -f0 * m_A46; - m_A47 += m_A1 * f0_15; - RHS15 += f0_15 * RHS0; + const double f0_5 = -f0 * m_A12; + m_A14 += m_A1 * f0_5; + RHS5 += f0_5 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_13 = -f1 * m_A38; - m_A40 += m_A3 * f1_13; - RHS13 += f1_13 * RHS1; + const double f1_6 = -f1 * m_A17; + m_A18 += m_A3 * f1_6; + RHS6 += f1_6 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_14 = -f2 * m_A42; - m_A44 += m_A5 * f2_14; - RHS14 += f2_14 * RHS2; + const double f2_8 = -f2 * m_A25; + m_A28 += m_A5 * f2_8; + RHS8 += f2_8 * RHS2; const double f3 = 1.0 / m_A6; - const double f3_18 = -f3 * m_A55; - m_A56 += m_A7 * f3_18; - RHS18 += f3_18 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_19 = -f4 * m_A59; - m_A60 += m_A9 * f4_19; - RHS19 += f4_19 * RHS4; - const double f5 = 1.0 / m_A10; - const double f5_7 = -f5 * m_A16; - m_A17 += m_A11 * f5_7; - m_A19 += m_A12 * f5_7; + const double f3_5 = -f3 * m_A13; + m_A14 += m_A7 * f3_5; + m_A15 += m_A8 * f3_5; + m_A16 += m_A9 * f3_5; + RHS5 += f3_5 * RHS3; + const double f3_7 = -f3 * m_A20; + m_A22 += m_A7 * f3_7; + m_A23 += m_A8 * f3_7; + m_A24 += m_A9 * f3_7; + RHS7 += f3_7 * RHS3; + const double f3_8 = -f3 * m_A26; + m_A27 += m_A7 * f3_8; + m_A29 += m_A8 * f3_8; + m_A30 += m_A9 * f3_8; + RHS8 += f3_8 * RHS3; + const double f4 = 1.0 / m_A10; + const double f4_7 = -f4 * m_A21; + m_A23 += m_A11 * f4_7; + RHS7 += f4_7 * RHS4; + const double f5 = 1.0 / m_A14; + const double f5_7 = -f5 * m_A22; + m_A23 += m_A15 * f5_7; + m_A24 += m_A16 * f5_7; RHS7 += f5_7 * RHS5; - const double f5_26 = -f5 * m_A92; - m_A94 += m_A11 * f5_26; - m_A103 += m_A12 * f5_26; - RHS26 += f5_26 * RHS5; - const double f6 = 1.0 / m_A13; - const double f6_8 = -f6 * m_A20; - m_A21 += m_A14 * f6_8; - m_A23 += m_A15 * f6_8; + const double f5_8 = -f5 * m_A27; + m_A29 += m_A15 * f5_8; + m_A30 += m_A16 * f5_8; + RHS8 += f5_8 * RHS5; + const double f6 = 1.0 / m_A18; + const double f6_8 = -f6 * m_A28; + m_A30 += m_A19 * f6_8; RHS8 += f6_8 * RHS6; - const double f6_26 = -f6 * m_A93; - m_A95 += m_A14 * f6_26; - m_A103 += m_A15 * f6_26; - RHS26 += f6_26 * RHS6; - const double f7 = 1.0 / m_A17; - const double f7_9 = -f7 * m_A24; - m_A25 += m_A18 * f7_9; - m_A27 += m_A19 * f7_9; - RHS9 += f7_9 * RHS7; - const double f7_26 = -f7 * m_A94; - m_A96 += m_A18 * f7_26; - m_A103 += m_A19 * f7_26; - RHS26 += f7_26 * RHS7; - const double f8 = 1.0 / m_A21; - const double f8_10 = -f8 * m_A28; - m_A29 += m_A22 * f8_10; - m_A31 += m_A23 * f8_10; - RHS10 += f8_10 * RHS8; - const double f8_26 = -f8 * m_A95; - m_A97 += m_A22 * f8_26; - m_A103 += m_A23 * f8_26; - RHS26 += f8_26 * RHS8; - const double f9 = 1.0 / m_A25; - const double f9_23 = -f9 * m_A73; - m_A76 += m_A26 * f9_23; - m_A77 += m_A27 * f9_23; - RHS23 += f9_23 * RHS9; - const double f9_26 = -f9 * m_A96; - m_A100 += m_A26 * f9_26; - m_A103 += m_A27 * f9_26; - RHS26 += f9_26 * RHS9; - const double f10 = 1.0 / m_A29; - const double f10_24 = -f10 * m_A79; - m_A82 += m_A30 * f10_24; - m_A84 += m_A31 * f10_24; - RHS24 += f10_24 * RHS10; - const double f10_26 = -f10 * m_A97; - m_A101 += m_A30 * f10_26; - m_A103 += m_A31 * f10_26; - RHS26 += f10_26 * RHS10; - const double f11 = 1.0 / m_A32; - const double f11_13 = -f11 * m_A39; - m_A40 += m_A33 * f11_13; - m_A41 += m_A34 * f11_13; - RHS13 += f11_13 * RHS11; - const double f11_27 = -f11 * m_A105; - m_A106 += m_A33 * f11_27; - m_A111 += m_A34 * f11_27; - RHS27 += f11_27 * RHS11; - const double f12 = 1.0 / m_A35; - const double f12_14 = -f12 * m_A43; - m_A44 += m_A36 * f12_14; - m_A45 += m_A37 * f12_14; - RHS14 += f12_14 * RHS12; - const double f12_25 = -f12 * m_A85; - m_A86 += m_A36 * f12_25; - m_A90 += m_A37 * f12_25; - RHS25 += f12_25 * RHS12; - const double f13 = 1.0 / m_A40; - const double f13_27 = -f13 * m_A106; - m_A111 += m_A41 * f13_27; - RHS27 += f13_27 * RHS13; - const double f14 = 1.0 / m_A44; - const double f14_25 = -f14 * m_A86; - m_A90 += m_A45 * f14_25; - RHS25 += f14_25 * RHS14; - const double f15 = 1.0 / m_A47; - const double f15_16 = -f15 * m_A49; - m_A50 += m_A48 * f15_16; - RHS16 += f15_16 * RHS15; - const double f16 = 1.0 / m_A50; - const double f16_22 = -f16 * m_A69; - m_A71 += m_A51 * f16_22; - RHS22 += f16_22 * RHS16; - const double f17 = 1.0 / m_A52; - const double f17_22 = -f17 * m_A70; - m_A71 += m_A53 * f17_22; - m_A72 += m_A54 * f17_22; - RHS22 += f17_22 * RHS17; - const double f17_26 = -f17 * m_A98; - m_A99 += m_A53 * f17_26; - m_A103 += m_A54 * f17_26; - RHS26 += f17_26 * RHS17; - const double f18 = 1.0 / m_A56; - const double f18_23 = -f18 * m_A74; - m_A76 += m_A57 * f18_23; - m_A78 += m_A58 * f18_23; - RHS23 += f18_23 * RHS18; - const double f18_27 = -f18 * m_A107; - m_A109 += m_A57 * f18_27; - m_A111 += m_A58 * f18_27; - RHS27 += f18_27 * RHS18; - const double f19 = 1.0 / m_A60; - const double f19_24 = -f19 * m_A80; - m_A82 += m_A61 * f19_24; - m_A83 += m_A62 * f19_24; - RHS24 += f19_24 * RHS19; - const double f19_25 = -f19 * m_A87; - m_A89 += m_A61 * f19_25; - m_A90 += m_A62 * f19_25; - RHS25 += f19_25 * RHS19; - const double f20 = 1.0 / m_A63; - const double f20_23 = -f20 * m_A75; - m_A76 += m_A64 * f20_23; - m_A78 += m_A65 * f20_23; - RHS23 += f20_23 * RHS20; - const double f20_27 = -f20 * m_A108; - m_A109 += m_A64 * f20_27; - m_A111 += m_A65 * f20_27; - RHS27 += f20_27 * RHS20; - const double f21 = 1.0 / m_A66; - const double f21_24 = -f21 * m_A81; - m_A82 += m_A67 * f21_24; - m_A83 += m_A68 * f21_24; - RHS24 += f21_24 * RHS21; - const double f21_25 = -f21 * m_A88; - m_A89 += m_A67 * f21_25; - m_A90 += m_A68 * f21_25; - RHS25 += f21_25 * RHS21; - const double f22 = 1.0 / m_A71; - const double f22_26 = -f22 * m_A99; - m_A103 += m_A72 * f22_26; - RHS26 += f22_26 * RHS22; - const double f23 = 1.0 / m_A76; - const double f23_26 = -f23 * m_A100; - m_A103 += m_A77 * f23_26; - m_A104 += m_A78 * f23_26; - RHS26 += f23_26 * RHS23; - const double f23_27 = -f23 * m_A109; - m_A110 += m_A77 * f23_27; - m_A111 += m_A78 * f23_27; - RHS27 += f23_27 * RHS23; - const double f24 = 1.0 / m_A82; - const double f24_25 = -f24 * m_A89; - m_A90 += m_A83 * f24_25; - m_A91 += m_A84 * f24_25; - RHS25 += f24_25 * RHS24; - const double f24_26 = -f24 * m_A101; - m_A102 += m_A83 * f24_26; - m_A103 += m_A84 * f24_26; - RHS26 += f24_26 * RHS24; - const double f25 = 1.0 / m_A90; - const double f25_26 = -f25 * m_A102; - m_A103 += m_A91 * f25_26; - RHS26 += f25_26 * RHS25; - const double f26 = 1.0 / m_A103; - const double f26_27 = -f26 * m_A110; - m_A111 += m_A104 * f26_27; - RHS27 += f26_27 * RHS26; - V[27] = RHS27 / m_A111; - double tmp26 = 0.0; - tmp26 += m_A104 * V[27]; - V[26] = (RHS26 - tmp26) / m_A103; - double tmp25 = 0.0; - tmp25 += m_A91 * V[26]; - V[25] = (RHS25 - tmp25) / m_A90; - double tmp24 = 0.0; - tmp24 += m_A83 * V[25]; - tmp24 += m_A84 * V[26]; - V[24] = (RHS24 - tmp24) / m_A82; - double tmp23 = 0.0; - tmp23 += m_A77 * V[26]; - tmp23 += m_A78 * V[27]; - V[23] = (RHS23 - tmp23) / m_A76; - double tmp22 = 0.0; - tmp22 += m_A72 * V[26]; - V[22] = (RHS22 - tmp22) / m_A71; - double tmp21 = 0.0; - tmp21 += m_A67 * V[24]; - tmp21 += m_A68 * V[25]; - V[21] = (RHS21 - tmp21) / m_A66; - double tmp20 = 0.0; - tmp20 += m_A64 * V[23]; - tmp20 += m_A65 * V[27]; - V[20] = (RHS20 - tmp20) / m_A63; - double tmp19 = 0.0; - tmp19 += m_A61 * V[24]; - tmp19 += m_A62 * V[25]; - V[19] = (RHS19 - tmp19) / m_A60; - double tmp18 = 0.0; - tmp18 += m_A57 * V[23]; - tmp18 += m_A58 * V[27]; - V[18] = (RHS18 - tmp18) / m_A56; - double tmp17 = 0.0; - tmp17 += m_A53 * V[22]; - tmp17 += m_A54 * V[26]; - V[17] = (RHS17 - tmp17) / m_A52; - double tmp16 = 0.0; - tmp16 += m_A51 * V[22]; - V[16] = (RHS16 - tmp16) / m_A50; - double tmp15 = 0.0; - tmp15 += m_A48 * V[16]; - V[15] = (RHS15 - tmp15) / m_A47; - double tmp14 = 0.0; - tmp14 += m_A45 * V[25]; - V[14] = (RHS14 - tmp14) / m_A44; - double tmp13 = 0.0; - tmp13 += m_A41 * V[27]; - V[13] = (RHS13 - tmp13) / m_A40; - double tmp12 = 0.0; - tmp12 += m_A36 * V[14]; - tmp12 += m_A37 * V[25]; - V[12] = (RHS12 - tmp12) / m_A35; - double tmp11 = 0.0; - tmp11 += m_A33 * V[13]; - tmp11 += m_A34 * V[27]; - V[11] = (RHS11 - tmp11) / m_A32; - double tmp10 = 0.0; - tmp10 += m_A30 * V[24]; - tmp10 += m_A31 * V[26]; - V[10] = (RHS10 - tmp10) / m_A29; - double tmp9 = 0.0; - tmp9 += m_A26 * V[23]; - tmp9 += m_A27 * V[26]; - V[9] = (RHS9 - tmp9) / m_A25; - double tmp8 = 0.0; - tmp8 += m_A22 * V[10]; - tmp8 += m_A23 * V[26]; - V[8] = (RHS8 - tmp8) / m_A21; + const double f7 = 1.0 / m_A23; + const double f7_8 = -f7 * m_A29; + m_A30 += m_A24 * f7_8; + RHS8 += f7_8 * RHS7; + V[8] = RHS8 / m_A30; double tmp7 = 0.0; - tmp7 += m_A18 * V[9]; - tmp7 += m_A19 * V[26]; - V[7] = (RHS7 - tmp7) / m_A17; + tmp7 += m_A24 * V[8]; + V[7] = (RHS7 - tmp7) / m_A23; double tmp6 = 0.0; - tmp6 += m_A14 * V[8]; - tmp6 += m_A15 * V[26]; - V[6] = (RHS6 - tmp6) / m_A13; + tmp6 += m_A19 * V[8]; + V[6] = (RHS6 - tmp6) / m_A18; double tmp5 = 0.0; - tmp5 += m_A11 * V[7]; - tmp5 += m_A12 * V[26]; - V[5] = (RHS5 - tmp5) / m_A10; + tmp5 += m_A15 * V[7]; + tmp5 += m_A16 * V[8]; + V[5] = (RHS5 - tmp5) / m_A14; double tmp4 = 0.0; - tmp4 += m_A9 * V[19]; - V[4] = (RHS4 - tmp4) / m_A8; + tmp4 += m_A11 * V[7]; + V[4] = (RHS4 - tmp4) / m_A10; + double tmp3 = 0.0; + tmp3 += m_A7 * V[5]; + tmp3 += m_A8 * V[7]; + tmp3 += m_A9 * V[8]; + V[3] = (RHS3 - tmp3) / m_A6; + double tmp2 = 0.0; + tmp2 += m_A5 * V[6]; + V[2] = (RHS2 - tmp2) / m_A4; + double tmp1 = 0.0; + tmp1 += m_A3 * V[6]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[5]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// breakout +static void nl_gcr_7a42b97d838ca073_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; + m_A3 += go[3]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 -= go[4] * *cnV[4]; + RHS1 -= go[5] * *cnV[5]; + RHS1 -= go[6] * *cnV[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A6 += gt[9]; + m_A5 += go[7]; + m_A4 += go[8]; + double RHS2 = Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 -= go[9] * *cnV[9]; + const double f0 = 1.0 / m_A0; + const double f0_2 = -f0 * m_A4; + m_A6 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_2 = -f1 * m_A5; + m_A6 += m_A3 * f1_2; + RHS2 += f1_2 * RHS1; + V[2] = RHS2 / m_A6; + double tmp1 = 0.0; + tmp1 += m_A3 * V[2]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[2]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// cheekyms +static void nl_gcr_7c86a9bc1c6aef4c_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A3 += go[3]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 -= go[4] * *cnV[4]; + m_A6 += gt[5]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A5 += go[5]; + m_A4 += go[6]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + const double f0 = 1.0 / m_A0; + const double f0_2 = -f0 * m_A4; + m_A6 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_2 = -f1 * m_A5; + m_A6 += m_A3 * f1_2; + RHS2 += f1_2 * RHS1; + V[2] = RHS2 / m_A6; + double tmp1 = 0.0; + tmp1 += m_A3 * V[2]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[2]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// solarq +static void nl_gcr_7caaa135bff3d9f3_15_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 -= go[1] * *cnV[1]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A4 += go[2]; + m_A3 += go[3]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 += Idr[4]; + RHS1 -= go[4] * *cnV[4]; + m_A5 += gt[5]; + m_A5 += gt[6]; + m_A6 += go[5]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 -= go[6] * *cnV[6]; + m_A9 += gt[7]; + m_A9 += gt[8]; + m_A9 += gt[9]; + m_A8 += go[7]; + m_A7 += go[8]; + double RHS3 = Idr[7]; + RHS3 += Idr[8]; + RHS3 += Idr[9]; + RHS3 -= go[9] * *cnV[9]; + m_A14 += gt[10]; + m_A14 += gt[11]; + m_A14 += gt[12]; + m_A12 += go[10]; + m_A11 += go[11]; + double RHS4 = Idr[10]; + RHS4 += Idr[11]; + RHS4 += Idr[12]; + RHS4 -= go[12] * *cnV[12]; + const double f0 = 1.0 / m_A0; + const double f0_3 = -f0 * m_A7; + m_A9 += m_A1 * f0_3; + RHS3 += f0_3 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_3 = -f1 * m_A8; + m_A9 += m_A3 * f1_3; + m_A10 += m_A4 * f1_3; + RHS3 += f1_3 * RHS1; + const double f1_4 = -f1 * m_A11; + m_A13 += m_A3 * f1_4; + m_A14 += m_A4 * f1_4; + RHS4 += f1_4 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_4 = -f2 * m_A12; + m_A14 += m_A6 * f2_4; + RHS4 += f2_4 * RHS2; + const double f3 = 1.0 / m_A9; + const double f3_4 = -f3 * m_A13; + m_A14 += m_A10 * f3_4; + RHS4 += f3_4 * RHS3; + V[4] = RHS4 / m_A14; double tmp3 = 0.0; - tmp3 += m_A7 * V[18]; - V[3] = (RHS3 - tmp3) / m_A6; + tmp3 += m_A10 * V[4]; + V[3] = (RHS3 - tmp3) / m_A9; double tmp2 = 0.0; - tmp2 += m_A5 * V[14]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A6 * V[4]; + V[2] = (RHS2 - tmp2) / m_A5; double tmp1 = 0.0; - tmp1 += m_A3 * V[13]; + tmp1 += m_A3 * V[3]; + tmp1 += m_A4 * V[4]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[15]; + tmp0 += m_A1 * V[3]; V[0] = (RHS0 - tmp0) / m_A0; } -// ripoff -static void nl_gcr_76c9e236353caed1_35_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// warrior +static void nl_gcr_8003d4625273fa4d_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 -= go[1] * *cnV[1]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A3 += go[2]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 += Idr[4]; + RHS1 -= go[3] * *cnV[3]; + RHS1 -= go[4] * *cnV[4]; + m_A5 += gt[5]; + m_A5 += gt[6]; + m_A5 += gt[7]; + m_A6 += go[5]; + m_A4 += go[6]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 -= go[7] * *cnV[7]; + m_A9 += gt[8]; + m_A9 += gt[9]; + m_A7 += go[8]; + m_A8 += go[9]; + double RHS3 = Idr[8]; + RHS3 += Idr[9]; + const double f0 = 1.0 / m_A0; + const double f0_2 = -f0 * m_A4; + m_A5 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_3 = -f1 * m_A7; + m_A9 += m_A3 * f1_3; + RHS3 += f1_3 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_3 = -f2 * m_A8; + m_A9 += m_A6 * f2_3; + RHS3 += f2_3 * RHS2; + V[3] = RHS3 / m_A9; + double tmp2 = 0.0; + tmp2 += m_A6 * V[3]; + V[2] = (RHS2 - tmp2) / m_A5; + double tmp1 = 0.0; + tmp1 += m_A3 * V[3]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[2]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// kidniki +static void nl_gcr_8046625a0fe0959_21_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -16069,299 +17876,349 @@ static void nl_gcr_76c9e236353caed1_35_double_double(double * __restrict V, cons double m_A18(0.0); double m_A19(0.0); double m_A20(0.0); - double m_A21(0.0); - double m_A22(0.0); - double m_A23(0.0); - double m_A24(0.0); - double m_A25(0.0); - double m_A26(0.0); - double m_A27(0.0); - double m_A28(0.0); - double m_A29(0.0); - double m_A30(0.0); - double m_A31(0.0); - double m_A32(0.0); - double m_A33(0.0); - double m_A34(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; m_A0 += gt[3]; m_A0 += gt[4]; - m_A3 += go[0]; + m_A0 += gt[5]; + m_A0 += gt[6]; + m_A1 += go[0]; m_A2 += go[1]; - m_A1 += go[2]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; RHS0 += Idr[3]; RHS0 += Idr[4]; + RHS0 += Idr[5]; + RHS0 += Idr[6]; + RHS0 -= go[2] * *cnV[2]; RHS0 -= go[3] * *cnV[3]; RHS0 -= go[4] * *cnV[4]; - m_A4 += gt[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; - m_A4 += gt[8]; - m_A4 += gt[9]; - m_A4 += gt[10]; - m_A4 += gt[11]; - m_A5 += go[5]; - double RHS1 = Idr[5]; - RHS1 += Idr[6]; - RHS1 += Idr[7]; + RHS0 -= go[5] * *cnV[5]; + RHS0 -= go[6] * *cnV[6]; + m_A3 += gt[7]; + m_A3 += gt[8]; + m_A3 += gt[9]; + m_A5 += go[7]; + m_A4 += go[8]; + double RHS1 = Idr[7]; RHS1 += Idr[8]; RHS1 += Idr[9]; - RHS1 += Idr[10]; - RHS1 += Idr[11]; - RHS1 -= go[6] * *cnV[6]; - RHS1 -= go[7] * *cnV[7]; - RHS1 -= go[8] * *cnV[8]; RHS1 -= go[9] * *cnV[9]; - RHS1 -= go[10] * *cnV[10]; - RHS1 -= go[11] * *cnV[11]; - m_A6 += gt[12]; - m_A6 += gt[13]; - m_A6 += gt[14]; - m_A6 += gt[15]; - m_A6 += gt[16]; - m_A10 += go[12]; - m_A9 += go[13]; - m_A8 += go[14]; - m_A7 += go[15]; - double RHS2 = Idr[12]; - RHS2 += Idr[13]; - RHS2 += Idr[14]; - RHS2 += Idr[15]; - RHS2 += Idr[16]; - RHS2 -= go[16] * *cnV[16]; - m_A13 += gt[17]; - m_A13 += gt[18]; - m_A13 += gt[19]; - m_A13 += gt[20]; - m_A12 += go[17]; - m_A11 += go[18]; - double RHS3 = Idr[17]; - RHS3 += Idr[18]; - RHS3 += Idr[19]; - RHS3 += Idr[20]; - RHS3 -= go[19] * *cnV[19]; - RHS3 -= go[20] * *cnV[20]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A7 += go[10]; + m_A8 += go[11]; + double RHS2 = Idr[10]; + RHS2 += Idr[11]; + m_A10 += gt[12]; + m_A10 += gt[13]; + m_A10 += gt[14]; + m_A9 += go[12]; + double RHS3 = Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; + RHS3 -= go[13] * *cnV[13]; + RHS3 -= go[14] * *cnV[14]; + m_A14 += gt[15]; + m_A14 += gt[16]; + m_A14 += gt[17]; + m_A14 += gt[18]; + m_A14 += gt[19]; + m_A14 += gt[20]; + m_A12 += go[15]; + m_A15 += go[16]; + m_A13 += go[17]; + double RHS4 = Idr[15]; + RHS4 += Idr[16]; + RHS4 += Idr[17]; + RHS4 += Idr[18]; + RHS4 += Idr[19]; + RHS4 += Idr[20]; + RHS4 -= go[18] * *cnV[18]; + RHS4 -= go[19] * *cnV[19]; + RHS4 -= go[20] * *cnV[20]; m_A20 += gt[21]; m_A20 += gt[22]; m_A20 += gt[23]; - m_A20 += gt[24]; - m_A18 += go[21]; - m_A17 += go[22]; - double RHS4 = Idr[21]; - RHS4 += Idr[22]; - RHS4 += Idr[23]; - RHS4 += Idr[24]; - RHS4 -= go[23] * *cnV[23]; - RHS4 -= go[24] * *cnV[24]; - m_A27 += gt[25]; - m_A27 += gt[26]; - m_A27 += gt[27]; - m_A27 += gt[28]; - m_A24 += go[25]; - m_A23 += go[26]; - double RHS5 = Idr[25]; - RHS5 += Idr[26]; - RHS5 += Idr[27]; - RHS5 += Idr[28]; - RHS5 -= go[27] * *cnV[27]; - RHS5 -= go[28] * *cnV[28]; - m_A34 += gt[29]; - m_A34 += gt[30]; - m_A34 += gt[31]; - m_A34 += gt[32]; - m_A34 += gt[33]; - m_A34 += gt[34]; - m_A29 += go[29]; - m_A30 += go[30]; - double RHS6 = Idr[29]; - RHS6 += Idr[30]; - RHS6 += Idr[31]; - RHS6 += Idr[32]; - RHS6 += Idr[33]; - RHS6 += Idr[34]; - RHS6 -= go[31] * *cnV[31]; - RHS6 -= go[32] * *cnV[32]; - RHS6 -= go[33] * *cnV[33]; - RHS6 -= go[34] * *cnV[34]; + m_A17 += go[21]; + m_A16 += go[22]; + m_A19 += go[23]; + double RHS5 = Idr[21]; + RHS5 += Idr[22]; + RHS5 += Idr[23]; const double f0 = 1.0 / m_A0; - const double f0_3 = -f0 * m_A11; - m_A13 += m_A1 * f0_3; - m_A14 += m_A2 * f0_3; - m_A15 += m_A3 * f0_3; - RHS3 += f0_3 * RHS0; - const double f0_4 = -f0 * m_A17; - m_A19 += m_A1 * f0_4; - m_A20 += m_A2 * f0_4; - m_A21 += m_A3 * f0_4; + const double f0_4 = -f0 * m_A12; + m_A13 += m_A1 * f0_4; + m_A14 += m_A2 * f0_4; RHS4 += f0_4 * RHS0; - const double f0_5 = -f0 * m_A23; - m_A25 += m_A1 * f0_5; - m_A26 += m_A2 * f0_5; - m_A27 += m_A3 * f0_5; - RHS5 += f0_5 * RHS0; - const double f1 = 1.0 / m_A4; - const double f1_6 = -f1 * m_A29; - m_A30 += m_A5 * f1_6; - RHS6 += f1_6 * RHS1; + const double f1 = 1.0 / m_A3; + const double f1_4 = -f1 * m_A13; + m_A14 += m_A4 * f1_4; + m_A15 += m_A5 * f1_4; + RHS4 += f1_4 * RHS1; + const double f1_5 = -f1 * m_A16; + m_A19 += m_A4 * f1_5; + m_A20 += m_A5 * f1_5; + RHS5 += f1_5 * RHS1; const double f2 = 1.0 / m_A6; - const double f2_3 = -f2 * m_A12; - m_A13 += m_A7 * f2_3; - m_A14 += m_A8 * f2_3; - m_A15 += m_A9 * f2_3; - m_A16 += m_A10 * f2_3; + const double f2_3 = -f2 * m_A9; + m_A10 += m_A7 * f2_3; + m_A11 += m_A8 * f2_3; RHS3 += f2_3 * RHS2; - const double f2_4 = -f2 * m_A18; - m_A19 += m_A7 * f2_4; - m_A20 += m_A8 * f2_4; - m_A21 += m_A9 * f2_4; - m_A22 += m_A10 * f2_4; - RHS4 += f2_4 * RHS2; - const double f2_5 = -f2 * m_A24; - m_A25 += m_A7 * f2_5; - m_A26 += m_A8 * f2_5; - m_A27 += m_A9 * f2_5; - m_A28 += m_A10 * f2_5; + const double f2_5 = -f2 * m_A17; + m_A18 += m_A7 * f2_5; + m_A20 += m_A8 * f2_5; RHS5 += f2_5 * RHS2; - const double f2_6 = -f2 * m_A30; - m_A31 += m_A7 * f2_6; - m_A32 += m_A8 * f2_6; - m_A33 += m_A9 * f2_6; - m_A34 += m_A10 * f2_6; - RHS6 += f2_6 * RHS2; - const double f3 = 1.0 / m_A13; - const double f3_4 = -f3 * m_A19; - m_A20 += m_A14 * f3_4; - m_A21 += m_A15 * f3_4; - m_A22 += m_A16 * f3_4; - RHS4 += f3_4 * RHS3; - const double f3_5 = -f3 * m_A25; - m_A26 += m_A14 * f3_5; - m_A27 += m_A15 * f3_5; - m_A28 += m_A16 * f3_5; + const double f3 = 1.0 / m_A10; + const double f3_5 = -f3 * m_A18; + m_A20 += m_A11 * f3_5; RHS5 += f3_5 * RHS3; - const double f3_6 = -f3 * m_A31; - m_A32 += m_A14 * f3_6; - m_A33 += m_A15 * f3_6; - m_A34 += m_A16 * f3_6; - RHS6 += f3_6 * RHS3; - const double f4 = 1.0 / m_A20; - const double f4_5 = -f4 * m_A26; - m_A27 += m_A21 * f4_5; - m_A28 += m_A22 * f4_5; + const double f4 = 1.0 / m_A14; + const double f4_5 = -f4 * m_A19; + m_A20 += m_A15 * f4_5; RHS5 += f4_5 * RHS4; - const double f4_6 = -f4 * m_A32; - m_A33 += m_A21 * f4_6; - m_A34 += m_A22 * f4_6; - RHS6 += f4_6 * RHS4; - const double f5 = 1.0 / m_A27; - const double f5_6 = -f5 * m_A33; - m_A34 += m_A28 * f5_6; - RHS6 += f5_6 * RHS5; - V[6] = RHS6 / m_A34; + V[5] = RHS5 / m_A20; + double tmp4 = 0.0; + tmp4 += m_A15 * V[5]; + V[4] = (RHS4 - tmp4) / m_A14; + double tmp3 = 0.0; + tmp3 += m_A11 * V[5]; + V[3] = (RHS3 - tmp3) / m_A10; + double tmp2 = 0.0; + tmp2 += m_A7 * V[3]; + tmp2 += m_A8 * V[5]; + V[2] = (RHS2 - tmp2) / m_A6; + double tmp1 = 0.0; + tmp1 += m_A4 * V[4]; + tmp1 += m_A5 * V[5]; + V[1] = (RHS1 - tmp1) / m_A3; + double tmp0 = 0.0; + tmp0 += m_A1 * V[1]; + tmp0 += m_A2 * V[4]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// mario +static void nl_gcr_80b4b1e5cc58d303_29_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A3 += go[3]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 += Idr[5]; + RHS1 -= go[4] * *cnV[4]; + RHS1 -= go[5] * *cnV[5]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; + m_A5 += go[6]; + double RHS2 = Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A8 += go[9]; + m_A7 += go[10]; + m_A7 += go[11]; + double RHS3 = Idr[9]; + RHS3 += Idr[10]; + RHS3 += Idr[11]; + RHS3 += Idr[12]; + RHS3 -= go[12] * *cnV[12]; + m_A9 += gt[13]; + m_A9 += gt[14]; + m_A9 += gt[15]; + m_A10 += go[13]; + double RHS4 = Idr[13]; + RHS4 += Idr[14]; + RHS4 += Idr[15]; + RHS4 -= go[14] * *cnV[14]; + RHS4 -= go[15] * *cnV[15]; + m_A11 += gt[16]; + m_A11 += gt[17]; + m_A12 += go[16]; + double RHS5 = Idr[16]; + RHS5 += Idr[17]; + RHS5 -= go[17] * *cnV[17]; + m_A14 += gt[18]; + m_A14 += gt[19]; + m_A14 += gt[20]; + m_A14 += gt[21]; + m_A14 += gt[22]; + m_A14 += gt[23]; + m_A14 += gt[24]; + m_A16 += go[18]; + m_A16 += go[19]; + m_A13 += go[20]; + m_A13 += go[21]; + m_A15 += go[22]; + double RHS6 = Idr[18]; + RHS6 += Idr[19]; + RHS6 += Idr[20]; + RHS6 += Idr[21]; + RHS6 += Idr[22]; + RHS6 += Idr[23]; + RHS6 += Idr[24]; + RHS6 -= go[23] * *cnV[23]; + RHS6 -= go[24] * *cnV[24]; + m_A22 += gt[25]; + m_A22 += gt[26]; + m_A22 += gt[27]; + m_A22 += gt[28]; + m_A22 += gt[29]; + m_A22 += gt[30]; + m_A20 += go[25]; + m_A21 += go[26]; + m_A19 += go[27]; + m_A18 += go[28]; + m_A17 += go[29]; + double RHS7 = Idr[25]; + RHS7 += Idr[26]; + RHS7 += Idr[27]; + RHS7 += Idr[28]; + RHS7 += Idr[29]; + RHS7 += Idr[30]; + RHS7 -= go[30] * *cnV[30]; + m_A28 += gt[31]; + m_A28 += gt[32]; + m_A28 += gt[33]; + m_A28 += gt[34]; + m_A28 += gt[35]; + m_A28 += gt[36]; + m_A25 += go[31]; + m_A24 += go[32]; + m_A26 += go[33]; + m_A26 += go[34]; + double RHS8 = Idr[31]; + RHS8 += Idr[32]; + RHS8 += Idr[33]; + RHS8 += Idr[34]; + RHS8 += Idr[35]; + RHS8 += Idr[36]; + RHS8 -= go[35] * *cnV[35]; + RHS8 -= go[36] * *cnV[36]; + const double f0 = 1.0 / m_A0; + const double f0_7 = -f0 * m_A17; + m_A22 += m_A1 * f0_7; + RHS7 += f0_7 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_7 = -f1 * m_A18; + m_A22 += m_A3 * f1_7; + RHS7 += f1_7 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_7 = -f2 * m_A19; + m_A22 += m_A5 * f2_7; + RHS7 += f2_7 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_6 = -f3 * m_A13; + m_A14 += m_A7 * f3_6; + m_A16 += m_A8 * f3_6; + RHS6 += f3_6 * RHS3; + const double f3_8 = -f3 * m_A24; + m_A26 += m_A7 * f3_8; + m_A28 += m_A8 * f3_8; + RHS8 += f3_8 * RHS3; + const double f4 = 1.0 / m_A9; + const double f4_8 = -f4 * m_A25; + m_A28 += m_A10 * f4_8; + RHS8 += f4_8 * RHS4; + const double f5 = 1.0 / m_A11; + const double f5_7 = -f5 * m_A20; + m_A22 += m_A12 * f5_7; + RHS7 += f5_7 * RHS5; + const double f6 = 1.0 / m_A14; + const double f6_7 = -f6 * m_A21; + m_A22 += m_A15 * f6_7; + m_A23 += m_A16 * f6_7; + RHS7 += f6_7 * RHS6; + const double f6_8 = -f6 * m_A26; + m_A27 += m_A15 * f6_8; + m_A28 += m_A16 * f6_8; + RHS8 += f6_8 * RHS6; + const double f7 = 1.0 / m_A22; + const double f7_8 = -f7 * m_A27; + m_A28 += m_A23 * f7_8; + RHS8 += f7_8 * RHS7; + V[8] = RHS8 / m_A28; + double tmp7 = 0.0; + tmp7 += m_A23 * V[8]; + V[7] = (RHS7 - tmp7) / m_A22; + double tmp6 = 0.0; + tmp6 += m_A15 * V[7]; + tmp6 += m_A16 * V[8]; + V[6] = (RHS6 - tmp6) / m_A14; double tmp5 = 0.0; - tmp5 += m_A28 * V[6]; - V[5] = (RHS5 - tmp5) / m_A27; + tmp5 += m_A12 * V[7]; + V[5] = (RHS5 - tmp5) / m_A11; double tmp4 = 0.0; - tmp4 += m_A21 * V[5]; - tmp4 += m_A22 * V[6]; - V[4] = (RHS4 - tmp4) / m_A20; + tmp4 += m_A10 * V[8]; + V[4] = (RHS4 - tmp4) / m_A9; double tmp3 = 0.0; - tmp3 += m_A14 * V[4]; - tmp3 += m_A15 * V[5]; - tmp3 += m_A16 * V[6]; - V[3] = (RHS3 - tmp3) / m_A13; + tmp3 += m_A7 * V[6]; + tmp3 += m_A8 * V[8]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A7 * V[3]; - tmp2 += m_A8 * V[4]; - tmp2 += m_A9 * V[5]; - tmp2 += m_A10 * V[6]; - V[2] = (RHS2 - tmp2) / m_A6; - double tmp1 = 0.0; - tmp1 += m_A5 * V[2]; - V[1] = (RHS1 - tmp1) / m_A4; - double tmp0 = 0.0; - tmp0 += m_A1 * V[3]; - tmp0 += m_A2 * V[4]; - tmp0 += m_A3 * V[5]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// gamemachine -static void nl_gcr_782d79b5cbe953b1_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A1 += go[0]; - m_A1 += go[1]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A2 += gt[5]; - m_A2 += gt[6]; - m_A3 += go[3]; - m_A3 += go[4]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 -= go[5] * *cnV[5]; - RHS1 -= go[6] * *cnV[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A5 += go[7]; - m_A5 += go[8]; - m_A4 += go[9]; - m_A4 += go[10]; - double RHS2 = Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 += Idr[11]; - RHS2 += Idr[12]; - RHS2 -= go[11] * *cnV[11]; - RHS2 -= go[12] * *cnV[12]; - const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A6 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A5; - m_A6 += m_A3 * f1_2; - RHS2 += f1_2 * RHS1; - V[2] = RHS2 / m_A6; + tmp2 += m_A5 * V[7]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; + tmp1 += m_A3 * V[7]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; + tmp0 += m_A1 * V[7]; V[0] = (RHS0 - tmp0) / m_A0; } -// barrier -static void nl_gcr_79e756c5892cf87d_31_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// sundance +static void nl_gcr_8446e63d7842f6a6_70_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -16397,6 +18254,45 @@ static void nl_gcr_79e756c5892cf87d_31_double_double(double * __restrict V, cons double m_A28(0.0); double m_A29(0.0); double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + double m_A49(0.0); + double m_A50(0.0); + double m_A51(0.0); + double m_A52(0.0); + double m_A53(0.0); + double m_A54(0.0); + double m_A55(0.0); + double m_A56(0.0); + double m_A57(0.0); + double m_A58(0.0); + double m_A59(0.0); + double m_A60(0.0); + double m_A61(0.0); + double m_A62(0.0); + double m_A63(0.0); + double m_A64(0.0); + double m_A65(0.0); + double m_A66(0.0); + double m_A67(0.0); + double m_A68(0.0); + double m_A69(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -16411,166 +18307,343 @@ static void nl_gcr_79e756c5892cf87d_31_double_double(double * __restrict V, cons RHS1 -= go[3] * *cnV[3]; m_A4 += gt[4]; m_A4 += gt[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; - m_A4 += gt[8]; - m_A4 += gt[9]; - m_A4 += gt[10]; m_A5 += go[4]; double RHS2 = Idr[4]; RHS2 += Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; RHS2 -= go[5] * *cnV[5]; - RHS2 -= go[6] * *cnV[6]; - RHS2 -= go[7] * *cnV[7]; - RHS2 -= go[8] * *cnV[8]; - RHS2 -= go[9] * *cnV[9]; - RHS2 -= go[10] * *cnV[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A6 += gt[13]; - m_A6 += gt[14]; - m_A6 += gt[15]; - m_A8 += go[11]; - m_A9 += go[12]; - m_A7 += go[13]; - double RHS3 = Idr[11]; - RHS3 += Idr[12]; - RHS3 += Idr[13]; - RHS3 += Idr[14]; - RHS3 += Idr[15]; - RHS3 -= go[14] * *cnV[14]; - RHS3 -= go[15] * *cnV[15]; - m_A10 += gt[16]; - m_A10 += gt[17]; - m_A10 += gt[18]; - m_A11 += go[16]; - double RHS4 = Idr[16]; - RHS4 += Idr[17]; - RHS4 += Idr[18]; - RHS4 -= go[17] * *cnV[17]; - RHS4 -= go[18] * *cnV[18]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A7 += go[6]; + double RHS3 = Idr[6]; + RHS3 += Idr[7]; + RHS3 += Idr[8]; + RHS3 -= go[7] * *cnV[7]; + RHS3 -= go[8] * *cnV[8]; + m_A8 += gt[9]; + m_A8 += gt[10]; + m_A10 += go[9]; + m_A9 += go[10]; + double RHS4 = Idr[9]; + RHS4 += Idr[10]; + m_A11 += gt[11]; + m_A11 += gt[12]; + m_A11 += gt[13]; + m_A12 += go[11]; + m_A13 += go[12]; + double RHS5 = Idr[11]; + RHS5 += Idr[12]; + RHS5 += Idr[13]; + RHS5 -= go[13] * *cnV[13]; + m_A14 += gt[14]; + m_A14 += gt[15]; + m_A14 += gt[16]; + m_A14 += gt[17]; + m_A14 += gt[18]; m_A14 += gt[19]; m_A14 += gt[20]; - m_A12 += go[19]; - m_A13 += go[20]; - double RHS5 = Idr[19]; - RHS5 += Idr[20]; - m_A18 += gt[21]; - m_A18 += gt[22]; - m_A18 += gt[23]; - m_A17 += go[21]; - m_A19 += go[22]; - double RHS6 = Idr[21]; - RHS6 += Idr[22]; - RHS6 += Idr[23]; - RHS6 -= go[23] * *cnV[23]; - m_A23 += gt[24]; - m_A23 += gt[25]; - m_A21 += go[24]; - m_A20 += go[25]; - double RHS7 = Idr[24]; - RHS7 += Idr[25]; - m_A30 += gt[26]; - m_A30 += gt[27]; - m_A30 += gt[28]; - m_A30 += gt[29]; - m_A30 += gt[30]; - m_A25 += go[26]; - m_A26 += go[27]; - m_A28 += go[28]; - double RHS8 = Idr[26]; - RHS8 += Idr[27]; - RHS8 += Idr[28]; - RHS8 += Idr[29]; - RHS8 += Idr[30]; - RHS8 -= go[29] * *cnV[29]; - RHS8 -= go[30] * *cnV[30]; + m_A15 += go[14]; + double RHS6 = Idr[14]; + RHS6 += Idr[15]; + RHS6 += Idr[16]; + RHS6 += Idr[17]; + RHS6 += Idr[18]; + RHS6 += Idr[19]; + RHS6 += Idr[20]; + RHS6 -= go[15] * *cnV[15]; + RHS6 -= go[16] * *cnV[16]; + RHS6 -= go[17] * *cnV[17]; + RHS6 -= go[18] * *cnV[18]; + RHS6 -= go[19] * *cnV[19]; + RHS6 -= go[20] * *cnV[20]; + m_A16 += gt[21]; + m_A16 += gt[22]; + m_A16 += gt[23]; + m_A16 += gt[24]; + m_A18 += go[21]; + m_A18 += go[22]; + m_A17 += go[23]; + double RHS7 = Idr[21]; + RHS7 += Idr[22]; + RHS7 += Idr[23]; + RHS7 += Idr[24]; + RHS7 -= go[24] * *cnV[24]; + m_A19 += gt[25]; + m_A19 += gt[26]; + m_A21 += go[25]; + m_A20 += go[26]; + double RHS8 = Idr[25]; + RHS8 += Idr[26]; + m_A22 += gt[27]; + m_A22 += gt[28]; + m_A22 += gt[29]; + m_A24 += go[27]; + m_A23 += go[28]; + double RHS9 = Idr[27]; + RHS9 += Idr[28]; + RHS9 += Idr[29]; + RHS9 -= go[29] * *cnV[29]; + m_A27 += gt[30]; + m_A27 += gt[31]; + m_A26 += go[30]; + m_A25 += go[31]; + double RHS10 = Idr[30]; + RHS10 += Idr[31]; + m_A31 += gt[32]; + m_A31 += gt[33]; + m_A31 += gt[34]; + m_A32 += go[32]; + m_A30 += go[33]; + double RHS11 = Idr[32]; + RHS11 += Idr[33]; + RHS11 += Idr[34]; + RHS11 -= go[34] * *cnV[34]; + m_A35 += gt[35]; + m_A35 += gt[36]; + m_A35 += gt[37]; + m_A34 += go[35]; + m_A33 += go[36]; + double RHS12 = Idr[35]; + RHS12 += Idr[36]; + RHS12 += Idr[37]; + RHS12 -= go[37] * *cnV[37]; + m_A40 += gt[38]; + m_A40 += gt[39]; + m_A40 += gt[40]; + m_A40 += gt[41]; + m_A43 += go[38]; + m_A38 += go[39]; + m_A37 += go[40]; + double RHS13 = Idr[38]; + RHS13 += Idr[39]; + RHS13 += Idr[40]; + RHS13 += Idr[41]; + RHS13 -= go[41] * *cnV[41]; + m_A50 += gt[42]; + m_A50 += gt[43]; + m_A50 += gt[44]; + m_A50 += gt[45]; + m_A50 += gt[46]; + m_A50 += gt[47]; + m_A44 += go[42]; + m_A46 += go[43]; + m_A45 += go[44]; + m_A45 += go[45]; + double RHS14 = Idr[42]; + RHS14 += Idr[43]; + RHS14 += Idr[44]; + RHS14 += Idr[45]; + RHS14 += Idr[46]; + RHS14 += Idr[47]; + RHS14 -= go[46] * *cnV[46]; + RHS14 -= go[47] * *cnV[47]; + m_A55 += gt[48]; + m_A55 += gt[49]; + m_A55 += gt[50]; + m_A54 += go[48]; + m_A53 += go[49]; + double RHS15 = Idr[48]; + RHS15 += Idr[49]; + RHS15 += Idr[50]; + RHS15 -= go[50] * *cnV[50]; + m_A62 += gt[51]; + m_A62 += gt[52]; + m_A62 += gt[53]; + m_A62 += gt[54]; + m_A57 += go[51]; + m_A58 += go[52]; + m_A59 += go[53]; + double RHS16 = Idr[51]; + RHS16 += Idr[52]; + RHS16 += Idr[53]; + RHS16 += Idr[54]; + RHS16 -= go[54] * *cnV[54]; + m_A69 += gt[55]; + m_A69 += gt[56]; + m_A64 += go[55]; + m_A65 += go[56]; + double RHS17 = Idr[55]; + RHS17 += Idr[56]; const double f0 = 1.0 / m_A0; - const double f0_5 = -f0 * m_A12; - m_A14 += m_A1 * f0_5; - RHS5 += f0_5 * RHS0; + const double f0_15 = -f0 * m_A53; + m_A55 += m_A1 * f0_15; + RHS15 += f0_15 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_6 = -f1 * m_A17; - m_A18 += m_A3 * f1_6; - RHS6 += f1_6 * RHS1; + const double f1_12 = -f1 * m_A33; + m_A35 += m_A3 * f1_12; + RHS12 += f1_12 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_8 = -f2 * m_A25; - m_A28 += m_A5 * f2_8; - RHS8 += f2_8 * RHS2; + const double f2_11 = -f2 * m_A30; + m_A31 += m_A5 * f2_11; + RHS11 += f2_11 * RHS2; const double f3 = 1.0 / m_A6; - const double f3_5 = -f3 * m_A13; - m_A14 += m_A7 * f3_5; - m_A15 += m_A8 * f3_5; - m_A16 += m_A9 * f3_5; - RHS5 += f3_5 * RHS3; - const double f3_7 = -f3 * m_A20; - m_A22 += m_A7 * f3_7; - m_A23 += m_A8 * f3_7; - m_A24 += m_A9 * f3_7; - RHS7 += f3_7 * RHS3; - const double f3_8 = -f3 * m_A26; - m_A27 += m_A7 * f3_8; - m_A29 += m_A8 * f3_8; - m_A30 += m_A9 * f3_8; - RHS8 += f3_8 * RHS3; - const double f4 = 1.0 / m_A10; - const double f4_7 = -f4 * m_A21; - m_A23 += m_A11 * f4_7; - RHS7 += f4_7 * RHS4; - const double f5 = 1.0 / m_A14; - const double f5_7 = -f5 * m_A22; - m_A23 += m_A15 * f5_7; - m_A24 += m_A16 * f5_7; - RHS7 += f5_7 * RHS5; - const double f5_8 = -f5 * m_A27; - m_A29 += m_A15 * f5_8; - m_A30 += m_A16 * f5_8; - RHS8 += f5_8 * RHS5; - const double f6 = 1.0 / m_A18; - const double f6_8 = -f6 * m_A28; - m_A30 += m_A19 * f6_8; - RHS8 += f6_8 * RHS6; - const double f7 = 1.0 / m_A23; - const double f7_8 = -f7 * m_A29; - m_A30 += m_A24 * f7_8; - RHS8 += f7_8 * RHS7; - V[8] = RHS8 / m_A30; + const double f3_16 = -f3 * m_A57; + m_A62 += m_A7 * f3_16; + RHS16 += f3_16 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_13 = -f4 * m_A37; + m_A40 += m_A9 * f4_13; + m_A42 += m_A10 * f4_13; + RHS13 += f4_13 * RHS4; + const double f4_16 = -f4 * m_A58; + m_A60 += m_A9 * f4_16; + m_A62 += m_A10 * f4_16; + RHS16 += f4_16 * RHS4; + const double f5 = 1.0 / m_A11; + const double f5_10 = -f5 * m_A25; + m_A27 += m_A12 * f5_10; + m_A28 += m_A13 * f5_10; + RHS10 += f5_10 * RHS5; + const double f5_13 = -f5 * m_A38; + m_A39 += m_A12 * f5_13; + m_A40 += m_A13 * f5_13; + RHS13 += f5_13 * RHS5; + const double f6 = 1.0 / m_A14; + const double f6_14 = -f6 * m_A44; + m_A45 += m_A15 * f6_14; + RHS14 += f6_14 * RHS6; + const double f7 = 1.0 / m_A16; + const double f7_10 = -f7 * m_A26; + m_A27 += m_A17 * f7_10; + m_A29 += m_A18 * f7_10; + RHS10 += f7_10 * RHS7; + const double f7_14 = -f7 * m_A45; + m_A47 += m_A17 * f7_14; + m_A50 += m_A18 * f7_14; + RHS14 += f7_14 * RHS7; + const double f8 = 1.0 / m_A19; + const double f8_12 = -f8 * m_A34; + m_A35 += m_A20 * f8_12; + m_A36 += m_A21 * f8_12; + RHS12 += f8_12 * RHS8; + const double f8_14 = -f8 * m_A46; + m_A48 += m_A20 * f8_14; + m_A50 += m_A21 * f8_14; + RHS14 += f8_14 * RHS8; + const double f9 = 1.0 / m_A22; + const double f9_15 = -f9 * m_A54; + m_A55 += m_A23 * f9_15; + m_A56 += m_A24 * f9_15; + RHS15 += f9_15 * RHS9; + const double f9_17 = -f9 * m_A64; + m_A67 += m_A23 * f9_17; + m_A69 += m_A24 * f9_17; + RHS17 += f9_17 * RHS9; + const double f10 = 1.0 / m_A27; + const double f10_13 = -f10 * m_A39; + m_A40 += m_A28 * f10_13; + m_A41 += m_A29 * f10_13; + RHS13 += f10_13 * RHS10; + const double f10_14 = -f10 * m_A47; + m_A49 += m_A28 * f10_14; + m_A50 += m_A29 * f10_14; + RHS14 += f10_14 * RHS10; + const double f11 = 1.0 / m_A31; + const double f11_16 = -f11 * m_A59; + m_A62 += m_A32 * f11_16; + RHS16 += f11_16 * RHS11; + const double f12 = 1.0 / m_A35; + const double f12_14 = -f12 * m_A48; + m_A50 += m_A36 * f12_14; + RHS14 += f12_14 * RHS12; + const double f13 = 1.0 / m_A40; + const double f13_14 = -f13 * m_A49; + m_A50 += m_A41 * f13_14; + m_A51 += m_A42 * f13_14; + m_A52 += m_A43 * f13_14; + RHS14 += f13_14 * RHS13; + const double f13_16 = -f13 * m_A60; + m_A61 += m_A41 * f13_16; + m_A62 += m_A42 * f13_16; + m_A63 += m_A43 * f13_16; + RHS16 += f13_16 * RHS13; + const double f13_17 = -f13 * m_A65; + m_A66 += m_A41 * f13_17; + m_A68 += m_A42 * f13_17; + m_A69 += m_A43 * f13_17; + RHS17 += f13_17 * RHS13; + const double f14 = 1.0 / m_A50; + const double f14_16 = -f14 * m_A61; + m_A62 += m_A51 * f14_16; + m_A63 += m_A52 * f14_16; + RHS16 += f14_16 * RHS14; + const double f14_17 = -f14 * m_A66; + m_A68 += m_A51 * f14_17; + m_A69 += m_A52 * f14_17; + RHS17 += f14_17 * RHS14; + const double f15 = 1.0 / m_A55; + const double f15_17 = -f15 * m_A67; + m_A69 += m_A56 * f15_17; + RHS17 += f15_17 * RHS15; + const double f16 = 1.0 / m_A62; + const double f16_17 = -f16 * m_A68; + m_A69 += m_A63 * f16_17; + RHS17 += f16_17 * RHS16; + V[17] = RHS17 / m_A69; + double tmp16 = 0.0; + tmp16 += m_A63 * V[17]; + V[16] = (RHS16 - tmp16) / m_A62; + double tmp15 = 0.0; + tmp15 += m_A56 * V[17]; + V[15] = (RHS15 - tmp15) / m_A55; + double tmp14 = 0.0; + tmp14 += m_A51 * V[16]; + tmp14 += m_A52 * V[17]; + V[14] = (RHS14 - tmp14) / m_A50; + double tmp13 = 0.0; + tmp13 += m_A41 * V[14]; + tmp13 += m_A42 * V[16]; + tmp13 += m_A43 * V[17]; + V[13] = (RHS13 - tmp13) / m_A40; + double tmp12 = 0.0; + tmp12 += m_A36 * V[14]; + V[12] = (RHS12 - tmp12) / m_A35; + double tmp11 = 0.0; + tmp11 += m_A32 * V[16]; + V[11] = (RHS11 - tmp11) / m_A31; + double tmp10 = 0.0; + tmp10 += m_A28 * V[13]; + tmp10 += m_A29 * V[14]; + V[10] = (RHS10 - tmp10) / m_A27; + double tmp9 = 0.0; + tmp9 += m_A23 * V[15]; + tmp9 += m_A24 * V[17]; + V[9] = (RHS9 - tmp9) / m_A22; + double tmp8 = 0.0; + tmp8 += m_A20 * V[12]; + tmp8 += m_A21 * V[14]; + V[8] = (RHS8 - tmp8) / m_A19; double tmp7 = 0.0; - tmp7 += m_A24 * V[8]; - V[7] = (RHS7 - tmp7) / m_A23; + tmp7 += m_A17 * V[10]; + tmp7 += m_A18 * V[14]; + V[7] = (RHS7 - tmp7) / m_A16; double tmp6 = 0.0; - tmp6 += m_A19 * V[8]; - V[6] = (RHS6 - tmp6) / m_A18; + tmp6 += m_A15 * V[7]; + V[6] = (RHS6 - tmp6) / m_A14; double tmp5 = 0.0; - tmp5 += m_A15 * V[7]; - tmp5 += m_A16 * V[8]; - V[5] = (RHS5 - tmp5) / m_A14; + tmp5 += m_A12 * V[10]; + tmp5 += m_A13 * V[13]; + V[5] = (RHS5 - tmp5) / m_A11; double tmp4 = 0.0; - tmp4 += m_A11 * V[7]; - V[4] = (RHS4 - tmp4) / m_A10; + tmp4 += m_A9 * V[13]; + tmp4 += m_A10 * V[16]; + V[4] = (RHS4 - tmp4) / m_A8; double tmp3 = 0.0; - tmp3 += m_A7 * V[5]; - tmp3 += m_A8 * V[7]; - tmp3 += m_A9 * V[8]; + tmp3 += m_A7 * V[16]; V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A5 * V[6]; + tmp2 += m_A5 * V[11]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[6]; + tmp1 += m_A3 * V[12]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[5]; + tmp0 += m_A1 * V[15]; V[0] = (RHS0 - tmp0) / m_A0; } -// breakout -static void nl_gcr_7a42b97d838ca073_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// dpatrol +static void nl_gcr_85652d3e3ada285a_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -16582,6 +18655,9 @@ static void nl_gcr_7a42b97d838ca073_7_double_double(double * __restrict V, const double m_A4(0.0); double m_A5(0.0); double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; @@ -16594,35 +18670,126 @@ static void nl_gcr_7a42b97d838ca073_7_double_double(double * __restrict V, const m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; - m_A2 += gt[6]; m_A3 += go[3]; double RHS1 = Idr[3]; RHS1 += Idr[4]; RHS1 += Idr[5]; - RHS1 += Idr[6]; RHS1 -= go[4] * *cnV[4]; RHS1 -= go[5] * *cnV[5]; - RHS1 -= go[6] * *cnV[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A5 += go[7]; - m_A4 += go[8]; - double RHS2 = Idr[7]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; + m_A5 += go[6]; + double RHS2 = Idr[6]; + RHS2 += Idr[7]; RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 -= go[9] * *cnV[9]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + m_A9 += gt[9]; + m_A9 += gt[10]; + m_A9 += gt[11]; + m_A9 += gt[12]; + m_A8 += go[9]; + m_A7 += go[10]; + m_A6 += go[11]; + double RHS3 = Idr[9]; + RHS3 += Idr[10]; + RHS3 += Idr[11]; + RHS3 += Idr[12]; + RHS3 -= go[12] * *cnV[12]; const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A6 += m_A1 * f0_2; + const double f0_3 = -f0 * m_A6; + m_A9 += m_A1 * f0_3; + RHS3 += f0_3 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_3 = -f1 * m_A7; + m_A9 += m_A3 * f1_3; + RHS3 += f1_3 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_3 = -f2 * m_A8; + m_A9 += m_A5 * f2_3; + RHS3 += f2_3 * RHS2; + V[3] = RHS3 / m_A9; + double tmp2 = 0.0; + tmp2 += m_A5 * V[3]; + V[2] = (RHS2 - tmp2) / m_A4; + double tmp1 = 0.0; + tmp1 += m_A3 * V[3]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[3]; + V[0] = (RHS0 - tmp0) / m_A0; +} + +// zac1b11142 +static void nl_gcr_861d39f81d29d51_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A4 += go[3]; + m_A3 += go[4]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + m_A7 += gt[5]; + m_A7 += gt[6]; + m_A6 += go[5]; + m_A5 += go[6]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + m_A11 += gt[7]; + m_A11 += gt[8]; + m_A9 += go[7]; + double RHS3 = Idr[7]; + RHS3 += Idr[8]; + RHS3 -= go[8] * *cnV[8]; + const double f0 = 1.0 / m_A0; + const double f0_2 = -f0 * m_A5; + m_A7 += m_A1 * f0_2; RHS2 += f0_2 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A5; - m_A6 += m_A3 * f1_2; + const double f1_2 = -f1 * m_A6; + m_A7 += m_A3 * f1_2; + m_A8 += m_A4 * f1_2; RHS2 += f1_2 * RHS1; - V[2] = RHS2 / m_A6; + const double f1_3 = -f1 * m_A9; + m_A10 += m_A3 * f1_3; + m_A11 += m_A4 * f1_3; + RHS3 += f1_3 * RHS1; + const double f2 = 1.0 / m_A7; + const double f2_3 = -f2 * m_A10; + m_A11 += m_A8 * f2_3; + RHS3 += f2_3 * RHS2; + V[3] = RHS3 / m_A11; + double tmp2 = 0.0; + tmp2 += m_A8 * V[3]; + V[2] = (RHS2 - tmp2) / m_A7; double tmp1 = 0.0; tmp1 += m_A3 * V[2]; + tmp1 += m_A4 * V[3]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; tmp0 += m_A1 * V[2]; @@ -16630,7 +18797,7 @@ static void nl_gcr_7a42b97d838ca073_7_double_double(double * __restrict V, const } // 280zzzap -static void nl_gcr_7afaac594132b463_104_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +static void nl_gcr_864a61c57bac9c38_123_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -16739,573 +18906,720 @@ static void nl_gcr_7afaac594132b463_104_double_double(double * __restrict V, con double m_A101(0.0); double m_A102(0.0); double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); + double m_A111(0.0); + double m_A112(0.0); + double m_A113(0.0); + double m_A114(0.0); + double m_A115(0.0); + double m_A116(0.0); + double m_A117(0.0); + double m_A118(0.0); + double m_A119(0.0); + double m_A120(0.0); + double m_A121(0.0); + double m_A122(0.0); m_A0 += gt[0]; m_A0 += gt[1]; + m_A0 += gt[2]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; + RHS0 += Idr[2]; RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; + RHS0 -= go[2] * *cnV[2]; m_A2 += gt[3]; m_A2 += gt[4]; - m_A2 += gt[5]; - m_A5 += go[2]; - m_A4 += go[3]; - m_A3 += go[4]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; + m_A3 += go[3]; + double RHS1 = Idr[3]; RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 -= go[5] * *cnV[5]; - m_A6 += gt[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A7 += go[6]; - double RHS2 = Idr[6]; + RHS1 -= go[4] * *cnV[4]; + m_A4 += gt[5]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; + m_A4 += gt[9]; + m_A4 += gt[10]; + m_A4 += gt[11]; + m_A5 += go[5]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; RHS2 += Idr[7]; RHS2 += Idr[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 += Idr[11]; + RHS2 -= go[6] * *cnV[6]; RHS2 -= go[7] * *cnV[7]; RHS2 -= go[8] * *cnV[8]; - m_A8 += gt[9]; - m_A8 += gt[10]; - m_A9 += go[9]; - double RHS3 = Idr[9]; - RHS3 += Idr[10]; - RHS3 -= go[10] * *cnV[10]; - m_A10 += gt[11]; - m_A10 += gt[12]; - m_A10 += gt[13]; - m_A12 += go[11]; - m_A11 += go[12]; - double RHS4 = Idr[11]; - RHS4 += Idr[12]; - RHS4 += Idr[13]; - RHS4 -= go[13] * *cnV[13]; - m_A13 += gt[14]; - m_A13 += gt[15]; - m_A14 += go[14]; - double RHS5 = Idr[14]; - RHS5 += Idr[15]; - RHS5 -= go[15] * *cnV[15]; - m_A15 += gt[16]; - m_A15 += gt[17]; - m_A15 += gt[18]; - m_A15 += gt[19]; - m_A15 += gt[20]; - m_A15 += gt[21]; - m_A15 += gt[22]; - m_A19 += go[16]; - m_A18 += go[17]; - m_A17 += go[18]; - m_A16 += go[19]; - double RHS6 = Idr[16]; - RHS6 += Idr[17]; - RHS6 += Idr[18]; - RHS6 += Idr[19]; - RHS6 += Idr[20]; - RHS6 += Idr[21]; - RHS6 += Idr[22]; - RHS6 -= go[20] * *cnV[20]; - RHS6 -= go[21] * *cnV[21]; - RHS6 -= go[22] * *cnV[22]; - m_A20 += gt[23]; - m_A20 += gt[24]; - m_A20 += gt[25]; - m_A20 += gt[26]; - m_A20 += gt[27]; - m_A20 += gt[28]; - m_A20 += gt[29]; - m_A24 += go[23]; - m_A23 += go[24]; - m_A22 += go[25]; - m_A21 += go[26]; - double RHS7 = Idr[23]; - RHS7 += Idr[24]; - RHS7 += Idr[25]; - RHS7 += Idr[26]; + RHS2 -= go[9] * *cnV[9]; + RHS2 -= go[10] * *cnV[10]; + RHS2 -= go[11] * *cnV[11]; + m_A6 += gt[12]; + m_A6 += gt[13]; + m_A6 += gt[14]; + m_A7 += go[12]; + double RHS3 = Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; + RHS3 -= go[13] * *cnV[13]; + RHS3 -= go[14] * *cnV[14]; + m_A8 += gt[15]; + m_A8 += gt[16]; + m_A8 += gt[17]; + m_A8 += gt[18]; + m_A8 += gt[19]; + m_A8 += gt[20]; + m_A8 += gt[21]; + m_A9 += go[15]; + double RHS4 = Idr[15]; + RHS4 += Idr[16]; + RHS4 += Idr[17]; + RHS4 += Idr[18]; + RHS4 += Idr[19]; + RHS4 += Idr[20]; + RHS4 += Idr[21]; + RHS4 -= go[16] * *cnV[16]; + RHS4 -= go[17] * *cnV[17]; + RHS4 -= go[18] * *cnV[18]; + RHS4 -= go[19] * *cnV[19]; + RHS4 -= go[20] * *cnV[20]; + RHS4 -= go[21] * *cnV[21]; + m_A10 += gt[22]; + m_A10 += gt[23]; + m_A11 += go[22]; + double RHS5 = Idr[22]; + RHS5 += Idr[23]; + RHS5 -= go[23] * *cnV[23]; + m_A12 += gt[24]; + m_A12 += gt[25]; + m_A14 += go[24]; + m_A13 += go[25]; + double RHS6 = Idr[24]; + RHS6 += Idr[25]; + m_A15 += gt[26]; + m_A15 += gt[27]; + m_A16 += go[26]; + double RHS7 = Idr[26]; RHS7 += Idr[27]; - RHS7 += Idr[28]; - RHS7 += Idr[29]; RHS7 -= go[27] * *cnV[27]; - RHS7 -= go[28] * *cnV[28]; - RHS7 -= go[29] * *cnV[29]; - m_A25 += gt[30]; - m_A25 += gt[31]; - m_A25 += gt[32]; - m_A26 += go[30]; - m_A27 += go[31]; - double RHS8 = Idr[30]; - RHS8 += Idr[31]; - RHS8 += Idr[32]; - RHS8 -= go[32] * *cnV[32]; - m_A28 += gt[33]; - m_A28 += gt[34]; - m_A29 += go[33]; - double RHS9 = Idr[33]; + m_A17 += gt[28]; + m_A17 += gt[29]; + m_A18 += go[28]; + double RHS8 = Idr[28]; + RHS8 += Idr[29]; + RHS8 -= go[29] * *cnV[29]; + m_A19 += gt[30]; + m_A19 += gt[31]; + m_A19 += gt[32]; + m_A19 += gt[33]; + m_A19 += gt[34]; + m_A19 += gt[35]; + m_A19 += gt[36]; + m_A20 += go[30]; + double RHS9 = Idr[30]; + RHS9 += Idr[31]; + RHS9 += Idr[32]; + RHS9 += Idr[33]; RHS9 += Idr[34]; + RHS9 += Idr[35]; + RHS9 += Idr[36]; + RHS9 -= go[31] * *cnV[31]; + RHS9 -= go[32] * *cnV[32]; + RHS9 -= go[33] * *cnV[33]; RHS9 -= go[34] * *cnV[34]; - m_A30 += gt[35]; - m_A30 += gt[36]; - m_A30 += gt[37]; - m_A30 += gt[38]; - m_A31 += go[35]; - double RHS10 = Idr[35]; - RHS10 += Idr[36]; - RHS10 += Idr[37]; + RHS9 -= go[35] * *cnV[35]; + RHS9 -= go[36] * *cnV[36]; + m_A21 += gt[37]; + m_A21 += gt[38]; + m_A21 += gt[39]; + m_A22 += go[37]; + double RHS10 = Idr[37]; RHS10 += Idr[38]; - RHS10 -= go[36] * *cnV[36]; - RHS10 -= go[37] * *cnV[37]; + RHS10 += Idr[39]; RHS10 -= go[38] * *cnV[38]; - m_A32 += gt[39]; - m_A32 += gt[40]; - m_A33 += go[39]; - double RHS11 = Idr[39]; - RHS11 += Idr[40]; - RHS11 -= go[40] * *cnV[40]; - m_A36 += gt[41]; - m_A36 += gt[42]; - m_A36 += gt[43]; - m_A36 += gt[44]; - m_A35 += go[41]; - m_A34 += go[42]; - double RHS12 = Idr[41]; - RHS12 += Idr[42]; - RHS12 += Idr[43]; - RHS12 += Idr[44]; - RHS12 -= go[43] * *cnV[43]; - RHS12 -= go[44] * *cnV[44]; - m_A42 += gt[45]; - m_A42 += gt[46]; - m_A42 += gt[47]; - m_A42 += gt[48]; - m_A40 += go[45]; - m_A41 += go[46]; - m_A43 += go[47]; - m_A39 += go[48]; - double RHS13 = Idr[45]; - RHS13 += Idr[46]; - RHS13 += Idr[47]; - RHS13 += Idr[48]; - m_A45 += gt[49]; - m_A45 += gt[50]; - m_A45 += gt[51]; - m_A45 += gt[52]; - m_A44 += go[49]; - m_A46 += go[50]; - double RHS14 = Idr[49]; - RHS14 += Idr[50]; - RHS14 += Idr[51]; - RHS14 += Idr[52]; - RHS14 -= go[51] * *cnV[51]; - RHS14 -= go[52] * *cnV[52]; - m_A50 += gt[53]; - m_A50 += gt[54]; - m_A50 += gt[55]; - m_A50 += gt[56]; - m_A48 += go[53]; - m_A47 += go[54]; - double RHS15 = Idr[53]; - RHS15 += Idr[54]; - RHS15 += Idr[55]; + RHS10 -= go[39] * *cnV[39]; + m_A23 += gt[40]; + m_A23 += gt[41]; + m_A23 += gt[42]; + m_A23 += gt[43]; + m_A24 += go[40]; + double RHS11 = Idr[40]; + RHS11 += Idr[41]; + RHS11 += Idr[42]; + RHS11 += Idr[43]; + RHS11 -= go[41] * *cnV[41]; + RHS11 -= go[42] * *cnV[42]; + RHS11 -= go[43] * *cnV[43]; + m_A25 += gt[44]; + m_A25 += gt[45]; + m_A25 += gt[46]; + m_A25 += gt[47]; + m_A25 += gt[48]; + m_A25 += gt[49]; + m_A25 += gt[50]; + m_A26 += go[44]; + double RHS12 = Idr[44]; + RHS12 += Idr[45]; + RHS12 += Idr[46]; + RHS12 += Idr[47]; + RHS12 += Idr[48]; + RHS12 += Idr[49]; + RHS12 += Idr[50]; + RHS12 -= go[45] * *cnV[45]; + RHS12 -= go[46] * *cnV[46]; + RHS12 -= go[47] * *cnV[47]; + RHS12 -= go[48] * *cnV[48]; + RHS12 -= go[49] * *cnV[49]; + RHS12 -= go[50] * *cnV[50]; + m_A27 += gt[51]; + m_A27 += gt[52]; + m_A28 += go[51]; + double RHS13 = Idr[51]; + RHS13 += Idr[52]; + RHS13 -= go[52] * *cnV[52]; + m_A29 += gt[53]; + m_A29 += gt[54]; + m_A30 += go[53]; + double RHS14 = Idr[53]; + RHS14 += Idr[54]; + RHS14 -= go[54] * *cnV[54]; + m_A31 += gt[55]; + m_A31 += gt[56]; + m_A32 += go[55]; + double RHS15 = Idr[55]; RHS15 += Idr[56]; - RHS15 -= go[55] * *cnV[55]; RHS15 -= go[56] * *cnV[56]; - m_A57 += gt[57]; - m_A57 += gt[58]; - m_A57 += gt[59]; - m_A57 += gt[60]; - m_A56 += go[57]; - m_A55 += go[58]; - m_A58 += go[59]; + m_A33 += gt[57]; + m_A33 += gt[58]; + m_A33 += gt[59]; + m_A33 += gt[60]; + m_A35 += go[57]; + m_A34 += go[58]; double RHS16 = Idr[57]; RHS16 += Idr[58]; RHS16 += Idr[59]; RHS16 += Idr[60]; + RHS16 -= go[59] * *cnV[59]; RHS16 -= go[60] * *cnV[60]; - m_A63 += gt[61]; - m_A63 += gt[62]; - m_A63 += gt[63]; - m_A63 += gt[64]; - m_A66 += go[61]; - m_A60 += go[62]; - m_A59 += go[63]; + m_A36 += gt[61]; + m_A36 += gt[62]; + m_A36 += gt[63]; + m_A37 += go[61]; double RHS17 = Idr[61]; RHS17 += Idr[62]; RHS17 += Idr[63]; - RHS17 += Idr[64]; - RHS17 -= go[64] * *cnV[64]; - m_A74 += gt[65]; - m_A74 += gt[66]; - m_A74 += gt[67]; - m_A74 += gt[68]; - m_A74 += gt[69]; - m_A74 += gt[70]; - m_A77 += go[65]; - m_A70 += go[66]; - m_A69 += go[67]; - m_A68 += go[68]; - m_A71 += go[69]; - double RHS18 = Idr[65]; - RHS18 += Idr[66]; - RHS18 += Idr[67]; - RHS18 += Idr[68]; - RHS18 += Idr[69]; - RHS18 += Idr[70]; - RHS18 -= go[70] * *cnV[70]; - m_A85 += gt[71]; - m_A85 += gt[72]; - m_A85 += gt[73]; - m_A85 += gt[74]; - m_A85 += gt[75]; - m_A85 += gt[76]; - m_A82 += go[71]; - m_A87 += go[72]; - m_A79 += go[73]; - m_A80 += go[74]; - m_A78 += go[75]; - double RHS19 = Idr[71]; - RHS19 += Idr[72]; - RHS19 += Idr[73]; - RHS19 += Idr[74]; - RHS19 += Idr[75]; - RHS19 += Idr[76]; - RHS19 -= go[76] * *cnV[76]; - m_A93 += gt[77]; - m_A93 += gt[78]; - m_A93 += gt[79]; - m_A93 += gt[80]; - m_A93 += gt[81]; - m_A89 += go[77]; - m_A88 += go[78]; - m_A90 += go[79]; - double RHS20 = Idr[77]; - RHS20 += Idr[78]; - RHS20 += Idr[79]; - RHS20 += Idr[80]; - RHS20 += Idr[81]; - RHS20 -= go[80] * *cnV[80]; - RHS20 -= go[81] * *cnV[81]; - m_A103 += gt[82]; - m_A103 += gt[83]; - m_A103 += gt[84]; - m_A103 += gt[85]; - m_A103 += gt[86]; - m_A103 += gt[87]; - m_A103 += gt[88]; - m_A97 += go[82]; - m_A96 += go[83]; - m_A101 += go[84]; - m_A95 += go[85]; - m_A100 += go[86]; - double RHS21 = Idr[82]; - RHS21 += Idr[83]; - RHS21 += Idr[84]; - RHS21 += Idr[85]; - RHS21 += Idr[86]; - RHS21 += Idr[87]; - RHS21 += Idr[88]; - RHS21 -= go[87] * *cnV[87]; - RHS21 -= go[88] * *cnV[88]; + RHS17 -= go[62] * *cnV[62]; + RHS17 -= go[63] * *cnV[63]; + m_A38 += gt[64]; + m_A38 += gt[65]; + m_A39 += go[64]; + double RHS18 = Idr[64]; + RHS18 += Idr[65]; + RHS18 -= go[65] * *cnV[65]; + m_A40 += gt[66]; + m_A40 += gt[67]; + m_A41 += go[66]; + double RHS19 = Idr[66]; + RHS19 += Idr[67]; + RHS19 -= go[67] * *cnV[67]; + m_A43 += gt[68]; + m_A43 += gt[69]; + m_A43 += gt[70]; + m_A43 += gt[71]; + m_A42 += go[68]; + double RHS20 = Idr[68]; + RHS20 += Idr[69]; + RHS20 += Idr[70]; + RHS20 += Idr[71]; + RHS20 -= go[69] * *cnV[69]; + RHS20 -= go[70] * *cnV[70]; + RHS20 -= go[71] * *cnV[71]; + m_A47 += gt[72]; + m_A47 += gt[73]; + m_A46 += go[72]; + m_A45 += go[73]; + double RHS21 = Idr[72]; + RHS21 += Idr[73]; + m_A51 += gt[74]; + m_A51 += gt[75]; + m_A49 += go[74]; + double RHS22 = Idr[74]; + RHS22 += Idr[75]; + RHS22 -= go[75] * *cnV[75]; + m_A54 += gt[76]; + m_A54 += gt[77]; + m_A54 += gt[78]; + m_A53 += go[76]; + m_A52 += go[77]; + double RHS23 = Idr[76]; + RHS23 += Idr[77]; + RHS23 += Idr[78]; + RHS23 -= go[78] * *cnV[78]; + m_A56 += gt[79]; + m_A56 += gt[80]; + m_A56 += gt[81]; + m_A56 += gt[82]; + m_A55 += go[79]; + m_A57 += go[80]; + double RHS24 = Idr[79]; + RHS24 += Idr[80]; + RHS24 += Idr[81]; + RHS24 += Idr[82]; + RHS24 -= go[81] * *cnV[81]; + RHS24 -= go[82] * *cnV[82]; + m_A59 += gt[83]; + m_A59 += gt[84]; + m_A59 += gt[85]; + m_A59 += gt[86]; + m_A58 += go[83]; + m_A60 += go[84]; + double RHS25 = Idr[83]; + RHS25 += Idr[84]; + RHS25 += Idr[85]; + RHS25 += Idr[86]; + RHS25 -= go[85] * *cnV[85]; + RHS25 -= go[86] * *cnV[86]; + m_A62 += gt[87]; + m_A62 += gt[88]; + m_A63 += go[87]; + m_A61 += go[88]; + double RHS26 = Idr[87]; + RHS26 += Idr[88]; + m_A67 += gt[89]; + m_A67 += gt[90]; + m_A67 += gt[91]; + m_A67 += gt[92]; + m_A67 += gt[93]; + m_A67 += gt[94]; + m_A64 += go[89]; + m_A65 += go[90]; + m_A69 += go[91]; + m_A68 += go[92]; + double RHS27 = Idr[89]; + RHS27 += Idr[90]; + RHS27 += Idr[91]; + RHS27 += Idr[92]; + RHS27 += Idr[93]; + RHS27 += Idr[94]; + RHS27 -= go[93] * *cnV[93]; + RHS27 -= go[94] * *cnV[94]; + m_A72 += gt[95]; + m_A72 += gt[96]; + m_A72 += gt[97]; + m_A72 += gt[98]; + m_A71 += go[95]; + m_A73 += go[96]; + double RHS28 = Idr[95]; + RHS28 += Idr[96]; + RHS28 += Idr[97]; + RHS28 += Idr[98]; + RHS28 -= go[97] * *cnV[97]; + RHS28 -= go[98] * *cnV[98]; + m_A76 += gt[99]; + m_A76 += gt[100]; + m_A76 += gt[101]; + m_A76 += gt[102]; + m_A77 += go[99]; + m_A78 += go[100]; + m_A74 += go[101]; + m_A75 += go[102]; + double RHS29 = Idr[99]; + RHS29 += Idr[100]; + RHS29 += Idr[101]; + RHS29 += Idr[102]; + m_A81 += gt[103]; + m_A81 += gt[104]; + m_A81 += gt[105]; + m_A80 += go[103]; + m_A79 += go[104]; + double RHS30 = Idr[103]; + RHS30 += Idr[104]; + RHS30 += Idr[105]; + RHS30 -= go[105] * *cnV[105]; + m_A84 += gt[106]; + m_A84 += gt[107]; + m_A82 += go[106]; + m_A83 += go[107]; + double RHS31 = Idr[106]; + RHS31 += Idr[107]; + m_A91 += gt[108]; + m_A91 += gt[109]; + m_A91 += gt[110]; + m_A91 += gt[111]; + m_A91 += gt[112]; + m_A86 += go[108]; + m_A90 += go[109]; + m_A88 += go[110]; + m_A85 += go[111]; + m_A87 += go[112]; + double RHS32 = Idr[108]; + RHS32 += Idr[109]; + RHS32 += Idr[110]; + RHS32 += Idr[111]; + RHS32 += Idr[112]; + m_A99 += gt[113]; + m_A99 += gt[114]; + m_A99 += gt[115]; + m_A99 += gt[116]; + m_A99 += gt[117]; + m_A96 += go[113]; + m_A100 += go[114]; + m_A97 += go[115]; + m_A94 += go[116]; + m_A95 += go[117]; + double RHS33 = Idr[113]; + RHS33 += Idr[114]; + RHS33 += Idr[115]; + RHS33 += Idr[116]; + RHS33 += Idr[117]; + m_A106 += gt[118]; + m_A106 += gt[119]; + m_A106 += gt[120]; + m_A106 += gt[121]; + m_A103 += go[118]; + m_A104 += go[119]; + m_A101 += go[120]; + m_A102 += go[121]; + double RHS34 = Idr[118]; + RHS34 += Idr[119]; + RHS34 += Idr[120]; + RHS34 += Idr[121]; + m_A111 += gt[122]; + m_A111 += gt[123]; + m_A111 += gt[124]; + m_A111 += gt[125]; + m_A108 += go[122]; + m_A109 += go[123]; + double RHS35 = Idr[122]; + RHS35 += Idr[123]; + RHS35 += Idr[124]; + RHS35 += Idr[125]; + RHS35 -= go[124] * *cnV[124]; + RHS35 -= go[125] * *cnV[125]; + m_A122 += gt[126]; + m_A122 += gt[127]; + m_A122 += gt[128]; + m_A122 += gt[129]; + m_A122 += gt[130]; + m_A122 += gt[131]; + m_A113 += go[126]; + m_A117 += go[127]; + m_A120 += go[128]; + m_A114 += go[129]; + double RHS36 = Idr[126]; + RHS36 += Idr[127]; + RHS36 += Idr[128]; + RHS36 += Idr[129]; + RHS36 += Idr[130]; + RHS36 += Idr[131]; + RHS36 -= go[130] * *cnV[130]; + RHS36 -= go[131] * *cnV[131]; const double f0 = 1.0 / m_A0; - const double f0_12 = -f0 * m_A34; - m_A36 += m_A1 * f0_12; - RHS12 += f0_12 * RHS0; + const double f0_24 = -f0 * m_A55; + m_A57 += m_A1 * f0_24; + RHS24 += f0_24 * RHS0; + const double f0_32 = -f0 * m_A85; + m_A91 += m_A1 * f0_32; + RHS32 += f0_32 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_12 = -f1 * m_A35; - m_A36 += m_A3 * f1_12; - m_A37 += m_A4 * f1_12; - m_A38 += m_A5 * f1_12; - RHS12 += f1_12 * RHS1; - const double f1_15 = -f1 * m_A47; - m_A49 += m_A3 * f1_15; - m_A50 += m_A4 * f1_15; - m_A51 += m_A5 * f1_15; - RHS15 += f1_15 * RHS1; - const double f1_17 = -f1 * m_A59; - m_A61 += m_A3 * f1_17; - m_A62 += m_A4 * f1_17; - m_A63 += m_A5 * f1_17; - RHS17 += f1_17 * RHS1; - const double f2 = 1.0 / m_A6; - const double f2_13 = -f2 * m_A39; - m_A42 += m_A7 * f2_13; - RHS13 += f2_13 * RHS2; - const double f3 = 1.0 / m_A8; - const double f3_13 = -f3 * m_A40; - m_A42 += m_A9 * f3_13; - RHS13 += f3_13 * RHS3; - const double f4 = 1.0 / m_A10; - const double f4_13 = -f4 * m_A41; - m_A42 += m_A11 * f4_13; - m_A43 += m_A12 * f4_13; - RHS13 += f4_13 * RHS4; - const double f4_18 = -f4 * m_A68; - m_A71 += m_A11 * f4_18; - m_A74 += m_A12 * f4_18; - RHS18 += f4_18 * RHS4; - const double f5 = 1.0 / m_A13; - const double f5_14 = -f5 * m_A44; - m_A45 += m_A14 * f5_14; - RHS14 += f5_14 * RHS5; - const double f6 = 1.0 / m_A15; - const double f6_15 = -f6 * m_A48; - m_A50 += m_A16 * f6_15; - m_A52 += m_A17 * f6_15; - m_A53 += m_A18 * f6_15; - m_A54 += m_A19 * f6_15; - RHS15 += f6_15 * RHS6; - const double f6_18 = -f6 * m_A69; - m_A72 += m_A16 * f6_18; - m_A74 += m_A17 * f6_18; - m_A75 += m_A18 * f6_18; - m_A77 += m_A19 * f6_18; - RHS18 += f6_18 * RHS6; - const double f6_19 = -f6 * m_A78; - m_A81 += m_A16 * f6_19; - m_A84 += m_A17 * f6_19; - m_A85 += m_A18 * f6_19; - m_A87 += m_A19 * f6_19; - RHS19 += f6_19 * RHS6; - const double f6_21 = -f6 * m_A95; - m_A98 += m_A16 * f6_21; - m_A100 += m_A17 * f6_21; - m_A101 += m_A18 * f6_21; - m_A103 += m_A19 * f6_21; + const double f1_32 = -f1 * m_A86; + m_A91 += m_A3 * f1_32; + RHS32 += f1_32 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_27 = -f2 * m_A64; + m_A66 += m_A5 * f2_27; + RHS27 += f2_27 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_25 = -f3 * m_A58; + m_A60 += m_A7 * f3_25; + RHS25 += f3_25 * RHS3; + const double f3_34 = -f3 * m_A101; + m_A106 += m_A7 * f3_34; + RHS34 += f3_34 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_20 = -f4 * m_A42; + m_A44 += m_A9 * f4_20; + RHS20 += f4_20 * RHS4; + const double f5 = 1.0 / m_A10; + const double f5_21 = -f5 * m_A45; + m_A47 += m_A11 * f5_21; + RHS21 += f5_21 * RHS5; + const double f5_32 = -f5 * m_A87; + m_A88 += m_A11 * f5_32; + RHS32 += f5_32 * RHS5; + const double f6 = 1.0 / m_A12; + const double f6_21 = -f6 * m_A46; + m_A47 += m_A13 * f6_21; + m_A48 += m_A14 * f6_21; RHS21 += f6_21 * RHS6; - const double f7 = 1.0 / m_A20; - const double f7_17 = -f7 * m_A60; - m_A63 += m_A21 * f7_17; - m_A64 += m_A22 * f7_17; - m_A65 += m_A23 * f7_17; - m_A67 += m_A24 * f7_17; - RHS17 += f7_17 * RHS7; - const double f7_18 = -f7 * m_A70; - m_A73 += m_A21 * f7_18; - m_A74 += m_A22 * f7_18; - m_A75 += m_A23 * f7_18; - m_A77 += m_A24 * f7_18; - RHS18 += f7_18 * RHS7; - const double f7_19 = -f7 * m_A79; - m_A83 += m_A21 * f7_19; - m_A84 += m_A22 * f7_19; - m_A85 += m_A23 * f7_19; - m_A87 += m_A24 * f7_19; - RHS19 += f7_19 * RHS7; - const double f7_21 = -f7 * m_A96; - m_A99 += m_A21 * f7_21; - m_A100 += m_A22 * f7_21; - m_A101 += m_A23 * f7_21; - m_A103 += m_A24 * f7_21; - RHS21 += f7_21 * RHS7; - const double f8 = 1.0 / m_A25; - const double f8_16 = -f8 * m_A55; - m_A57 += m_A26 * f8_16; - m_A58 += m_A27 * f8_16; - RHS16 += f8_16 * RHS8; - const double f8_19 = -f8 * m_A80; - m_A82 += m_A26 * f8_19; - m_A85 += m_A27 * f8_19; - RHS19 += f8_19 * RHS8; - const double f9 = 1.0 / m_A28; - const double f9_16 = -f9 * m_A56; - m_A57 += m_A29 * f9_16; - RHS16 += f9_16 * RHS9; - const double f10 = 1.0 / m_A30; - const double f10_20 = -f10 * m_A88; - m_A93 += m_A31 * f10_20; - RHS20 += f10_20 * RHS10; - const double f11 = 1.0 / m_A32; - const double f11_20 = -f11 * m_A89; - m_A93 += m_A33 * f11_20; - RHS20 += f11_20 * RHS11; - const double f12 = 1.0 / m_A36; - const double f12_15 = -f12 * m_A49; - m_A50 += m_A37 * f12_15; - m_A51 += m_A38 * f12_15; - RHS15 += f12_15 * RHS12; - const double f12_17 = -f12 * m_A61; - m_A62 += m_A37 * f12_17; - m_A63 += m_A38 * f12_17; - RHS17 += f12_17 * RHS12; - const double f13 = 1.0 / m_A42; - const double f13_18 = -f13 * m_A71; - m_A74 += m_A43 * f13_18; - RHS18 += f13_18 * RHS13; - const double f14 = 1.0 / m_A45; - const double f14_21 = -f14 * m_A97; - m_A103 += m_A46 * f14_21; - RHS21 += f14_21 * RHS14; - const double f15 = 1.0 / m_A50; - const double f15_17 = -f15 * m_A62; - m_A63 += m_A51 * f15_17; - m_A64 += m_A52 * f15_17; - m_A65 += m_A53 * f15_17; - m_A67 += m_A54 * f15_17; - RHS17 += f15_17 * RHS15; - const double f15_18 = -f15 * m_A72; - m_A73 += m_A51 * f15_18; - m_A74 += m_A52 * f15_18; - m_A75 += m_A53 * f15_18; - m_A77 += m_A54 * f15_18; - RHS18 += f15_18 * RHS15; - const double f15_19 = -f15 * m_A81; - m_A83 += m_A51 * f15_19; - m_A84 += m_A52 * f15_19; - m_A85 += m_A53 * f15_19; - m_A87 += m_A54 * f15_19; - RHS19 += f15_19 * RHS15; - const double f15_21 = -f15 * m_A98; - m_A99 += m_A51 * f15_21; - m_A100 += m_A52 * f15_21; - m_A101 += m_A53 * f15_21; - m_A103 += m_A54 * f15_21; - RHS21 += f15_21 * RHS15; - const double f16 = 1.0 / m_A57; - const double f16_19 = -f16 * m_A82; - m_A85 += m_A58 * f16_19; - RHS19 += f16_19 * RHS16; - const double f17 = 1.0 / m_A63; - const double f17_18 = -f17 * m_A73; - m_A74 += m_A64 * f17_18; - m_A75 += m_A65 * f17_18; - m_A76 += m_A66 * f17_18; - m_A77 += m_A67 * f17_18; - RHS18 += f17_18 * RHS17; - const double f17_19 = -f17 * m_A83; - m_A84 += m_A64 * f17_19; - m_A85 += m_A65 * f17_19; - m_A86 += m_A66 * f17_19; - m_A87 += m_A67 * f17_19; - RHS19 += f17_19 * RHS17; - const double f17_20 = -f17 * m_A90; - m_A91 += m_A64 * f17_20; - m_A92 += m_A65 * f17_20; - m_A93 += m_A66 * f17_20; - m_A94 += m_A67 * f17_20; - RHS20 += f17_20 * RHS17; - const double f17_21 = -f17 * m_A99; - m_A100 += m_A64 * f17_21; - m_A101 += m_A65 * f17_21; - m_A102 += m_A66 * f17_21; - m_A103 += m_A67 * f17_21; - RHS21 += f17_21 * RHS17; - const double f18 = 1.0 / m_A74; - const double f18_19 = -f18 * m_A84; - m_A85 += m_A75 * f18_19; - m_A86 += m_A76 * f18_19; - m_A87 += m_A77 * f18_19; - RHS19 += f18_19 * RHS18; - const double f18_20 = -f18 * m_A91; - m_A92 += m_A75 * f18_20; - m_A93 += m_A76 * f18_20; - m_A94 += m_A77 * f18_20; - RHS20 += f18_20 * RHS18; - const double f18_21 = -f18 * m_A100; - m_A101 += m_A75 * f18_21; - m_A102 += m_A76 * f18_21; - m_A103 += m_A77 * f18_21; - RHS21 += f18_21 * RHS18; - const double f19 = 1.0 / m_A85; - const double f19_20 = -f19 * m_A92; - m_A93 += m_A86 * f19_20; - m_A94 += m_A87 * f19_20; - RHS20 += f19_20 * RHS19; - const double f19_21 = -f19 * m_A101; - m_A102 += m_A86 * f19_21; - m_A103 += m_A87 * f19_21; - RHS21 += f19_21 * RHS19; - const double f20 = 1.0 / m_A93; - const double f20_21 = -f20 * m_A102; - m_A103 += m_A94 * f20_21; - RHS21 += f20_21 * RHS20; - V[21] = RHS21 / m_A103; + const double f6_22 = -f6 * m_A49; + m_A50 += m_A13 * f6_22; + m_A51 += m_A14 * f6_22; + RHS22 += f6_22 * RHS6; + const double f7 = 1.0 / m_A15; + const double f7_23 = -f7 * m_A52; + m_A54 += m_A16 * f7_23; + RHS23 += f7_23 * RHS7; + const double f7_34 = -f7 * m_A102; + m_A103 += m_A16 * f7_34; + RHS34 += f7_34 * RHS7; + const double f8 = 1.0 / m_A17; + const double f8_23 = -f8 * m_A53; + m_A54 += m_A18 * f8_23; + RHS23 += f8_23 * RHS8; + const double f9 = 1.0 / m_A19; + const double f9_36 = -f9 * m_A113; + m_A116 += m_A20 * f9_36; + RHS36 += f9_36 * RHS9; + const double f10 = 1.0 / m_A21; + const double f10_28 = -f10 * m_A71; + m_A73 += m_A22 * f10_28; + RHS28 += f10_28 * RHS10; + const double f10_33 = -f10 * m_A94; + m_A99 += m_A22 * f10_33; + RHS33 += f10_33 * RHS10; + const double f13 = 1.0 / m_A27; + const double f13_26 = -f13 * m_A61; + m_A62 += m_A28 * f13_26; + RHS26 += f13_26 * RHS13; + const double f13_33 = -f13 * m_A95; + m_A97 += m_A28 * f13_33; + RHS33 += f13_33 * RHS13; + const double f14 = 1.0 / m_A29; + const double f14_33 = -f14 * m_A96; + m_A99 += m_A30 * f14_33; + RHS33 += f14_33 * RHS14; + const double f15 = 1.0 / m_A31; + const double f15_31 = -f15 * m_A82; + m_A84 += m_A32 * f15_31; + RHS31 += f15_31 * RHS15; + const double f16 = 1.0 / m_A33; + const double f16_27 = -f16 * m_A65; + m_A67 += m_A34 * f16_27; + m_A70 += m_A35 * f16_27; + RHS27 += f16_27 * RHS16; + const double f16_36 = -f16 * m_A114; + m_A115 += m_A34 * f16_36; + m_A122 += m_A35 * f16_36; + RHS36 += f16_36 * RHS16; + const double f17 = 1.0 / m_A36; + const double f17_29 = -f17 * m_A74; + m_A76 += m_A37 * f17_29; + RHS29 += f17_29 * RHS17; + const double f17_35 = -f17 * m_A108; + m_A109 += m_A37 * f17_35; + RHS35 += f17_35 * RHS17; + const double f18 = 1.0 / m_A38; + const double f18_29 = -f18 * m_A75; + m_A77 += m_A39 * f18_29; + RHS29 += f18_29 * RHS18; + const double f18_30 = -f18 * m_A79; + m_A81 += m_A39 * f18_30; + RHS30 += f18_30 * RHS18; + const double f19 = 1.0 / m_A40; + const double f19_30 = -f19 * m_A80; + m_A81 += m_A41 * f19_30; + RHS30 += f19_30 * RHS19; + const double f21 = 1.0 / m_A47; + const double f21_22 = -f21 * m_A50; + m_A51 += m_A48 * f21_22; + RHS22 += f21_22 * RHS21; + const double f21_32 = -f21 * m_A88; + m_A89 += m_A48 * f21_32; + RHS32 += f21_32 * RHS21; + const double f22 = 1.0 / m_A51; + const double f22_32 = -f22 * m_A89; + RHS32 += f22_32 * RHS22; + const double f23 = 1.0 / m_A54; + const double f23_34 = -f23 * m_A103; + RHS34 += f23_34 * RHS23; + const double f24 = 1.0 / m_A56; + const double f24_27 = -f24 * m_A66; + m_A68 += m_A57 * f24_27; + RHS27 += f24_27 * RHS24; + const double f26 = 1.0 / m_A62; + const double f26_31 = -f26 * m_A83; + m_A84 += m_A63 * f26_31; + RHS31 += f26_31 * RHS26; + const double f26_33 = -f26 * m_A97; + m_A98 += m_A63 * f26_33; + RHS33 += f26_33 * RHS26; + const double f27 = 1.0 / m_A67; + const double f27_32 = -f27 * m_A90; + m_A91 += m_A68 * f27_32; + m_A92 += m_A69 * f27_32; + m_A93 += m_A70 * f27_32; + RHS32 += f27_32 * RHS27; + const double f27_34 = -f27 * m_A104; + m_A105 += m_A68 * f27_34; + m_A106 += m_A69 * f27_34; + m_A107 += m_A70 * f27_34; + RHS34 += f27_34 * RHS27; + const double f27_36 = -f27 * m_A115; + m_A119 += m_A68 * f27_36; + m_A121 += m_A69 * f27_36; + m_A122 += m_A70 * f27_36; + RHS36 += f27_36 * RHS27; + const double f28 = 1.0 / m_A72; + const double f28_36 = -f28 * m_A116; + m_A120 += m_A73 * f28_36; + RHS36 += f28_36 * RHS28; + const double f29 = 1.0 / m_A76; + const double f29_35 = -f29 * m_A109; + m_A110 += m_A77 * f29_35; + m_A112 += m_A78 * f29_35; + RHS35 += f29_35 * RHS29; + const double f29_36 = -f29 * m_A117; + m_A118 += m_A77 * f29_36; + m_A122 += m_A78 * f29_36; + RHS36 += f29_36 * RHS29; + const double f30 = 1.0 / m_A81; + const double f30_35 = -f30 * m_A110; + RHS35 += f30_35 * RHS30; + const double f30_36 = -f30 * m_A118; + RHS36 += f30_36 * RHS30; + const double f31 = 1.0 / m_A84; + const double f31_33 = -f31 * m_A98; + RHS33 += f31_33 * RHS31; + const double f32 = 1.0 / m_A91; + const double f32_34 = -f32 * m_A105; + m_A106 += m_A92 * f32_34; + m_A107 += m_A93 * f32_34; + RHS34 += f32_34 * RHS32; + const double f32_36 = -f32 * m_A119; + m_A121 += m_A92 * f32_36; + m_A122 += m_A93 * f32_36; + RHS36 += f32_36 * RHS32; + const double f33 = 1.0 / m_A99; + const double f33_36 = -f33 * m_A120; + m_A122 += m_A100 * f33_36; + RHS36 += f33_36 * RHS33; + const double f34 = 1.0 / m_A106; + const double f34_36 = -f34 * m_A121; + m_A122 += m_A107 * f34_36; + RHS36 += f34_36 * RHS34; + V[36] = RHS36 / m_A122; + double tmp35 = 0.0; + tmp35 += m_A112 * V[36]; + V[35] = (RHS35 - tmp35) / m_A111; + double tmp34 = 0.0; + tmp34 += m_A107 * V[36]; + V[34] = (RHS34 - tmp34) / m_A106; + double tmp33 = 0.0; + tmp33 += m_A100 * V[36]; + V[33] = (RHS33 - tmp33) / m_A99; + double tmp32 = 0.0; + tmp32 += m_A92 * V[34]; + tmp32 += m_A93 * V[36]; + V[32] = (RHS32 - tmp32) / m_A91; + double tmp31 = 0.0; + V[31] = (RHS31 - tmp31) / m_A84; + double tmp30 = 0.0; + V[30] = (RHS30 - tmp30) / m_A81; + double tmp29 = 0.0; + tmp29 += m_A77 * V[30]; + tmp29 += m_A78 * V[36]; + V[29] = (RHS29 - tmp29) / m_A76; + double tmp28 = 0.0; + tmp28 += m_A73 * V[33]; + V[28] = (RHS28 - tmp28) / m_A72; + double tmp27 = 0.0; + tmp27 += m_A68 * V[32]; + tmp27 += m_A69 * V[34]; + tmp27 += m_A70 * V[36]; + V[27] = (RHS27 - tmp27) / m_A67; + double tmp26 = 0.0; + tmp26 += m_A63 * V[31]; + V[26] = (RHS26 - tmp26) / m_A62; + double tmp25 = 0.0; + tmp25 += m_A60 * V[34]; + V[25] = (RHS25 - tmp25) / m_A59; + double tmp24 = 0.0; + tmp24 += m_A57 * V[32]; + V[24] = (RHS24 - tmp24) / m_A56; + double tmp23 = 0.0; + V[23] = (RHS23 - tmp23) / m_A54; + double tmp22 = 0.0; + V[22] = (RHS22 - tmp22) / m_A51; + double tmp21 = 0.0; + tmp21 += m_A48 * V[22]; + V[21] = (RHS21 - tmp21) / m_A47; double tmp20 = 0.0; - tmp20 += m_A94 * V[21]; - V[20] = (RHS20 - tmp20) / m_A93; + tmp20 += m_A44 * V[25]; + V[20] = (RHS20 - tmp20) / m_A43; double tmp19 = 0.0; - tmp19 += m_A86 * V[20]; - tmp19 += m_A87 * V[21]; - V[19] = (RHS19 - tmp19) / m_A85; + tmp19 += m_A41 * V[30]; + V[19] = (RHS19 - tmp19) / m_A40; double tmp18 = 0.0; - tmp18 += m_A75 * V[19]; - tmp18 += m_A76 * V[20]; - tmp18 += m_A77 * V[21]; - V[18] = (RHS18 - tmp18) / m_A74; + tmp18 += m_A39 * V[30]; + V[18] = (RHS18 - tmp18) / m_A38; double tmp17 = 0.0; - tmp17 += m_A64 * V[18]; - tmp17 += m_A65 * V[19]; - tmp17 += m_A66 * V[20]; - tmp17 += m_A67 * V[21]; - V[17] = (RHS17 - tmp17) / m_A63; + tmp17 += m_A37 * V[29]; + V[17] = (RHS17 - tmp17) / m_A36; double tmp16 = 0.0; - tmp16 += m_A58 * V[19]; - V[16] = (RHS16 - tmp16) / m_A57; + tmp16 += m_A34 * V[27]; + tmp16 += m_A35 * V[36]; + V[16] = (RHS16 - tmp16) / m_A33; double tmp15 = 0.0; - tmp15 += m_A51 * V[17]; - tmp15 += m_A52 * V[18]; - tmp15 += m_A53 * V[19]; - tmp15 += m_A54 * V[21]; - V[15] = (RHS15 - tmp15) / m_A50; + tmp15 += m_A32 * V[31]; + V[15] = (RHS15 - tmp15) / m_A31; double tmp14 = 0.0; - tmp14 += m_A46 * V[21]; - V[14] = (RHS14 - tmp14) / m_A45; + tmp14 += m_A30 * V[33]; + V[14] = (RHS14 - tmp14) / m_A29; double tmp13 = 0.0; - tmp13 += m_A43 * V[18]; - V[13] = (RHS13 - tmp13) / m_A42; + tmp13 += m_A28 * V[26]; + V[13] = (RHS13 - tmp13) / m_A27; double tmp12 = 0.0; - tmp12 += m_A37 * V[15]; - tmp12 += m_A38 * V[17]; - V[12] = (RHS12 - tmp12) / m_A36; + tmp12 += m_A26 * V[35]; + V[12] = (RHS12 - tmp12) / m_A25; double tmp11 = 0.0; - tmp11 += m_A33 * V[20]; - V[11] = (RHS11 - tmp11) / m_A32; + tmp11 += m_A24 * V[12]; + V[11] = (RHS11 - tmp11) / m_A23; double tmp10 = 0.0; - tmp10 += m_A31 * V[20]; - V[10] = (RHS10 - tmp10) / m_A30; + tmp10 += m_A22 * V[33]; + V[10] = (RHS10 - tmp10) / m_A21; double tmp9 = 0.0; - tmp9 += m_A29 * V[16]; - V[9] = (RHS9 - tmp9) / m_A28; + tmp9 += m_A20 * V[28]; + V[9] = (RHS9 - tmp9) / m_A19; double tmp8 = 0.0; - tmp8 += m_A26 * V[16]; - tmp8 += m_A27 * V[19]; - V[8] = (RHS8 - tmp8) / m_A25; + tmp8 += m_A18 * V[23]; + V[8] = (RHS8 - tmp8) / m_A17; double tmp7 = 0.0; - tmp7 += m_A21 * V[17]; - tmp7 += m_A22 * V[18]; - tmp7 += m_A23 * V[19]; - tmp7 += m_A24 * V[21]; - V[7] = (RHS7 - tmp7) / m_A20; + tmp7 += m_A16 * V[23]; + V[7] = (RHS7 - tmp7) / m_A15; double tmp6 = 0.0; - tmp6 += m_A16 * V[15]; - tmp6 += m_A17 * V[18]; - tmp6 += m_A18 * V[19]; - tmp6 += m_A19 * V[21]; - V[6] = (RHS6 - tmp6) / m_A15; + tmp6 += m_A13 * V[21]; + tmp6 += m_A14 * V[22]; + V[6] = (RHS6 - tmp6) / m_A12; double tmp5 = 0.0; - tmp5 += m_A14 * V[14]; - V[5] = (RHS5 - tmp5) / m_A13; + tmp5 += m_A11 * V[21]; + V[5] = (RHS5 - tmp5) / m_A10; double tmp4 = 0.0; - tmp4 += m_A11 * V[13]; - tmp4 += m_A12 * V[18]; - V[4] = (RHS4 - tmp4) / m_A10; + tmp4 += m_A9 * V[25]; + V[4] = (RHS4 - tmp4) / m_A8; double tmp3 = 0.0; - tmp3 += m_A9 * V[13]; - V[3] = (RHS3 - tmp3) / m_A8; + tmp3 += m_A7 * V[34]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A7 * V[13]; - V[2] = (RHS2 - tmp2) / m_A6; + tmp2 += m_A5 * V[24]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[12]; - tmp1 += m_A4 * V[15]; - tmp1 += m_A5 * V[17]; + tmp1 += m_A3 * V[32]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[12]; + tmp0 += m_A1 * V[32]; V[0] = (RHS0 - tmp0) / m_A0; } -// cheekyms -static void nl_gcr_7c86a9bc1c6aef4c_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// zac1b11142 +static void nl_gcr_87cb2c78a2628efd_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -17328,22 +19642,37 @@ static void nl_gcr_7c86a9bc1c6aef4c_7_double_double(double * __restrict V, const RHS0 -= go[2] * *cnV[2]; m_A2 += gt[3]; m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; m_A3 += go[3]; + m_A3 += go[4]; double RHS1 = Idr[3]; RHS1 += Idr[4]; - RHS1 -= go[4] * *cnV[4]; - m_A6 += gt[5]; - m_A6 += gt[6]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 -= go[5] * *cnV[5]; + RHS1 -= go[6] * *cnV[6]; m_A6 += gt[7]; m_A6 += gt[8]; - m_A5 += go[5]; - m_A4 += go[6]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A6 += gt[13]; + m_A5 += go[7]; + m_A5 += go[8]; + m_A4 += go[9]; + double RHS2 = Idr[7]; RHS2 += Idr[8]; - RHS2 -= go[7] * *cnV[7]; - RHS2 -= go[8] * *cnV[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 += Idr[11]; + RHS2 += Idr[12]; + RHS2 += Idr[13]; + RHS2 -= go[10] * *cnV[10]; + RHS2 -= go[11] * *cnV[11]; + RHS2 -= go[12] * *cnV[12]; + RHS2 -= go[13] * *cnV[13]; const double f0 = 1.0 / m_A0; const double f0_2 = -f0 * m_A4; m_A6 += m_A1 * f0_2; @@ -17361,8 +19690,8 @@ static void nl_gcr_7c86a9bc1c6aef4c_7_double_double(double * __restrict V, const V[0] = (RHS0 - tmp0) / m_A0; } -// solarq -static void nl_gcr_7caaa135bff3d9f3_15_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// starcas +static void nl_gcr_88a8ef5f6bd43d48_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -17379,9 +19708,6 @@ static void nl_gcr_7caaa135bff3d9f3_15_double_double(double * __restrict V, cons double m_A9(0.0); double m_A10(0.0); double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -17397,290 +19723,56 @@ static void nl_gcr_7caaa135bff3d9f3_15_double_double(double * __restrict V, cons RHS1 += Idr[3]; RHS1 += Idr[4]; RHS1 -= go[4] * *cnV[4]; - m_A5 += gt[5]; - m_A5 += gt[6]; - m_A6 += go[5]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - RHS2 -= go[6] * *cnV[6]; - m_A9 += gt[7]; - m_A9 += gt[8]; - m_A9 += gt[9]; - m_A8 += go[7]; - m_A7 += go[8]; - double RHS3 = Idr[7]; - RHS3 += Idr[8]; - RHS3 += Idr[9]; - RHS3 -= go[9] * *cnV[9]; - m_A14 += gt[10]; - m_A14 += gt[11]; - m_A14 += gt[12]; - m_A12 += go[10]; - m_A11 += go[11]; - double RHS4 = Idr[10]; - RHS4 += Idr[11]; - RHS4 += Idr[12]; - RHS4 -= go[12] * *cnV[12]; - const double f0 = 1.0 / m_A0; - const double f0_3 = -f0 * m_A7; - m_A9 += m_A1 * f0_3; - RHS3 += f0_3 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A8; - m_A9 += m_A3 * f1_3; - m_A10 += m_A4 * f1_3; - RHS3 += f1_3 * RHS1; - const double f1_4 = -f1 * m_A11; - m_A13 += m_A3 * f1_4; - m_A14 += m_A4 * f1_4; - RHS4 += f1_4 * RHS1; - const double f2 = 1.0 / m_A5; - const double f2_4 = -f2 * m_A12; - m_A14 += m_A6 * f2_4; - RHS4 += f2_4 * RHS2; - const double f3 = 1.0 / m_A9; - const double f3_4 = -f3 * m_A13; - m_A14 += m_A10 * f3_4; - RHS4 += f3_4 * RHS3; - V[4] = RHS4 / m_A14; - double tmp3 = 0.0; - tmp3 += m_A10 * V[4]; - V[3] = (RHS3 - tmp3) / m_A9; - double tmp2 = 0.0; - tmp2 += m_A6 * V[4]; - V[2] = (RHS2 - tmp2) / m_A5; - double tmp1 = 0.0; - tmp1 += m_A3 * V[3]; - tmp1 += m_A4 * V[4]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[3]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// warrior -static void nl_gcr_8003d4625273fa4d_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 += Idr[4]; - RHS1 -= go[3] * *cnV[3]; - RHS1 -= go[4] * *cnV[4]; - m_A5 += gt[5]; - m_A5 += gt[6]; - m_A5 += gt[7]; + m_A7 += gt[5]; + m_A7 += gt[6]; + m_A7 += gt[7]; m_A6 += go[5]; - m_A4 += go[6]; + m_A5 += go[6]; double RHS2 = Idr[5]; RHS2 += Idr[6]; RHS2 += Idr[7]; RHS2 -= go[7] * *cnV[7]; - m_A9 += gt[8]; - m_A9 += gt[9]; - m_A7 += go[8]; - m_A8 += go[9]; + m_A11 += gt[8]; + m_A11 += gt[9]; + m_A11 += gt[10]; + m_A9 += go[8]; double RHS3 = Idr[8]; RHS3 += Idr[9]; + RHS3 += Idr[10]; + RHS3 -= go[9] * *cnV[9]; + RHS3 -= go[10] * *cnV[10]; const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A5 += m_A1 * f0_2; + const double f0_2 = -f0 * m_A5; + m_A7 += m_A1 * f0_2; RHS2 += f0_2 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A7; - m_A9 += m_A3 * f1_3; + const double f1_2 = -f1 * m_A6; + m_A7 += m_A3 * f1_2; + m_A8 += m_A4 * f1_2; + RHS2 += f1_2 * RHS1; + const double f1_3 = -f1 * m_A9; + m_A10 += m_A3 * f1_3; + m_A11 += m_A4 * f1_3; RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A5; - const double f2_3 = -f2 * m_A8; - m_A9 += m_A6 * f2_3; + const double f2 = 1.0 / m_A7; + const double f2_3 = -f2 * m_A10; + m_A11 += m_A8 * f2_3; RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A9; + V[3] = RHS3 / m_A11; double tmp2 = 0.0; - tmp2 += m_A6 * V[3]; - V[2] = (RHS2 - tmp2) / m_A5; + tmp2 += m_A8 * V[3]; + V[2] = (RHS2 - tmp2) / m_A7; double tmp1 = 0.0; - tmp1 += m_A3 * V[3]; + tmp1 += m_A3 * V[2]; + tmp1 += m_A4 * V[3]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; tmp0 += m_A1 * V[2]; V[0] = (RHS0 - tmp0) / m_A0; } -// kidniki -static void nl_gcr_8046625a0fe0959_21_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); - double m_A15(0.0); - double m_A16(0.0); - double m_A17(0.0); - double m_A18(0.0); - double m_A19(0.0); - double m_A20(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A0 += gt[3]; - m_A0 += gt[4]; - m_A0 += gt[5]; - m_A0 += gt[6]; - m_A1 += go[0]; - m_A2 += go[1]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 += Idr[3]; - RHS0 += Idr[4]; - RHS0 += Idr[5]; - RHS0 += Idr[6]; - RHS0 -= go[2] * *cnV[2]; - RHS0 -= go[3] * *cnV[3]; - RHS0 -= go[4] * *cnV[4]; - RHS0 -= go[5] * *cnV[5]; - RHS0 -= go[6] * *cnV[6]; - m_A3 += gt[7]; - m_A3 += gt[8]; - m_A3 += gt[9]; - m_A5 += go[7]; - m_A4 += go[8]; - double RHS1 = Idr[7]; - RHS1 += Idr[8]; - RHS1 += Idr[9]; - RHS1 -= go[9] * *cnV[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A7 += go[10]; - m_A8 += go[11]; - double RHS2 = Idr[10]; - RHS2 += Idr[11]; - m_A10 += gt[12]; - m_A10 += gt[13]; - m_A10 += gt[14]; - m_A9 += go[12]; - double RHS3 = Idr[12]; - RHS3 += Idr[13]; - RHS3 += Idr[14]; - RHS3 -= go[13] * *cnV[13]; - RHS3 -= go[14] * *cnV[14]; - m_A14 += gt[15]; - m_A14 += gt[16]; - m_A14 += gt[17]; - m_A14 += gt[18]; - m_A14 += gt[19]; - m_A14 += gt[20]; - m_A12 += go[15]; - m_A15 += go[16]; - m_A13 += go[17]; - double RHS4 = Idr[15]; - RHS4 += Idr[16]; - RHS4 += Idr[17]; - RHS4 += Idr[18]; - RHS4 += Idr[19]; - RHS4 += Idr[20]; - RHS4 -= go[18] * *cnV[18]; - RHS4 -= go[19] * *cnV[19]; - RHS4 -= go[20] * *cnV[20]; - m_A20 += gt[21]; - m_A20 += gt[22]; - m_A20 += gt[23]; - m_A17 += go[21]; - m_A16 += go[22]; - m_A19 += go[23]; - double RHS5 = Idr[21]; - RHS5 += Idr[22]; - RHS5 += Idr[23]; - const double f0 = 1.0 / m_A0; - const double f0_4 = -f0 * m_A12; - m_A13 += m_A1 * f0_4; - m_A14 += m_A2 * f0_4; - RHS4 += f0_4 * RHS0; - const double f1 = 1.0 / m_A3; - const double f1_4 = -f1 * m_A13; - m_A14 += m_A4 * f1_4; - m_A15 += m_A5 * f1_4; - RHS4 += f1_4 * RHS1; - const double f1_5 = -f1 * m_A16; - m_A19 += m_A4 * f1_5; - m_A20 += m_A5 * f1_5; - RHS5 += f1_5 * RHS1; - const double f2 = 1.0 / m_A6; - const double f2_3 = -f2 * m_A9; - m_A10 += m_A7 * f2_3; - m_A11 += m_A8 * f2_3; - RHS3 += f2_3 * RHS2; - const double f2_5 = -f2 * m_A17; - m_A18 += m_A7 * f2_5; - m_A20 += m_A8 * f2_5; - RHS5 += f2_5 * RHS2; - const double f3 = 1.0 / m_A10; - const double f3_5 = -f3 * m_A18; - m_A20 += m_A11 * f3_5; - RHS5 += f3_5 * RHS3; - const double f4 = 1.0 / m_A14; - const double f4_5 = -f4 * m_A19; - m_A20 += m_A15 * f4_5; - RHS5 += f4_5 * RHS4; - V[5] = RHS5 / m_A20; - double tmp4 = 0.0; - tmp4 += m_A15 * V[5]; - V[4] = (RHS4 - tmp4) / m_A14; - double tmp3 = 0.0; - tmp3 += m_A11 * V[5]; - V[3] = (RHS3 - tmp3) / m_A10; - double tmp2 = 0.0; - tmp2 += m_A7 * V[3]; - tmp2 += m_A8 * V[5]; - V[2] = (RHS2 - tmp2) / m_A6; - double tmp1 = 0.0; - tmp1 += m_A4 * V[4]; - tmp1 += m_A5 * V[5]; - V[1] = (RHS1 - tmp1) / m_A3; - double tmp0 = 0.0; - tmp0 += m_A1 * V[1]; - tmp0 += m_A2 * V[4]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// mario -static void nl_gcr_80b4b1e5cc58d303_29_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// breakout +static void nl_gcr_8a1565d1413f42f7_31_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -17714,190 +19806,198 @@ static void nl_gcr_80b4b1e5cc58d303_29_double_double(double * __restrict V, cons double m_A26(0.0); double m_A27(0.0); double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; + m_A0 += gt[3]; + m_A0 += gt[4]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; + RHS0 += Idr[3]; + RHS0 += Idr[4]; RHS0 -= go[1] * *cnV[1]; RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; + RHS0 -= go[3] * *cnV[3]; + RHS0 -= go[4] * *cnV[4]; m_A2 += gt[5]; - m_A3 += go[3]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 -= go[4] * *cnV[4]; - RHS1 -= go[5] * *cnV[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; + m_A2 += gt[6]; + m_A2 += gt[7]; + m_A3 += go[5]; + double RHS1 = Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; + RHS1 -= go[6] * *cnV[6]; + RHS1 -= go[7] * *cnV[7]; m_A4 += gt[8]; - m_A5 += go[6]; - double RHS2 = Idr[6]; - RHS2 += Idr[7]; - RHS2 += Idr[8]; - RHS2 -= go[7] * *cnV[7]; - RHS2 -= go[8] * *cnV[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A8 += go[9]; - m_A7 += go[10]; - m_A7 += go[11]; - double RHS3 = Idr[9]; - RHS3 += Idr[10]; - RHS3 += Idr[11]; + m_A4 += gt[9]; + m_A4 += gt[10]; + m_A5 += go[8]; + m_A6 += go[9]; + double RHS2 = Idr[8]; + RHS2 += Idr[9]; + RHS2 += Idr[10]; + RHS2 -= go[10] * *cnV[10]; + m_A7 += gt[11]; + m_A7 += gt[12]; + m_A7 += gt[13]; + m_A8 += go[11]; + double RHS3 = Idr[11]; RHS3 += Idr[12]; + RHS3 += Idr[13]; RHS3 -= go[12] * *cnV[12]; - m_A9 += gt[13]; + RHS3 -= go[13] * *cnV[13]; m_A9 += gt[14]; m_A9 += gt[15]; - m_A10 += go[13]; - double RHS4 = Idr[13]; - RHS4 += Idr[14]; + m_A9 += gt[16]; + m_A10 += go[14]; + double RHS4 = Idr[14]; RHS4 += Idr[15]; - RHS4 -= go[14] * *cnV[14]; + RHS4 += Idr[16]; RHS4 -= go[15] * *cnV[15]; - m_A11 += gt[16]; - m_A11 += gt[17]; - m_A12 += go[16]; - double RHS5 = Idr[16]; - RHS5 += Idr[17]; - RHS5 -= go[17] * *cnV[17]; - m_A14 += gt[18]; - m_A14 += gt[19]; - m_A14 += gt[20]; - m_A14 += gt[21]; - m_A14 += gt[22]; - m_A14 += gt[23]; - m_A14 += gt[24]; - m_A16 += go[18]; - m_A16 += go[19]; - m_A13 += go[20]; - m_A13 += go[21]; - m_A15 += go[22]; - double RHS6 = Idr[18]; - RHS6 += Idr[19]; - RHS6 += Idr[20]; - RHS6 += Idr[21]; - RHS6 += Idr[22]; - RHS6 += Idr[23]; - RHS6 += Idr[24]; - RHS6 -= go[23] * *cnV[23]; - RHS6 -= go[24] * *cnV[24]; - m_A22 += gt[25]; - m_A22 += gt[26]; - m_A22 += gt[27]; - m_A22 += gt[28]; - m_A22 += gt[29]; - m_A22 += gt[30]; - m_A20 += go[25]; - m_A21 += go[26]; - m_A19 += go[27]; - m_A18 += go[28]; - m_A17 += go[29]; - double RHS7 = Idr[25]; - RHS7 += Idr[26]; - RHS7 += Idr[27]; - RHS7 += Idr[28]; - RHS7 += Idr[29]; + RHS4 -= go[16] * *cnV[16]; + m_A12 += gt[17]; + m_A12 += gt[18]; + m_A12 += gt[19]; + m_A12 += gt[20]; + m_A12 += gt[21]; + m_A12 += gt[22]; + m_A12 += gt[23]; + m_A14 += go[17]; + m_A13 += go[18]; + m_A11 += go[19]; + double RHS5 = Idr[17]; + RHS5 += Idr[18]; + RHS5 += Idr[19]; + RHS5 += Idr[20]; + RHS5 += Idr[21]; + RHS5 += Idr[22]; + RHS5 += Idr[23]; + RHS5 -= go[20] * *cnV[20]; + RHS5 -= go[21] * *cnV[21]; + RHS5 -= go[22] * *cnV[22]; + RHS5 -= go[23] * *cnV[23]; + m_A16 += gt[24]; + m_A16 += gt[25]; + m_A16 += gt[26]; + m_A16 += gt[27]; + m_A16 += gt[28]; + m_A18 += go[24]; + m_A15 += go[25]; + double RHS6 = Idr[24]; + RHS6 += Idr[25]; + RHS6 += Idr[26]; + RHS6 += Idr[27]; + RHS6 += Idr[28]; + RHS6 -= go[26] * *cnV[26]; + RHS6 -= go[27] * *cnV[27]; + RHS6 -= go[28] * *cnV[28]; + m_A23 += gt[29]; + m_A23 += gt[30]; + m_A23 += gt[31]; + m_A19 += go[29]; + m_A20 += go[30]; + m_A21 += go[31]; + double RHS7 = Idr[29]; RHS7 += Idr[30]; - RHS7 -= go[30] * *cnV[30]; - m_A28 += gt[31]; - m_A28 += gt[32]; - m_A28 += gt[33]; - m_A28 += gt[34]; - m_A28 += gt[35]; - m_A28 += gt[36]; - m_A25 += go[31]; - m_A24 += go[32]; - m_A26 += go[33]; - m_A26 += go[34]; - double RHS8 = Idr[31]; - RHS8 += Idr[32]; + RHS7 += Idr[31]; + m_A30 += gt[32]; + m_A30 += gt[33]; + m_A30 += gt[34]; + m_A30 += gt[35]; + m_A30 += gt[36]; + m_A26 += go[32]; + m_A25 += go[33]; + m_A28 += go[34]; + m_A27 += go[35]; + double RHS8 = Idr[32]; RHS8 += Idr[33]; RHS8 += Idr[34]; RHS8 += Idr[35]; RHS8 += Idr[36]; - RHS8 -= go[35] * *cnV[35]; RHS8 -= go[36] * *cnV[36]; const double f0 = 1.0 / m_A0; - const double f0_7 = -f0 * m_A17; - m_A22 += m_A1 * f0_7; - RHS7 += f0_7 * RHS0; + const double f0_5 = -f0 * m_A11; + m_A12 += m_A1 * f0_5; + RHS5 += f0_5 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_7 = -f1 * m_A18; - m_A22 += m_A3 * f1_7; + const double f1_7 = -f1 * m_A19; + m_A23 += m_A3 * f1_7; RHS7 += f1_7 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_7 = -f2 * m_A19; + const double f2_6 = -f2 * m_A15; + m_A16 += m_A5 * f2_6; + m_A17 += m_A6 * f2_6; + RHS6 += f2_6 * RHS2; + const double f2_7 = -f2 * m_A20; m_A22 += m_A5 * f2_7; + m_A23 += m_A6 * f2_7; RHS7 += f2_7 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_6 = -f3 * m_A13; - m_A14 += m_A7 * f3_6; - m_A16 += m_A8 * f3_6; - RHS6 += f3_6 * RHS3; - const double f3_8 = -f3 * m_A24; - m_A26 += m_A7 * f3_8; - m_A28 += m_A8 * f3_8; + const double f3 = 1.0 / m_A7; + const double f3_8 = -f3 * m_A25; + m_A30 += m_A8 * f3_8; RHS8 += f3_8 * RHS3; const double f4 = 1.0 / m_A9; - const double f4_8 = -f4 * m_A25; - m_A28 += m_A10 * f4_8; + const double f4_8 = -f4 * m_A26; + m_A30 += m_A10 * f4_8; RHS8 += f4_8 * RHS4; - const double f5 = 1.0 / m_A11; - const double f5_7 = -f5 * m_A20; - m_A22 += m_A12 * f5_7; + const double f5 = 1.0 / m_A12; + const double f5_7 = -f5 * m_A21; + m_A23 += m_A13 * f5_7; + m_A24 += m_A14 * f5_7; RHS7 += f5_7 * RHS5; - const double f6 = 1.0 / m_A14; - const double f6_7 = -f6 * m_A21; - m_A22 += m_A15 * f6_7; - m_A23 += m_A16 * f6_7; + const double f5_8 = -f5 * m_A27; + m_A29 += m_A13 * f5_8; + m_A30 += m_A14 * f5_8; + RHS8 += f5_8 * RHS5; + const double f6 = 1.0 / m_A16; + const double f6_7 = -f6 * m_A22; + m_A23 += m_A17 * f6_7; + m_A24 += m_A18 * f6_7; RHS7 += f6_7 * RHS6; - const double f6_8 = -f6 * m_A26; - m_A27 += m_A15 * f6_8; - m_A28 += m_A16 * f6_8; + const double f6_8 = -f6 * m_A28; + m_A29 += m_A17 * f6_8; + m_A30 += m_A18 * f6_8; RHS8 += f6_8 * RHS6; - const double f7 = 1.0 / m_A22; - const double f7_8 = -f7 * m_A27; - m_A28 += m_A23 * f7_8; + const double f7 = 1.0 / m_A23; + const double f7_8 = -f7 * m_A29; + m_A30 += m_A24 * f7_8; RHS8 += f7_8 * RHS7; - V[8] = RHS8 / m_A28; + V[8] = RHS8 / m_A30; double tmp7 = 0.0; - tmp7 += m_A23 * V[8]; - V[7] = (RHS7 - tmp7) / m_A22; + tmp7 += m_A24 * V[8]; + V[7] = (RHS7 - tmp7) / m_A23; double tmp6 = 0.0; - tmp6 += m_A15 * V[7]; - tmp6 += m_A16 * V[8]; - V[6] = (RHS6 - tmp6) / m_A14; + tmp6 += m_A17 * V[7]; + tmp6 += m_A18 * V[8]; + V[6] = (RHS6 - tmp6) / m_A16; double tmp5 = 0.0; - tmp5 += m_A12 * V[7]; - V[5] = (RHS5 - tmp5) / m_A11; + tmp5 += m_A13 * V[7]; + tmp5 += m_A14 * V[8]; + V[5] = (RHS5 - tmp5) / m_A12; double tmp4 = 0.0; tmp4 += m_A10 * V[8]; V[4] = (RHS4 - tmp4) / m_A9; double tmp3 = 0.0; - tmp3 += m_A7 * V[6]; tmp3 += m_A8 * V[8]; - V[3] = (RHS3 - tmp3) / m_A6; + V[3] = (RHS3 - tmp3) / m_A7; double tmp2 = 0.0; - tmp2 += m_A5 * V[7]; + tmp2 += m_A5 * V[6]; + tmp2 += m_A6 * V[7]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; tmp1 += m_A3 * V[7]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[7]; + tmp0 += m_A1 * V[5]; V[0] = (RHS0 - tmp0) / m_A0; } -// sundance -static void nl_gcr_8446e63d7842f6a6_70_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// starhawk +static void nl_gcr_8b1ac1e181eec3fc_40_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -17942,36 +20042,6 @@ static void nl_gcr_8446e63d7842f6a6_70_double_double(double * __restrict V, cons double m_A37(0.0); double m_A38(0.0); double m_A39(0.0); - double m_A40(0.0); - double m_A41(0.0); - double m_A42(0.0); - double m_A43(0.0); - double m_A44(0.0); - double m_A45(0.0); - double m_A46(0.0); - double m_A47(0.0); - double m_A48(0.0); - double m_A49(0.0); - double m_A50(0.0); - double m_A51(0.0); - double m_A52(0.0); - double m_A53(0.0); - double m_A54(0.0); - double m_A55(0.0); - double m_A56(0.0); - double m_A57(0.0); - double m_A58(0.0); - double m_A59(0.0); - double m_A60(0.0); - double m_A61(0.0); - double m_A62(0.0); - double m_A63(0.0); - double m_A64(0.0); - double m_A65(0.0); - double m_A66(0.0); - double m_A67(0.0); - double m_A68(0.0); - double m_A69(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -17980,349 +20050,227 @@ static void nl_gcr_8446e63d7842f6a6_70_double_double(double * __restrict V, cons RHS0 -= go[1] * *cnV[1]; m_A2 += gt[2]; m_A2 += gt[3]; + m_A2 += gt[4]; m_A3 += go[2]; double RHS1 = Idr[2]; RHS1 += Idr[3]; + RHS1 += Idr[4]; RHS1 -= go[3] * *cnV[3]; - m_A4 += gt[4]; + RHS1 -= go[4] * *cnV[4]; m_A4 += gt[5]; - m_A5 += go[4]; - double RHS2 = Idr[4]; - RHS2 += Idr[5]; - RHS2 -= go[5] * *cnV[5]; - m_A6 += gt[6]; - m_A6 += gt[7]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A5 += go[5]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 -= go[6] * *cnV[6]; + RHS2 -= go[7] * *cnV[7]; m_A6 += gt[8]; - m_A7 += go[6]; - double RHS3 = Idr[6]; - RHS3 += Idr[7]; - RHS3 += Idr[8]; - RHS3 -= go[7] * *cnV[7]; - RHS3 -= go[8] * *cnV[8]; - m_A8 += gt[9]; - m_A8 += gt[10]; - m_A10 += go[9]; - m_A9 += go[10]; - double RHS4 = Idr[9]; - RHS4 += Idr[10]; - m_A11 += gt[11]; - m_A11 += gt[12]; - m_A11 += gt[13]; - m_A12 += go[11]; - m_A13 += go[12]; - double RHS5 = Idr[11]; - RHS5 += Idr[12]; - RHS5 += Idr[13]; - RHS5 -= go[13] * *cnV[13]; - m_A14 += gt[14]; - m_A14 += gt[15]; - m_A14 += gt[16]; - m_A14 += gt[17]; - m_A14 += gt[18]; - m_A14 += gt[19]; - m_A14 += gt[20]; - m_A15 += go[14]; - double RHS6 = Idr[14]; - RHS6 += Idr[15]; - RHS6 += Idr[16]; - RHS6 += Idr[17]; - RHS6 += Idr[18]; - RHS6 += Idr[19]; - RHS6 += Idr[20]; - RHS6 -= go[15] * *cnV[15]; - RHS6 -= go[16] * *cnV[16]; - RHS6 -= go[17] * *cnV[17]; - RHS6 -= go[18] * *cnV[18]; - RHS6 -= go[19] * *cnV[19]; - RHS6 -= go[20] * *cnV[20]; - m_A16 += gt[21]; - m_A16 += gt[22]; - m_A16 += gt[23]; - m_A16 += gt[24]; - m_A18 += go[21]; - m_A18 += go[22]; - m_A17 += go[23]; - double RHS7 = Idr[21]; - RHS7 += Idr[22]; - RHS7 += Idr[23]; - RHS7 += Idr[24]; - RHS7 -= go[24] * *cnV[24]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A8 += go[8]; + m_A8 += go[9]; + m_A7 += go[10]; + double RHS3 = Idr[8]; + RHS3 += Idr[9]; + RHS3 += Idr[10]; + m_A9 += gt[11]; + m_A9 += gt[12]; + m_A9 += gt[13]; + m_A9 += gt[14]; + m_A9 += gt[15]; + m_A9 += gt[16]; + m_A9 += gt[17]; + m_A10 += go[11]; + double RHS4 = Idr[11]; + RHS4 += Idr[12]; + RHS4 += Idr[13]; + RHS4 += Idr[14]; + RHS4 += Idr[15]; + RHS4 += Idr[16]; + RHS4 += Idr[17]; + RHS4 -= go[12] * *cnV[12]; + RHS4 -= go[13] * *cnV[13]; + RHS4 -= go[14] * *cnV[14]; + RHS4 -= go[15] * *cnV[15]; + RHS4 -= go[16] * *cnV[16]; + RHS4 -= go[17] * *cnV[17]; + m_A11 += gt[18]; + m_A11 += gt[19]; + m_A11 += gt[20]; + m_A11 += gt[21]; + m_A12 += go[18]; + m_A12 += go[19]; + m_A13 += go[20]; + double RHS5 = Idr[18]; + RHS5 += Idr[19]; + RHS5 += Idr[20]; + RHS5 += Idr[21]; + RHS5 -= go[21] * *cnV[21]; + m_A14 += gt[22]; + m_A14 += gt[23]; + m_A16 += go[22]; + m_A15 += go[23]; + double RHS6 = Idr[22]; + RHS6 += Idr[23]; + m_A19 += gt[24]; m_A19 += gt[25]; m_A19 += gt[26]; - m_A21 += go[25]; - m_A20 += go[26]; - double RHS8 = Idr[25]; - RHS8 += Idr[26]; + m_A18 += go[24]; + m_A17 += go[25]; + double RHS7 = Idr[24]; + RHS7 += Idr[25]; + RHS7 += Idr[26]; + RHS7 -= go[26] * *cnV[26]; m_A22 += gt[27]; m_A22 += gt[28]; m_A22 += gt[29]; - m_A24 += go[27]; - m_A23 += go[28]; - double RHS9 = Idr[27]; - RHS9 += Idr[28]; - RHS9 += Idr[29]; - RHS9 -= go[29] * *cnV[29]; - m_A27 += gt[30]; - m_A27 += gt[31]; - m_A26 += go[30]; - m_A25 += go[31]; - double RHS10 = Idr[30]; - RHS10 += Idr[31]; - m_A31 += gt[32]; - m_A31 += gt[33]; - m_A31 += gt[34]; - m_A32 += go[32]; - m_A30 += go[33]; - double RHS11 = Idr[32]; - RHS11 += Idr[33]; - RHS11 += Idr[34]; - RHS11 -= go[34] * *cnV[34]; - m_A35 += gt[35]; - m_A35 += gt[36]; - m_A35 += gt[37]; - m_A34 += go[35]; - m_A33 += go[36]; - double RHS12 = Idr[35]; - RHS12 += Idr[36]; - RHS12 += Idr[37]; - RHS12 -= go[37] * *cnV[37]; - m_A40 += gt[38]; - m_A40 += gt[39]; - m_A40 += gt[40]; - m_A40 += gt[41]; - m_A43 += go[38]; - m_A38 += go[39]; - m_A37 += go[40]; - double RHS13 = Idr[38]; - RHS13 += Idr[39]; - RHS13 += Idr[40]; - RHS13 += Idr[41]; - RHS13 -= go[41] * *cnV[41]; - m_A50 += gt[42]; - m_A50 += gt[43]; - m_A50 += gt[44]; - m_A50 += gt[45]; - m_A50 += gt[46]; - m_A50 += gt[47]; - m_A44 += go[42]; - m_A46 += go[43]; - m_A45 += go[44]; - m_A45 += go[45]; - double RHS14 = Idr[42]; - RHS14 += Idr[43]; - RHS14 += Idr[44]; - RHS14 += Idr[45]; - RHS14 += Idr[46]; - RHS14 += Idr[47]; - RHS14 -= go[46] * *cnV[46]; - RHS14 -= go[47] * *cnV[47]; - m_A55 += gt[48]; - m_A55 += gt[49]; - m_A55 += gt[50]; - m_A54 += go[48]; - m_A53 += go[49]; - double RHS15 = Idr[48]; - RHS15 += Idr[49]; - RHS15 += Idr[50]; - RHS15 -= go[50] * *cnV[50]; - m_A62 += gt[51]; - m_A62 += gt[52]; - m_A62 += gt[53]; - m_A62 += gt[54]; - m_A57 += go[51]; - m_A58 += go[52]; - m_A59 += go[53]; - double RHS16 = Idr[51]; - RHS16 += Idr[52]; - RHS16 += Idr[53]; - RHS16 += Idr[54]; - RHS16 -= go[54] * *cnV[54]; - m_A69 += gt[55]; - m_A69 += gt[56]; - m_A64 += go[55]; - m_A65 += go[56]; - double RHS17 = Idr[55]; - RHS17 += Idr[56]; + m_A23 += go[27]; + m_A21 += go[28]; + double RHS8 = Idr[27]; + RHS8 += Idr[28]; + RHS8 += Idr[29]; + RHS8 -= go[29] * *cnV[29]; + m_A26 += gt[30]; + m_A26 += gt[31]; + m_A26 += gt[32]; + m_A25 += go[30]; + m_A24 += go[31]; + double RHS9 = Idr[30]; + RHS9 += Idr[31]; + RHS9 += Idr[32]; + RHS9 -= go[32] * *cnV[32]; + m_A32 += gt[33]; + m_A32 += gt[34]; + m_A32 += gt[35]; + m_A32 += gt[36]; + m_A32 += gt[37]; + m_A32 += gt[38]; + m_A28 += go[33]; + m_A30 += go[34]; + m_A29 += go[35]; + m_A29 += go[36]; + double RHS10 = Idr[33]; + RHS10 += Idr[34]; + RHS10 += Idr[35]; + RHS10 += Idr[36]; + RHS10 += Idr[37]; + RHS10 += Idr[38]; + RHS10 -= go[37] * *cnV[37]; + RHS10 -= go[38] * *cnV[38]; + m_A39 += gt[39]; + m_A39 += gt[40]; + m_A39 += gt[41]; + m_A39 += gt[42]; + m_A35 += go[39]; + m_A37 += go[40]; + m_A34 += go[41]; + m_A34 += go[42]; + double RHS11 = Idr[39]; + RHS11 += Idr[40]; + RHS11 += Idr[41]; + RHS11 += Idr[42]; const double f0 = 1.0 / m_A0; - const double f0_15 = -f0 * m_A53; - m_A55 += m_A1 * f0_15; - RHS15 += f0_15 * RHS0; + const double f0_9 = -f0 * m_A24; + m_A26 += m_A1 * f0_9; + RHS9 += f0_9 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_12 = -f1 * m_A33; - m_A35 += m_A3 * f1_12; - RHS12 += f1_12 * RHS1; + const double f1_7 = -f1 * m_A17; + m_A19 += m_A3 * f1_7; + RHS7 += f1_7 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_11 = -f2 * m_A30; - m_A31 += m_A5 * f2_11; - RHS11 += f2_11 * RHS2; + const double f2_8 = -f2 * m_A21; + m_A22 += m_A5 * f2_8; + RHS8 += f2_8 * RHS2; const double f3 = 1.0 / m_A6; - const double f3_16 = -f3 * m_A57; - m_A62 += m_A7 * f3_16; - RHS16 += f3_16 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_13 = -f4 * m_A37; - m_A40 += m_A9 * f4_13; - m_A42 += m_A10 * f4_13; - RHS13 += f4_13 * RHS4; - const double f4_16 = -f4 * m_A58; - m_A60 += m_A9 * f4_16; - m_A62 += m_A10 * f4_16; - RHS16 += f4_16 * RHS4; + const double f3_7 = -f3 * m_A18; + m_A19 += m_A7 * f3_7; + m_A20 += m_A8 * f3_7; + RHS7 += f3_7 * RHS3; + const double f3_11 = -f3 * m_A34; + m_A36 += m_A7 * f3_11; + m_A39 += m_A8 * f3_11; + RHS11 += f3_11 * RHS3; + const double f4 = 1.0 / m_A9; + const double f4_10 = -f4 * m_A28; + m_A29 += m_A10 * f4_10; + RHS10 += f4_10 * RHS4; const double f5 = 1.0 / m_A11; - const double f5_10 = -f5 * m_A25; - m_A27 += m_A12 * f5_10; - m_A28 += m_A13 * f5_10; + const double f5_10 = -f5 * m_A29; + m_A32 += m_A12 * f5_10; + m_A33 += m_A13 * f5_10; RHS10 += f5_10 * RHS5; - const double f5_13 = -f5 * m_A38; - m_A39 += m_A12 * f5_13; - m_A40 += m_A13 * f5_13; - RHS13 += f5_13 * RHS5; + const double f5_11 = -f5 * m_A35; + m_A38 += m_A12 * f5_11; + m_A39 += m_A13 * f5_11; + RHS11 += f5_11 * RHS5; const double f6 = 1.0 / m_A14; - const double f6_14 = -f6 * m_A44; - m_A45 += m_A15 * f6_14; - RHS14 += f6_14 * RHS6; - const double f7 = 1.0 / m_A16; - const double f7_10 = -f7 * m_A26; - m_A27 += m_A17 * f7_10; - m_A29 += m_A18 * f7_10; - RHS10 += f7_10 * RHS7; - const double f7_14 = -f7 * m_A45; - m_A47 += m_A17 * f7_14; - m_A50 += m_A18 * f7_14; - RHS14 += f7_14 * RHS7; - const double f8 = 1.0 / m_A19; - const double f8_12 = -f8 * m_A34; - m_A35 += m_A20 * f8_12; - m_A36 += m_A21 * f8_12; - RHS12 += f8_12 * RHS8; - const double f8_14 = -f8 * m_A46; - m_A48 += m_A20 * f8_14; - m_A50 += m_A21 * f8_14; - RHS14 += f8_14 * RHS8; - const double f9 = 1.0 / m_A22; - const double f9_15 = -f9 * m_A54; - m_A55 += m_A23 * f9_15; - m_A56 += m_A24 * f9_15; - RHS15 += f9_15 * RHS9; - const double f9_17 = -f9 * m_A64; - m_A67 += m_A23 * f9_17; - m_A69 += m_A24 * f9_17; - RHS17 += f9_17 * RHS9; - const double f10 = 1.0 / m_A27; - const double f10_13 = -f10 * m_A39; - m_A40 += m_A28 * f10_13; - m_A41 += m_A29 * f10_13; - RHS13 += f10_13 * RHS10; - const double f10_14 = -f10 * m_A47; - m_A49 += m_A28 * f10_14; - m_A50 += m_A29 * f10_14; - RHS14 += f10_14 * RHS10; - const double f11 = 1.0 / m_A31; - const double f11_16 = -f11 * m_A59; - m_A62 += m_A32 * f11_16; - RHS16 += f11_16 * RHS11; - const double f12 = 1.0 / m_A35; - const double f12_14 = -f12 * m_A48; - m_A50 += m_A36 * f12_14; - RHS14 += f12_14 * RHS12; - const double f13 = 1.0 / m_A40; - const double f13_14 = -f13 * m_A49; - m_A50 += m_A41 * f13_14; - m_A51 += m_A42 * f13_14; - m_A52 += m_A43 * f13_14; - RHS14 += f13_14 * RHS13; - const double f13_16 = -f13 * m_A60; - m_A61 += m_A41 * f13_16; - m_A62 += m_A42 * f13_16; - m_A63 += m_A43 * f13_16; - RHS16 += f13_16 * RHS13; - const double f13_17 = -f13 * m_A65; - m_A66 += m_A41 * f13_17; - m_A68 += m_A42 * f13_17; - m_A69 += m_A43 * f13_17; - RHS17 += f13_17 * RHS13; - const double f14 = 1.0 / m_A50; - const double f14_16 = -f14 * m_A61; - m_A62 += m_A51 * f14_16; - m_A63 += m_A52 * f14_16; - RHS16 += f14_16 * RHS14; - const double f14_17 = -f14 * m_A66; - m_A68 += m_A51 * f14_17; - m_A69 += m_A52 * f14_17; - RHS17 += f14_17 * RHS14; - const double f15 = 1.0 / m_A55; - const double f15_17 = -f15 * m_A67; - m_A69 += m_A56 * f15_17; - RHS17 += f15_17 * RHS15; - const double f16 = 1.0 / m_A62; - const double f16_17 = -f16 * m_A68; - m_A69 += m_A63 * f16_17; - RHS17 += f16_17 * RHS16; - V[17] = RHS17 / m_A69; - double tmp16 = 0.0; - tmp16 += m_A63 * V[17]; - V[16] = (RHS16 - tmp16) / m_A62; - double tmp15 = 0.0; - tmp15 += m_A56 * V[17]; - V[15] = (RHS15 - tmp15) / m_A55; - double tmp14 = 0.0; - tmp14 += m_A51 * V[16]; - tmp14 += m_A52 * V[17]; - V[14] = (RHS14 - tmp14) / m_A50; - double tmp13 = 0.0; - tmp13 += m_A41 * V[14]; - tmp13 += m_A42 * V[16]; - tmp13 += m_A43 * V[17]; - V[13] = (RHS13 - tmp13) / m_A40; - double tmp12 = 0.0; - tmp12 += m_A36 * V[14]; - V[12] = (RHS12 - tmp12) / m_A35; - double tmp11 = 0.0; - tmp11 += m_A32 * V[16]; - V[11] = (RHS11 - tmp11) / m_A31; + const double f6_9 = -f6 * m_A25; + m_A26 += m_A15 * f6_9; + m_A27 += m_A16 * f6_9; + RHS9 += f6_9 * RHS6; + const double f6_10 = -f6 * m_A30; + m_A31 += m_A15 * f6_10; + m_A32 += m_A16 * f6_10; + RHS10 += f6_10 * RHS6; + const double f7 = 1.0 / m_A19; + const double f7_11 = -f7 * m_A36; + m_A39 += m_A20 * f7_11; + RHS11 += f7_11 * RHS7; + const double f8 = 1.0 / m_A22; + const double f8_11 = -f8 * m_A37; + m_A39 += m_A23 * f8_11; + RHS11 += f8_11 * RHS8; + const double f9 = 1.0 / m_A26; + const double f9_10 = -f9 * m_A31; + m_A32 += m_A27 * f9_10; + RHS10 += f9_10 * RHS9; + const double f10 = 1.0 / m_A32; + const double f10_11 = -f10 * m_A38; + m_A39 += m_A33 * f10_11; + RHS11 += f10_11 * RHS10; + V[11] = RHS11 / m_A39; double tmp10 = 0.0; - tmp10 += m_A28 * V[13]; - tmp10 += m_A29 * V[14]; - V[10] = (RHS10 - tmp10) / m_A27; + tmp10 += m_A33 * V[11]; + V[10] = (RHS10 - tmp10) / m_A32; double tmp9 = 0.0; - tmp9 += m_A23 * V[15]; - tmp9 += m_A24 * V[17]; - V[9] = (RHS9 - tmp9) / m_A22; + tmp9 += m_A27 * V[10]; + V[9] = (RHS9 - tmp9) / m_A26; double tmp8 = 0.0; - tmp8 += m_A20 * V[12]; - tmp8 += m_A21 * V[14]; - V[8] = (RHS8 - tmp8) / m_A19; + tmp8 += m_A23 * V[11]; + V[8] = (RHS8 - tmp8) / m_A22; double tmp7 = 0.0; - tmp7 += m_A17 * V[10]; - tmp7 += m_A18 * V[14]; - V[7] = (RHS7 - tmp7) / m_A16; + tmp7 += m_A20 * V[11]; + V[7] = (RHS7 - tmp7) / m_A19; double tmp6 = 0.0; - tmp6 += m_A15 * V[7]; + tmp6 += m_A15 * V[9]; + tmp6 += m_A16 * V[10]; V[6] = (RHS6 - tmp6) / m_A14; double tmp5 = 0.0; tmp5 += m_A12 * V[10]; - tmp5 += m_A13 * V[13]; + tmp5 += m_A13 * V[11]; V[5] = (RHS5 - tmp5) / m_A11; double tmp4 = 0.0; - tmp4 += m_A9 * V[13]; - tmp4 += m_A10 * V[16]; - V[4] = (RHS4 - tmp4) / m_A8; + tmp4 += m_A10 * V[5]; + V[4] = (RHS4 - tmp4) / m_A9; double tmp3 = 0.0; - tmp3 += m_A7 * V[16]; + tmp3 += m_A7 * V[7]; + tmp3 += m_A8 * V[11]; V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A5 * V[11]; + tmp2 += m_A5 * V[8]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[12]; + tmp1 += m_A3 * V[7]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[15]; + tmp0 += m_A1 * V[9]; V[0] = (RHS0 - tmp0) / m_A0; } -// dpatrol -static void nl_gcr_85652d3e3ada285a_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// rebound +static void nl_gcr_8bec817b324dcc3_28_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -18337,6 +20285,24 @@ static void nl_gcr_85652d3e3ada285a_10_double_double(double * __restrict V, cons double m_A7(0.0); double m_A8(0.0); double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; @@ -18349,59 +20315,192 @@ static void nl_gcr_85652d3e3ada285a_10_double_double(double * __restrict V, cons m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; - m_A3 += go[3]; + m_A2 += gt[6]; + m_A4 += go[3]; + m_A4 += go[4]; + m_A3 += go[5]; double RHS1 = Idr[3]; RHS1 += Idr[4]; RHS1 += Idr[5]; - RHS1 -= go[4] * *cnV[4]; - RHS1 -= go[5] * *cnV[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; - m_A4 += gt[8]; - m_A5 += go[6]; - double RHS2 = Idr[6]; - RHS2 += Idr[7]; + RHS1 += Idr[6]; + RHS1 -= go[6] * *cnV[6]; + m_A5 += gt[7]; + m_A5 += gt[8]; + m_A5 += gt[9]; + m_A6 += go[7]; + double RHS2 = Idr[7]; RHS2 += Idr[8]; - RHS2 -= go[7] * *cnV[7]; + RHS2 += Idr[9]; RHS2 -= go[8] * *cnV[8]; - m_A9 += gt[9]; - m_A9 += gt[10]; - m_A9 += gt[11]; - m_A9 += gt[12]; - m_A8 += go[9]; - m_A7 += go[10]; - m_A6 += go[11]; - double RHS3 = Idr[9]; - RHS3 += Idr[10]; + RHS2 -= go[9] * *cnV[9]; + m_A7 += gt[10]; + m_A7 += gt[11]; + m_A7 += gt[12]; + m_A7 += gt[13]; + m_A7 += gt[14]; + m_A7 += gt[15]; + m_A7 += gt[16]; + m_A8 += go[10]; + m_A8 += go[11]; + double RHS3 = Idr[10]; RHS3 += Idr[11]; RHS3 += Idr[12]; + RHS3 += Idr[13]; + RHS3 += Idr[14]; + RHS3 += Idr[15]; + RHS3 += Idr[16]; RHS3 -= go[12] * *cnV[12]; + RHS3 -= go[13] * *cnV[13]; + RHS3 -= go[14] * *cnV[14]; + RHS3 -= go[15] * *cnV[15]; + RHS3 -= go[16] * *cnV[16]; + m_A11 += gt[17]; + m_A11 += gt[18]; + m_A11 += gt[19]; + m_A13 += go[17]; + m_A10 += go[18]; + m_A9 += go[19]; + double RHS4 = Idr[17]; + RHS4 += Idr[18]; + RHS4 += Idr[19]; + m_A16 += gt[20]; + m_A16 += gt[21]; + m_A16 += gt[22]; + m_A16 += gt[23]; + m_A16 += gt[24]; + m_A16 += gt[25]; + m_A16 += gt[26]; + m_A18 += go[20]; + m_A14 += go[21]; + m_A14 += go[22]; + double RHS5 = Idr[20]; + RHS5 += Idr[21]; + RHS5 += Idr[22]; + RHS5 += Idr[23]; + RHS5 += Idr[24]; + RHS5 += Idr[25]; + RHS5 += Idr[26]; + RHS5 -= go[23] * *cnV[23]; + RHS5 -= go[24] * *cnV[24]; + RHS5 -= go[25] * *cnV[25]; + RHS5 -= go[26] * *cnV[26]; + m_A22 += gt[27]; + m_A22 += gt[28]; + m_A22 += gt[29]; + m_A22 += gt[30]; + m_A22 += gt[31]; + m_A22 += gt[32]; + m_A22 += gt[33]; + m_A22 += gt[34]; + m_A22 += gt[35]; + m_A22 += gt[36]; + m_A23 += go[27]; + m_A23 += go[28]; + m_A20 += go[29]; + m_A19 += go[30]; + m_A19 += go[31]; + double RHS6 = Idr[27]; + RHS6 += Idr[28]; + RHS6 += Idr[29]; + RHS6 += Idr[30]; + RHS6 += Idr[31]; + RHS6 += Idr[32]; + RHS6 += Idr[33]; + RHS6 += Idr[34]; + RHS6 += Idr[35]; + RHS6 += Idr[36]; + RHS6 -= go[32] * *cnV[32]; + RHS6 -= go[33] * *cnV[33]; + RHS6 -= go[34] * *cnV[34]; + RHS6 -= go[35] * *cnV[35]; + RHS6 -= go[36] * *cnV[36]; + m_A27 += gt[37]; + m_A27 += gt[38]; + m_A27 += gt[39]; + m_A27 += gt[40]; + m_A27 += gt[41]; + m_A26 += go[37]; + m_A26 += go[38]; + m_A25 += go[39]; + m_A24 += go[40]; + double RHS7 = Idr[37]; + RHS7 += Idr[38]; + RHS7 += Idr[39]; + RHS7 += Idr[40]; + RHS7 += Idr[41]; + RHS7 -= go[41] * *cnV[41]; const double f0 = 1.0 / m_A0; - const double f0_3 = -f0 * m_A6; - m_A9 += m_A1 * f0_3; - RHS3 += f0_3 * RHS0; + const double f0_4 = -f0 * m_A9; + m_A11 += m_A1 * f0_4; + RHS4 += f0_4 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A7; - m_A9 += m_A3 * f1_3; - RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_3 = -f2 * m_A8; - m_A9 += m_A5 * f2_3; - RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A9; + const double f1_4 = -f1 * m_A10; + m_A11 += m_A3 * f1_4; + m_A12 += m_A4 * f1_4; + RHS4 += f1_4 * RHS1; + const double f1_5 = -f1 * m_A14; + m_A15 += m_A3 * f1_5; + m_A16 += m_A4 * f1_5; + RHS5 += f1_5 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_7 = -f2 * m_A24; + m_A27 += m_A6 * f2_7; + RHS7 += f2_7 * RHS2; + const double f3 = 1.0 / m_A7; + const double f3_6 = -f3 * m_A19; + m_A22 += m_A8 * f3_6; + RHS6 += f3_6 * RHS3; + const double f4 = 1.0 / m_A11; + const double f4_5 = -f4 * m_A15; + m_A16 += m_A12 * f4_5; + m_A17 += m_A13 * f4_5; + RHS5 += f4_5 * RHS4; + const double f4_6 = -f4 * m_A20; + m_A21 += m_A12 * f4_6; + m_A22 += m_A13 * f4_6; + RHS6 += f4_6 * RHS4; + const double f5 = 1.0 / m_A16; + const double f5_6 = -f5 * m_A21; + m_A22 += m_A17 * f5_6; + m_A23 += m_A18 * f5_6; + RHS6 += f5_6 * RHS5; + const double f5_7 = -f5 * m_A25; + m_A26 += m_A17 * f5_7; + m_A27 += m_A18 * f5_7; + RHS7 += f5_7 * RHS5; + const double f6 = 1.0 / m_A22; + const double f6_7 = -f6 * m_A26; + m_A27 += m_A23 * f6_7; + RHS7 += f6_7 * RHS6; + V[7] = RHS7 / m_A27; + double tmp6 = 0.0; + tmp6 += m_A23 * V[7]; + V[6] = (RHS6 - tmp6) / m_A22; + double tmp5 = 0.0; + tmp5 += m_A17 * V[6]; + tmp5 += m_A18 * V[7]; + V[5] = (RHS5 - tmp5) / m_A16; + double tmp4 = 0.0; + tmp4 += m_A12 * V[5]; + tmp4 += m_A13 * V[6]; + V[4] = (RHS4 - tmp4) / m_A11; + double tmp3 = 0.0; + tmp3 += m_A8 * V[6]; + V[3] = (RHS3 - tmp3) / m_A7; double tmp2 = 0.0; - tmp2 += m_A5 * V[3]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A6 * V[7]; + V[2] = (RHS2 - tmp2) / m_A5; double tmp1 = 0.0; - tmp1 += m_A3 * V[3]; + tmp1 += m_A3 * V[4]; + tmp1 += m_A4 * V[5]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[3]; + tmp0 += m_A1 * V[4]; V[0] = (RHS0 - tmp0) / m_A0; } -// zac1b11142 -static void nl_gcr_861d39f81d29d51_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// cocoloco +static void nl_gcr_8c0f7f2284333de5_16_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -18418,65 +20517,95 @@ static void nl_gcr_861d39f81d29d51_12_double_double(double * __restrict V, const double m_A9(0.0); double m_A10(0.0); double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); m_A0 += gt[0]; m_A0 += gt[1]; - m_A0 += gt[2]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; - RHS0 += Idr[2]; RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[2]; m_A2 += gt[3]; - m_A2 += gt[4]; - m_A4 += go[3]; - m_A3 += go[4]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - m_A7 += gt[5]; - m_A7 += gt[6]; - m_A6 += go[5]; - m_A5 += go[6]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - m_A11 += gt[7]; - m_A11 += gt[8]; - m_A9 += go[7]; - double RHS3 = Idr[7]; - RHS3 += Idr[8]; - RHS3 -= go[8] * *cnV[8]; + m_A3 += go[2]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 -= go[3] * *cnV[3]; + m_A4 += gt[4]; + m_A4 += gt[5]; + m_A5 += go[4]; + double RHS2 = Idr[4]; + RHS2 += Idr[5]; + RHS2 -= go[5] * *cnV[5]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A7 += go[6]; + double RHS3 = Idr[6]; + RHS3 += Idr[7]; + RHS3 -= go[7] * *cnV[7]; + m_A9 += gt[8]; + m_A9 += gt[9]; + m_A9 += gt[10]; + m_A8 += go[8]; + m_A10 += go[9]; + double RHS4 = Idr[8]; + RHS4 += Idr[9]; + RHS4 += Idr[10]; + RHS4 -= go[10] * *cnV[10]; + m_A15 += gt[11]; + m_A15 += gt[12]; + m_A15 += gt[13]; + m_A15 += gt[14]; + m_A14 += go[11]; + m_A13 += go[12]; + m_A12 += go[13]; + m_A11 += go[14]; + double RHS5 = Idr[11]; + RHS5 += Idr[12]; + RHS5 += Idr[13]; + RHS5 += Idr[14]; const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A5; - m_A7 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; + const double f0_5 = -f0 * m_A11; + m_A15 += m_A1 * f0_5; + RHS5 += f0_5 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A6; - m_A7 += m_A3 * f1_2; - m_A8 += m_A4 * f1_2; - RHS2 += f1_2 * RHS1; - const double f1_3 = -f1 * m_A9; - m_A10 += m_A3 * f1_3; - m_A11 += m_A4 * f1_3; - RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A7; - const double f2_3 = -f2 * m_A10; - m_A11 += m_A8 * f2_3; - RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A11; + const double f1_5 = -f1 * m_A12; + m_A15 += m_A3 * f1_5; + RHS5 += f1_5 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_4 = -f2 * m_A8; + m_A9 += m_A5 * f2_4; + RHS4 += f2_4 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_5 = -f3 * m_A13; + m_A15 += m_A7 * f3_5; + RHS5 += f3_5 * RHS3; + const double f4 = 1.0 / m_A9; + const double f4_5 = -f4 * m_A14; + m_A15 += m_A10 * f4_5; + RHS5 += f4_5 * RHS4; + V[5] = RHS5 / m_A15; + double tmp4 = 0.0; + tmp4 += m_A10 * V[5]; + V[4] = (RHS4 - tmp4) / m_A9; + double tmp3 = 0.0; + tmp3 += m_A7 * V[5]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A8 * V[3]; - V[2] = (RHS2 - tmp2) / m_A7; + tmp2 += m_A5 * V[4]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; - tmp1 += m_A4 * V[3]; + tmp1 += m_A3 * V[5]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; + tmp0 += m_A1 * V[5]; V[0] = (RHS0 - tmp0) / m_A0; } -// 280zzzap -static void nl_gcr_864a61c57bac9c38_123_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// starcrus +static void nl_gcr_8d7bddf33d942482_129_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -18564,741 +20693,772 @@ static void nl_gcr_864a61c57bac9c38_123_double_double(double * __restrict V, con double m_A80(0.0); double m_A81(0.0); double m_A82(0.0); - double m_A83(0.0); - double m_A84(0.0); - double m_A85(0.0); - double m_A86(0.0); - double m_A87(0.0); - double m_A88(0.0); - double m_A89(0.0); - double m_A90(0.0); - double m_A91(0.0); - double m_A92(0.0); - double m_A93(0.0); - double m_A94(0.0); - double m_A95(0.0); - double m_A96(0.0); - double m_A97(0.0); - double m_A98(0.0); - double m_A99(0.0); - double m_A100(0.0); - double m_A101(0.0); - double m_A102(0.0); - double m_A103(0.0); - double m_A104(0.0); - double m_A105(0.0); - double m_A106(0.0); - double m_A107(0.0); - double m_A108(0.0); - double m_A109(0.0); - double m_A110(0.0); - double m_A111(0.0); - double m_A112(0.0); - double m_A113(0.0); - double m_A114(0.0); - double m_A115(0.0); - double m_A116(0.0); - double m_A117(0.0); - double m_A118(0.0); - double m_A119(0.0); - double m_A120(0.0); - double m_A121(0.0); - double m_A122(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A3 += go[3]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - RHS1 -= go[4] * *cnV[4]; - m_A4 += gt[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; - m_A4 += gt[8]; - m_A4 += gt[9]; - m_A4 += gt[10]; - m_A4 += gt[11]; - m_A5 += go[5]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 += Idr[11]; - RHS2 -= go[6] * *cnV[6]; - RHS2 -= go[7] * *cnV[7]; - RHS2 -= go[8] * *cnV[8]; - RHS2 -= go[9] * *cnV[9]; - RHS2 -= go[10] * *cnV[10]; - RHS2 -= go[11] * *cnV[11]; - m_A6 += gt[12]; - m_A6 += gt[13]; - m_A6 += gt[14]; - m_A7 += go[12]; - double RHS3 = Idr[12]; - RHS3 += Idr[13]; - RHS3 += Idr[14]; - RHS3 -= go[13] * *cnV[13]; - RHS3 -= go[14] * *cnV[14]; - m_A8 += gt[15]; - m_A8 += gt[16]; - m_A8 += gt[17]; - m_A8 += gt[18]; - m_A8 += gt[19]; - m_A8 += gt[20]; - m_A8 += gt[21]; - m_A9 += go[15]; - double RHS4 = Idr[15]; - RHS4 += Idr[16]; - RHS4 += Idr[17]; - RHS4 += Idr[18]; - RHS4 += Idr[19]; - RHS4 += Idr[20]; - RHS4 += Idr[21]; - RHS4 -= go[16] * *cnV[16]; - RHS4 -= go[17] * *cnV[17]; - RHS4 -= go[18] * *cnV[18]; - RHS4 -= go[19] * *cnV[19]; - RHS4 -= go[20] * *cnV[20]; - RHS4 -= go[21] * *cnV[21]; - m_A10 += gt[22]; - m_A10 += gt[23]; - m_A11 += go[22]; - double RHS5 = Idr[22]; - RHS5 += Idr[23]; - RHS5 -= go[23] * *cnV[23]; - m_A12 += gt[24]; - m_A12 += gt[25]; - m_A14 += go[24]; - m_A13 += go[25]; - double RHS6 = Idr[24]; - RHS6 += Idr[25]; - m_A15 += gt[26]; - m_A15 += gt[27]; - m_A16 += go[26]; - double RHS7 = Idr[26]; - RHS7 += Idr[27]; - RHS7 -= go[27] * *cnV[27]; - m_A17 += gt[28]; - m_A17 += gt[29]; - m_A18 += go[28]; - double RHS8 = Idr[28]; - RHS8 += Idr[29]; - RHS8 -= go[29] * *cnV[29]; - m_A19 += gt[30]; - m_A19 += gt[31]; - m_A19 += gt[32]; - m_A19 += gt[33]; - m_A19 += gt[34]; - m_A19 += gt[35]; - m_A19 += gt[36]; - m_A20 += go[30]; - double RHS9 = Idr[30]; - RHS9 += Idr[31]; - RHS9 += Idr[32]; - RHS9 += Idr[33]; - RHS9 += Idr[34]; - RHS9 += Idr[35]; - RHS9 += Idr[36]; - RHS9 -= go[31] * *cnV[31]; - RHS9 -= go[32] * *cnV[32]; - RHS9 -= go[33] * *cnV[33]; - RHS9 -= go[34] * *cnV[34]; - RHS9 -= go[35] * *cnV[35]; - RHS9 -= go[36] * *cnV[36]; - m_A21 += gt[37]; - m_A21 += gt[38]; - m_A21 += gt[39]; - m_A22 += go[37]; - double RHS10 = Idr[37]; - RHS10 += Idr[38]; - RHS10 += Idr[39]; - RHS10 -= go[38] * *cnV[38]; - RHS10 -= go[39] * *cnV[39]; - m_A23 += gt[40]; - m_A23 += gt[41]; - m_A23 += gt[42]; - m_A23 += gt[43]; - m_A24 += go[40]; - double RHS11 = Idr[40]; - RHS11 += Idr[41]; - RHS11 += Idr[42]; - RHS11 += Idr[43]; - RHS11 -= go[41] * *cnV[41]; - RHS11 -= go[42] * *cnV[42]; - RHS11 -= go[43] * *cnV[43]; - m_A25 += gt[44]; - m_A25 += gt[45]; - m_A25 += gt[46]; - m_A25 += gt[47]; - m_A25 += gt[48]; - m_A25 += gt[49]; - m_A25 += gt[50]; - m_A26 += go[44]; - double RHS12 = Idr[44]; - RHS12 += Idr[45]; - RHS12 += Idr[46]; - RHS12 += Idr[47]; - RHS12 += Idr[48]; - RHS12 += Idr[49]; - RHS12 += Idr[50]; - RHS12 -= go[45] * *cnV[45]; - RHS12 -= go[46] * *cnV[46]; - RHS12 -= go[47] * *cnV[47]; - RHS12 -= go[48] * *cnV[48]; - RHS12 -= go[49] * *cnV[49]; - RHS12 -= go[50] * *cnV[50]; - m_A27 += gt[51]; - m_A27 += gt[52]; - m_A28 += go[51]; - double RHS13 = Idr[51]; - RHS13 += Idr[52]; - RHS13 -= go[52] * *cnV[52]; - m_A29 += gt[53]; - m_A29 += gt[54]; - m_A30 += go[53]; - double RHS14 = Idr[53]; - RHS14 += Idr[54]; - RHS14 -= go[54] * *cnV[54]; - m_A31 += gt[55]; - m_A31 += gt[56]; - m_A32 += go[55]; - double RHS15 = Idr[55]; - RHS15 += Idr[56]; - RHS15 -= go[56] * *cnV[56]; - m_A33 += gt[57]; - m_A33 += gt[58]; - m_A33 += gt[59]; - m_A33 += gt[60]; - m_A35 += go[57]; - m_A34 += go[58]; - double RHS16 = Idr[57]; - RHS16 += Idr[58]; - RHS16 += Idr[59]; - RHS16 += Idr[60]; - RHS16 -= go[59] * *cnV[59]; - RHS16 -= go[60] * *cnV[60]; - m_A36 += gt[61]; - m_A36 += gt[62]; - m_A36 += gt[63]; - m_A37 += go[61]; - double RHS17 = Idr[61]; - RHS17 += Idr[62]; - RHS17 += Idr[63]; - RHS17 -= go[62] * *cnV[62]; - RHS17 -= go[63] * *cnV[63]; - m_A38 += gt[64]; - m_A38 += gt[65]; - m_A39 += go[64]; - double RHS18 = Idr[64]; - RHS18 += Idr[65]; - RHS18 -= go[65] * *cnV[65]; - m_A40 += gt[66]; - m_A40 += gt[67]; - m_A41 += go[66]; - double RHS19 = Idr[66]; - RHS19 += Idr[67]; - RHS19 -= go[67] * *cnV[67]; - m_A43 += gt[68]; - m_A43 += gt[69]; - m_A43 += gt[70]; - m_A43 += gt[71]; - m_A42 += go[68]; - double RHS20 = Idr[68]; - RHS20 += Idr[69]; - RHS20 += Idr[70]; - RHS20 += Idr[71]; - RHS20 -= go[69] * *cnV[69]; - RHS20 -= go[70] * *cnV[70]; - RHS20 -= go[71] * *cnV[71]; - m_A47 += gt[72]; - m_A47 += gt[73]; - m_A46 += go[72]; - m_A45 += go[73]; - double RHS21 = Idr[72]; - RHS21 += Idr[73]; - m_A51 += gt[74]; - m_A51 += gt[75]; - m_A49 += go[74]; - double RHS22 = Idr[74]; - RHS22 += Idr[75]; - RHS22 -= go[75] * *cnV[75]; - m_A54 += gt[76]; - m_A54 += gt[77]; - m_A54 += gt[78]; - m_A53 += go[76]; - m_A52 += go[77]; - double RHS23 = Idr[76]; - RHS23 += Idr[77]; - RHS23 += Idr[78]; - RHS23 -= go[78] * *cnV[78]; - m_A56 += gt[79]; - m_A56 += gt[80]; - m_A56 += gt[81]; - m_A56 += gt[82]; - m_A55 += go[79]; - m_A57 += go[80]; - double RHS24 = Idr[79]; - RHS24 += Idr[80]; - RHS24 += Idr[81]; - RHS24 += Idr[82]; - RHS24 -= go[81] * *cnV[81]; - RHS24 -= go[82] * *cnV[82]; - m_A59 += gt[83]; - m_A59 += gt[84]; - m_A59 += gt[85]; - m_A59 += gt[86]; - m_A58 += go[83]; - m_A60 += go[84]; - double RHS25 = Idr[83]; - RHS25 += Idr[84]; - RHS25 += Idr[85]; - RHS25 += Idr[86]; - RHS25 -= go[85] * *cnV[85]; - RHS25 -= go[86] * *cnV[86]; - m_A62 += gt[87]; - m_A62 += gt[88]; - m_A63 += go[87]; - m_A61 += go[88]; - double RHS26 = Idr[87]; - RHS26 += Idr[88]; - m_A67 += gt[89]; - m_A67 += gt[90]; - m_A67 += gt[91]; - m_A67 += gt[92]; - m_A67 += gt[93]; - m_A67 += gt[94]; - m_A64 += go[89]; - m_A65 += go[90]; - m_A69 += go[91]; - m_A68 += go[92]; - double RHS27 = Idr[89]; - RHS27 += Idr[90]; - RHS27 += Idr[91]; - RHS27 += Idr[92]; - RHS27 += Idr[93]; - RHS27 += Idr[94]; - RHS27 -= go[93] * *cnV[93]; - RHS27 -= go[94] * *cnV[94]; - m_A72 += gt[95]; - m_A72 += gt[96]; - m_A72 += gt[97]; - m_A72 += gt[98]; - m_A71 += go[95]; - m_A73 += go[96]; - double RHS28 = Idr[95]; - RHS28 += Idr[96]; - RHS28 += Idr[97]; - RHS28 += Idr[98]; - RHS28 -= go[97] * *cnV[97]; - RHS28 -= go[98] * *cnV[98]; - m_A76 += gt[99]; - m_A76 += gt[100]; - m_A76 += gt[101]; - m_A76 += gt[102]; - m_A77 += go[99]; - m_A78 += go[100]; - m_A74 += go[101]; - m_A75 += go[102]; - double RHS29 = Idr[99]; - RHS29 += Idr[100]; - RHS29 += Idr[101]; - RHS29 += Idr[102]; - m_A81 += gt[103]; - m_A81 += gt[104]; - m_A81 += gt[105]; - m_A80 += go[103]; - m_A79 += go[104]; - double RHS30 = Idr[103]; - RHS30 += Idr[104]; - RHS30 += Idr[105]; - RHS30 -= go[105] * *cnV[105]; - m_A84 += gt[106]; - m_A84 += gt[107]; - m_A82 += go[106]; - m_A83 += go[107]; - double RHS31 = Idr[106]; - RHS31 += Idr[107]; - m_A91 += gt[108]; - m_A91 += gt[109]; - m_A91 += gt[110]; - m_A91 += gt[111]; - m_A91 += gt[112]; - m_A86 += go[108]; - m_A90 += go[109]; - m_A88 += go[110]; - m_A85 += go[111]; - m_A87 += go[112]; - double RHS32 = Idr[108]; - RHS32 += Idr[109]; - RHS32 += Idr[110]; - RHS32 += Idr[111]; - RHS32 += Idr[112]; - m_A99 += gt[113]; - m_A99 += gt[114]; - m_A99 += gt[115]; - m_A99 += gt[116]; - m_A99 += gt[117]; - m_A96 += go[113]; - m_A100 += go[114]; - m_A97 += go[115]; - m_A94 += go[116]; - m_A95 += go[117]; - double RHS33 = Idr[113]; - RHS33 += Idr[114]; - RHS33 += Idr[115]; - RHS33 += Idr[116]; - RHS33 += Idr[117]; - m_A106 += gt[118]; - m_A106 += gt[119]; - m_A106 += gt[120]; - m_A106 += gt[121]; - m_A103 += go[118]; - m_A104 += go[119]; - m_A101 += go[120]; - m_A102 += go[121]; - double RHS34 = Idr[118]; - RHS34 += Idr[119]; - RHS34 += Idr[120]; - RHS34 += Idr[121]; - m_A111 += gt[122]; - m_A111 += gt[123]; - m_A111 += gt[124]; - m_A111 += gt[125]; - m_A108 += go[122]; - m_A109 += go[123]; - double RHS35 = Idr[122]; - RHS35 += Idr[123]; - RHS35 += Idr[124]; - RHS35 += Idr[125]; - RHS35 -= go[124] * *cnV[124]; - RHS35 -= go[125] * *cnV[125]; - m_A122 += gt[126]; - m_A122 += gt[127]; - m_A122 += gt[128]; - m_A122 += gt[129]; - m_A122 += gt[130]; - m_A122 += gt[131]; - m_A113 += go[126]; - m_A117 += go[127]; - m_A120 += go[128]; - m_A114 += go[129]; - double RHS36 = Idr[126]; - RHS36 += Idr[127]; - RHS36 += Idr[128]; - RHS36 += Idr[129]; - RHS36 += Idr[130]; - RHS36 += Idr[131]; - RHS36 -= go[130] * *cnV[130]; - RHS36 -= go[131] * *cnV[131]; + double m_A83(0.0); + double m_A84(0.0); + double m_A85(0.0); + double m_A86(0.0); + double m_A87(0.0); + double m_A88(0.0); + double m_A89(0.0); + double m_A90(0.0); + double m_A91(0.0); + double m_A92(0.0); + double m_A93(0.0); + double m_A94(0.0); + double m_A95(0.0); + double m_A96(0.0); + double m_A97(0.0); + double m_A98(0.0); + double m_A99(0.0); + double m_A100(0.0); + double m_A101(0.0); + double m_A102(0.0); + double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); + double m_A111(0.0); + double m_A112(0.0); + double m_A113(0.0); + double m_A114(0.0); + double m_A115(0.0); + double m_A116(0.0); + double m_A117(0.0); + double m_A118(0.0); + double m_A119(0.0); + double m_A120(0.0); + double m_A121(0.0); + double m_A122(0.0); + double m_A123(0.0); + double m_A124(0.0); + double m_A125(0.0); + double m_A126(0.0); + double m_A127(0.0); + double m_A128(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A2 += gt[5]; + m_A2 += gt[6]; + m_A2 += gt[7]; + m_A4 += go[3]; + m_A3 += go[4]; + m_A3 += go[5]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 += Idr[5]; + RHS1 += Idr[6]; + RHS1 += Idr[7]; + RHS1 -= go[6] * *cnV[6]; + RHS1 -= go[7] * *cnV[7]; + m_A5 += gt[8]; + m_A5 += gt[9]; + m_A7 += go[8]; + m_A6 += go[9]; + double RHS2 = Idr[8]; + RHS2 += Idr[9]; + m_A8 += gt[10]; + m_A8 += gt[11]; + m_A9 += go[10]; + double RHS3 = Idr[10]; + RHS3 += Idr[11]; + RHS3 -= go[11] * *cnV[11]; + m_A10 += gt[12]; + m_A10 += gt[13]; + m_A10 += gt[14]; + m_A11 += go[12]; + m_A12 += go[13]; + double RHS4 = Idr[12]; + RHS4 += Idr[13]; + RHS4 += Idr[14]; + RHS4 -= go[14] * *cnV[14]; + m_A13 += gt[15]; + m_A13 += gt[16]; + m_A13 += gt[17]; + m_A15 += go[15]; + m_A14 += go[16]; + double RHS5 = Idr[15]; + RHS5 += Idr[16]; + RHS5 += Idr[17]; + RHS5 -= go[17] * *cnV[17]; + m_A16 += gt[18]; + m_A16 += gt[19]; + m_A16 += gt[20]; + m_A16 += gt[21]; + m_A16 += gt[22]; + m_A17 += go[18]; + m_A18 += go[19]; + double RHS6 = Idr[18]; + RHS6 += Idr[19]; + RHS6 += Idr[20]; + RHS6 += Idr[21]; + RHS6 += Idr[22]; + RHS6 -= go[20] * *cnV[20]; + RHS6 -= go[21] * *cnV[21]; + RHS6 -= go[22] * *cnV[22]; + m_A19 += gt[23]; + m_A19 += gt[24]; + m_A19 += gt[25]; + m_A19 += gt[26]; + m_A19 += gt[27]; + m_A19 += gt[28]; + m_A19 += gt[29]; + m_A21 += go[23]; + m_A20 += go[24]; + double RHS7 = Idr[23]; + RHS7 += Idr[24]; + RHS7 += Idr[25]; + RHS7 += Idr[26]; + RHS7 += Idr[27]; + RHS7 += Idr[28]; + RHS7 += Idr[29]; + RHS7 -= go[25] * *cnV[25]; + RHS7 -= go[26] * *cnV[26]; + RHS7 -= go[27] * *cnV[27]; + RHS7 -= go[28] * *cnV[28]; + RHS7 -= go[29] * *cnV[29]; + m_A22 += gt[30]; + m_A22 += gt[31]; + m_A24 += go[30]; + m_A23 += go[31]; + double RHS8 = Idr[30]; + RHS8 += Idr[31]; + m_A25 += gt[32]; + m_A25 += gt[33]; + m_A25 += gt[34]; + m_A25 += gt[35]; + m_A25 += gt[36]; + m_A25 += gt[37]; + m_A25 += gt[38]; + m_A27 += go[32]; + m_A27 += go[33]; + m_A26 += go[34]; + m_A28 += go[35]; + double RHS9 = Idr[32]; + RHS9 += Idr[33]; + RHS9 += Idr[34]; + RHS9 += Idr[35]; + RHS9 += Idr[36]; + RHS9 += Idr[37]; + RHS9 += Idr[38]; + RHS9 -= go[36] * *cnV[36]; + RHS9 -= go[37] * *cnV[37]; + RHS9 -= go[38] * *cnV[38]; + m_A29 += gt[39]; + m_A29 += gt[40]; + m_A29 += gt[41]; + m_A29 += gt[42]; + m_A29 += gt[43]; + m_A29 += gt[44]; + m_A31 += go[39]; + m_A30 += go[40]; + m_A30 += go[41]; + double RHS10 = Idr[39]; + RHS10 += Idr[40]; + RHS10 += Idr[41]; + RHS10 += Idr[42]; + RHS10 += Idr[43]; + RHS10 += Idr[44]; + RHS10 -= go[42] * *cnV[42]; + RHS10 -= go[43] * *cnV[43]; + RHS10 -= go[44] * *cnV[44]; + m_A32 += gt[45]; + m_A32 += gt[46]; + m_A32 += gt[47]; + m_A32 += gt[48]; + m_A32 += gt[49]; + m_A33 += go[45]; + m_A33 += go[46]; + m_A34 += go[47]; + double RHS11 = Idr[45]; + RHS11 += Idr[46]; + RHS11 += Idr[47]; + RHS11 += Idr[48]; + RHS11 += Idr[49]; + RHS11 -= go[48] * *cnV[48]; + RHS11 -= go[49] * *cnV[49]; + m_A35 += gt[50]; + m_A35 += gt[51]; + m_A35 += gt[52]; + m_A35 += gt[53]; + m_A37 += go[50]; + m_A37 += go[51]; + m_A36 += go[52]; + double RHS12 = Idr[50]; + RHS12 += Idr[51]; + RHS12 += Idr[52]; + RHS12 += Idr[53]; + RHS12 -= go[53] * *cnV[53]; + m_A38 += gt[54]; + m_A38 += gt[55]; + m_A38 += gt[56]; + m_A38 += gt[57]; + m_A40 += go[54]; + m_A40 += go[55]; + m_A39 += go[56]; + double RHS13 = Idr[54]; + RHS13 += Idr[55]; + RHS13 += Idr[56]; + RHS13 += Idr[57]; + RHS13 -= go[57] * *cnV[57]; + m_A41 += gt[58]; + m_A41 += gt[59]; + m_A41 += gt[60]; + m_A41 += gt[61]; + m_A42 += go[58]; + double RHS14 = Idr[58]; + RHS14 += Idr[59]; + RHS14 += Idr[60]; + RHS14 += Idr[61]; + RHS14 -= go[59] * *cnV[59]; + RHS14 -= go[60] * *cnV[60]; + RHS14 -= go[61] * *cnV[61]; + m_A45 += gt[62]; + m_A45 += gt[63]; + m_A45 += gt[64]; + m_A45 += gt[65]; + m_A45 += gt[66]; + m_A44 += go[62]; + m_A44 += go[63]; + m_A43 += go[64]; + double RHS15 = Idr[62]; + RHS15 += Idr[63]; + RHS15 += Idr[64]; + RHS15 += Idr[65]; + RHS15 += Idr[66]; + RHS15 -= go[65] * *cnV[65]; + RHS15 -= go[66] * *cnV[66]; + m_A49 += gt[67]; + m_A49 += gt[68]; + m_A48 += go[67]; + m_A47 += go[68]; + double RHS16 = Idr[67]; + RHS16 += Idr[68]; + m_A56 += gt[69]; + m_A56 += gt[70]; + m_A56 += gt[71]; + m_A54 += go[69]; + m_A52 += go[70]; + m_A55 += go[71]; + double RHS17 = Idr[69]; + RHS17 += Idr[70]; + RHS17 += Idr[71]; + m_A63 += gt[72]; + m_A63 += gt[73]; + m_A63 += gt[74]; + m_A63 += gt[75]; + m_A61 += go[72]; + m_A61 += go[73]; + m_A60 += go[74]; + double RHS18 = Idr[72]; + RHS18 += Idr[73]; + RHS18 += Idr[74]; + RHS18 += Idr[75]; + RHS18 -= go[75] * *cnV[75]; + m_A71 += gt[76]; + m_A71 += gt[77]; + m_A71 += gt[78]; + m_A71 += gt[79]; + m_A71 += gt[80]; + m_A71 += gt[81]; + m_A71 += gt[82]; + m_A71 += gt[83]; + m_A68 += go[76]; + m_A68 += go[77]; + m_A67 += go[78]; + m_A67 += go[79]; + double RHS19 = Idr[76]; + RHS19 += Idr[77]; + RHS19 += Idr[78]; + RHS19 += Idr[79]; + RHS19 += Idr[80]; + RHS19 += Idr[81]; + RHS19 += Idr[82]; + RHS19 += Idr[83]; + RHS19 -= go[80] * *cnV[80]; + RHS19 -= go[81] * *cnV[81]; + RHS19 -= go[82] * *cnV[82]; + RHS19 -= go[83] * *cnV[83]; + m_A76 += gt[84]; + m_A76 += gt[85]; + m_A77 += go[84]; + m_A74 += go[85]; + double RHS20 = Idr[84]; + RHS20 += Idr[85]; + m_A83 += gt[86]; + m_A83 += gt[87]; + m_A83 += gt[88]; + m_A83 += gt[89]; + m_A80 += go[86]; + m_A79 += go[87]; + m_A78 += go[88]; + double RHS21 = Idr[86]; + RHS21 += Idr[87]; + RHS21 += Idr[88]; + RHS21 += Idr[89]; + RHS21 -= go[89] * *cnV[89]; + m_A89 += gt[90]; + m_A89 += gt[91]; + m_A89 += gt[92]; + m_A89 += gt[93]; + m_A89 += gt[94]; + m_A89 += gt[95]; + m_A87 += go[90]; + m_A86 += go[91]; + m_A86 += go[92]; + double RHS22 = Idr[90]; + RHS22 += Idr[91]; + RHS22 += Idr[92]; + RHS22 += Idr[93]; + RHS22 += Idr[94]; + RHS22 += Idr[95]; + RHS22 -= go[93] * *cnV[93]; + RHS22 -= go[94] * *cnV[94]; + RHS22 -= go[95] * *cnV[95]; + m_A95 += gt[96]; + m_A95 += gt[97]; + m_A95 += gt[98]; + m_A95 += gt[99]; + m_A95 += gt[100]; + m_A93 += go[96]; + m_A92 += go[97]; + m_A92 += go[98]; + double RHS23 = Idr[96]; + RHS23 += Idr[97]; + RHS23 += Idr[98]; + RHS23 += Idr[99]; + RHS23 += Idr[100]; + RHS23 -= go[99] * *cnV[99]; + RHS23 -= go[100] * *cnV[100]; + m_A98 += gt[101]; + m_A98 += gt[102]; + m_A98 += gt[103]; + m_A98 += gt[104]; + m_A98 += gt[105]; + m_A99 += go[101]; + m_A99 += go[102]; + m_A97 += go[103]; + double RHS24 = Idr[101]; + RHS24 += Idr[102]; + RHS24 += Idr[103]; + RHS24 += Idr[104]; + RHS24 += Idr[105]; + RHS24 -= go[104] * *cnV[104]; + RHS24 -= go[105] * *cnV[105]; + m_A109 += gt[106]; + m_A109 += gt[107]; + m_A109 += gt[108]; + m_A109 += gt[109]; + m_A109 += gt[110]; + m_A110 += go[106]; + m_A101 += go[107]; + m_A100 += go[108]; + double RHS25 = Idr[106]; + RHS25 += Idr[107]; + RHS25 += Idr[108]; + RHS25 += Idr[109]; + RHS25 += Idr[110]; + RHS25 -= go[109] * *cnV[109]; + RHS25 -= go[110] * *cnV[110]; + m_A115 += gt[111]; + m_A115 += gt[112]; + m_A115 += gt[113]; + m_A115 += gt[114]; + m_A115 += gt[115]; + m_A115 += gt[116]; + m_A115 += gt[117]; + m_A113 += go[111]; + m_A112 += go[112]; + double RHS26 = Idr[111]; + RHS26 += Idr[112]; + RHS26 += Idr[113]; + RHS26 += Idr[114]; + RHS26 += Idr[115]; + RHS26 += Idr[116]; + RHS26 += Idr[117]; + RHS26 -= go[113] * *cnV[113]; + RHS26 -= go[114] * *cnV[114]; + RHS26 -= go[115] * *cnV[115]; + RHS26 -= go[116] * *cnV[116]; + RHS26 -= go[117] * *cnV[117]; + m_A123 += gt[118]; + m_A123 += gt[119]; + m_A123 += gt[120]; + m_A123 += gt[121]; + m_A118 += go[118]; + m_A124 += go[119]; + m_A117 += go[120]; + m_A120 += go[121]; + double RHS27 = Idr[118]; + RHS27 += Idr[119]; + RHS27 += Idr[120]; + RHS27 += Idr[121]; + m_A128 += gt[122]; + m_A128 += gt[123]; + m_A128 += gt[124]; + m_A128 += gt[125]; + m_A128 += gt[126]; + m_A127 += go[122]; + m_A126 += go[123]; + m_A126 += go[124]; + m_A125 += go[125]; + double RHS28 = Idr[122]; + RHS28 += Idr[123]; + RHS28 += Idr[124]; + RHS28 += Idr[125]; + RHS28 += Idr[126]; + RHS28 -= go[126] * *cnV[126]; const double f0 = 1.0 / m_A0; - const double f0_24 = -f0 * m_A55; - m_A57 += m_A1 * f0_24; - RHS24 += f0_24 * RHS0; - const double f0_32 = -f0 * m_A85; - m_A91 += m_A1 * f0_32; - RHS32 += f0_32 * RHS0; + const double f0_15 = -f0 * m_A43; + m_A45 += m_A1 * f0_15; + RHS15 += f0_15 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_32 = -f1 * m_A86; - m_A91 += m_A3 * f1_32; - RHS32 += f1_32 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_27 = -f2 * m_A64; - m_A66 += m_A5 * f2_27; - RHS27 += f2_27 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_25 = -f3 * m_A58; - m_A60 += m_A7 * f3_25; - RHS25 += f3_25 * RHS3; - const double f3_34 = -f3 * m_A101; - m_A106 += m_A7 * f3_34; - RHS34 += f3_34 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_20 = -f4 * m_A42; - m_A44 += m_A9 * f4_20; - RHS20 += f4_20 * RHS4; - const double f5 = 1.0 / m_A10; - const double f5_21 = -f5 * m_A45; - m_A47 += m_A11 * f5_21; - RHS21 += f5_21 * RHS5; - const double f5_32 = -f5 * m_A87; - m_A88 += m_A11 * f5_32; - RHS32 += f5_32 * RHS5; - const double f6 = 1.0 / m_A12; - const double f6_21 = -f6 * m_A46; - m_A47 += m_A13 * f6_21; - m_A48 += m_A14 * f6_21; - RHS21 += f6_21 * RHS6; - const double f6_22 = -f6 * m_A49; - m_A50 += m_A13 * f6_22; - m_A51 += m_A14 * f6_22; - RHS22 += f6_22 * RHS6; - const double f7 = 1.0 / m_A15; - const double f7_23 = -f7 * m_A52; - m_A54 += m_A16 * f7_23; - RHS23 += f7_23 * RHS7; - const double f7_34 = -f7 * m_A102; - m_A103 += m_A16 * f7_34; - RHS34 += f7_34 * RHS7; - const double f8 = 1.0 / m_A17; - const double f8_23 = -f8 * m_A53; - m_A54 += m_A18 * f8_23; - RHS23 += f8_23 * RHS8; - const double f9 = 1.0 / m_A19; - const double f9_36 = -f9 * m_A113; - m_A116 += m_A20 * f9_36; - RHS36 += f9_36 * RHS9; - const double f10 = 1.0 / m_A21; - const double f10_28 = -f10 * m_A71; - m_A73 += m_A22 * f10_28; - RHS28 += f10_28 * RHS10; - const double f10_33 = -f10 * m_A94; - m_A99 += m_A22 * f10_33; - RHS33 += f10_33 * RHS10; - const double f13 = 1.0 / m_A27; - const double f13_26 = -f13 * m_A61; - m_A62 += m_A28 * f13_26; - RHS26 += f13_26 * RHS13; - const double f13_33 = -f13 * m_A95; - m_A97 += m_A28 * f13_33; - RHS33 += f13_33 * RHS13; - const double f14 = 1.0 / m_A29; - const double f14_33 = -f14 * m_A96; - m_A99 += m_A30 * f14_33; - RHS33 += f14_33 * RHS14; - const double f15 = 1.0 / m_A31; - const double f15_31 = -f15 * m_A82; - m_A84 += m_A32 * f15_31; - RHS31 += f15_31 * RHS15; - const double f16 = 1.0 / m_A33; - const double f16_27 = -f16 * m_A65; - m_A67 += m_A34 * f16_27; - m_A70 += m_A35 * f16_27; + const double f1_15 = -f1 * m_A44; + m_A45 += m_A3 * f1_15; + m_A46 += m_A4 * f1_15; + RHS15 += f1_15 * RHS1; + const double f1_20 = -f1 * m_A74; + m_A75 += m_A3 * f1_20; + m_A76 += m_A4 * f1_20; + RHS20 += f1_20 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_24 = -f2 * m_A97; + m_A98 += m_A6 * f2_24; + m_A99 += m_A7 * f2_24; + RHS24 += f2_24 * RHS2; + const double f2_28 = -f2 * m_A125; + m_A126 += m_A6 * f2_28; + m_A128 += m_A7 * f2_28; + RHS28 += f2_28 * RHS2; + const double f3 = 1.0 / m_A8; + const double f3_27 = -f3 * m_A117; + m_A123 += m_A9 * f3_27; + RHS27 += f3_27 * RHS3; + const double f4 = 1.0 / m_A10; + const double f4_16 = -f4 * m_A47; + m_A49 += m_A11 * f4_16; + m_A51 += m_A12 * f4_16; + RHS16 += f4_16 * RHS4; + const double f4_26 = -f4 * m_A112; + m_A113 += m_A11 * f4_26; + m_A116 += m_A12 * f4_26; + RHS26 += f4_26 * RHS4; + const double f4_27 = -f4 * m_A118; + m_A119 += m_A11 * f4_27; + m_A123 += m_A12 * f4_27; + RHS27 += f4_27 * RHS4; + const double f5 = 1.0 / m_A13; + const double f5_16 = -f5 * m_A48; + m_A49 += m_A14 * f5_16; + m_A50 += m_A15 * f5_16; + RHS16 += f5_16 * RHS5; + const double f5_25 = -f5 * m_A100; + m_A102 += m_A14 * f5_25; + m_A109 += m_A15 * f5_25; + RHS25 += f5_25 * RHS5; + const double f6 = 1.0 / m_A16; + const double f6_17 = -f6 * m_A52; + m_A53 += m_A17 * f6_17; + m_A56 += m_A18 * f6_17; + RHS17 += f6_17 * RHS6; + const double f7 = 1.0 / m_A19; + const double f7_17 = -f7 * m_A53; + m_A55 += m_A20 * f7_17; + m_A56 += m_A21 * f7_17; + RHS17 += f7_17 * RHS7; + const double f8 = 1.0 / m_A22; + const double f8_17 = -f8 * m_A54; + m_A56 += m_A23 * f8_17; + m_A57 += m_A24 * f8_17; + RHS17 += f8_17 * RHS8; + const double f8_18 = -f8 * m_A60; + m_A62 += m_A23 * f8_18; + m_A63 += m_A24 * f8_18; + RHS18 += f8_18 * RHS8; + const double f9 = 1.0 / m_A25; + const double f9_17 = -f9 * m_A55; + m_A56 += m_A26 * f9_17; + m_A58 += m_A27 * f9_17; + m_A59 += m_A28 * f9_17; + RHS17 += f9_17 * RHS9; + const double f9_19 = -f9 * m_A67; + m_A69 += m_A26 * f9_19; + m_A71 += m_A27 * f9_19; + m_A73 += m_A28 * f9_19; + RHS19 += f9_19 * RHS9; + const double f9_25 = -f9 * m_A101; + m_A103 += m_A26 * f9_25; + m_A105 += m_A27 * f9_25; + m_A109 += m_A28 * f9_25; + RHS25 += f9_25 * RHS9; + const double f10 = 1.0 / m_A29; + const double f10_18 = -f10 * m_A61; + m_A63 += m_A30 * f10_18; + m_A65 += m_A31 * f10_18; + RHS18 += f10_18 * RHS10; + const double f10_21 = -f10 * m_A78; + m_A81 += m_A30 * f10_21; + m_A83 += m_A31 * f10_21; + RHS21 += f10_21 * RHS10; + const double f11 = 1.0 / m_A32; + const double f11_19 = -f11 * m_A68; + m_A71 += m_A33 * f11_19; + m_A72 += m_A34 * f11_19; + RHS19 += f11_19 * RHS11; + const double f11_21 = -f11 * m_A79; + m_A82 += m_A33 * f11_21; + m_A83 += m_A34 * f11_21; + RHS21 += f11_21 * RHS11; + const double f12 = 1.0 / m_A35; + const double f12_21 = -f12 * m_A80; + m_A83 += m_A36 * f12_21; + m_A84 += m_A37 * f12_21; + RHS21 += f12_21 * RHS12; + const double f12_22 = -f12 * m_A86; + m_A88 += m_A36 * f12_22; + m_A89 += m_A37 * f12_22; + RHS22 += f12_22 * RHS12; + const double f13 = 1.0 / m_A38; + const double f13_22 = -f13 * m_A87; + m_A89 += m_A39 * f13_22; + m_A90 += m_A40 * f13_22; + RHS22 += f13_22 * RHS13; + const double f13_23 = -f13 * m_A92; + m_A94 += m_A39 * f13_23; + m_A95 += m_A40 * f13_23; + RHS23 += f13_23 * RHS13; + const double f14 = 1.0 / m_A41; + const double f14_23 = -f14 * m_A93; + m_A95 += m_A42 * f14_23; + RHS23 += f14_23 * RHS14; + const double f15 = 1.0 / m_A45; + const double f15_20 = -f15 * m_A75; + m_A76 += m_A46 * f15_20; + RHS20 += f15_20 * RHS15; + const double f16 = 1.0 / m_A49; + const double f16_25 = -f16 * m_A102; + m_A109 += m_A50 * f16_25; + m_A111 += m_A51 * f16_25; + RHS25 += f16_25 * RHS16; + const double f16_26 = -f16 * m_A113; + m_A114 += m_A50 * f16_26; + m_A116 += m_A51 * f16_26; + RHS26 += f16_26 * RHS16; + const double f16_27 = -f16 * m_A119; + m_A121 += m_A50 * f16_27; + m_A123 += m_A51 * f16_27; RHS27 += f16_27 * RHS16; - const double f16_36 = -f16 * m_A114; - m_A115 += m_A34 * f16_36; - m_A122 += m_A35 * f16_36; - RHS36 += f16_36 * RHS16; - const double f17 = 1.0 / m_A36; - const double f17_29 = -f17 * m_A74; - m_A76 += m_A37 * f17_29; - RHS29 += f17_29 * RHS17; - const double f17_35 = -f17 * m_A108; - m_A109 += m_A37 * f17_35; - RHS35 += f17_35 * RHS17; - const double f18 = 1.0 / m_A38; - const double f18_29 = -f18 * m_A75; - m_A77 += m_A39 * f18_29; - RHS29 += f18_29 * RHS18; - const double f18_30 = -f18 * m_A79; - m_A81 += m_A39 * f18_30; - RHS30 += f18_30 * RHS18; - const double f19 = 1.0 / m_A40; - const double f19_30 = -f19 * m_A80; - m_A81 += m_A41 * f19_30; - RHS30 += f19_30 * RHS19; - const double f21 = 1.0 / m_A47; - const double f21_22 = -f21 * m_A50; - m_A51 += m_A48 * f21_22; + const double f17 = 1.0 / m_A56; + const double f17_18 = -f17 * m_A62; + m_A63 += m_A57 * f17_18; + m_A64 += m_A58 * f17_18; + m_A66 += m_A59 * f17_18; + RHS18 += f17_18 * RHS17; + const double f17_19 = -f17 * m_A69; + m_A70 += m_A57 * f17_19; + m_A71 += m_A58 * f17_19; + m_A73 += m_A59 * f17_19; + RHS19 += f17_19 * RHS17; + const double f17_25 = -f17 * m_A103; + m_A104 += m_A57 * f17_25; + m_A105 += m_A58 * f17_25; + m_A109 += m_A59 * f17_25; + RHS25 += f17_25 * RHS17; + const double f18 = 1.0 / m_A63; + const double f18_19 = -f18 * m_A70; + m_A71 += m_A64 * f18_19; + m_A72 += m_A65 * f18_19; + m_A73 += m_A66 * f18_19; + RHS19 += f18_19 * RHS18; + const double f18_21 = -f18 * m_A81; + m_A82 += m_A64 * f18_21; + m_A83 += m_A65 * f18_21; + m_A85 += m_A66 * f18_21; + RHS21 += f18_21 * RHS18; + const double f18_25 = -f18 * m_A104; + m_A105 += m_A64 * f18_25; + m_A106 += m_A65 * f18_25; + m_A109 += m_A66 * f18_25; + RHS25 += f18_25 * RHS18; + const double f19 = 1.0 / m_A71; + const double f19_21 = -f19 * m_A82; + m_A83 += m_A72 * f19_21; + m_A85 += m_A73 * f19_21; + RHS21 += f19_21 * RHS19; + const double f19_25 = -f19 * m_A105; + m_A106 += m_A72 * f19_25; + m_A109 += m_A73 * f19_25; + RHS25 += f19_25 * RHS19; + const double f20 = 1.0 / m_A76; + const double f20_27 = -f20 * m_A120; + m_A123 += m_A77 * f20_27; + RHS27 += f20_27 * RHS20; + const double f21 = 1.0 / m_A83; + const double f21_22 = -f21 * m_A88; + m_A89 += m_A84 * f21_22; + m_A91 += m_A85 * f21_22; RHS22 += f21_22 * RHS21; - const double f21_32 = -f21 * m_A88; - m_A89 += m_A48 * f21_32; - RHS32 += f21_32 * RHS21; - const double f22 = 1.0 / m_A51; - const double f22_32 = -f22 * m_A89; - RHS32 += f22_32 * RHS22; - const double f23 = 1.0 / m_A54; - const double f23_34 = -f23 * m_A103; - RHS34 += f23_34 * RHS23; - const double f24 = 1.0 / m_A56; - const double f24_27 = -f24 * m_A66; - m_A68 += m_A57 * f24_27; - RHS27 += f24_27 * RHS24; - const double f26 = 1.0 / m_A62; - const double f26_31 = -f26 * m_A83; - m_A84 += m_A63 * f26_31; - RHS31 += f26_31 * RHS26; - const double f26_33 = -f26 * m_A97; - m_A98 += m_A63 * f26_33; - RHS33 += f26_33 * RHS26; - const double f27 = 1.0 / m_A67; - const double f27_32 = -f27 * m_A90; - m_A91 += m_A68 * f27_32; - m_A92 += m_A69 * f27_32; - m_A93 += m_A70 * f27_32; - RHS32 += f27_32 * RHS27; - const double f27_34 = -f27 * m_A104; - m_A105 += m_A68 * f27_34; - m_A106 += m_A69 * f27_34; - m_A107 += m_A70 * f27_34; - RHS34 += f27_34 * RHS27; - const double f27_36 = -f27 * m_A115; - m_A119 += m_A68 * f27_36; - m_A121 += m_A69 * f27_36; - m_A122 += m_A70 * f27_36; - RHS36 += f27_36 * RHS27; - const double f28 = 1.0 / m_A72; - const double f28_36 = -f28 * m_A116; - m_A120 += m_A73 * f28_36; - RHS36 += f28_36 * RHS28; - const double f29 = 1.0 / m_A76; - const double f29_35 = -f29 * m_A109; - m_A110 += m_A77 * f29_35; - m_A112 += m_A78 * f29_35; - RHS35 += f29_35 * RHS29; - const double f29_36 = -f29 * m_A117; - m_A118 += m_A77 * f29_36; - m_A122 += m_A78 * f29_36; - RHS36 += f29_36 * RHS29; - const double f30 = 1.0 / m_A81; - const double f30_35 = -f30 * m_A110; - RHS35 += f30_35 * RHS30; - const double f30_36 = -f30 * m_A118; - RHS36 += f30_36 * RHS30; - const double f31 = 1.0 / m_A84; - const double f31_33 = -f31 * m_A98; - RHS33 += f31_33 * RHS31; - const double f32 = 1.0 / m_A91; - const double f32_34 = -f32 * m_A105; - m_A106 += m_A92 * f32_34; - m_A107 += m_A93 * f32_34; - RHS34 += f32_34 * RHS32; - const double f32_36 = -f32 * m_A119; - m_A121 += m_A92 * f32_36; - m_A122 += m_A93 * f32_36; - RHS36 += f32_36 * RHS32; - const double f33 = 1.0 / m_A99; - const double f33_36 = -f33 * m_A120; - m_A122 += m_A100 * f33_36; - RHS36 += f33_36 * RHS33; - const double f34 = 1.0 / m_A106; - const double f34_36 = -f34 * m_A121; - m_A122 += m_A107 * f34_36; - RHS36 += f34_36 * RHS34; - V[36] = RHS36 / m_A122; - double tmp35 = 0.0; - tmp35 += m_A112 * V[36]; - V[35] = (RHS35 - tmp35) / m_A111; - double tmp34 = 0.0; - tmp34 += m_A107 * V[36]; - V[34] = (RHS34 - tmp34) / m_A106; - double tmp33 = 0.0; - tmp33 += m_A100 * V[36]; - V[33] = (RHS33 - tmp33) / m_A99; - double tmp32 = 0.0; - tmp32 += m_A92 * V[34]; - tmp32 += m_A93 * V[36]; - V[32] = (RHS32 - tmp32) / m_A91; - double tmp31 = 0.0; - V[31] = (RHS31 - tmp31) / m_A84; - double tmp30 = 0.0; - V[30] = (RHS30 - tmp30) / m_A81; - double tmp29 = 0.0; - tmp29 += m_A77 * V[30]; - tmp29 += m_A78 * V[36]; - V[29] = (RHS29 - tmp29) / m_A76; - double tmp28 = 0.0; - tmp28 += m_A73 * V[33]; - V[28] = (RHS28 - tmp28) / m_A72; + const double f21_25 = -f21 * m_A106; + m_A107 += m_A84 * f21_25; + m_A109 += m_A85 * f21_25; + RHS25 += f21_25 * RHS21; + const double f22 = 1.0 / m_A89; + const double f22_23 = -f22 * m_A94; + m_A95 += m_A90 * f22_23; + m_A96 += m_A91 * f22_23; + RHS23 += f22_23 * RHS22; + const double f22_25 = -f22 * m_A107; + m_A108 += m_A90 * f22_25; + m_A109 += m_A91 * f22_25; + RHS25 += f22_25 * RHS22; + const double f23 = 1.0 / m_A95; + const double f23_25 = -f23 * m_A108; + m_A109 += m_A96 * f23_25; + RHS25 += f23_25 * RHS23; + const double f24 = 1.0 / m_A98; + const double f24_28 = -f24 * m_A126; + m_A128 += m_A99 * f24_28; + RHS28 += f24_28 * RHS24; + const double f25 = 1.0 / m_A109; + const double f25_26 = -f25 * m_A114; + m_A115 += m_A110 * f25_26; + m_A116 += m_A111 * f25_26; + RHS26 += f25_26 * RHS25; + const double f25_27 = -f25 * m_A121; + m_A122 += m_A110 * f25_27; + m_A123 += m_A111 * f25_27; + RHS27 += f25_27 * RHS25; + const double f26 = 1.0 / m_A115; + const double f26_27 = -f26 * m_A122; + m_A123 += m_A116 * f26_27; + RHS27 += f26_27 * RHS26; + const double f27 = 1.0 / m_A123; + const double f27_28 = -f27 * m_A127; + m_A128 += m_A124 * f27_28; + RHS28 += f27_28 * RHS27; + V[28] = RHS28 / m_A128; double tmp27 = 0.0; - tmp27 += m_A68 * V[32]; - tmp27 += m_A69 * V[34]; - tmp27 += m_A70 * V[36]; - V[27] = (RHS27 - tmp27) / m_A67; + tmp27 += m_A124 * V[28]; + V[27] = (RHS27 - tmp27) / m_A123; double tmp26 = 0.0; - tmp26 += m_A63 * V[31]; - V[26] = (RHS26 - tmp26) / m_A62; + tmp26 += m_A116 * V[27]; + V[26] = (RHS26 - tmp26) / m_A115; double tmp25 = 0.0; - tmp25 += m_A60 * V[34]; - V[25] = (RHS25 - tmp25) / m_A59; + tmp25 += m_A110 * V[26]; + tmp25 += m_A111 * V[27]; + V[25] = (RHS25 - tmp25) / m_A109; double tmp24 = 0.0; - tmp24 += m_A57 * V[32]; - V[24] = (RHS24 - tmp24) / m_A56; + tmp24 += m_A99 * V[28]; + V[24] = (RHS24 - tmp24) / m_A98; double tmp23 = 0.0; - V[23] = (RHS23 - tmp23) / m_A54; + tmp23 += m_A96 * V[25]; + V[23] = (RHS23 - tmp23) / m_A95; double tmp22 = 0.0; - V[22] = (RHS22 - tmp22) / m_A51; + tmp22 += m_A90 * V[23]; + tmp22 += m_A91 * V[25]; + V[22] = (RHS22 - tmp22) / m_A89; double tmp21 = 0.0; - tmp21 += m_A48 * V[22]; - V[21] = (RHS21 - tmp21) / m_A47; + tmp21 += m_A84 * V[22]; + tmp21 += m_A85 * V[25]; + V[21] = (RHS21 - tmp21) / m_A83; double tmp20 = 0.0; - tmp20 += m_A44 * V[25]; - V[20] = (RHS20 - tmp20) / m_A43; + tmp20 += m_A77 * V[27]; + V[20] = (RHS20 - tmp20) / m_A76; double tmp19 = 0.0; - tmp19 += m_A41 * V[30]; - V[19] = (RHS19 - tmp19) / m_A40; + tmp19 += m_A72 * V[21]; + tmp19 += m_A73 * V[25]; + V[19] = (RHS19 - tmp19) / m_A71; double tmp18 = 0.0; - tmp18 += m_A39 * V[30]; - V[18] = (RHS18 - tmp18) / m_A38; + tmp18 += m_A64 * V[19]; + tmp18 += m_A65 * V[21]; + tmp18 += m_A66 * V[25]; + V[18] = (RHS18 - tmp18) / m_A63; double tmp17 = 0.0; - tmp17 += m_A37 * V[29]; - V[17] = (RHS17 - tmp17) / m_A36; + tmp17 += m_A57 * V[18]; + tmp17 += m_A58 * V[19]; + tmp17 += m_A59 * V[25]; + V[17] = (RHS17 - tmp17) / m_A56; double tmp16 = 0.0; - tmp16 += m_A34 * V[27]; - tmp16 += m_A35 * V[36]; - V[16] = (RHS16 - tmp16) / m_A33; + tmp16 += m_A50 * V[25]; + tmp16 += m_A51 * V[27]; + V[16] = (RHS16 - tmp16) / m_A49; double tmp15 = 0.0; - tmp15 += m_A32 * V[31]; - V[15] = (RHS15 - tmp15) / m_A31; + tmp15 += m_A46 * V[20]; + V[15] = (RHS15 - tmp15) / m_A45; double tmp14 = 0.0; - tmp14 += m_A30 * V[33]; - V[14] = (RHS14 - tmp14) / m_A29; + tmp14 += m_A42 * V[23]; + V[14] = (RHS14 - tmp14) / m_A41; double tmp13 = 0.0; - tmp13 += m_A28 * V[26]; - V[13] = (RHS13 - tmp13) / m_A27; + tmp13 += m_A39 * V[22]; + tmp13 += m_A40 * V[23]; + V[13] = (RHS13 - tmp13) / m_A38; double tmp12 = 0.0; - tmp12 += m_A26 * V[35]; - V[12] = (RHS12 - tmp12) / m_A25; + tmp12 += m_A36 * V[21]; + tmp12 += m_A37 * V[22]; + V[12] = (RHS12 - tmp12) / m_A35; double tmp11 = 0.0; - tmp11 += m_A24 * V[12]; - V[11] = (RHS11 - tmp11) / m_A23; + tmp11 += m_A33 * V[19]; + tmp11 += m_A34 * V[21]; + V[11] = (RHS11 - tmp11) / m_A32; double tmp10 = 0.0; - tmp10 += m_A22 * V[33]; - V[10] = (RHS10 - tmp10) / m_A21; + tmp10 += m_A30 * V[18]; + tmp10 += m_A31 * V[21]; + V[10] = (RHS10 - tmp10) / m_A29; double tmp9 = 0.0; - tmp9 += m_A20 * V[28]; - V[9] = (RHS9 - tmp9) / m_A19; + tmp9 += m_A26 * V[17]; + tmp9 += m_A27 * V[19]; + tmp9 += m_A28 * V[25]; + V[9] = (RHS9 - tmp9) / m_A25; double tmp8 = 0.0; - tmp8 += m_A18 * V[23]; - V[8] = (RHS8 - tmp8) / m_A17; + tmp8 += m_A23 * V[17]; + tmp8 += m_A24 * V[18]; + V[8] = (RHS8 - tmp8) / m_A22; double tmp7 = 0.0; - tmp7 += m_A16 * V[23]; - V[7] = (RHS7 - tmp7) / m_A15; + tmp7 += m_A20 * V[9]; + tmp7 += m_A21 * V[17]; + V[7] = (RHS7 - tmp7) / m_A19; double tmp6 = 0.0; - tmp6 += m_A13 * V[21]; - tmp6 += m_A14 * V[22]; - V[6] = (RHS6 - tmp6) / m_A12; + tmp6 += m_A17 * V[7]; + tmp6 += m_A18 * V[17]; + V[6] = (RHS6 - tmp6) / m_A16; double tmp5 = 0.0; - tmp5 += m_A11 * V[21]; - V[5] = (RHS5 - tmp5) / m_A10; + tmp5 += m_A14 * V[16]; + tmp5 += m_A15 * V[25]; + V[5] = (RHS5 - tmp5) / m_A13; double tmp4 = 0.0; - tmp4 += m_A9 * V[25]; - V[4] = (RHS4 - tmp4) / m_A8; + tmp4 += m_A11 * V[16]; + tmp4 += m_A12 * V[27]; + V[4] = (RHS4 - tmp4) / m_A10; double tmp3 = 0.0; - tmp3 += m_A7 * V[34]; - V[3] = (RHS3 - tmp3) / m_A6; + tmp3 += m_A9 * V[27]; + V[3] = (RHS3 - tmp3) / m_A8; double tmp2 = 0.0; - tmp2 += m_A5 * V[24]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A6 * V[24]; + tmp2 += m_A7 * V[28]; + V[2] = (RHS2 - tmp2) / m_A5; double tmp1 = 0.0; - tmp1 += m_A3 * V[32]; + tmp1 += m_A3 * V[15]; + tmp1 += m_A4 * V[20]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[32]; + tmp0 += m_A1 * V[15]; V[0] = (RHS0 - tmp0) / m_A0; } -// zac1b11142 -static void nl_gcr_87cb2c78a2628efd_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// gamemachine +static void nl_gcr_934712b55bb3b2b2_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -19310,6 +21470,9 @@ static void nl_gcr_87cb2c78a2628efd_7_double_double(double * __restrict V, const double m_A4(0.0); double m_A5(0.0); double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; @@ -19322,136 +21485,59 @@ static void nl_gcr_87cb2c78a2628efd_7_double_double(double * __restrict V, const m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; - m_A2 += gt[6]; m_A3 += go[3]; - m_A3 += go[4]; double RHS1 = Idr[3]; RHS1 += Idr[4]; RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 -= go[5] * *cnV[5]; - RHS1 -= go[6] * *cnV[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A6 += gt[13]; - m_A5 += go[7]; - m_A5 += go[8]; - m_A4 += go[9]; - double RHS2 = Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 += Idr[11]; - RHS2 += Idr[12]; - RHS2 += Idr[13]; - RHS2 -= go[10] * *cnV[10]; - RHS2 -= go[11] * *cnV[11]; - RHS2 -= go[12] * *cnV[12]; - RHS2 -= go[13] * *cnV[13]; - const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A6 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A5; - m_A6 += m_A3 * f1_2; - RHS2 += f1_2 * RHS1; - V[2] = RHS2 / m_A6; - double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// starcas -static void nl_gcr_88a8ef5f6bd43d48_12_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A4 += go[2]; - m_A3 += go[3]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 += Idr[4]; RHS1 -= go[4] * *cnV[4]; - m_A7 += gt[5]; - m_A7 += gt[6]; - m_A7 += gt[7]; - m_A6 += go[5]; + RHS1 -= go[5] * *cnV[5]; + m_A4 += gt[6]; + m_A4 += gt[7]; m_A5 += go[6]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; + double RHS2 = Idr[6]; RHS2 += Idr[7]; RHS2 -= go[7] * *cnV[7]; - m_A11 += gt[8]; - m_A11 += gt[9]; - m_A11 += gt[10]; - m_A9 += go[8]; + m_A9 += gt[8]; + m_A9 += gt[9]; + m_A9 += gt[10]; + m_A9 += gt[11]; + m_A9 += gt[12]; + m_A8 += go[8]; + m_A7 += go[9]; + m_A6 += go[10]; double RHS3 = Idr[8]; RHS3 += Idr[9]; RHS3 += Idr[10]; - RHS3 -= go[9] * *cnV[9]; - RHS3 -= go[10] * *cnV[10]; + RHS3 += Idr[11]; + RHS3 += Idr[12]; + RHS3 -= go[11] * *cnV[11]; + RHS3 -= go[12] * *cnV[12]; const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A5; - m_A7 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; + const double f0_3 = -f0 * m_A6; + m_A9 += m_A1 * f0_3; + RHS3 += f0_3 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A6; - m_A7 += m_A3 * f1_2; - m_A8 += m_A4 * f1_2; - RHS2 += f1_2 * RHS1; - const double f1_3 = -f1 * m_A9; - m_A10 += m_A3 * f1_3; - m_A11 += m_A4 * f1_3; + const double f1_3 = -f1 * m_A7; + m_A9 += m_A3 * f1_3; RHS3 += f1_3 * RHS1; - const double f2 = 1.0 / m_A7; - const double f2_3 = -f2 * m_A10; - m_A11 += m_A8 * f2_3; + const double f2 = 1.0 / m_A4; + const double f2_3 = -f2 * m_A8; + m_A9 += m_A5 * f2_3; RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A11; + V[3] = RHS3 / m_A9; double tmp2 = 0.0; - tmp2 += m_A8 * V[3]; - V[2] = (RHS2 - tmp2) / m_A7; + tmp2 += m_A5 * V[3]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; - tmp1 += m_A4 * V[3]; + tmp1 += m_A3 * V[3]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; + tmp0 += m_A1 * V[3]; V[0] = (RHS0 - tmp0) / m_A0; } -// breakout -static void nl_gcr_8a1565d1413f42f7_31_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// kidniki +static void nl_gcr_9a5874c8e2da79d2_37_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -19487,196 +21573,238 @@ static void nl_gcr_8a1565d1413f42f7_31_double_double(double * __restrict V, cons double m_A28(0.0); double m_A29(0.0); double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; m_A0 += gt[3]; - m_A0 += gt[4]; - m_A1 += go[0]; + m_A2 += go[0]; + m_A2 += go[1]; + m_A1 += go[2]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; RHS0 += Idr[3]; - RHS0 += Idr[4]; - RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; RHS0 -= go[3] * *cnV[3]; - RHS0 -= go[4] * *cnV[4]; - m_A2 += gt[5]; - m_A2 += gt[6]; - m_A2 += gt[7]; - m_A3 += go[5]; - double RHS1 = Idr[5]; + m_A3 += gt[4]; + m_A3 += gt[5]; + m_A3 += gt[6]; + m_A5 += go[4]; + m_A4 += go[5]; + double RHS1 = Idr[4]; + RHS1 += Idr[5]; RHS1 += Idr[6]; - RHS1 += Idr[7]; RHS1 -= go[6] * *cnV[6]; - RHS1 -= go[7] * *cnV[7]; - m_A4 += gt[8]; - m_A4 += gt[9]; - m_A4 += gt[10]; - m_A5 += go[8]; - m_A6 += go[9]; - double RHS2 = Idr[8]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A6 += gt[13]; + m_A7 += go[7]; + m_A7 += go[8]; + m_A8 += go[9]; + double RHS2 = Idr[7]; + RHS2 += Idr[8]; RHS2 += Idr[9]; RHS2 += Idr[10]; + RHS2 += Idr[11]; + RHS2 += Idr[12]; + RHS2 += Idr[13]; RHS2 -= go[10] * *cnV[10]; - m_A7 += gt[11]; - m_A7 += gt[12]; - m_A7 += gt[13]; - m_A8 += go[11]; - double RHS3 = Idr[11]; - RHS3 += Idr[12]; - RHS3 += Idr[13]; - RHS3 -= go[12] * *cnV[12]; - RHS3 -= go[13] * *cnV[13]; + RHS2 -= go[11] * *cnV[11]; + RHS2 -= go[12] * *cnV[12]; + RHS2 -= go[13] * *cnV[13]; m_A9 += gt[14]; m_A9 += gt[15]; m_A9 += gt[16]; - m_A10 += go[14]; - double RHS4 = Idr[14]; - RHS4 += Idr[15]; - RHS4 += Idr[16]; - RHS4 -= go[15] * *cnV[15]; - RHS4 -= go[16] * *cnV[16]; - m_A12 += gt[17]; - m_A12 += gt[18]; - m_A12 += gt[19]; - m_A12 += gt[20]; - m_A12 += gt[21]; - m_A12 += gt[22]; - m_A12 += gt[23]; - m_A14 += go[17]; - m_A13 += go[18]; - m_A11 += go[19]; - double RHS5 = Idr[17]; - RHS5 += Idr[18]; - RHS5 += Idr[19]; - RHS5 += Idr[20]; - RHS5 += Idr[21]; - RHS5 += Idr[22]; + m_A11 += go[14]; + m_A10 += go[15]; + double RHS3 = Idr[14]; + RHS3 += Idr[15]; + RHS3 += Idr[16]; + RHS3 -= go[16] * *cnV[16]; + m_A14 += gt[17]; + m_A14 += gt[18]; + m_A14 += gt[19]; + m_A14 += gt[20]; + m_A14 += gt[21]; + m_A13 += go[17]; + m_A12 += go[18]; + m_A12 += go[19]; + double RHS4 = Idr[17]; + RHS4 += Idr[18]; + RHS4 += Idr[19]; + RHS4 += Idr[20]; + RHS4 += Idr[21]; + RHS4 -= go[20] * *cnV[20]; + RHS4 -= go[21] * *cnV[21]; + m_A18 += gt[22]; + m_A18 += gt[23]; + m_A18 += gt[24]; + m_A18 += gt[25]; + m_A18 += gt[26]; + m_A18 += gt[27]; + m_A18 += gt[28]; + m_A20 += go[22]; + m_A19 += go[23]; + m_A19 += go[24]; + m_A19 += go[25]; + m_A17 += go[26]; + double RHS5 = Idr[22]; RHS5 += Idr[23]; - RHS5 -= go[20] * *cnV[20]; - RHS5 -= go[21] * *cnV[21]; - RHS5 -= go[22] * *cnV[22]; - RHS5 -= go[23] * *cnV[23]; - m_A16 += gt[24]; - m_A16 += gt[25]; - m_A16 += gt[26]; - m_A16 += gt[27]; - m_A16 += gt[28]; - m_A18 += go[24]; - m_A15 += go[25]; - double RHS6 = Idr[24]; - RHS6 += Idr[25]; - RHS6 += Idr[26]; - RHS6 += Idr[27]; - RHS6 += Idr[28]; - RHS6 -= go[26] * *cnV[26]; - RHS6 -= go[27] * *cnV[27]; - RHS6 -= go[28] * *cnV[28]; + RHS5 += Idr[24]; + RHS5 += Idr[25]; + RHS5 += Idr[26]; + RHS5 += Idr[27]; + RHS5 += Idr[28]; + RHS5 -= go[27] * *cnV[27]; + RHS5 -= go[28] * *cnV[28]; m_A23 += gt[29]; m_A23 += gt[30]; m_A23 += gt[31]; - m_A19 += go[29]; - m_A20 += go[30]; - m_A21 += go[31]; - double RHS7 = Idr[29]; - RHS7 += Idr[30]; - RHS7 += Idr[31]; - m_A30 += gt[32]; - m_A30 += gt[33]; - m_A30 += gt[34]; - m_A30 += gt[35]; - m_A30 += gt[36]; - m_A26 += go[32]; - m_A25 += go[33]; - m_A28 += go[34]; + m_A23 += gt[32]; + m_A21 += go[29]; + double RHS6 = Idr[29]; + RHS6 += Idr[30]; + RHS6 += Idr[31]; + RHS6 += Idr[32]; + RHS6 -= go[30] * *cnV[30]; + RHS6 -= go[31] * *cnV[31]; + RHS6 -= go[32] * *cnV[32]; + m_A28 += gt[33]; + m_A28 += gt[34]; + m_A28 += gt[35]; + m_A28 += gt[36]; + m_A28 += gt[37]; + m_A28 += gt[38]; + m_A26 += go[33]; + m_A27 += go[34]; m_A27 += go[35]; - double RHS8 = Idr[32]; - RHS8 += Idr[33]; - RHS8 += Idr[34]; - RHS8 += Idr[35]; - RHS8 += Idr[36]; - RHS8 -= go[36] * *cnV[36]; + m_A27 += go[36]; + m_A25 += go[37]; + m_A25 += go[38]; + double RHS7 = Idr[33]; + RHS7 += Idr[34]; + RHS7 += Idr[35]; + RHS7 += Idr[36]; + RHS7 += Idr[37]; + RHS7 += Idr[38]; + m_A36 += gt[39]; + m_A36 += gt[40]; + m_A36 += gt[41]; + m_A36 += gt[42]; + m_A30 += go[39]; + m_A33 += go[40]; + m_A31 += go[41]; + double RHS8 = Idr[39]; + RHS8 += Idr[40]; + RHS8 += Idr[41]; + RHS8 += Idr[42]; + RHS8 -= go[42] * *cnV[42]; const double f0 = 1.0 / m_A0; - const double f0_5 = -f0 * m_A11; - m_A12 += m_A1 * f0_5; + const double f0_5 = -f0 * m_A17; + m_A18 += m_A1 * f0_5; + m_A19 += m_A2 * f0_5; RHS5 += f0_5 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_7 = -f1 * m_A19; - m_A23 += m_A3 * f1_7; + const double f0_7 = -f0 * m_A25; + m_A27 += m_A1 * f0_7; + m_A28 += m_A2 * f0_7; + RHS7 += f0_7 * RHS0; + const double f1 = 1.0 / m_A3; + const double f1_7 = -f1 * m_A26; + m_A28 += m_A4 * f1_7; + m_A29 += m_A5 * f1_7; RHS7 += f1_7 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_6 = -f2 * m_A15; - m_A16 += m_A5 * f2_6; - m_A17 += m_A6 * f2_6; - RHS6 += f2_6 * RHS2; - const double f2_7 = -f2 * m_A20; - m_A22 += m_A5 * f2_7; - m_A23 += m_A6 * f2_7; - RHS7 += f2_7 * RHS2; - const double f3 = 1.0 / m_A7; - const double f3_8 = -f3 * m_A25; - m_A30 += m_A8 * f3_8; - RHS8 += f3_8 * RHS3; - const double f4 = 1.0 / m_A9; - const double f4_8 = -f4 * m_A26; - m_A30 += m_A10 * f4_8; + const double f1_8 = -f1 * m_A30; + m_A35 += m_A4 * f1_8; + m_A36 += m_A5 * f1_8; + RHS8 += f1_8 * RHS1; + const double f2 = 1.0 / m_A6; + const double f2_4 = -f2 * m_A12; + m_A14 += m_A7 * f2_4; + m_A16 += m_A8 * f2_4; + RHS4 += f2_4 * RHS2; + const double f2_8 = -f2 * m_A31; + m_A32 += m_A7 * f2_8; + m_A36 += m_A8 * f2_8; + RHS8 += f2_8 * RHS2; + const double f3 = 1.0 / m_A9; + const double f3_4 = -f3 * m_A13; + m_A14 += m_A10 * f3_4; + m_A15 += m_A11 * f3_4; + RHS4 += f3_4 * RHS3; + const double f3_6 = -f3 * m_A21; + m_A22 += m_A10 * f3_6; + m_A23 += m_A11 * f3_6; + RHS6 += f3_6 * RHS3; + const double f4 = 1.0 / m_A14; + const double f4_6 = -f4 * m_A22; + m_A23 += m_A15 * f4_6; + m_A24 += m_A16 * f4_6; + RHS6 += f4_6 * RHS4; + const double f4_8 = -f4 * m_A32; + m_A34 += m_A15 * f4_8; + m_A36 += m_A16 * f4_8; RHS8 += f4_8 * RHS4; - const double f5 = 1.0 / m_A12; - const double f5_7 = -f5 * m_A21; - m_A23 += m_A13 * f5_7; - m_A24 += m_A14 * f5_7; + const double f5 = 1.0 / m_A18; + const double f5_7 = -f5 * m_A27; + m_A28 += m_A19 * f5_7; + m_A29 += m_A20 * f5_7; RHS7 += f5_7 * RHS5; - const double f5_8 = -f5 * m_A27; - m_A29 += m_A13 * f5_8; - m_A30 += m_A14 * f5_8; + const double f5_8 = -f5 * m_A33; + m_A35 += m_A19 * f5_8; + m_A36 += m_A20 * f5_8; RHS8 += f5_8 * RHS5; - const double f6 = 1.0 / m_A16; - const double f6_7 = -f6 * m_A22; - m_A23 += m_A17 * f6_7; - m_A24 += m_A18 * f6_7; - RHS7 += f6_7 * RHS6; - const double f6_8 = -f6 * m_A28; - m_A29 += m_A17 * f6_8; - m_A30 += m_A18 * f6_8; - RHS8 += f6_8 * RHS6; - const double f7 = 1.0 / m_A23; - const double f7_8 = -f7 * m_A29; - m_A30 += m_A24 * f7_8; + const double f6 = 1.0 / m_A23; + const double f6_8 = -f6 * m_A34; + m_A36 += m_A24 * f6_8; + RHS8 += f6_8 * RHS6; + const double f7 = 1.0 / m_A28; + const double f7_8 = -f7 * m_A35; + m_A36 += m_A29 * f7_8; RHS8 += f7_8 * RHS7; - V[8] = RHS8 / m_A30; + V[8] = RHS8 / m_A36; double tmp7 = 0.0; - tmp7 += m_A24 * V[8]; - V[7] = (RHS7 - tmp7) / m_A23; + tmp7 += m_A29 * V[8]; + V[7] = (RHS7 - tmp7) / m_A28; double tmp6 = 0.0; - tmp6 += m_A17 * V[7]; - tmp6 += m_A18 * V[8]; - V[6] = (RHS6 - tmp6) / m_A16; + tmp6 += m_A24 * V[8]; + V[6] = (RHS6 - tmp6) / m_A23; double tmp5 = 0.0; - tmp5 += m_A13 * V[7]; - tmp5 += m_A14 * V[8]; - V[5] = (RHS5 - tmp5) / m_A12; + tmp5 += m_A19 * V[7]; + tmp5 += m_A20 * V[8]; + V[5] = (RHS5 - tmp5) / m_A18; double tmp4 = 0.0; - tmp4 += m_A10 * V[8]; - V[4] = (RHS4 - tmp4) / m_A9; + tmp4 += m_A15 * V[6]; + tmp4 += m_A16 * V[8]; + V[4] = (RHS4 - tmp4) / m_A14; double tmp3 = 0.0; - tmp3 += m_A8 * V[8]; - V[3] = (RHS3 - tmp3) / m_A7; + tmp3 += m_A10 * V[4]; + tmp3 += m_A11 * V[6]; + V[3] = (RHS3 - tmp3) / m_A9; double tmp2 = 0.0; - tmp2 += m_A5 * V[6]; - tmp2 += m_A6 * V[7]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A7 * V[4]; + tmp2 += m_A8 * V[8]; + V[2] = (RHS2 - tmp2) / m_A6; double tmp1 = 0.0; - tmp1 += m_A3 * V[7]; - V[1] = (RHS1 - tmp1) / m_A2; + tmp1 += m_A4 * V[7]; + tmp1 += m_A5 * V[8]; + V[1] = (RHS1 - tmp1) / m_A3; double tmp0 = 0.0; tmp0 += m_A1 * V[5]; + tmp0 += m_A2 * V[7]; V[0] = (RHS0 - tmp0) / m_A0; } -// starhawk -static void nl_gcr_8b1ac1e181eec3fc_40_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// warrior +static void nl_gcr_9c975530a1a529d6_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -19688,39 +21816,6 @@ static void nl_gcr_8b1ac1e181eec3fc_40_double_double(double * __restrict V, cons double m_A4(0.0); double m_A5(0.0); double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); - double m_A15(0.0); - double m_A16(0.0); - double m_A17(0.0); - double m_A18(0.0); - double m_A19(0.0); - double m_A20(0.0); - double m_A21(0.0); - double m_A22(0.0); - double m_A23(0.0); - double m_A24(0.0); - double m_A25(0.0); - double m_A26(0.0); - double m_A27(0.0); - double m_A28(0.0); - double m_A29(0.0); - double m_A30(0.0); - double m_A31(0.0); - double m_A32(0.0); - double m_A33(0.0); - double m_A34(0.0); - double m_A35(0.0); - double m_A36(0.0); - double m_A37(0.0); - double m_A38(0.0); - double m_A39(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A1 += go[0]; @@ -19728,228 +21823,33 @@ static void nl_gcr_8b1ac1e181eec3fc_40_double_double(double * __restrict V, cons RHS0 += Idr[1]; RHS0 -= go[1] * *cnV[1]; m_A2 += gt[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; m_A3 += go[2]; double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 += Idr[4]; - RHS1 -= go[3] * *cnV[3]; - RHS1 -= go[4] * *cnV[4]; - m_A4 += gt[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; - m_A5 += go[5]; - double RHS2 = Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; - RHS2 -= go[6] * *cnV[6]; - RHS2 -= go[7] * *cnV[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A8 += go[8]; - m_A8 += go[9]; - m_A7 += go[10]; - double RHS3 = Idr[8]; - RHS3 += Idr[9]; - RHS3 += Idr[10]; - m_A9 += gt[11]; - m_A9 += gt[12]; - m_A9 += gt[13]; - m_A9 += gt[14]; - m_A9 += gt[15]; - m_A9 += gt[16]; - m_A9 += gt[17]; - m_A10 += go[11]; - double RHS4 = Idr[11]; - RHS4 += Idr[12]; - RHS4 += Idr[13]; - RHS4 += Idr[14]; - RHS4 += Idr[15]; - RHS4 += Idr[16]; - RHS4 += Idr[17]; - RHS4 -= go[12] * *cnV[12]; - RHS4 -= go[13] * *cnV[13]; - RHS4 -= go[14] * *cnV[14]; - RHS4 -= go[15] * *cnV[15]; - RHS4 -= go[16] * *cnV[16]; - RHS4 -= go[17] * *cnV[17]; - m_A11 += gt[18]; - m_A11 += gt[19]; - m_A11 += gt[20]; - m_A11 += gt[21]; - m_A12 += go[18]; - m_A12 += go[19]; - m_A13 += go[20]; - double RHS5 = Idr[18]; - RHS5 += Idr[19]; - RHS5 += Idr[20]; - RHS5 += Idr[21]; - RHS5 -= go[21] * *cnV[21]; - m_A14 += gt[22]; - m_A14 += gt[23]; - m_A16 += go[22]; - m_A15 += go[23]; - double RHS6 = Idr[22]; - RHS6 += Idr[23]; - m_A19 += gt[24]; - m_A19 += gt[25]; - m_A19 += gt[26]; - m_A18 += go[24]; - m_A17 += go[25]; - double RHS7 = Idr[24]; - RHS7 += Idr[25]; - RHS7 += Idr[26]; - RHS7 -= go[26] * *cnV[26]; - m_A22 += gt[27]; - m_A22 += gt[28]; - m_A22 += gt[29]; - m_A23 += go[27]; - m_A21 += go[28]; - double RHS8 = Idr[27]; - RHS8 += Idr[28]; - RHS8 += Idr[29]; - RHS8 -= go[29] * *cnV[29]; - m_A26 += gt[30]; - m_A26 += gt[31]; - m_A26 += gt[32]; - m_A25 += go[30]; - m_A24 += go[31]; - double RHS9 = Idr[30]; - RHS9 += Idr[31]; - RHS9 += Idr[32]; - RHS9 -= go[32] * *cnV[32]; - m_A32 += gt[33]; - m_A32 += gt[34]; - m_A32 += gt[35]; - m_A32 += gt[36]; - m_A32 += gt[37]; - m_A32 += gt[38]; - m_A28 += go[33]; - m_A30 += go[34]; - m_A29 += go[35]; - m_A29 += go[36]; - double RHS10 = Idr[33]; - RHS10 += Idr[34]; - RHS10 += Idr[35]; - RHS10 += Idr[36]; - RHS10 += Idr[37]; - RHS10 += Idr[38]; - RHS10 -= go[37] * *cnV[37]; - RHS10 -= go[38] * *cnV[38]; - m_A39 += gt[39]; - m_A39 += gt[40]; - m_A39 += gt[41]; - m_A39 += gt[42]; - m_A35 += go[39]; - m_A37 += go[40]; - m_A34 += go[41]; - m_A34 += go[42]; - double RHS11 = Idr[39]; - RHS11 += Idr[40]; - RHS11 += Idr[41]; - RHS11 += Idr[42]; + m_A6 += gt[3]; + m_A6 += gt[4]; + m_A5 += go[3]; + m_A4 += go[4]; + double RHS2 = Idr[3]; + RHS2 += Idr[4]; const double f0 = 1.0 / m_A0; - const double f0_9 = -f0 * m_A24; - m_A26 += m_A1 * f0_9; - RHS9 += f0_9 * RHS0; + const double f0_2 = -f0 * m_A4; + m_A6 += m_A1 * f0_2; + RHS2 += f0_2 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_7 = -f1 * m_A17; - m_A19 += m_A3 * f1_7; - RHS7 += f1_7 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_8 = -f2 * m_A21; - m_A22 += m_A5 * f2_8; - RHS8 += f2_8 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_7 = -f3 * m_A18; - m_A19 += m_A7 * f3_7; - m_A20 += m_A8 * f3_7; - RHS7 += f3_7 * RHS3; - const double f3_11 = -f3 * m_A34; - m_A36 += m_A7 * f3_11; - m_A39 += m_A8 * f3_11; - RHS11 += f3_11 * RHS3; - const double f4 = 1.0 / m_A9; - const double f4_10 = -f4 * m_A28; - m_A29 += m_A10 * f4_10; - RHS10 += f4_10 * RHS4; - const double f5 = 1.0 / m_A11; - const double f5_10 = -f5 * m_A29; - m_A32 += m_A12 * f5_10; - m_A33 += m_A13 * f5_10; - RHS10 += f5_10 * RHS5; - const double f5_11 = -f5 * m_A35; - m_A38 += m_A12 * f5_11; - m_A39 += m_A13 * f5_11; - RHS11 += f5_11 * RHS5; - const double f6 = 1.0 / m_A14; - const double f6_9 = -f6 * m_A25; - m_A26 += m_A15 * f6_9; - m_A27 += m_A16 * f6_9; - RHS9 += f6_9 * RHS6; - const double f6_10 = -f6 * m_A30; - m_A31 += m_A15 * f6_10; - m_A32 += m_A16 * f6_10; - RHS10 += f6_10 * RHS6; - const double f7 = 1.0 / m_A19; - const double f7_11 = -f7 * m_A36; - m_A39 += m_A20 * f7_11; - RHS11 += f7_11 * RHS7; - const double f8 = 1.0 / m_A22; - const double f8_11 = -f8 * m_A37; - m_A39 += m_A23 * f8_11; - RHS11 += f8_11 * RHS8; - const double f9 = 1.0 / m_A26; - const double f9_10 = -f9 * m_A31; - m_A32 += m_A27 * f9_10; - RHS10 += f9_10 * RHS9; - const double f10 = 1.0 / m_A32; - const double f10_11 = -f10 * m_A38; - m_A39 += m_A33 * f10_11; - RHS11 += f10_11 * RHS10; - V[11] = RHS11 / m_A39; - double tmp10 = 0.0; - tmp10 += m_A33 * V[11]; - V[10] = (RHS10 - tmp10) / m_A32; - double tmp9 = 0.0; - tmp9 += m_A27 * V[10]; - V[9] = (RHS9 - tmp9) / m_A26; - double tmp8 = 0.0; - tmp8 += m_A23 * V[11]; - V[8] = (RHS8 - tmp8) / m_A22; - double tmp7 = 0.0; - tmp7 += m_A20 * V[11]; - V[7] = (RHS7 - tmp7) / m_A19; - double tmp6 = 0.0; - tmp6 += m_A15 * V[9]; - tmp6 += m_A16 * V[10]; - V[6] = (RHS6 - tmp6) / m_A14; - double tmp5 = 0.0; - tmp5 += m_A12 * V[10]; - tmp5 += m_A13 * V[11]; - V[5] = (RHS5 - tmp5) / m_A11; - double tmp4 = 0.0; - tmp4 += m_A10 * V[5]; - V[4] = (RHS4 - tmp4) / m_A9; - double tmp3 = 0.0; - tmp3 += m_A7 * V[7]; - tmp3 += m_A8 * V[11]; - V[3] = (RHS3 - tmp3) / m_A6; - double tmp2 = 0.0; - tmp2 += m_A5 * V[8]; - V[2] = (RHS2 - tmp2) / m_A4; + const double f1_2 = -f1 * m_A5; + m_A6 += m_A3 * f1_2; + RHS2 += f1_2 * RHS1; + V[2] = RHS2 / m_A6; double tmp1 = 0.0; - tmp1 += m_A3 * V[7]; + tmp1 += m_A3 * V[2]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[9]; + tmp0 += m_A1 * V[2]; V[0] = (RHS0 - tmp0) / m_A0; } -// rebound -static void nl_gcr_8bec817b324dcc3_28_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// kidniki +static void nl_gcr_9f141889c2091efc_24_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -19978,208 +21878,144 @@ static void nl_gcr_8bec817b324dcc3_28_double_double(double * __restrict V, const double m_A21(0.0); double m_A22(0.0); double m_A23(0.0); - double m_A24(0.0); - double m_A25(0.0); - double m_A26(0.0); - double m_A27(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; + m_A0 += gt[3]; + m_A0 += gt[4]; + m_A0 += gt[5]; + m_A0 += gt[6]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; + RHS0 += Idr[3]; + RHS0 += Idr[4]; + RHS0 += Idr[5]; + RHS0 += Idr[6]; RHS0 -= go[1] * *cnV[1]; RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; - m_A2 += gt[4]; - m_A2 += gt[5]; - m_A2 += gt[6]; - m_A4 += go[3]; - m_A4 += go[4]; - m_A3 += go[5]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; - RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 -= go[6] * *cnV[6]; - m_A5 += gt[7]; - m_A5 += gt[8]; - m_A5 += gt[9]; - m_A6 += go[7]; - double RHS2 = Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 -= go[8] * *cnV[8]; - RHS2 -= go[9] * *cnV[9]; - m_A7 += gt[10]; - m_A7 += gt[11]; - m_A7 += gt[12]; - m_A7 += gt[13]; - m_A7 += gt[14]; - m_A7 += gt[15]; - m_A7 += gt[16]; - m_A8 += go[10]; - m_A8 += go[11]; - double RHS3 = Idr[10]; - RHS3 += Idr[11]; + RHS0 -= go[3] * *cnV[3]; + RHS0 -= go[4] * *cnV[4]; + RHS0 -= go[5] * *cnV[5]; + RHS0 -= go[6] * *cnV[6]; + m_A2 += gt[7]; + m_A2 += gt[8]; + m_A3 += go[7]; + double RHS1 = Idr[7]; + RHS1 += Idr[8]; + RHS1 -= go[8] * *cnV[8]; + m_A4 += gt[9]; + m_A4 += gt[10]; + m_A5 += go[9]; + double RHS2 = Idr[9]; + RHS2 += Idr[10]; + RHS2 -= go[10] * *cnV[10]; + m_A6 += gt[11]; + m_A6 += gt[12]; + m_A7 += go[11]; + double RHS3 = Idr[11]; RHS3 += Idr[12]; - RHS3 += Idr[13]; - RHS3 += Idr[14]; - RHS3 += Idr[15]; - RHS3 += Idr[16]; RHS3 -= go[12] * *cnV[12]; - RHS3 -= go[13] * *cnV[13]; - RHS3 -= go[14] * *cnV[14]; - RHS3 -= go[15] * *cnV[15]; - RHS3 -= go[16] * *cnV[16]; + m_A8 += gt[13]; + m_A8 += gt[14]; + m_A8 += gt[15]; + m_A10 += go[13]; + m_A9 += go[14]; + double RHS4 = Idr[13]; + RHS4 += Idr[14]; + RHS4 += Idr[15]; + RHS4 -= go[15] * *cnV[15]; + m_A11 += gt[16]; m_A11 += gt[17]; m_A11 += gt[18]; - m_A11 += gt[19]; - m_A13 += go[17]; - m_A10 += go[18]; - m_A9 += go[19]; - double RHS4 = Idr[17]; - RHS4 += Idr[18]; - RHS4 += Idr[19]; - m_A16 += gt[20]; - m_A16 += gt[21]; - m_A16 += gt[22]; - m_A16 += gt[23]; - m_A16 += gt[24]; - m_A16 += gt[25]; - m_A16 += gt[26]; - m_A18 += go[20]; + m_A12 += go[16]; + double RHS5 = Idr[16]; + RHS5 += Idr[17]; + RHS5 += Idr[18]; + RHS5 -= go[17] * *cnV[17]; + RHS5 -= go[18] * *cnV[18]; + m_A18 += gt[19]; + m_A18 += gt[20]; + m_A18 += gt[21]; + m_A18 += gt[22]; + m_A18 += gt[23]; + m_A16 += go[19]; + m_A15 += go[20]; m_A14 += go[21]; - m_A14 += go[22]; - double RHS5 = Idr[20]; - RHS5 += Idr[21]; - RHS5 += Idr[22]; - RHS5 += Idr[23]; - RHS5 += Idr[24]; - RHS5 += Idr[25]; - RHS5 += Idr[26]; - RHS5 -= go[23] * *cnV[23]; - RHS5 -= go[24] * *cnV[24]; - RHS5 -= go[25] * *cnV[25]; - RHS5 -= go[26] * *cnV[26]; - m_A22 += gt[27]; - m_A22 += gt[28]; - m_A22 += gt[29]; - m_A22 += gt[30]; - m_A22 += gt[31]; - m_A22 += gt[32]; - m_A22 += gt[33]; - m_A22 += gt[34]; - m_A22 += gt[35]; - m_A22 += gt[36]; - m_A23 += go[27]; - m_A23 += go[28]; - m_A20 += go[29]; - m_A19 += go[30]; - m_A19 += go[31]; - double RHS6 = Idr[27]; - RHS6 += Idr[28]; - RHS6 += Idr[29]; - RHS6 += Idr[30]; - RHS6 += Idr[31]; - RHS6 += Idr[32]; - RHS6 += Idr[33]; - RHS6 += Idr[34]; - RHS6 += Idr[35]; - RHS6 += Idr[36]; - RHS6 -= go[32] * *cnV[32]; - RHS6 -= go[33] * *cnV[33]; - RHS6 -= go[34] * *cnV[34]; - RHS6 -= go[35] * *cnV[35]; - RHS6 -= go[36] * *cnV[36]; - m_A27 += gt[37]; - m_A27 += gt[38]; - m_A27 += gt[39]; - m_A27 += gt[40]; - m_A27 += gt[41]; - m_A26 += go[37]; - m_A26 += go[38]; - m_A25 += go[39]; - m_A24 += go[40]; - double RHS7 = Idr[37]; - RHS7 += Idr[38]; - RHS7 += Idr[39]; - RHS7 += Idr[40]; - RHS7 += Idr[41]; - RHS7 -= go[41] * *cnV[41]; + m_A17 += go[22]; + m_A13 += go[23]; + double RHS6 = Idr[19]; + RHS6 += Idr[20]; + RHS6 += Idr[21]; + RHS6 += Idr[22]; + RHS6 += Idr[23]; + m_A23 += gt[24]; + m_A23 += gt[25]; + m_A21 += go[24]; + m_A20 += go[25]; + double RHS7 = Idr[24]; + RHS7 += Idr[25]; const double f0 = 1.0 / m_A0; - const double f0_4 = -f0 * m_A9; - m_A11 += m_A1 * f0_4; - RHS4 += f0_4 * RHS0; + const double f0_6 = -f0 * m_A13; + m_A18 += m_A1 * f0_6; + RHS6 += f0_6 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_4 = -f1 * m_A10; - m_A11 += m_A3 * f1_4; - m_A12 += m_A4 * f1_4; - RHS4 += f1_4 * RHS1; - const double f1_5 = -f1 * m_A14; - m_A15 += m_A3 * f1_5; - m_A16 += m_A4 * f1_5; - RHS5 += f1_5 * RHS1; - const double f2 = 1.0 / m_A5; - const double f2_7 = -f2 * m_A24; - m_A27 += m_A6 * f2_7; - RHS7 += f2_7 * RHS2; - const double f3 = 1.0 / m_A7; - const double f3_6 = -f3 * m_A19; - m_A22 += m_A8 * f3_6; + const double f1_6 = -f1 * m_A14; + m_A18 += m_A3 * f1_6; + RHS6 += f1_6 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_6 = -f2 * m_A15; + m_A18 += m_A5 * f2_6; + RHS6 += f2_6 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_6 = -f3 * m_A16; + m_A18 += m_A7 * f3_6; RHS6 += f3_6 * RHS3; - const double f4 = 1.0 / m_A11; - const double f4_5 = -f4 * m_A15; - m_A16 += m_A12 * f4_5; - m_A17 += m_A13 * f4_5; - RHS5 += f4_5 * RHS4; - const double f4_6 = -f4 * m_A20; - m_A21 += m_A12 * f4_6; - m_A22 += m_A13 * f4_6; + const double f4 = 1.0 / m_A8; + const double f4_6 = -f4 * m_A17; + m_A18 += m_A9 * f4_6; + m_A19 += m_A10 * f4_6; RHS6 += f4_6 * RHS4; - const double f5 = 1.0 / m_A16; - const double f5_6 = -f5 * m_A21; - m_A22 += m_A17 * f5_6; - m_A23 += m_A18 * f5_6; - RHS6 += f5_6 * RHS5; - const double f5_7 = -f5 * m_A25; - m_A26 += m_A17 * f5_7; - m_A27 += m_A18 * f5_7; + const double f4_7 = -f4 * m_A20; + m_A22 += m_A9 * f4_7; + m_A23 += m_A10 * f4_7; + RHS7 += f4_7 * RHS4; + const double f5 = 1.0 / m_A11; + const double f5_7 = -f5 * m_A21; + m_A23 += m_A12 * f5_7; RHS7 += f5_7 * RHS5; - const double f6 = 1.0 / m_A22; - const double f6_7 = -f6 * m_A26; - m_A27 += m_A23 * f6_7; + const double f6 = 1.0 / m_A18; + const double f6_7 = -f6 * m_A22; + m_A23 += m_A19 * f6_7; RHS7 += f6_7 * RHS6; - V[7] = RHS7 / m_A27; + V[7] = RHS7 / m_A23; double tmp6 = 0.0; - tmp6 += m_A23 * V[7]; - V[6] = (RHS6 - tmp6) / m_A22; + tmp6 += m_A19 * V[7]; + V[6] = (RHS6 - tmp6) / m_A18; double tmp5 = 0.0; - tmp5 += m_A17 * V[6]; - tmp5 += m_A18 * V[7]; - V[5] = (RHS5 - tmp5) / m_A16; + tmp5 += m_A12 * V[7]; + V[5] = (RHS5 - tmp5) / m_A11; double tmp4 = 0.0; - tmp4 += m_A12 * V[5]; - tmp4 += m_A13 * V[6]; - V[4] = (RHS4 - tmp4) / m_A11; + tmp4 += m_A9 * V[6]; + tmp4 += m_A10 * V[7]; + V[4] = (RHS4 - tmp4) / m_A8; double tmp3 = 0.0; - tmp3 += m_A8 * V[6]; - V[3] = (RHS3 - tmp3) / m_A7; + tmp3 += m_A7 * V[6]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A6 * V[7]; - V[2] = (RHS2 - tmp2) / m_A5; + tmp2 += m_A5 * V[6]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[4]; - tmp1 += m_A4 * V[5]; + tmp1 += m_A3 * V[6]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[4]; + tmp0 += m_A1 * V[6]; V[0] = (RHS0 - tmp0) / m_A0; } -// cocoloco -static void nl_gcr_8c0f7f2284333de5_16_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// segas16b_audio +static void nl_gcr_9f7104c5e25c87dd_111_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -20200,105 +22036,101 @@ static void nl_gcr_8c0f7f2284333de5_16_double_double(double * __restrict V, cons double m_A13(0.0); double m_A14(0.0); double m_A15(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A2 += gt[3]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 -= go[3] * *cnV[3]; - m_A4 += gt[4]; - m_A4 += gt[5]; - m_A5 += go[4]; - double RHS2 = Idr[4]; - RHS2 += Idr[5]; - RHS2 -= go[5] * *cnV[5]; - m_A6 += gt[6]; - m_A6 += gt[7]; - m_A7 += go[6]; - double RHS3 = Idr[6]; - RHS3 += Idr[7]; - RHS3 -= go[7] * *cnV[7]; - m_A9 += gt[8]; - m_A9 += gt[9]; - m_A9 += gt[10]; - m_A8 += go[8]; - m_A10 += go[9]; - double RHS4 = Idr[8]; - RHS4 += Idr[9]; - RHS4 += Idr[10]; - RHS4 -= go[10] * *cnV[10]; - m_A15 += gt[11]; - m_A15 += gt[12]; - m_A15 += gt[13]; - m_A15 += gt[14]; - m_A14 += go[11]; - m_A13 += go[12]; - m_A12 += go[13]; - m_A11 += go[14]; - double RHS5 = Idr[11]; - RHS5 += Idr[12]; - RHS5 += Idr[13]; - RHS5 += Idr[14]; - const double f0 = 1.0 / m_A0; - const double f0_5 = -f0 * m_A11; - m_A15 += m_A1 * f0_5; - RHS5 += f0_5 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_5 = -f1 * m_A12; - m_A15 += m_A3 * f1_5; - RHS5 += f1_5 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_4 = -f2 * m_A8; - m_A9 += m_A5 * f2_4; - RHS4 += f2_4 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_5 = -f3 * m_A13; - m_A15 += m_A7 * f3_5; - RHS5 += f3_5 * RHS3; - const double f4 = 1.0 / m_A9; - const double f4_5 = -f4 * m_A14; - m_A15 += m_A10 * f4_5; - RHS5 += f4_5 * RHS4; - V[5] = RHS5 / m_A15; - double tmp4 = 0.0; - tmp4 += m_A10 * V[5]; - V[4] = (RHS4 - tmp4) / m_A9; - double tmp3 = 0.0; - tmp3 += m_A7 * V[5]; - V[3] = (RHS3 - tmp3) / m_A6; - double tmp2 = 0.0; - tmp2 += m_A5 * V[4]; - V[2] = (RHS2 - tmp2) / m_A4; - double tmp1 = 0.0; - tmp1 += m_A3 * V[5]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[5]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// gamemachine -static void nl_gcr_934712b55bb3b2b2_10_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + double m_A49(0.0); + double m_A50(0.0); + double m_A51(0.0); + double m_A52(0.0); + double m_A53(0.0); + double m_A54(0.0); + double m_A55(0.0); + double m_A56(0.0); + double m_A57(0.0); + double m_A58(0.0); + double m_A59(0.0); + double m_A60(0.0); + double m_A61(0.0); + double m_A62(0.0); + double m_A63(0.0); + double m_A64(0.0); + double m_A65(0.0); + double m_A66(0.0); + double m_A67(0.0); + double m_A68(0.0); + double m_A69(0.0); + double m_A70(0.0); + double m_A71(0.0); + double m_A72(0.0); + double m_A73(0.0); + double m_A74(0.0); + double m_A75(0.0); + double m_A76(0.0); + double m_A77(0.0); + double m_A78(0.0); + double m_A79(0.0); + double m_A80(0.0); + double m_A81(0.0); + double m_A82(0.0); + double m_A83(0.0); + double m_A84(0.0); + double m_A85(0.0); + double m_A86(0.0); + double m_A87(0.0); + double m_A88(0.0); + double m_A89(0.0); + double m_A90(0.0); + double m_A91(0.0); + double m_A92(0.0); + double m_A93(0.0); + double m_A94(0.0); + double m_A95(0.0); + double m_A96(0.0); + double m_A97(0.0); + double m_A98(0.0); + double m_A99(0.0); + double m_A100(0.0); + double m_A101(0.0); + double m_A102(0.0); + double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; @@ -20319,363 +22151,613 @@ static void nl_gcr_934712b55bb3b2b2_10_double_double(double * __restrict V, cons RHS1 -= go[5] * *cnV[5]; m_A4 += gt[6]; m_A4 += gt[7]; + m_A4 += gt[8]; m_A5 += go[6]; double RHS2 = Idr[6]; RHS2 += Idr[7]; + RHS2 += Idr[8]; RHS2 -= go[7] * *cnV[7]; - m_A9 += gt[8]; - m_A9 += gt[9]; - m_A9 += gt[10]; - m_A9 += gt[11]; - m_A9 += gt[12]; - m_A8 += go[8]; - m_A7 += go[9]; - m_A6 += go[10]; - double RHS3 = Idr[8]; - RHS3 += Idr[9]; + RHS2 -= go[8] * *cnV[8]; + m_A6 += gt[9]; + m_A6 += gt[10]; + m_A6 += gt[11]; + m_A8 += go[9]; + m_A7 += go[10]; + double RHS3 = Idr[9]; RHS3 += Idr[10]; RHS3 += Idr[11]; - RHS3 += Idr[12]; RHS3 -= go[11] * *cnV[11]; - RHS3 -= go[12] * *cnV[12]; + m_A9 += gt[12]; + m_A9 += gt[13]; + m_A9 += gt[14]; + m_A12 += go[12]; + m_A10 += go[13]; + m_A11 += go[14]; + double RHS4 = Idr[12]; + RHS4 += Idr[13]; + RHS4 += Idr[14]; + m_A13 += gt[15]; + m_A13 += gt[16]; + m_A13 += gt[17]; + m_A13 += gt[18]; + m_A13 += gt[19]; + m_A13 += gt[20]; + m_A13 += gt[21]; + m_A15 += go[15]; + m_A14 += go[16]; + double RHS5 = Idr[15]; + RHS5 += Idr[16]; + RHS5 += Idr[17]; + RHS5 += Idr[18]; + RHS5 += Idr[19]; + RHS5 += Idr[20]; + RHS5 += Idr[21]; + RHS5 -= go[17] * *cnV[17]; + RHS5 -= go[18] * *cnV[18]; + RHS5 -= go[19] * *cnV[19]; + RHS5 -= go[20] * *cnV[20]; + RHS5 -= go[21] * *cnV[21]; + m_A16 += gt[22]; + m_A16 += gt[23]; + m_A17 += go[22]; + m_A18 += go[23]; + double RHS6 = Idr[22]; + RHS6 += Idr[23]; + m_A19 += gt[24]; + m_A19 += gt[25]; + m_A20 += go[24]; + m_A21 += go[25]; + double RHS7 = Idr[24]; + RHS7 += Idr[25]; + m_A22 += gt[26]; + m_A22 += gt[27]; + m_A23 += go[26]; + m_A24 += go[27]; + double RHS8 = Idr[26]; + RHS8 += Idr[27]; + m_A25 += gt[28]; + m_A25 += gt[29]; + m_A26 += go[28]; + m_A27 += go[29]; + double RHS9 = Idr[28]; + RHS9 += Idr[29]; + m_A28 += gt[30]; + m_A28 += gt[31]; + m_A29 += go[30]; + double RHS10 = Idr[30]; + RHS10 += Idr[31]; + RHS10 -= go[31] * *cnV[31]; + m_A30 += gt[32]; + m_A30 += gt[33]; + m_A30 += gt[34]; + m_A30 += gt[35]; + m_A31 += go[32]; + double RHS11 = Idr[32]; + RHS11 += Idr[33]; + RHS11 += Idr[34]; + RHS11 += Idr[35]; + RHS11 -= go[33] * *cnV[33]; + RHS11 -= go[34] * *cnV[34]; + RHS11 -= go[35] * *cnV[35]; + m_A34 += gt[36]; + m_A34 += gt[37]; + m_A34 += gt[38]; + m_A33 += go[36]; + m_A32 += go[37]; + double RHS12 = Idr[36]; + RHS12 += Idr[37]; + RHS12 += Idr[38]; + RHS12 -= go[38] * *cnV[38]; + m_A37 += gt[39]; + m_A37 += gt[40]; + m_A37 += gt[41]; + m_A37 += gt[42]; + m_A37 += gt[43]; + m_A37 += gt[44]; + m_A37 += gt[45]; + m_A38 += go[39]; + m_A36 += go[40]; + double RHS13 = Idr[39]; + RHS13 += Idr[40]; + RHS13 += Idr[41]; + RHS13 += Idr[42]; + RHS13 += Idr[43]; + RHS13 += Idr[44]; + RHS13 += Idr[45]; + RHS13 -= go[41] * *cnV[41]; + RHS13 -= go[42] * *cnV[42]; + RHS13 -= go[43] * *cnV[43]; + RHS13 -= go[44] * *cnV[44]; + RHS13 -= go[45] * *cnV[45]; + m_A40 += gt[46]; + m_A40 += gt[47]; + m_A40 += gt[48]; + m_A40 += gt[49]; + m_A40 += gt[50]; + m_A40 += gt[51]; + m_A40 += gt[52]; + m_A41 += go[46]; + m_A39 += go[47]; + double RHS14 = Idr[46]; + RHS14 += Idr[47]; + RHS14 += Idr[48]; + RHS14 += Idr[49]; + RHS14 += Idr[50]; + RHS14 += Idr[51]; + RHS14 += Idr[52]; + RHS14 -= go[48] * *cnV[48]; + RHS14 -= go[49] * *cnV[49]; + RHS14 -= go[50] * *cnV[50]; + RHS14 -= go[51] * *cnV[51]; + RHS14 -= go[52] * *cnV[52]; + m_A44 += gt[53]; + m_A44 += gt[54]; + m_A44 += gt[55]; + m_A44 += gt[56]; + m_A45 += go[53]; + m_A43 += go[54]; + m_A42 += go[55]; + double RHS15 = Idr[53]; + RHS15 += Idr[54]; + RHS15 += Idr[55]; + RHS15 += Idr[56]; + RHS15 -= go[56] * *cnV[56]; + m_A48 += gt[57]; + m_A48 += gt[58]; + m_A48 += gt[59]; + m_A48 += gt[60]; + m_A48 += gt[61]; + m_A48 += gt[62]; + m_A48 += gt[63]; + m_A49 += go[57]; + m_A46 += go[58]; + double RHS16 = Idr[57]; + RHS16 += Idr[58]; + RHS16 += Idr[59]; + RHS16 += Idr[60]; + RHS16 += Idr[61]; + RHS16 += Idr[62]; + RHS16 += Idr[63]; + RHS16 -= go[59] * *cnV[59]; + RHS16 -= go[60] * *cnV[60]; + RHS16 -= go[61] * *cnV[61]; + RHS16 -= go[62] * *cnV[62]; + RHS16 -= go[63] * *cnV[63]; + m_A51 += gt[64]; + m_A51 += gt[65]; + m_A51 += gt[66]; + m_A53 += go[64]; + m_A50 += go[65]; + double RHS17 = Idr[64]; + RHS17 += Idr[65]; + RHS17 += Idr[66]; + RHS17 -= go[66] * *cnV[66]; + m_A58 += gt[67]; + m_A58 += gt[68]; + m_A58 += gt[69]; + m_A58 += gt[70]; + m_A58 += gt[71]; + m_A58 += gt[72]; + m_A57 += go[67]; + m_A62 += go[68]; + m_A62 += go[69]; + m_A56 += go[70]; + m_A55 += go[71]; + m_A54 += go[72]; + double RHS18 = Idr[67]; + RHS18 += Idr[68]; + RHS18 += Idr[69]; + RHS18 += Idr[70]; + RHS18 += Idr[71]; + RHS18 += Idr[72]; + m_A67 += gt[73]; + m_A67 += gt[74]; + m_A67 += gt[75]; + m_A67 += gt[76]; + m_A67 += gt[77]; + m_A65 += go[73]; + m_A64 += go[74]; + m_A63 += go[75]; + double RHS19 = Idr[73]; + RHS19 += Idr[74]; + RHS19 += Idr[75]; + RHS19 += Idr[76]; + RHS19 += Idr[77]; + RHS19 -= go[76] * *cnV[76]; + RHS19 -= go[77] * *cnV[77]; + m_A76 += gt[78]; + m_A76 += gt[79]; + m_A76 += gt[80]; + m_A76 += gt[81]; + m_A76 += gt[82]; + m_A73 += go[78]; + m_A72 += go[79]; + m_A71 += go[80]; + double RHS20 = Idr[78]; + RHS20 += Idr[79]; + RHS20 += Idr[80]; + RHS20 += Idr[81]; + RHS20 += Idr[82]; + RHS20 -= go[81] * *cnV[81]; + RHS20 -= go[82] * *cnV[82]; + m_A84 += gt[83]; + m_A84 += gt[84]; + m_A84 += gt[85]; + m_A84 += gt[86]; + m_A84 += gt[87]; + m_A84 += gt[88]; + m_A82 += go[83]; + m_A80 += go[84]; + m_A79 += go[85]; + m_A81 += go[86]; + double RHS21 = Idr[83]; + RHS21 += Idr[84]; + RHS21 += Idr[85]; + RHS21 += Idr[86]; + RHS21 += Idr[87]; + RHS21 += Idr[88]; + RHS21 -= go[87] * *cnV[87]; + RHS21 -= go[88] * *cnV[88]; + m_A94 += gt[89]; + m_A94 += gt[90]; + m_A94 += gt[91]; + m_A94 += gt[92]; + m_A94 += gt[93]; + m_A94 += gt[94]; + m_A87 += go[89]; + m_A88 += go[90]; + m_A89 += go[91]; + m_A86 += go[92]; + double RHS22 = Idr[89]; + RHS22 += Idr[90]; + RHS22 += Idr[91]; + RHS22 += Idr[92]; + RHS22 += Idr[93]; + RHS22 += Idr[94]; + RHS22 -= go[93] * *cnV[93]; + RHS22 -= go[94] * *cnV[94]; + m_A101 += gt[95]; + m_A101 += gt[96]; + m_A101 += gt[97]; + m_A101 += gt[98]; + m_A101 += gt[99]; + m_A101 += gt[100]; + m_A101 += gt[101]; + m_A96 += go[95]; + m_A97 += go[96]; + double RHS23 = Idr[95]; + RHS23 += Idr[96]; + RHS23 += Idr[97]; + RHS23 += Idr[98]; + RHS23 += Idr[99]; + RHS23 += Idr[100]; + RHS23 += Idr[101]; + RHS23 -= go[97] * *cnV[97]; + RHS23 -= go[98] * *cnV[98]; + RHS23 -= go[99] * *cnV[99]; + RHS23 -= go[100] * *cnV[100]; + RHS23 -= go[101] * *cnV[101]; + m_A110 += gt[102]; + m_A110 += gt[103]; + m_A110 += gt[104]; + m_A110 += gt[105]; + m_A110 += gt[106]; + m_A110 += gt[107]; + m_A109 += go[102]; + m_A103 += go[103]; + m_A105 += go[104]; + m_A105 += go[105]; + double RHS24 = Idr[102]; + RHS24 += Idr[103]; + RHS24 += Idr[104]; + RHS24 += Idr[105]; + RHS24 += Idr[106]; + RHS24 += Idr[107]; + RHS24 -= go[106] * *cnV[106]; + RHS24 -= go[107] * *cnV[107]; const double f0 = 1.0 / m_A0; - const double f0_3 = -f0 * m_A6; - m_A9 += m_A1 * f0_3; - RHS3 += f0_3 * RHS0; + const double f0_13 = -f0 * m_A36; + m_A38 += m_A1 * f0_13; + RHS13 += f0_13 * RHS0; + const double f0_19 = -f0 * m_A63; + m_A67 += m_A1 * f0_19; + RHS19 += f0_19 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_3 = -f1 * m_A7; - m_A9 += m_A3 * f1_3; - RHS3 += f1_3 * RHS1; + const double f1_14 = -f1 * m_A39; + m_A41 += m_A3 * f1_14; + RHS14 += f1_14 * RHS1; + const double f1_20 = -f1 * m_A71; + m_A76 += m_A3 * f1_20; + RHS20 += f1_20 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_3 = -f2 * m_A8; - m_A9 += m_A5 * f2_3; - RHS3 += f2_3 * RHS2; - V[3] = RHS3 / m_A9; - double tmp2 = 0.0; - tmp2 += m_A5 * V[3]; - V[2] = (RHS2 - tmp2) / m_A4; - double tmp1 = 0.0; - tmp1 += m_A3 * V[3]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[3]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// kidniki -static void nl_gcr_9a5874c8e2da79d2_37_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); - double m_A15(0.0); - double m_A16(0.0); - double m_A17(0.0); - double m_A18(0.0); - double m_A19(0.0); - double m_A20(0.0); - double m_A21(0.0); - double m_A22(0.0); - double m_A23(0.0); - double m_A24(0.0); - double m_A25(0.0); - double m_A26(0.0); - double m_A27(0.0); - double m_A28(0.0); - double m_A29(0.0); - double m_A30(0.0); - double m_A31(0.0); - double m_A32(0.0); - double m_A33(0.0); - double m_A34(0.0); - double m_A35(0.0); - double m_A36(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A0 += gt[2]; - m_A0 += gt[3]; - m_A2 += go[0]; - m_A2 += go[1]; - m_A1 += go[2]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 += Idr[3]; - RHS0 -= go[3] * *cnV[3]; - m_A3 += gt[4]; - m_A3 += gt[5]; - m_A3 += gt[6]; - m_A5 += go[4]; - m_A4 += go[5]; - double RHS1 = Idr[4]; - RHS1 += Idr[5]; - RHS1 += Idr[6]; - RHS1 -= go[6] * *cnV[6]; - m_A6 += gt[7]; - m_A6 += gt[8]; - m_A6 += gt[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A6 += gt[13]; - m_A7 += go[7]; - m_A7 += go[8]; - m_A8 += go[9]; - double RHS2 = Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 += Idr[11]; - RHS2 += Idr[12]; - RHS2 += Idr[13]; - RHS2 -= go[10] * *cnV[10]; - RHS2 -= go[11] * *cnV[11]; - RHS2 -= go[12] * *cnV[12]; - RHS2 -= go[13] * *cnV[13]; - m_A9 += gt[14]; - m_A9 += gt[15]; - m_A9 += gt[16]; - m_A11 += go[14]; - m_A10 += go[15]; - double RHS3 = Idr[14]; - RHS3 += Idr[15]; - RHS3 += Idr[16]; - RHS3 -= go[16] * *cnV[16]; - m_A14 += gt[17]; - m_A14 += gt[18]; - m_A14 += gt[19]; - m_A14 += gt[20]; - m_A14 += gt[21]; - m_A13 += go[17]; - m_A12 += go[18]; - m_A12 += go[19]; - double RHS4 = Idr[17]; - RHS4 += Idr[18]; - RHS4 += Idr[19]; - RHS4 += Idr[20]; - RHS4 += Idr[21]; - RHS4 -= go[20] * *cnV[20]; - RHS4 -= go[21] * *cnV[21]; - m_A18 += gt[22]; - m_A18 += gt[23]; - m_A18 += gt[24]; - m_A18 += gt[25]; - m_A18 += gt[26]; - m_A18 += gt[27]; - m_A18 += gt[28]; - m_A20 += go[22]; - m_A19 += go[23]; - m_A19 += go[24]; - m_A19 += go[25]; - m_A17 += go[26]; - double RHS5 = Idr[22]; - RHS5 += Idr[23]; - RHS5 += Idr[24]; - RHS5 += Idr[25]; - RHS5 += Idr[26]; - RHS5 += Idr[27]; - RHS5 += Idr[28]; - RHS5 -= go[27] * *cnV[27]; - RHS5 -= go[28] * *cnV[28]; - m_A23 += gt[29]; - m_A23 += gt[30]; - m_A23 += gt[31]; - m_A23 += gt[32]; - m_A21 += go[29]; - double RHS6 = Idr[29]; - RHS6 += Idr[30]; - RHS6 += Idr[31]; - RHS6 += Idr[32]; - RHS6 -= go[30] * *cnV[30]; - RHS6 -= go[31] * *cnV[31]; - RHS6 -= go[32] * *cnV[32]; - m_A28 += gt[33]; - m_A28 += gt[34]; - m_A28 += gt[35]; - m_A28 += gt[36]; - m_A28 += gt[37]; - m_A28 += gt[38]; - m_A26 += go[33]; - m_A27 += go[34]; - m_A27 += go[35]; - m_A27 += go[36]; - m_A25 += go[37]; - m_A25 += go[38]; - double RHS7 = Idr[33]; - RHS7 += Idr[34]; - RHS7 += Idr[35]; - RHS7 += Idr[36]; - RHS7 += Idr[37]; - RHS7 += Idr[38]; - m_A36 += gt[39]; - m_A36 += gt[40]; - m_A36 += gt[41]; - m_A36 += gt[42]; - m_A30 += go[39]; - m_A33 += go[40]; - m_A31 += go[41]; - double RHS8 = Idr[39]; - RHS8 += Idr[40]; - RHS8 += Idr[41]; - RHS8 += Idr[42]; - RHS8 -= go[42] * *cnV[42]; - const double f0 = 1.0 / m_A0; - const double f0_5 = -f0 * m_A17; - m_A18 += m_A1 * f0_5; - m_A19 += m_A2 * f0_5; - RHS5 += f0_5 * RHS0; - const double f0_7 = -f0 * m_A25; - m_A27 += m_A1 * f0_7; - m_A28 += m_A2 * f0_7; - RHS7 += f0_7 * RHS0; - const double f1 = 1.0 / m_A3; - const double f1_7 = -f1 * m_A26; - m_A28 += m_A4 * f1_7; - m_A29 += m_A5 * f1_7; - RHS7 += f1_7 * RHS1; - const double f1_8 = -f1 * m_A30; - m_A35 += m_A4 * f1_8; - m_A36 += m_A5 * f1_8; - RHS8 += f1_8 * RHS1; - const double f2 = 1.0 / m_A6; - const double f2_4 = -f2 * m_A12; - m_A14 += m_A7 * f2_4; - m_A16 += m_A8 * f2_4; - RHS4 += f2_4 * RHS2; - const double f2_8 = -f2 * m_A31; - m_A32 += m_A7 * f2_8; - m_A36 += m_A8 * f2_8; - RHS8 += f2_8 * RHS2; - const double f3 = 1.0 / m_A9; - const double f3_4 = -f3 * m_A13; - m_A14 += m_A10 * f3_4; - m_A15 += m_A11 * f3_4; - RHS4 += f3_4 * RHS3; - const double f3_6 = -f3 * m_A21; - m_A22 += m_A10 * f3_6; - m_A23 += m_A11 * f3_6; - RHS6 += f3_6 * RHS3; - const double f4 = 1.0 / m_A14; - const double f4_6 = -f4 * m_A22; - m_A23 += m_A15 * f4_6; - m_A24 += m_A16 * f4_6; - RHS6 += f4_6 * RHS4; - const double f4_8 = -f4 * m_A32; - m_A34 += m_A15 * f4_8; - m_A36 += m_A16 * f4_8; - RHS8 += f4_8 * RHS4; - const double f5 = 1.0 / m_A18; - const double f5_7 = -f5 * m_A27; - m_A28 += m_A19 * f5_7; - m_A29 += m_A20 * f5_7; - RHS7 += f5_7 * RHS5; - const double f5_8 = -f5 * m_A33; - m_A35 += m_A19 * f5_8; - m_A36 += m_A20 * f5_8; - RHS8 += f5_8 * RHS5; - const double f6 = 1.0 / m_A23; - const double f6_8 = -f6 * m_A34; - m_A36 += m_A24 * f6_8; - RHS8 += f6_8 * RHS6; - const double f7 = 1.0 / m_A28; - const double f7_8 = -f7 * m_A35; - m_A36 += m_A29 * f7_8; - RHS8 += f7_8 * RHS7; - V[8] = RHS8 / m_A36; + const double f2_15 = -f2 * m_A42; + m_A44 += m_A5 * f2_15; + RHS15 += f2_15 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_15 = -f3 * m_A43; + m_A44 += m_A7 * f3_15; + m_A45 += m_A8 * f3_15; + RHS15 += f3_15 * RHS3; + const double f3_16 = -f3 * m_A46; + m_A47 += m_A7 * f3_16; + m_A49 += m_A8 * f3_16; + RHS16 += f3_16 * RHS3; + const double f3_21 = -f3 * m_A79; + m_A81 += m_A7 * f3_21; + m_A84 += m_A8 * f3_21; + RHS21 += f3_21 * RHS3; + const double f4 = 1.0 / m_A9; + const double f4_17 = -f4 * m_A50; + m_A51 += m_A10 * f4_17; + m_A52 += m_A11 * f4_17; + m_A53 += m_A12 * f4_17; + RHS17 += f4_17 * RHS4; + const double f4_21 = -f4 * m_A80; + m_A83 += m_A10 * f4_21; + m_A84 += m_A11 * f4_21; + m_A85 += m_A12 * f4_21; + RHS21 += f4_21 * RHS4; + const double f4_22 = -f4 * m_A86; + m_A89 += m_A10 * f4_22; + m_A93 += m_A11 * f4_22; + m_A94 += m_A12 * f4_22; + RHS22 += f4_22 * RHS4; + const double f5 = 1.0 / m_A13; + const double f5_22 = -f5 * m_A87; + m_A89 += m_A14 * f5_22; + m_A94 += m_A15 * f5_22; + RHS22 += f5_22 * RHS5; + const double f6 = 1.0 / m_A16; + const double f6_18 = -f6 * m_A54; + m_A58 += m_A17 * f6_18; + m_A61 += m_A18 * f6_18; + RHS18 += f6_18 * RHS6; + const double f6_22 = -f6 * m_A88; + m_A90 += m_A17 * f6_22; + m_A94 += m_A18 * f6_22; + RHS22 += f6_22 * RHS6; + const double f7 = 1.0 / m_A19; + const double f7_18 = -f7 * m_A55; + m_A58 += m_A20 * f7_18; + m_A59 += m_A21 * f7_18; + RHS18 += f7_18 * RHS7; + const double f7_19 = -f7 * m_A64; + m_A66 += m_A20 * f7_19; + m_A67 += m_A21 * f7_19; + RHS19 += f7_19 * RHS7; + const double f8 = 1.0 / m_A22; + const double f8_18 = -f8 * m_A56; + m_A58 += m_A23 * f8_18; + m_A60 += m_A24 * f8_18; + RHS18 += f8_18 * RHS8; + const double f8_20 = -f8 * m_A72; + m_A74 += m_A23 * f8_20; + m_A76 += m_A24 * f8_20; + RHS20 += f8_20 * RHS8; + const double f9 = 1.0 / m_A25; + const double f9_12 = -f9 * m_A32; + m_A34 += m_A26 * f9_12; + m_A35 += m_A27 * f9_12; + RHS12 += f9_12 * RHS9; + const double f9_24 = -f9 * m_A103; + m_A104 += m_A26 * f9_24; + m_A110 += m_A27 * f9_24; + RHS24 += f9_24 * RHS9; + const double f10 = 1.0 / m_A28; + const double f10_12 = -f10 * m_A33; + m_A34 += m_A29 * f10_12; + RHS12 += f10_12 * RHS10; + const double f11 = 1.0 / m_A30; + const double f11_18 = -f11 * m_A57; + m_A58 += m_A31 * f11_18; + RHS18 += f11_18 * RHS11; + const double f11_23 = -f11 * m_A96; + m_A97 += m_A31 * f11_23; + RHS23 += f11_23 * RHS11; + const double f12 = 1.0 / m_A34; + const double f12_24 = -f12 * m_A104; + m_A110 += m_A35 * f12_24; + RHS24 += f12_24 * RHS12; + const double f13 = 1.0 / m_A37; + const double f13_19 = -f13 * m_A65; + m_A67 += m_A38 * f13_19; + RHS19 += f13_19 * RHS13; + const double f14 = 1.0 / m_A40; + const double f14_20 = -f14 * m_A73; + m_A76 += m_A41 * f14_20; + RHS20 += f14_20 * RHS14; + const double f15 = 1.0 / m_A44; + const double f15_16 = -f15 * m_A47; + m_A49 += m_A45 * f15_16; + RHS16 += f15_16 * RHS15; + const double f15_21 = -f15 * m_A81; + m_A84 += m_A45 * f15_21; + RHS21 += f15_21 * RHS15; + const double f16 = 1.0 / m_A48; + const double f16_21 = -f16 * m_A82; + m_A84 += m_A49 * f16_21; + RHS21 += f16_21 * RHS16; + const double f17 = 1.0 / m_A51; + const double f17_21 = -f17 * m_A83; + m_A84 += m_A52 * f17_21; + m_A85 += m_A53 * f17_21; + RHS21 += f17_21 * RHS17; + const double f17_22 = -f17 * m_A89; + m_A93 += m_A52 * f17_22; + m_A94 += m_A53 * f17_22; + RHS22 += f17_22 * RHS17; + const double f18 = 1.0 / m_A58; + const double f18_19 = -f18 * m_A66; + m_A67 += m_A59 * f18_19; + m_A68 += m_A60 * f18_19; + m_A69 += m_A61 * f18_19; + m_A70 += m_A62 * f18_19; + RHS19 += f18_19 * RHS18; + const double f18_20 = -f18 * m_A74; + m_A75 += m_A59 * f18_20; + m_A76 += m_A60 * f18_20; + m_A77 += m_A61 * f18_20; + m_A78 += m_A62 * f18_20; + RHS20 += f18_20 * RHS18; + const double f18_22 = -f18 * m_A90; + m_A91 += m_A59 * f18_22; + m_A92 += m_A60 * f18_22; + m_A94 += m_A61 * f18_22; + m_A95 += m_A62 * f18_22; + RHS22 += f18_22 * RHS18; + const double f18_23 = -f18 * m_A97; + m_A98 += m_A59 * f18_23; + m_A99 += m_A60 * f18_23; + m_A100 += m_A61 * f18_23; + m_A102 += m_A62 * f18_23; + RHS23 += f18_23 * RHS18; + const double f18_24 = -f18 * m_A105; + m_A106 += m_A59 * f18_24; + m_A107 += m_A60 * f18_24; + m_A108 += m_A61 * f18_24; + m_A110 += m_A62 * f18_24; + RHS24 += f18_24 * RHS18; + const double f19 = 1.0 / m_A67; + const double f19_20 = -f19 * m_A75; + m_A76 += m_A68 * f19_20; + m_A77 += m_A69 * f19_20; + m_A78 += m_A70 * f19_20; + RHS20 += f19_20 * RHS19; + const double f19_22 = -f19 * m_A91; + m_A92 += m_A68 * f19_22; + m_A94 += m_A69 * f19_22; + m_A95 += m_A70 * f19_22; + RHS22 += f19_22 * RHS19; + const double f19_23 = -f19 * m_A98; + m_A99 += m_A68 * f19_23; + m_A100 += m_A69 * f19_23; + m_A102 += m_A70 * f19_23; + RHS23 += f19_23 * RHS19; + const double f19_24 = -f19 * m_A106; + m_A107 += m_A68 * f19_24; + m_A108 += m_A69 * f19_24; + m_A110 += m_A70 * f19_24; + RHS24 += f19_24 * RHS19; + const double f20 = 1.0 / m_A76; + const double f20_22 = -f20 * m_A92; + m_A94 += m_A77 * f20_22; + m_A95 += m_A78 * f20_22; + RHS22 += f20_22 * RHS20; + const double f20_23 = -f20 * m_A99; + m_A100 += m_A77 * f20_23; + m_A102 += m_A78 * f20_23; + RHS23 += f20_23 * RHS20; + const double f20_24 = -f20 * m_A107; + m_A108 += m_A77 * f20_24; + m_A110 += m_A78 * f20_24; + RHS24 += f20_24 * RHS20; + const double f21 = 1.0 / m_A84; + const double f21_22 = -f21 * m_A93; + m_A94 += m_A85 * f21_22; + RHS22 += f21_22 * RHS21; + const double f22 = 1.0 / m_A94; + const double f22_23 = -f22 * m_A100; + m_A102 += m_A95 * f22_23; + RHS23 += f22_23 * RHS22; + const double f22_24 = -f22 * m_A108; + m_A110 += m_A95 * f22_24; + RHS24 += f22_24 * RHS22; + const double f23 = 1.0 / m_A101; + const double f23_24 = -f23 * m_A109; + m_A110 += m_A102 * f23_24; + RHS24 += f23_24 * RHS23; + V[24] = RHS24 / m_A110; + double tmp23 = 0.0; + tmp23 += m_A102 * V[24]; + V[23] = (RHS23 - tmp23) / m_A101; + double tmp22 = 0.0; + tmp22 += m_A95 * V[24]; + V[22] = (RHS22 - tmp22) / m_A94; + double tmp21 = 0.0; + tmp21 += m_A85 * V[22]; + V[21] = (RHS21 - tmp21) / m_A84; + double tmp20 = 0.0; + tmp20 += m_A77 * V[22]; + tmp20 += m_A78 * V[24]; + V[20] = (RHS20 - tmp20) / m_A76; + double tmp19 = 0.0; + tmp19 += m_A68 * V[20]; + tmp19 += m_A69 * V[22]; + tmp19 += m_A70 * V[24]; + V[19] = (RHS19 - tmp19) / m_A67; + double tmp18 = 0.0; + tmp18 += m_A59 * V[19]; + tmp18 += m_A60 * V[20]; + tmp18 += m_A61 * V[22]; + tmp18 += m_A62 * V[24]; + V[18] = (RHS18 - tmp18) / m_A58; + double tmp17 = 0.0; + tmp17 += m_A52 * V[21]; + tmp17 += m_A53 * V[22]; + V[17] = (RHS17 - tmp17) / m_A51; + double tmp16 = 0.0; + tmp16 += m_A49 * V[21]; + V[16] = (RHS16 - tmp16) / m_A48; + double tmp15 = 0.0; + tmp15 += m_A45 * V[21]; + V[15] = (RHS15 - tmp15) / m_A44; + double tmp14 = 0.0; + tmp14 += m_A41 * V[20]; + V[14] = (RHS14 - tmp14) / m_A40; + double tmp13 = 0.0; + tmp13 += m_A38 * V[19]; + V[13] = (RHS13 - tmp13) / m_A37; + double tmp12 = 0.0; + tmp12 += m_A35 * V[24]; + V[12] = (RHS12 - tmp12) / m_A34; + double tmp11 = 0.0; + tmp11 += m_A31 * V[18]; + V[11] = (RHS11 - tmp11) / m_A30; + double tmp10 = 0.0; + tmp10 += m_A29 * V[12]; + V[10] = (RHS10 - tmp10) / m_A28; + double tmp9 = 0.0; + tmp9 += m_A26 * V[12]; + tmp9 += m_A27 * V[24]; + V[9] = (RHS9 - tmp9) / m_A25; + double tmp8 = 0.0; + tmp8 += m_A23 * V[18]; + tmp8 += m_A24 * V[20]; + V[8] = (RHS8 - tmp8) / m_A22; double tmp7 = 0.0; - tmp7 += m_A29 * V[8]; - V[7] = (RHS7 - tmp7) / m_A28; + tmp7 += m_A20 * V[18]; + tmp7 += m_A21 * V[19]; + V[7] = (RHS7 - tmp7) / m_A19; double tmp6 = 0.0; - tmp6 += m_A24 * V[8]; - V[6] = (RHS6 - tmp6) / m_A23; + tmp6 += m_A17 * V[18]; + tmp6 += m_A18 * V[22]; + V[6] = (RHS6 - tmp6) / m_A16; double tmp5 = 0.0; - tmp5 += m_A19 * V[7]; - tmp5 += m_A20 * V[8]; - V[5] = (RHS5 - tmp5) / m_A18; + tmp5 += m_A14 * V[17]; + tmp5 += m_A15 * V[22]; + V[5] = (RHS5 - tmp5) / m_A13; double tmp4 = 0.0; - tmp4 += m_A15 * V[6]; - tmp4 += m_A16 * V[8]; - V[4] = (RHS4 - tmp4) / m_A14; + tmp4 += m_A10 * V[17]; + tmp4 += m_A11 * V[21]; + tmp4 += m_A12 * V[22]; + V[4] = (RHS4 - tmp4) / m_A9; double tmp3 = 0.0; - tmp3 += m_A10 * V[4]; - tmp3 += m_A11 * V[6]; - V[3] = (RHS3 - tmp3) / m_A9; + tmp3 += m_A7 * V[15]; + tmp3 += m_A8 * V[21]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A7 * V[4]; - tmp2 += m_A8 * V[8]; - V[2] = (RHS2 - tmp2) / m_A6; - double tmp1 = 0.0; - tmp1 += m_A4 * V[7]; - tmp1 += m_A5 * V[8]; - V[1] = (RHS1 - tmp1) / m_A3; - double tmp0 = 0.0; - tmp0 += m_A1 * V[5]; - tmp0 += m_A2 * V[7]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// warrior -static void nl_gcr_9c975530a1a529d6_7_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - m_A6 += gt[3]; - m_A6 += gt[4]; - m_A5 += go[3]; - m_A4 += go[4]; - double RHS2 = Idr[3]; - RHS2 += Idr[4]; - const double f0 = 1.0 / m_A0; - const double f0_2 = -f0 * m_A4; - m_A6 += m_A1 * f0_2; - RHS2 += f0_2 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_2 = -f1 * m_A5; - m_A6 += m_A3 * f1_2; - RHS2 += f1_2 * RHS1; - V[2] = RHS2 / m_A6; + tmp2 += m_A5 * V[15]; + V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[2]; + tmp1 += m_A3 * V[20]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[2]; + tmp0 += m_A1 * V[19]; V[0] = (RHS0 - tmp0) / m_A0; } -// kidniki -static void nl_gcr_9f141889c2091efc_24_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// boxingb +static void nl_gcr_a0bf548977306172_25_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -20704,144 +22786,153 @@ static void nl_gcr_9f141889c2091efc_24_double_double(double * __restrict V, cons double m_A21(0.0); double m_A22(0.0); double m_A23(0.0); + double m_A24(0.0); m_A0 += gt[0]; m_A0 += gt[1]; - m_A0 += gt[2]; - m_A0 += gt[3]; - m_A0 += gt[4]; - m_A0 += gt[5]; - m_A0 += gt[6]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 += Idr[3]; - RHS0 += Idr[4]; - RHS0 += Idr[5]; - RHS0 += Idr[6]; RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; - RHS0 -= go[3] * *cnV[3]; - RHS0 -= go[4] * *cnV[4]; - RHS0 -= go[5] * *cnV[5]; - RHS0 -= go[6] * *cnV[6]; - m_A2 += gt[7]; - m_A2 += gt[8]; - m_A3 += go[7]; - double RHS1 = Idr[7]; - RHS1 += Idr[8]; - RHS1 -= go[8] * *cnV[8]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A3 += go[2]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 -= go[3] * *cnV[3]; + m_A4 += gt[4]; + m_A4 += gt[5]; + m_A4 += gt[6]; + m_A4 += gt[7]; + m_A4 += gt[8]; m_A4 += gt[9]; m_A4 += gt[10]; - m_A5 += go[9]; - double RHS2 = Idr[9]; + m_A6 += go[4]; + m_A5 += go[5]; + double RHS2 = Idr[4]; + RHS2 += Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 += Idr[9]; RHS2 += Idr[10]; + RHS2 -= go[6] * *cnV[6]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + RHS2 -= go[9] * *cnV[9]; RHS2 -= go[10] * *cnV[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A7 += go[11]; + m_A7 += gt[11]; + m_A7 += gt[12]; + m_A7 += gt[13]; + m_A8 += go[11]; + m_A9 += go[12]; double RHS3 = Idr[11]; RHS3 += Idr[12]; - RHS3 -= go[12] * *cnV[12]; - m_A8 += gt[13]; - m_A8 += gt[14]; - m_A8 += gt[15]; - m_A10 += go[13]; - m_A9 += go[14]; - double RHS4 = Idr[13]; - RHS4 += Idr[14]; - RHS4 += Idr[15]; - RHS4 -= go[15] * *cnV[15]; + RHS3 += Idr[13]; + RHS3 -= go[13] * *cnV[13]; + m_A11 += gt[14]; + m_A11 += gt[15]; m_A11 += gt[16]; - m_A11 += gt[17]; - m_A11 += gt[18]; - m_A12 += go[16]; - double RHS5 = Idr[16]; - RHS5 += Idr[17]; + m_A12 += go[14]; + m_A10 += go[15]; + double RHS4 = Idr[14]; + RHS4 += Idr[15]; + RHS4 += Idr[16]; + RHS4 -= go[16] * *cnV[16]; + m_A14 += gt[17]; + m_A14 += gt[18]; + m_A14 += gt[19]; + m_A15 += go[17]; + m_A13 += go[18]; + double RHS5 = Idr[17]; RHS5 += Idr[18]; - RHS5 -= go[17] * *cnV[17]; - RHS5 -= go[18] * *cnV[18]; - m_A18 += gt[19]; + RHS5 += Idr[19]; + RHS5 -= go[19] * *cnV[19]; m_A18 += gt[20]; m_A18 += gt[21]; m_A18 += gt[22]; - m_A18 += gt[23]; - m_A16 += go[19]; - m_A15 += go[20]; - m_A14 += go[21]; - m_A17 += go[22]; - m_A13 += go[23]; - double RHS6 = Idr[19]; - RHS6 += Idr[20]; + m_A16 += go[20]; + m_A17 += go[21]; + double RHS6 = Idr[20]; RHS6 += Idr[21]; RHS6 += Idr[22]; - RHS6 += Idr[23]; - m_A23 += gt[24]; - m_A23 += gt[25]; + RHS6 -= go[22] * *cnV[22]; + m_A24 += gt[23]; + m_A24 += gt[24]; + m_A24 += gt[25]; + m_A24 += gt[26]; + m_A24 += gt[27]; + m_A20 += go[23]; m_A21 += go[24]; - m_A20 += go[25]; - double RHS7 = Idr[24]; + m_A22 += go[25]; + double RHS7 = Idr[23]; + RHS7 += Idr[24]; RHS7 += Idr[25]; + RHS7 += Idr[26]; + RHS7 += Idr[27]; + RHS7 -= go[26] * *cnV[26]; + RHS7 -= go[27] * *cnV[27]; const double f0 = 1.0 / m_A0; - const double f0_6 = -f0 * m_A13; - m_A18 += m_A1 * f0_6; - RHS6 += f0_6 * RHS0; + const double f0_4 = -f0 * m_A10; + m_A11 += m_A1 * f0_4; + RHS4 += f0_4 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_6 = -f1 * m_A14; - m_A18 += m_A3 * f1_6; - RHS6 += f1_6 * RHS1; + const double f1_5 = -f1 * m_A13; + m_A14 += m_A3 * f1_5; + RHS5 += f1_5 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_6 = -f2 * m_A15; - m_A18 += m_A5 * f2_6; - RHS6 += f2_6 * RHS2; - const double f3 = 1.0 / m_A6; + const double f2_7 = -f2 * m_A20; + m_A22 += m_A5 * f2_7; + m_A24 += m_A6 * f2_7; + RHS7 += f2_7 * RHS2; + const double f3 = 1.0 / m_A7; const double f3_6 = -f3 * m_A16; - m_A18 += m_A7 * f3_6; + m_A18 += m_A8 * f3_6; + m_A19 += m_A9 * f3_6; RHS6 += f3_6 * RHS3; - const double f4 = 1.0 / m_A8; + const double f3_7 = -f3 * m_A21; + m_A23 += m_A8 * f3_7; + m_A24 += m_A9 * f3_7; + RHS7 += f3_7 * RHS3; + const double f4 = 1.0 / m_A11; const double f4_6 = -f4 * m_A17; - m_A18 += m_A9 * f4_6; - m_A19 += m_A10 * f4_6; + m_A18 += m_A12 * f4_6; RHS6 += f4_6 * RHS4; - const double f4_7 = -f4 * m_A20; - m_A22 += m_A9 * f4_7; - m_A23 += m_A10 * f4_7; - RHS7 += f4_7 * RHS4; - const double f5 = 1.0 / m_A11; - const double f5_7 = -f5 * m_A21; - m_A23 += m_A12 * f5_7; + const double f5 = 1.0 / m_A14; + const double f5_7 = -f5 * m_A22; + m_A24 += m_A15 * f5_7; RHS7 += f5_7 * RHS5; const double f6 = 1.0 / m_A18; - const double f6_7 = -f6 * m_A22; - m_A23 += m_A19 * f6_7; + const double f6_7 = -f6 * m_A23; + m_A24 += m_A19 * f6_7; RHS7 += f6_7 * RHS6; - V[7] = RHS7 / m_A23; + V[7] = RHS7 / m_A24; double tmp6 = 0.0; tmp6 += m_A19 * V[7]; V[6] = (RHS6 - tmp6) / m_A18; double tmp5 = 0.0; - tmp5 += m_A12 * V[7]; - V[5] = (RHS5 - tmp5) / m_A11; + tmp5 += m_A15 * V[7]; + V[5] = (RHS5 - tmp5) / m_A14; double tmp4 = 0.0; - tmp4 += m_A9 * V[6]; - tmp4 += m_A10 * V[7]; - V[4] = (RHS4 - tmp4) / m_A8; + tmp4 += m_A12 * V[6]; + V[4] = (RHS4 - tmp4) / m_A11; double tmp3 = 0.0; - tmp3 += m_A7 * V[6]; - V[3] = (RHS3 - tmp3) / m_A6; + tmp3 += m_A8 * V[6]; + tmp3 += m_A9 * V[7]; + V[3] = (RHS3 - tmp3) / m_A7; double tmp2 = 0.0; - tmp2 += m_A5 * V[6]; + tmp2 += m_A5 * V[5]; + tmp2 += m_A6 * V[7]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[6]; + tmp1 += m_A3 * V[5]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[6]; + tmp0 += m_A1 * V[4]; V[0] = (RHS0 - tmp0) / m_A0; } -// segas16b_audio -static void nl_gcr_9f7104c5e25c87dd_111_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// boxingb +static void nl_gcr_a1132c8737d5d463_96_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -20942,823 +23033,552 @@ static void nl_gcr_9f7104c5e25c87dd_111_double_double(double * __restrict V, con double m_A93(0.0); double m_A94(0.0); double m_A95(0.0); - double m_A96(0.0); - double m_A97(0.0); - double m_A98(0.0); - double m_A99(0.0); - double m_A100(0.0); - double m_A101(0.0); - double m_A102(0.0); - double m_A103(0.0); - double m_A104(0.0); - double m_A105(0.0); - double m_A106(0.0); - double m_A107(0.0); - double m_A108(0.0); - double m_A109(0.0); - double m_A110(0.0); m_A0 += gt[0]; m_A0 += gt[1]; m_A0 += gt[2]; + m_A0 += gt[3]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; RHS0 += Idr[2]; + RHS0 += Idr[3]; RHS0 -= go[1] * *cnV[1]; RHS0 -= go[2] * *cnV[2]; - m_A2 += gt[3]; + RHS0 -= go[3] * *cnV[3]; m_A2 += gt[4]; m_A2 += gt[5]; - m_A3 += go[3]; - double RHS1 = Idr[3]; - RHS1 += Idr[4]; + m_A2 += gt[6]; + m_A3 += go[4]; + double RHS1 = Idr[4]; RHS1 += Idr[5]; - RHS1 -= go[4] * *cnV[4]; + RHS1 += Idr[6]; RHS1 -= go[5] * *cnV[5]; - m_A4 += gt[6]; + RHS1 -= go[6] * *cnV[6]; m_A4 += gt[7]; m_A4 += gt[8]; - m_A5 += go[6]; - double RHS2 = Idr[6]; - RHS2 += Idr[7]; + m_A4 += gt[9]; + m_A5 += go[7]; + double RHS2 = Idr[7]; RHS2 += Idr[8]; - RHS2 -= go[7] * *cnV[7]; + RHS2 += Idr[9]; RHS2 -= go[8] * *cnV[8]; - m_A6 += gt[9]; + RHS2 -= go[9] * *cnV[9]; m_A6 += gt[10]; m_A6 += gt[11]; - m_A8 += go[9]; + m_A6 += gt[12]; m_A7 += go[10]; - double RHS3 = Idr[9]; - RHS3 += Idr[10]; + double RHS3 = Idr[10]; RHS3 += Idr[11]; + RHS3 += Idr[12]; RHS3 -= go[11] * *cnV[11]; - m_A9 += gt[12]; - m_A9 += gt[13]; - m_A9 += gt[14]; - m_A12 += go[12]; - m_A10 += go[13]; - m_A11 += go[14]; - double RHS4 = Idr[12]; - RHS4 += Idr[13]; + RHS3 -= go[12] * *cnV[12]; + m_A8 += gt[13]; + m_A8 += gt[14]; + m_A8 += gt[15]; + m_A9 += go[13]; + double RHS4 = Idr[13]; RHS4 += Idr[14]; - m_A13 += gt[15]; - m_A13 += gt[16]; - m_A13 += gt[17]; - m_A13 += gt[18]; - m_A13 += gt[19]; - m_A13 += gt[20]; - m_A13 += gt[21]; - m_A15 += go[15]; - m_A14 += go[16]; - double RHS5 = Idr[15]; - RHS5 += Idr[16]; + RHS4 += Idr[15]; + RHS4 -= go[14] * *cnV[14]; + RHS4 -= go[15] * *cnV[15]; + m_A10 += gt[16]; + m_A10 += gt[17]; + m_A10 += gt[18]; + m_A11 += go[16]; + double RHS5 = Idr[16]; RHS5 += Idr[17]; RHS5 += Idr[18]; - RHS5 += Idr[19]; - RHS5 += Idr[20]; - RHS5 += Idr[21]; RHS5 -= go[17] * *cnV[17]; RHS5 -= go[18] * *cnV[18]; - RHS5 -= go[19] * *cnV[19]; - RHS5 -= go[20] * *cnV[20]; - RHS5 -= go[21] * *cnV[21]; - m_A16 += gt[22]; - m_A16 += gt[23]; - m_A17 += go[22]; - m_A18 += go[23]; - double RHS6 = Idr[22]; - RHS6 += Idr[23]; - m_A19 += gt[24]; - m_A19 += gt[25]; - m_A20 += go[24]; - m_A21 += go[25]; - double RHS7 = Idr[24]; - RHS7 += Idr[25]; - m_A22 += gt[26]; - m_A22 += gt[27]; - m_A23 += go[26]; - m_A24 += go[27]; - double RHS8 = Idr[26]; + m_A12 += gt[19]; + m_A12 += gt[20]; + m_A12 += gt[21]; + m_A13 += go[19]; + double RHS6 = Idr[19]; + RHS6 += Idr[20]; + RHS6 += Idr[21]; + RHS6 -= go[20] * *cnV[20]; + RHS6 -= go[21] * *cnV[21]; + m_A14 += gt[22]; + m_A14 += gt[23]; + m_A14 += gt[24]; + m_A15 += go[22]; + double RHS7 = Idr[22]; + RHS7 += Idr[23]; + RHS7 += Idr[24]; + RHS7 -= go[23] * *cnV[23]; + RHS7 -= go[24] * *cnV[24]; + m_A16 += gt[25]; + m_A16 += gt[26]; + m_A16 += gt[27]; + m_A17 += go[25]; + double RHS8 = Idr[25]; + RHS8 += Idr[26]; RHS8 += Idr[27]; - m_A25 += gt[28]; - m_A25 += gt[29]; - m_A26 += go[28]; - m_A27 += go[29]; + RHS8 -= go[26] * *cnV[26]; + RHS8 -= go[27] * *cnV[27]; + m_A18 += gt[28]; + m_A18 += gt[29]; + m_A18 += gt[30]; + m_A19 += go[28]; double RHS9 = Idr[28]; RHS9 += Idr[29]; - m_A28 += gt[30]; - m_A28 += gt[31]; - m_A29 += go[30]; - double RHS10 = Idr[30]; - RHS10 += Idr[31]; - RHS10 -= go[31] * *cnV[31]; - m_A30 += gt[32]; - m_A30 += gt[33]; - m_A30 += gt[34]; - m_A30 += gt[35]; - m_A31 += go[32]; - double RHS11 = Idr[32]; - RHS11 += Idr[33]; - RHS11 += Idr[34]; + RHS9 += Idr[30]; + RHS9 -= go[29] * *cnV[29]; + RHS9 -= go[30] * *cnV[30]; + m_A20 += gt[31]; + m_A20 += gt[32]; + m_A20 += gt[33]; + m_A21 += go[31]; + double RHS10 = Idr[31]; + RHS10 += Idr[32]; + RHS10 += Idr[33]; + RHS10 -= go[32] * *cnV[32]; + RHS10 -= go[33] * *cnV[33]; + m_A22 += gt[34]; + m_A22 += gt[35]; + m_A24 += go[34]; + m_A23 += go[35]; + double RHS11 = Idr[34]; RHS11 += Idr[35]; - RHS11 -= go[33] * *cnV[33]; - RHS11 -= go[34] * *cnV[34]; - RHS11 -= go[35] * *cnV[35]; - m_A34 += gt[36]; - m_A34 += gt[37]; - m_A34 += gt[38]; - m_A33 += go[36]; - m_A32 += go[37]; + m_A25 += gt[36]; + m_A25 += gt[37]; + m_A27 += go[36]; + m_A26 += go[37]; double RHS12 = Idr[36]; RHS12 += Idr[37]; - RHS12 += Idr[38]; - RHS12 -= go[38] * *cnV[38]; - m_A37 += gt[39]; - m_A37 += gt[40]; - m_A37 += gt[41]; - m_A37 += gt[42]; - m_A37 += gt[43]; - m_A37 += gt[44]; - m_A37 += gt[45]; - m_A38 += go[39]; - m_A36 += go[40]; - double RHS13 = Idr[39]; - RHS13 += Idr[40]; - RHS13 += Idr[41]; - RHS13 += Idr[42]; - RHS13 += Idr[43]; - RHS13 += Idr[44]; - RHS13 += Idr[45]; - RHS13 -= go[41] * *cnV[41]; - RHS13 -= go[42] * *cnV[42]; - RHS13 -= go[43] * *cnV[43]; - RHS13 -= go[44] * *cnV[44]; - RHS13 -= go[45] * *cnV[45]; - m_A40 += gt[46]; - m_A40 += gt[47]; - m_A40 += gt[48]; - m_A40 += gt[49]; - m_A40 += gt[50]; - m_A40 += gt[51]; - m_A40 += gt[52]; - m_A41 += go[46]; - m_A39 += go[47]; - double RHS14 = Idr[46]; - RHS14 += Idr[47]; - RHS14 += Idr[48]; - RHS14 += Idr[49]; - RHS14 += Idr[50]; - RHS14 += Idr[51]; - RHS14 += Idr[52]; - RHS14 -= go[48] * *cnV[48]; - RHS14 -= go[49] * *cnV[49]; - RHS14 -= go[50] * *cnV[50]; - RHS14 -= go[51] * *cnV[51]; - RHS14 -= go[52] * *cnV[52]; - m_A44 += gt[53]; - m_A44 += gt[54]; - m_A44 += gt[55]; - m_A44 += gt[56]; - m_A45 += go[53]; - m_A43 += go[54]; - m_A42 += go[55]; - double RHS15 = Idr[53]; - RHS15 += Idr[54]; - RHS15 += Idr[55]; - RHS15 += Idr[56]; - RHS15 -= go[56] * *cnV[56]; + m_A28 += gt[38]; + m_A28 += gt[39]; + m_A30 += go[38]; + m_A29 += go[39]; + double RHS13 = Idr[38]; + RHS13 += Idr[39]; + m_A31 += gt[40]; + m_A31 += gt[41]; + m_A32 += go[40]; + double RHS14 = Idr[40]; + RHS14 += Idr[41]; + RHS14 -= go[41] * *cnV[41]; + m_A33 += gt[42]; + m_A33 += gt[43]; + m_A35 += go[42]; + m_A34 += go[43]; + double RHS15 = Idr[42]; + RHS15 += Idr[43]; + m_A36 += gt[44]; + m_A36 += gt[45]; + m_A36 += gt[46]; + m_A36 += gt[47]; + m_A36 += gt[48]; + m_A36 += gt[49]; + m_A36 += gt[50]; + m_A37 += go[44]; + double RHS16 = Idr[44]; + RHS16 += Idr[45]; + RHS16 += Idr[46]; + RHS16 += Idr[47]; + RHS16 += Idr[48]; + RHS16 += Idr[49]; + RHS16 += Idr[50]; + RHS16 -= go[45] * *cnV[45]; + RHS16 -= go[46] * *cnV[46]; + RHS16 -= go[47] * *cnV[47]; + RHS16 -= go[48] * *cnV[48]; + RHS16 -= go[49] * *cnV[49]; + RHS16 -= go[50] * *cnV[50]; + m_A42 += gt[51]; + m_A42 += gt[52]; + m_A42 += gt[53]; + m_A42 += gt[54]; + m_A42 += gt[55]; + m_A41 += go[51]; + m_A40 += go[52]; + m_A39 += go[53]; + m_A38 += go[54]; + double RHS17 = Idr[51]; + RHS17 += Idr[52]; + RHS17 += Idr[53]; + RHS17 += Idr[54]; + RHS17 += Idr[55]; + RHS17 -= go[55] * *cnV[55]; + m_A48 += gt[56]; m_A48 += gt[57]; m_A48 += gt[58]; m_A48 += gt[59]; m_A48 += gt[60]; - m_A48 += gt[61]; - m_A48 += gt[62]; - m_A48 += gt[63]; - m_A49 += go[57]; - m_A46 += go[58]; - double RHS16 = Idr[57]; - RHS16 += Idr[58]; - RHS16 += Idr[59]; - RHS16 += Idr[60]; - RHS16 += Idr[61]; - RHS16 += Idr[62]; - RHS16 += Idr[63]; - RHS16 -= go[59] * *cnV[59]; - RHS16 -= go[60] * *cnV[60]; - RHS16 -= go[61] * *cnV[61]; - RHS16 -= go[62] * *cnV[62]; - RHS16 -= go[63] * *cnV[63]; - m_A51 += gt[64]; - m_A51 += gt[65]; - m_A51 += gt[66]; + m_A47 += go[56]; + m_A46 += go[57]; + m_A45 += go[58]; + m_A44 += go[59]; + double RHS18 = Idr[56]; + RHS18 += Idr[57]; + RHS18 += Idr[58]; + RHS18 += Idr[59]; + RHS18 += Idr[60]; + RHS18 -= go[60] * *cnV[60]; + m_A50 += gt[61]; + m_A50 += gt[62]; + m_A51 += go[61]; + m_A52 += go[62]; + double RHS19 = Idr[61]; + RHS19 += Idr[62]; + m_A55 += gt[63]; + m_A55 += gt[64]; + m_A55 += gt[65]; + m_A54 += go[63]; m_A53 += go[64]; - m_A50 += go[65]; - double RHS17 = Idr[64]; - RHS17 += Idr[65]; - RHS17 += Idr[66]; - RHS17 -= go[66] * *cnV[66]; + double RHS20 = Idr[63]; + RHS20 += Idr[64]; + RHS20 += Idr[65]; + RHS20 -= go[65] * *cnV[65]; + m_A58 += gt[66]; m_A58 += gt[67]; m_A58 += gt[68]; - m_A58 += gt[69]; - m_A58 += gt[70]; - m_A58 += gt[71]; - m_A58 += gt[72]; + m_A59 += go[66]; m_A57 += go[67]; - m_A62 += go[68]; - m_A62 += go[69]; - m_A56 += go[70]; - m_A55 += go[71]; - m_A54 += go[72]; - double RHS18 = Idr[67]; - RHS18 += Idr[68]; - RHS18 += Idr[69]; - RHS18 += Idr[70]; - RHS18 += Idr[71]; - RHS18 += Idr[72]; - m_A67 += gt[73]; - m_A67 += gt[74]; - m_A67 += gt[75]; - m_A67 += gt[76]; - m_A67 += gt[77]; - m_A65 += go[73]; - m_A64 += go[74]; - m_A63 += go[75]; - double RHS19 = Idr[73]; - RHS19 += Idr[74]; - RHS19 += Idr[75]; - RHS19 += Idr[76]; - RHS19 += Idr[77]; - RHS19 -= go[76] * *cnV[76]; - RHS19 -= go[77] * *cnV[77]; - m_A76 += gt[78]; - m_A76 += gt[79]; - m_A76 += gt[80]; - m_A76 += gt[81]; - m_A76 += gt[82]; - m_A73 += go[78]; - m_A72 += go[79]; - m_A71 += go[80]; - double RHS20 = Idr[78]; - RHS20 += Idr[79]; - RHS20 += Idr[80]; - RHS20 += Idr[81]; - RHS20 += Idr[82]; - RHS20 -= go[81] * *cnV[81]; - RHS20 -= go[82] * *cnV[82]; - m_A84 += gt[83]; - m_A84 += gt[84]; - m_A84 += gt[85]; - m_A84 += gt[86]; - m_A84 += gt[87]; - m_A84 += gt[88]; - m_A82 += go[83]; - m_A80 += go[84]; - m_A79 += go[85]; - m_A81 += go[86]; - double RHS21 = Idr[83]; - RHS21 += Idr[84]; - RHS21 += Idr[85]; - RHS21 += Idr[86]; - RHS21 += Idr[87]; - RHS21 += Idr[88]; - RHS21 -= go[87] * *cnV[87]; - RHS21 -= go[88] * *cnV[88]; - m_A94 += gt[89]; - m_A94 += gt[90]; - m_A94 += gt[91]; - m_A94 += gt[92]; - m_A94 += gt[93]; - m_A94 += gt[94]; - m_A87 += go[89]; - m_A88 += go[90]; - m_A89 += go[91]; - m_A86 += go[92]; - double RHS22 = Idr[89]; - RHS22 += Idr[90]; - RHS22 += Idr[91]; - RHS22 += Idr[92]; - RHS22 += Idr[93]; - RHS22 += Idr[94]; - RHS22 -= go[93] * *cnV[93]; - RHS22 -= go[94] * *cnV[94]; - m_A101 += gt[95]; - m_A101 += gt[96]; - m_A101 += gt[97]; - m_A101 += gt[98]; - m_A101 += gt[99]; - m_A101 += gt[100]; - m_A101 += gt[101]; - m_A96 += go[95]; - m_A97 += go[96]; - double RHS23 = Idr[95]; - RHS23 += Idr[96]; - RHS23 += Idr[97]; - RHS23 += Idr[98]; - RHS23 += Idr[99]; - RHS23 += Idr[100]; - RHS23 += Idr[101]; - RHS23 -= go[97] * *cnV[97]; - RHS23 -= go[98] * *cnV[98]; - RHS23 -= go[99] * *cnV[99]; - RHS23 -= go[100] * *cnV[100]; - RHS23 -= go[101] * *cnV[101]; - m_A110 += gt[102]; - m_A110 += gt[103]; - m_A110 += gt[104]; - m_A110 += gt[105]; - m_A110 += gt[106]; - m_A110 += gt[107]; - m_A109 += go[102]; - m_A103 += go[103]; - m_A105 += go[104]; - m_A105 += go[105]; - double RHS24 = Idr[102]; - RHS24 += Idr[103]; - RHS24 += Idr[104]; - RHS24 += Idr[105]; - RHS24 += Idr[106]; - RHS24 += Idr[107]; - RHS24 -= go[106] * *cnV[106]; - RHS24 -= go[107] * *cnV[107]; + double RHS21 = Idr[66]; + RHS21 += Idr[67]; + RHS21 += Idr[68]; + RHS21 -= go[68] * *cnV[68]; + m_A62 += gt[69]; + m_A62 += gt[70]; + m_A62 += gt[71]; + m_A61 += go[69]; + m_A60 += go[70]; + double RHS22 = Idr[69]; + RHS22 += Idr[70]; + RHS22 += Idr[71]; + RHS22 -= go[71] * *cnV[71]; + m_A65 += gt[72]; + m_A65 += gt[73]; + m_A65 += gt[74]; + m_A65 += gt[75]; + m_A65 += gt[76]; + m_A65 += gt[77]; + m_A65 += gt[78]; + m_A64 += go[72]; + m_A66 += go[73]; + double RHS23 = Idr[72]; + RHS23 += Idr[73]; + RHS23 += Idr[74]; + RHS23 += Idr[75]; + RHS23 += Idr[76]; + RHS23 += Idr[77]; + RHS23 += Idr[78]; + RHS23 -= go[74] * *cnV[74]; + RHS23 -= go[75] * *cnV[75]; + RHS23 -= go[76] * *cnV[76]; + RHS23 -= go[77] * *cnV[77]; + RHS23 -= go[78] * *cnV[78]; + m_A68 += gt[79]; + m_A68 += gt[80]; + m_A69 += go[79]; + m_A67 += go[80]; + double RHS24 = Idr[79]; + RHS24 += Idr[80]; + m_A73 += gt[81]; + m_A73 += gt[82]; + m_A73 += gt[83]; + m_A73 += gt[84]; + m_A73 += gt[85]; + m_A72 += go[81]; + m_A70 += go[82]; + m_A71 += go[83]; + double RHS25 = Idr[81]; + RHS25 += Idr[82]; + RHS25 += Idr[83]; + RHS25 += Idr[84]; + RHS25 += Idr[85]; + RHS25 -= go[84] * *cnV[84]; + RHS25 -= go[85] * *cnV[85]; + m_A76 += gt[86]; + m_A76 += gt[87]; + m_A77 += go[86]; + m_A75 += go[87]; + double RHS26 = Idr[86]; + RHS26 += Idr[87]; + m_A79 += gt[88]; + m_A79 += gt[89]; + m_A79 += gt[90]; + m_A79 += gt[91]; + m_A79 += gt[92]; + m_A78 += go[88]; + m_A80 += go[89]; + m_A80 += go[90]; + double RHS27 = Idr[88]; + RHS27 += Idr[89]; + RHS27 += Idr[90]; + RHS27 += Idr[91]; + RHS27 += Idr[92]; + RHS27 -= go[91] * *cnV[91]; + RHS27 -= go[92] * *cnV[92]; + m_A95 += gt[93]; + m_A95 += gt[94]; + m_A95 += gt[95]; + m_A95 += gt[96]; + m_A95 += gt[97]; + m_A95 += gt[98]; + m_A95 += gt[99]; + m_A95 += gt[100]; + m_A95 += gt[101]; + m_A95 += gt[102]; + m_A95 += gt[103]; + m_A87 += go[93]; + m_A94 += go[94]; + m_A94 += go[95]; + m_A93 += go[96]; + m_A91 += go[97]; + m_A84 += go[98]; + m_A83 += go[99]; + m_A82 += go[100]; + m_A81 += go[101]; + m_A89 += go[102]; + double RHS28 = Idr[93]; + RHS28 += Idr[94]; + RHS28 += Idr[95]; + RHS28 += Idr[96]; + RHS28 += Idr[97]; + RHS28 += Idr[98]; + RHS28 += Idr[99]; + RHS28 += Idr[100]; + RHS28 += Idr[101]; + RHS28 += Idr[102]; + RHS28 += Idr[103]; + RHS28 -= go[103] * *cnV[103]; const double f0 = 1.0 / m_A0; - const double f0_13 = -f0 * m_A36; - m_A38 += m_A1 * f0_13; - RHS13 += f0_13 * RHS0; - const double f0_19 = -f0 * m_A63; - m_A67 += m_A1 * f0_19; - RHS19 += f0_19 * RHS0; + const double f0_21 = -f0 * m_A57; + m_A58 += m_A1 * f0_21; + RHS21 += f0_21 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_14 = -f1 * m_A39; - m_A41 += m_A3 * f1_14; - RHS14 += f1_14 * RHS1; - const double f1_20 = -f1 * m_A71; - m_A76 += m_A3 * f1_20; - RHS20 += f1_20 * RHS1; + const double f1_17 = -f1 * m_A38; + m_A42 += m_A3 * f1_17; + RHS17 += f1_17 * RHS1; const double f2 = 1.0 / m_A4; - const double f2_15 = -f2 * m_A42; - m_A44 += m_A5 * f2_15; - RHS15 += f2_15 * RHS2; + const double f2_17 = -f2 * m_A39; + m_A42 += m_A5 * f2_17; + RHS17 += f2_17 * RHS2; const double f3 = 1.0 / m_A6; - const double f3_15 = -f3 * m_A43; - m_A44 += m_A7 * f3_15; - m_A45 += m_A8 * f3_15; - RHS15 += f3_15 * RHS3; - const double f3_16 = -f3 * m_A46; - m_A47 += m_A7 * f3_16; - m_A49 += m_A8 * f3_16; - RHS16 += f3_16 * RHS3; - const double f3_21 = -f3 * m_A79; - m_A81 += m_A7 * f3_21; - m_A84 += m_A8 * f3_21; - RHS21 += f3_21 * RHS3; - const double f4 = 1.0 / m_A9; - const double f4_17 = -f4 * m_A50; - m_A51 += m_A10 * f4_17; - m_A52 += m_A11 * f4_17; - m_A53 += m_A12 * f4_17; - RHS17 += f4_17 * RHS4; - const double f4_21 = -f4 * m_A80; - m_A83 += m_A10 * f4_21; - m_A84 += m_A11 * f4_21; - m_A85 += m_A12 * f4_21; - RHS21 += f4_21 * RHS4; - const double f4_22 = -f4 * m_A86; - m_A89 += m_A10 * f4_22; - m_A93 += m_A11 * f4_22; - m_A94 += m_A12 * f4_22; - RHS22 += f4_22 * RHS4; - const double f5 = 1.0 / m_A13; - const double f5_22 = -f5 * m_A87; - m_A89 += m_A14 * f5_22; - m_A94 += m_A15 * f5_22; - RHS22 += f5_22 * RHS5; - const double f6 = 1.0 / m_A16; - const double f6_18 = -f6 * m_A54; - m_A58 += m_A17 * f6_18; - m_A61 += m_A18 * f6_18; - RHS18 += f6_18 * RHS6; - const double f6_22 = -f6 * m_A88; - m_A90 += m_A17 * f6_22; - m_A94 += m_A18 * f6_22; + const double f3_17 = -f3 * m_A40; + m_A42 += m_A7 * f3_17; + RHS17 += f3_17 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_18 = -f4 * m_A44; + m_A48 += m_A9 * f4_18; + RHS18 += f4_18 * RHS4; + const double f5 = 1.0 / m_A10; + const double f5_20 = -f5 * m_A53; + m_A55 += m_A11 * f5_20; + RHS20 += f5_20 * RHS5; + const double f6 = 1.0 / m_A12; + const double f6_22 = -f6 * m_A60; + m_A62 += m_A13 * f6_22; RHS22 += f6_22 * RHS6; - const double f7 = 1.0 / m_A19; - const double f7_18 = -f7 * m_A55; - m_A58 += m_A20 * f7_18; - m_A59 += m_A21 * f7_18; - RHS18 += f7_18 * RHS7; - const double f7_19 = -f7 * m_A64; - m_A66 += m_A20 * f7_19; - m_A67 += m_A21 * f7_19; - RHS19 += f7_19 * RHS7; - const double f8 = 1.0 / m_A22; - const double f8_18 = -f8 * m_A56; - m_A58 += m_A23 * f8_18; - m_A60 += m_A24 * f8_18; + const double f7 = 1.0 / m_A14; + const double f7_18 = -f7 * m_A45; + m_A48 += m_A15 * f7_18; + RHS18 += f7_18 * RHS7; + const double f8 = 1.0 / m_A16; + const double f8_18 = -f8 * m_A46; + m_A48 += m_A17 * f8_18; RHS18 += f8_18 * RHS8; - const double f8_20 = -f8 * m_A72; - m_A74 += m_A23 * f8_20; - m_A76 += m_A24 * f8_20; - RHS20 += f8_20 * RHS8; - const double f9 = 1.0 / m_A25; - const double f9_12 = -f9 * m_A32; - m_A34 += m_A26 * f9_12; - m_A35 += m_A27 * f9_12; - RHS12 += f9_12 * RHS9; - const double f9_24 = -f9 * m_A103; - m_A104 += m_A26 * f9_24; - m_A110 += m_A27 * f9_24; + const double f9 = 1.0 / m_A18; + const double f9_24 = -f9 * m_A67; + m_A68 += m_A19 * f9_24; RHS24 += f9_24 * RHS9; - const double f10 = 1.0 / m_A28; - const double f10_12 = -f10 * m_A33; - m_A34 += m_A29 * f10_12; - RHS12 += f10_12 * RHS10; - const double f11 = 1.0 / m_A30; - const double f11_18 = -f11 * m_A57; - m_A58 += m_A31 * f11_18; - RHS18 += f11_18 * RHS11; - const double f11_23 = -f11 * m_A96; - m_A97 += m_A31 * f11_23; - RHS23 += f11_23 * RHS11; - const double f12 = 1.0 / m_A34; - const double f12_24 = -f12 * m_A104; - m_A110 += m_A35 * f12_24; - RHS24 += f12_24 * RHS12; - const double f13 = 1.0 / m_A37; - const double f13_19 = -f13 * m_A65; - m_A67 += m_A38 * f13_19; - RHS19 += f13_19 * RHS13; - const double f14 = 1.0 / m_A40; - const double f14_20 = -f14 * m_A73; - m_A76 += m_A41 * f14_20; - RHS20 += f14_20 * RHS14; - const double f15 = 1.0 / m_A44; - const double f15_16 = -f15 * m_A47; - m_A49 += m_A45 * f15_16; - RHS16 += f15_16 * RHS15; - const double f15_21 = -f15 * m_A81; - m_A84 += m_A45 * f15_21; - RHS21 += f15_21 * RHS15; - const double f16 = 1.0 / m_A48; - const double f16_21 = -f16 * m_A82; - m_A84 += m_A49 * f16_21; - RHS21 += f16_21 * RHS16; - const double f17 = 1.0 / m_A51; - const double f17_21 = -f17 * m_A83; - m_A84 += m_A52 * f17_21; - m_A85 += m_A53 * f17_21; - RHS21 += f17_21 * RHS17; - const double f17_22 = -f17 * m_A89; - m_A93 += m_A52 * f17_22; - m_A94 += m_A53 * f17_22; - RHS22 += f17_22 * RHS17; - const double f18 = 1.0 / m_A58; - const double f18_19 = -f18 * m_A66; - m_A67 += m_A59 * f18_19; - m_A68 += m_A60 * f18_19; - m_A69 += m_A61 * f18_19; - m_A70 += m_A62 * f18_19; - RHS19 += f18_19 * RHS18; - const double f18_20 = -f18 * m_A74; - m_A75 += m_A59 * f18_20; - m_A76 += m_A60 * f18_20; - m_A77 += m_A61 * f18_20; - m_A78 += m_A62 * f18_20; - RHS20 += f18_20 * RHS18; - const double f18_22 = -f18 * m_A90; - m_A91 += m_A59 * f18_22; - m_A92 += m_A60 * f18_22; - m_A94 += m_A61 * f18_22; - m_A95 += m_A62 * f18_22; - RHS22 += f18_22 * RHS18; - const double f18_23 = -f18 * m_A97; - m_A98 += m_A59 * f18_23; - m_A99 += m_A60 * f18_23; - m_A100 += m_A61 * f18_23; - m_A102 += m_A62 * f18_23; - RHS23 += f18_23 * RHS18; - const double f18_24 = -f18 * m_A105; - m_A106 += m_A59 * f18_24; - m_A107 += m_A60 * f18_24; - m_A108 += m_A61 * f18_24; - m_A110 += m_A62 * f18_24; - RHS24 += f18_24 * RHS18; - const double f19 = 1.0 / m_A67; - const double f19_20 = -f19 * m_A75; - m_A76 += m_A68 * f19_20; - m_A77 += m_A69 * f19_20; - m_A78 += m_A70 * f19_20; - RHS20 += f19_20 * RHS19; - const double f19_22 = -f19 * m_A91; - m_A92 += m_A68 * f19_22; - m_A94 += m_A69 * f19_22; - m_A95 += m_A70 * f19_22; - RHS22 += f19_22 * RHS19; - const double f19_23 = -f19 * m_A98; - m_A99 += m_A68 * f19_23; - m_A100 += m_A69 * f19_23; - m_A102 += m_A70 * f19_23; - RHS23 += f19_23 * RHS19; - const double f19_24 = -f19 * m_A106; - m_A107 += m_A68 * f19_24; - m_A108 += m_A69 * f19_24; - m_A110 += m_A70 * f19_24; - RHS24 += f19_24 * RHS19; - const double f20 = 1.0 / m_A76; - const double f20_22 = -f20 * m_A92; - m_A94 += m_A77 * f20_22; - m_A95 += m_A78 * f20_22; - RHS22 += f20_22 * RHS20; - const double f20_23 = -f20 * m_A99; - m_A100 += m_A77 * f20_23; - m_A102 += m_A78 * f20_23; - RHS23 += f20_23 * RHS20; - const double f20_24 = -f20 * m_A107; - m_A108 += m_A77 * f20_24; - m_A110 += m_A78 * f20_24; - RHS24 += f20_24 * RHS20; - const double f21 = 1.0 / m_A84; - const double f21_22 = -f21 * m_A93; - m_A94 += m_A85 * f21_22; - RHS22 += f21_22 * RHS21; - const double f22 = 1.0 / m_A94; - const double f22_23 = -f22 * m_A100; - m_A102 += m_A95 * f22_23; - RHS23 += f22_23 * RHS22; - const double f22_24 = -f22 * m_A108; - m_A110 += m_A95 * f22_24; - RHS24 += f22_24 * RHS22; - const double f23 = 1.0 / m_A101; - const double f23_24 = -f23 * m_A109; - m_A110 += m_A102 * f23_24; - RHS24 += f23_24 * RHS23; - V[24] = RHS24 / m_A110; + const double f10 = 1.0 / m_A20; + const double f10_26 = -f10 * m_A75; + m_A76 += m_A21 * f10_26; + RHS26 += f10_26 * RHS10; + const double f11 = 1.0 / m_A22; + const double f11_17 = -f11 * m_A41; + m_A42 += m_A23 * f11_17; + m_A43 += m_A24 * f11_17; + RHS17 += f11_17 * RHS11; + const double f11_28 = -f11 * m_A81; + m_A85 += m_A23 * f11_28; + m_A95 += m_A24 * f11_28; + RHS28 += f11_28 * RHS11; + const double f12 = 1.0 / m_A25; + const double f12_18 = -f12 * m_A47; + m_A48 += m_A26 * f12_18; + m_A49 += m_A27 * f12_18; + RHS18 += f12_18 * RHS12; + const double f12_28 = -f12 * m_A82; + m_A86 += m_A26 * f12_28; + m_A95 += m_A27 * f12_28; + RHS28 += f12_28 * RHS12; + const double f13 = 1.0 / m_A28; + const double f13_20 = -f13 * m_A54; + m_A55 += m_A29 * f13_20; + m_A56 += m_A30 * f13_20; + RHS20 += f13_20 * RHS13; + const double f13_28 = -f13 * m_A83; + m_A88 += m_A29 * f13_28; + m_A95 += m_A30 * f13_28; + RHS28 += f13_28 * RHS13; + const double f14 = 1.0 / m_A31; + const double f14_23 = -f14 * m_A64; + m_A66 += m_A32 * f14_23; + RHS23 += f14_23 * RHS14; + const double f14_25 = -f14 * m_A70; + m_A73 += m_A32 * f14_25; + RHS25 += f14_25 * RHS14; + const double f15 = 1.0 / m_A33; + const double f15_22 = -f15 * m_A61; + m_A62 += m_A34 * f15_22; + m_A63 += m_A35 * f15_22; + RHS22 += f15_22 * RHS15; + const double f15_28 = -f15 * m_A84; + m_A90 += m_A34 * f15_28; + m_A95 += m_A35 * f15_28; + RHS28 += f15_28 * RHS15; + const double f16 = 1.0 / m_A36; + const double f16_27 = -f16 * m_A78; + m_A80 += m_A37 * f16_27; + RHS27 += f16_27 * RHS16; + const double f17 = 1.0 / m_A42; + const double f17_28 = -f17 * m_A85; + m_A95 += m_A43 * f17_28; + RHS28 += f17_28 * RHS17; + const double f18 = 1.0 / m_A48; + const double f18_28 = -f18 * m_A86; + m_A95 += m_A49 * f18_28; + RHS28 += f18_28 * RHS18; + const double f19 = 1.0 / m_A50; + const double f19_25 = -f19 * m_A71; + m_A73 += m_A51 * f19_25; + m_A74 += m_A52 * f19_25; + RHS25 += f19_25 * RHS19; + const double f19_28 = -f19 * m_A87; + m_A92 += m_A51 * f19_28; + m_A95 += m_A52 * f19_28; + RHS28 += f19_28 * RHS19; + const double f20 = 1.0 / m_A55; + const double f20_28 = -f20 * m_A88; + m_A95 += m_A56 * f20_28; + RHS28 += f20_28 * RHS20; + const double f21 = 1.0 / m_A58; + const double f21_28 = -f21 * m_A89; + m_A95 += m_A59 * f21_28; + RHS28 += f21_28 * RHS21; + const double f22 = 1.0 / m_A62; + const double f22_28 = -f22 * m_A90; + m_A95 += m_A63 * f22_28; + RHS28 += f22_28 * RHS22; + const double f23 = 1.0 / m_A65; + const double f23_25 = -f23 * m_A72; + m_A73 += m_A66 * f23_25; + RHS25 += f23_25 * RHS23; + const double f24 = 1.0 / m_A68; + const double f24_28 = -f24 * m_A91; + m_A95 += m_A69 * f24_28; + RHS28 += f24_28 * RHS24; + const double f25 = 1.0 / m_A73; + const double f25_28 = -f25 * m_A92; + m_A95 += m_A74 * f25_28; + RHS28 += f25_28 * RHS25; + const double f26 = 1.0 / m_A76; + const double f26_28 = -f26 * m_A93; + m_A95 += m_A77 * f26_28; + RHS28 += f26_28 * RHS26; + const double f27 = 1.0 / m_A79; + const double f27_28 = -f27 * m_A94; + m_A95 += m_A80 * f27_28; + RHS28 += f27_28 * RHS27; + V[28] = RHS28 / m_A95; + double tmp27 = 0.0; + tmp27 += m_A80 * V[28]; + V[27] = (RHS27 - tmp27) / m_A79; + double tmp26 = 0.0; + tmp26 += m_A77 * V[28]; + V[26] = (RHS26 - tmp26) / m_A76; + double tmp25 = 0.0; + tmp25 += m_A74 * V[28]; + V[25] = (RHS25 - tmp25) / m_A73; + double tmp24 = 0.0; + tmp24 += m_A69 * V[28]; + V[24] = (RHS24 - tmp24) / m_A68; double tmp23 = 0.0; - tmp23 += m_A102 * V[24]; - V[23] = (RHS23 - tmp23) / m_A101; + tmp23 += m_A66 * V[25]; + V[23] = (RHS23 - tmp23) / m_A65; double tmp22 = 0.0; - tmp22 += m_A95 * V[24]; - V[22] = (RHS22 - tmp22) / m_A94; + tmp22 += m_A63 * V[28]; + V[22] = (RHS22 - tmp22) / m_A62; double tmp21 = 0.0; - tmp21 += m_A85 * V[22]; - V[21] = (RHS21 - tmp21) / m_A84; + tmp21 += m_A59 * V[28]; + V[21] = (RHS21 - tmp21) / m_A58; double tmp20 = 0.0; - tmp20 += m_A77 * V[22]; - tmp20 += m_A78 * V[24]; - V[20] = (RHS20 - tmp20) / m_A76; + tmp20 += m_A56 * V[28]; + V[20] = (RHS20 - tmp20) / m_A55; double tmp19 = 0.0; - tmp19 += m_A68 * V[20]; - tmp19 += m_A69 * V[22]; - tmp19 += m_A70 * V[24]; - V[19] = (RHS19 - tmp19) / m_A67; + tmp19 += m_A51 * V[25]; + tmp19 += m_A52 * V[28]; + V[19] = (RHS19 - tmp19) / m_A50; double tmp18 = 0.0; - tmp18 += m_A59 * V[19]; - tmp18 += m_A60 * V[20]; - tmp18 += m_A61 * V[22]; - tmp18 += m_A62 * V[24]; - V[18] = (RHS18 - tmp18) / m_A58; + tmp18 += m_A49 * V[28]; + V[18] = (RHS18 - tmp18) / m_A48; double tmp17 = 0.0; - tmp17 += m_A52 * V[21]; - tmp17 += m_A53 * V[22]; - V[17] = (RHS17 - tmp17) / m_A51; + tmp17 += m_A43 * V[28]; + V[17] = (RHS17 - tmp17) / m_A42; double tmp16 = 0.0; - tmp16 += m_A49 * V[21]; - V[16] = (RHS16 - tmp16) / m_A48; + tmp16 += m_A37 * V[28]; + V[16] = (RHS16 - tmp16) / m_A36; double tmp15 = 0.0; - tmp15 += m_A45 * V[21]; - V[15] = (RHS15 - tmp15) / m_A44; + tmp15 += m_A34 * V[22]; + tmp15 += m_A35 * V[28]; + V[15] = (RHS15 - tmp15) / m_A33; double tmp14 = 0.0; - tmp14 += m_A41 * V[20]; - V[14] = (RHS14 - tmp14) / m_A40; + tmp14 += m_A32 * V[25]; + V[14] = (RHS14 - tmp14) / m_A31; double tmp13 = 0.0; - tmp13 += m_A38 * V[19]; - V[13] = (RHS13 - tmp13) / m_A37; + tmp13 += m_A29 * V[20]; + tmp13 += m_A30 * V[28]; + V[13] = (RHS13 - tmp13) / m_A28; double tmp12 = 0.0; - tmp12 += m_A35 * V[24]; - V[12] = (RHS12 - tmp12) / m_A34; + tmp12 += m_A26 * V[18]; + tmp12 += m_A27 * V[28]; + V[12] = (RHS12 - tmp12) / m_A25; double tmp11 = 0.0; - tmp11 += m_A31 * V[18]; - V[11] = (RHS11 - tmp11) / m_A30; - double tmp10 = 0.0; - tmp10 += m_A29 * V[12]; - V[10] = (RHS10 - tmp10) / m_A28; - double tmp9 = 0.0; - tmp9 += m_A26 * V[12]; - tmp9 += m_A27 * V[24]; - V[9] = (RHS9 - tmp9) / m_A25; - double tmp8 = 0.0; - tmp8 += m_A23 * V[18]; - tmp8 += m_A24 * V[20]; - V[8] = (RHS8 - tmp8) / m_A22; - double tmp7 = 0.0; - tmp7 += m_A20 * V[18]; - tmp7 += m_A21 * V[19]; - V[7] = (RHS7 - tmp7) / m_A19; - double tmp6 = 0.0; - tmp6 += m_A17 * V[18]; - tmp6 += m_A18 * V[22]; - V[6] = (RHS6 - tmp6) / m_A16; - double tmp5 = 0.0; - tmp5 += m_A14 * V[17]; - tmp5 += m_A15 * V[22]; - V[5] = (RHS5 - tmp5) / m_A13; - double tmp4 = 0.0; - tmp4 += m_A10 * V[17]; - tmp4 += m_A11 * V[21]; - tmp4 += m_A12 * V[22]; - V[4] = (RHS4 - tmp4) / m_A9; - double tmp3 = 0.0; - tmp3 += m_A7 * V[15]; - tmp3 += m_A8 * V[21]; - V[3] = (RHS3 - tmp3) / m_A6; - double tmp2 = 0.0; - tmp2 += m_A5 * V[15]; - V[2] = (RHS2 - tmp2) / m_A4; - double tmp1 = 0.0; - tmp1 += m_A3 * V[20]; - V[1] = (RHS1 - tmp1) / m_A2; - double tmp0 = 0.0; - tmp0 += m_A1 * V[19]; - V[0] = (RHS0 - tmp0) / m_A0; -} - -// boxingb -static void nl_gcr_a0bf548977306172_25_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) - -{ - - plib::unused_var(cnV); - double m_A0(0.0); - double m_A1(0.0); - double m_A2(0.0); - double m_A3(0.0); - double m_A4(0.0); - double m_A5(0.0); - double m_A6(0.0); - double m_A7(0.0); - double m_A8(0.0); - double m_A9(0.0); - double m_A10(0.0); - double m_A11(0.0); - double m_A12(0.0); - double m_A13(0.0); - double m_A14(0.0); - double m_A15(0.0); - double m_A16(0.0); - double m_A17(0.0); - double m_A18(0.0); - double m_A19(0.0); - double m_A20(0.0); - double m_A21(0.0); - double m_A22(0.0); - double m_A23(0.0); - double m_A24(0.0); - m_A0 += gt[0]; - m_A0 += gt[1]; - m_A1 += go[0]; - double RHS0 = Idr[0]; - RHS0 += Idr[1]; - RHS0 -= go[1] * *cnV[1]; - m_A2 += gt[2]; - m_A2 += gt[3]; - m_A3 += go[2]; - double RHS1 = Idr[2]; - RHS1 += Idr[3]; - RHS1 -= go[3] * *cnV[3]; - m_A4 += gt[4]; - m_A4 += gt[5]; - m_A4 += gt[6]; - m_A4 += gt[7]; - m_A4 += gt[8]; - m_A4 += gt[9]; - m_A4 += gt[10]; - m_A6 += go[4]; - m_A5 += go[5]; - double RHS2 = Idr[4]; - RHS2 += Idr[5]; - RHS2 += Idr[6]; - RHS2 += Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 += Idr[10]; - RHS2 -= go[6] * *cnV[6]; - RHS2 -= go[7] * *cnV[7]; - RHS2 -= go[8] * *cnV[8]; - RHS2 -= go[9] * *cnV[9]; - RHS2 -= go[10] * *cnV[10]; - m_A7 += gt[11]; - m_A7 += gt[12]; - m_A7 += gt[13]; - m_A8 += go[11]; - m_A9 += go[12]; - double RHS3 = Idr[11]; - RHS3 += Idr[12]; - RHS3 += Idr[13]; - RHS3 -= go[13] * *cnV[13]; - m_A11 += gt[14]; - m_A11 += gt[15]; - m_A11 += gt[16]; - m_A12 += go[14]; - m_A10 += go[15]; - double RHS4 = Idr[14]; - RHS4 += Idr[15]; - RHS4 += Idr[16]; - RHS4 -= go[16] * *cnV[16]; - m_A14 += gt[17]; - m_A14 += gt[18]; - m_A14 += gt[19]; - m_A15 += go[17]; - m_A13 += go[18]; - double RHS5 = Idr[17]; - RHS5 += Idr[18]; - RHS5 += Idr[19]; - RHS5 -= go[19] * *cnV[19]; - m_A18 += gt[20]; - m_A18 += gt[21]; - m_A18 += gt[22]; - m_A16 += go[20]; - m_A17 += go[21]; - double RHS6 = Idr[20]; - RHS6 += Idr[21]; - RHS6 += Idr[22]; - RHS6 -= go[22] * *cnV[22]; - m_A24 += gt[23]; - m_A24 += gt[24]; - m_A24 += gt[25]; - m_A24 += gt[26]; - m_A24 += gt[27]; - m_A20 += go[23]; - m_A21 += go[24]; - m_A22 += go[25]; - double RHS7 = Idr[23]; - RHS7 += Idr[24]; - RHS7 += Idr[25]; - RHS7 += Idr[26]; - RHS7 += Idr[27]; - RHS7 -= go[26] * *cnV[26]; - RHS7 -= go[27] * *cnV[27]; - const double f0 = 1.0 / m_A0; - const double f0_4 = -f0 * m_A10; - m_A11 += m_A1 * f0_4; - RHS4 += f0_4 * RHS0; - const double f1 = 1.0 / m_A2; - const double f1_5 = -f1 * m_A13; - m_A14 += m_A3 * f1_5; - RHS5 += f1_5 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_7 = -f2 * m_A20; - m_A22 += m_A5 * f2_7; - m_A24 += m_A6 * f2_7; - RHS7 += f2_7 * RHS2; - const double f3 = 1.0 / m_A7; - const double f3_6 = -f3 * m_A16; - m_A18 += m_A8 * f3_6; - m_A19 += m_A9 * f3_6; - RHS6 += f3_6 * RHS3; - const double f3_7 = -f3 * m_A21; - m_A23 += m_A8 * f3_7; - m_A24 += m_A9 * f3_7; - RHS7 += f3_7 * RHS3; - const double f4 = 1.0 / m_A11; - const double f4_6 = -f4 * m_A17; - m_A18 += m_A12 * f4_6; - RHS6 += f4_6 * RHS4; - const double f5 = 1.0 / m_A14; - const double f5_7 = -f5 * m_A22; - m_A24 += m_A15 * f5_7; - RHS7 += f5_7 * RHS5; - const double f6 = 1.0 / m_A18; - const double f6_7 = -f6 * m_A23; - m_A24 += m_A19 * f6_7; - RHS7 += f6_7 * RHS6; - V[7] = RHS7 / m_A24; + tmp11 += m_A23 * V[17]; + tmp11 += m_A24 * V[28]; + V[11] = (RHS11 - tmp11) / m_A22; + double tmp10 = 0.0; + tmp10 += m_A21 * V[26]; + V[10] = (RHS10 - tmp10) / m_A20; + double tmp9 = 0.0; + tmp9 += m_A19 * V[24]; + V[9] = (RHS9 - tmp9) / m_A18; + double tmp8 = 0.0; + tmp8 += m_A17 * V[18]; + V[8] = (RHS8 - tmp8) / m_A16; + double tmp7 = 0.0; + tmp7 += m_A15 * V[18]; + V[7] = (RHS7 - tmp7) / m_A14; double tmp6 = 0.0; - tmp6 += m_A19 * V[7]; - V[6] = (RHS6 - tmp6) / m_A18; + tmp6 += m_A13 * V[22]; + V[6] = (RHS6 - tmp6) / m_A12; double tmp5 = 0.0; - tmp5 += m_A15 * V[7]; - V[5] = (RHS5 - tmp5) / m_A14; + tmp5 += m_A11 * V[20]; + V[5] = (RHS5 - tmp5) / m_A10; double tmp4 = 0.0; - tmp4 += m_A12 * V[6]; - V[4] = (RHS4 - tmp4) / m_A11; + tmp4 += m_A9 * V[18]; + V[4] = (RHS4 - tmp4) / m_A8; double tmp3 = 0.0; - tmp3 += m_A8 * V[6]; - tmp3 += m_A9 * V[7]; - V[3] = (RHS3 - tmp3) / m_A7; + tmp3 += m_A7 * V[17]; + V[3] = (RHS3 - tmp3) / m_A6; double tmp2 = 0.0; - tmp2 += m_A5 * V[5]; - tmp2 += m_A6 * V[7]; + tmp2 += m_A5 * V[17]; V[2] = (RHS2 - tmp2) / m_A4; double tmp1 = 0.0; - tmp1 += m_A3 * V[5]; + tmp1 += m_A3 * V[17]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[4]; + tmp0 += m_A1 * V[21]; V[0] = (RHS0 - tmp0) / m_A0; } -// boxingb -static void nl_gcr_a1132c8737d5d463_96_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) +// 280zzzap +static void nl_gcr_a29a3ea050cc0879_113_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) { @@ -21859,547 +23679,622 @@ static void nl_gcr_a1132c8737d5d463_96_double_double(double * __restrict V, cons double m_A93(0.0); double m_A94(0.0); double m_A95(0.0); + double m_A96(0.0); + double m_A97(0.0); + double m_A98(0.0); + double m_A99(0.0); + double m_A100(0.0); + double m_A101(0.0); + double m_A102(0.0); + double m_A103(0.0); + double m_A104(0.0); + double m_A105(0.0); + double m_A106(0.0); + double m_A107(0.0); + double m_A108(0.0); + double m_A109(0.0); + double m_A110(0.0); + double m_A111(0.0); + double m_A112(0.0); m_A0 += gt[0]; m_A0 += gt[1]; - m_A0 += gt[2]; - m_A0 += gt[3]; m_A1 += go[0]; double RHS0 = Idr[0]; RHS0 += Idr[1]; - RHS0 += Idr[2]; - RHS0 += Idr[3]; RHS0 -= go[1] * *cnV[1]; - RHS0 -= go[2] * *cnV[2]; - RHS0 -= go[3] * *cnV[3]; + m_A2 += gt[2]; + m_A2 += gt[3]; m_A2 += gt[4]; m_A2 += gt[5]; - m_A2 += gt[6]; + m_A5 += go[2]; + m_A4 += go[3]; m_A3 += go[4]; - double RHS1 = Idr[4]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + RHS1 += Idr[4]; RHS1 += Idr[5]; - RHS1 += Idr[6]; RHS1 -= go[5] * *cnV[5]; - RHS1 -= go[6] * *cnV[6]; - m_A4 += gt[7]; - m_A4 += gt[8]; - m_A4 += gt[9]; - m_A5 += go[7]; - double RHS2 = Idr[7]; - RHS2 += Idr[8]; - RHS2 += Idr[9]; - RHS2 -= go[8] * *cnV[8]; - RHS2 -= go[9] * *cnV[9]; - m_A6 += gt[10]; - m_A6 += gt[11]; - m_A6 += gt[12]; - m_A7 += go[10]; - double RHS3 = Idr[10]; - RHS3 += Idr[11]; - RHS3 += Idr[12]; - RHS3 -= go[11] * *cnV[11]; - RHS3 -= go[12] * *cnV[12]; - m_A8 += gt[13]; - m_A8 += gt[14]; - m_A8 += gt[15]; - m_A9 += go[13]; - double RHS4 = Idr[13]; - RHS4 += Idr[14]; - RHS4 += Idr[15]; - RHS4 -= go[14] * *cnV[14]; - RHS4 -= go[15] * *cnV[15]; - m_A10 += gt[16]; - m_A10 += gt[17]; - m_A10 += gt[18]; - m_A11 += go[16]; - double RHS5 = Idr[16]; - RHS5 += Idr[17]; - RHS5 += Idr[18]; - RHS5 -= go[17] * *cnV[17]; - RHS5 -= go[18] * *cnV[18]; - m_A12 += gt[19]; - m_A12 += gt[20]; - m_A12 += gt[21]; - m_A13 += go[19]; - double RHS6 = Idr[19]; + m_A6 += gt[6]; + m_A6 += gt[7]; + m_A7 += go[6]; + double RHS2 = Idr[6]; + RHS2 += Idr[7]; + RHS2 -= go[7] * *cnV[7]; + m_A8 += gt[8]; + m_A8 += gt[9]; + m_A9 += go[8]; + double RHS3 = Idr[8]; + RHS3 += Idr[9]; + RHS3 -= go[9] * *cnV[9]; + m_A10 += gt[10]; + m_A10 += gt[11]; + m_A10 += gt[12]; + m_A11 += go[10]; + m_A12 += go[11]; + double RHS4 = Idr[10]; + RHS4 += Idr[11]; + RHS4 += Idr[12]; + RHS4 -= go[12] * *cnV[12]; + m_A13 += gt[13]; + m_A13 += gt[14]; + m_A14 += go[13]; + double RHS5 = Idr[13]; + RHS5 += Idr[14]; + RHS5 -= go[14] * *cnV[14]; + m_A15 += gt[15]; + m_A15 += gt[16]; + m_A15 += gt[17]; + m_A15 += gt[18]; + m_A15 += gt[19]; + m_A15 += gt[20]; + m_A15 += gt[21]; + m_A18 += go[15]; + m_A19 += go[16]; + m_A17 += go[17]; + m_A16 += go[18]; + double RHS6 = Idr[15]; + RHS6 += Idr[16]; + RHS6 += Idr[17]; + RHS6 += Idr[18]; + RHS6 += Idr[19]; RHS6 += Idr[20]; RHS6 += Idr[21]; + RHS6 -= go[19] * *cnV[19]; RHS6 -= go[20] * *cnV[20]; RHS6 -= go[21] * *cnV[21]; - m_A14 += gt[22]; - m_A14 += gt[23]; - m_A14 += gt[24]; - m_A15 += go[22]; + m_A20 += gt[22]; + m_A20 += gt[23]; + m_A20 += gt[24]; + m_A20 += gt[25]; + m_A20 += gt[26]; + m_A20 += gt[27]; + m_A20 += gt[28]; + m_A23 += go[22]; + m_A24 += go[23]; + m_A21 += go[24]; + m_A22 += go[25]; double RHS7 = Idr[22]; RHS7 += Idr[23]; RHS7 += Idr[24]; - RHS7 -= go[23] * *cnV[23]; - RHS7 -= go[24] * *cnV[24]; - m_A16 += gt[25]; - m_A16 += gt[26]; - m_A16 += gt[27]; - m_A17 += go[25]; - double RHS8 = Idr[25]; - RHS8 += Idr[26]; - RHS8 += Idr[27]; - RHS8 -= go[26] * *cnV[26]; - RHS8 -= go[27] * *cnV[27]; - m_A18 += gt[28]; - m_A18 += gt[29]; - m_A18 += gt[30]; - m_A19 += go[28]; - double RHS9 = Idr[28]; - RHS9 += Idr[29]; - RHS9 += Idr[30]; - RHS9 -= go[29] * *cnV[29]; - RHS9 -= go[30] * *cnV[30]; - m_A20 += gt[31]; - m_A20 += gt[32]; - m_A20 += gt[33]; - m_A21 += go[31]; - double RHS10 = Idr[31]; - RHS10 += Idr[32]; - RHS10 += Idr[33]; - RHS10 -= go[32] * *cnV[32]; - RHS10 -= go[33] * *cnV[33]; - m_A22 += gt[34]; - m_A22 += gt[35]; - m_A24 += go[34]; - m_A23 += go[35]; - double RHS11 = Idr[34]; - RHS11 += Idr[35]; - m_A25 += gt[36]; - m_A25 += gt[37]; - m_A27 += go[36]; - m_A26 += go[37]; - double RHS12 = Idr[36]; - RHS12 += Idr[37]; - m_A28 += gt[38]; - m_A28 += gt[39]; - m_A30 += go[38]; - m_A29 += go[39]; - double RHS13 = Idr[38]; - RHS13 += Idr[39]; - m_A31 += gt[40]; - m_A31 += gt[41]; - m_A32 += go[40]; - double RHS14 = Idr[40]; - RHS14 += Idr[41]; - RHS14 -= go[41] * *cnV[41]; - m_A33 += gt[42]; - m_A33 += gt[43]; - m_A35 += go[42]; - m_A34 += go[43]; - double RHS15 = Idr[42]; - RHS15 += Idr[43]; - m_A36 += gt[44]; - m_A36 += gt[45]; - m_A36 += gt[46]; - m_A36 += gt[47]; - m_A36 += gt[48]; - m_A36 += gt[49]; - m_A36 += gt[50]; - m_A37 += go[44]; - double RHS16 = Idr[44]; - RHS16 += Idr[45]; - RHS16 += Idr[46]; - RHS16 += Idr[47]; - RHS16 += Idr[48]; - RHS16 += Idr[49]; - RHS16 += Idr[50]; - RHS16 -= go[45] * *cnV[45]; - RHS16 -= go[46] * *cnV[46]; - RHS16 -= go[47] * *cnV[47]; - RHS16 -= go[48] * *cnV[48]; - RHS16 -= go[49] * *cnV[49]; - RHS16 -= go[50] * *cnV[50]; - m_A42 += gt[51]; - m_A42 += gt[52]; - m_A42 += gt[53]; - m_A42 += gt[54]; - m_A42 += gt[55]; - m_A41 += go[51]; - m_A40 += go[52]; - m_A39 += go[53]; - m_A38 += go[54]; - double RHS17 = Idr[51]; - RHS17 += Idr[52]; - RHS17 += Idr[53]; - RHS17 += Idr[54]; - RHS17 += Idr[55]; - RHS17 -= go[55] * *cnV[55]; - m_A48 += gt[56]; - m_A48 += gt[57]; - m_A48 += gt[58]; - m_A48 += gt[59]; - m_A48 += gt[60]; - m_A47 += go[56]; - m_A46 += go[57]; - m_A45 += go[58]; - m_A44 += go[59]; - double RHS18 = Idr[56]; - RHS18 += Idr[57]; - RHS18 += Idr[58]; - RHS18 += Idr[59]; - RHS18 += Idr[60]; - RHS18 -= go[60] * *cnV[60]; - m_A50 += gt[61]; - m_A50 += gt[62]; - m_A51 += go[61]; - m_A52 += go[62]; - double RHS19 = Idr[61]; - RHS19 += Idr[62]; - m_A55 += gt[63]; - m_A55 += gt[64]; - m_A55 += gt[65]; - m_A54 += go[63]; - m_A53 += go[64]; - double RHS20 = Idr[63]; - RHS20 += Idr[64]; - RHS20 += Idr[65]; - RHS20 -= go[65] * *cnV[65]; - m_A58 += gt[66]; - m_A58 += gt[67]; - m_A58 += gt[68]; - m_A59 += go[66]; - m_A57 += go[67]; - double RHS21 = Idr[66]; - RHS21 += Idr[67]; - RHS21 += Idr[68]; - RHS21 -= go[68] * *cnV[68]; - m_A62 += gt[69]; - m_A62 += gt[70]; - m_A62 += gt[71]; - m_A61 += go[69]; - m_A60 += go[70]; - double RHS22 = Idr[69]; - RHS22 += Idr[70]; - RHS22 += Idr[71]; - RHS22 -= go[71] * *cnV[71]; - m_A65 += gt[72]; - m_A65 += gt[73]; - m_A65 += gt[74]; - m_A65 += gt[75]; - m_A65 += gt[76]; - m_A65 += gt[77]; - m_A65 += gt[78]; - m_A64 += go[72]; - m_A66 += go[73]; - double RHS23 = Idr[72]; - RHS23 += Idr[73]; - RHS23 += Idr[74]; - RHS23 += Idr[75]; - RHS23 += Idr[76]; - RHS23 += Idr[77]; - RHS23 += Idr[78]; - RHS23 -= go[74] * *cnV[74]; - RHS23 -= go[75] * *cnV[75]; - RHS23 -= go[76] * *cnV[76]; - RHS23 -= go[77] * *cnV[77]; - RHS23 -= go[78] * *cnV[78]; - m_A68 += gt[79]; - m_A68 += gt[80]; - m_A69 += go[79]; - m_A67 += go[80]; - double RHS24 = Idr[79]; - RHS24 += Idr[80]; - m_A73 += gt[81]; - m_A73 += gt[82]; - m_A73 += gt[83]; - m_A73 += gt[84]; - m_A73 += gt[85]; - m_A72 += go[81]; - m_A70 += go[82]; - m_A71 += go[83]; - double RHS25 = Idr[81]; - RHS25 += Idr[82]; - RHS25 += Idr[83]; - RHS25 += Idr[84]; - RHS25 += Idr[85]; - RHS25 -= go[84] * *cnV[84]; - RHS25 -= go[85] * *cnV[85]; - m_A76 += gt[86]; - m_A76 += gt[87]; - m_A77 += go[86]; - m_A75 += go[87]; - double RHS26 = Idr[86]; - RHS26 += Idr[87]; - m_A79 += gt[88]; - m_A79 += gt[89]; - m_A79 += gt[90]; - m_A79 += gt[91]; - m_A79 += gt[92]; - m_A78 += go[88]; - m_A80 += go[89]; - m_A80 += go[90]; - double RHS27 = Idr[88]; - RHS27 += Idr[89]; - RHS27 += Idr[90]; - RHS27 += Idr[91]; - RHS27 += Idr[92]; - RHS27 -= go[91] * *cnV[91]; - RHS27 -= go[92] * *cnV[92]; - m_A95 += gt[93]; - m_A95 += gt[94]; - m_A95 += gt[95]; - m_A95 += gt[96]; - m_A95 += gt[97]; - m_A95 += gt[98]; - m_A95 += gt[99]; - m_A95 += gt[100]; - m_A95 += gt[101]; - m_A95 += gt[102]; - m_A95 += gt[103]; - m_A87 += go[93]; - m_A94 += go[94]; - m_A94 += go[95]; - m_A93 += go[96]; - m_A91 += go[97]; - m_A84 += go[98]; - m_A83 += go[99]; - m_A82 += go[100]; - m_A81 += go[101]; - m_A89 += go[102]; - double RHS28 = Idr[93]; - RHS28 += Idr[94]; - RHS28 += Idr[95]; - RHS28 += Idr[96]; - RHS28 += Idr[97]; - RHS28 += Idr[98]; - RHS28 += Idr[99]; - RHS28 += Idr[100]; - RHS28 += Idr[101]; - RHS28 += Idr[102]; - RHS28 += Idr[103]; - RHS28 -= go[103] * *cnV[103]; + RHS7 += Idr[25]; + RHS7 += Idr[26]; + RHS7 += Idr[27]; + RHS7 += Idr[28]; + RHS7 -= go[26] * *cnV[26]; + RHS7 -= go[27] * *cnV[27]; + RHS7 -= go[28] * *cnV[28]; + m_A25 += gt[29]; + m_A25 += gt[30]; + m_A25 += gt[31]; + m_A26 += go[29]; + m_A27 += go[30]; + double RHS8 = Idr[29]; + RHS8 += Idr[30]; + RHS8 += Idr[31]; + RHS8 -= go[31] * *cnV[31]; + m_A28 += gt[32]; + m_A28 += gt[33]; + m_A29 += go[32]; + double RHS9 = Idr[32]; + RHS9 += Idr[33]; + RHS9 -= go[33] * *cnV[33]; + m_A30 += gt[34]; + m_A30 += gt[35]; + m_A30 += gt[36]; + m_A30 += gt[37]; + m_A31 += go[34]; + double RHS10 = Idr[34]; + RHS10 += Idr[35]; + RHS10 += Idr[36]; + RHS10 += Idr[37]; + RHS10 -= go[35] * *cnV[35]; + RHS10 -= go[36] * *cnV[36]; + RHS10 -= go[37] * *cnV[37]; + m_A32 += gt[38]; + m_A32 += gt[39]; + m_A33 += go[38]; + double RHS11 = Idr[38]; + RHS11 += Idr[39]; + RHS11 -= go[39] * *cnV[39]; + m_A36 += gt[40]; + m_A36 += gt[41]; + m_A36 += gt[42]; + m_A36 += gt[43]; + m_A35 += go[40]; + m_A34 += go[41]; + double RHS12 = Idr[40]; + RHS12 += Idr[41]; + RHS12 += Idr[42]; + RHS12 += Idr[43]; + RHS12 -= go[42] * *cnV[42]; + RHS12 -= go[43] * *cnV[43]; + m_A40 += gt[44]; + m_A40 += gt[45]; + m_A40 += gt[46]; + m_A39 += go[44]; + m_A41 += go[45]; + double RHS13 = Idr[44]; + RHS13 += Idr[45]; + RHS13 += Idr[46]; + RHS13 -= go[46] * *cnV[46]; + m_A45 += gt[47]; + m_A45 += gt[48]; + m_A45 += gt[49]; + m_A45 += gt[50]; + m_A43 += go[47]; + m_A42 += go[48]; + double RHS14 = Idr[47]; + RHS14 += Idr[48]; + RHS14 += Idr[49]; + RHS14 += Idr[50]; + RHS14 -= go[49] * *cnV[49]; + RHS14 -= go[50] * *cnV[50]; + m_A51 += gt[51]; + m_A51 += gt[52]; + m_A51 += gt[53]; + m_A51 += gt[54]; + m_A50 += go[51]; + m_A52 += go[52]; + double RHS15 = Idr[51]; + RHS15 += Idr[52]; + RHS15 += Idr[53]; + RHS15 += Idr[54]; + RHS15 -= go[53] * *cnV[53]; + RHS15 -= go[54] * *cnV[54]; + m_A57 += gt[55]; + m_A57 += gt[56]; + m_A57 += gt[57]; + m_A57 += gt[58]; + m_A57 += gt[59]; + m_A57 += gt[60]; + m_A60 += go[55]; + m_A55 += go[56]; + m_A54 += go[57]; + m_A53 += go[58]; + m_A59 += go[59]; + double RHS16 = Idr[55]; + RHS16 += Idr[56]; + RHS16 += Idr[57]; + RHS16 += Idr[58]; + RHS16 += Idr[59]; + RHS16 += Idr[60]; + RHS16 -= go[60] * *cnV[60]; + m_A64 += gt[61]; + m_A64 += gt[62]; + m_A64 += gt[63]; + m_A64 += gt[64]; + m_A63 += go[61]; + m_A62 += go[62]; + m_A65 += go[63]; + double RHS17 = Idr[61]; + RHS17 += Idr[62]; + RHS17 += Idr[63]; + RHS17 += Idr[64]; + RHS17 -= go[64] * *cnV[64]; + m_A71 += gt[65]; + m_A71 += gt[66]; + m_A71 += gt[67]; + m_A71 += gt[68]; + m_A74 += go[65]; + m_A67 += go[66]; + m_A66 += go[67]; + double RHS18 = Idr[65]; + RHS18 += Idr[66]; + RHS18 += Idr[67]; + RHS18 += Idr[68]; + RHS18 -= go[68] * *cnV[68]; + m_A81 += gt[69]; + m_A81 += gt[70]; + m_A81 += gt[71]; + m_A81 += gt[72]; + m_A76 += go[69]; + m_A77 += go[70]; + m_A79 += go[71]; + m_A78 += go[72]; + double RHS19 = Idr[69]; + RHS19 += Idr[70]; + RHS19 += Idr[71]; + RHS19 += Idr[72]; + m_A92 += gt[73]; + m_A92 += gt[74]; + m_A92 += gt[75]; + m_A92 += gt[76]; + m_A92 += gt[77]; + m_A92 += gt[78]; + m_A92 += gt[79]; + m_A88 += go[73]; + m_A86 += go[74]; + m_A94 += go[75]; + m_A85 += go[76]; + m_A89 += go[77]; + double RHS20 = Idr[73]; + RHS20 += Idr[74]; + RHS20 += Idr[75]; + RHS20 += Idr[76]; + RHS20 += Idr[77]; + RHS20 += Idr[78]; + RHS20 += Idr[79]; + RHS20 -= go[78] * *cnV[78]; + RHS20 -= go[79] * *cnV[79]; + m_A100 += gt[80]; + m_A100 += gt[81]; + m_A100 += gt[82]; + m_A100 += gt[83]; + m_A100 += gt[84]; + m_A96 += go[80]; + m_A95 += go[81]; + m_A97 += go[82]; + double RHS21 = Idr[80]; + RHS21 += Idr[81]; + RHS21 += Idr[82]; + RHS21 += Idr[83]; + RHS21 += Idr[84]; + RHS21 -= go[83] * *cnV[83]; + RHS21 -= go[84] * *cnV[84]; + m_A112 += gt[85]; + m_A112 += gt[86]; + m_A112 += gt[87]; + m_A112 += gt[88]; + m_A112 += gt[89]; + m_A112 += gt[90]; + m_A107 += go[85]; + m_A110 += go[86]; + m_A103 += go[87]; + m_A104 += go[88]; + m_A102 += go[89]; + double RHS22 = Idr[85]; + RHS22 += Idr[86]; + RHS22 += Idr[87]; + RHS22 += Idr[88]; + RHS22 += Idr[89]; + RHS22 += Idr[90]; + RHS22 -= go[90] * *cnV[90]; const double f0 = 1.0 / m_A0; - const double f0_21 = -f0 * m_A57; - m_A58 += m_A1 * f0_21; - RHS21 += f0_21 * RHS0; + const double f0_12 = -f0 * m_A34; + m_A36 += m_A1 * f0_12; + RHS12 += f0_12 * RHS0; const double f1 = 1.0 / m_A2; - const double f1_17 = -f1 * m_A38; - m_A42 += m_A3 * f1_17; - RHS17 += f1_17 * RHS1; - const double f2 = 1.0 / m_A4; - const double f2_17 = -f2 * m_A39; - m_A42 += m_A5 * f2_17; - RHS17 += f2_17 * RHS2; - const double f3 = 1.0 / m_A6; - const double f3_17 = -f3 * m_A40; - m_A42 += m_A7 * f3_17; - RHS17 += f3_17 * RHS3; - const double f4 = 1.0 / m_A8; - const double f4_18 = -f4 * m_A44; - m_A48 += m_A9 * f4_18; - RHS18 += f4_18 * RHS4; - const double f5 = 1.0 / m_A10; - const double f5_20 = -f5 * m_A53; - m_A55 += m_A11 * f5_20; - RHS20 += f5_20 * RHS5; - const double f6 = 1.0 / m_A12; - const double f6_22 = -f6 * m_A60; - m_A62 += m_A13 * f6_22; + const double f1_12 = -f1 * m_A35; + m_A36 += m_A3 * f1_12; + m_A37 += m_A4 * f1_12; + m_A38 += m_A5 * f1_12; + RHS12 += f1_12 * RHS1; + const double f1_14 = -f1 * m_A42; + m_A44 += m_A3 * f1_14; + m_A45 += m_A4 * f1_14; + m_A47 += m_A5 * f1_14; + RHS14 += f1_14 * RHS1; + const double f1_18 = -f1 * m_A66; + m_A68 += m_A3 * f1_18; + m_A69 += m_A4 * f1_18; + m_A71 += m_A5 * f1_18; + RHS18 += f1_18 * RHS1; + const double f2 = 1.0 / m_A6; + const double f2_13 = -f2 * m_A39; + m_A40 += m_A7 * f2_13; + RHS13 += f2_13 * RHS2; + const double f3 = 1.0 / m_A8; + const double f3_19 = -f3 * m_A76; + m_A81 += m_A9 * f3_19; + RHS19 += f3_19 * RHS3; + const double f4 = 1.0 / m_A10; + const double f4_16 = -f4 * m_A53; + m_A57 += m_A11 * f4_16; + m_A59 += m_A12 * f4_16; + RHS16 += f4_16 * RHS4; + const double f4_19 = -f4 * m_A77; + m_A79 += m_A11 * f4_19; + m_A81 += m_A12 * f4_19; + RHS19 += f4_19 * RHS4; + const double f5 = 1.0 / m_A13; + const double f5_15 = -f5 * m_A50; + m_A51 += m_A14 * f5_15; + RHS15 += f5_15 * RHS5; + const double f6 = 1.0 / m_A15; + const double f6_14 = -f6 * m_A43; + m_A45 += m_A16 * f6_14; + m_A46 += m_A17 * f6_14; + m_A48 += m_A18 * f6_14; + m_A49 += m_A19 * f6_14; + RHS14 += f6_14 * RHS6; + const double f6_16 = -f6 * m_A54; + m_A56 += m_A16 * f6_16; + m_A57 += m_A17 * f6_16; + m_A60 += m_A18 * f6_16; + m_A61 += m_A19 * f6_16; + RHS16 += f6_16 * RHS6; + const double f6_20 = -f6 * m_A85; + m_A87 += m_A16 * f6_20; + m_A89 += m_A17 * f6_20; + m_A92 += m_A18 * f6_20; + m_A94 += m_A19 * f6_20; + RHS20 += f6_20 * RHS6; + const double f6_22 = -f6 * m_A102; + m_A105 += m_A16 * f6_22; + m_A106 += m_A17 * f6_22; + m_A110 += m_A18 * f6_22; + m_A112 += m_A19 * f6_22; RHS22 += f6_22 * RHS6; - const double f7 = 1.0 / m_A14; - const double f7_18 = -f7 * m_A45; - m_A48 += m_A15 * f7_18; + const double f7 = 1.0 / m_A20; + const double f7_16 = -f7 * m_A55; + m_A57 += m_A21 * f7_16; + m_A58 += m_A22 * f7_16; + m_A60 += m_A23 * f7_16; + m_A61 += m_A24 * f7_16; + RHS16 += f7_16 * RHS7; + const double f7_18 = -f7 * m_A67; + m_A70 += m_A21 * f7_18; + m_A71 += m_A22 * f7_18; + m_A73 += m_A23 * f7_18; + m_A75 += m_A24 * f7_18; RHS18 += f7_18 * RHS7; - const double f8 = 1.0 / m_A16; - const double f8_18 = -f8 * m_A46; - m_A48 += m_A17 * f8_18; - RHS18 += f8_18 * RHS8; - const double f9 = 1.0 / m_A18; - const double f9_24 = -f9 * m_A67; - m_A68 += m_A19 * f9_24; - RHS24 += f9_24 * RHS9; - const double f10 = 1.0 / m_A20; - const double f10_26 = -f10 * m_A75; - m_A76 += m_A21 * f10_26; - RHS26 += f10_26 * RHS10; - const double f11 = 1.0 / m_A22; - const double f11_17 = -f11 * m_A41; - m_A42 += m_A23 * f11_17; - m_A43 += m_A24 * f11_17; - RHS17 += f11_17 * RHS11; - const double f11_28 = -f11 * m_A81; - m_A85 += m_A23 * f11_28; - m_A95 += m_A24 * f11_28; - RHS28 += f11_28 * RHS11; - const double f12 = 1.0 / m_A25; - const double f12_18 = -f12 * m_A47; - m_A48 += m_A26 * f12_18; - m_A49 += m_A27 * f12_18; + const double f7_20 = -f7 * m_A86; + m_A89 += m_A21 * f7_20; + m_A90 += m_A22 * f7_20; + m_A92 += m_A23 * f7_20; + m_A94 += m_A24 * f7_20; + RHS20 += f7_20 * RHS7; + const double f7_22 = -f7 * m_A103; + m_A106 += m_A21 * f7_22; + m_A108 += m_A22 * f7_22; + m_A110 += m_A23 * f7_22; + m_A112 += m_A24 * f7_22; + RHS22 += f7_22 * RHS7; + const double f8 = 1.0 / m_A25; + const double f8_17 = -f8 * m_A62; + m_A64 += m_A26 * f8_17; + m_A65 += m_A27 * f8_17; + RHS17 += f8_17 * RHS8; + const double f8_22 = -f8 * m_A104; + m_A107 += m_A26 * f8_22; + m_A112 += m_A27 * f8_22; + RHS22 += f8_22 * RHS8; + const double f9 = 1.0 / m_A28; + const double f9_17 = -f9 * m_A63; + m_A64 += m_A29 * f9_17; + RHS17 += f9_17 * RHS9; + const double f10 = 1.0 / m_A30; + const double f10_21 = -f10 * m_A95; + m_A100 += m_A31 * f10_21; + RHS21 += f10_21 * RHS10; + const double f11 = 1.0 / m_A32; + const double f11_21 = -f11 * m_A96; + m_A100 += m_A33 * f11_21; + RHS21 += f11_21 * RHS11; + const double f12 = 1.0 / m_A36; + const double f12_14 = -f12 * m_A44; + m_A45 += m_A37 * f12_14; + m_A47 += m_A38 * f12_14; + RHS14 += f12_14 * RHS12; + const double f12_18 = -f12 * m_A68; + m_A69 += m_A37 * f12_18; + m_A71 += m_A38 * f12_18; RHS18 += f12_18 * RHS12; - const double f12_28 = -f12 * m_A82; - m_A86 += m_A26 * f12_28; - m_A95 += m_A27 * f12_28; - RHS28 += f12_28 * RHS12; - const double f13 = 1.0 / m_A28; - const double f13_20 = -f13 * m_A54; - m_A55 += m_A29 * f13_20; - m_A56 += m_A30 * f13_20; - RHS20 += f13_20 * RHS13; - const double f13_28 = -f13 * m_A83; - m_A88 += m_A29 * f13_28; - m_A95 += m_A30 * f13_28; - RHS28 += f13_28 * RHS13; - const double f14 = 1.0 / m_A31; - const double f14_23 = -f14 * m_A64; - m_A66 += m_A32 * f14_23; - RHS23 += f14_23 * RHS14; - const double f14_25 = -f14 * m_A70; - m_A73 += m_A32 * f14_25; - RHS25 += f14_25 * RHS14; - const double f15 = 1.0 / m_A33; - const double f15_22 = -f15 * m_A61; - m_A62 += m_A34 * f15_22; - m_A63 += m_A35 * f15_22; - RHS22 += f15_22 * RHS15; - const double f15_28 = -f15 * m_A84; - m_A90 += m_A34 * f15_28; - m_A95 += m_A35 * f15_28; - RHS28 += f15_28 * RHS15; - const double f16 = 1.0 / m_A36; - const double f16_27 = -f16 * m_A78; - m_A80 += m_A37 * f16_27; - RHS27 += f16_27 * RHS16; - const double f17 = 1.0 / m_A42; - const double f17_28 = -f17 * m_A85; - m_A95 += m_A43 * f17_28; - RHS28 += f17_28 * RHS17; - const double f18 = 1.0 / m_A48; - const double f18_28 = -f18 * m_A86; - m_A95 += m_A49 * f18_28; - RHS28 += f18_28 * RHS18; - const double f19 = 1.0 / m_A50; - const double f19_25 = -f19 * m_A71; - m_A73 += m_A51 * f19_25; - m_A74 += m_A52 * f19_25; - RHS25 += f19_25 * RHS19; - const double f19_28 = -f19 * m_A87; - m_A92 += m_A51 * f19_28; - m_A95 += m_A52 * f19_28; - RHS28 += f19_28 * RHS19; - const double f20 = 1.0 / m_A55; - const double f20_28 = -f20 * m_A88; - m_A95 += m_A56 * f20_28; - RHS28 += f20_28 * RHS20; - const double f21 = 1.0 / m_A58; - const double f21_28 = -f21 * m_A89; - m_A95 += m_A59 * f21_28; - RHS28 += f21_28 * RHS21; - const double f22 = 1.0 / m_A62; - const double f22_28 = -f22 * m_A90; - m_A95 += m_A63 * f22_28; - RHS28 += f22_28 * RHS22; - const double f23 = 1.0 / m_A65; - const double f23_25 = -f23 * m_A72; - m_A73 += m_A66 * f23_25; - RHS25 += f23_25 * RHS23; - const double f24 = 1.0 / m_A68; - const double f24_28 = -f24 * m_A91; - m_A95 += m_A69 * f24_28; - RHS28 += f24_28 * RHS24; - const double f25 = 1.0 / m_A73; - const double f25_28 = -f25 * m_A92; - m_A95 += m_A74 * f25_28; - RHS28 += f25_28 * RHS25; - const double f26 = 1.0 / m_A76; - const double f26_28 = -f26 * m_A93; - m_A95 += m_A77 * f26_28; - RHS28 += f26_28 * RHS26; - const double f27 = 1.0 / m_A79; - const double f27_28 = -f27 * m_A94; - m_A95 += m_A80 * f27_28; - RHS28 += f27_28 * RHS27; - V[28] = RHS28 / m_A95; - double tmp27 = 0.0; - tmp27 += m_A80 * V[28]; - V[27] = (RHS27 - tmp27) / m_A79; - double tmp26 = 0.0; - tmp26 += m_A77 * V[28]; - V[26] = (RHS26 - tmp26) / m_A76; - double tmp25 = 0.0; - tmp25 += m_A74 * V[28]; - V[25] = (RHS25 - tmp25) / m_A73; - double tmp24 = 0.0; - tmp24 += m_A69 * V[28]; - V[24] = (RHS24 - tmp24) / m_A68; - double tmp23 = 0.0; - tmp23 += m_A66 * V[25]; - V[23] = (RHS23 - tmp23) / m_A65; - double tmp22 = 0.0; - tmp22 += m_A63 * V[28]; - V[22] = (RHS22 - tmp22) / m_A62; + const double f13 = 1.0 / m_A40; + const double f13_19 = -f13 * m_A78; + m_A81 += m_A41 * f13_19; + RHS19 += f13_19 * RHS13; + const double f14 = 1.0 / m_A45; + const double f14_16 = -f14 * m_A56; + m_A57 += m_A46 * f14_16; + m_A58 += m_A47 * f14_16; + m_A60 += m_A48 * f14_16; + m_A61 += m_A49 * f14_16; + RHS16 += f14_16 * RHS14; + const double f14_18 = -f14 * m_A69; + m_A70 += m_A46 * f14_18; + m_A71 += m_A47 * f14_18; + m_A73 += m_A48 * f14_18; + m_A75 += m_A49 * f14_18; + RHS18 += f14_18 * RHS14; + const double f14_20 = -f14 * m_A87; + m_A89 += m_A46 * f14_20; + m_A90 += m_A47 * f14_20; + m_A92 += m_A48 * f14_20; + m_A94 += m_A49 * f14_20; + RHS20 += f14_20 * RHS14; + const double f14_22 = -f14 * m_A105; + m_A106 += m_A46 * f14_22; + m_A108 += m_A47 * f14_22; + m_A110 += m_A48 * f14_22; + m_A112 += m_A49 * f14_22; + RHS22 += f14_22 * RHS14; + const double f15 = 1.0 / m_A51; + const double f15_20 = -f15 * m_A88; + m_A92 += m_A52 * f15_20; + RHS20 += f15_20 * RHS15; + const double f16 = 1.0 / m_A57; + const double f16_18 = -f16 * m_A70; + m_A71 += m_A58 * f16_18; + m_A72 += m_A59 * f16_18; + m_A73 += m_A60 * f16_18; + m_A75 += m_A61 * f16_18; + RHS18 += f16_18 * RHS16; + const double f16_19 = -f16 * m_A79; + m_A80 += m_A58 * f16_19; + m_A81 += m_A59 * f16_19; + m_A82 += m_A60 * f16_19; + m_A84 += m_A61 * f16_19; + RHS19 += f16_19 * RHS16; + const double f16_20 = -f16 * m_A89; + m_A90 += m_A58 * f16_20; + m_A91 += m_A59 * f16_20; + m_A92 += m_A60 * f16_20; + m_A94 += m_A61 * f16_20; + RHS20 += f16_20 * RHS16; + const double f16_22 = -f16 * m_A106; + m_A108 += m_A58 * f16_22; + m_A109 += m_A59 * f16_22; + m_A110 += m_A60 * f16_22; + m_A112 += m_A61 * f16_22; + RHS22 += f16_22 * RHS16; + const double f17 = 1.0 / m_A64; + const double f17_22 = -f17 * m_A107; + m_A112 += m_A65 * f17_22; + RHS22 += f17_22 * RHS17; + const double f18 = 1.0 / m_A71; + const double f18_19 = -f18 * m_A80; + m_A81 += m_A72 * f18_19; + m_A82 += m_A73 * f18_19; + m_A83 += m_A74 * f18_19; + m_A84 += m_A75 * f18_19; + RHS19 += f18_19 * RHS18; + const double f18_20 = -f18 * m_A90; + m_A91 += m_A72 * f18_20; + m_A92 += m_A73 * f18_20; + m_A93 += m_A74 * f18_20; + m_A94 += m_A75 * f18_20; + RHS20 += f18_20 * RHS18; + const double f18_21 = -f18 * m_A97; + m_A98 += m_A72 * f18_21; + m_A99 += m_A73 * f18_21; + m_A100 += m_A74 * f18_21; + m_A101 += m_A75 * f18_21; + RHS21 += f18_21 * RHS18; + const double f18_22 = -f18 * m_A108; + m_A109 += m_A72 * f18_22; + m_A110 += m_A73 * f18_22; + m_A111 += m_A74 * f18_22; + m_A112 += m_A75 * f18_22; + RHS22 += f18_22 * RHS18; + const double f19 = 1.0 / m_A81; + const double f19_20 = -f19 * m_A91; + m_A92 += m_A82 * f19_20; + m_A93 += m_A83 * f19_20; + m_A94 += m_A84 * f19_20; + RHS20 += f19_20 * RHS19; + const double f19_21 = -f19 * m_A98; + m_A99 += m_A82 * f19_21; + m_A100 += m_A83 * f19_21; + m_A101 += m_A84 * f19_21; + RHS21 += f19_21 * RHS19; + const double f19_22 = -f19 * m_A109; + m_A110 += m_A82 * f19_22; + m_A111 += m_A83 * f19_22; + m_A112 += m_A84 * f19_22; + RHS22 += f19_22 * RHS19; + const double f20 = 1.0 / m_A92; + const double f20_21 = -f20 * m_A99; + m_A100 += m_A93 * f20_21; + m_A101 += m_A94 * f20_21; + RHS21 += f20_21 * RHS20; + const double f20_22 = -f20 * m_A110; + m_A111 += m_A93 * f20_22; + m_A112 += m_A94 * f20_22; + RHS22 += f20_22 * RHS20; + const double f21 = 1.0 / m_A100; + const double f21_22 = -f21 * m_A111; + m_A112 += m_A101 * f21_22; + RHS22 += f21_22 * RHS21; + V[22] = RHS22 / m_A112; double tmp21 = 0.0; - tmp21 += m_A59 * V[28]; - V[21] = (RHS21 - tmp21) / m_A58; + tmp21 += m_A101 * V[22]; + V[21] = (RHS21 - tmp21) / m_A100; double tmp20 = 0.0; - tmp20 += m_A56 * V[28]; - V[20] = (RHS20 - tmp20) / m_A55; + tmp20 += m_A93 * V[21]; + tmp20 += m_A94 * V[22]; + V[20] = (RHS20 - tmp20) / m_A92; double tmp19 = 0.0; - tmp19 += m_A51 * V[25]; - tmp19 += m_A52 * V[28]; - V[19] = (RHS19 - tmp19) / m_A50; + tmp19 += m_A82 * V[20]; + tmp19 += m_A83 * V[21]; + tmp19 += m_A84 * V[22]; + V[19] = (RHS19 - tmp19) / m_A81; double tmp18 = 0.0; - tmp18 += m_A49 * V[28]; - V[18] = (RHS18 - tmp18) / m_A48; + tmp18 += m_A72 * V[19]; + tmp18 += m_A73 * V[20]; + tmp18 += m_A74 * V[21]; + tmp18 += m_A75 * V[22]; + V[18] = (RHS18 - tmp18) / m_A71; double tmp17 = 0.0; - tmp17 += m_A43 * V[28]; - V[17] = (RHS17 - tmp17) / m_A42; + tmp17 += m_A65 * V[22]; + V[17] = (RHS17 - tmp17) / m_A64; double tmp16 = 0.0; - tmp16 += m_A37 * V[28]; - V[16] = (RHS16 - tmp16) / m_A36; + tmp16 += m_A58 * V[18]; + tmp16 += m_A59 * V[19]; + tmp16 += m_A60 * V[20]; + tmp16 += m_A61 * V[22]; + V[16] = (RHS16 - tmp16) / m_A57; double tmp15 = 0.0; - tmp15 += m_A34 * V[22]; - tmp15 += m_A35 * V[28]; - V[15] = (RHS15 - tmp15) / m_A33; + tmp15 += m_A52 * V[20]; + V[15] = (RHS15 - tmp15) / m_A51; double tmp14 = 0.0; - tmp14 += m_A32 * V[25]; - V[14] = (RHS14 - tmp14) / m_A31; + tmp14 += m_A46 * V[16]; + tmp14 += m_A47 * V[18]; + tmp14 += m_A48 * V[20]; + tmp14 += m_A49 * V[22]; + V[14] = (RHS14 - tmp14) / m_A45; double tmp13 = 0.0; - tmp13 += m_A29 * V[20]; - tmp13 += m_A30 * V[28]; - V[13] = (RHS13 - tmp13) / m_A28; + tmp13 += m_A41 * V[19]; + V[13] = (RHS13 - tmp13) / m_A40; double tmp12 = 0.0; - tmp12 += m_A26 * V[18]; - tmp12 += m_A27 * V[28]; - V[12] = (RHS12 - tmp12) / m_A25; + tmp12 += m_A37 * V[14]; + tmp12 += m_A38 * V[18]; + V[12] = (RHS12 - tmp12) / m_A36; double tmp11 = 0.0; - tmp11 += m_A23 * V[17]; - tmp11 += m_A24 * V[28]; - V[11] = (RHS11 - tmp11) / m_A22; + tmp11 += m_A33 * V[21]; + V[11] = (RHS11 - tmp11) / m_A32; double tmp10 = 0.0; - tmp10 += m_A21 * V[26]; - V[10] = (RHS10 - tmp10) / m_A20; + tmp10 += m_A31 * V[21]; + V[10] = (RHS10 - tmp10) / m_A30; double tmp9 = 0.0; - tmp9 += m_A19 * V[24]; - V[9] = (RHS9 - tmp9) / m_A18; + tmp9 += m_A29 * V[17]; + V[9] = (RHS9 - tmp9) / m_A28; double tmp8 = 0.0; - tmp8 += m_A17 * V[18]; - V[8] = (RHS8 - tmp8) / m_A16; + tmp8 += m_A26 * V[17]; + tmp8 += m_A27 * V[22]; + V[8] = (RHS8 - tmp8) / m_A25; double tmp7 = 0.0; - tmp7 += m_A15 * V[18]; - V[7] = (RHS7 - tmp7) / m_A14; + tmp7 += m_A21 * V[16]; + tmp7 += m_A22 * V[18]; + tmp7 += m_A23 * V[20]; + tmp7 += m_A24 * V[22]; + V[7] = (RHS7 - tmp7) / m_A20; double tmp6 = 0.0; - tmp6 += m_A13 * V[22]; - V[6] = (RHS6 - tmp6) / m_A12; + tmp6 += m_A16 * V[14]; + tmp6 += m_A17 * V[16]; + tmp6 += m_A18 * V[20]; + tmp6 += m_A19 * V[22]; + V[6] = (RHS6 - tmp6) / m_A15; double tmp5 = 0.0; - tmp5 += m_A11 * V[20]; - V[5] = (RHS5 - tmp5) / m_A10; + tmp5 += m_A14 * V[15]; + V[5] = (RHS5 - tmp5) / m_A13; double tmp4 = 0.0; - tmp4 += m_A9 * V[18]; - V[4] = (RHS4 - tmp4) / m_A8; + tmp4 += m_A11 * V[16]; + tmp4 += m_A12 * V[19]; + V[4] = (RHS4 - tmp4) / m_A10; double tmp3 = 0.0; - tmp3 += m_A7 * V[17]; - V[3] = (RHS3 - tmp3) / m_A6; + tmp3 += m_A9 * V[19]; + V[3] = (RHS3 - tmp3) / m_A8; double tmp2 = 0.0; - tmp2 += m_A5 * V[17]; - V[2] = (RHS2 - tmp2) / m_A4; + tmp2 += m_A7 * V[13]; + V[2] = (RHS2 - tmp2) / m_A6; double tmp1 = 0.0; - tmp1 += m_A3 * V[17]; + tmp1 += m_A3 * V[12]; + tmp1 += m_A4 * V[14]; + tmp1 += m_A5 * V[18]; V[1] = (RHS1 - tmp1) / m_A2; double tmp0 = 0.0; - tmp0 += m_A1 * V[21]; + tmp0 += m_A1 * V[12]; V[0] = (RHS0 - tmp0) / m_A0; } @@ -27427,6 +29322,229 @@ static void nl_gcr_bff07f8d339f7cc4_89_double_double(double * __restrict V, cons V[0] = (RHS0 - tmp0) / m_A0; } +// starcrus +static void nl_gcr_c2e616f3de30f15b_31_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A0 += gt[2]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 += Idr[2]; + RHS0 -= go[1] * *cnV[1]; + RHS0 -= go[2] * *cnV[2]; + m_A2 += gt[3]; + m_A2 += gt[4]; + m_A3 += go[3]; + double RHS1 = Idr[3]; + RHS1 += Idr[4]; + RHS1 -= go[4] * *cnV[4]; + m_A4 += gt[5]; + m_A4 += gt[6]; + m_A5 += go[5]; + double RHS2 = Idr[5]; + RHS2 += Idr[6]; + RHS2 -= go[6] * *cnV[6]; + m_A6 += gt[7]; + m_A6 += gt[8]; + m_A7 += go[7]; + double RHS3 = Idr[7]; + RHS3 += Idr[8]; + RHS3 -= go[8] * *cnV[8]; + m_A8 += gt[9]; + m_A8 += gt[10]; + m_A9 += go[9]; + double RHS4 = Idr[9]; + RHS4 += Idr[10]; + RHS4 -= go[10] * *cnV[10]; + m_A10 += gt[11]; + m_A10 += gt[12]; + m_A10 += gt[13]; + m_A10 += gt[14]; + m_A12 += go[11]; + m_A10 += go[12]; + m_A10 += go[13]; + m_A11 += go[14]; + double RHS5 = Idr[11]; + RHS5 += Idr[12]; + RHS5 += Idr[13]; + RHS5 += Idr[14]; + m_A14 += gt[15]; + m_A14 += gt[16]; + m_A14 += gt[17]; + m_A14 += gt[18]; + m_A14 += gt[19]; + m_A14 += gt[20]; + m_A14 += gt[21]; + m_A13 += go[15]; + m_A15 += go[16]; + double RHS6 = Idr[15]; + RHS6 += Idr[16]; + RHS6 += Idr[17]; + RHS6 += Idr[18]; + RHS6 += Idr[19]; + RHS6 += Idr[20]; + RHS6 += Idr[21]; + RHS6 -= go[17] * *cnV[17]; + RHS6 -= go[18] * *cnV[18]; + RHS6 -= go[19] * *cnV[19]; + RHS6 -= go[20] * *cnV[20]; + RHS6 -= go[21] * *cnV[21]; + m_A16 += gt[22]; + m_A16 += gt[23]; + m_A17 += go[22]; + double RHS7 = Idr[22]; + RHS7 += Idr[23]; + RHS7 -= go[23] * *cnV[23]; + m_A24 += gt[24]; + m_A24 += gt[25]; + m_A24 += gt[26]; + m_A24 += gt[27]; + m_A24 += gt[28]; + m_A24 += gt[29]; + m_A24 += gt[30]; + m_A22 += go[24]; + m_A21 += go[25]; + m_A20 += go[26]; + m_A19 += go[27]; + m_A18 += go[28]; + m_A25 += go[29]; + m_A23 += go[30]; + double RHS8 = Idr[24]; + RHS8 += Idr[25]; + RHS8 += Idr[26]; + RHS8 += Idr[27]; + RHS8 += Idr[28]; + RHS8 += Idr[29]; + RHS8 += Idr[30]; + m_A30 += gt[31]; + m_A30 += gt[32]; + m_A30 += gt[33]; + m_A30 += gt[34]; + m_A30 += gt[35]; + m_A30 += gt[36]; + m_A27 += go[31]; + m_A28 += go[32]; + m_A26 += go[33]; + m_A29 += go[34]; + double RHS9 = Idr[31]; + RHS9 += Idr[32]; + RHS9 += Idr[33]; + RHS9 += Idr[34]; + RHS9 += Idr[35]; + RHS9 += Idr[36]; + RHS9 -= go[35] * *cnV[35]; + RHS9 -= go[36] * *cnV[36]; + const double f0 = 1.0 / m_A0; + const double f0_6 = -f0 * m_A13; + m_A15 += m_A1 * f0_6; + RHS6 += f0_6 * RHS0; + const double f0_8 = -f0 * m_A18; + m_A24 += m_A1 * f0_8; + RHS8 += f0_8 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_8 = -f1 * m_A19; + m_A24 += m_A3 * f1_8; + RHS8 += f1_8 * RHS1; + const double f2 = 1.0 / m_A4; + const double f2_8 = -f2 * m_A20; + m_A24 += m_A5 * f2_8; + RHS8 += f2_8 * RHS2; + const double f3 = 1.0 / m_A6; + const double f3_8 = -f3 * m_A21; + m_A24 += m_A7 * f3_8; + RHS8 += f3_8 * RHS3; + const double f4 = 1.0 / m_A8; + const double f4_8 = -f4 * m_A22; + m_A24 += m_A9 * f4_8; + RHS8 += f4_8 * RHS4; + const double f5 = 1.0 / m_A10; + const double f5_8 = -f5 * m_A23; + m_A24 += m_A11 * f5_8; + m_A25 += m_A12 * f5_8; + RHS8 += f5_8 * RHS5; + const double f5_9 = -f5 * m_A26; + m_A29 += m_A11 * f5_9; + m_A30 += m_A12 * f5_9; + RHS9 += f5_9 * RHS5; + const double f6 = 1.0 / m_A14; + const double f6_9 = -f6 * m_A27; + m_A29 += m_A15 * f6_9; + RHS9 += f6_9 * RHS6; + const double f7 = 1.0 / m_A16; + const double f7_9 = -f7 * m_A28; + m_A30 += m_A17 * f7_9; + RHS9 += f7_9 * RHS7; + const double f8 = 1.0 / m_A24; + const double f8_9 = -f8 * m_A29; + m_A30 += m_A25 * f8_9; + RHS9 += f8_9 * RHS8; + V[9] = RHS9 / m_A30; + double tmp8 = 0.0; + tmp8 += m_A25 * V[9]; + V[8] = (RHS8 - tmp8) / m_A24; + double tmp7 = 0.0; + tmp7 += m_A17 * V[9]; + V[7] = (RHS7 - tmp7) / m_A16; + double tmp6 = 0.0; + tmp6 += m_A15 * V[8]; + V[6] = (RHS6 - tmp6) / m_A14; + double tmp5 = 0.0; + tmp5 += m_A11 * V[8]; + tmp5 += m_A12 * V[9]; + V[5] = (RHS5 - tmp5) / m_A10; + double tmp4 = 0.0; + tmp4 += m_A9 * V[8]; + V[4] = (RHS4 - tmp4) / m_A8; + double tmp3 = 0.0; + tmp3 += m_A7 * V[8]; + V[3] = (RHS3 - tmp3) / m_A6; + double tmp2 = 0.0; + tmp2 += m_A5 * V[8]; + V[2] = (RHS2 - tmp2) / m_A4; + double tmp1 = 0.0; + tmp1 += m_A3 * V[8]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[8]; + V[0] = (RHS0 - tmp0) / m_A0; +} + // tailg static void nl_gcr_c4cec7aed23b7b94_23_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) @@ -34883,6 +37001,612 @@ static void nl_gcr_ee2cacaa15d32491_67_double_double(double * __restrict V, cons V[0] = (RHS0 - tmp0) / m_A0; } +// starcrus +static void nl_gcr_ef2f49641f433a74_94_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) + +{ + + plib::unused_var(cnV); + double m_A0(0.0); + double m_A1(0.0); + double m_A2(0.0); + double m_A3(0.0); + double m_A4(0.0); + double m_A5(0.0); + double m_A6(0.0); + double m_A7(0.0); + double m_A8(0.0); + double m_A9(0.0); + double m_A10(0.0); + double m_A11(0.0); + double m_A12(0.0); + double m_A13(0.0); + double m_A14(0.0); + double m_A15(0.0); + double m_A16(0.0); + double m_A17(0.0); + double m_A18(0.0); + double m_A19(0.0); + double m_A20(0.0); + double m_A21(0.0); + double m_A22(0.0); + double m_A23(0.0); + double m_A24(0.0); + double m_A25(0.0); + double m_A26(0.0); + double m_A27(0.0); + double m_A28(0.0); + double m_A29(0.0); + double m_A30(0.0); + double m_A31(0.0); + double m_A32(0.0); + double m_A33(0.0); + double m_A34(0.0); + double m_A35(0.0); + double m_A36(0.0); + double m_A37(0.0); + double m_A38(0.0); + double m_A39(0.0); + double m_A40(0.0); + double m_A41(0.0); + double m_A42(0.0); + double m_A43(0.0); + double m_A44(0.0); + double m_A45(0.0); + double m_A46(0.0); + double m_A47(0.0); + double m_A48(0.0); + double m_A49(0.0); + double m_A50(0.0); + double m_A51(0.0); + double m_A52(0.0); + double m_A53(0.0); + double m_A54(0.0); + double m_A55(0.0); + double m_A56(0.0); + double m_A57(0.0); + double m_A58(0.0); + double m_A59(0.0); + double m_A60(0.0); + double m_A61(0.0); + double m_A62(0.0); + double m_A63(0.0); + double m_A64(0.0); + double m_A65(0.0); + double m_A66(0.0); + double m_A67(0.0); + double m_A68(0.0); + double m_A69(0.0); + double m_A70(0.0); + double m_A71(0.0); + double m_A72(0.0); + double m_A73(0.0); + double m_A74(0.0); + double m_A75(0.0); + double m_A76(0.0); + double m_A77(0.0); + double m_A78(0.0); + double m_A79(0.0); + double m_A80(0.0); + double m_A81(0.0); + double m_A82(0.0); + double m_A83(0.0); + double m_A84(0.0); + double m_A85(0.0); + double m_A86(0.0); + double m_A87(0.0); + double m_A88(0.0); + double m_A89(0.0); + double m_A90(0.0); + double m_A91(0.0); + double m_A92(0.0); + double m_A93(0.0); + m_A0 += gt[0]; + m_A0 += gt[1]; + m_A1 += go[0]; + double RHS0 = Idr[0]; + RHS0 += Idr[1]; + RHS0 -= go[1] * *cnV[1]; + m_A2 += gt[2]; + m_A2 += gt[3]; + m_A3 += go[2]; + m_A4 += go[3]; + double RHS1 = Idr[2]; + RHS1 += Idr[3]; + m_A5 += gt[4]; + m_A5 += gt[5]; + m_A5 += gt[6]; + m_A5 += gt[7]; + m_A5 += gt[8]; + m_A6 += go[4]; + m_A7 += go[5]; + double RHS2 = Idr[4]; + RHS2 += Idr[5]; + RHS2 += Idr[6]; + RHS2 += Idr[7]; + RHS2 += Idr[8]; + RHS2 -= go[6] * *cnV[6]; + RHS2 -= go[7] * *cnV[7]; + RHS2 -= go[8] * *cnV[8]; + m_A8 += gt[9]; + m_A8 += gt[10]; + m_A8 += gt[11]; + m_A8 += gt[12]; + m_A9 += go[9]; + m_A10 += go[10]; + m_A10 += go[11]; + double RHS3 = Idr[9]; + RHS3 += Idr[10]; + RHS3 += Idr[11]; + RHS3 += Idr[12]; + RHS3 -= go[12] * *cnV[12]; + m_A11 += gt[13]; + m_A11 += gt[14]; + m_A11 += gt[15]; + m_A11 += gt[16]; + m_A13 += go[13]; + m_A12 += go[14]; + m_A12 += go[15]; + double RHS4 = Idr[13]; + RHS4 += Idr[14]; + RHS4 += Idr[15]; + RHS4 += Idr[16]; + RHS4 -= go[16] * *cnV[16]; + m_A14 += gt[17]; + m_A14 += gt[18]; + m_A14 += gt[19]; + m_A14 += gt[20]; + m_A14 += gt[21]; + m_A14 += gt[22]; + m_A15 += go[17]; + m_A15 += go[18]; + m_A16 += go[19]; + m_A16 += go[20]; + double RHS5 = Idr[17]; + RHS5 += Idr[18]; + RHS5 += Idr[19]; + RHS5 += Idr[20]; + RHS5 += Idr[21]; + RHS5 += Idr[22]; + RHS5 -= go[21] * *cnV[21]; + RHS5 -= go[22] * *cnV[22]; + m_A17 += gt[23]; + m_A17 += gt[24]; + m_A17 += gt[25]; + m_A18 += go[23]; + double RHS6 = Idr[23]; + RHS6 += Idr[24]; + RHS6 += Idr[25]; + RHS6 -= go[24] * *cnV[24]; + RHS6 -= go[25] * *cnV[25]; + m_A19 += gt[26]; + m_A19 += gt[27]; + m_A19 += gt[28]; + m_A19 += gt[29]; + m_A21 += go[26]; + m_A20 += go[27]; + double RHS7 = Idr[26]; + RHS7 += Idr[27]; + RHS7 += Idr[28]; + RHS7 += Idr[29]; + RHS7 -= go[28] * *cnV[28]; + RHS7 -= go[29] * *cnV[29]; + m_A22 += gt[30]; + m_A22 += gt[31]; + m_A24 += go[30]; + m_A23 += go[31]; + double RHS8 = Idr[30]; + RHS8 += Idr[31]; + m_A25 += gt[32]; + m_A25 += gt[33]; + m_A25 += gt[34]; + m_A25 += gt[35]; + m_A26 += go[32]; + double RHS9 = Idr[32]; + RHS9 += Idr[33]; + RHS9 += Idr[34]; + RHS9 += Idr[35]; + RHS9 -= go[33] * *cnV[33]; + RHS9 -= go[34] * *cnV[34]; + RHS9 -= go[35] * *cnV[35]; + m_A28 += gt[36]; + m_A28 += gt[37]; + m_A27 += go[36]; + double RHS10 = Idr[36]; + RHS10 += Idr[37]; + RHS10 -= go[37] * *cnV[37]; + m_A31 += gt[38]; + m_A31 += gt[39]; + m_A31 += gt[40]; + m_A30 += go[38]; + double RHS11 = Idr[38]; + RHS11 += Idr[39]; + RHS11 += Idr[40]; + RHS11 -= go[39] * *cnV[39]; + RHS11 -= go[40] * *cnV[40]; + m_A37 += gt[41]; + m_A37 += gt[42]; + m_A37 += gt[43]; + m_A37 += gt[44]; + m_A35 += go[41]; + m_A34 += go[42]; + m_A38 += go[43]; + double RHS12 = Idr[41]; + RHS12 += Idr[42]; + RHS12 += Idr[43]; + RHS12 += Idr[44]; + RHS12 -= go[44] * *cnV[44]; + m_A42 += gt[45]; + m_A42 += gt[46]; + m_A42 += gt[47]; + m_A42 += gt[48]; + m_A42 += gt[49]; + m_A42 += gt[50]; + m_A41 += go[45]; + m_A41 += go[46]; + m_A40 += go[47]; + double RHS13 = Idr[45]; + RHS13 += Idr[46]; + RHS13 += Idr[47]; + RHS13 += Idr[48]; + RHS13 += Idr[49]; + RHS13 += Idr[50]; + RHS13 -= go[48] * *cnV[48]; + RHS13 -= go[49] * *cnV[49]; + RHS13 -= go[50] * *cnV[50]; + m_A48 += gt[51]; + m_A48 += gt[52]; + m_A48 += gt[53]; + m_A48 += gt[54]; + m_A48 += gt[55]; + m_A45 += go[51]; + m_A45 += go[52]; + m_A46 += go[53]; + double RHS14 = Idr[51]; + RHS14 += Idr[52]; + RHS14 += Idr[53]; + RHS14 += Idr[54]; + RHS14 += Idr[55]; + RHS14 -= go[54] * *cnV[54]; + RHS14 -= go[55] * *cnV[55]; + m_A54 += gt[56]; + m_A54 += gt[57]; + m_A54 += gt[58]; + m_A54 += gt[59]; + m_A54 += gt[60]; + m_A55 += go[56]; + m_A51 += go[57]; + m_A52 += go[58]; + double RHS15 = Idr[56]; + RHS15 += Idr[57]; + RHS15 += Idr[58]; + RHS15 += Idr[59]; + RHS15 += Idr[60]; + RHS15 -= go[59] * *cnV[59]; + RHS15 -= go[60] * *cnV[60]; + m_A58 += gt[61]; + m_A58 += gt[62]; + m_A58 += gt[63]; + m_A57 += go[61]; + m_A56 += go[62]; + double RHS16 = Idr[61]; + RHS16 += Idr[62]; + RHS16 += Idr[63]; + RHS16 -= go[63] * *cnV[63]; + m_A63 += gt[64]; + m_A63 += gt[65]; + m_A65 += go[64]; + m_A60 += go[65]; + double RHS17 = Idr[64]; + RHS17 += Idr[65]; + m_A67 += gt[66]; + m_A67 += gt[67]; + m_A67 += gt[68]; + m_A67 += gt[69]; + m_A68 += go[66]; + m_A66 += go[67]; + m_A66 += go[68]; + double RHS18 = Idr[66]; + RHS18 += Idr[67]; + RHS18 += Idr[68]; + RHS18 += Idr[69]; + RHS18 -= go[69] * *cnV[69]; + m_A72 += gt[70]; + m_A72 += gt[71]; + m_A72 += gt[72]; + m_A72 += gt[73]; + m_A72 += gt[74]; + m_A74 += go[70]; + m_A74 += go[71]; + m_A69 += go[72]; + double RHS19 = Idr[70]; + RHS19 += Idr[71]; + RHS19 += Idr[72]; + RHS19 += Idr[73]; + RHS19 += Idr[74]; + RHS19 -= go[73] * *cnV[73]; + RHS19 -= go[74] * *cnV[74]; + m_A80 += gt[75]; + m_A80 += gt[76]; + m_A80 += gt[77]; + m_A80 += gt[78]; + m_A77 += go[75]; + m_A76 += go[76]; + m_A75 += go[77]; + double RHS20 = Idr[75]; + RHS20 += Idr[76]; + RHS20 += Idr[77]; + RHS20 += Idr[78]; + RHS20 -= go[78] * *cnV[78]; + m_A86 += gt[79]; + m_A86 += gt[80]; + m_A86 += gt[81]; + m_A86 += gt[82]; + m_A86 += gt[83]; + m_A86 += gt[84]; + m_A84 += go[79]; + m_A83 += go[80]; + m_A82 += go[81]; + m_A82 += go[82]; + double RHS21 = Idr[79]; + RHS21 += Idr[80]; + RHS21 += Idr[81]; + RHS21 += Idr[82]; + RHS21 += Idr[83]; + RHS21 += Idr[84]; + RHS21 -= go[83] * *cnV[83]; + RHS21 -= go[84] * *cnV[84]; + m_A93 += gt[85]; + m_A93 += gt[86]; + m_A93 += gt[87]; + m_A93 += gt[88]; + m_A93 += gt[89]; + m_A89 += go[85]; + m_A91 += go[86]; + m_A91 += go[87]; + m_A88 += go[88]; + double RHS22 = Idr[85]; + RHS22 += Idr[86]; + RHS22 += Idr[87]; + RHS22 += Idr[88]; + RHS22 += Idr[89]; + RHS22 -= go[89] * *cnV[89]; + const double f0 = 1.0 / m_A0; + const double f0_15 = -f0 * m_A51; + m_A54 += m_A1 * f0_15; + RHS15 += f0_15 * RHS0; + const double f1 = 1.0 / m_A2; + const double f1_10 = -f1 * m_A27; + m_A28 += m_A3 * f1_10; + m_A29 += m_A4 * f1_10; + RHS10 += f1_10 * RHS1; + const double f1_12 = -f1 * m_A34; + m_A36 += m_A3 * f1_12; + m_A38 += m_A4 * f1_12; + RHS12 += f1_12 * RHS1; + const double f1_15 = -f1 * m_A52; + m_A53 += m_A3 * f1_15; + m_A54 += m_A4 * f1_15; + RHS15 += f1_15 * RHS1; + const double f1_20 = -f1 * m_A75; + m_A77 += m_A3 * f1_20; + m_A79 += m_A4 * f1_20; + RHS20 += f1_20 * RHS1; + const double f2 = 1.0 / m_A5; + const double f2_11 = -f2 * m_A30; + m_A32 += m_A6 * f2_11; + m_A33 += m_A7 * f2_11; + RHS11 += f2_11 * RHS2; + const double f2_12 = -f2 * m_A35; + m_A37 += m_A6 * f2_12; + m_A39 += m_A7 * f2_12; + RHS12 += f2_12 * RHS2; + const double f2_20 = -f2 * m_A76; + m_A78 += m_A6 * f2_20; + m_A80 += m_A7 * f2_20; + RHS20 += f2_20 * RHS2; + const double f3 = 1.0 / m_A8; + const double f3_13 = -f3 * m_A40; + m_A42 += m_A9 * f3_13; + m_A43 += m_A10 * f3_13; + RHS13 += f3_13 * RHS3; + const double f3_14 = -f3 * m_A45; + m_A47 += m_A9 * f3_14; + m_A48 += m_A10 * f3_14; + RHS14 += f3_14 * RHS3; + const double f4 = 1.0 / m_A11; + const double f4_13 = -f4 * m_A41; + m_A42 += m_A12 * f4_13; + m_A44 += m_A13 * f4_13; + RHS13 += f4_13 * RHS4; + const double f4_17 = -f4 * m_A60; + m_A61 += m_A12 * f4_17; + m_A63 += m_A13 * f4_17; + RHS17 += f4_17 * RHS4; + const double f5 = 1.0 / m_A14; + const double f5_18 = -f5 * m_A66; + m_A67 += m_A15 * f5_18; + m_A68 += m_A16 * f5_18; + RHS18 += f5_18 * RHS5; + const double f5_21 = -f5 * m_A82; + m_A84 += m_A15 * f5_21; + m_A86 += m_A16 * f5_21; + RHS21 += f5_21 * RHS5; + const double f6 = 1.0 / m_A17; + const double f6_16 = -f6 * m_A56; + m_A58 += m_A18 * f6_16; + RHS16 += f6_16 * RHS6; + const double f7 = 1.0 / m_A19; + const double f7_14 = -f7 * m_A46; + m_A48 += m_A20 * f7_14; + m_A50 += m_A21 * f7_14; + RHS14 += f7_14 * RHS7; + const double f7_19 = -f7 * m_A69; + m_A70 += m_A20 * f7_19; + m_A72 += m_A21 * f7_19; + RHS19 += f7_19 * RHS7; + const double f8 = 1.0 / m_A22; + const double f8_16 = -f8 * m_A57; + m_A58 += m_A23 * f8_16; + m_A59 += m_A24 * f8_16; + RHS16 += f8_16 * RHS8; + const double f8_22 = -f8 * m_A88; + m_A90 += m_A23 * f8_22; + m_A93 += m_A24 * f8_22; + RHS22 += f8_22 * RHS8; + const double f9 = 1.0 / m_A25; + const double f9_22 = -f9 * m_A89; + m_A93 += m_A26 * f9_22; + RHS22 += f9_22 * RHS9; + const double f10 = 1.0 / m_A28; + const double f10_12 = -f10 * m_A36; + m_A38 += m_A29 * f10_12; + RHS12 += f10_12 * RHS10; + const double f10_15 = -f10 * m_A53; + m_A54 += m_A29 * f10_15; + RHS15 += f10_15 * RHS10; + const double f10_20 = -f10 * m_A77; + m_A79 += m_A29 * f10_20; + RHS20 += f10_20 * RHS10; + const double f12 = 1.0 / m_A37; + const double f12_20 = -f12 * m_A78; + m_A79 += m_A38 * f12_20; + m_A80 += m_A39 * f12_20; + RHS20 += f12_20 * RHS12; + const double f13 = 1.0 / m_A42; + const double f13_14 = -f13 * m_A47; + m_A48 += m_A43 * f13_14; + m_A49 += m_A44 * f13_14; + RHS14 += f13_14 * RHS13; + const double f13_17 = -f13 * m_A61; + m_A62 += m_A43 * f13_17; + m_A63 += m_A44 * f13_17; + RHS17 += f13_17 * RHS13; + const double f14 = 1.0 / m_A48; + const double f14_17 = -f14 * m_A62; + m_A63 += m_A49 * f14_17; + m_A64 += m_A50 * f14_17; + RHS17 += f14_17 * RHS14; + const double f14_19 = -f14 * m_A70; + m_A71 += m_A49 * f14_19; + m_A72 += m_A50 * f14_19; + RHS19 += f14_19 * RHS14; + const double f15 = 1.0 / m_A54; + const double f15_20 = -f15 * m_A79; + m_A81 += m_A55 * f15_20; + RHS20 += f15_20 * RHS15; + const double f16 = 1.0 / m_A58; + const double f16_22 = -f16 * m_A90; + m_A93 += m_A59 * f16_22; + RHS22 += f16_22 * RHS16; + const double f17 = 1.0 / m_A63; + const double f17_19 = -f17 * m_A71; + m_A72 += m_A64 * f17_19; + m_A73 += m_A65 * f17_19; + RHS19 += f17_19 * RHS17; + const double f17_21 = -f17 * m_A83; + m_A85 += m_A64 * f17_21; + m_A86 += m_A65 * f17_21; + RHS21 += f17_21 * RHS17; + const double f18 = 1.0 / m_A67; + const double f18_21 = -f18 * m_A84; + m_A86 += m_A68 * f18_21; + RHS21 += f18_21 * RHS18; + const double f19 = 1.0 / m_A72; + const double f19_21 = -f19 * m_A85; + m_A86 += m_A73 * f19_21; + m_A87 += m_A74 * f19_21; + RHS21 += f19_21 * RHS19; + const double f19_22 = -f19 * m_A91; + m_A92 += m_A73 * f19_22; + m_A93 += m_A74 * f19_22; + RHS22 += f19_22 * RHS19; + const double f21 = 1.0 / m_A86; + const double f21_22 = -f21 * m_A92; + m_A93 += m_A87 * f21_22; + RHS22 += f21_22 * RHS21; + V[22] = RHS22 / m_A93; + double tmp21 = 0.0; + tmp21 += m_A87 * V[22]; + V[21] = (RHS21 - tmp21) / m_A86; + double tmp20 = 0.0; + tmp20 += m_A81 * V[21]; + V[20] = (RHS20 - tmp20) / m_A80; + double tmp19 = 0.0; + tmp19 += m_A73 * V[21]; + tmp19 += m_A74 * V[22]; + V[19] = (RHS19 - tmp19) / m_A72; + double tmp18 = 0.0; + tmp18 += m_A68 * V[21]; + V[18] = (RHS18 - tmp18) / m_A67; + double tmp17 = 0.0; + tmp17 += m_A64 * V[19]; + tmp17 += m_A65 * V[21]; + V[17] = (RHS17 - tmp17) / m_A63; + double tmp16 = 0.0; + tmp16 += m_A59 * V[22]; + V[16] = (RHS16 - tmp16) / m_A58; + double tmp15 = 0.0; + tmp15 += m_A55 * V[21]; + V[15] = (RHS15 - tmp15) / m_A54; + double tmp14 = 0.0; + tmp14 += m_A49 * V[17]; + tmp14 += m_A50 * V[19]; + V[14] = (RHS14 - tmp14) / m_A48; + double tmp13 = 0.0; + tmp13 += m_A43 * V[14]; + tmp13 += m_A44 * V[17]; + V[13] = (RHS13 - tmp13) / m_A42; + double tmp12 = 0.0; + tmp12 += m_A38 * V[15]; + tmp12 += m_A39 * V[20]; + V[12] = (RHS12 - tmp12) / m_A37; + double tmp11 = 0.0; + tmp11 += m_A32 * V[12]; + tmp11 += m_A33 * V[20]; + V[11] = (RHS11 - tmp11) / m_A31; + double tmp10 = 0.0; + tmp10 += m_A29 * V[15]; + V[10] = (RHS10 - tmp10) / m_A28; + double tmp9 = 0.0; + tmp9 += m_A26 * V[22]; + V[9] = (RHS9 - tmp9) / m_A25; + double tmp8 = 0.0; + tmp8 += m_A23 * V[16]; + tmp8 += m_A24 * V[22]; + V[8] = (RHS8 - tmp8) / m_A22; + double tmp7 = 0.0; + tmp7 += m_A20 * V[14]; + tmp7 += m_A21 * V[19]; + V[7] = (RHS7 - tmp7) / m_A19; + double tmp6 = 0.0; + tmp6 += m_A18 * V[16]; + V[6] = (RHS6 - tmp6) / m_A17; + double tmp5 = 0.0; + tmp5 += m_A15 * V[18]; + tmp5 += m_A16 * V[21]; + V[5] = (RHS5 - tmp5) / m_A14; + double tmp4 = 0.0; + tmp4 += m_A12 * V[13]; + tmp4 += m_A13 * V[17]; + V[4] = (RHS4 - tmp4) / m_A11; + double tmp3 = 0.0; + tmp3 += m_A9 * V[13]; + tmp3 += m_A10 * V[14]; + V[3] = (RHS3 - tmp3) / m_A8; + double tmp2 = 0.0; + tmp2 += m_A6 * V[12]; + tmp2 += m_A7 * V[20]; + V[2] = (RHS2 - tmp2) / m_A5; + double tmp1 = 0.0; + tmp1 += m_A3 * V[10]; + tmp1 += m_A4 * V[15]; + V[1] = (RHS1 - tmp1) / m_A2; + double tmp0 = 0.0; + tmp0 += m_A1 * V[15]; + V[0] = (RHS0 - tmp0) / m_A0; +} + // barrier static void nl_gcr_f425d4008ae1d2c6_13_double_double(double * __restrict V, const double * __restrict go, const double * __restrict gt, const double * __restrict Idr, const double * const * __restrict cnV) @@ -37142,6 +39866,8 @@ static void nl_gcr_fc9971724787b82b_149_double_double(double * __restrict V, con extern const plib::dynlib_static_sym nl_static_solver_syms[]; const plib::dynlib_static_sym nl_static_solver_syms[] = { +// tankbatt + {"nl_gcr_124f7aa10f044582_16_double_double", reinterpret_cast(&nl_gcr_124f7aa10f044582_16_double_double)}, // armora {"nl_gcr_1250f340dea396ae_22_double_double", reinterpret_cast(&nl_gcr_1250f340dea396ae_22_double_double)}, // pongf @@ -37168,6 +39894,8 @@ const plib::dynlib_static_sym nl_static_solver_syms[] = { {"nl_gcr_295cf2e2f3d489bf_12_double_double", reinterpret_cast(&nl_gcr_295cf2e2f3d489bf_12_double_double)}, // boxingb {"nl_gcr_2f84bc98d737730b_22_double_double", reinterpret_cast(&nl_gcr_2f84bc98d737730b_22_double_double)}, +// tankbatt + {"nl_gcr_328d886b444b586b_137_double_double", reinterpret_cast(&nl_gcr_328d886b444b586b_137_double_double)}, // solarq {"nl_gcr_34e910fc1896999f_76_double_double", reinterpret_cast(&nl_gcr_34e910fc1896999f_76_double_double)}, // warrior @@ -37242,8 +39970,6 @@ const plib::dynlib_static_sym nl_static_solver_syms[] = { {"nl_gcr_79e756c5892cf87d_31_double_double", reinterpret_cast(&nl_gcr_79e756c5892cf87d_31_double_double)}, // breakout {"nl_gcr_7a42b97d838ca073_7_double_double", reinterpret_cast(&nl_gcr_7a42b97d838ca073_7_double_double)}, -// 280zzzap - {"nl_gcr_7afaac594132b463_104_double_double", reinterpret_cast(&nl_gcr_7afaac594132b463_104_double_double)}, // cheekyms {"nl_gcr_7c86a9bc1c6aef4c_7_double_double", reinterpret_cast(&nl_gcr_7c86a9bc1c6aef4c_7_double_double)}, // solarq @@ -37274,6 +40000,8 @@ const plib::dynlib_static_sym nl_static_solver_syms[] = { {"nl_gcr_8bec817b324dcc3_28_double_double", reinterpret_cast(&nl_gcr_8bec817b324dcc3_28_double_double)}, // cocoloco {"nl_gcr_8c0f7f2284333de5_16_double_double", reinterpret_cast(&nl_gcr_8c0f7f2284333de5_16_double_double)}, +// starcrus + {"nl_gcr_8d7bddf33d942482_129_double_double", reinterpret_cast(&nl_gcr_8d7bddf33d942482_129_double_double)}, // gamemachine {"nl_gcr_934712b55bb3b2b2_10_double_double", reinterpret_cast(&nl_gcr_934712b55bb3b2b2_10_double_double)}, // kidniki @@ -37288,6 +40016,8 @@ const plib::dynlib_static_sym nl_static_solver_syms[] = { {"nl_gcr_a0bf548977306172_25_double_double", reinterpret_cast(&nl_gcr_a0bf548977306172_25_double_double)}, // boxingb {"nl_gcr_a1132c8737d5d463_96_double_double", reinterpret_cast(&nl_gcr_a1132c8737d5d463_96_double_double)}, +// 280zzzap + {"nl_gcr_a29a3ea050cc0879_113_double_double", reinterpret_cast(&nl_gcr_a29a3ea050cc0879_113_double_double)}, // rebound {"nl_gcr_a41a44bd5c424f88_13_double_double", reinterpret_cast(&nl_gcr_a41a44bd5c424f88_13_double_double)}, // tp1985 @@ -37330,6 +40060,8 @@ const plib::dynlib_static_sym nl_static_solver_syms[] = { {"nl_gcr_be7c805100c522fd_59_double_double", reinterpret_cast(&nl_gcr_be7c805100c522fd_59_double_double)}, // warrior {"nl_gcr_bff07f8d339f7cc4_89_double_double", reinterpret_cast(&nl_gcr_bff07f8d339f7cc4_89_double_double)}, +// starcrus + {"nl_gcr_c2e616f3de30f15b_31_double_double", reinterpret_cast(&nl_gcr_c2e616f3de30f15b_31_double_double)}, // tailg {"nl_gcr_c4cec7aed23b7b94_23_double_double", reinterpret_cast(&nl_gcr_c4cec7aed23b7b94_23_double_double)}, // popeye @@ -37388,6 +40120,8 @@ const plib::dynlib_static_sym nl_static_solver_syms[] = { {"nl_gcr_ecf17036ce1c07cf_10_double_double", reinterpret_cast(&nl_gcr_ecf17036ce1c07cf_10_double_double)}, // armora {"nl_gcr_ee2cacaa15d32491_67_double_double", reinterpret_cast(&nl_gcr_ee2cacaa15d32491_67_double_double)}, +// starcrus + {"nl_gcr_ef2f49641f433a74_94_double_double", reinterpret_cast(&nl_gcr_ef2f49641f433a74_94_double_double)}, // barrier {"nl_gcr_f425d4008ae1d2c6_13_double_double", reinterpret_cast(&nl_gcr_f425d4008ae1d2c6_13_double_double)}, // boxingb diff --git a/src/mame/audio/nl_280zzzap.cpp b/src/mame/audio/nl_280zzzap.cpp index 4d547b5df03..87b07828f34 100644 --- a/src/mame/audio/nl_280zzzap.cpp +++ b/src/mame/audio/nl_280zzzap.cpp @@ -89,11 +89,13 @@ static NETLIST_START(mc3340) // amplify properly, generating only a very weak output signal. // The 1990s schematics also omit a couple of diodes which are present - // in the 1970s schematics. One of these omitted diodes noticeably - // raises the minimum control voltage at which signal attenuation - // starts; that diode has been included here, to get the netlist's - // profile of attenuation vs. control voltage to better match - // Motorola's charts for the device. + // in the 1970s schematics. Both of these diodes have been included + // here. One raises the minimum control voltage at which signal + // attenuation starts, so it makes the netlist's profile of + // attenuation vs. control voltage better match Motorola's charts for + // the device. The other affects the level of the input "midpoint", + // and including it makes the engine sound closer to that on real + // 280-ZZZAP machines. // The Motorola schematics do not label components, so I've created my // own labeling scheme based on numbering components on the schematics @@ -134,9 +136,8 @@ static NETLIST_START(mc3340) RES(R7_5K1, RES_K(5.1)) RES(R8_20K, RES_K(20)) - // 1970s Motorola schematics have another diode just above what I call - // "R9_510"; this diode doesn't seem to affect normal operation much, - // so I've left it out. + DIODE(D2_MC3340, "D(IS=1e-15 N=1)") + RES(R9_510, RES_R(510)) QBJT_EB(Q3, "NPN1") @@ -171,7 +172,7 @@ static NETLIST_START(mc3340) RES(R17_5K1, RES_K(5.1)) - DIODE(D2_MC3340, "D(IS=1e-15 N=1)") + DIODE(D3_MC3340, "D(IS=1e-15 N=1)") RES(R18_510, RES_R(510)) @@ -195,9 +196,11 @@ static NETLIST_START(mc3340) ALIAS(MC3340_INPUT, Q5.B) NET_C(MC3340_INPUT, R8_20K.1) - NET_C(R7_5K1.2, R8_20K.2, R9_510.1) - // (This is approximately where the other omitted diode, which I've - // left out, would go.) + // Location of second diode present on 1970s schematics but omitted on + // 1990s ones. Including it is critical to making the tone of the + // output engine sound match that of real 280-ZZZAP machines. + NET_C(R7_5K1.2, R8_20K.2, D2_MC3340.A) + NET_C(D2_MC3340.K, R9_510.1) NET_C(R9_510.2, GND) NET_C(Q4.E, Q6.E, Q5.C) @@ -226,8 +229,8 @@ static NETLIST_START(mc3340) NET_C(R15_5K1.2, GND) ALIAS(MC3340_OUTPUT, R16_200.2) - NET_C(R17_5K1.2, D2_MC3340.A, Q8.B) - NET_C(D2_MC3340.K, R18_510.1) + NET_C(R17_5K1.2, D3_MC3340.A, Q8.B) + NET_C(D3_MC3340.K, R18_510.1) NET_C(R18_510.2, GND) NETLIST_END() -- cgit v1.2.3