From e976e0298be501bff6d8ae0ecf35480c6945d382 Mon Sep 17 00:00:00 2001 From: eschnett Date: Fri, 6 Jan 2012 17:32:25 +0000 Subject: Regenerate code after changes to Kranc's vectorisation git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/WeylScal4/trunk@101 4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843 --- param.ccl | 6 ++ schedule.ccl | 234 +++++++++++++++++++++++++++++++++++++++++++++++---- src/psi4_calc_2nd.cc | 198 +++++++++++++++++++++++++------------------ src/psi4_calc_4th.cc | 198 +++++++++++++++++++++++++------------------ src/psi4_calc_Nth.cc | 198 +++++++++++++++++++++++++------------------ src/psis_calc_2nd.cc | 198 +++++++++++++++++++++++++------------------ src/psis_calc_4th.cc | 198 +++++++++++++++++++++++++------------------ src/psis_calc_Nth.cc | 198 +++++++++++++++++++++++++------------------ 8 files changed, 906 insertions(+), 522 deletions(-) diff --git a/param.ccl b/param.ccl index e8dc259..489b6ba 100644 --- a/param.ccl +++ b/param.ccl @@ -95,6 +95,12 @@ CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER 0:3 :: "" } 1 +restricted: +CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER +{ + 0:3 :: "" +} 1 + restricted: CCTK_INT psi4_calc_Nth_calc_every "psi4_calc_Nth_calc_every" STEERABLE=ALWAYS { diff --git a/schedule.ccl b/schedule.ccl index d83325b..57de6b8 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,41 +1,239 @@ # File produced by Kranc -STORAGE: curvIi_group[3] +if (timelevels == 1) +{ + STORAGE: curvIi_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvIi_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvIi_group[3] +} -STORAGE: curvIr_group[3] +if (timelevels == 1) +{ + STORAGE: curvIr_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvIr_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvIr_group[3] +} -STORAGE: curvJ1_group[3] +if (timelevels == 1) +{ + STORAGE: curvJ1_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvJ1_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvJ1_group[3] +} -STORAGE: curvJ2_group[3] +if (timelevels == 1) +{ + STORAGE: curvJ2_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvJ2_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvJ2_group[3] +} -STORAGE: curvJ3_group[3] +if (timelevels == 1) +{ + STORAGE: curvJ3_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvJ3_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvJ3_group[3] +} -STORAGE: curvJ4_group[3] +if (timelevels == 1) +{ + STORAGE: curvJ4_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvJ4_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvJ4_group[3] +} -STORAGE: curvJi_group[3] +if (timelevels == 1) +{ + STORAGE: curvJi_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvJi_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvJi_group[3] +} -STORAGE: curvJr_group[3] +if (timelevels == 1) +{ + STORAGE: curvJr_group[1] +} +if (timelevels == 2) +{ + STORAGE: curvJr_group[2] +} +if (timelevels == 3) +{ + STORAGE: curvJr_group[3] +} -STORAGE: Psi0i_group[3] +if (timelevels == 1) +{ + STORAGE: Psi0i_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi0i_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi0i_group[3] +} -STORAGE: Psi0r_group[3] +if (timelevels == 1) +{ + STORAGE: Psi0r_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi0r_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi0r_group[3] +} -STORAGE: Psi1i_group[3] +if (timelevels == 1) +{ + STORAGE: Psi1i_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi1i_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi1i_group[3] +} -STORAGE: Psi1r_group[3] +if (timelevels == 1) +{ + STORAGE: Psi1r_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi1r_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi1r_group[3] +} -STORAGE: Psi2i_group[3] +if (timelevels == 1) +{ + STORAGE: Psi2i_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi2i_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi2i_group[3] +} -STORAGE: Psi2r_group[3] +if (timelevels == 1) +{ + STORAGE: Psi2r_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi2r_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi2r_group[3] +} -STORAGE: Psi3i_group[3] +if (timelevels == 1) +{ + STORAGE: Psi3i_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi3i_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi3i_group[3] +} -STORAGE: Psi3r_group[3] +if (timelevels == 1) +{ + STORAGE: Psi3r_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi3r_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi3r_group[3] +} -STORAGE: Psi4i_group[3] +if (timelevels == 1) +{ + STORAGE: Psi4i_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi4i_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi4i_group[3] +} -STORAGE: Psi4r_group[3] +if (timelevels == 1) +{ + STORAGE: Psi4r_group[1] +} +if (timelevels == 2) +{ + STORAGE: Psi4r_group[2] +} +if (timelevels == 3) +{ + STORAGE: Psi4r_group[3] +} schedule WeylScal4_Startup at STARTUP { diff --git a/src/psi4_calc_2nd.cc b/src/psi4_calc_2nd.cc index b0ecda7..9e024c3 100644 --- a/src/psi4_calc_2nd.cc +++ b/src/psi4_calc_2nd.cc @@ -1120,19 +1120,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC gInv11 = kmul(invdetg,kmsub(gyyL,gzzL,SQR(gyzL))); - CCTK_REAL_VEC gInv12 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv12 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); - CCTK_REAL_VEC gInv13 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv13 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv21 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv21 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); CCTK_REAL_VEC gInv22 = kmul(invdetg,kmsub(gxxL,gzzL,SQR(gxzL))); - CCTK_REAL_VEC gInv23 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv23 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); - CCTK_REAL_VEC gInv31 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv31 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv32 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv32 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); CCTK_REAL_VEC gInv33 = kmul(invdetg,kmsub(gxxL,gyyL,SQR(gxyL))); @@ -1335,25 +1341,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5)); CCTK_REAL_VEC R1212 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); CCTK_REAL_VEC R1213 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R1221 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R1222 = kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5)); CCTK_REAL_VEC R1223 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); CCTK_REAL_VEC R1231 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1232 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1233 = kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5)); @@ -1362,25 +1368,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5)); CCTK_REAL_VEC R1312 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R1313 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); CCTK_REAL_VEC R1321 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1322 = kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5)); CCTK_REAL_VEC R1323 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); CCTK_REAL_VEC R1331 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R1332 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R1333 = kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5)); @@ -1389,25 +1395,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5)); CCTK_REAL_VEC R2112 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R2113 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2121 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); CCTK_REAL_VEC R2122 = kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5)); CCTK_REAL_VEC R2123 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2131 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R2132 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); CCTK_REAL_VEC R2133 = kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5)); @@ -1442,25 +1448,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5)); CCTK_REAL_VEC R2312 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); CCTK_REAL_VEC R2313 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); CCTK_REAL_VEC R2321 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2322 = kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5)); CCTK_REAL_VEC R2323 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); CCTK_REAL_VEC R2331 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R2332 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R2333 = kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5)); @@ -1469,25 +1475,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5)); CCTK_REAL_VEC R3112 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3113 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R3121 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R3122 = kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5)); CCTK_REAL_VEC R3123 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3131 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); CCTK_REAL_VEC R3132 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); CCTK_REAL_VEC R3133 = kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5)); @@ -1496,25 +1502,25 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5)); CCTK_REAL_VEC R3212 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3213 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3221 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); CCTK_REAL_VEC R3222 = kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5)); CCTK_REAL_VEC R3223 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R3231 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); CCTK_REAL_VEC R3232 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); CCTK_REAL_VEC R3233 = kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5)); @@ -1567,35 +1573,43 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p1212 = kmadd(kxxL,kyyL,ksub(R1212,SQR(kxyL))); - CCTK_REAL_VEC R4p1213 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); + CCTK_REAL_VEC R4p1213 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); CCTK_REAL_VEC R4p1221 = kadd(R1221,knmsub(kxxL,kyyL,SQR(kxyL))); CCTK_REAL_VEC R4p1222 = R1222; - CCTK_REAL_VEC R4p1223 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); + CCTK_REAL_VEC R4p1223 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); - CCTK_REAL_VEC R4p1231 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); + CCTK_REAL_VEC R4p1231 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); - CCTK_REAL_VEC R4p1232 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); + CCTK_REAL_VEC R4p1232 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); CCTK_REAL_VEC R4p1233 = R1233; CCTK_REAL_VEC R4p1311 = R1311; - CCTK_REAL_VEC R4p1312 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); + CCTK_REAL_VEC R4p1312 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); CCTK_REAL_VEC R4p1313 = kmadd(kxxL,kzzL,ksub(R1313,SQR(kxzL))); - CCTK_REAL_VEC R4p1321 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); + CCTK_REAL_VEC R4p1321 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); CCTK_REAL_VEC R4p1322 = R1322; - CCTK_REAL_VEC R4p1323 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); + CCTK_REAL_VEC R4p1323 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); CCTK_REAL_VEC R4p1331 = kadd(R1331,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p1332 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); + CCTK_REAL_VEC R4p1332 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); CCTK_REAL_VEC R4p1333 = R1333; @@ -1603,17 +1617,21 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2112 = kadd(R2112,knmsub(kxxL,kyyL,SQR(kxyL))); - CCTK_REAL_VEC R4p2113 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); + CCTK_REAL_VEC R4p2113 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); CCTK_REAL_VEC R4p2121 = kmadd(kxxL,kyyL,ksub(R2121,SQR(kxyL))); CCTK_REAL_VEC R4p2122 = R2122; - CCTK_REAL_VEC R4p2123 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); + CCTK_REAL_VEC R4p2123 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); - CCTK_REAL_VEC R4p2131 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); + CCTK_REAL_VEC R4p2131 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); - CCTK_REAL_VEC R4p2132 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); + CCTK_REAL_VEC R4p2132 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); CCTK_REAL_VEC R4p2133 = R2133; @@ -1637,17 +1655,21 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2311 = R2311; - CCTK_REAL_VEC R4p2312 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); + CCTK_REAL_VEC R4p2312 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); - CCTK_REAL_VEC R4p2313 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); + CCTK_REAL_VEC R4p2313 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); - CCTK_REAL_VEC R4p2321 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); + CCTK_REAL_VEC R4p2321 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); CCTK_REAL_VEC R4p2322 = R2322; CCTK_REAL_VEC R4p2323 = kmadd(kyyL,kzzL,ksub(R2323,SQR(kyzL))); - CCTK_REAL_VEC R4p2331 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); + CCTK_REAL_VEC R4p2331 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); CCTK_REAL_VEC R4p2332 = kadd(R2332,knmsub(kyyL,kzzL,SQR(kyzL))); @@ -1655,35 +1677,43 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p3111 = R3111; - CCTK_REAL_VEC R4p3112 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); + CCTK_REAL_VEC R4p3112 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); CCTK_REAL_VEC R4p3113 = kadd(R3113,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p3121 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); + CCTK_REAL_VEC R4p3121 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); CCTK_REAL_VEC R4p3122 = R3122; - CCTK_REAL_VEC R4p3123 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); + CCTK_REAL_VEC R4p3123 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); CCTK_REAL_VEC R4p3131 = kmadd(kxxL,kzzL,ksub(R3131,SQR(kxzL))); - CCTK_REAL_VEC R4p3132 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); + CCTK_REAL_VEC R4p3132 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); CCTK_REAL_VEC R4p3133 = R3133; CCTK_REAL_VEC R4p3211 = R3211; - CCTK_REAL_VEC R4p3212 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); + CCTK_REAL_VEC R4p3212 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); - CCTK_REAL_VEC R4p3213 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); + CCTK_REAL_VEC R4p3213 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); - CCTK_REAL_VEC R4p3221 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); + CCTK_REAL_VEC R4p3221 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); CCTK_REAL_VEC R4p3222 = R3222; CCTK_REAL_VEC R4p3223 = kadd(R3223,knmsub(kyyL,kzzL,SQR(kyzL))); - CCTK_REAL_VEC R4p3231 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); + CCTK_REAL_VEC R4p3231 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); CCTK_REAL_VEC R4p3232 = kmadd(kyyL,kzzL,ksub(R3232,SQR(kyzL))); @@ -1710,72 +1740,72 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC Ro111 = ToReal(0); CCTK_REAL_VEC Ro112 = - kadd(JacPDstandard2nd1kxy,kmadd(gamma121,kxxL,kmadd(gamma321,kxzL,ksub(knmsub(gamma211,kyyL,kmsub(kxyL,ksub(gamma221,gamma111),kmul(gamma311,kyzL))),JacPDstandard2nd2kxx)))); + kmadd(kxxL,gamma121,kmadd(kxzL,gamma321,kadd(JacPDstandard2nd1kxy,knmsub(kyyL,gamma211,knmsub(kyzL,gamma311,kmsub(kxyL,ksub(gamma221,gamma111),JacPDstandard2nd2kxx)))))); CCTK_REAL_VEC Ro113 = - kadd(JacPDstandard2nd1kxz,kmadd(gamma131,kxxL,kmadd(gamma231,kxyL,ksub(knmsub(gamma211,kyzL,kmsub(kxzL,ksub(gamma331,gamma111),kmul(gamma311,kzzL))),JacPDstandard2nd3kxx)))); + kmadd(kxxL,gamma131,kmadd(kxyL,gamma231,kadd(JacPDstandard2nd1kxz,knmsub(kyzL,gamma211,knmsub(kzzL,gamma311,kmsub(kxzL,ksub(gamma331,gamma111),JacPDstandard2nd3kxx)))))); CCTK_REAL_VEC Ro121 = - kadd(JacPDstandard2nd2kxx,kmadd(gamma211,kyyL,kmadd(gamma311,kyzL,ksub(knmsub(gamma121,kxxL,kmsub(kxyL,ksub(gamma111,gamma221),kmul(gamma321,kxzL))),JacPDstandard2nd1kxy)))); + kmadd(kyyL,gamma211,kmadd(kyzL,gamma311,kadd(JacPDstandard2nd2kxx,knmsub(kxxL,gamma121,knmsub(kxzL,gamma321,kmsub(kxyL,ksub(gamma111,gamma221),JacPDstandard2nd1kxy)))))); CCTK_REAL_VEC Ro122 = ToReal(0); CCTK_REAL_VEC Ro123 = - kadd(JacPDstandard2nd2kxz,kmadd(gamma131,kxyL,kmadd(gamma231,kyyL,ksub(knmsub(gamma121,kxzL,kmsub(kyzL,ksub(gamma331,gamma221),kmul(gamma321,kzzL))),JacPDstandard2nd3kxy)))); + kmadd(kxyL,gamma131,kmadd(kyyL,gamma231,kadd(JacPDstandard2nd2kxz,knmsub(kxzL,gamma121,knmsub(kzzL,gamma321,kmsub(kyzL,ksub(gamma331,gamma221),JacPDstandard2nd3kxy)))))); CCTK_REAL_VEC Ro131 = - kadd(JacPDstandard2nd3kxx,kmadd(gamma211,kyzL,kmadd(gamma311,kzzL,ksub(knmsub(gamma131,kxxL,kmsub(kxzL,ksub(gamma111,gamma331),kmul(gamma231,kxyL))),JacPDstandard2nd1kxz)))); + kmadd(kyzL,gamma211,kmadd(kzzL,gamma311,kadd(JacPDstandard2nd3kxx,knmsub(kxxL,gamma131,knmsub(kxyL,gamma231,kmsub(kxzL,ksub(gamma111,gamma331),JacPDstandard2nd1kxz)))))); CCTK_REAL_VEC Ro132 = - kadd(JacPDstandard2nd3kxy,kmadd(gamma121,kxzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma131,kxyL,kmsub(kyzL,ksub(gamma221,gamma331),kmul(gamma231,kyyL))),JacPDstandard2nd2kxz)))); + kmadd(kxzL,gamma121,kmadd(kzzL,gamma321,kadd(JacPDstandard2nd3kxy,knmsub(kxyL,gamma131,knmsub(kyyL,gamma231,kmsub(kyzL,ksub(gamma221,gamma331),JacPDstandard2nd2kxz)))))); CCTK_REAL_VEC Ro133 = ToReal(0); CCTK_REAL_VEC Ro211 = ToReal(0); CCTK_REAL_VEC Ro212 = - kadd(JacPDstandard2nd1kyy,kmadd(gamma122,kxxL,kmadd(gamma322,kxzL,ksub(knmsub(gamma221,kyyL,kmsub(kxyL,ksub(gamma222,gamma121),kmul(gamma321,kyzL))),JacPDstandard2nd2kxy)))); + kmadd(kxxL,gamma122,kmadd(kxzL,gamma322,kadd(JacPDstandard2nd1kyy,knmsub(kyyL,gamma221,knmsub(kyzL,gamma321,kmsub(kxyL,ksub(gamma222,gamma121),JacPDstandard2nd2kxy)))))); CCTK_REAL_VEC Ro213 = - kadd(JacPDstandard2nd1kyz,kmadd(gamma132,kxxL,kmadd(gamma232,kxyL,ksub(knmsub(gamma221,kyzL,kmsub(kxzL,ksub(gamma332,gamma121),kmul(gamma321,kzzL))),JacPDstandard2nd3kxy)))); + kmadd(kxxL,gamma132,kmadd(kxyL,gamma232,kadd(JacPDstandard2nd1kyz,knmsub(kyzL,gamma221,knmsub(kzzL,gamma321,kmsub(kxzL,ksub(gamma332,gamma121),JacPDstandard2nd3kxy)))))); CCTK_REAL_VEC Ro221 = - kadd(JacPDstandard2nd2kxy,kmadd(gamma221,kyyL,kmadd(gamma321,kyzL,ksub(knmsub(gamma122,kxxL,kmsub(kxyL,ksub(gamma121,gamma222),kmul(gamma322,kxzL))),JacPDstandard2nd1kyy)))); + kmadd(kyyL,gamma221,kmadd(kyzL,gamma321,kadd(JacPDstandard2nd2kxy,knmsub(kxxL,gamma122,knmsub(kxzL,gamma322,kmsub(kxyL,ksub(gamma121,gamma222),JacPDstandard2nd1kyy)))))); CCTK_REAL_VEC Ro222 = ToReal(0); CCTK_REAL_VEC Ro223 = - kadd(JacPDstandard2nd2kyz,kmadd(gamma132,kxyL,kmadd(gamma232,kyyL,ksub(knmsub(gamma122,kxzL,kmsub(kyzL,ksub(gamma332,gamma222),kmul(gamma322,kzzL))),JacPDstandard2nd3kyy)))); + kmadd(kxyL,gamma132,kmadd(kyyL,gamma232,kadd(JacPDstandard2nd2kyz,knmsub(kxzL,gamma122,knmsub(kzzL,gamma322,kmsub(kyzL,ksub(gamma332,gamma222),JacPDstandard2nd3kyy)))))); CCTK_REAL_VEC Ro231 = - kadd(JacPDstandard2nd3kxy,kmadd(gamma221,kyzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma132,kxxL,kmsub(kxzL,ksub(gamma121,gamma332),kmul(gamma232,kxyL))),JacPDstandard2nd1kyz)))); + kmadd(kyzL,gamma221,kmadd(kzzL,gamma321,kadd(JacPDstandard2nd3kxy,knmsub(kxxL,gamma132,knmsub(kxyL,gamma232,kmsub(kxzL,ksub(gamma121,gamma332),JacPDstandard2nd1kyz)))))); CCTK_REAL_VEC Ro232 = - kadd(JacPDstandard2nd3kyy,kmadd(gamma122,kxzL,kmadd(gamma322,kzzL,ksub(knmsub(gamma132,kxyL,kmsub(kyzL,ksub(gamma222,gamma332),kmul(gamma232,kyyL))),JacPDstandard2nd2kyz)))); + kmadd(kxzL,gamma122,kmadd(kzzL,gamma322,kadd(JacPDstandard2nd3kyy,knmsub(kxyL,gamma132,knmsub(kyyL,gamma232,kmsub(kyzL,ksub(gamma222,gamma332),JacPDstandard2nd2kyz)))))); CCTK_REAL_VEC Ro233 = ToReal(0); CCTK_REAL_VEC Ro311 = ToReal(0); CCTK_REAL_VEC Ro312 = - kadd(JacPDstandard2nd1kyz,kmadd(gamma132,kxxL,kmadd(gamma332,kxzL,ksub(knmsub(gamma231,kyyL,kmsub(kxyL,ksub(gamma232,gamma131),kmul(gamma331,kyzL))),JacPDstandard2nd2kxz)))); + kmadd(kxxL,gamma132,kmadd(kxzL,gamma332,kadd(JacPDstandard2nd1kyz,knmsub(kyyL,gamma231,knmsub(kyzL,gamma331,kmsub(kxyL,ksub(gamma232,gamma131),JacPDstandard2nd2kxz)))))); CCTK_REAL_VEC Ro313 = - kadd(JacPDstandard2nd1kzz,kmadd(gamma133,kxxL,kmadd(gamma233,kxyL,ksub(knmsub(gamma231,kyzL,kmsub(kxzL,ksub(gamma333,gamma131),kmul(gamma331,kzzL))),JacPDstandard2nd3kxz)))); + kmadd(kxxL,gamma133,kmadd(kxyL,gamma233,kadd(JacPDstandard2nd1kzz,knmsub(kyzL,gamma231,knmsub(kzzL,gamma331,kmsub(kxzL,ksub(gamma333,gamma131),JacPDstandard2nd3kxz)))))); CCTK_REAL_VEC Ro321 = - kadd(JacPDstandard2nd2kxz,kmadd(gamma231,kyyL,kmadd(gamma331,kyzL,ksub(knmsub(gamma132,kxxL,kmsub(kxyL,ksub(gamma131,gamma232),kmul(gamma332,kxzL))),JacPDstandard2nd1kyz)))); + kmadd(kyyL,gamma231,kmadd(kyzL,gamma331,kadd(JacPDstandard2nd2kxz,knmsub(kxxL,gamma132,knmsub(kxzL,gamma332,kmsub(kxyL,ksub(gamma131,gamma232),JacPDstandard2nd1kyz)))))); CCTK_REAL_VEC Ro322 = ToReal(0); CCTK_REAL_VEC Ro323 = - kadd(JacPDstandard2nd2kzz,kmadd(gamma133,kxyL,kmadd(gamma233,kyyL,ksub(knmsub(gamma132,kxzL,kmsub(kyzL,ksub(gamma333,gamma232),kmul(gamma332,kzzL))),JacPDstandard2nd3kyz)))); + kmadd(kxyL,gamma133,kmadd(kyyL,gamma233,kadd(JacPDstandard2nd2kzz,knmsub(kxzL,gamma132,knmsub(kzzL,gamma332,kmsub(kyzL,ksub(gamma333,gamma232),JacPDstandard2nd3kyz)))))); CCTK_REAL_VEC Ro331 = - kadd(JacPDstandard2nd3kxz,kmadd(gamma231,kyzL,kmadd(gamma331,kzzL,ksub(knmsub(gamma133,kxxL,kmsub(kxzL,ksub(gamma131,gamma333),kmul(gamma233,kxyL))),JacPDstandard2nd1kzz)))); + kmadd(kyzL,gamma231,kmadd(kzzL,gamma331,kadd(JacPDstandard2nd3kxz,knmsub(kxxL,gamma133,knmsub(kxyL,gamma233,kmsub(kxzL,ksub(gamma131,gamma333),JacPDstandard2nd1kzz)))))); CCTK_REAL_VEC Ro332 = - kadd(JacPDstandard2nd3kyz,kmadd(gamma132,kxzL,kmadd(gamma332,kzzL,ksub(knmsub(gamma133,kxyL,kmsub(kyzL,ksub(gamma232,gamma333),kmul(gamma233,kyyL))),JacPDstandard2nd2kzz)))); + kmadd(kxzL,gamma132,kmadd(kzzL,gamma332,kadd(JacPDstandard2nd3kyz,knmsub(kxyL,gamma133,knmsub(kyyL,gamma233,kmsub(kyzL,ksub(gamma232,gamma333),JacPDstandard2nd2kzz)))))); CCTK_REAL_VEC Ro333 = ToReal(0); diff --git a/src/psi4_calc_4th.cc b/src/psi4_calc_4th.cc index 1a82586..628e7bb 100644 --- a/src/psi4_calc_4th.cc +++ b/src/psi4_calc_4th.cc @@ -1120,19 +1120,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC gInv11 = kmul(invdetg,kmsub(gyyL,gzzL,SQR(gyzL))); - CCTK_REAL_VEC gInv12 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv12 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); - CCTK_REAL_VEC gInv13 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv13 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv21 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv21 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); CCTK_REAL_VEC gInv22 = kmul(invdetg,kmsub(gxxL,gzzL,SQR(gxzL))); - CCTK_REAL_VEC gInv23 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv23 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); - CCTK_REAL_VEC gInv31 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv31 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv32 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv32 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); CCTK_REAL_VEC gInv33 = kmul(invdetg,kmsub(gxxL,gyyL,SQR(gxyL))); @@ -1335,25 +1341,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5)); CCTK_REAL_VEC R1212 = - kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); CCTK_REAL_VEC R1213 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R1221 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard4th21gxy),JacPDstandard4th12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R1222 = kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5)); CCTK_REAL_VEC R1223 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); CCTK_REAL_VEC R1231 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1232 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1233 = kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5)); @@ -1362,25 +1368,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5)); CCTK_REAL_VEC R1312 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R1313 = - kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); CCTK_REAL_VEC R1321 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1322 = kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5)); CCTK_REAL_VEC R1323 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); CCTK_REAL_VEC R1331 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gxz),JacPDstandard4th13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R1332 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R1333 = kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5)); @@ -1389,25 +1395,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5)); CCTK_REAL_VEC R2112 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard4th21gxy),JacPDstandard4th12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R2113 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2121 = - kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); CCTK_REAL_VEC R2122 = kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5)); CCTK_REAL_VEC R2123 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2131 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R2132 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); CCTK_REAL_VEC R2133 = kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5)); @@ -1442,25 +1448,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5)); CCTK_REAL_VEC R2312 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); CCTK_REAL_VEC R2313 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); CCTK_REAL_VEC R2321 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2322 = kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5)); CCTK_REAL_VEC R2323 = - kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); CCTK_REAL_VEC R2331 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R2332 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gyz),JacPDstandard4th23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R2333 = kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5)); @@ -1469,25 +1475,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5)); CCTK_REAL_VEC R3112 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3113 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gxz),JacPDstandard4th13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R3121 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R3122 = kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5)); CCTK_REAL_VEC R3123 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3131 = - kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); CCTK_REAL_VEC R3132 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); CCTK_REAL_VEC R3133 = kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5)); @@ -1496,25 +1502,25 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5)); CCTK_REAL_VEC R3212 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3213 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3221 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); CCTK_REAL_VEC R3222 = kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5)); CCTK_REAL_VEC R3223 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gyz),JacPDstandard4th23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R3231 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); CCTK_REAL_VEC R3232 = - kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); CCTK_REAL_VEC R3233 = kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5)); @@ -1567,35 +1573,43 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p1212 = kmadd(kxxL,kyyL,ksub(R1212,SQR(kxyL))); - CCTK_REAL_VEC R4p1213 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); + CCTK_REAL_VEC R4p1213 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); CCTK_REAL_VEC R4p1221 = kadd(R1221,knmsub(kxxL,kyyL,SQR(kxyL))); CCTK_REAL_VEC R4p1222 = R1222; - CCTK_REAL_VEC R4p1223 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); + CCTK_REAL_VEC R4p1223 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); - CCTK_REAL_VEC R4p1231 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); + CCTK_REAL_VEC R4p1231 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); - CCTK_REAL_VEC R4p1232 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); + CCTK_REAL_VEC R4p1232 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); CCTK_REAL_VEC R4p1233 = R1233; CCTK_REAL_VEC R4p1311 = R1311; - CCTK_REAL_VEC R4p1312 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); + CCTK_REAL_VEC R4p1312 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); CCTK_REAL_VEC R4p1313 = kmadd(kxxL,kzzL,ksub(R1313,SQR(kxzL))); - CCTK_REAL_VEC R4p1321 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); + CCTK_REAL_VEC R4p1321 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); CCTK_REAL_VEC R4p1322 = R1322; - CCTK_REAL_VEC R4p1323 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); + CCTK_REAL_VEC R4p1323 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); CCTK_REAL_VEC R4p1331 = kadd(R1331,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p1332 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); + CCTK_REAL_VEC R4p1332 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); CCTK_REAL_VEC R4p1333 = R1333; @@ -1603,17 +1617,21 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2112 = kadd(R2112,knmsub(kxxL,kyyL,SQR(kxyL))); - CCTK_REAL_VEC R4p2113 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); + CCTK_REAL_VEC R4p2113 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); CCTK_REAL_VEC R4p2121 = kmadd(kxxL,kyyL,ksub(R2121,SQR(kxyL))); CCTK_REAL_VEC R4p2122 = R2122; - CCTK_REAL_VEC R4p2123 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); + CCTK_REAL_VEC R4p2123 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); - CCTK_REAL_VEC R4p2131 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); + CCTK_REAL_VEC R4p2131 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); - CCTK_REAL_VEC R4p2132 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); + CCTK_REAL_VEC R4p2132 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); CCTK_REAL_VEC R4p2133 = R2133; @@ -1637,17 +1655,21 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2311 = R2311; - CCTK_REAL_VEC R4p2312 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); + CCTK_REAL_VEC R4p2312 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); - CCTK_REAL_VEC R4p2313 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); + CCTK_REAL_VEC R4p2313 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); - CCTK_REAL_VEC R4p2321 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); + CCTK_REAL_VEC R4p2321 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); CCTK_REAL_VEC R4p2322 = R2322; CCTK_REAL_VEC R4p2323 = kmadd(kyyL,kzzL,ksub(R2323,SQR(kyzL))); - CCTK_REAL_VEC R4p2331 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); + CCTK_REAL_VEC R4p2331 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); CCTK_REAL_VEC R4p2332 = kadd(R2332,knmsub(kyyL,kzzL,SQR(kyzL))); @@ -1655,35 +1677,43 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p3111 = R3111; - CCTK_REAL_VEC R4p3112 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); + CCTK_REAL_VEC R4p3112 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); CCTK_REAL_VEC R4p3113 = kadd(R3113,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p3121 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); + CCTK_REAL_VEC R4p3121 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); CCTK_REAL_VEC R4p3122 = R3122; - CCTK_REAL_VEC R4p3123 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); + CCTK_REAL_VEC R4p3123 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); CCTK_REAL_VEC R4p3131 = kmadd(kxxL,kzzL,ksub(R3131,SQR(kxzL))); - CCTK_REAL_VEC R4p3132 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); + CCTK_REAL_VEC R4p3132 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); CCTK_REAL_VEC R4p3133 = R3133; CCTK_REAL_VEC R4p3211 = R3211; - CCTK_REAL_VEC R4p3212 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); + CCTK_REAL_VEC R4p3212 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); - CCTK_REAL_VEC R4p3213 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); + CCTK_REAL_VEC R4p3213 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); - CCTK_REAL_VEC R4p3221 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); + CCTK_REAL_VEC R4p3221 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); CCTK_REAL_VEC R4p3222 = R3222; CCTK_REAL_VEC R4p3223 = kadd(R3223,knmsub(kyyL,kzzL,SQR(kyzL))); - CCTK_REAL_VEC R4p3231 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); + CCTK_REAL_VEC R4p3231 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); CCTK_REAL_VEC R4p3232 = kmadd(kyyL,kzzL,ksub(R3232,SQR(kyzL))); @@ -1710,72 +1740,72 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC Ro111 = ToReal(0); CCTK_REAL_VEC Ro112 = - kadd(JacPDstandard4th1kxy,kmadd(gamma121,kxxL,kmadd(gamma321,kxzL,ksub(knmsub(gamma211,kyyL,kmsub(kxyL,ksub(gamma221,gamma111),kmul(gamma311,kyzL))),JacPDstandard4th2kxx)))); + kmadd(kxxL,gamma121,kmadd(kxzL,gamma321,kadd(JacPDstandard4th1kxy,knmsub(kyyL,gamma211,knmsub(kyzL,gamma311,kmsub(kxyL,ksub(gamma221,gamma111),JacPDstandard4th2kxx)))))); CCTK_REAL_VEC Ro113 = - kadd(JacPDstandard4th1kxz,kmadd(gamma131,kxxL,kmadd(gamma231,kxyL,ksub(knmsub(gamma211,kyzL,kmsub(kxzL,ksub(gamma331,gamma111),kmul(gamma311,kzzL))),JacPDstandard4th3kxx)))); + kmadd(kxxL,gamma131,kmadd(kxyL,gamma231,kadd(JacPDstandard4th1kxz,knmsub(kyzL,gamma211,knmsub(kzzL,gamma311,kmsub(kxzL,ksub(gamma331,gamma111),JacPDstandard4th3kxx)))))); CCTK_REAL_VEC Ro121 = - kadd(JacPDstandard4th2kxx,kmadd(gamma211,kyyL,kmadd(gamma311,kyzL,ksub(knmsub(gamma121,kxxL,kmsub(kxyL,ksub(gamma111,gamma221),kmul(gamma321,kxzL))),JacPDstandard4th1kxy)))); + kmadd(kyyL,gamma211,kmadd(kyzL,gamma311,kadd(JacPDstandard4th2kxx,knmsub(kxxL,gamma121,knmsub(kxzL,gamma321,kmsub(kxyL,ksub(gamma111,gamma221),JacPDstandard4th1kxy)))))); CCTK_REAL_VEC Ro122 = ToReal(0); CCTK_REAL_VEC Ro123 = - kadd(JacPDstandard4th2kxz,kmadd(gamma131,kxyL,kmadd(gamma231,kyyL,ksub(knmsub(gamma121,kxzL,kmsub(kyzL,ksub(gamma331,gamma221),kmul(gamma321,kzzL))),JacPDstandard4th3kxy)))); + kmadd(kxyL,gamma131,kmadd(kyyL,gamma231,kadd(JacPDstandard4th2kxz,knmsub(kxzL,gamma121,knmsub(kzzL,gamma321,kmsub(kyzL,ksub(gamma331,gamma221),JacPDstandard4th3kxy)))))); CCTK_REAL_VEC Ro131 = - kadd(JacPDstandard4th3kxx,kmadd(gamma211,kyzL,kmadd(gamma311,kzzL,ksub(knmsub(gamma131,kxxL,kmsub(kxzL,ksub(gamma111,gamma331),kmul(gamma231,kxyL))),JacPDstandard4th1kxz)))); + kmadd(kyzL,gamma211,kmadd(kzzL,gamma311,kadd(JacPDstandard4th3kxx,knmsub(kxxL,gamma131,knmsub(kxyL,gamma231,kmsub(kxzL,ksub(gamma111,gamma331),JacPDstandard4th1kxz)))))); CCTK_REAL_VEC Ro132 = - kadd(JacPDstandard4th3kxy,kmadd(gamma121,kxzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma131,kxyL,kmsub(kyzL,ksub(gamma221,gamma331),kmul(gamma231,kyyL))),JacPDstandard4th2kxz)))); + kmadd(kxzL,gamma121,kmadd(kzzL,gamma321,kadd(JacPDstandard4th3kxy,knmsub(kxyL,gamma131,knmsub(kyyL,gamma231,kmsub(kyzL,ksub(gamma221,gamma331),JacPDstandard4th2kxz)))))); CCTK_REAL_VEC Ro133 = ToReal(0); CCTK_REAL_VEC Ro211 = ToReal(0); CCTK_REAL_VEC Ro212 = - kadd(JacPDstandard4th1kyy,kmadd(gamma122,kxxL,kmadd(gamma322,kxzL,ksub(knmsub(gamma221,kyyL,kmsub(kxyL,ksub(gamma222,gamma121),kmul(gamma321,kyzL))),JacPDstandard4th2kxy)))); + kmadd(kxxL,gamma122,kmadd(kxzL,gamma322,kadd(JacPDstandard4th1kyy,knmsub(kyyL,gamma221,knmsub(kyzL,gamma321,kmsub(kxyL,ksub(gamma222,gamma121),JacPDstandard4th2kxy)))))); CCTK_REAL_VEC Ro213 = - kadd(JacPDstandard4th1kyz,kmadd(gamma132,kxxL,kmadd(gamma232,kxyL,ksub(knmsub(gamma221,kyzL,kmsub(kxzL,ksub(gamma332,gamma121),kmul(gamma321,kzzL))),JacPDstandard4th3kxy)))); + kmadd(kxxL,gamma132,kmadd(kxyL,gamma232,kadd(JacPDstandard4th1kyz,knmsub(kyzL,gamma221,knmsub(kzzL,gamma321,kmsub(kxzL,ksub(gamma332,gamma121),JacPDstandard4th3kxy)))))); CCTK_REAL_VEC Ro221 = - kadd(JacPDstandard4th2kxy,kmadd(gamma221,kyyL,kmadd(gamma321,kyzL,ksub(knmsub(gamma122,kxxL,kmsub(kxyL,ksub(gamma121,gamma222),kmul(gamma322,kxzL))),JacPDstandard4th1kyy)))); + kmadd(kyyL,gamma221,kmadd(kyzL,gamma321,kadd(JacPDstandard4th2kxy,knmsub(kxxL,gamma122,knmsub(kxzL,gamma322,kmsub(kxyL,ksub(gamma121,gamma222),JacPDstandard4th1kyy)))))); CCTK_REAL_VEC Ro222 = ToReal(0); CCTK_REAL_VEC Ro223 = - kadd(JacPDstandard4th2kyz,kmadd(gamma132,kxyL,kmadd(gamma232,kyyL,ksub(knmsub(gamma122,kxzL,kmsub(kyzL,ksub(gamma332,gamma222),kmul(gamma322,kzzL))),JacPDstandard4th3kyy)))); + kmadd(kxyL,gamma132,kmadd(kyyL,gamma232,kadd(JacPDstandard4th2kyz,knmsub(kxzL,gamma122,knmsub(kzzL,gamma322,kmsub(kyzL,ksub(gamma332,gamma222),JacPDstandard4th3kyy)))))); CCTK_REAL_VEC Ro231 = - kadd(JacPDstandard4th3kxy,kmadd(gamma221,kyzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma132,kxxL,kmsub(kxzL,ksub(gamma121,gamma332),kmul(gamma232,kxyL))),JacPDstandard4th1kyz)))); + kmadd(kyzL,gamma221,kmadd(kzzL,gamma321,kadd(JacPDstandard4th3kxy,knmsub(kxxL,gamma132,knmsub(kxyL,gamma232,kmsub(kxzL,ksub(gamma121,gamma332),JacPDstandard4th1kyz)))))); CCTK_REAL_VEC Ro232 = - kadd(JacPDstandard4th3kyy,kmadd(gamma122,kxzL,kmadd(gamma322,kzzL,ksub(knmsub(gamma132,kxyL,kmsub(kyzL,ksub(gamma222,gamma332),kmul(gamma232,kyyL))),JacPDstandard4th2kyz)))); + kmadd(kxzL,gamma122,kmadd(kzzL,gamma322,kadd(JacPDstandard4th3kyy,knmsub(kxyL,gamma132,knmsub(kyyL,gamma232,kmsub(kyzL,ksub(gamma222,gamma332),JacPDstandard4th2kyz)))))); CCTK_REAL_VEC Ro233 = ToReal(0); CCTK_REAL_VEC Ro311 = ToReal(0); CCTK_REAL_VEC Ro312 = - kadd(JacPDstandard4th1kyz,kmadd(gamma132,kxxL,kmadd(gamma332,kxzL,ksub(knmsub(gamma231,kyyL,kmsub(kxyL,ksub(gamma232,gamma131),kmul(gamma331,kyzL))),JacPDstandard4th2kxz)))); + kmadd(kxxL,gamma132,kmadd(kxzL,gamma332,kadd(JacPDstandard4th1kyz,knmsub(kyyL,gamma231,knmsub(kyzL,gamma331,kmsub(kxyL,ksub(gamma232,gamma131),JacPDstandard4th2kxz)))))); CCTK_REAL_VEC Ro313 = - kadd(JacPDstandard4th1kzz,kmadd(gamma133,kxxL,kmadd(gamma233,kxyL,ksub(knmsub(gamma231,kyzL,kmsub(kxzL,ksub(gamma333,gamma131),kmul(gamma331,kzzL))),JacPDstandard4th3kxz)))); + kmadd(kxxL,gamma133,kmadd(kxyL,gamma233,kadd(JacPDstandard4th1kzz,knmsub(kyzL,gamma231,knmsub(kzzL,gamma331,kmsub(kxzL,ksub(gamma333,gamma131),JacPDstandard4th3kxz)))))); CCTK_REAL_VEC Ro321 = - kadd(JacPDstandard4th2kxz,kmadd(gamma231,kyyL,kmadd(gamma331,kyzL,ksub(knmsub(gamma132,kxxL,kmsub(kxyL,ksub(gamma131,gamma232),kmul(gamma332,kxzL))),JacPDstandard4th1kyz)))); + kmadd(kyyL,gamma231,kmadd(kyzL,gamma331,kadd(JacPDstandard4th2kxz,knmsub(kxxL,gamma132,knmsub(kxzL,gamma332,kmsub(kxyL,ksub(gamma131,gamma232),JacPDstandard4th1kyz)))))); CCTK_REAL_VEC Ro322 = ToReal(0); CCTK_REAL_VEC Ro323 = - kadd(JacPDstandard4th2kzz,kmadd(gamma133,kxyL,kmadd(gamma233,kyyL,ksub(knmsub(gamma132,kxzL,kmsub(kyzL,ksub(gamma333,gamma232),kmul(gamma332,kzzL))),JacPDstandard4th3kyz)))); + kmadd(kxyL,gamma133,kmadd(kyyL,gamma233,kadd(JacPDstandard4th2kzz,knmsub(kxzL,gamma132,knmsub(kzzL,gamma332,kmsub(kyzL,ksub(gamma333,gamma232),JacPDstandard4th3kyz)))))); CCTK_REAL_VEC Ro331 = - kadd(JacPDstandard4th3kxz,kmadd(gamma231,kyzL,kmadd(gamma331,kzzL,ksub(knmsub(gamma133,kxxL,kmsub(kxzL,ksub(gamma131,gamma333),kmul(gamma233,kxyL))),JacPDstandard4th1kzz)))); + kmadd(kyzL,gamma231,kmadd(kzzL,gamma331,kadd(JacPDstandard4th3kxz,knmsub(kxxL,gamma133,knmsub(kxyL,gamma233,kmsub(kxzL,ksub(gamma131,gamma333),JacPDstandard4th1kzz)))))); CCTK_REAL_VEC Ro332 = - kadd(JacPDstandard4th3kyz,kmadd(gamma132,kxzL,kmadd(gamma332,kzzL,ksub(knmsub(gamma133,kxyL,kmsub(kyzL,ksub(gamma232,gamma333),kmul(gamma233,kyyL))),JacPDstandard4th2kzz)))); + kmadd(kxzL,gamma132,kmadd(kzzL,gamma332,kadd(JacPDstandard4th3kyz,knmsub(kxyL,gamma133,knmsub(kyyL,gamma233,kmsub(kyzL,ksub(gamma232,gamma333),JacPDstandard4th2kzz)))))); CCTK_REAL_VEC Ro333 = ToReal(0); diff --git a/src/psi4_calc_Nth.cc b/src/psi4_calc_Nth.cc index 3d795d2..b205bd2 100644 --- a/src/psi4_calc_Nth.cc +++ b/src/psi4_calc_Nth.cc @@ -1120,19 +1120,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC gInv11 = kmul(invdetg,kmsub(gyyL,gzzL,SQR(gyzL))); - CCTK_REAL_VEC gInv12 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv12 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); - CCTK_REAL_VEC gInv13 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv13 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv21 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv21 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); CCTK_REAL_VEC gInv22 = kmul(invdetg,kmsub(gxxL,gzzL,SQR(gxzL))); - CCTK_REAL_VEC gInv23 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv23 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); - CCTK_REAL_VEC gInv31 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv31 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv32 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv32 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); CCTK_REAL_VEC gInv33 = kmul(invdetg,kmsub(gxxL,gyyL,SQR(gxyL))); @@ -1333,25 +1339,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5)); CCTK_REAL_VEC R1212 = - kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); CCTK_REAL_VEC R1213 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard23gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R1221 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard21gxy),JacPDstandard12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R1222 = kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5)); CCTK_REAL_VEC R1223 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxy),JacPDstandard12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard23gxy),JacPDstandard12gyz)))))); CCTK_REAL_VEC R1231 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1232 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1233 = kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5)); @@ -1360,25 +1366,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5)); CCTK_REAL_VEC R1312 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard32gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R1313 = - kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); CCTK_REAL_VEC R1321 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1322 = kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5)); CCTK_REAL_VEC R1323 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard12gzz)))))); CCTK_REAL_VEC R1331 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard31gxz),JacPDstandard13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R1332 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R1333 = kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5)); @@ -1387,25 +1393,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5)); CCTK_REAL_VEC R2112 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard21gxy),JacPDstandard12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R2113 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2121 = - kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); CCTK_REAL_VEC R2122 = kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5)); CCTK_REAL_VEC R2123 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2131 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard23gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R2132 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxy),JacPDstandard12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard23gxy),JacPDstandard12gyz)))))); CCTK_REAL_VEC R2133 = kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5)); @@ -1438,25 +1444,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5)); CCTK_REAL_VEC R2312 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxy),JacPDstandard21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard32gxy),JacPDstandard21gyz)))))); CCTK_REAL_VEC R2313 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard21gzz)))))); CCTK_REAL_VEC R2321 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2322 = kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5)); CCTK_REAL_VEC R2323 = - kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); CCTK_REAL_VEC R2331 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R2332 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard32gyz),JacPDstandard23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R2333 = kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5)); @@ -1465,25 +1471,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5)); CCTK_REAL_VEC R3112 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3113 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard31gxz),JacPDstandard13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R3121 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard32gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R3122 = kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5)); CCTK_REAL_VEC R3123 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3131 = - kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); CCTK_REAL_VEC R3132 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard12gzz)))))); CCTK_REAL_VEC R3133 = kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5)); @@ -1492,25 +1498,25 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5)); CCTK_REAL_VEC R3212 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3213 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3221 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxy),JacPDstandard21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard32gxy),JacPDstandard21gyz)))))); CCTK_REAL_VEC R3222 = kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5)); CCTK_REAL_VEC R3223 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard32gyz),JacPDstandard23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R3231 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard21gzz)))))); CCTK_REAL_VEC R3232 = - kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); CCTK_REAL_VEC R3233 = kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5)); @@ -1561,35 +1567,43 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p1212 = kmadd(kxxL,kyyL,ksub(R1212,SQR(kxyL))); - CCTK_REAL_VEC R4p1213 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); + CCTK_REAL_VEC R4p1213 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); CCTK_REAL_VEC R4p1221 = kadd(R1221,knmsub(kxxL,kyyL,SQR(kxyL))); CCTK_REAL_VEC R4p1222 = R1222; - CCTK_REAL_VEC R4p1223 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); + CCTK_REAL_VEC R4p1223 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); - CCTK_REAL_VEC R4p1231 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); + CCTK_REAL_VEC R4p1231 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); - CCTK_REAL_VEC R4p1232 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); + CCTK_REAL_VEC R4p1232 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); CCTK_REAL_VEC R4p1233 = R1233; CCTK_REAL_VEC R4p1311 = R1311; - CCTK_REAL_VEC R4p1312 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); + CCTK_REAL_VEC R4p1312 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); CCTK_REAL_VEC R4p1313 = kmadd(kxxL,kzzL,ksub(R1313,SQR(kxzL))); - CCTK_REAL_VEC R4p1321 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); + CCTK_REAL_VEC R4p1321 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); CCTK_REAL_VEC R4p1322 = R1322; - CCTK_REAL_VEC R4p1323 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); + CCTK_REAL_VEC R4p1323 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); CCTK_REAL_VEC R4p1331 = kadd(R1331,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p1332 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); + CCTK_REAL_VEC R4p1332 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); CCTK_REAL_VEC R4p1333 = R1333; @@ -1597,17 +1611,21 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2112 = kadd(R2112,knmsub(kxxL,kyyL,SQR(kxyL))); - CCTK_REAL_VEC R4p2113 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); + CCTK_REAL_VEC R4p2113 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); CCTK_REAL_VEC R4p2121 = kmadd(kxxL,kyyL,ksub(R2121,SQR(kxyL))); CCTK_REAL_VEC R4p2122 = R2122; - CCTK_REAL_VEC R4p2123 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); + CCTK_REAL_VEC R4p2123 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); - CCTK_REAL_VEC R4p2131 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); + CCTK_REAL_VEC R4p2131 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); - CCTK_REAL_VEC R4p2132 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); + CCTK_REAL_VEC R4p2132 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); CCTK_REAL_VEC R4p2133 = R2133; @@ -1631,17 +1649,21 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2311 = R2311; - CCTK_REAL_VEC R4p2312 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); + CCTK_REAL_VEC R4p2312 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); - CCTK_REAL_VEC R4p2313 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); + CCTK_REAL_VEC R4p2313 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); - CCTK_REAL_VEC R4p2321 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); + CCTK_REAL_VEC R4p2321 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); CCTK_REAL_VEC R4p2322 = R2322; CCTK_REAL_VEC R4p2323 = kmadd(kyyL,kzzL,ksub(R2323,SQR(kyzL))); - CCTK_REAL_VEC R4p2331 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); + CCTK_REAL_VEC R4p2331 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); CCTK_REAL_VEC R4p2332 = kadd(R2332,knmsub(kyyL,kzzL,SQR(kyzL))); @@ -1649,35 +1671,43 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p3111 = R3111; - CCTK_REAL_VEC R4p3112 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); + CCTK_REAL_VEC R4p3112 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); CCTK_REAL_VEC R4p3113 = kadd(R3113,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p3121 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); + CCTK_REAL_VEC R4p3121 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); CCTK_REAL_VEC R4p3122 = R3122; - CCTK_REAL_VEC R4p3123 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); + CCTK_REAL_VEC R4p3123 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); CCTK_REAL_VEC R4p3131 = kmadd(kxxL,kzzL,ksub(R3131,SQR(kxzL))); - CCTK_REAL_VEC R4p3132 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); + CCTK_REAL_VEC R4p3132 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); CCTK_REAL_VEC R4p3133 = R3133; CCTK_REAL_VEC R4p3211 = R3211; - CCTK_REAL_VEC R4p3212 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); + CCTK_REAL_VEC R4p3212 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); - CCTK_REAL_VEC R4p3213 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); + CCTK_REAL_VEC R4p3213 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); - CCTK_REAL_VEC R4p3221 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); + CCTK_REAL_VEC R4p3221 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); CCTK_REAL_VEC R4p3222 = R3222; CCTK_REAL_VEC R4p3223 = kadd(R3223,knmsub(kyyL,kzzL,SQR(kyzL))); - CCTK_REAL_VEC R4p3231 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); + CCTK_REAL_VEC R4p3231 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); CCTK_REAL_VEC R4p3232 = kmadd(kyyL,kzzL,ksub(R3232,SQR(kyzL))); @@ -1704,72 +1734,72 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC Ro111 = ToReal(0); CCTK_REAL_VEC Ro112 = - kadd(JacPDstandard1kxy,kmadd(gamma121,kxxL,kmadd(gamma321,kxzL,ksub(knmsub(gamma211,kyyL,kmsub(kxyL,ksub(gamma221,gamma111),kmul(gamma311,kyzL))),JacPDstandard2kxx)))); + kmadd(kxxL,gamma121,kmadd(kxzL,gamma321,kadd(JacPDstandard1kxy,knmsub(kyyL,gamma211,knmsub(kyzL,gamma311,kmsub(kxyL,ksub(gamma221,gamma111),JacPDstandard2kxx)))))); CCTK_REAL_VEC Ro113 = - kadd(JacPDstandard1kxz,kmadd(gamma131,kxxL,kmadd(gamma231,kxyL,ksub(knmsub(gamma211,kyzL,kmsub(kxzL,ksub(gamma331,gamma111),kmul(gamma311,kzzL))),JacPDstandard3kxx)))); + kmadd(kxxL,gamma131,kmadd(kxyL,gamma231,kadd(JacPDstandard1kxz,knmsub(kyzL,gamma211,knmsub(kzzL,gamma311,kmsub(kxzL,ksub(gamma331,gamma111),JacPDstandard3kxx)))))); CCTK_REAL_VEC Ro121 = - kadd(JacPDstandard2kxx,kmadd(gamma211,kyyL,kmadd(gamma311,kyzL,ksub(knmsub(gamma121,kxxL,kmsub(kxyL,ksub(gamma111,gamma221),kmul(gamma321,kxzL))),JacPDstandard1kxy)))); + kmadd(kyyL,gamma211,kmadd(kyzL,gamma311,kadd(JacPDstandard2kxx,knmsub(kxxL,gamma121,knmsub(kxzL,gamma321,kmsub(kxyL,ksub(gamma111,gamma221),JacPDstandard1kxy)))))); CCTK_REAL_VEC Ro122 = ToReal(0); CCTK_REAL_VEC Ro123 = - kadd(JacPDstandard2kxz,kmadd(gamma131,kxyL,kmadd(gamma231,kyyL,ksub(knmsub(gamma121,kxzL,kmsub(kyzL,ksub(gamma331,gamma221),kmul(gamma321,kzzL))),JacPDstandard3kxy)))); + kmadd(kxyL,gamma131,kmadd(kyyL,gamma231,kadd(JacPDstandard2kxz,knmsub(kxzL,gamma121,knmsub(kzzL,gamma321,kmsub(kyzL,ksub(gamma331,gamma221),JacPDstandard3kxy)))))); CCTK_REAL_VEC Ro131 = - kadd(JacPDstandard3kxx,kmadd(gamma211,kyzL,kmadd(gamma311,kzzL,ksub(knmsub(gamma131,kxxL,kmsub(kxzL,ksub(gamma111,gamma331),kmul(gamma231,kxyL))),JacPDstandard1kxz)))); + kmadd(kyzL,gamma211,kmadd(kzzL,gamma311,kadd(JacPDstandard3kxx,knmsub(kxxL,gamma131,knmsub(kxyL,gamma231,kmsub(kxzL,ksub(gamma111,gamma331),JacPDstandard1kxz)))))); CCTK_REAL_VEC Ro132 = - kadd(JacPDstandard3kxy,kmadd(gamma121,kxzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma131,kxyL,kmsub(kyzL,ksub(gamma221,gamma331),kmul(gamma231,kyyL))),JacPDstandard2kxz)))); + kmadd(kxzL,gamma121,kmadd(kzzL,gamma321,kadd(JacPDstandard3kxy,knmsub(kxyL,gamma131,knmsub(kyyL,gamma231,kmsub(kyzL,ksub(gamma221,gamma331),JacPDstandard2kxz)))))); CCTK_REAL_VEC Ro133 = ToReal(0); CCTK_REAL_VEC Ro211 = ToReal(0); CCTK_REAL_VEC Ro212 = - kadd(JacPDstandard1kyy,kmadd(gamma122,kxxL,kmadd(gamma322,kxzL,ksub(knmsub(gamma221,kyyL,kmsub(kxyL,ksub(gamma222,gamma121),kmul(gamma321,kyzL))),JacPDstandard2kxy)))); + kmadd(kxxL,gamma122,kmadd(kxzL,gamma322,kadd(JacPDstandard1kyy,knmsub(kyyL,gamma221,knmsub(kyzL,gamma321,kmsub(kxyL,ksub(gamma222,gamma121),JacPDstandard2kxy)))))); CCTK_REAL_VEC Ro213 = - kadd(JacPDstandard1kyz,kmadd(gamma132,kxxL,kmadd(gamma232,kxyL,ksub(knmsub(gamma221,kyzL,kmsub(kxzL,ksub(gamma332,gamma121),kmul(gamma321,kzzL))),JacPDstandard3kxy)))); + kmadd(kxxL,gamma132,kmadd(kxyL,gamma232,kadd(JacPDstandard1kyz,knmsub(kyzL,gamma221,knmsub(kzzL,gamma321,kmsub(kxzL,ksub(gamma332,gamma121),JacPDstandard3kxy)))))); CCTK_REAL_VEC Ro221 = - kadd(JacPDstandard2kxy,kmadd(gamma221,kyyL,kmadd(gamma321,kyzL,ksub(knmsub(gamma122,kxxL,kmsub(kxyL,ksub(gamma121,gamma222),kmul(gamma322,kxzL))),JacPDstandard1kyy)))); + kmadd(kyyL,gamma221,kmadd(kyzL,gamma321,kadd(JacPDstandard2kxy,knmsub(kxxL,gamma122,knmsub(kxzL,gamma322,kmsub(kxyL,ksub(gamma121,gamma222),JacPDstandard1kyy)))))); CCTK_REAL_VEC Ro222 = ToReal(0); CCTK_REAL_VEC Ro223 = - kadd(JacPDstandard2kyz,kmadd(gamma132,kxyL,kmadd(gamma232,kyyL,ksub(knmsub(gamma122,kxzL,kmsub(kyzL,ksub(gamma332,gamma222),kmul(gamma322,kzzL))),JacPDstandard3kyy)))); + kmadd(kxyL,gamma132,kmadd(kyyL,gamma232,kadd(JacPDstandard2kyz,knmsub(kxzL,gamma122,knmsub(kzzL,gamma322,kmsub(kyzL,ksub(gamma332,gamma222),JacPDstandard3kyy)))))); CCTK_REAL_VEC Ro231 = - kadd(JacPDstandard3kxy,kmadd(gamma221,kyzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma132,kxxL,kmsub(kxzL,ksub(gamma121,gamma332),kmul(gamma232,kxyL))),JacPDstandard1kyz)))); + kmadd(kyzL,gamma221,kmadd(kzzL,gamma321,kadd(JacPDstandard3kxy,knmsub(kxxL,gamma132,knmsub(kxyL,gamma232,kmsub(kxzL,ksub(gamma121,gamma332),JacPDstandard1kyz)))))); CCTK_REAL_VEC Ro232 = - kadd(JacPDstandard3kyy,kmadd(gamma122,kxzL,kmadd(gamma322,kzzL,ksub(knmsub(gamma132,kxyL,kmsub(kyzL,ksub(gamma222,gamma332),kmul(gamma232,kyyL))),JacPDstandard2kyz)))); + kmadd(kxzL,gamma122,kmadd(kzzL,gamma322,kadd(JacPDstandard3kyy,knmsub(kxyL,gamma132,knmsub(kyyL,gamma232,kmsub(kyzL,ksub(gamma222,gamma332),JacPDstandard2kyz)))))); CCTK_REAL_VEC Ro233 = ToReal(0); CCTK_REAL_VEC Ro311 = ToReal(0); CCTK_REAL_VEC Ro312 = - kadd(JacPDstandard1kyz,kmadd(gamma132,kxxL,kmadd(gamma332,kxzL,ksub(knmsub(gamma231,kyyL,kmsub(kxyL,ksub(gamma232,gamma131),kmul(gamma331,kyzL))),JacPDstandard2kxz)))); + kmadd(kxxL,gamma132,kmadd(kxzL,gamma332,kadd(JacPDstandard1kyz,knmsub(kyyL,gamma231,knmsub(kyzL,gamma331,kmsub(kxyL,ksub(gamma232,gamma131),JacPDstandard2kxz)))))); CCTK_REAL_VEC Ro313 = - kadd(JacPDstandard1kzz,kmadd(gamma133,kxxL,kmadd(gamma233,kxyL,ksub(knmsub(gamma231,kyzL,kmsub(kxzL,ksub(gamma333,gamma131),kmul(gamma331,kzzL))),JacPDstandard3kxz)))); + kmadd(kxxL,gamma133,kmadd(kxyL,gamma233,kadd(JacPDstandard1kzz,knmsub(kyzL,gamma231,knmsub(kzzL,gamma331,kmsub(kxzL,ksub(gamma333,gamma131),JacPDstandard3kxz)))))); CCTK_REAL_VEC Ro321 = - kadd(JacPDstandard2kxz,kmadd(gamma231,kyyL,kmadd(gamma331,kyzL,ksub(knmsub(gamma132,kxxL,kmsub(kxyL,ksub(gamma131,gamma232),kmul(gamma332,kxzL))),JacPDstandard1kyz)))); + kmadd(kyyL,gamma231,kmadd(kyzL,gamma331,kadd(JacPDstandard2kxz,knmsub(kxxL,gamma132,knmsub(kxzL,gamma332,kmsub(kxyL,ksub(gamma131,gamma232),JacPDstandard1kyz)))))); CCTK_REAL_VEC Ro322 = ToReal(0); CCTK_REAL_VEC Ro323 = - kadd(JacPDstandard2kzz,kmadd(gamma133,kxyL,kmadd(gamma233,kyyL,ksub(knmsub(gamma132,kxzL,kmsub(kyzL,ksub(gamma333,gamma232),kmul(gamma332,kzzL))),JacPDstandard3kyz)))); + kmadd(kxyL,gamma133,kmadd(kyyL,gamma233,kadd(JacPDstandard2kzz,knmsub(kxzL,gamma132,knmsub(kzzL,gamma332,kmsub(kyzL,ksub(gamma333,gamma232),JacPDstandard3kyz)))))); CCTK_REAL_VEC Ro331 = - kadd(JacPDstandard3kxz,kmadd(gamma231,kyzL,kmadd(gamma331,kzzL,ksub(knmsub(gamma133,kxxL,kmsub(kxzL,ksub(gamma131,gamma333),kmul(gamma233,kxyL))),JacPDstandard1kzz)))); + kmadd(kyzL,gamma231,kmadd(kzzL,gamma331,kadd(JacPDstandard3kxz,knmsub(kxxL,gamma133,knmsub(kxyL,gamma233,kmsub(kxzL,ksub(gamma131,gamma333),JacPDstandard1kzz)))))); CCTK_REAL_VEC Ro332 = - kadd(JacPDstandard3kyz,kmadd(gamma132,kxzL,kmadd(gamma332,kzzL,ksub(knmsub(gamma133,kxyL,kmsub(kyzL,ksub(gamma232,gamma333),kmul(gamma233,kyyL))),JacPDstandard2kzz)))); + kmadd(kxzL,gamma132,kmadd(kzzL,gamma332,kadd(JacPDstandard3kyz,knmsub(kxyL,gamma133,knmsub(kyyL,gamma233,kmsub(kyzL,ksub(gamma232,gamma333),JacPDstandard2kzz)))))); CCTK_REAL_VEC Ro333 = ToReal(0); diff --git a/src/psis_calc_2nd.cc b/src/psis_calc_2nd.cc index a7d5473..4e3fe33 100644 --- a/src/psis_calc_2nd.cc +++ b/src/psis_calc_2nd.cc @@ -1144,19 +1144,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC gInv11 = kmul(invdetg,kmsub(gyyL,gzzL,SQR(gyzL))); - CCTK_REAL_VEC gInv12 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv12 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); - CCTK_REAL_VEC gInv13 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv13 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv21 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv21 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); CCTK_REAL_VEC gInv22 = kmul(invdetg,kmsub(gxxL,gzzL,SQR(gxzL))); - CCTK_REAL_VEC gInv23 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv23 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); - CCTK_REAL_VEC gInv31 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv31 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv32 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv32 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); CCTK_REAL_VEC gInv33 = kmul(invdetg,kmsub(gxxL,gyyL,SQR(gxyL))); @@ -1365,25 +1371,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5)); CCTK_REAL_VEC R1212 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); CCTK_REAL_VEC R1213 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R1221 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R1222 = kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5)); CCTK_REAL_VEC R1223 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); CCTK_REAL_VEC R1231 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1232 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1233 = kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5)); @@ -1392,25 +1398,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5)); CCTK_REAL_VEC R1312 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R1313 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); CCTK_REAL_VEC R1321 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1322 = kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5)); CCTK_REAL_VEC R1323 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); CCTK_REAL_VEC R1331 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R1332 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R1333 = kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5)); @@ -1419,25 +1425,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5)); CCTK_REAL_VEC R2112 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R2113 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2121 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy))))); CCTK_REAL_VEC R2122 = kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5)); CCTK_REAL_VEC R2123 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2131 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R2132 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz)))))); CCTK_REAL_VEC R2133 = kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5)); @@ -1472,25 +1478,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5)); CCTK_REAL_VEC R2312 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); CCTK_REAL_VEC R2313 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); CCTK_REAL_VEC R2321 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2322 = kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5)); CCTK_REAL_VEC R2323 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); CCTK_REAL_VEC R2331 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R2332 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R2333 = kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5)); @@ -1499,25 +1505,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5)); CCTK_REAL_VEC R3112 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3113 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R3121 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz)))))); CCTK_REAL_VEC R3122 = kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5)); CCTK_REAL_VEC R3123 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3131 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz))))); CCTK_REAL_VEC R3132 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz)))))); CCTK_REAL_VEC R3133 = kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5)); @@ -1526,25 +1532,25 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5)); CCTK_REAL_VEC R3212 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3213 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3221 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz)))))); CCTK_REAL_VEC R3222 = kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5)); CCTK_REAL_VEC R3223 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R3231 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz)))))); CCTK_REAL_VEC R3232 = - kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz))))); CCTK_REAL_VEC R3233 = kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5)); @@ -1597,35 +1603,43 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p1212 = kmadd(kxxL,kyyL,ksub(R1212,SQR(kxyL))); - CCTK_REAL_VEC R4p1213 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); + CCTK_REAL_VEC R4p1213 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); CCTK_REAL_VEC R4p1221 = kadd(R1221,knmsub(kxxL,kyyL,SQR(kxyL))); CCTK_REAL_VEC R4p1222 = R1222; - CCTK_REAL_VEC R4p1223 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); + CCTK_REAL_VEC R4p1223 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); - CCTK_REAL_VEC R4p1231 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); + CCTK_REAL_VEC R4p1231 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); - CCTK_REAL_VEC R4p1232 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); + CCTK_REAL_VEC R4p1232 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); CCTK_REAL_VEC R4p1233 = R1233; CCTK_REAL_VEC R4p1311 = R1311; - CCTK_REAL_VEC R4p1312 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); + CCTK_REAL_VEC R4p1312 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); CCTK_REAL_VEC R4p1313 = kmadd(kxxL,kzzL,ksub(R1313,SQR(kxzL))); - CCTK_REAL_VEC R4p1321 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); + CCTK_REAL_VEC R4p1321 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); CCTK_REAL_VEC R4p1322 = R1322; - CCTK_REAL_VEC R4p1323 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); + CCTK_REAL_VEC R4p1323 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); CCTK_REAL_VEC R4p1331 = kadd(R1331,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p1332 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); + CCTK_REAL_VEC R4p1332 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); CCTK_REAL_VEC R4p1333 = R1333; @@ -1633,17 +1647,21 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2112 = kadd(R2112,knmsub(kxxL,kyyL,SQR(kxyL))); - CCTK_REAL_VEC R4p2113 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); + CCTK_REAL_VEC R4p2113 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); CCTK_REAL_VEC R4p2121 = kmadd(kxxL,kyyL,ksub(R2121,SQR(kxyL))); CCTK_REAL_VEC R4p2122 = R2122; - CCTK_REAL_VEC R4p2123 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); + CCTK_REAL_VEC R4p2123 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); - CCTK_REAL_VEC R4p2131 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); + CCTK_REAL_VEC R4p2131 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); - CCTK_REAL_VEC R4p2132 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); + CCTK_REAL_VEC R4p2132 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); CCTK_REAL_VEC R4p2133 = R2133; @@ -1667,17 +1685,21 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2311 = R2311; - CCTK_REAL_VEC R4p2312 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); + CCTK_REAL_VEC R4p2312 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); - CCTK_REAL_VEC R4p2313 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); + CCTK_REAL_VEC R4p2313 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); - CCTK_REAL_VEC R4p2321 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); + CCTK_REAL_VEC R4p2321 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); CCTK_REAL_VEC R4p2322 = R2322; CCTK_REAL_VEC R4p2323 = kmadd(kyyL,kzzL,ksub(R2323,SQR(kyzL))); - CCTK_REAL_VEC R4p2331 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); + CCTK_REAL_VEC R4p2331 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); CCTK_REAL_VEC R4p2332 = kadd(R2332,knmsub(kyyL,kzzL,SQR(kyzL))); @@ -1685,35 +1707,43 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p3111 = R3111; - CCTK_REAL_VEC R4p3112 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); + CCTK_REAL_VEC R4p3112 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); CCTK_REAL_VEC R4p3113 = kadd(R3113,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p3121 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); + CCTK_REAL_VEC R4p3121 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); CCTK_REAL_VEC R4p3122 = R3122; - CCTK_REAL_VEC R4p3123 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); + CCTK_REAL_VEC R4p3123 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); CCTK_REAL_VEC R4p3131 = kmadd(kxxL,kzzL,ksub(R3131,SQR(kxzL))); - CCTK_REAL_VEC R4p3132 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); + CCTK_REAL_VEC R4p3132 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); CCTK_REAL_VEC R4p3133 = R3133; CCTK_REAL_VEC R4p3211 = R3211; - CCTK_REAL_VEC R4p3212 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); + CCTK_REAL_VEC R4p3212 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); - CCTK_REAL_VEC R4p3213 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); + CCTK_REAL_VEC R4p3213 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); - CCTK_REAL_VEC R4p3221 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); + CCTK_REAL_VEC R4p3221 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); CCTK_REAL_VEC R4p3222 = R3222; CCTK_REAL_VEC R4p3223 = kadd(R3223,knmsub(kyyL,kzzL,SQR(kyzL))); - CCTK_REAL_VEC R4p3231 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); + CCTK_REAL_VEC R4p3231 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); CCTK_REAL_VEC R4p3232 = kmadd(kyyL,kzzL,ksub(R3232,SQR(kyzL))); @@ -1740,72 +1770,72 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC Ro111 = ToReal(0); CCTK_REAL_VEC Ro112 = - kadd(JacPDstandard2nd1kxy,kmadd(gamma121,kxxL,kmadd(gamma321,kxzL,ksub(knmsub(gamma211,kyyL,kmsub(kxyL,ksub(gamma221,gamma111),kmul(gamma311,kyzL))),JacPDstandard2nd2kxx)))); + kmadd(kxxL,gamma121,kmadd(kxzL,gamma321,kadd(JacPDstandard2nd1kxy,knmsub(kyyL,gamma211,knmsub(kyzL,gamma311,kmsub(kxyL,ksub(gamma221,gamma111),JacPDstandard2nd2kxx)))))); CCTK_REAL_VEC Ro113 = - kadd(JacPDstandard2nd1kxz,kmadd(gamma131,kxxL,kmadd(gamma231,kxyL,ksub(knmsub(gamma211,kyzL,kmsub(kxzL,ksub(gamma331,gamma111),kmul(gamma311,kzzL))),JacPDstandard2nd3kxx)))); + kmadd(kxxL,gamma131,kmadd(kxyL,gamma231,kadd(JacPDstandard2nd1kxz,knmsub(kyzL,gamma211,knmsub(kzzL,gamma311,kmsub(kxzL,ksub(gamma331,gamma111),JacPDstandard2nd3kxx)))))); CCTK_REAL_VEC Ro121 = - kadd(JacPDstandard2nd2kxx,kmadd(gamma211,kyyL,kmadd(gamma311,kyzL,ksub(knmsub(gamma121,kxxL,kmsub(kxyL,ksub(gamma111,gamma221),kmul(gamma321,kxzL))),JacPDstandard2nd1kxy)))); + kmadd(kyyL,gamma211,kmadd(kyzL,gamma311,kadd(JacPDstandard2nd2kxx,knmsub(kxxL,gamma121,knmsub(kxzL,gamma321,kmsub(kxyL,ksub(gamma111,gamma221),JacPDstandard2nd1kxy)))))); CCTK_REAL_VEC Ro122 = ToReal(0); CCTK_REAL_VEC Ro123 = - kadd(JacPDstandard2nd2kxz,kmadd(gamma131,kxyL,kmadd(gamma231,kyyL,ksub(knmsub(gamma121,kxzL,kmsub(kyzL,ksub(gamma331,gamma221),kmul(gamma321,kzzL))),JacPDstandard2nd3kxy)))); + kmadd(kxyL,gamma131,kmadd(kyyL,gamma231,kadd(JacPDstandard2nd2kxz,knmsub(kxzL,gamma121,knmsub(kzzL,gamma321,kmsub(kyzL,ksub(gamma331,gamma221),JacPDstandard2nd3kxy)))))); CCTK_REAL_VEC Ro131 = - kadd(JacPDstandard2nd3kxx,kmadd(gamma211,kyzL,kmadd(gamma311,kzzL,ksub(knmsub(gamma131,kxxL,kmsub(kxzL,ksub(gamma111,gamma331),kmul(gamma231,kxyL))),JacPDstandard2nd1kxz)))); + kmadd(kyzL,gamma211,kmadd(kzzL,gamma311,kadd(JacPDstandard2nd3kxx,knmsub(kxxL,gamma131,knmsub(kxyL,gamma231,kmsub(kxzL,ksub(gamma111,gamma331),JacPDstandard2nd1kxz)))))); CCTK_REAL_VEC Ro132 = - kadd(JacPDstandard2nd3kxy,kmadd(gamma121,kxzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma131,kxyL,kmsub(kyzL,ksub(gamma221,gamma331),kmul(gamma231,kyyL))),JacPDstandard2nd2kxz)))); + kmadd(kxzL,gamma121,kmadd(kzzL,gamma321,kadd(JacPDstandard2nd3kxy,knmsub(kxyL,gamma131,knmsub(kyyL,gamma231,kmsub(kyzL,ksub(gamma221,gamma331),JacPDstandard2nd2kxz)))))); CCTK_REAL_VEC Ro133 = ToReal(0); CCTK_REAL_VEC Ro211 = ToReal(0); CCTK_REAL_VEC Ro212 = - kadd(JacPDstandard2nd1kyy,kmadd(gamma122,kxxL,kmadd(gamma322,kxzL,ksub(knmsub(gamma221,kyyL,kmsub(kxyL,ksub(gamma222,gamma121),kmul(gamma321,kyzL))),JacPDstandard2nd2kxy)))); + kmadd(kxxL,gamma122,kmadd(kxzL,gamma322,kadd(JacPDstandard2nd1kyy,knmsub(kyyL,gamma221,knmsub(kyzL,gamma321,kmsub(kxyL,ksub(gamma222,gamma121),JacPDstandard2nd2kxy)))))); CCTK_REAL_VEC Ro213 = - kadd(JacPDstandard2nd1kyz,kmadd(gamma132,kxxL,kmadd(gamma232,kxyL,ksub(knmsub(gamma221,kyzL,kmsub(kxzL,ksub(gamma332,gamma121),kmul(gamma321,kzzL))),JacPDstandard2nd3kxy)))); + kmadd(kxxL,gamma132,kmadd(kxyL,gamma232,kadd(JacPDstandard2nd1kyz,knmsub(kyzL,gamma221,knmsub(kzzL,gamma321,kmsub(kxzL,ksub(gamma332,gamma121),JacPDstandard2nd3kxy)))))); CCTK_REAL_VEC Ro221 = - kadd(JacPDstandard2nd2kxy,kmadd(gamma221,kyyL,kmadd(gamma321,kyzL,ksub(knmsub(gamma122,kxxL,kmsub(kxyL,ksub(gamma121,gamma222),kmul(gamma322,kxzL))),JacPDstandard2nd1kyy)))); + kmadd(kyyL,gamma221,kmadd(kyzL,gamma321,kadd(JacPDstandard2nd2kxy,knmsub(kxxL,gamma122,knmsub(kxzL,gamma322,kmsub(kxyL,ksub(gamma121,gamma222),JacPDstandard2nd1kyy)))))); CCTK_REAL_VEC Ro222 = ToReal(0); CCTK_REAL_VEC Ro223 = - kadd(JacPDstandard2nd2kyz,kmadd(gamma132,kxyL,kmadd(gamma232,kyyL,ksub(knmsub(gamma122,kxzL,kmsub(kyzL,ksub(gamma332,gamma222),kmul(gamma322,kzzL))),JacPDstandard2nd3kyy)))); + kmadd(kxyL,gamma132,kmadd(kyyL,gamma232,kadd(JacPDstandard2nd2kyz,knmsub(kxzL,gamma122,knmsub(kzzL,gamma322,kmsub(kyzL,ksub(gamma332,gamma222),JacPDstandard2nd3kyy)))))); CCTK_REAL_VEC Ro231 = - kadd(JacPDstandard2nd3kxy,kmadd(gamma221,kyzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma132,kxxL,kmsub(kxzL,ksub(gamma121,gamma332),kmul(gamma232,kxyL))),JacPDstandard2nd1kyz)))); + kmadd(kyzL,gamma221,kmadd(kzzL,gamma321,kadd(JacPDstandard2nd3kxy,knmsub(kxxL,gamma132,knmsub(kxyL,gamma232,kmsub(kxzL,ksub(gamma121,gamma332),JacPDstandard2nd1kyz)))))); CCTK_REAL_VEC Ro232 = - kadd(JacPDstandard2nd3kyy,kmadd(gamma122,kxzL,kmadd(gamma322,kzzL,ksub(knmsub(gamma132,kxyL,kmsub(kyzL,ksub(gamma222,gamma332),kmul(gamma232,kyyL))),JacPDstandard2nd2kyz)))); + kmadd(kxzL,gamma122,kmadd(kzzL,gamma322,kadd(JacPDstandard2nd3kyy,knmsub(kxyL,gamma132,knmsub(kyyL,gamma232,kmsub(kyzL,ksub(gamma222,gamma332),JacPDstandard2nd2kyz)))))); CCTK_REAL_VEC Ro233 = ToReal(0); CCTK_REAL_VEC Ro311 = ToReal(0); CCTK_REAL_VEC Ro312 = - kadd(JacPDstandard2nd1kyz,kmadd(gamma132,kxxL,kmadd(gamma332,kxzL,ksub(knmsub(gamma231,kyyL,kmsub(kxyL,ksub(gamma232,gamma131),kmul(gamma331,kyzL))),JacPDstandard2nd2kxz)))); + kmadd(kxxL,gamma132,kmadd(kxzL,gamma332,kadd(JacPDstandard2nd1kyz,knmsub(kyyL,gamma231,knmsub(kyzL,gamma331,kmsub(kxyL,ksub(gamma232,gamma131),JacPDstandard2nd2kxz)))))); CCTK_REAL_VEC Ro313 = - kadd(JacPDstandard2nd1kzz,kmadd(gamma133,kxxL,kmadd(gamma233,kxyL,ksub(knmsub(gamma231,kyzL,kmsub(kxzL,ksub(gamma333,gamma131),kmul(gamma331,kzzL))),JacPDstandard2nd3kxz)))); + kmadd(kxxL,gamma133,kmadd(kxyL,gamma233,kadd(JacPDstandard2nd1kzz,knmsub(kyzL,gamma231,knmsub(kzzL,gamma331,kmsub(kxzL,ksub(gamma333,gamma131),JacPDstandard2nd3kxz)))))); CCTK_REAL_VEC Ro321 = - kadd(JacPDstandard2nd2kxz,kmadd(gamma231,kyyL,kmadd(gamma331,kyzL,ksub(knmsub(gamma132,kxxL,kmsub(kxyL,ksub(gamma131,gamma232),kmul(gamma332,kxzL))),JacPDstandard2nd1kyz)))); + kmadd(kyyL,gamma231,kmadd(kyzL,gamma331,kadd(JacPDstandard2nd2kxz,knmsub(kxxL,gamma132,knmsub(kxzL,gamma332,kmsub(kxyL,ksub(gamma131,gamma232),JacPDstandard2nd1kyz)))))); CCTK_REAL_VEC Ro322 = ToReal(0); CCTK_REAL_VEC Ro323 = - kadd(JacPDstandard2nd2kzz,kmadd(gamma133,kxyL,kmadd(gamma233,kyyL,ksub(knmsub(gamma132,kxzL,kmsub(kyzL,ksub(gamma333,gamma232),kmul(gamma332,kzzL))),JacPDstandard2nd3kyz)))); + kmadd(kxyL,gamma133,kmadd(kyyL,gamma233,kadd(JacPDstandard2nd2kzz,knmsub(kxzL,gamma132,knmsub(kzzL,gamma332,kmsub(kyzL,ksub(gamma333,gamma232),JacPDstandard2nd3kyz)))))); CCTK_REAL_VEC Ro331 = - kadd(JacPDstandard2nd3kxz,kmadd(gamma231,kyzL,kmadd(gamma331,kzzL,ksub(knmsub(gamma133,kxxL,kmsub(kxzL,ksub(gamma131,gamma333),kmul(gamma233,kxyL))),JacPDstandard2nd1kzz)))); + kmadd(kyzL,gamma231,kmadd(kzzL,gamma331,kadd(JacPDstandard2nd3kxz,knmsub(kxxL,gamma133,knmsub(kxyL,gamma233,kmsub(kxzL,ksub(gamma131,gamma333),JacPDstandard2nd1kzz)))))); CCTK_REAL_VEC Ro332 = - kadd(JacPDstandard2nd3kyz,kmadd(gamma132,kxzL,kmadd(gamma332,kzzL,ksub(knmsub(gamma133,kxyL,kmsub(kyzL,ksub(gamma232,gamma333),kmul(gamma233,kyyL))),JacPDstandard2nd2kzz)))); + kmadd(kxzL,gamma132,kmadd(kzzL,gamma332,kadd(JacPDstandard2nd3kyz,knmsub(kxyL,gamma133,knmsub(kyyL,gamma233,kmsub(kyzL,ksub(gamma232,gamma333),JacPDstandard2nd2kzz)))))); CCTK_REAL_VEC Ro333 = ToReal(0); diff --git a/src/psis_calc_4th.cc b/src/psis_calc_4th.cc index 41d69c0..faaa728 100644 --- a/src/psis_calc_4th.cc +++ b/src/psis_calc_4th.cc @@ -1144,19 +1144,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC gInv11 = kmul(invdetg,kmsub(gyyL,gzzL,SQR(gyzL))); - CCTK_REAL_VEC gInv12 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv12 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); - CCTK_REAL_VEC gInv13 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv13 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv21 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv21 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); CCTK_REAL_VEC gInv22 = kmul(invdetg,kmsub(gxxL,gzzL,SQR(gxzL))); - CCTK_REAL_VEC gInv23 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv23 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); - CCTK_REAL_VEC gInv31 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv31 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv32 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv32 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); CCTK_REAL_VEC gInv33 = kmul(invdetg,kmsub(gxxL,gyyL,SQR(gxyL))); @@ -1365,25 +1371,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5)); CCTK_REAL_VEC R1212 = - kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); CCTK_REAL_VEC R1213 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R1221 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard4th21gxy),JacPDstandard4th12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R1222 = kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5)); CCTK_REAL_VEC R1223 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); CCTK_REAL_VEC R1231 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1232 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1233 = kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5)); @@ -1392,25 +1398,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5)); CCTK_REAL_VEC R1312 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R1313 = - kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); CCTK_REAL_VEC R1321 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1322 = kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5)); CCTK_REAL_VEC R1323 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); CCTK_REAL_VEC R1331 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gxz),JacPDstandard4th13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R1332 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R1333 = kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5)); @@ -1419,25 +1425,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5)); CCTK_REAL_VEC R2112 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard4th21gxy),JacPDstandard4th12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R2113 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2121 = - kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy))))); CCTK_REAL_VEC R2122 = kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5)); CCTK_REAL_VEC R2123 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2131 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th23gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R2132 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th23gxy),JacPDstandard4th12gyz)))))); CCTK_REAL_VEC R2133 = kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5)); @@ -1472,25 +1478,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5)); CCTK_REAL_VEC R2312 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); CCTK_REAL_VEC R2313 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); CCTK_REAL_VEC R2321 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2322 = kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5)); CCTK_REAL_VEC R2323 = - kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); CCTK_REAL_VEC R2331 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R2332 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gyz),JacPDstandard4th23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R2333 = kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5)); @@ -1499,25 +1505,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5)); CCTK_REAL_VEC R3112 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3113 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gxz),JacPDstandard4th13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R3121 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard4th32gxx),JacPDstandard4th11gyz)))))); CCTK_REAL_VEC R3122 = kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5)); CCTK_REAL_VEC R3123 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3131 = - kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz))))); CCTK_REAL_VEC R3132 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th12gzz)))))); CCTK_REAL_VEC R3133 = kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5)); @@ -1526,25 +1532,25 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5)); CCTK_REAL_VEC R3212 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3213 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3221 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard4th32gxy),JacPDstandard4th21gyz)))))); CCTK_REAL_VEC R3222 = kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5)); CCTK_REAL_VEC R3223 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard4th32gyz),JacPDstandard4th23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R3231 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard4th33gxy),JacPDstandard4th21gzz)))))); CCTK_REAL_VEC R3232 = - kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz))))); CCTK_REAL_VEC R3233 = kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5)); @@ -1597,35 +1603,43 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p1212 = kmadd(kxxL,kyyL,ksub(R1212,SQR(kxyL))); - CCTK_REAL_VEC R4p1213 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); + CCTK_REAL_VEC R4p1213 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); CCTK_REAL_VEC R4p1221 = kadd(R1221,knmsub(kxxL,kyyL,SQR(kxyL))); CCTK_REAL_VEC R4p1222 = R1222; - CCTK_REAL_VEC R4p1223 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); + CCTK_REAL_VEC R4p1223 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); - CCTK_REAL_VEC R4p1231 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); + CCTK_REAL_VEC R4p1231 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); - CCTK_REAL_VEC R4p1232 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); + CCTK_REAL_VEC R4p1232 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); CCTK_REAL_VEC R4p1233 = R1233; CCTK_REAL_VEC R4p1311 = R1311; - CCTK_REAL_VEC R4p1312 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); + CCTK_REAL_VEC R4p1312 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); CCTK_REAL_VEC R4p1313 = kmadd(kxxL,kzzL,ksub(R1313,SQR(kxzL))); - CCTK_REAL_VEC R4p1321 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); + CCTK_REAL_VEC R4p1321 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); CCTK_REAL_VEC R4p1322 = R1322; - CCTK_REAL_VEC R4p1323 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); + CCTK_REAL_VEC R4p1323 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); CCTK_REAL_VEC R4p1331 = kadd(R1331,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p1332 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); + CCTK_REAL_VEC R4p1332 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); CCTK_REAL_VEC R4p1333 = R1333; @@ -1633,17 +1647,21 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2112 = kadd(R2112,knmsub(kxxL,kyyL,SQR(kxyL))); - CCTK_REAL_VEC R4p2113 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); + CCTK_REAL_VEC R4p2113 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); CCTK_REAL_VEC R4p2121 = kmadd(kxxL,kyyL,ksub(R2121,SQR(kxyL))); CCTK_REAL_VEC R4p2122 = R2122; - CCTK_REAL_VEC R4p2123 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); + CCTK_REAL_VEC R4p2123 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); - CCTK_REAL_VEC R4p2131 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); + CCTK_REAL_VEC R4p2131 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); - CCTK_REAL_VEC R4p2132 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); + CCTK_REAL_VEC R4p2132 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); CCTK_REAL_VEC R4p2133 = R2133; @@ -1667,17 +1685,21 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2311 = R2311; - CCTK_REAL_VEC R4p2312 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); + CCTK_REAL_VEC R4p2312 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); - CCTK_REAL_VEC R4p2313 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); + CCTK_REAL_VEC R4p2313 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); - CCTK_REAL_VEC R4p2321 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); + CCTK_REAL_VEC R4p2321 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); CCTK_REAL_VEC R4p2322 = R2322; CCTK_REAL_VEC R4p2323 = kmadd(kyyL,kzzL,ksub(R2323,SQR(kyzL))); - CCTK_REAL_VEC R4p2331 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); + CCTK_REAL_VEC R4p2331 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); CCTK_REAL_VEC R4p2332 = kadd(R2332,knmsub(kyyL,kzzL,SQR(kyzL))); @@ -1685,35 +1707,43 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p3111 = R3111; - CCTK_REAL_VEC R4p3112 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); + CCTK_REAL_VEC R4p3112 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); CCTK_REAL_VEC R4p3113 = kadd(R3113,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p3121 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); + CCTK_REAL_VEC R4p3121 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); CCTK_REAL_VEC R4p3122 = R3122; - CCTK_REAL_VEC R4p3123 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); + CCTK_REAL_VEC R4p3123 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); CCTK_REAL_VEC R4p3131 = kmadd(kxxL,kzzL,ksub(R3131,SQR(kxzL))); - CCTK_REAL_VEC R4p3132 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); + CCTK_REAL_VEC R4p3132 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); CCTK_REAL_VEC R4p3133 = R3133; CCTK_REAL_VEC R4p3211 = R3211; - CCTK_REAL_VEC R4p3212 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); + CCTK_REAL_VEC R4p3212 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); - CCTK_REAL_VEC R4p3213 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); + CCTK_REAL_VEC R4p3213 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); - CCTK_REAL_VEC R4p3221 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); + CCTK_REAL_VEC R4p3221 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); CCTK_REAL_VEC R4p3222 = R3222; CCTK_REAL_VEC R4p3223 = kadd(R3223,knmsub(kyyL,kzzL,SQR(kyzL))); - CCTK_REAL_VEC R4p3231 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); + CCTK_REAL_VEC R4p3231 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); CCTK_REAL_VEC R4p3232 = kmadd(kyyL,kzzL,ksub(R3232,SQR(kyzL))); @@ -1740,72 +1770,72 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC Ro111 = ToReal(0); CCTK_REAL_VEC Ro112 = - kadd(JacPDstandard4th1kxy,kmadd(gamma121,kxxL,kmadd(gamma321,kxzL,ksub(knmsub(gamma211,kyyL,kmsub(kxyL,ksub(gamma221,gamma111),kmul(gamma311,kyzL))),JacPDstandard4th2kxx)))); + kmadd(kxxL,gamma121,kmadd(kxzL,gamma321,kadd(JacPDstandard4th1kxy,knmsub(kyyL,gamma211,knmsub(kyzL,gamma311,kmsub(kxyL,ksub(gamma221,gamma111),JacPDstandard4th2kxx)))))); CCTK_REAL_VEC Ro113 = - kadd(JacPDstandard4th1kxz,kmadd(gamma131,kxxL,kmadd(gamma231,kxyL,ksub(knmsub(gamma211,kyzL,kmsub(kxzL,ksub(gamma331,gamma111),kmul(gamma311,kzzL))),JacPDstandard4th3kxx)))); + kmadd(kxxL,gamma131,kmadd(kxyL,gamma231,kadd(JacPDstandard4th1kxz,knmsub(kyzL,gamma211,knmsub(kzzL,gamma311,kmsub(kxzL,ksub(gamma331,gamma111),JacPDstandard4th3kxx)))))); CCTK_REAL_VEC Ro121 = - kadd(JacPDstandard4th2kxx,kmadd(gamma211,kyyL,kmadd(gamma311,kyzL,ksub(knmsub(gamma121,kxxL,kmsub(kxyL,ksub(gamma111,gamma221),kmul(gamma321,kxzL))),JacPDstandard4th1kxy)))); + kmadd(kyyL,gamma211,kmadd(kyzL,gamma311,kadd(JacPDstandard4th2kxx,knmsub(kxxL,gamma121,knmsub(kxzL,gamma321,kmsub(kxyL,ksub(gamma111,gamma221),JacPDstandard4th1kxy)))))); CCTK_REAL_VEC Ro122 = ToReal(0); CCTK_REAL_VEC Ro123 = - kadd(JacPDstandard4th2kxz,kmadd(gamma131,kxyL,kmadd(gamma231,kyyL,ksub(knmsub(gamma121,kxzL,kmsub(kyzL,ksub(gamma331,gamma221),kmul(gamma321,kzzL))),JacPDstandard4th3kxy)))); + kmadd(kxyL,gamma131,kmadd(kyyL,gamma231,kadd(JacPDstandard4th2kxz,knmsub(kxzL,gamma121,knmsub(kzzL,gamma321,kmsub(kyzL,ksub(gamma331,gamma221),JacPDstandard4th3kxy)))))); CCTK_REAL_VEC Ro131 = - kadd(JacPDstandard4th3kxx,kmadd(gamma211,kyzL,kmadd(gamma311,kzzL,ksub(knmsub(gamma131,kxxL,kmsub(kxzL,ksub(gamma111,gamma331),kmul(gamma231,kxyL))),JacPDstandard4th1kxz)))); + kmadd(kyzL,gamma211,kmadd(kzzL,gamma311,kadd(JacPDstandard4th3kxx,knmsub(kxxL,gamma131,knmsub(kxyL,gamma231,kmsub(kxzL,ksub(gamma111,gamma331),JacPDstandard4th1kxz)))))); CCTK_REAL_VEC Ro132 = - kadd(JacPDstandard4th3kxy,kmadd(gamma121,kxzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma131,kxyL,kmsub(kyzL,ksub(gamma221,gamma331),kmul(gamma231,kyyL))),JacPDstandard4th2kxz)))); + kmadd(kxzL,gamma121,kmadd(kzzL,gamma321,kadd(JacPDstandard4th3kxy,knmsub(kxyL,gamma131,knmsub(kyyL,gamma231,kmsub(kyzL,ksub(gamma221,gamma331),JacPDstandard4th2kxz)))))); CCTK_REAL_VEC Ro133 = ToReal(0); CCTK_REAL_VEC Ro211 = ToReal(0); CCTK_REAL_VEC Ro212 = - kadd(JacPDstandard4th1kyy,kmadd(gamma122,kxxL,kmadd(gamma322,kxzL,ksub(knmsub(gamma221,kyyL,kmsub(kxyL,ksub(gamma222,gamma121),kmul(gamma321,kyzL))),JacPDstandard4th2kxy)))); + kmadd(kxxL,gamma122,kmadd(kxzL,gamma322,kadd(JacPDstandard4th1kyy,knmsub(kyyL,gamma221,knmsub(kyzL,gamma321,kmsub(kxyL,ksub(gamma222,gamma121),JacPDstandard4th2kxy)))))); CCTK_REAL_VEC Ro213 = - kadd(JacPDstandard4th1kyz,kmadd(gamma132,kxxL,kmadd(gamma232,kxyL,ksub(knmsub(gamma221,kyzL,kmsub(kxzL,ksub(gamma332,gamma121),kmul(gamma321,kzzL))),JacPDstandard4th3kxy)))); + kmadd(kxxL,gamma132,kmadd(kxyL,gamma232,kadd(JacPDstandard4th1kyz,knmsub(kyzL,gamma221,knmsub(kzzL,gamma321,kmsub(kxzL,ksub(gamma332,gamma121),JacPDstandard4th3kxy)))))); CCTK_REAL_VEC Ro221 = - kadd(JacPDstandard4th2kxy,kmadd(gamma221,kyyL,kmadd(gamma321,kyzL,ksub(knmsub(gamma122,kxxL,kmsub(kxyL,ksub(gamma121,gamma222),kmul(gamma322,kxzL))),JacPDstandard4th1kyy)))); + kmadd(kyyL,gamma221,kmadd(kyzL,gamma321,kadd(JacPDstandard4th2kxy,knmsub(kxxL,gamma122,knmsub(kxzL,gamma322,kmsub(kxyL,ksub(gamma121,gamma222),JacPDstandard4th1kyy)))))); CCTK_REAL_VEC Ro222 = ToReal(0); CCTK_REAL_VEC Ro223 = - kadd(JacPDstandard4th2kyz,kmadd(gamma132,kxyL,kmadd(gamma232,kyyL,ksub(knmsub(gamma122,kxzL,kmsub(kyzL,ksub(gamma332,gamma222),kmul(gamma322,kzzL))),JacPDstandard4th3kyy)))); + kmadd(kxyL,gamma132,kmadd(kyyL,gamma232,kadd(JacPDstandard4th2kyz,knmsub(kxzL,gamma122,knmsub(kzzL,gamma322,kmsub(kyzL,ksub(gamma332,gamma222),JacPDstandard4th3kyy)))))); CCTK_REAL_VEC Ro231 = - kadd(JacPDstandard4th3kxy,kmadd(gamma221,kyzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma132,kxxL,kmsub(kxzL,ksub(gamma121,gamma332),kmul(gamma232,kxyL))),JacPDstandard4th1kyz)))); + kmadd(kyzL,gamma221,kmadd(kzzL,gamma321,kadd(JacPDstandard4th3kxy,knmsub(kxxL,gamma132,knmsub(kxyL,gamma232,kmsub(kxzL,ksub(gamma121,gamma332),JacPDstandard4th1kyz)))))); CCTK_REAL_VEC Ro232 = - kadd(JacPDstandard4th3kyy,kmadd(gamma122,kxzL,kmadd(gamma322,kzzL,ksub(knmsub(gamma132,kxyL,kmsub(kyzL,ksub(gamma222,gamma332),kmul(gamma232,kyyL))),JacPDstandard4th2kyz)))); + kmadd(kxzL,gamma122,kmadd(kzzL,gamma322,kadd(JacPDstandard4th3kyy,knmsub(kxyL,gamma132,knmsub(kyyL,gamma232,kmsub(kyzL,ksub(gamma222,gamma332),JacPDstandard4th2kyz)))))); CCTK_REAL_VEC Ro233 = ToReal(0); CCTK_REAL_VEC Ro311 = ToReal(0); CCTK_REAL_VEC Ro312 = - kadd(JacPDstandard4th1kyz,kmadd(gamma132,kxxL,kmadd(gamma332,kxzL,ksub(knmsub(gamma231,kyyL,kmsub(kxyL,ksub(gamma232,gamma131),kmul(gamma331,kyzL))),JacPDstandard4th2kxz)))); + kmadd(kxxL,gamma132,kmadd(kxzL,gamma332,kadd(JacPDstandard4th1kyz,knmsub(kyyL,gamma231,knmsub(kyzL,gamma331,kmsub(kxyL,ksub(gamma232,gamma131),JacPDstandard4th2kxz)))))); CCTK_REAL_VEC Ro313 = - kadd(JacPDstandard4th1kzz,kmadd(gamma133,kxxL,kmadd(gamma233,kxyL,ksub(knmsub(gamma231,kyzL,kmsub(kxzL,ksub(gamma333,gamma131),kmul(gamma331,kzzL))),JacPDstandard4th3kxz)))); + kmadd(kxxL,gamma133,kmadd(kxyL,gamma233,kadd(JacPDstandard4th1kzz,knmsub(kyzL,gamma231,knmsub(kzzL,gamma331,kmsub(kxzL,ksub(gamma333,gamma131),JacPDstandard4th3kxz)))))); CCTK_REAL_VEC Ro321 = - kadd(JacPDstandard4th2kxz,kmadd(gamma231,kyyL,kmadd(gamma331,kyzL,ksub(knmsub(gamma132,kxxL,kmsub(kxyL,ksub(gamma131,gamma232),kmul(gamma332,kxzL))),JacPDstandard4th1kyz)))); + kmadd(kyyL,gamma231,kmadd(kyzL,gamma331,kadd(JacPDstandard4th2kxz,knmsub(kxxL,gamma132,knmsub(kxzL,gamma332,kmsub(kxyL,ksub(gamma131,gamma232),JacPDstandard4th1kyz)))))); CCTK_REAL_VEC Ro322 = ToReal(0); CCTK_REAL_VEC Ro323 = - kadd(JacPDstandard4th2kzz,kmadd(gamma133,kxyL,kmadd(gamma233,kyyL,ksub(knmsub(gamma132,kxzL,kmsub(kyzL,ksub(gamma333,gamma232),kmul(gamma332,kzzL))),JacPDstandard4th3kyz)))); + kmadd(kxyL,gamma133,kmadd(kyyL,gamma233,kadd(JacPDstandard4th2kzz,knmsub(kxzL,gamma132,knmsub(kzzL,gamma332,kmsub(kyzL,ksub(gamma333,gamma232),JacPDstandard4th3kyz)))))); CCTK_REAL_VEC Ro331 = - kadd(JacPDstandard4th3kxz,kmadd(gamma231,kyzL,kmadd(gamma331,kzzL,ksub(knmsub(gamma133,kxxL,kmsub(kxzL,ksub(gamma131,gamma333),kmul(gamma233,kxyL))),JacPDstandard4th1kzz)))); + kmadd(kyzL,gamma231,kmadd(kzzL,gamma331,kadd(JacPDstandard4th3kxz,knmsub(kxxL,gamma133,knmsub(kxyL,gamma233,kmsub(kxzL,ksub(gamma131,gamma333),JacPDstandard4th1kzz)))))); CCTK_REAL_VEC Ro332 = - kadd(JacPDstandard4th3kyz,kmadd(gamma132,kxzL,kmadd(gamma332,kzzL,ksub(knmsub(gamma133,kxyL,kmsub(kyzL,ksub(gamma232,gamma333),kmul(gamma233,kyyL))),JacPDstandard4th2kzz)))); + kmadd(kxzL,gamma132,kmadd(kzzL,gamma332,kadd(JacPDstandard4th3kyz,knmsub(kxyL,gamma133,knmsub(kyyL,gamma233,kmsub(kyzL,ksub(gamma232,gamma333),JacPDstandard4th2kzz)))))); CCTK_REAL_VEC Ro333 = ToReal(0); diff --git a/src/psis_calc_Nth.cc b/src/psis_calc_Nth.cc index 3236c8c..83e37f6 100644 --- a/src/psis_calc_Nth.cc +++ b/src/psis_calc_Nth.cc @@ -1144,19 +1144,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC gInv11 = kmul(invdetg,kmsub(gyyL,gzzL,SQR(gyzL))); - CCTK_REAL_VEC gInv12 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv12 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); - CCTK_REAL_VEC gInv13 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv13 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv21 = kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); + CCTK_REAL_VEC gInv21 = + kmul(invdetg,kmsub(gxzL,gyzL,kmul(gxyL,gzzL))); CCTK_REAL_VEC gInv22 = kmul(invdetg,kmsub(gxxL,gzzL,SQR(gxzL))); - CCTK_REAL_VEC gInv23 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv23 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); - CCTK_REAL_VEC gInv31 = kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); + CCTK_REAL_VEC gInv31 = + kmul(invdetg,kmsub(gxyL,gyzL,kmul(gxzL,gyyL))); - CCTK_REAL_VEC gInv32 = kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); + CCTK_REAL_VEC gInv32 = + kmul(invdetg,kmsub(gxyL,gxzL,kmul(gxxL,gyzL))); CCTK_REAL_VEC gInv33 = kmul(invdetg,kmsub(gxxL,gyyL,SQR(gxyL))); @@ -1363,25 +1369,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5)); CCTK_REAL_VEC R1212 = - kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); CCTK_REAL_VEC R1213 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard23gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R1221 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard21gxy),JacPDstandard12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R1222 = kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5)); CCTK_REAL_VEC R1223 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxy),JacPDstandard12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard23gxy),JacPDstandard12gyz)))))); CCTK_REAL_VEC R1231 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1232 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1233 = kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5)); @@ -1390,25 +1396,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5)); CCTK_REAL_VEC R1312 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard32gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R1313 = - kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); CCTK_REAL_VEC R1321 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R1322 = kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5)); CCTK_REAL_VEC R1323 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard12gzz)))))); CCTK_REAL_VEC R1331 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard31gxz),JacPDstandard13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R1332 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R1333 = kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5)); @@ -1417,25 +1423,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5)); CCTK_REAL_VEC R2112 = - kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma121,kmul(kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma321,ToReal(-4)),kmul(gamma211,kmul(gamma322,ToReal(2)))))),JacPDstandard21gxy),JacPDstandard12gxy))))),kmul(gxxL,SQR(gamma121))))); + kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma221),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,SQR(gamma121))))); CCTK_REAL_VEC R2113 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2121 = - kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gamma122,kmul(gamma211,gxyL),kmadd(gamma122,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma122,gxxL,kmadd(gamma222,gxyL,kmul(gamma322,gxzL))),kmadd(gamma211,kmul(gamma222,gyyL),kmadd(gamma222,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma322,gyzL),kmul(gamma311,kmul(gamma322,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gamma121,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmul(gamma221,kmul(gamma321,gyzL))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); + kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma121),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma221),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma321),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4))))),JacPDstandard22gxx),JacPDstandard11gyy))))); CCTK_REAL_VEC R2122 = kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5)); CCTK_REAL_VEC R2123 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2131 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard23gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R2132 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard23gxy),JacPDstandard12gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard23gxy),JacPDstandard12gyz)))))); CCTK_REAL_VEC R2133 = kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5)); @@ -1468,25 +1474,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5)); CCTK_REAL_VEC R2312 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxy),JacPDstandard21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard32gxy),JacPDstandard21gyz)))))); CCTK_REAL_VEC R2313 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard21gzz)))))); CCTK_REAL_VEC R2321 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R2322 = kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5)); CCTK_REAL_VEC R2323 = - kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); CCTK_REAL_VEC R2331 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R2332 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard32gyz),JacPDstandard23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R2333 = kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5)); @@ -1495,25 +1501,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5)); CCTK_REAL_VEC R3112 = - kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gamma131,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma331,ToReal(-2)),kmul(gamma211,kmul(gamma332,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2)),kmul(gamma211,kmul(gamma232,ToReal(2)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3113 = - kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma131,kmul(kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma331,ToReal(-4)),kmul(gamma211,kmul(gamma333,ToReal(2)))))),JacPDstandard31gxz),JacPDstandard13gxz))))),kmul(gxxL,SQR(gamma131))))); + kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma231),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,SQR(gamma131))))); CCTK_REAL_VEC R3121 = - kmadd(gamma121,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gamma132,kmadd(gamma211,gxyL,kmul(gamma311,gxzL)),kmadd(gamma111,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma211,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma311,gyzL),kmul(gamma311,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma221,gxyL),kmadd(gamma131,kmul(gamma321,gxzL),kmadd(gamma221,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma211,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxx),JacPDstandard11gyz)))))); + kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2),JacPDstandard32gxx),JacPDstandard11gyz)))))); CCTK_REAL_VEC R3122 = kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5)); CCTK_REAL_VEC R3123 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3131 = - kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gamma133,kmul(gamma211,gxyL),kmadd(gamma133,kmul(gamma311,gxzL),kmadd(gamma111,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma211,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma311,gyzL),kmadd(gamma211,kmul(gamma333,gyzL),kmul(gamma311,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gamma131,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmul(gamma231,kmul(gamma331,gyzL))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma131),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma231),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma331),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4))))),JacPDstandard33gxx),JacPDstandard11gzz))))); CCTK_REAL_VEC R3132 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard12gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard12gzz)))))); CCTK_REAL_VEC R3133 = kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5)); @@ -1522,25 +1528,25 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5)); CCTK_REAL_VEC R3212 = - kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gamma131,kmadd(gamma222,gxyL,kmul(gamma322,gxzL)),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma222,kmul(gamma331,ToReal(-2)),kmul(gamma221,kmul(gamma332,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2)),kmul(gamma221,kmul(gamma232,ToReal(2)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))))); CCTK_REAL_VEC R3213 = - kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gamma132,kmadd(gamma231,gxyL,kmul(gamma331,gxzL)),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL))))),ToReal(2),kmul(gyzL,kmadd(gamma231,kmul(gamma332,ToReal(-2)),kmul(gamma221,kmul(gamma333,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)))))); + kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2)),kmul(gamma221,kmul(gamma233,ToReal(2)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))))); CCTK_REAL_VEC R3221 = - kmadd(gamma122,kmadd(gamma131,gxxL,kmadd(gamma231,gxyL,kmul(gamma331,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gamma132,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmadd(gamma221,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma332,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma131,kmul(gamma222,gxyL),kmadd(gamma131,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma231,gyyL),kmadd(gamma231,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma331,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma332,ToReal(-2)),kmul(gamma222,kmul(gamma331,ToReal(2)))))),JacPDstandard32gxy),JacPDstandard21gyz)))))); + kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2),JacPDstandard32gxy),JacPDstandard21gyz)))))); CCTK_REAL_VEC R3222 = kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5)); CCTK_REAL_VEC R3223 = - kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma132,kmul(kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(ksub(kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma232,kmul(gamma332,ToReal(-4)),kmul(gamma222,kmul(gamma333,ToReal(2)))))),JacPDstandard32gyz),JacPDstandard23gyz))))),kmul(gxxL,SQR(gamma132))))); + kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4))),kmadd(gyyL,kmul(SQR(gamma232),ToReal(-2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(-2)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,SQR(gamma132))))); CCTK_REAL_VEC R3231 = - kmadd(gamma131,kmadd(gamma132,gxxL,kmadd(gamma232,gxyL,kmul(gamma332,gxzL))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gamma133,kmadd(gamma221,gxyL,kmul(gamma321,gxzL)),kmadd(gamma121,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma221,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma321,gyzL),kmul(gamma321,kmul(gamma333,gzzL)))))),ToReal(-2),ksub(ksub(kmadd(kmadd(gamma132,kmul(gamma231,gxyL),kmadd(gamma132,kmul(gamma331,gxzL),kmadd(gamma231,kmul(gamma232,gyyL),kmadd(gamma232,kmul(gamma331,gyzL),kmul(gamma331,kmul(gamma332,gzzL)))))),ToReal(2),kmul(gyzL,kmadd(gamma221,kmul(gamma333,ToReal(-2)),kmul(gamma231,kmul(gamma332,ToReal(2)))))),JacPDstandard33gxy),JacPDstandard21gzz)))))); + kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2),JacPDstandard33gxy),JacPDstandard21gzz)))))); CCTK_REAL_VEC R3232 = - kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gamma133,kmul(gamma222,gxyL),kmadd(gamma133,kmul(gamma322,gxzL),kmadd(gamma122,kmadd(gamma133,gxxL,kmadd(gamma233,gxyL,kmul(gamma333,gxzL))),kmadd(gamma222,kmul(gamma233,gyyL),kmadd(gamma233,kmul(gamma322,gyzL),kmadd(gamma222,kmul(gamma333,gyzL),kmul(gamma322,kmul(gamma333,gzzL)))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gamma132,kmadd(gamma232,gxyL,kmul(gamma332,gxzL)),kmul(gamma232,kmul(gamma332,gyzL))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); + kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2),ksub(ksub(kmadd(gxxL,kmul(SQR(gamma132),ToReal(2)),kmadd(gyyL,kmul(SQR(gamma232),ToReal(2)),kmadd(gzzL,kmul(SQR(gamma332),ToReal(2)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4))))),JacPDstandard33gyy),JacPDstandard22gzz))))); CCTK_REAL_VEC R3233 = kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5)); @@ -1591,35 +1597,43 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p1212 = kmadd(kxxL,kyyL,ksub(R1212,SQR(kxyL))); - CCTK_REAL_VEC R4p1213 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); + CCTK_REAL_VEC R4p1213 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)); CCTK_REAL_VEC R4p1221 = kadd(R1221,knmsub(kxxL,kyyL,SQR(kxyL))); CCTK_REAL_VEC R4p1222 = R1222; - CCTK_REAL_VEC R4p1223 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); + CCTK_REAL_VEC R4p1223 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223)); - CCTK_REAL_VEC R4p1231 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); + CCTK_REAL_VEC R4p1231 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231)); - CCTK_REAL_VEC R4p1232 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); + CCTK_REAL_VEC R4p1232 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)); CCTK_REAL_VEC R4p1233 = R1233; CCTK_REAL_VEC R4p1311 = R1311; - CCTK_REAL_VEC R4p1312 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); + CCTK_REAL_VEC R4p1312 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)); CCTK_REAL_VEC R4p1313 = kmadd(kxxL,kzzL,ksub(R1313,SQR(kxzL))); - CCTK_REAL_VEC R4p1321 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); + CCTK_REAL_VEC R4p1321 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321)); CCTK_REAL_VEC R4p1322 = R1322; - CCTK_REAL_VEC R4p1323 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); + CCTK_REAL_VEC R4p1323 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)); CCTK_REAL_VEC R4p1331 = kadd(R1331,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p1332 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); + CCTK_REAL_VEC R4p1332 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332)); CCTK_REAL_VEC R4p1333 = R1333; @@ -1627,17 +1641,21 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2112 = kadd(R2112,knmsub(kxxL,kyyL,SQR(kxyL))); - CCTK_REAL_VEC R4p2113 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); + CCTK_REAL_VEC R4p2113 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113)); CCTK_REAL_VEC R4p2121 = kmadd(kxxL,kyyL,ksub(R2121,SQR(kxyL))); CCTK_REAL_VEC R4p2122 = R2122; - CCTK_REAL_VEC R4p2123 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); + CCTK_REAL_VEC R4p2123 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)); - CCTK_REAL_VEC R4p2131 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); + CCTK_REAL_VEC R4p2131 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)); - CCTK_REAL_VEC R4p2132 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); + CCTK_REAL_VEC R4p2132 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132)); CCTK_REAL_VEC R4p2133 = R2133; @@ -1661,17 +1679,21 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p2311 = R2311; - CCTK_REAL_VEC R4p2312 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); + CCTK_REAL_VEC R4p2312 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312)); - CCTK_REAL_VEC R4p2313 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); + CCTK_REAL_VEC R4p2313 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)); - CCTK_REAL_VEC R4p2321 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); + CCTK_REAL_VEC R4p2321 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)); CCTK_REAL_VEC R4p2322 = R2322; CCTK_REAL_VEC R4p2323 = kmadd(kyyL,kzzL,ksub(R2323,SQR(kyzL))); - CCTK_REAL_VEC R4p2331 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); + CCTK_REAL_VEC R4p2331 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331)); CCTK_REAL_VEC R4p2332 = kadd(R2332,knmsub(kyyL,kzzL,SQR(kyzL))); @@ -1679,35 +1701,43 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC R4p3111 = R3111; - CCTK_REAL_VEC R4p3112 = kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); + CCTK_REAL_VEC R4p3112 = + kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112)); CCTK_REAL_VEC R4p3113 = kadd(R3113,knmsub(kxxL,kzzL,SQR(kxzL))); - CCTK_REAL_VEC R4p3121 = kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); + CCTK_REAL_VEC R4p3121 = + kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)); CCTK_REAL_VEC R4p3122 = R3122; - CCTK_REAL_VEC R4p3123 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); + CCTK_REAL_VEC R4p3123 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123)); CCTK_REAL_VEC R4p3131 = kmadd(kxxL,kzzL,ksub(R3131,SQR(kxzL))); - CCTK_REAL_VEC R4p3132 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); + CCTK_REAL_VEC R4p3132 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)); CCTK_REAL_VEC R4p3133 = R3133; CCTK_REAL_VEC R4p3211 = R3211; - CCTK_REAL_VEC R4p3212 = kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); + CCTK_REAL_VEC R4p3212 = + kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)); - CCTK_REAL_VEC R4p3213 = kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); + CCTK_REAL_VEC R4p3213 = + kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213)); - CCTK_REAL_VEC R4p3221 = kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); + CCTK_REAL_VEC R4p3221 = + kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221)); CCTK_REAL_VEC R4p3222 = R3222; CCTK_REAL_VEC R4p3223 = kadd(R3223,knmsub(kyyL,kzzL,SQR(kyzL))); - CCTK_REAL_VEC R4p3231 = kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); + CCTK_REAL_VEC R4p3231 = + kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)); CCTK_REAL_VEC R4p3232 = kmadd(kyyL,kzzL,ksub(R3232,SQR(kyzL))); @@ -1734,72 +1764,72 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL_VEC Ro111 = ToReal(0); CCTK_REAL_VEC Ro112 = - kadd(JacPDstandard1kxy,kmadd(gamma121,kxxL,kmadd(gamma321,kxzL,ksub(knmsub(gamma211,kyyL,kmsub(kxyL,ksub(gamma221,gamma111),kmul(gamma311,kyzL))),JacPDstandard2kxx)))); + kmadd(kxxL,gamma121,kmadd(kxzL,gamma321,kadd(JacPDstandard1kxy,knmsub(kyyL,gamma211,knmsub(kyzL,gamma311,kmsub(kxyL,ksub(gamma221,gamma111),JacPDstandard2kxx)))))); CCTK_REAL_VEC Ro113 = - kadd(JacPDstandard1kxz,kmadd(gamma131,kxxL,kmadd(gamma231,kxyL,ksub(knmsub(gamma211,kyzL,kmsub(kxzL,ksub(gamma331,gamma111),kmul(gamma311,kzzL))),JacPDstandard3kxx)))); + kmadd(kxxL,gamma131,kmadd(kxyL,gamma231,kadd(JacPDstandard1kxz,knmsub(kyzL,gamma211,knmsub(kzzL,gamma311,kmsub(kxzL,ksub(gamma331,gamma111),JacPDstandard3kxx)))))); CCTK_REAL_VEC Ro121 = - kadd(JacPDstandard2kxx,kmadd(gamma211,kyyL,kmadd(gamma311,kyzL,ksub(knmsub(gamma121,kxxL,kmsub(kxyL,ksub(gamma111,gamma221),kmul(gamma321,kxzL))),JacPDstandard1kxy)))); + kmadd(kyyL,gamma211,kmadd(kyzL,gamma311,kadd(JacPDstandard2kxx,knmsub(kxxL,gamma121,knmsub(kxzL,gamma321,kmsub(kxyL,ksub(gamma111,gamma221),JacPDstandard1kxy)))))); CCTK_REAL_VEC Ro122 = ToReal(0); CCTK_REAL_VEC Ro123 = - kadd(JacPDstandard2kxz,kmadd(gamma131,kxyL,kmadd(gamma231,kyyL,ksub(knmsub(gamma121,kxzL,kmsub(kyzL,ksub(gamma331,gamma221),kmul(gamma321,kzzL))),JacPDstandard3kxy)))); + kmadd(kxyL,gamma131,kmadd(kyyL,gamma231,kadd(JacPDstandard2kxz,knmsub(kxzL,gamma121,knmsub(kzzL,gamma321,kmsub(kyzL,ksub(gamma331,gamma221),JacPDstandard3kxy)))))); CCTK_REAL_VEC Ro131 = - kadd(JacPDstandard3kxx,kmadd(gamma211,kyzL,kmadd(gamma311,kzzL,ksub(knmsub(gamma131,kxxL,kmsub(kxzL,ksub(gamma111,gamma331),kmul(gamma231,kxyL))),JacPDstandard1kxz)))); + kmadd(kyzL,gamma211,kmadd(kzzL,gamma311,kadd(JacPDstandard3kxx,knmsub(kxxL,gamma131,knmsub(kxyL,gamma231,kmsub(kxzL,ksub(gamma111,gamma331),JacPDstandard1kxz)))))); CCTK_REAL_VEC Ro132 = - kadd(JacPDstandard3kxy,kmadd(gamma121,kxzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma131,kxyL,kmsub(kyzL,ksub(gamma221,gamma331),kmul(gamma231,kyyL))),JacPDstandard2kxz)))); + kmadd(kxzL,gamma121,kmadd(kzzL,gamma321,kadd(JacPDstandard3kxy,knmsub(kxyL,gamma131,knmsub(kyyL,gamma231,kmsub(kyzL,ksub(gamma221,gamma331),JacPDstandard2kxz)))))); CCTK_REAL_VEC Ro133 = ToReal(0); CCTK_REAL_VEC Ro211 = ToReal(0); CCTK_REAL_VEC Ro212 = - kadd(JacPDstandard1kyy,kmadd(gamma122,kxxL,kmadd(gamma322,kxzL,ksub(knmsub(gamma221,kyyL,kmsub(kxyL,ksub(gamma222,gamma121),kmul(gamma321,kyzL))),JacPDstandard2kxy)))); + kmadd(kxxL,gamma122,kmadd(kxzL,gamma322,kadd(JacPDstandard1kyy,knmsub(kyyL,gamma221,knmsub(kyzL,gamma321,kmsub(kxyL,ksub(gamma222,gamma121),JacPDstandard2kxy)))))); CCTK_REAL_VEC Ro213 = - kadd(JacPDstandard1kyz,kmadd(gamma132,kxxL,kmadd(gamma232,kxyL,ksub(knmsub(gamma221,kyzL,kmsub(kxzL,ksub(gamma332,gamma121),kmul(gamma321,kzzL))),JacPDstandard3kxy)))); + kmadd(kxxL,gamma132,kmadd(kxyL,gamma232,kadd(JacPDstandard1kyz,knmsub(kyzL,gamma221,knmsub(kzzL,gamma321,kmsub(kxzL,ksub(gamma332,gamma121),JacPDstandard3kxy)))))); CCTK_REAL_VEC Ro221 = - kadd(JacPDstandard2kxy,kmadd(gamma221,kyyL,kmadd(gamma321,kyzL,ksub(knmsub(gamma122,kxxL,kmsub(kxyL,ksub(gamma121,gamma222),kmul(gamma322,kxzL))),JacPDstandard1kyy)))); + kmadd(kyyL,gamma221,kmadd(kyzL,gamma321,kadd(JacPDstandard2kxy,knmsub(kxxL,gamma122,knmsub(kxzL,gamma322,kmsub(kxyL,ksub(gamma121,gamma222),JacPDstandard1kyy)))))); CCTK_REAL_VEC Ro222 = ToReal(0); CCTK_REAL_VEC Ro223 = - kadd(JacPDstandard2kyz,kmadd(gamma132,kxyL,kmadd(gamma232,kyyL,ksub(knmsub(gamma122,kxzL,kmsub(kyzL,ksub(gamma332,gamma222),kmul(gamma322,kzzL))),JacPDstandard3kyy)))); + kmadd(kxyL,gamma132,kmadd(kyyL,gamma232,kadd(JacPDstandard2kyz,knmsub(kxzL,gamma122,knmsub(kzzL,gamma322,kmsub(kyzL,ksub(gamma332,gamma222),JacPDstandard3kyy)))))); CCTK_REAL_VEC Ro231 = - kadd(JacPDstandard3kxy,kmadd(gamma221,kyzL,kmadd(gamma321,kzzL,ksub(knmsub(gamma132,kxxL,kmsub(kxzL,ksub(gamma121,gamma332),kmul(gamma232,kxyL))),JacPDstandard1kyz)))); + kmadd(kyzL,gamma221,kmadd(kzzL,gamma321,kadd(JacPDstandard3kxy,knmsub(kxxL,gamma132,knmsub(kxyL,gamma232,kmsub(kxzL,ksub(gamma121,gamma332),JacPDstandard1kyz)))))); CCTK_REAL_VEC Ro232 = - kadd(JacPDstandard3kyy,kmadd(gamma122,kxzL,kmadd(gamma322,kzzL,ksub(knmsub(gamma132,kxyL,kmsub(kyzL,ksub(gamma222,gamma332),kmul(gamma232,kyyL))),JacPDstandard2kyz)))); + kmadd(kxzL,gamma122,kmadd(kzzL,gamma322,kadd(JacPDstandard3kyy,knmsub(kxyL,gamma132,knmsub(kyyL,gamma232,kmsub(kyzL,ksub(gamma222,gamma332),JacPDstandard2kyz)))))); CCTK_REAL_VEC Ro233 = ToReal(0); CCTK_REAL_VEC Ro311 = ToReal(0); CCTK_REAL_VEC Ro312 = - kadd(JacPDstandard1kyz,kmadd(gamma132,kxxL,kmadd(gamma332,kxzL,ksub(knmsub(gamma231,kyyL,kmsub(kxyL,ksub(gamma232,gamma131),kmul(gamma331,kyzL))),JacPDstandard2kxz)))); + kmadd(kxxL,gamma132,kmadd(kxzL,gamma332,kadd(JacPDstandard1kyz,knmsub(kyyL,gamma231,knmsub(kyzL,gamma331,kmsub(kxyL,ksub(gamma232,gamma131),JacPDstandard2kxz)))))); CCTK_REAL_VEC Ro313 = - kadd(JacPDstandard1kzz,kmadd(gamma133,kxxL,kmadd(gamma233,kxyL,ksub(knmsub(gamma231,kyzL,kmsub(kxzL,ksub(gamma333,gamma131),kmul(gamma331,kzzL))),JacPDstandard3kxz)))); + kmadd(kxxL,gamma133,kmadd(kxyL,gamma233,kadd(JacPDstandard1kzz,knmsub(kyzL,gamma231,knmsub(kzzL,gamma331,kmsub(kxzL,ksub(gamma333,gamma131),JacPDstandard3kxz)))))); CCTK_REAL_VEC Ro321 = - kadd(JacPDstandard2kxz,kmadd(gamma231,kyyL,kmadd(gamma331,kyzL,ksub(knmsub(gamma132,kxxL,kmsub(kxyL,ksub(gamma131,gamma232),kmul(gamma332,kxzL))),JacPDstandard1kyz)))); + kmadd(kyyL,gamma231,kmadd(kyzL,gamma331,kadd(JacPDstandard2kxz,knmsub(kxxL,gamma132,knmsub(kxzL,gamma332,kmsub(kxyL,ksub(gamma131,gamma232),JacPDstandard1kyz)))))); CCTK_REAL_VEC Ro322 = ToReal(0); CCTK_REAL_VEC Ro323 = - kadd(JacPDstandard2kzz,kmadd(gamma133,kxyL,kmadd(gamma233,kyyL,ksub(knmsub(gamma132,kxzL,kmsub(kyzL,ksub(gamma333,gamma232),kmul(gamma332,kzzL))),JacPDstandard3kyz)))); + kmadd(kxyL,gamma133,kmadd(kyyL,gamma233,kadd(JacPDstandard2kzz,knmsub(kxzL,gamma132,knmsub(kzzL,gamma332,kmsub(kyzL,ksub(gamma333,gamma232),JacPDstandard3kyz)))))); CCTK_REAL_VEC Ro331 = - kadd(JacPDstandard3kxz,kmadd(gamma231,kyzL,kmadd(gamma331,kzzL,ksub(knmsub(gamma133,kxxL,kmsub(kxzL,ksub(gamma131,gamma333),kmul(gamma233,kxyL))),JacPDstandard1kzz)))); + kmadd(kyzL,gamma231,kmadd(kzzL,gamma331,kadd(JacPDstandard3kxz,knmsub(kxxL,gamma133,knmsub(kxyL,gamma233,kmsub(kxzL,ksub(gamma131,gamma333),JacPDstandard1kzz)))))); CCTK_REAL_VEC Ro332 = - kadd(JacPDstandard3kyz,kmadd(gamma132,kxzL,kmadd(gamma332,kzzL,ksub(knmsub(gamma133,kxyL,kmsub(kyzL,ksub(gamma232,gamma333),kmul(gamma233,kyyL))),JacPDstandard2kzz)))); + kmadd(kxzL,gamma132,kmadd(kzzL,gamma332,kadd(JacPDstandard3kyz,knmsub(kxyL,gamma133,knmsub(kyyL,gamma233,kmsub(kyzL,ksub(gamma232,gamma333),JacPDstandard2kzz)))))); CCTK_REAL_VEC Ro333 = ToReal(0); -- cgit v1.2.3