diff options
Diffstat (limited to 'ML_ADM/src/ML_ADM_RHS.cc')
| -rw-r--r-- | ML_ADM/src/ML_ADM_RHS.cc | 139 |
1 files changed, 72 insertions, 67 deletions
diff --git a/ML_ADM/src/ML_ADM_RHS.cc b/ML_ADM/src/ML_ADM_RHS.cc index bf614c1..831f3db 100644 --- a/ML_ADM/src/ML_ADM_RHS.cc +++ b/ML_ADM/src/ML_ADM_RHS.cc @@ -74,13 +74,18 @@ static void ML_ADM_RHS_Body(const cGH* restrict const cctkGH, const int dir, con const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5); - const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0); - const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0); - const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0); - const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0); - const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi); - const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi); - const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi); + const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = + ToReal(0.333333333333333333333333333333); + const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = + ToReal(0.666666666666666666666666666667); + const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = + ToReal(1.33333333333333333333333333333); + const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = + kmul(dxi,ToReal(0.5)); + const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = + kmul(dyi,ToReal(0.5)); + const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = + kmul(dzi,ToReal(0.5)); /* Initialize predefined quantities */ const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx); @@ -1344,180 +1349,180 @@ static void ML_ADM_RHS_Body(const cGH* restrict const cctkGH, const int dir, con JacPDstandardNth32g33 = PDstandardNth23g33; } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detg = + CCTK_REAL_VEC detg CCTK_ATTRIBUTE_UNUSED = knmsub(g22L,kmul(g13L,g13L),knmsub(g11L,kmul(g23L,g23L),kmadd(g33L,kmsub(g11L,g22L,kmul(g12L,g12L)),kmul(g12L,kmul(g13L,kmul(g23L,ToReal(2))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = + CCTK_REAL_VEC gu11 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g22L,g33L,kmul(g23L,g23L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = + CCTK_REAL_VEC gu12 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g13L,g23L,kmul(g12L,g33L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = + CCTK_REAL_VEC gu13 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12L,g23L,kmul(g13L,g22L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu21 = + CCTK_REAL_VEC gu21 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g13L,g23L,kmul(g12L,g33L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = + CCTK_REAL_VEC gu22 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g11L,g33L,kmul(g13L,g13L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = + CCTK_REAL_VEC gu23 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12L,g13L,kmul(g11L,g23L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu31 = + CCTK_REAL_VEC gu31 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12L,g23L,kmul(g13L,g22L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu32 = + CCTK_REAL_VEC gu32 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12L,g13L,kmul(g11L,g23L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = + CCTK_REAL_VEC gu33 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g11L,g22L,kmul(g12L,g12L)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G111 = + CCTK_REAL_VEC G111 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu11,JacPDstandardNth1g11,knmsub(gu12,JacPDstandardNth2g11,kmsub(kmadd(gu12,JacPDstandardNth1g12,kmul(gu13,JacPDstandardNth1g13)),ToReal(2),kmul(gu13,JacPDstandardNth3g11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G211 = + CCTK_REAL_VEC G211 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu21,JacPDstandardNth1g11,knmsub(gu22,JacPDstandardNth2g11,kmsub(kmadd(gu22,JacPDstandardNth1g12,kmul(gu23,JacPDstandardNth1g13)),ToReal(2),kmul(gu23,JacPDstandardNth3g11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G311 = + CCTK_REAL_VEC G311 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu31,JacPDstandardNth1g11,knmsub(gu32,JacPDstandardNth2g11,kmsub(kmadd(gu32,JacPDstandardNth1g12,kmul(gu33,JacPDstandardNth1g13)),ToReal(2),kmul(gu33,JacPDstandardNth3g11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G112 = + CCTK_REAL_VEC G112 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu12,JacPDstandardNth1g22,kmadd(gu11,JacPDstandardNth2g11,kmul(gu13,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth2g13,JacPDstandardNth3g12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G212 = + CCTK_REAL_VEC G212 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu22,JacPDstandardNth1g22,kmadd(gu21,JacPDstandardNth2g11,kmul(gu23,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth2g13,JacPDstandardNth3g12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G312 = + CCTK_REAL_VEC G312 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu32,JacPDstandardNth1g22,kmadd(gu31,JacPDstandardNth2g11,kmul(gu33,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth2g13,JacPDstandardNth3g12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G113 = + CCTK_REAL_VEC G113 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu13,JacPDstandardNth1g33,kmadd(gu11,JacPDstandardNth3g11,kmul(gu12,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth3g12,JacPDstandardNth2g13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G213 = + CCTK_REAL_VEC G213 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu23,JacPDstandardNth1g33,kmadd(gu21,JacPDstandardNth3g11,kmul(gu22,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth3g12,JacPDstandardNth2g13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G313 = + CCTK_REAL_VEC G313 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu33,JacPDstandardNth1g33,kmadd(gu31,JacPDstandardNth3g11,kmul(gu32,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth3g12,JacPDstandardNth2g13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G122 = + CCTK_REAL_VEC G122 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu12,JacPDstandardNth2g22,kmadd(gu11,kmsub(JacPDstandardNth2g12,ToReal(2),JacPDstandardNth1g22),kmul(gu13,kmsub(JacPDstandardNth2g23,ToReal(2),JacPDstandardNth3g22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G222 = + CCTK_REAL_VEC G222 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu22,JacPDstandardNth2g22,kmadd(gu21,kmsub(JacPDstandardNth2g12,ToReal(2),JacPDstandardNth1g22),kmul(gu23,kmsub(JacPDstandardNth2g23,ToReal(2),JacPDstandardNth3g22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G322 = + CCTK_REAL_VEC G322 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu32,JacPDstandardNth2g22,kmadd(gu31,kmsub(JacPDstandardNth2g12,ToReal(2),JacPDstandardNth1g22),kmul(gu33,kmsub(JacPDstandardNth2g23,ToReal(2),JacPDstandardNth3g22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G123 = + CCTK_REAL_VEC G123 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu13,JacPDstandardNth2g33,kmadd(gu12,JacPDstandardNth3g22,kmul(gu11,kadd(JacPDstandardNth2g13,ksub(JacPDstandardNth3g12,JacPDstandardNth1g23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G223 = + CCTK_REAL_VEC G223 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu23,JacPDstandardNth2g33,kmadd(gu22,JacPDstandardNth3g22,kmul(gu21,kadd(JacPDstandardNth2g13,ksub(JacPDstandardNth3g12,JacPDstandardNth1g23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G323 = + CCTK_REAL_VEC G323 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gu33,JacPDstandardNth2g33,kmadd(gu32,JacPDstandardNth3g22,kmul(gu31,kadd(JacPDstandardNth2g13,ksub(JacPDstandardNth3g12,JacPDstandardNth1g23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G133 = + CCTK_REAL_VEC G133 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu13,JacPDstandardNth3g33,kmadd(gu11,kmsub(JacPDstandardNth3g13,ToReal(2),JacPDstandardNth1g33),kmul(gu12,kmsub(JacPDstandardNth3g23,ToReal(2),JacPDstandardNth2g33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G233 = + CCTK_REAL_VEC G233 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu23,JacPDstandardNth3g33,kmadd(gu21,kmsub(JacPDstandardNth3g13,ToReal(2),JacPDstandardNth1g33),kmul(gu22,kmsub(JacPDstandardNth3g23,ToReal(2),JacPDstandardNth2g33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G333 = + CCTK_REAL_VEC G333 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu33,JacPDstandardNth3g33,kmadd(gu31,kmsub(JacPDstandardNth3g13,ToReal(2),JacPDstandardNth1g33),kmul(gu32,kmsub(JacPDstandardNth3g23,ToReal(2),JacPDstandardNth2g33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = + CCTK_REAL_VEC R11 CCTK_ATTRIBUTE_UNUSED = kmadd(G111,G111,kmadd(G212,G212,kmadd(G313,G313,knmsub(G111,kadd(G111,kadd(G212,G313)),knmsub(G211,kadd(G112,kadd(G222,G323)),knmsub(G311,kadd(G113,kadd(G223,G333)),kmadd(knmsub(gu22,kadd(JacPDstandardNth11g22,kmadd(JacPDstandardNth21g12,ToReal(-2),JacPDstandardNth22g11)),knmsub(gu33,kadd(JacPDstandardNth11g33,kmadd(JacPDstandardNth31g13,ToReal(-2),JacPDstandardNth33g11)),kmadd(gu12,ksub(JacPDstandardNth21g11,JacPDstandardNth12g11),kmadd(gu13,ksub(JacPDstandardNth31g11,JacPDstandardNth13g11),kmadd(gu23,kadd(JacPDstandardNth21g13,ksub(JacPDstandardNth31g12,kadd(JacPDstandardNth23g11,JacPDstandardNth11g23))),kmul(gu32,kadd(JacPDstandardNth21g13,ksub(JacPDstandardNth31g12,kadd(JacPDstandardNth32g11,JacPDstandardNth11g23))))))))),ToReal(0.5),kmul(kmadd(G112,G211,kmadd(G113,G311,kmul(G213,G312))),ToReal(2))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = + CCTK_REAL_VEC R12 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu12,kadd(JacPDstandardNth11g22,JacPDstandardNth22g11),kmadd(gu32,JacPDstandardNth31g22,kmadd(gu13,JacPDstandardNth32g11,kmadd(gu23,JacPDstandardNth32g12,kmadd(gu33,JacPDstandardNth32g13,kmadd(kmadd(G112,kadd(G212,G313),kmadd(G212,G323,kmadd(G312,G333,kmul(gu12,JacPDstandardNth12g12)))),ToReal(-2),knmsub(JacPDstandardNth12g23,kadd(gu32,gu23),kmadd(gu22,ksub(JacPDstandardNth21g22,JacPDstandardNth12g22),kmadd(gu13,ksub(JacPDstandardNth11g23,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13)),kmadd(gu23,ksub(JacPDstandardNth21g23,JacPDstandardNth23g12),kmadd(gu32,ksub(JacPDstandardNth22g13,JacPDstandardNth32g12),kmadd(gu33,ksub(JacPDstandardNth31g23,kadd(JacPDstandardNth33g12,JacPDstandardNth12g33)),kmul(kmadd(G122,G211,kmadd(G123,G311,kmadd(G213,G322,kmul(G313,G323)))),ToReal(2))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = + CCTK_REAL_VEC R13 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu22,JacPDstandardNth23g12,kmadd(gu32,JacPDstandardNth31g23,kmadd(gu13,kadd(JacPDstandardNth11g33,JacPDstandardNth33g11),kmadd(gu23,JacPDstandardNth33g12,kmadd(kmadd(G213,G222,kmadd(G223,G313,kmadd(G113,kadd(G212,G313),kmul(gu13,JacPDstandardNth13g13)))),ToReal(-2),knmsub(JacPDstandardNth13g23,kadd(gu32,gu23),kmadd(gu12,kadd(JacPDstandardNth11g23,ksub(JacPDstandardNth23g11,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13))),kmadd(gu33,ksub(JacPDstandardNth31g33,JacPDstandardNth13g33),kmadd(gu22,ksub(JacPDstandardNth21g23,kadd(JacPDstandardNth22g13,JacPDstandardNth13g22)),kmadd(gu23,ksub(JacPDstandardNth21g33,JacPDstandardNth23g13),kmadd(gu32,ksub(JacPDstandardNth23g13,JacPDstandardNth32g13),kmul(kmadd(G123,G211,kmadd(G212,G223,kmadd(G133,G311,kmul(G233,G312)))),ToReal(2)))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = + CCTK_REAL_VEC R22 CCTK_ATTRIBUTE_UNUSED = kmadd(G112,G112,kmadd(G222,G222,kmadd(G323,G323,knmsub(G122,kadd(G111,kadd(G212,G313)),knmsub(G222,kadd(G112,kadd(G222,G323)),knmsub(G322,kadd(G113,kadd(G223,G333)),kmadd(knmsub(gu11,kadd(JacPDstandardNth11g22,kmadd(JacPDstandardNth12g12,ToReal(-2),JacPDstandardNth22g11)),knmsub(gu33,kadd(JacPDstandardNth22g33,kmadd(JacPDstandardNth32g23,ToReal(-2),JacPDstandardNth33g22)),kmadd(gu21,ksub(JacPDstandardNth12g22,JacPDstandardNth21g22),kmadd(gu13,kadd(JacPDstandardNth12g23,ksub(JacPDstandardNth32g12,kadd(JacPDstandardNth22g13,JacPDstandardNth13g22))),kmadd(gu23,ksub(JacPDstandardNth32g22,JacPDstandardNth23g22),kmul(gu31,kadd(JacPDstandardNth12g23,ksub(JacPDstandardNth32g12,kadd(JacPDstandardNth31g22,JacPDstandardNth22g13))))))))),ToReal(0.5),kmul(kmadd(G122,G212,kmadd(G123,G312,kmul(G223,G322))),ToReal(2))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = + CCTK_REAL_VEC R23 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu23,kadd(JacPDstandardNth22g33,JacPDstandardNth33g22),kmadd(kmadd(G111,G123,kmadd(kadd(G113,G223),G323,kmul(gu23,JacPDstandardNth23g23))),ToReal(-2),kmadd(gu11,kadd(JacPDstandardNth12g13,ksub(JacPDstandardNth13g12,kadd(JacPDstandardNth23g11,JacPDstandardNth11g23))),kmadd(gu21,kadd(JacPDstandardNth13g22,ksub(JacPDstandardNth22g13,kadd(JacPDstandardNth23g12,JacPDstandardNth21g23))),kmadd(gu13,kadd(JacPDstandardNth12g33,ksub(JacPDstandardNth33g12,kadd(JacPDstandardNth23g13,JacPDstandardNth13g23))),kmadd(gu33,ksub(JacPDstandardNth32g33,JacPDstandardNth23g33),kmadd(gu31,kadd(JacPDstandardNth13g23,ksub(JacPDstandardNth32g13,kadd(JacPDstandardNth31g23,JacPDstandardNth23g13))),kmul(kmadd(G122,G213,kmadd(G133,G312,kmadd(G233,G322,kmul(G112,ksub(G113,G223))))),ToReal(2)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = + CCTK_REAL_VEC R33 CCTK_ATTRIBUTE_UNUSED = kmadd(G113,G113,kmadd(G223,G223,kmadd(G333,G333,knmsub(G133,kadd(G111,kadd(G212,G313)),knmsub(G333,kadd(G113,kadd(G223,G333)),kmadd(G233,ksub(G323,kadd(G222,G112)),kmadd(knmsub(gu11,kadd(JacPDstandardNth11g33,kmadd(JacPDstandardNth13g13,ToReal(-2),JacPDstandardNth33g11)),knmsub(gu22,kadd(JacPDstandardNth22g33,kmadd(JacPDstandardNth23g23,ToReal(-2),JacPDstandardNth33g22)),kmadd(gu31,ksub(JacPDstandardNth13g33,JacPDstandardNth31g33),kmadd(gu32,ksub(JacPDstandardNth23g33,JacPDstandardNth32g33),kmadd(gu12,kadd(JacPDstandardNth13g23,ksub(JacPDstandardNth23g13,kadd(JacPDstandardNth33g12,JacPDstandardNth12g33))),kmul(gu21,kadd(JacPDstandardNth13g23,ksub(JacPDstandardNth23g13,kadd(JacPDstandardNth33g12,JacPDstandardNth21g33))))))))),ToReal(0.5),kmul(kmadd(G123,G213,kmul(G133,G313)),ToReal(2))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km11 = + CCTK_REAL_VEC Km11 CCTK_ATTRIBUTE_UNUSED = kmadd(K11L,gu11,kmadd(K12L,gu12,kmul(K13L,gu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km21 = + CCTK_REAL_VEC Km21 CCTK_ATTRIBUTE_UNUSED = kmadd(K11L,gu21,kmadd(K12L,gu22,kmul(K13L,gu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km31 = + CCTK_REAL_VEC Km31 CCTK_ATTRIBUTE_UNUSED = kmadd(K11L,gu31,kmadd(K12L,gu32,kmul(K13L,gu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km12 = + CCTK_REAL_VEC Km12 CCTK_ATTRIBUTE_UNUSED = kmadd(K12L,gu11,kmadd(K22L,gu12,kmul(K23L,gu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km22 = + CCTK_REAL_VEC Km22 CCTK_ATTRIBUTE_UNUSED = kmadd(K12L,gu21,kmadd(K22L,gu22,kmul(K23L,gu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km32 = + CCTK_REAL_VEC Km32 CCTK_ATTRIBUTE_UNUSED = kmadd(K12L,gu31,kmadd(K22L,gu32,kmul(K23L,gu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km13 = + CCTK_REAL_VEC Km13 CCTK_ATTRIBUTE_UNUSED = kmadd(K13L,gu11,kmadd(K23L,gu12,kmul(K33L,gu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km23 = + CCTK_REAL_VEC Km23 CCTK_ATTRIBUTE_UNUSED = kmadd(K13L,gu21,kmadd(K23L,gu22,kmul(K33L,gu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km33 = + CCTK_REAL_VEC Km33 CCTK_ATTRIBUTE_UNUSED = kmadd(K13L,gu31,kmadd(K23L,gu32,kmul(K33L,gu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trK = kadd(Km11,kadd(Km22,Km33)); + CCTK_REAL_VEC trK CCTK_ATTRIBUTE_UNUSED = kadd(Km11,kadd(Km22,Km33)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11rhsL = + CCTK_REAL_VEC g11rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(beta1L,JacPDstandardNth1g11,kmadd(beta2L,JacPDstandardNth2g11,kmadd(beta3L,JacPDstandardNth3g11,kmadd(alphaL,kmul(K11L,ToReal(-2)),kmul(kmadd(g11L,JacPDstandardNth1beta1,kmadd(g12L,JacPDstandardNth1beta2,kmul(g13L,JacPDstandardNth1beta3))),ToReal(2)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12rhsL = + CCTK_REAL_VEC g12rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(g22L,JacPDstandardNth1beta2,kmadd(g23L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1g12,kmadd(g11L,JacPDstandardNth2beta1,kmadd(g12L,kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),kmadd(g13L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2g12,kmadd(beta3L,JacPDstandardNth3g12,kmul(alphaL,kmul(K12L,ToReal(-2))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13rhsL = + CCTK_REAL_VEC g13rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(g23L,JacPDstandardNth1beta2,kmadd(g33L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1g13,kmadd(beta2L,JacPDstandardNth2g13,kmadd(g11L,JacPDstandardNth3beta1,kmadd(g12L,JacPDstandardNth3beta2,kmadd(g13L,kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3g13,kmul(alphaL,kmul(K13L,ToReal(-2))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22rhsL = + CCTK_REAL_VEC g22rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(beta1L,JacPDstandardNth1g22,kmadd(beta2L,JacPDstandardNth2g22,kmadd(beta3L,JacPDstandardNth3g22,kmadd(alphaL,kmul(K22L,ToReal(-2)),kmul(kmadd(g12L,JacPDstandardNth2beta1,kmadd(g22L,JacPDstandardNth2beta2,kmul(g23L,JacPDstandardNth2beta3))),ToReal(2)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23rhsL = + CCTK_REAL_VEC g23rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(beta1L,JacPDstandardNth1g23,kmadd(g13L,JacPDstandardNth2beta1,kmadd(g33L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2g23,kmadd(g12L,JacPDstandardNth3beta1,kmadd(g22L,JacPDstandardNth3beta2,kmadd(g23L,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3g23,kmul(alphaL,kmul(K23L,ToReal(-2))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33rhsL = + CCTK_REAL_VEC g33rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(beta1L,JacPDstandardNth1g33,kmadd(beta2L,JacPDstandardNth2g33,kmadd(beta3L,JacPDstandardNth3g33,kmadd(alphaL,kmul(K33L,ToReal(-2)),kmul(kmadd(g13L,JacPDstandardNth3beta1,kmadd(g23L,JacPDstandardNth3beta2,kmul(g33L,JacPDstandardNth3beta3))),ToReal(2)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11rhsL = + CCTK_REAL_VEC K11rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(G111,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K11,kmadd(G211,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K11,kmadd(G311,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K11,kmadd(alphaL,kadd(R11,kmadd(K11L,trK,kmul(kmadd(K11L,Km11,kmadd(K12L,Km21,kmul(K13L,Km31))),ToReal(-2)))),kmsub(kmadd(K11L,JacPDstandardNth1beta1,kmadd(K12L,JacPDstandardNth1beta2,kmul(K13L,JacPDstandardNth1beta3))),ToReal(2),JacPDstandardNth11alpha)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12rhsL = + CCTK_REAL_VEC K12rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(G112,JacPDstandardNth1alpha,kmadd(K22L,JacPDstandardNth1beta2,kmadd(K23L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1K12,kmadd(G212,JacPDstandardNth2alpha,kmadd(K11L,JacPDstandardNth2beta1,kmadd(K12L,kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),kmadd(K13L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2K12,kmadd(G312,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K12,kmsub(alphaL,kadd(R12,kmadd(K12L,trK,kmul(kmadd(K11L,Km12,kmadd(K12L,Km22,kmul(K13L,Km32))),ToReal(-2)))),JacPDstandardNth12alpha)))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13rhsL = + CCTK_REAL_VEC K13rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(G113,JacPDstandardNth1alpha,kmadd(K23L,JacPDstandardNth1beta2,kmadd(K33L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1K13,kmadd(G213,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K13,kmadd(G313,JacPDstandardNth3alpha,kmadd(K11L,JacPDstandardNth3beta1,kmadd(K12L,JacPDstandardNth3beta2,kmadd(K13L,kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3K13,kmsub(alphaL,kadd(R13,kmadd(K13L,trK,kmul(kmadd(K11L,Km13,kmadd(K12L,Km23,kmul(K13L,Km33))),ToReal(-2)))),JacPDstandardNth13alpha)))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22rhsL = + CCTK_REAL_VEC K22rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(G122,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K22,kmadd(G222,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K22,kmadd(G322,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K22,kmadd(alphaL,kadd(R22,kmadd(K22L,trK,kmul(kmadd(K12L,Km12,kmadd(K22L,Km22,kmul(K23L,Km32))),ToReal(-2)))),kmsub(kmadd(K12L,JacPDstandardNth2beta1,kmadd(K22L,JacPDstandardNth2beta2,kmul(K23L,JacPDstandardNth2beta3))),ToReal(2),JacPDstandardNth22alpha)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23rhsL = + CCTK_REAL_VEC K23rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(G123,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K23,kmadd(G223,JacPDstandardNth2alpha,kmadd(K13L,JacPDstandardNth2beta1,kmadd(K33L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2K23,kmadd(G323,JacPDstandardNth3alpha,kmadd(K12L,JacPDstandardNth3beta1,kmadd(K22L,JacPDstandardNth3beta2,kmadd(K23L,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3K23,kmsub(alphaL,kadd(R23,kmadd(K23L,trK,kmul(kmadd(K12L,Km13,kmadd(K22L,Km23,kmul(K23L,Km33))),ToReal(-2)))),JacPDstandardNth23alpha)))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33rhsL = + CCTK_REAL_VEC K33rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(G133,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K33,kmadd(G233,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K33,kmadd(G333,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K33,kmadd(alphaL,kadd(R33,kmadd(K33L,trK,kmul(kmadd(K13L,Km13,kmadd(K23L,Km23,kmul(K33L,Km33))),ToReal(-2)))),kmsub(kmadd(K13L,JacPDstandardNth3beta1,kmadd(K23L,JacPDstandardNth3beta2,kmul(K33L,JacPDstandardNth3beta3))),ToReal(2),JacPDstandardNth33alpha)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1rhsL = ToReal(0); + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2rhsL = ToReal(0); + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3rhsL = ToReal(0); + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); |