diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-10 16:03:25 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-10 16:03:25 +0200 |
| commit | 8df3aae833eb6bf334b0decb57ebf9e1baf33ddf (patch) | |
| tree | bd9193699a88b7a5743bdee1d58ebf203ef7b94b | |
| parent | 51f5f80e196f950622f63977ae344580faf1cb2e (diff) | |
Regenerate code (Kranc commit 10daf4a83a783a812c7b5a3aba0df115f0eac98f)
57 files changed, 1285 insertions, 1022 deletions
diff --git a/ML_ADM/src/ML_ADM_Minkowski.cc b/ML_ADM/src/ML_ADM_Minkowski.cc index 2e69f13..b0fdfc6 100644 --- a/ML_ADM/src/ML_ADM_Minkowski.cc +++ b/ML_ADM/src/ML_ADM_Minkowski.cc @@ -51,13 +51,18 @@ static void ML_ADM_Minkowski_Body(const cGH* restrict const cctkGH, const int di 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); @@ -223,37 +228,37 @@ static void ML_ADM_Minkowski_Body(const cGH* restrict const cctkGH, const int di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11L = ToReal(1); + CCTK_REAL_VEC g11L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12L = ToReal(0); + CCTK_REAL_VEC g12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13L = ToReal(0); + CCTK_REAL_VEC g13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22L = ToReal(1); + CCTK_REAL_VEC g22L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23L = ToReal(0); + CCTK_REAL_VEC g23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33L = ToReal(1); + CCTK_REAL_VEC g33L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11L = ToReal(0); + CCTK_REAL_VEC K11L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12L = ToReal(0); + CCTK_REAL_VEC K12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13L = ToReal(0); + CCTK_REAL_VEC K13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22L = ToReal(0); + CCTK_REAL_VEC K22L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23L = ToReal(0); + CCTK_REAL_VEC K23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33L = ToReal(0); + CCTK_REAL_VEC K33L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); 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); diff --git a/ML_ADM/src/ML_ADM_boundary.cc b/ML_ADM/src/ML_ADM_boundary.cc index 275fa5d..262de3d 100644 --- a/ML_ADM/src/ML_ADM_boundary.cc +++ b/ML_ADM/src/ML_ADM_boundary.cc @@ -74,13 +74,18 @@ static void ML_ADM_boundary_Body(const cGH* restrict const cctkGH, const int dir 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); @@ -246,37 +251,37 @@ static void ML_ADM_boundary_Body(const cGH* restrict const cctkGH, const int dir } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11L = ToReal(1); + CCTK_REAL_VEC g11L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12L = ToReal(0); + CCTK_REAL_VEC g12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13L = ToReal(0); + CCTK_REAL_VEC g13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22L = ToReal(1); + CCTK_REAL_VEC g22L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23L = ToReal(0); + CCTK_REAL_VEC g23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33L = ToReal(1); + CCTK_REAL_VEC g33L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11L = ToReal(0); + CCTK_REAL_VEC K11L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12L = ToReal(0); + CCTK_REAL_VEC K12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13L = ToReal(0); + CCTK_REAL_VEC K13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22L = ToReal(0); + CCTK_REAL_VEC K22L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23L = ToReal(0); + CCTK_REAL_VEC K23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33L = ToReal(0); + CCTK_REAL_VEC K33L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_ADM/src/ML_ADM_constraints.cc b/ML_ADM/src/ML_ADM_constraints.cc index 847cf6f..2389c94 100644 --- a/ML_ADM/src/ML_ADM_constraints.cc +++ b/ML_ADM/src/ML_ADM_constraints.cc @@ -68,13 +68,18 @@ static void ML_ADM_constraints_Body(const cGH* restrict const cctkGH, const int 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); @@ -1118,150 +1123,150 @@ static void ML_ADM_constraints_Body(const cGH* restrict const cctkGH, const int 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 = kmul(ToReal(0.5),kmadd(gu23,JacPDstandardNth31g12,kmadd(gu32,JacPDstandardNth31g12,kmadd(gu12,ksub(JacPDstandardNth21g11,JacPDstandardNth12g11),kmadd(gu13,ksub(JacPDstandardNth31g11,JacPDstandardNth13g11),kmadd(kmadd(g23L,kmul(G212,kmul(G313,gu23)),kmadd(g33L,kmul(G312,kmul(G313,gu23)),kmadd(g22L,kmul(G212,kmul(G213,gu32)),kmadd(g13L,kmul(G113,kmul(G312,gu32)),kmadd(g23L,kmul(G213,kmul(G312,gu32)),kmadd(g13L,kmul(G112,kmul(G313,gu32)),kmadd(g23L,kmul(G212,kmul(G313,gu32)),kmul(gu22,JacPDstandardNth21g12)))))))),ToReal(2),kmadd(g22L,kmul(gu22,kmul(kmul(G212,G212),ToReal(2))),kmadd(g22L,kmul(gu33,kmul(kmul(G213,G213),ToReal(2))),kmadd(g33L,kmul(gu22,kmul(kmul(G312,G312),ToReal(2))),kmadd(g33L,kmul(gu33,kmul(kmul(G313,G313),ToReal(2))),kmadd(g11L,kmul(kmadd(G112,kmul(G113,kadd(gu23,gu32)),kmadd(gu22,kmul(G112,G112),kmsub(gu33,kmul(G113,G113),kmul(G111,kmadd(G122,gu22,kmadd(G123,kadd(gu23,gu32),kmul(G133,gu33))))))),ToReal(2)),kmadd(gu23,kadd(JacPDstandardNth21g13,kmadd(g13L,kmul(G123,kmul(G311,ToReal(-2))),kmadd(g23L,kmul(G223,kmul(G311,ToReal(-2))),kmadd(g13L,kmul(G111,kmul(G323,ToReal(-2))),ksub(ksub(kmadd(g22L,kmul(G212,kmul(G213,ToReal(2))),kmadd(g13L,kmul(G113,kmul(G312,ToReal(2))),kmadd(g23L,kmul(G213,kmul(G312,ToReal(2))),kmul(g13L,kmul(G112,kmul(G313,ToReal(2))))))),JacPDstandardNth23g11),JacPDstandardNth11g23))))),kmadd(gu32,kadd(JacPDstandardNth21g13,kmadd(g13L,kmul(G111,kmul(G323,ToReal(-2))),ksub(kmsub(g33L,kmul(G312,kmul(G313,ToReal(2))),JacPDstandardNth32g11),JacPDstandardNth11g23))),kmadd(gu33,ksub(kmsub(JacPDstandardNth31g13,ToReal(2),JacPDstandardNth33g11),JacPDstandardNth11g33),kmadd(ToReal(-2),kmadd(g22L,kmul(G211,kmul(G222,gu22)),kmadd(g13L,kmul(G122,kmul(G311,gu22)),kmadd(g23L,kmul(G211,kmul(G322,gu22)),kmadd(g33L,kmul(G311,kmul(G322,gu22)),kmadd(g22L,kmul(G211,kmul(G223,gu23)),kmadd(g23L,kmul(G211,kmul(G323,gu23)),kmadd(g33L,kmul(G311,kmul(G323,gu23)),kmadd(g22L,kmul(G211,kmul(G223,gu32)),kmadd(g13L,kmul(G123,kmul(G311,gu32)),kmadd(g23L,kmul(G223,kmul(G311,gu32)),kmadd(g23L,kmul(G211,kmul(G323,gu32)),kmadd(g33L,kmul(G311,kmul(G323,gu32)),kmadd(g22L,kmul(G211,kmul(G233,gu33)),kmadd(g13L,kmul(G133,kmul(G311,gu33)),kmadd(g23L,kmul(G233,kmul(G311,gu33)),kmadd(g13L,kmul(G111,kmul(G333,gu33)),kmadd(g23L,kmul(G211,kmul(G333,gu33)),kmadd(g33L,kmul(G311,kmul(G333,gu33)),kmul(g12L,kmadd(G122,kmul(G211,gu22),kmadd(G111,kmul(G222,gu22),kmadd(G111,kmul(G223,gu23),kmadd(G111,kmul(G223,gu32),kmadd(G133,kmul(G211,gu33),kmadd(G111,kmul(G233,gu33),kmadd(G113,kmul(G213,kmul(gu33,ToReal(-2))),kmadd(gu23,kmsub(G123,G211,kmul(G113,G212)),kmsub(gu32,kmsub(G123,G211,kmul(G113,G212)),kmul(G112,kmadd(G213,kadd(gu23,gu32),kmul(G212,kmul(gu22,ToReal(2))))))))))))))))))))))))))))))))),kmadd(kmadd(g13L,kmul(G113,kmul(G313,gu33)),kmul(g23L,kmul(G213,kmul(G313,gu33)))),ToReal(4),kmul(gu22,kmadd(g23L,kmul(G222,kmul(G311,ToReal(-2))),kmadd(g13L,kmul(G111,kmul(G322,ToReal(-2))),ksub(ksub(kmadd(g13L,kmul(G112,kmul(G312,ToReal(4))),kmul(g23L,kmul(G212,kmul(G312,ToReal(4))))),JacPDstandardNth22g11),JacPDstandardNth11g22)))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = + CCTK_REAL_VEC R12 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu23,JacPDstandardNth21g23,kmadd(gu12,kadd(JacPDstandardNth11g22,JacPDstandardNth22g11),kmadd(gu32,JacPDstandardNth31g22,kmadd(gu33,JacPDstandardNth31g23,kmadd(gu13,JacPDstandardNth32g11,kmadd(gu23,JacPDstandardNth32g12,kmadd(gu33,JacPDstandardNth32g13,kmadd(g33L,kmul(gu21,kmul(kmul(G312,G312),ToReal(-2))),kmadd(gu22,ksub(JacPDstandardNth21g22,JacPDstandardNth12g22),kmadd(gu13,ksub(JacPDstandardNth11g23,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13)),kmadd(gu32,ksub(JacPDstandardNth22g13,kadd(JacPDstandardNth32g12,JacPDstandardNth12g23)),kmadd(ToReal(-2),kmadd(g22L,kmul(G212,kmul(G223,gu23)),kmadd(g13L,kmul(G123,kmul(G312,gu23)),kmadd(g23L,kmul(G212,kmul(G323,gu23)),kmadd(g33L,kmul(G312,kmul(G323,gu23)),kmadd(g22L,kmul(G212,kmul(G213,gu31)),kmadd(g13L,kmul(G113,kmul(G312,gu31)),kmadd(g23L,kmul(G213,kmul(G312,gu31)),kmadd(g13L,kmul(G112,kmul(G313,gu31)),kmadd(g23L,kmul(G212,kmul(G313,gu31)),kmadd(g22L,kmul(G212,kmul(G233,gu33)),kmadd(g13L,kmul(G133,kmul(G312,gu33)),kmadd(g23L,kmul(G233,kmul(G312,gu33)),kmadd(g23L,kmul(G212,kmul(G333,gu33)),kmadd(g33L,kmul(G312,kmul(G333,gu33)),kmadd(gu12,JacPDstandardNth12g12,kmul(g11L,kmadd(G112,kmadd(G123,gu23,kmadd(G113,gu31,kmul(G133,gu33))),kmsub(gu21,kmul(G112,G112),kmadd(G113,kmadd(G122,gu23,kmul(G123,gu33)),kmul(G111,kmadd(G122,gu21,kmul(G123,gu31)))))))))))))))))))))),kmadd(gu21,kmadd(g13L,kmul(G112,kmul(G312,ToReal(-4))),kmadd(g23L,kmul(G212,kmul(G312,ToReal(-4))),kmadd(g22L,kmul(kmul(G212,G212),ToReal(-2)),kmadd(g23L,kmul(G222,kmul(G311,ToReal(2))),kmul(g13L,kmul(G111,kmul(G322,ToReal(2)))))))),kmadd(gu23,kmadd(g23L,kmul(G223,kmul(G312,ToReal(-2))),kmadd(g13L,kmul(G112,kmul(G323,ToReal(-2))),ksub(ksub(kmadd(g13L,kmul(G122,kmul(G313,ToReal(2))),kmadd(g23L,kmul(G222,kmul(G313,ToReal(2))),kmul(g13L,kmul(G113,kmul(G322,ToReal(2)))))),JacPDstandardNth23g12),JacPDstandardNth12g23))),kmadd(gu31,kmadd(g33L,kmul(G312,kmul(G313,ToReal(-2))),kmul(g13L,kmul(G111,kmul(G323,ToReal(2))))),kmadd(gu33,kmadd(g13L,kmul(G112,kmul(G333,ToReal(-2))),ksub(kmsub(g33L,kmul(G313,kmul(G323,ToReal(2))),JacPDstandardNth33g12),JacPDstandardNth12g33)),kmul(ToReal(2),kmadd(g22L,kmul(G211,kmul(G222,gu21)),kmadd(g13L,kmul(G122,kmul(G311,gu21)),kmadd(g23L,kmul(G211,kmul(G322,gu21)),kmadd(g33L,kmul(G311,kmul(G322,gu21)),kmadd(g22L,kmul(G213,kmul(G222,gu23)),kmadd(g23L,kmul(G213,kmul(G322,gu23)),kmadd(g33L,kmul(G313,kmul(G322,gu23)),kmadd(g22L,kmul(G211,kmul(G223,gu31)),kmadd(g13L,kmul(G123,kmul(G311,gu31)),kmadd(g23L,kmul(G223,kmul(G311,gu31)),kmadd(g23L,kmul(G211,kmul(G323,gu31)),kmadd(g33L,kmul(G311,kmul(G323,gu31)),kmadd(g22L,kmul(G213,kmul(G223,gu33)),kmadd(g13L,kmul(G123,kmul(G313,gu33)),kmadd(g23L,kmul(G223,kmul(G313,gu33)),kmadd(g13L,kmul(G113,kmul(G323,gu33)),kmadd(g23L,kmul(G213,kmul(G323,gu33)),kmul(g12L,kmadd(G111,kmul(G222,gu21),kmadd(G122,kmadd(G211,gu21,kmul(G213,gu23)),kmadd(G111,kmul(G223,gu31),kmadd(G113,kmul(G223,gu33),kmadd(gu31,kmsub(G123,G211,kmul(G113,G212)),kmadd(gu23,kmsub(G113,G222,kmul(G123,G212)),kmsub(gu33,kmsub(G123,G213,kmul(G133,G212)),kmul(G112,kmadd(G223,gu23,kmadd(G213,gu31,kmadd(G233,gu33,kmul(G212,kmul(gu21,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,JacPDstandardNth23g13,kmadd(gu32,JacPDstandardNth31g23,kmadd(gu13,kadd(JacPDstandardNth11g33,JacPDstandardNth33g11),kmadd(gu23,JacPDstandardNth33g12,kmadd(kmadd(g13L,kmul(G113,kmul(G312,gu21)),kmadd(g23L,kmul(G213,kmul(G312,gu21)),kmadd(g13L,kmul(G112,kmul(G313,gu21)),kmadd(g23L,kmul(G212,kmul(G313,gu21)),kmadd(g13L,kmul(G122,kmul(G313,gu22)),kmadd(g23L,kmul(G222,kmul(G313,gu22)),kmadd(g13L,kmul(G113,kmul(G322,gu22)),kmadd(g23L,kmul(G213,kmul(G322,gu22)),kmadd(g33L,kmul(G313,kmul(G322,gu22)),kmadd(g22L,kmul(G213,kmul(G223,gu32)),kmadd(g23L,kmul(G213,kmul(G323,gu32)),kmadd(g33L,kmul(G313,kmul(G323,gu32)),kmadd(gu13,JacPDstandardNth13g13,kmul(g33L,kmul(gu31,kmul(G313,G313)))))))))))))))),ToReal(-2),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,kadd(JacPDstandardNth23g13,JacPDstandardNth13g23)),kmadd(gu21,kmadd(g33L,kmul(G312,kmul(G313,ToReal(-2))),kmul(g13L,kmul(G111,kmul(G323,ToReal(2))))),kmadd(gu31,kmadd(g13L,kmul(G113,kmul(G313,ToReal(-4))),kmadd(g23L,kmul(G213,kmul(G313,ToReal(-4))),kmadd(g22L,kmul(kmul(G213,G213),ToReal(-2)),kmadd(g23L,kmul(G233,kmul(G311,ToReal(2))),kmul(g13L,kmul(G111,kmul(G333,ToReal(2)))))))),kmadd(gu32,kmadd(g13L,kmul(G123,kmul(G313,ToReal(-2))),kmadd(g23L,kmul(G223,kmul(G313,ToReal(-2))),kmadd(g13L,kmul(G113,kmul(G323,ToReal(-2))),ksub(ksub(kmadd(g23L,kmul(G233,kmul(G312,ToReal(2))),kmul(g13L,kmul(G112,kmul(G333,ToReal(2))))),JacPDstandardNth32g13),JacPDstandardNth13g23)))),kmadd(g22L,kmadd(G212,kmul(G213,kmul(gu21,ToReal(-2))),kmadd(G213,kmul(G222,kmul(gu22,ToReal(-2))),kmadd(G211,kmul(G223,kmul(gu21,ToReal(2))),kmadd(G211,kmul(G233,kmul(gu31,ToReal(2))),kmul(G212,kmul(G233,kmul(gu32,ToReal(2)))))))),kmul(ToReal(2),kmadd(g13L,kmul(G123,kmul(G311,gu21)),kmadd(g23L,kmul(G223,kmul(G311,gu21)),kmadd(g23L,kmul(G211,kmul(G323,gu21)),kmadd(g33L,kmul(G311,kmul(G323,gu21)),kmadd(g22L,kmul(G212,kmul(G223,gu22)),kmadd(g13L,kmul(G123,kmul(G312,gu22)),kmadd(g23L,kmul(G223,kmul(G312,gu22)),kmadd(g13L,kmul(G112,kmul(G323,gu22)),kmadd(g23L,kmul(G212,kmul(G323,gu22)),kmadd(g33L,kmul(G312,kmul(G323,gu22)),kmadd(g13L,kmul(G133,kmul(G311,gu31)),kmadd(g23L,kmul(G211,kmul(G333,gu31)),kmadd(g33L,kmul(G311,kmul(G333,gu31)),kmadd(g13L,kmul(G133,kmul(G312,gu32)),kmadd(g23L,kmul(G212,kmul(G333,gu32)),kmadd(g33L,kmul(G312,kmul(G333,gu32)),kmadd(g11L,kmadd(G111,kmadd(G123,gu21,kmul(G133,gu31)),kmsub(G112,kmadd(G123,gu22,kmsub(G133,gu32,kmul(G113,gu21))),kmul(G113,kmadd(G122,gu22,kmadd(G113,gu31,kmul(G123,gu32)))))),kmul(g12L,kmadd(G133,kmul(G211,gu31),kmadd(G111,kmul(G233,gu31),kmadd(G133,kmul(G212,gu32),kmadd(G112,kmul(G233,gu32),kmadd(gu21,kmsub(G111,G223,kmul(G112,G213)),kmadd(gu22,kmsub(G112,G223,kmul(G122,G213)),kmsub(G123,kmadd(G211,gu21,kmsub(G212,gu22,kmul(G213,gu32))),kmul(G113,kmadd(G212,gu21,kmadd(G222,gu22,kmadd(G223,gu32,kmul(G213,kmul(gu31,ToReal(2)))))))))))))))))))))))))))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = + CCTK_REAL_VEC R22 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu31,JacPDstandardNth32g12,kmadd(gu21,ksub(JacPDstandardNth12g22,JacPDstandardNth21g22),kmadd(gu23,ksub(JacPDstandardNth32g22,JacPDstandardNth23g22),knmsub(gu33,kadd(JacPDstandardNth33g22,JacPDstandardNth22g33),kmadd(kmadd(g22L,kmul(G212,kmul(G223,gu13)),kmadd(g13L,kmul(G123,kmul(G312,gu13)),kmadd(g23L,kmul(G212,kmul(G323,gu13)),kmadd(g33L,kmul(G312,kmul(G323,gu13)),kmadd(g22L,kmul(G212,kmul(G223,gu31)),kmadd(g13L,kmul(G123,kmul(G312,gu31)),kmadd(g23L,kmul(G223,kmul(G312,gu31)),kmadd(g23L,kmul(G212,kmul(G323,gu31)),kmadd(g33L,kmul(G312,kmul(G323,gu31)),kmadd(gu11,JacPDstandardNth12g12,kmul(gu33,JacPDstandardNth32g23))))))))))),ToReal(2),kmadd(g22L,kmul(gu33,kmul(kmul(G223,G223),ToReal(2))),kmadd(g33L,kmul(gu11,kmul(kmul(G312,G312),ToReal(2))),kmadd(g33L,kmul(gu33,kmul(kmul(G323,G323),ToReal(2))),kmadd(g11L,kmul(kmadd(G112,kmul(G123,kadd(gu13,gu31)),kmadd(gu11,kmul(G112,G112),kmsub(gu33,kmul(G123,G123),kmul(G122,kmadd(G111,gu11,kmadd(G113,kadd(gu31,gu13),kmul(G133,gu33))))))),ToReal(2)),kmadd(gu31,kadd(JacPDstandardNth12g23,kmadd(g33L,kmul(G313,kmul(G322,ToReal(-2))),ksub(kmsub(g13L,kmul(G112,kmul(G323,ToReal(2))),JacPDstandardNth31g22),JacPDstandardNth22g13))),kmadd(gu13,kadd(JacPDstandardNth12g23,kadd(JacPDstandardNth32g12,kmadd(g13L,kmul(G122,kmul(G313,ToReal(-2))),kmadd(g23L,kmul(G222,kmul(G313,ToReal(-2))),kmadd(g13L,kmul(G113,kmul(G322,ToReal(-2))),ksub(ksub(kmadd(g23L,kmul(G223,kmul(G312,ToReal(2))),kmul(g13L,kmul(G112,kmul(G323,ToReal(2))))),JacPDstandardNth22g13),JacPDstandardNth13g22)))))),kmadd(ToReal(-2),kmadd(g22L,kmul(G211,kmul(G222,gu11)),kmadd(g13L,kmul(G122,kmul(G311,gu11)),kmadd(g23L,kmul(G211,kmul(G322,gu11)),kmadd(g33L,kmul(G311,kmul(G322,gu11)),kmadd(g22L,kmul(G213,kmul(G222,gu13)),kmadd(g23L,kmul(G213,kmul(G322,gu13)),kmadd(g33L,kmul(G313,kmul(G322,gu13)),kmadd(g22L,kmul(G213,kmul(G222,gu31)),kmadd(g13L,kmul(G122,kmul(G313,gu31)),kmadd(g23L,kmul(G222,kmul(G313,gu31)),kmadd(g13L,kmul(G113,kmul(G322,gu31)),kmadd(g23L,kmul(G213,kmul(G322,gu31)),kmadd(g22L,kmul(G222,kmul(G233,gu33)),kmadd(g13L,kmul(G133,kmul(G322,gu33)),kmadd(g23L,kmul(G233,kmul(G322,gu33)),kmadd(g13L,kmul(G122,kmul(G333,gu33)),kmadd(g23L,kmul(G222,kmul(G333,gu33)),kmadd(g33L,kmul(G322,kmul(G333,gu33)),kmul(g12L,kmadd(G111,kmul(G222,gu11),kmadd(G133,kmul(G222,gu33),kmadd(G122,kmadd(G211,gu11,kmadd(G213,kadd(gu13,gu31),kmul(G233,gu33))),kmadd(G123,kmul(G223,kmul(gu33,ToReal(-2))),kmadd(gu13,kmsub(G113,G222,kmul(G123,G212)),kmsub(gu31,kmsub(G113,G222,kmul(G123,G212)),kmul(G112,kmadd(G223,kadd(gu13,gu31),kmul(G212,kmul(gu11,ToReal(2)))))))))))))))))))))))))))))),kmadd(kmadd(g13L,kmul(G123,kmul(G323,gu33)),kmul(g23L,kmul(G223,kmul(G323,gu33)))),ToReal(4),kmul(gu11,kmadd(g23L,kmul(G222,kmul(G311,ToReal(-2))),kmadd(g13L,kmul(G111,kmul(G322,ToReal(-2))),ksub(ksub(kmadd(g22L,kmul(kmul(G212,G212),ToReal(2)),kmadd(g13L,kmul(G112,kmul(G312,ToReal(4))),kmul(g23L,kmul(G212,kmul(G312,ToReal(4)))))),JacPDstandardNth22g11),JacPDstandardNth11g22)))))))))))))))))); - 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(kmadd(G223,kmadd(g22L,G212,kmul(g23L,G312)),kmadd(g23L,kmul(G212,G323),kmul(G312,kmadd(g13L,G123,kmul(g33L,G323))))),gu12,kmadd(kmadd(g13L,G123,kmul(g23L,G223)),kmadd(G311,gu11,kmul(G313,gu31)),kmadd(G323,kmadd(kmadd(g23L,G211,kmul(g33L,G311)),gu11,kmadd(kmadd(g23L,G213,kmul(g33L,G313)),gu31,kmul(g13L,kmadd(G112,gu12,kmul(G113,gu31))))),kmadd(gu23,JacPDstandardNth23g23,kmul(g33L,kmul(gu32,kmul(G323,G323))))))),ToReal(-2),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))),kmadd(gu11,kadd(JacPDstandardNth12g13,kadd(JacPDstandardNth13g12,kmadd(g13L,kmul(G111,kmul(G323,ToReal(-2))),ksub(kmsub(g33L,kmul(G312,kmul(G313,ToReal(2))),JacPDstandardNth23g11),JacPDstandardNth11g23)))),kmadd(gu32,kmadd(g22L,kmul(kmul(G223,G223),ToReal(-2)),kmadd(g23L,kmadd(G223,kmul(G323,ToReal(-4)),kmul(G233,kmul(G322,ToReal(2)))),kmul(g13L,kmadd(G123,kmul(G323,ToReal(-4)),kmul(G122,kmul(G333,ToReal(2))))))),kmadd(g22L,kmadd(G222,kmul(G233,kmul(gu32,ToReal(2))),kmadd(gu11,kmadd(G211,kmul(G223,ToReal(-2)),kmul(G212,kmul(G213,ToReal(2)))),kmul(G213,kmadd(G223,kmul(gu31,ToReal(-2)),kmul(G222,kmul(gu12,ToReal(2))))))),kmul(ToReal(2),kmadd(kmadd(g23L,kmul(G222,G313),kmul(g13L,kmul(G113,G322))),gu12,kmadd(G313,kmadd(kmadd(g13L,G112,kmul(g23L,G212)),gu11,kmul(g13L,kmul(G122,gu12))),kmadd(G233,kmul(kmadd(g22L,G212,kmul(g23L,G312)),gu31),kmadd(G312,kmadd(kmadd(g13L,G113,kmul(g23L,G213)),gu11,kmul(kmadd(g13L,G133,kmul(g33L,G333)),gu31)),kmadd(G333,kmadd(kmadd(g13L,G112,kmul(g23L,G212)),gu31,kmul(g23L,kmul(G222,gu32))),kmadd(G322,kmadd(kmadd(g23L,G213,kmul(g33L,G313)),gu12,kmul(kmadd(g13L,G133,kmul(g33L,G333)),gu32)),kmadd(g11L,kmadd(G113,kmul(G122,gu12),kmadd(G112,kmadd(G113,gu11,kmsub(G133,gu31,kmul(G123,gu12))),kmsub(gu32,kmsub(G122,G133,kmul(G123,G123)),kmul(G123,kmadd(G113,gu31,kmul(G111,gu11)))))),kmul(g12L,kmadd(kmadd(G133,G222,kmul(G122,G233)),gu32,kmadd(gu11,kmadd(G113,G212,kmsub(G112,G213,kmul(G111,G223))),kmadd(gu12,kmadd(G122,G213,kmsub(G113,G222,kmul(G112,G223))),kmsub(gu31,kmadd(G133,G212,kmsub(G112,G233,kmul(G113,G223))),kmul(G123,kmadd(G211,gu11,kmadd(G212,gu12,kmadd(G213,gu31,kmul(G223,kmul(gu32,ToReal(2)))))))))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = + CCTK_REAL_VEC R33 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gu31,ksub(JacPDstandardNth13g33,JacPDstandardNth31g33),kmadd(gu32,ksub(JacPDstandardNth23g33,JacPDstandardNth32g33),knmsub(gu22,kadd(JacPDstandardNth33g22,JacPDstandardNth22g33),kmadd(kmadd(g23L,kmul(G213,kmul(G323,gu12)),kmadd(g33L,kmul(G313,kmul(G323,gu12)),kmadd(g22L,kmul(G213,kmul(G223,gu21)),kmadd(g13L,kmul(G123,kmul(G313,gu21)),kmadd(g23L,kmul(G223,kmul(G313,gu21)),kmadd(g13L,kmul(G113,kmul(G323,gu21)),kmadd(g23L,kmul(G213,kmul(G323,gu21)),kmadd(gu11,JacPDstandardNth13g13,kmul(gu22,JacPDstandardNth23g23))))))))),ToReal(2),kmadd(g22L,kmul(gu11,kmul(kmul(G213,G213),ToReal(2))),kmadd(g22L,kmul(gu22,kmul(kmul(G223,G223),ToReal(2))),kmadd(g33L,kmul(gu11,kmul(kmul(G313,G313),ToReal(2))),kmadd(g33L,kmul(gu22,kmul(kmul(G323,G323),ToReal(2))),kmadd(g11L,kmul(kmadd(G113,kmul(G123,kadd(gu12,gu21)),kmadd(gu11,kmul(G113,G113),kmsub(gu22,kmul(G123,G123),kmul(G133,kmadd(G111,gu11,kmadd(G112,kadd(gu21,gu12),kmul(G122,gu22))))))),ToReal(2)),kmadd(gu12,kadd(JacPDstandardNth13g23,kadd(JacPDstandardNth23g13,kmadd(g13L,kmul(G133,kmul(G312,ToReal(-2))),kmadd(g23L,kmul(G233,kmul(G312,ToReal(-2))),kmadd(g13L,kmul(G112,kmul(G333,ToReal(-2))),ksub(ksub(kmadd(g22L,kmul(G213,kmul(G223,ToReal(2))),kmadd(g13L,kmul(G123,kmul(G313,ToReal(2))),kmadd(g23L,kmul(G223,kmul(G313,ToReal(2))),kmul(g13L,kmul(G113,kmul(G323,ToReal(2))))))),JacPDstandardNth33g12),JacPDstandardNth12g33)))))),kmadd(gu21,kadd(JacPDstandardNth13g23,kadd(JacPDstandardNth23g13,kmadd(g13L,kmul(G112,kmul(G333,ToReal(-2))),ksub(kmsub(g33L,kmul(G313,kmul(G323,ToReal(2))),JacPDstandardNth33g12),JacPDstandardNth21g33)))),kmadd(ToReal(-2),kmadd(g22L,kmul(G211,kmul(G233,gu11)),kmadd(g13L,kmul(G133,kmul(G311,gu11)),kmadd(g23L,kmul(G211,kmul(G333,gu11)),kmadd(g33L,kmul(G311,kmul(G333,gu11)),kmadd(g22L,kmul(G212,kmul(G233,gu12)),kmadd(g23L,kmul(G212,kmul(G333,gu12)),kmadd(g33L,kmul(G312,kmul(G333,gu12)),kmadd(g22L,kmul(G212,kmul(G233,gu21)),kmadd(g13L,kmul(G133,kmul(G312,gu21)),kmadd(g23L,kmul(G233,kmul(G312,gu21)),kmadd(g23L,kmul(G212,kmul(G333,gu21)),kmadd(g33L,kmul(G312,kmul(G333,gu21)),kmadd(g22L,kmul(G222,kmul(G233,gu22)),kmadd(g13L,kmul(G133,kmul(G322,gu22)),kmadd(g23L,kmul(G233,kmul(G322,gu22)),kmadd(g13L,kmul(G122,kmul(G333,gu22)),kmadd(g23L,kmul(G222,kmul(G333,gu22)),kmadd(g33L,kmul(G322,kmul(G333,gu22)),kmul(g12L,kmadd(G111,kmul(G233,gu11),kmadd(G122,kmul(G233,gu22),kmadd(G133,kmadd(G211,gu11,kmadd(G212,kadd(gu12,gu21),kmul(G222,gu22))),kmadd(G123,kmul(G223,kmul(gu22,ToReal(-2))),kmadd(gu12,kmsub(G112,G233,kmul(G123,G213)),kmsub(gu21,kmsub(G112,G233,kmul(G123,G213)),kmul(G113,kmadd(G223,kadd(gu12,gu21),kmul(G213,kmul(gu11,ToReal(2)))))))))))))))))))))))))))))),kmadd(kmadd(g13L,kmul(G123,kmul(G323,gu22)),kmul(g23L,kmul(G223,kmul(G323,gu22)))),ToReal(4),kmul(gu11,kmadd(g23L,kmul(G233,kmul(G311,ToReal(-2))),kmadd(g13L,kmul(G111,kmul(G333,ToReal(-2))),ksub(ksub(kmadd(g13L,kmul(G113,kmul(G313,ToReal(4))),kmul(g23L,kmul(G213,kmul(G313,ToReal(4))))),JacPDstandardNth33g11),JacPDstandardNth11g33)))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trR = + CCTK_REAL_VEC trR CCTK_ATTRIBUTE_UNUSED = kmadd(gu11,R11,kmadd(kadd(gu12,gu21),R12,kmadd(kadd(gu13,gu31),R13,kmadd(gu22,R22,kmadd(kadd(gu23,gu32),R23,kmul(gu33,R33)))))); - 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 HL = + CCTK_REAL_VEC HL CCTK_ATTRIBUTE_UNUSED = kadd(trR,kmadd(trK,trK,kmsub(kmadd(Km12,Km21,kmadd(Km13,Km31,kmul(Km23,Km32))),ToReal(-2),kmadd(Km11,Km11,kmadd(Km33,Km33,kmul(Km22,Km22)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M1L = + CCTK_REAL_VEC M1L CCTK_ATTRIBUTE_UNUSED = kmadd(gu21,kmadd(K22L,G211,kmadd(K23L,G311,kadd(JacPDstandardNth2K11,knmsub(K11L,G112,knmsub(K13L,G312,kmsub(K12L,ksub(G111,G212),JacPDstandardNth1K12)))))),kmadd(gu22,kmadd(K22L,G212,kmadd(K23L,G312,kadd(JacPDstandardNth2K12,knmsub(K11L,G122,knmsub(K13L,G322,kmsub(K12L,ksub(G112,G222),JacPDstandardNth1K22)))))),kmadd(gu23,kmadd(K22L,G213,kmadd(K23L,G313,kadd(JacPDstandardNth2K13,knmsub(K11L,G123,knmsub(K13L,G323,kmsub(K12L,ksub(G113,G223),JacPDstandardNth1K23)))))),kmadd(gu31,kmadd(K23L,G211,kmadd(K33L,G311,kadd(JacPDstandardNth3K11,knmsub(K11L,G113,knmsub(K12L,G213,kmsub(K13L,ksub(G111,G313),JacPDstandardNth1K13)))))),kmadd(gu32,kmadd(K23L,G212,kmadd(K33L,G312,kadd(JacPDstandardNth3K12,knmsub(K11L,G123,knmsub(K12L,G223,kmsub(K13L,ksub(G112,G323),JacPDstandardNth1K23)))))),kmul(gu33,kmadd(K23L,G213,kmadd(K33L,G313,kadd(JacPDstandardNth3K13,knmsub(K11L,G133,knmsub(K12L,G233,kmsub(K13L,ksub(G113,G333),JacPDstandardNth1K33)))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = + CCTK_REAL_VEC M2L CCTK_ATTRIBUTE_UNUSED = kmadd(gu11,kmadd(K11L,G112,kmadd(K13L,G312,kadd(JacPDstandardNth1K12,knmsub(K22L,G211,knmsub(K23L,G311,kmsub(K12L,ksub(G212,G111),JacPDstandardNth2K11)))))),kmadd(gu12,kmadd(K11L,G122,kmadd(K13L,G322,kadd(JacPDstandardNth1K22,knmsub(K22L,G212,knmsub(K23L,G312,kmsub(K12L,ksub(G222,G112),JacPDstandardNth2K12)))))),kmadd(gu13,kmadd(K11L,G123,kmadd(K13L,G323,kadd(JacPDstandardNth1K23,knmsub(K22L,G213,knmsub(K23L,G313,kmsub(K12L,ksub(G223,G113),JacPDstandardNth2K13)))))),kmadd(gu31,kmadd(K13L,G112,kmadd(K33L,G312,kadd(JacPDstandardNth3K12,knmsub(K12L,G113,knmsub(K22L,G213,kmsub(K23L,ksub(G212,G313),JacPDstandardNth2K13)))))),kmadd(gu32,kmadd(K13L,G122,kmadd(K33L,G322,kadd(JacPDstandardNth3K22,knmsub(K12L,G123,knmsub(K22L,G223,kmsub(K23L,ksub(G222,G323),JacPDstandardNth2K23)))))),kmul(gu33,kmadd(K13L,G123,kmadd(K33L,G323,kadd(JacPDstandardNth3K23,knmsub(K12L,G133,knmsub(K22L,G233,kmsub(K23L,ksub(G223,G333),JacPDstandardNth2K33)))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = + CCTK_REAL_VEC M3L CCTK_ATTRIBUTE_UNUSED = kmadd(gu11,kmadd(K11L,G113,kmadd(K12L,G213,kadd(JacPDstandardNth1K13,knmsub(K23L,G211,knmsub(K33L,G311,kmsub(K13L,ksub(G313,G111),JacPDstandardNth3K11)))))),kmadd(gu12,kmadd(K11L,G123,kmadd(K12L,G223,kadd(JacPDstandardNth1K23,knmsub(K23L,G212,knmsub(K33L,G312,kmsub(K13L,ksub(G323,G112),JacPDstandardNth3K12)))))),kmadd(gu13,kmadd(K11L,G133,kmadd(K12L,G233,kadd(JacPDstandardNth1K33,knmsub(K23L,G213,knmsub(K33L,G313,kmsub(K13L,ksub(G333,G113),JacPDstandardNth3K13)))))),kmadd(gu21,kmadd(K12L,G113,kmadd(K22L,G213,kadd(JacPDstandardNth2K13,knmsub(K13L,G112,knmsub(K33L,G312,kmsub(K23L,ksub(G313,G212),JacPDstandardNth3K12)))))),kmadd(gu22,kmadd(K12L,G123,kmadd(K22L,G223,kadd(JacPDstandardNth2K23,knmsub(K13L,G122,knmsub(K33L,G322,kmsub(K23L,ksub(G323,G222),JacPDstandardNth3K22)))))),kmul(gu23,kmadd(K12L,G133,kmadd(K22L,G233,kadd(JacPDstandardNth2K33,knmsub(K13L,G123,knmsub(K33L,G323,kmsub(K23L,ksub(G333,G223),JacPDstandardNth3K23)))))))))))); /* Copy local copies back to grid functions */ diff --git a/ML_ADM/src/ML_ADM_constraints_boundary.cc b/ML_ADM/src/ML_ADM_constraints_boundary.cc index 7f93d73..cfe9564 100644 --- a/ML_ADM/src/ML_ADM_constraints_boundary.cc +++ b/ML_ADM/src/ML_ADM_constraints_boundary.cc @@ -68,13 +68,18 @@ static void ML_ADM_constraints_boundary_Body(const cGH* restrict const cctkGH, c 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); @@ -240,13 +245,13 @@ static void ML_ADM_constraints_boundary_Body(const cGH* restrict const cctkGH, c } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED HL = ToReal(0); + CCTK_REAL_VEC HL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M1L = ToReal(0); + CCTK_REAL_VEC M1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = ToReal(0); + CCTK_REAL_VEC M2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = ToReal(0); + CCTK_REAL_VEC M3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_ADM/src/ML_ADM_convertFromADMBase.cc b/ML_ADM/src/ML_ADM_convertFromADMBase.cc index 5043bec..f8006f6 100644 --- a/ML_ADM/src/ML_ADM_convertFromADMBase.cc +++ b/ML_ADM/src/ML_ADM_convertFromADMBase.cc @@ -51,13 +51,18 @@ static void ML_ADM_convertFromADMBase_Body(const cGH* restrict const cctkGH, 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); @@ -239,37 +244,37 @@ static void ML_ADM_convertFromADMBase_Body(const cGH* restrict const cctkGH, con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11L = gxxL; + CCTK_REAL_VEC g11L CCTK_ATTRIBUTE_UNUSED = gxxL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12L = gxyL; + CCTK_REAL_VEC g12L CCTK_ATTRIBUTE_UNUSED = gxyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13L = gxzL; + CCTK_REAL_VEC g13L CCTK_ATTRIBUTE_UNUSED = gxzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22L = gyyL; + CCTK_REAL_VEC g22L CCTK_ATTRIBUTE_UNUSED = gyyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23L = gyzL; + CCTK_REAL_VEC g23L CCTK_ATTRIBUTE_UNUSED = gyzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33L = gzzL; + CCTK_REAL_VEC g33L CCTK_ATTRIBUTE_UNUSED = gzzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11L = kxxL; + CCTK_REAL_VEC K11L CCTK_ATTRIBUTE_UNUSED = kxxL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12L = kxyL; + CCTK_REAL_VEC K12L CCTK_ATTRIBUTE_UNUSED = kxyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13L = kxzL; + CCTK_REAL_VEC K13L CCTK_ATTRIBUTE_UNUSED = kxzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22L = kyyL; + CCTK_REAL_VEC K22L CCTK_ATTRIBUTE_UNUSED = kyyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23L = kyzL; + CCTK_REAL_VEC K23L CCTK_ATTRIBUTE_UNUSED = kyzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33L = kzzL; + CCTK_REAL_VEC K33L CCTK_ATTRIBUTE_UNUSED = kzzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = alpL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = alpL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = betaxL; + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = betaxL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = betayL; + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = betayL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = betazL; + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = betazL; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_ADM/src/ML_ADM_convertToADMBase.cc b/ML_ADM/src/ML_ADM_convertToADMBase.cc index 4bed36b..b1e128b 100644 --- a/ML_ADM/src/ML_ADM_convertToADMBase.cc +++ b/ML_ADM/src/ML_ADM_convertToADMBase.cc @@ -51,13 +51,18 @@ static void ML_ADM_convertToADMBase_Body(const cGH* restrict const cctkGH, const 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); @@ -239,45 +244,45 @@ static void ML_ADM_convertToADMBase_Body(const cGH* restrict const cctkGH, const } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gxxL = g11L; + CCTK_REAL_VEC gxxL CCTK_ATTRIBUTE_UNUSED = g11L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gxyL = g12L; + CCTK_REAL_VEC gxyL CCTK_ATTRIBUTE_UNUSED = g12L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gxzL = g13L; + CCTK_REAL_VEC gxzL CCTK_ATTRIBUTE_UNUSED = g13L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gyyL = g22L; + CCTK_REAL_VEC gyyL CCTK_ATTRIBUTE_UNUSED = g22L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gyzL = g23L; + CCTK_REAL_VEC gyzL CCTK_ATTRIBUTE_UNUSED = g23L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gzzL = g33L; + CCTK_REAL_VEC gzzL CCTK_ATTRIBUTE_UNUSED = g33L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxxL = K11L; + CCTK_REAL_VEC kxxL CCTK_ATTRIBUTE_UNUSED = K11L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxyL = K12L; + CCTK_REAL_VEC kxyL CCTK_ATTRIBUTE_UNUSED = K12L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxzL = K13L; + CCTK_REAL_VEC kxzL CCTK_ATTRIBUTE_UNUSED = K13L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyyL = K22L; + CCTK_REAL_VEC kyyL CCTK_ATTRIBUTE_UNUSED = K22L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyzL = K23L; + CCTK_REAL_VEC kyzL CCTK_ATTRIBUTE_UNUSED = K23L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kzzL = K33L; + CCTK_REAL_VEC kzzL CCTK_ATTRIBUTE_UNUSED = K33L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpL = alphaL; + CCTK_REAL_VEC alpL CCTK_ATTRIBUTE_UNUSED = alphaL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = ToReal(0); + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betaxL = beta1L; + CCTK_REAL_VEC betaxL CCTK_ATTRIBUTE_UNUSED = beta1L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betayL = beta2L; + CCTK_REAL_VEC betayL CCTK_ATTRIBUTE_UNUSED = beta2L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betazL = beta3L; + CCTK_REAL_VEC betazL CCTK_ATTRIBUTE_UNUSED = beta3L; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetaxL = ToReal(0); + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetayL = ToReal(0); + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetazL = ToReal(0); + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_ADMConstraints/src/ML_ADMConstraints.cc b/ML_ADMConstraints/src/ML_ADMConstraints.cc index 829a4cf..4c72e7b 100644 --- a/ML_ADMConstraints/src/ML_ADMConstraints.cc +++ b/ML_ADMConstraints/src/ML_ADMConstraints.cc @@ -63,13 +63,15 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d const CCTK_REAL dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); const CCTK_REAL dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); const CCTK_REAL khalf CCTK_ATTRIBUTE_UNUSED = 0.5; - const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = 1/3.0; - const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = 2.0/3.0; - const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = 4.0/3.0; - const CCTK_REAL keightthird CCTK_ATTRIBUTE_UNUSED = 8.0/3.0; - const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5 * dxi; - const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5 * dyi; - const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5 * dzi; + const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = + 0.333333333333333333333333333333; + const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = + 0.666666666666666666666666666667; + const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = + 1.33333333333333333333333333333; + const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5*dxi; + const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5*dyi; + const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5*dzi; /* Initialize predefined quantities */ const CCTK_REAL p1o12dx CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dx); @@ -411,104 +413,104 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d if (use_jacobian) { - JacPDstandardNth1gxx = J11L*PDstandardNth1gxx + - J21L*PDstandardNth2gxx + J31L*PDstandardNth3gxx; + JacPDstandardNth1gxx = J11L*PDstandardNth1gxx + J21L*PDstandardNth2gxx + + J31L*PDstandardNth3gxx; - JacPDstandardNth1gxy = J11L*PDstandardNth1gxy + - J21L*PDstandardNth2gxy + J31L*PDstandardNth3gxy; + JacPDstandardNth1gxy = J11L*PDstandardNth1gxy + J21L*PDstandardNth2gxy + + J31L*PDstandardNth3gxy; - JacPDstandardNth1gxz = J11L*PDstandardNth1gxz + - J21L*PDstandardNth2gxz + J31L*PDstandardNth3gxz; + JacPDstandardNth1gxz = J11L*PDstandardNth1gxz + J21L*PDstandardNth2gxz + + J31L*PDstandardNth3gxz; - JacPDstandardNth1gyy = J11L*PDstandardNth1gyy + - J21L*PDstandardNth2gyy + J31L*PDstandardNth3gyy; + JacPDstandardNth1gyy = J11L*PDstandardNth1gyy + J21L*PDstandardNth2gyy + + J31L*PDstandardNth3gyy; - JacPDstandardNth1gyz = J11L*PDstandardNth1gyz + - J21L*PDstandardNth2gyz + J31L*PDstandardNth3gyz; + JacPDstandardNth1gyz = J11L*PDstandardNth1gyz + J21L*PDstandardNth2gyz + + J31L*PDstandardNth3gyz; - JacPDstandardNth1gzz = J11L*PDstandardNth1gzz + - J21L*PDstandardNth2gzz + J31L*PDstandardNth3gzz; + JacPDstandardNth1gzz = J11L*PDstandardNth1gzz + J21L*PDstandardNth2gzz + + J31L*PDstandardNth3gzz; - JacPDstandardNth1kxy = J11L*PDstandardNth1kxy + - J21L*PDstandardNth2kxy + J31L*PDstandardNth3kxy; + JacPDstandardNth1kxy = J11L*PDstandardNth1kxy + J21L*PDstandardNth2kxy + + J31L*PDstandardNth3kxy; - JacPDstandardNth1kxz = J11L*PDstandardNth1kxz + - J21L*PDstandardNth2kxz + J31L*PDstandardNth3kxz; + JacPDstandardNth1kxz = J11L*PDstandardNth1kxz + J21L*PDstandardNth2kxz + + J31L*PDstandardNth3kxz; - JacPDstandardNth1kyy = J11L*PDstandardNth1kyy + - J21L*PDstandardNth2kyy + J31L*PDstandardNth3kyy; + JacPDstandardNth1kyy = J11L*PDstandardNth1kyy + J21L*PDstandardNth2kyy + + J31L*PDstandardNth3kyy; - JacPDstandardNth1kyz = J11L*PDstandardNth1kyz + - J21L*PDstandardNth2kyz + J31L*PDstandardNth3kyz; + JacPDstandardNth1kyz = J11L*PDstandardNth1kyz + J21L*PDstandardNth2kyz + + J31L*PDstandardNth3kyz; - JacPDstandardNth1kzz = J11L*PDstandardNth1kzz + - J21L*PDstandardNth2kzz + J31L*PDstandardNth3kzz; + JacPDstandardNth1kzz = J11L*PDstandardNth1kzz + J21L*PDstandardNth2kzz + + J31L*PDstandardNth3kzz; - JacPDstandardNth2gxx = J12L*PDstandardNth1gxx + - J22L*PDstandardNth2gxx + J32L*PDstandardNth3gxx; + JacPDstandardNth2gxx = J12L*PDstandardNth1gxx + J22L*PDstandardNth2gxx + + J32L*PDstandardNth3gxx; - JacPDstandardNth2gxy = J12L*PDstandardNth1gxy + - J22L*PDstandardNth2gxy + J32L*PDstandardNth3gxy; + JacPDstandardNth2gxy = J12L*PDstandardNth1gxy + J22L*PDstandardNth2gxy + + J32L*PDstandardNth3gxy; - JacPDstandardNth2gxz = J12L*PDstandardNth1gxz + - J22L*PDstandardNth2gxz + J32L*PDstandardNth3gxz; + JacPDstandardNth2gxz = J12L*PDstandardNth1gxz + J22L*PDstandardNth2gxz + + J32L*PDstandardNth3gxz; - JacPDstandardNth2gyy = J12L*PDstandardNth1gyy + - J22L*PDstandardNth2gyy + J32L*PDstandardNth3gyy; + JacPDstandardNth2gyy = J12L*PDstandardNth1gyy + J22L*PDstandardNth2gyy + + J32L*PDstandardNth3gyy; - JacPDstandardNth2gyz = J12L*PDstandardNth1gyz + - J22L*PDstandardNth2gyz + J32L*PDstandardNth3gyz; + JacPDstandardNth2gyz = J12L*PDstandardNth1gyz + J22L*PDstandardNth2gyz + + J32L*PDstandardNth3gyz; - JacPDstandardNth2gzz = J12L*PDstandardNth1gzz + - J22L*PDstandardNth2gzz + J32L*PDstandardNth3gzz; + JacPDstandardNth2gzz = J12L*PDstandardNth1gzz + J22L*PDstandardNth2gzz + + J32L*PDstandardNth3gzz; - JacPDstandardNth2kxx = J12L*PDstandardNth1kxx + - J22L*PDstandardNth2kxx + J32L*PDstandardNth3kxx; + JacPDstandardNth2kxx = J12L*PDstandardNth1kxx + J22L*PDstandardNth2kxx + + J32L*PDstandardNth3kxx; - JacPDstandardNth2kxy = J12L*PDstandardNth1kxy + - J22L*PDstandardNth2kxy + J32L*PDstandardNth3kxy; + JacPDstandardNth2kxy = J12L*PDstandardNth1kxy + J22L*PDstandardNth2kxy + + J32L*PDstandardNth3kxy; - JacPDstandardNth2kxz = J12L*PDstandardNth1kxz + - J22L*PDstandardNth2kxz + J32L*PDstandardNth3kxz; + JacPDstandardNth2kxz = J12L*PDstandardNth1kxz + J22L*PDstandardNth2kxz + + J32L*PDstandardNth3kxz; - JacPDstandardNth2kyz = J12L*PDstandardNth1kyz + - J22L*PDstandardNth2kyz + J32L*PDstandardNth3kyz; + JacPDstandardNth2kyz = J12L*PDstandardNth1kyz + J22L*PDstandardNth2kyz + + J32L*PDstandardNth3kyz; - JacPDstandardNth2kzz = J12L*PDstandardNth1kzz + - J22L*PDstandardNth2kzz + J32L*PDstandardNth3kzz; + JacPDstandardNth2kzz = J12L*PDstandardNth1kzz + J22L*PDstandardNth2kzz + + J32L*PDstandardNth3kzz; - JacPDstandardNth3gxx = J13L*PDstandardNth1gxx + - J23L*PDstandardNth2gxx + J33L*PDstandardNth3gxx; + JacPDstandardNth3gxx = J13L*PDstandardNth1gxx + J23L*PDstandardNth2gxx + + J33L*PDstandardNth3gxx; - JacPDstandardNth3gxy = J13L*PDstandardNth1gxy + - J23L*PDstandardNth2gxy + J33L*PDstandardNth3gxy; + JacPDstandardNth3gxy = J13L*PDstandardNth1gxy + J23L*PDstandardNth2gxy + + J33L*PDstandardNth3gxy; - JacPDstandardNth3gxz = J13L*PDstandardNth1gxz + - J23L*PDstandardNth2gxz + J33L*PDstandardNth3gxz; + JacPDstandardNth3gxz = J13L*PDstandardNth1gxz + J23L*PDstandardNth2gxz + + J33L*PDstandardNth3gxz; - JacPDstandardNth3gyy = J13L*PDstandardNth1gyy + - J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy; + JacPDstandardNth3gyy = J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + + J33L*PDstandardNth3gyy; - JacPDstandardNth3gyz = J13L*PDstandardNth1gyz + - J23L*PDstandardNth2gyz + J33L*PDstandardNth3gyz; + JacPDstandardNth3gyz = J13L*PDstandardNth1gyz + J23L*PDstandardNth2gyz + + J33L*PDstandardNth3gyz; - JacPDstandardNth3gzz = J13L*PDstandardNth1gzz + - J23L*PDstandardNth2gzz + J33L*PDstandardNth3gzz; + JacPDstandardNth3gzz = J13L*PDstandardNth1gzz + J23L*PDstandardNth2gzz + + J33L*PDstandardNth3gzz; - JacPDstandardNth3kxx = J13L*PDstandardNth1kxx + - J23L*PDstandardNth2kxx + J33L*PDstandardNth3kxx; + JacPDstandardNth3kxx = J13L*PDstandardNth1kxx + J23L*PDstandardNth2kxx + + J33L*PDstandardNth3kxx; - JacPDstandardNth3kxy = J13L*PDstandardNth1kxy + - J23L*PDstandardNth2kxy + J33L*PDstandardNth3kxy; + JacPDstandardNth3kxy = J13L*PDstandardNth1kxy + J23L*PDstandardNth2kxy + + J33L*PDstandardNth3kxy; - JacPDstandardNth3kxz = J13L*PDstandardNth1kxz + - J23L*PDstandardNth2kxz + J33L*PDstandardNth3kxz; + JacPDstandardNth3kxz = J13L*PDstandardNth1kxz + J23L*PDstandardNth2kxz + + J33L*PDstandardNth3kxz; - JacPDstandardNth3kyy = J13L*PDstandardNth1kyy + - J23L*PDstandardNth2kyy + J33L*PDstandardNth3kyy; + JacPDstandardNth3kyy = J13L*PDstandardNth1kyy + J23L*PDstandardNth2kyy + + J33L*PDstandardNth3kyy; - JacPDstandardNth3kyz = J13L*PDstandardNth1kyz + - J23L*PDstandardNth2kyz + J33L*PDstandardNth3kyz; + JacPDstandardNth3kyz = J13L*PDstandardNth1kyz + J23L*PDstandardNth2kyz + + J33L*PDstandardNth3kyz; JacPDstandardNth11gyy = dJ111L*PDstandardNth1gyy + 2*(J11L*(J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + @@ -1011,107 +1013,106 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d JacPDstandardNth32gzz = PDstandardNth23gzz; } - CCTK_REAL CCTK_ATTRIBUTE_UNUSED detg = 2*gxyL*gxzL*gyzL + - gzzL*(gxxL*gyyL - SQR(gxyL)) - gyyL*SQR(gxzL) - - gxxL*SQR(gyzL); + CCTK_REAL detg CCTK_ATTRIBUTE_UNUSED = 2*gxyL*gxzL*gyzL + + gzzL*(gxxL*gyyL - SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu11 = INV(detg)*(gyyL*gzzL - + CCTK_REAL gu11 CCTK_ATTRIBUTE_UNUSED = INV(detg)*(gyyL*gzzL - SQR(gyzL)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu21 = (gxzL*gyzL - + CCTK_REAL gu21 CCTK_ATTRIBUTE_UNUSED = (gxzL*gyzL - gxyL*gzzL)*INV(detg); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu31 = (-(gxzL*gyyL) + + CCTK_REAL gu31 CCTK_ATTRIBUTE_UNUSED = (-(gxzL*gyyL) + gxyL*gyzL)*INV(detg); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu22 = INV(detg)*(gxxL*gzzL - + CCTK_REAL gu22 CCTK_ATTRIBUTE_UNUSED = INV(detg)*(gxxL*gzzL - SQR(gxzL)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu32 = (gxyL*gxzL - + CCTK_REAL gu32 CCTK_ATTRIBUTE_UNUSED = (gxyL*gxzL - gxxL*gyzL)*INV(detg); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu33 = INV(detg)*(gxxL*gyyL - + CCTK_REAL gu33 CCTK_ATTRIBUTE_UNUSED = INV(detg)*(gxxL*gyyL - SQR(gxyL)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G111 = 0.5*(gu11*JacPDstandardNth1gxx + CCTK_REAL G111 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu11*JacPDstandardNth1gxx + 2*(gu21*JacPDstandardNth1gxy + gu31*JacPDstandardNth1gxz) - gu21*JacPDstandardNth2gxx - gu31*JacPDstandardNth3gxx); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G211 = 0.5*(gu21*JacPDstandardNth1gxx + CCTK_REAL G211 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu21*JacPDstandardNth1gxx + 2*(gu22*JacPDstandardNth1gxy + gu32*JacPDstandardNth1gxz) - gu22*JacPDstandardNth2gxx - gu32*JacPDstandardNth3gxx); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G311 = 0.5*(gu31*JacPDstandardNth1gxx + CCTK_REAL G311 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu31*JacPDstandardNth1gxx + 2*(gu32*JacPDstandardNth1gxy + gu33*JacPDstandardNth1gxz) - gu32*JacPDstandardNth2gxx - gu33*JacPDstandardNth3gxx); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G112 = 0.5*(gu21*JacPDstandardNth1gyy + CCTK_REAL G112 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu21*JacPDstandardNth1gyy + gu11*JacPDstandardNth2gxx + gu31*(JacPDstandardNth1gyz + JacPDstandardNth2gxz - JacPDstandardNth3gxy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G212 = 0.5*(gu22*JacPDstandardNth1gyy + CCTK_REAL G212 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu22*JacPDstandardNth1gyy + gu21*JacPDstandardNth2gxx + gu32*(JacPDstandardNth1gyz + JacPDstandardNth2gxz - JacPDstandardNth3gxy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G312 = 0.5*(gu32*JacPDstandardNth1gyy + CCTK_REAL G312 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu32*JacPDstandardNth1gyy + gu31*JacPDstandardNth2gxx + gu33*(JacPDstandardNth1gyz + JacPDstandardNth2gxz - JacPDstandardNth3gxy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G113 = 0.5*(gu31*JacPDstandardNth1gzz + CCTK_REAL G113 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu31*JacPDstandardNth1gzz + gu11*JacPDstandardNth3gxx + gu21*(JacPDstandardNth1gyz - JacPDstandardNth2gxz + JacPDstandardNth3gxy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G213 = 0.5*(gu32*JacPDstandardNth1gzz + CCTK_REAL G213 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu32*JacPDstandardNth1gzz + gu21*JacPDstandardNth3gxx + gu22*(JacPDstandardNth1gyz - JacPDstandardNth2gxz + JacPDstandardNth3gxy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G313 = 0.5*(gu33*JacPDstandardNth1gzz + CCTK_REAL G313 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu33*JacPDstandardNth1gzz + gu31*JacPDstandardNth3gxx + gu32*(JacPDstandardNth1gyz - JacPDstandardNth2gxz + JacPDstandardNth3gxy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G122 = + CCTK_REAL G122 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu11*(-JacPDstandardNth1gyy + 2*JacPDstandardNth2gxy) + gu21*JacPDstandardNth2gyy + gu31*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G222 = + CCTK_REAL G222 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu21*(-JacPDstandardNth1gyy + 2*JacPDstandardNth2gxy) + gu22*JacPDstandardNth2gyy + gu32*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G322 = + CCTK_REAL G322 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu31*(-JacPDstandardNth1gyy + 2*JacPDstandardNth2gxy) + gu32*JacPDstandardNth2gyy + gu33*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G123 = 0.5*(gu31*JacPDstandardNth2gzz + CCTK_REAL G123 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu31*JacPDstandardNth2gzz + gu11*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + JacPDstandardNth3gxy) + gu21*JacPDstandardNth3gyy); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G223 = 0.5*(gu32*JacPDstandardNth2gzz + CCTK_REAL G223 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu32*JacPDstandardNth2gzz + gu21*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + JacPDstandardNth3gxy) + gu22*JacPDstandardNth3gyy); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G323 = 0.5*(gu33*JacPDstandardNth2gzz + CCTK_REAL G323 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu33*JacPDstandardNth2gzz + gu31*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + JacPDstandardNth3gxy) + gu32*JacPDstandardNth3gyy); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G133 = + CCTK_REAL G133 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu11*(-JacPDstandardNth1gzz + 2*JacPDstandardNth3gxz) + gu21*(-JacPDstandardNth2gzz + 2*JacPDstandardNth3gyz) + gu31*JacPDstandardNth3gzz); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G233 = + CCTK_REAL G233 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu21*(-JacPDstandardNth1gzz + 2*JacPDstandardNth3gxz) + gu22*(-JacPDstandardNth2gzz + 2*JacPDstandardNth3gyz) + gu32*JacPDstandardNth3gzz); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED G333 = + CCTK_REAL G333 CCTK_ATTRIBUTE_UNUSED = 0.5*(gu31*(-JacPDstandardNth1gzz + 2*JacPDstandardNth3gxz) + gu32*(-JacPDstandardNth2gzz + 2*JacPDstandardNth3gyz) + gu33*JacPDstandardNth3gzz); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED R11 = 0.5*(gxyL*(-4*G123*G211*gu32 + + CCTK_REAL R11 CCTK_ATTRIBUTE_UNUSED = 0.5*(gxyL*(-4*G123*G211*gu32 + 4*G113*G212*gu32 + 4*G113*G213*gu33) + gxzL*(-4*G123*G311*gu32 + 4*G113*G312*gu32 - 2*G133*G311*gu33) + 4*(gyzL*G213*G312*gu32 + gyzL*G212*G313*gu32 + G112*(gxyL*G212*gu22 + gxzL*G312*gu22 + @@ -1120,33 +1121,30 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d 4*G223*G311*gu32 - 2*G233*G311*gu33 + 4*G213*G313*gu33 - 2*G211*G333*gu33) - 2*(gxyL*G122*G211*gu22 + gyyL*G211*G222*gu22 + gxzL*G122*G311*gu22 + gyzL*G222*G311*gu22 + gzzL*G311*G322*gu22 + - gxyL*G133*G211*gu33 + gzzL*G311*G333*gu33 + G111*(gxxL*G122*gu22 - + gxyL*G222*gu22 + gxzL*G322*gu22 + 2*gxxL*G123*gu32 + - 2*gxyL*G223*gu32 + 2*gxzL*G323*gu32 + gxxL*G133*gu33 + - gxyL*G233*gu33 + gxzL*G333*gu33)) + gu21*(-JacPDstandardNth12gxx + - JacPDstandardNth21gxx) + gu22*(-JacPDstandardNth11gyy + - 2*JacPDstandardNth21gxy - JacPDstandardNth22gxx) + - gu32*(4*gzzL*G312*G313 - 4*gyzL*G211*G323 - 4*gzzL*G311*G323 - - 2*JacPDstandardNth11gyz - JacPDstandardNth23gxx) + + gxyL*G133*G211*gu33 + gzzL*G311*G333*gu33 + G111*(gxxL*G122*gu22 + + gxyL*G222*gu22 + gxzL*G322*gu22 + 2*gxxL*G123*gu32 + 2*gxyL*G223*gu32 + + 2*gxzL*G323*gu32 + gxxL*G133*gu33 + gxyL*G233*gu33 + gxzL*G333*gu33)) + + gu21*(-JacPDstandardNth12gxx + JacPDstandardNth21gxx) + + gu22*(-JacPDstandardNth11gyy + 2*JacPDstandardNth21gxy - + JacPDstandardNth22gxx) + gu32*(4*gzzL*G312*G313 - 4*gyzL*G211*G323 - + 4*gzzL*G311*G323 - 2*JacPDstandardNth11gyz - JacPDstandardNth23gxx) + gu31*(-JacPDstandardNth13gxx + JacPDstandardNth31gxx) + 2*gu32*JacPDstandardNth31gxy + gu32*(2*JacPDstandardNth21gxz - JacPDstandardNth32gxx) + gu33*(-JacPDstandardNth11gzz + 2*JacPDstandardNth31gxz - JacPDstandardNth33gxx) + - 2*gxxL*gu22*SQR(G112) + 2*gxxL*gu33*SQR(G113) + - gyyL*(4*G212*G213*gu32 - 4*G211*G223*gu32 - 2*G211*G233*gu33 + - 2*gu22*SQR(G212)) + 2*gyyL*gu33*SQR(G213) + 2*gzzL*gu22*SQR(G312) + - 2*gzzL*gu33*SQR(G313)); + 2*gxxL*gu22*SQR(G112) + 2*gxxL*gu33*SQR(G113) + gyyL*(4*G212*G213*gu32 + - 4*G211*G223*gu32 - 2*G211*G233*gu33 + 2*gu22*SQR(G212)) + + 2*gyyL*gu33*SQR(G213) + 2*gzzL*gu22*SQR(G312) + 2*gzzL*gu33*SQR(G313)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED R12 = 0.5*(gxzL*((-2*G123*G312 + + CCTK_REAL R12 CCTK_ATTRIBUTE_UNUSED = 0.5*(gxzL*((-2*G123*G312 + 2*G122*G313)*gu32 - 2*G133*G312*gu33) + gyzL*((-4*G212*G312 + 2*G211*G322)*gu21 + G223*(2*G311*gu31 - 2*G312*gu32) - - 2*G233*G312*gu33) + 2*(G111*((gxxL*G122 + gxyL*G222 + - gxzL*G322)*gu21 + (gxxL*G123 + gxyL*G223 + gxzL*G323)*gu31) + - G211*((gxyL*G122 + gyyL*G222)*gu21 + (gxyL*G123 + gyyL*G223 + - gyzL*G323)*gu31) + G311*((gxzL*G122 + gyzL*G222 + - gzzL*G322)*gu21 + (gxzL*G123 + gzzL*G323)*gu31) + - (G122*(gxxL*G113 + gxyL*G213) + G222*(gxyL*G113 + gyzL*G313) + - (gxzL*G113 + gyzL*G213 + gzzL*G313)*G322)*gu32 + + 2*G233*G312*gu33) + 2*(G111*((gxxL*G122 + gxyL*G222 + gxzL*G322)*gu21 + + (gxxL*G123 + gxyL*G223 + gxzL*G323)*gu31) + G211*((gxyL*G122 + + gyyL*G222)*gu21 + (gxyL*G123 + gyyL*G223 + gyzL*G323)*gu31) + + G311*((gxzL*G122 + gyzL*G222 + gzzL*G322)*gu21 + (gxzL*G123 + + gzzL*G323)*gu31) + (G122*(gxxL*G113 + gxyL*G213) + G222*(gxyL*G113 + + gyzL*G313) + (gxzL*G113 + gyzL*G213 + gzzL*G313)*G322)*gu32 + (G123*(gxxL*G113 + gxyL*G213) + gxyL*G113*G223 + (gyzL*G213 + gzzL*G313)*G323)*gu33) + gu22*(-JacPDstandardNth12gyy + JacPDstandardNth21gyy) + gu32*(JacPDstandardNth21gyz + @@ -1157,28 +1155,26 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d 2*(gyyL*G212*G233 + gyzL*G212*G333 + gzzL*G312*G333) - JacPDstandardNth12gzz + JacPDstandardNth31gyz + JacPDstandardNth32gxz - JacPDstandardNth33gxy) - 2*((gyzL*G212 + gzzL*G312)*G313*gu31 + - G312*((gxzL*G113 + gyzL*G213)*gu31 + gzzL*G323*gu32) + - G212*((gxyL*G113 + gyyL*G213)*gu31 + (gxyL*G123 + - gyzL*G323)*gu32 + gxyL*G133*gu33) + G112*(2*(gxyL*G212 + - gxzL*G312)*gu21 + (gxxL*G113 + gxyL*G213 + gxzL*G313)*gu31 + - (gxxL*G123 + gxyL*G223 + gxzL*G323)*gu32 + (gxxL*G133 + - gxyL*G233 + gxzL*G333)*gu33) + gu32*JacPDstandardNth12gyz + - gu21*(JacPDstandardNth12gxy + gxxL*SQR(G112))) + gyyL*((2*G213*G222 - - 2*G212*G223)*gu32 + 2*G213*G223*gu33 - 2*gu21*SQR(G212)) + + G312*((gxzL*G113 + gyzL*G213)*gu31 + gzzL*G323*gu32) + G212*((gxyL*G113 + + gyyL*G213)*gu31 + (gxyL*G123 + gyzL*G323)*gu32 + gxyL*G133*gu33) + + G112*(2*(gxyL*G212 + gxzL*G312)*gu21 + (gxxL*G113 + gxyL*G213 + + gxzL*G313)*gu31 + (gxxL*G123 + gxyL*G223 + gxzL*G323)*gu32 + (gxxL*G133 + + gxyL*G233 + gxzL*G333)*gu33) + gu32*JacPDstandardNth12gyz + + gu21*(JacPDstandardNth12gxy + gxxL*SQR(G112))) + gyyL*((2*G213*G222 - + 2*G212*G223)*gu32 + 2*G213*G223*gu33 - 2*gu21*SQR(G212)) + gu21*(JacPDstandardNth11gyy + JacPDstandardNth22gxx - 2*gzzL*SQR(G312))); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED R13 = 0.5*(gxyL*(2*G123*G211*gu21 - + CCTK_REAL R13 CCTK_ATTRIBUTE_UNUSED = 0.5*(gxyL*(2*G123*G211*gu21 - 2*G113*G212*gu21 + 2*G123*G212*gu22 + 2*G133*G211*gu31 + 2*G133*G212*gu32) + 2*(gxzL*G123*G311*gu21 + gyzL*G223*G311*gu21 + gyzL*G211*G323*gu21 + gzzL*G311*G323*gu21 + gyyL*G212*G223*gu22 + gxzL*G123*G312*gu22 + gyzL*G223*G312*gu22 + gxzL*G133*G311*gu31 + - G111*(gxxL*G123*gu21 + gxyL*G223*gu21 + gxzL*G323*gu21 + - gxxL*G133*gu31 + gxyL*G233*gu31 + gxzL*G333*gu31) + - gyyL*G212*G233*gu32 + gxzL*G133*G312*gu32 + gyzL*G233*G312*gu32 + - G112*((-(gxxL*G113) - gxyL*G213 - gxzL*G313)*gu21 + - gxxL*G123*gu22 + gxyL*G223*gu22 + gxzL*G323*gu22 + - gxxL*G133*gu32 + gxyL*G233*gu32 + gxzL*G333*gu32)) + + G111*(gxxL*G123*gu21 + gxyL*G223*gu21 + gxzL*G323*gu21 + gxxL*G133*gu31 + + gxyL*G233*gu31 + gxzL*G333*gu31) + gyyL*G212*G233*gu32 + + gxzL*G133*G312*gu32 + gyzL*G233*G312*gu32 + G112*((-(gxxL*G113) - + gxyL*G213 - gxzL*G313)*gu21 + gxxL*G123*gu22 + gxyL*G223*gu22 + + gxzL*G323*gu22 + gxxL*G133*gu32 + gxyL*G233*gu32 + gxzL*G333*gu32)) + gu22*(-2*gzzL*G313*G322 + 2*gyzL*G212*G323 + 2*gzzL*G312*G323 - JacPDstandardNth13gyy + JacPDstandardNth21gyz - JacPDstandardNth22gxz) + gu21*(JacPDstandardNth11gyz - JacPDstandardNth12gxz - @@ -1187,8 +1183,8 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d gu33*(-JacPDstandardNth13gzz + JacPDstandardNth31gzz) + gu32*(-2*gzzL*G313*G323 + 2*gyzL*G212*G333 + 2*gzzL*G312*G333 - 2*JacPDstandardNth13gyz + JacPDstandardNth21gzz - - JacPDstandardNth32gxz) + gu31*(-4*gxyL*G113*G213 + 2*gyzL*G233*G311 - - 4*gxzL*G113*G313 - 4*gyzL*G213*G313 + 2*gyzL*G211*G333 + + JacPDstandardNth32gxz) + gu31*(-4*gxyL*G113*G213 + 2*gyzL*G233*G311 - + 4*gxzL*G113*G313 - 4*gyzL*G213*G313 + 2*gyzL*G211*G333 + 2*gzzL*G311*G333 + JacPDstandardNth11gzz + JacPDstandardNth33gxx) + gu32*JacPDstandardNth33gxy - 2*(gxzL*G113*G312*gu21 + gyzL*G213*G312*gu21 + gyzL*G212*G313*gu21 + gzzL*G312*G313*gu21 + @@ -1196,22 +1192,20 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d gxzL*G122*G313*gu22 + gyzL*G222*G313*gu22 + gxzL*G113*G322*gu22 + gyzL*G213*G322*gu22 + gxxL*G113*G123*gu32 + gxyL*G123*G213*gu32 + gxyL*G113*G223*gu32 + gxzL*G123*G313*gu32 + gyzL*G223*G313*gu32 + - gxzL*G113*G323*gu32 + gyzL*G213*G323*gu32 + - gu31*JacPDstandardNth13gxz + gxxL*gu31*SQR(G113)) + - gyyL*(-2*G212*G213*gu21 + 2*G211*G223*gu21 - 2*G213*G222*gu22 + - 2*G211*G233*gu31 - 2*G213*G223*gu32 - 2*gu31*SQR(G213)) - - 2*gzzL*gu31*SQR(G313)); + gxzL*G113*G323*gu32 + gyzL*G213*G323*gu32 + gu31*JacPDstandardNth13gxz + + gxxL*gu31*SQR(G113)) + gyyL*(-2*G212*G213*gu21 + 2*G211*G223*gu21 - + 2*G213*G222*gu22 + 2*G211*G233*gu31 - 2*G213*G223*gu32 - + 2*gu31*SQR(G213)) - 2*gzzL*gu31*SQR(G313)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED R22 = 0.5*(-4*(gyzL*G213*G322*gu31 + + CCTK_REAL R22 CCTK_ATTRIBUTE_UNUSED = 0.5*(-4*(gyzL*G213*G322*gu31 + gzzL*G313*G322*gu31) + gyzL*(4*G212*G312*gu11 - 2*G211*G322*gu11 + 4*G223*G312*gu31 - 2*G233*G322*gu33) + 4*(G112*(gxyL*G212*gu11 + - gxzL*G312*gu11 + gxxL*G123*gu31 + gxyL*G223*gu31 + - gxzL*G323*gu31) + gxyL*G123*G223*gu33 + gxzL*G123*G323*gu33 + - gyzL*G223*G323*gu33) + gu21*(JacPDstandardNth12gyy - - JacPDstandardNth21gyy) - 2*(gxyL*G122*G211*gu11 + - gyyL*G211*G222*gu11 + gxzL*G122*G311*gu11 + gyzL*G222*G311*gu11 + - gzzL*G311*G322*gu11 + G111*(gxxL*G122 + gxyL*G222 + - gxzL*G322)*gu11 + gxxL*G122*G133*gu33 + gxyL*G133*G222*gu33 + + gxzL*G312*gu11 + gxxL*G123*gu31 + gxyL*G223*gu31 + gxzL*G323*gu31) + + gxyL*G123*G223*gu33 + gxzL*G123*G323*gu33 + gyzL*G223*G323*gu33) + + gu21*(JacPDstandardNth12gyy - JacPDstandardNth21gyy) - + 2*(gxyL*G122*G211*gu11 + gyyL*G211*G222*gu11 + gxzL*G122*G311*gu11 + + gyzL*G222*G311*gu11 + gzzL*G311*G322*gu11 + G111*(gxxL*G122 + gxyL*G222 + + gxzL*G322)*gu11 + gxxL*G122*G133*gu33 + gxyL*G133*G222*gu33 + gxyL*G122*G233*gu33 + gyyL*G222*G233*gu33 + gxzL*G133*G322*gu33 + gxzL*G122*G333*gu33 + gyzL*G222*G333*gu33 + gzzL*G322*G333*gu33 + gu31*JacPDstandardNth22gxz) + gu31*(-4*gxxL*G113*G122 + @@ -1225,56 +1219,52 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d 2*JacPDstandardNth32gyz - JacPDstandardNth33gyy) + gu11*(-JacPDstandardNth11gyy + 2*JacPDstandardNth12gxy - JacPDstandardNth22gxx + 2*gxxL*SQR(G112)) + 2*gxxL*gu33*SQR(G123) + - 2*gyyL*gu11*SQR(G212) + 2*gyyL*gu33*SQR(G223) + - 2*gzzL*gu11*SQR(G312) + 2*gzzL*gu33*SQR(G323)); + 2*gyyL*gu11*SQR(G212) + 2*gyyL*gu33*SQR(G223) + 2*gzzL*gu11*SQR(G312) + + 2*gzzL*gu33*SQR(G323)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED R23 = 0.5*(gxyL*((-2*G123*G211 + + CCTK_REAL R23 CCTK_ATTRIBUTE_UNUSED = 0.5*(gxyL*((-2*G123*G211 + 2*G113*G212)*gu11 + G212*(-2*G123*gu21 + 2*G133*gu31) + (-4*G123*G223 + 2*(G133*G222 + G122*G233))*gu32) + 2*(G313*((gyzL*G212 + - gzzL*G312)*gu11 + gxzL*G122*gu21) + G312*((gxzL*G113 + - gyzL*G213)*gu11 + gxzL*G133*gu31) + G112*((gxxL*G113 + - gxyL*G213 + gxzL*G313)*gu11 + (-(gxxL*G123) - gxyL*G223 - - gxzL*G323)*gu21 + gxxL*G133*gu31 + gxyL*G233*gu31 + - gxzL*G333*gu31) + (gxzL*G122 + gzzL*G322)*G333*gu32 + - G122*((gxxL*G113 + gxyL*G213)*gu21 + gxxL*G133*gu32) + - G322*((gxzL*G113 + gyzL*G213)*gu21 + gxzL*G133*gu32) + - G233*((gyyL*G212 + gyzL*G312)*gu31 + gyzL*G322*gu32) + - G222*((gxyL*G113 + gyzL*G313)*gu21 + gyzL*G333*gu32)) + - gu11*(-JacPDstandardNth11gyz + JacPDstandardNth12gxz + - JacPDstandardNth13gxy - JacPDstandardNth23gxx) + - gu21*(-2*gyzL*G212*G323 + gzzL*(2*G313*G322 - 2*G312*G323) + + gzzL*G312)*gu11 + gxzL*G122*gu21) + G312*((gxzL*G113 + gyzL*G213)*gu11 + + gxzL*G133*gu31) + G112*((gxxL*G113 + gxyL*G213 + gxzL*G313)*gu11 + + (-(gxxL*G123) - gxyL*G223 - gxzL*G323)*gu21 + gxxL*G133*gu31 + + gxyL*G233*gu31 + gxzL*G333*gu31) + (gxzL*G122 + gzzL*G322)*G333*gu32 + + G122*((gxxL*G113 + gxyL*G213)*gu21 + gxxL*G133*gu32) + G322*((gxzL*G113 + + gyzL*G213)*gu21 + gxzL*G133*gu32) + G233*((gyyL*G212 + + gyzL*G312)*gu31 + gyzL*G322*gu32) + G222*((gxyL*G113 + gyzL*G313)*gu21 + + gyzL*G333*gu32)) + gu11*(-JacPDstandardNth11gyz + + JacPDstandardNth12gxz + JacPDstandardNth13gxy - JacPDstandardNth23gxx) + + gu21*(-2*gyzL*G212*G323 + gzzL*(2*G313*G322 - 2*G312*G323) + JacPDstandardNth13gyy - JacPDstandardNth21gyz + JacPDstandardNth22gxz - JacPDstandardNth23gxy) + gu33*(-JacPDstandardNth23gzz + - JacPDstandardNth32gzz) + gu31*(2*gyzL*G212*G333 + - gzzL*(-2*G313*G323 + 2*G312*G333) + JacPDstandardNth12gzz - - JacPDstandardNth31gyz + JacPDstandardNth32gxz + JacPDstandardNth33gxy) - - 2*(((gxzL*G123 + gyzL*G223)*G311 + G111*(gxxL*G123 + - gxyL*G223 + gxzL*G323))*gu11 + (gxzL*G123*G312 + - G223*(gyyL*G212 + gyzL*G312))*gu21 + G323*((gyzL*G211 + - gzzL*G311)*gu11 + gxzL*G113*gu31) + gu31*(G123*(gxxL*G113 + - gxyL*G213 + gxzL*G313) + G223*(gxyL*G113 + gyzL*G313) + - gyzL*G213*G323 + JacPDstandardNth23gxz) + gxxL*gu32*SQR(G123)) + - gyyL*((2*G212*G213 - 2*G211*G223)*gu11 + G213*(2*G222*gu21 - - 2*G223*gu31) + gu32*(2*G222*G233 - 2*SQR(G223))) + - gu32*(-4*(gxzL*G123 + gyzL*G223)*G323 + JacPDstandardNth22gzz + - JacPDstandardNth33gyy - 2*(JacPDstandardNth23gyz + gzzL*SQR(G323)))); + JacPDstandardNth32gzz) + gu31*(2*gyzL*G212*G333 + gzzL*(-2*G313*G323 + + 2*G312*G333) + JacPDstandardNth12gzz - JacPDstandardNth31gyz + + JacPDstandardNth32gxz + JacPDstandardNth33gxy) - 2*(((gxzL*G123 + + gyzL*G223)*G311 + G111*(gxxL*G123 + gxyL*G223 + gxzL*G323))*gu11 + + (gxzL*G123*G312 + G223*(gyyL*G212 + gyzL*G312))*gu21 + G323*((gyzL*G211 + + gzzL*G311)*gu11 + gxzL*G113*gu31) + gu31*(G123*(gxxL*G113 + gxyL*G213 + + gxzL*G313) + G223*(gxyL*G113 + gyzL*G313) + gyzL*G213*G323 + + JacPDstandardNth23gxz) + gxxL*gu32*SQR(G123)) + gyyL*((2*G212*G213 - + 2*G211*G223)*gu11 + G213*(2*G222*gu21 - 2*G223*gu31) + + gu32*(2*G222*G233 - 2*SQR(G223))) + gu32*(-4*(gxzL*G123 + + gyzL*G223)*G323 + JacPDstandardNth22gzz + JacPDstandardNth33gyy - + 2*(JacPDstandardNth23gyz + gzzL*SQR(G323)))); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED R33 = 0.5*(4*((G213*(gxyL*G123 + - gyyL*G223) + gyzL*(G223*G313 + G213*G323))*gu21 + - G113*((gxyL*G213 + gxzL*G313)*gu11 + (gxxL*G123 + gxyL*G223 + - gxzL*G323)*gu21) + gxyL*G123*G223*gu22) + gxzL*((-4*G133*G312 + - 4*G123*G313)*gu21 - 2*G133*G322*gu22) + gyzL*((4*G213*G313 - - 2*G211*G333)*gu11 + G233*(-4*G312*gu21 - 2*G322*gu22)) + - gu21*(4*gzzL*G313*G323 - 4*(G133*(gxxL*G112 + gxyL*G212) + - (gxyL*G112 + gyyL*G212)*G233 + gxzL*G112*G333 + (gyzL*G212 + - gzzL*G312)*G333) - JacPDstandardNth12gzz + 2*JacPDstandardNth13gyz - - JacPDstandardNth21gzz + 2*JacPDstandardNth23gxz) + - gu31*(JacPDstandardNth13gzz - JacPDstandardNth31gzz) + - gu32*(JacPDstandardNth23gzz - JacPDstandardNth32gzz) - - 2*((G211*(gxyL*G133 + gyyL*G233) + G111*(gxxL*G133 + gxyL*G233 - + gxzL*G333) + G311*(gxzL*G133 + gyzL*G233 + gzzL*G333))*gu11 + - (G133*(gxxL*G122 + gxyL*G222) + gxyL*G122*G233 + (gyzL*G222 + - gzzL*G322)*G333)*gu22 + gu21*JacPDstandardNth33gxy) + + CCTK_REAL R33 CCTK_ATTRIBUTE_UNUSED = 0.5*(4*((G213*(gxyL*G123 + + gyyL*G223) + gyzL*(G223*G313 + G213*G323))*gu21 + G113*((gxyL*G213 + + gxzL*G313)*gu11 + (gxxL*G123 + gxyL*G223 + gxzL*G323)*gu21) + + gxyL*G123*G223*gu22) + gxzL*((-4*G133*G312 + 4*G123*G313)*gu21 - + 2*G133*G322*gu22) + gyzL*((4*G213*G313 - 2*G211*G333)*gu11 + + G233*(-4*G312*gu21 - 2*G322*gu22)) + gu21*(4*gzzL*G313*G323 - + 4*(G133*(gxxL*G112 + gxyL*G212) + (gxyL*G112 + gyyL*G212)*G233 + + gxzL*G112*G333 + (gyzL*G212 + gzzL*G312)*G333) - JacPDstandardNth12gzz + + 2*JacPDstandardNth13gyz - JacPDstandardNth21gzz + + 2*JacPDstandardNth23gxz) + gu31*(JacPDstandardNth13gzz - + JacPDstandardNth31gzz) + gu32*(JacPDstandardNth23gzz - + JacPDstandardNth32gzz) - 2*((G211*(gxyL*G133 + gyyL*G233) + + G111*(gxxL*G133 + gxyL*G233 + gxzL*G333) + G311*(gxzL*G133 + gyzL*G233 + + gzzL*G333))*gu11 + (G133*(gxxL*G122 + gxyL*G222) + gxyL*G122*G233 + + (gyzL*G222 + gzzL*G322)*G333)*gu22 + gu21*JacPDstandardNth33gxy) + gu11*(-JacPDstandardNth11gzz + 2*JacPDstandardNth13gxz - JacPDstandardNth33gxx + 2*gxxL*SQR(G113) + 2*gyyL*SQR(G213) + 2*gzzL*SQR(G313)) + gu22*(4*(gxzL*G123*G323 + gyzL*G223*G323) - @@ -1282,94 +1272,93 @@ static void ML_ADMConstraints_Body(const cGH* restrict const cctkGH, const int d 2*JacPDstandardNth23gyz - JacPDstandardNth33gyy + 2*gxxL*SQR(G123) + 2*gyyL*SQR(G223) + 2*gzzL*SQR(G323))); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED trR = gu11*R11 + gu22*R22 + + CCTK_REAL trR CCTK_ATTRIBUTE_UNUSED = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km11 = kxxL*gu11 + kxyL*gu21 + + CCTK_REAL Km11 CCTK_ATTRIBUTE_UNUSED = kxxL*gu11 + kxyL*gu21 + kxzL*gu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km21 = kxxL*gu21 + kxyL*gu22 + + CCTK_REAL Km21 CCTK_ATTRIBUTE_UNUSED = kxxL*gu21 + kxyL*gu22 + kxzL*gu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km31 = kxxL*gu31 + kxyL*gu32 + + CCTK_REAL Km31 CCTK_ATTRIBUTE_UNUSED = kxxL*gu31 + kxyL*gu32 + kxzL*gu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km12 = kxyL*gu11 + kyyL*gu21 + + CCTK_REAL Km12 CCTK_ATTRIBUTE_UNUSED = kxyL*gu11 + kyyL*gu21 + kyzL*gu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km22 = kxyL*gu21 + kyyL*gu22 + + CCTK_REAL Km22 CCTK_ATTRIBUTE_UNUSED = kxyL*gu21 + kyyL*gu22 + kyzL*gu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km32 = kxyL*gu31 + kyyL*gu32 + + CCTK_REAL Km32 CCTK_ATTRIBUTE_UNUSED = kxyL*gu31 + kyyL*gu32 + kyzL*gu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km13 = kxzL*gu11 + kyzL*gu21 + + CCTK_REAL Km13 CCTK_ATTRIBUTE_UNUSED = kxzL*gu11 + kyzL*gu21 + kzzL*gu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km23 = kxzL*gu21 + kyzL*gu22 + + CCTK_REAL Km23 CCTK_ATTRIBUTE_UNUSED = kxzL*gu21 + kyzL*gu22 + kzzL*gu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km33 = kxzL*gu31 + kyzL*gu32 + + CCTK_REAL Km33 CCTK_ATTRIBUTE_UNUSED = kxzL*gu31 + kyzL*gu32 + kzzL*gu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED trK = Km11 + Km22 + Km33; + CCTK_REAL trK CCTK_ATTRIBUTE_UNUSED = Km11 + Km22 + Km33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED rho = INV(SQR(alpL))*(eTttL - - 2*(betayL*eTtyL + betazL*eTtzL) + 2*(betaxL*(-eTtxL + - betayL*eTxyL + betazL*eTxzL) + betayL*betazL*eTyzL) + - eTxxL*SQR(betaxL) + eTyyL*SQR(betayL) + eTzzL*SQR(betazL)); + CCTK_REAL rho CCTK_ATTRIBUTE_UNUSED = INV(SQR(alpL))*(eTttL - + 2*(betayL*eTtyL + betazL*eTtzL) + 2*(betaxL*(-eTtxL + betayL*eTxyL + + betazL*eTxzL) + betayL*betazL*eTyzL) + eTxxL*SQR(betaxL) + + eTyyL*SQR(betayL) + eTzzL*SQR(betazL)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED S1 = (-eTtxL + betaxL*eTxxL + + CCTK_REAL S1 CCTK_ATTRIBUTE_UNUSED = (-eTtxL + betaxL*eTxxL + betayL*eTxyL + betazL*eTxzL)*INV(alpL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED S2 = (-eTtyL + betaxL*eTxyL + + CCTK_REAL S2 CCTK_ATTRIBUTE_UNUSED = (-eTtyL + betaxL*eTxyL + betayL*eTyyL + betazL*eTyzL)*INV(alpL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED S3 = (-eTtzL + betaxL*eTxzL + + CCTK_REAL S3 CCTK_ATTRIBUTE_UNUSED = (-eTtzL + betaxL*eTxzL + betayL*eTyzL + betazL*eTzzL)*INV(alpL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED HL = -2*(Km12*Km21 + Km13*Km31 + + CCTK_REAL HL CCTK_ATTRIBUTE_UNUSED = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) - 16*Pi*rho + trR - SQR(Km11) - SQR(Km22) - SQR(Km33) + SQR(trK); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED M1L = gu21*(-(kxxL*G112) + - kyyL*G211 + kxyL*(G111 - G212) + kyzL*G311 - kxzL*G312 - - JacPDstandardNth1kxy + JacPDstandardNth2kxx) + gu22*(-(kxxL*G122) + - kyyL*G212 + kxyL*(G112 - G222) + kyzL*G312 - kxzL*G322 - - JacPDstandardNth1kyy + JacPDstandardNth2kxy) + gu31*(-(kxxL*G113) + - kyzL*G211 - kxyL*G213 + kzzL*G311 + kxzL*(G111 - G313) - - JacPDstandardNth1kxz + JacPDstandardNth3kxx) + gu32*(kyyL*G213 + - kxyL*(G113 - 2*G223) + kzzL*G312 + kyzL*(G212 + G313) + - kxzL*(G112 - 2*G323) - 2*(kxxL*G123 + JacPDstandardNth1kyz) + - JacPDstandardNth2kxz + JacPDstandardNth3kxy) + gu33*(-(kxxL*G133) + - kyzL*G213 - kxyL*G233 + kzzL*G313 + kxzL*(G113 - G333) - - JacPDstandardNth1kzz + JacPDstandardNth3kxz) - 8*Pi*S1; + CCTK_REAL M1L CCTK_ATTRIBUTE_UNUSED = gu21*(-(kxxL*G112) + kyyL*G211 + + kxyL*(G111 - G212) + kyzL*G311 - kxzL*G312 - JacPDstandardNth1kxy + + JacPDstandardNth2kxx) + gu22*(-(kxxL*G122) + kyyL*G212 + kxyL*(G112 - + G222) + kyzL*G312 - kxzL*G322 - JacPDstandardNth1kyy + + JacPDstandardNth2kxy) + gu31*(-(kxxL*G113) + kyzL*G211 - kxyL*G213 + + kzzL*G311 + kxzL*(G111 - G313) - JacPDstandardNth1kxz + + JacPDstandardNth3kxx) + gu32*(kyyL*G213 + kxyL*(G113 - 2*G223) + + kzzL*G312 + kyzL*(G212 + G313) + kxzL*(G112 - 2*G323) - 2*(kxxL*G123 + + JacPDstandardNth1kyz) + JacPDstandardNth2kxz + JacPDstandardNth3kxy) + + gu33*(-(kxxL*G133) + kyzL*G213 - kxyL*G233 + kzzL*G313 + kxzL*(G113 - + G333) - JacPDstandardNth1kzz + JacPDstandardNth3kxz) - 8*Pi*S1; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED M2L = gu11*(kxxL*G112 - kyyL*G211 - + kxyL*(-G111 + G212) - kyzL*G311 + kxzL*G312 + - JacPDstandardNth1kxy - JacPDstandardNth2kxx) + gu21*(kxxL*G122 - - kyyL*G212 + kxyL*(-G112 + G222) - kyzL*G312 + kxzL*G322 + - JacPDstandardNth1kyy - JacPDstandardNth2kxy) + gu31*(kxxL*G123 + - kxyL*G223 + kzzL*G312 + kyzL*(G212 - 2*G313) + kxzL*(G112 + - G323) + JacPDstandardNth1kyz - 2*(kxyL*G113 + kyyL*G213 + - JacPDstandardNth2kxz) + JacPDstandardNth3kxy) + gu32*(kxzL*G122 - - kxyL*G123 - kyyL*G223 + kzzL*G322 + kyzL*(G222 - G323) - - JacPDstandardNth2kyz + JacPDstandardNth3kyy) + gu33*(kxzL*G123 - - kxyL*G133 - kyyL*G233 + kzzL*G323 + kyzL*(G223 - G333) - - JacPDstandardNth2kzz + JacPDstandardNth3kyz) - 8*Pi*S2; + CCTK_REAL M2L CCTK_ATTRIBUTE_UNUSED = gu11*(kxxL*G112 - kyyL*G211 + + kxyL*(-G111 + G212) - kyzL*G311 + kxzL*G312 + JacPDstandardNth1kxy - + JacPDstandardNth2kxx) + gu21*(kxxL*G122 - kyyL*G212 + kxyL*(-G112 + + G222) - kyzL*G312 + kxzL*G322 + JacPDstandardNth1kyy - + JacPDstandardNth2kxy) + gu31*(kxxL*G123 + kxyL*G223 + kzzL*G312 + + kyzL*(G212 - 2*G313) + kxzL*(G112 + G323) + JacPDstandardNth1kyz - + 2*(kxyL*G113 + kyyL*G213 + JacPDstandardNth2kxz) + + JacPDstandardNth3kxy) + gu32*(kxzL*G122 - kxyL*G123 - kyyL*G223 + + kzzL*G322 + kyzL*(G222 - G323) - JacPDstandardNth2kyz + + JacPDstandardNth3kyy) + gu33*(kxzL*G123 - kxyL*G133 - kyyL*G233 + + kzzL*G323 + kyzL*(G223 - G333) - JacPDstandardNth2kzz + + JacPDstandardNth3kyz) - 8*Pi*S2; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED M3L = gu11*(kxxL*G113 - kyzL*G211 - + kxyL*G213 - kzzL*G311 + kxzL*(-G111 + G313) + - JacPDstandardNth1kxz - JacPDstandardNth3kxx) + gu21*(kxxL*G123 + - kyyL*G213 + kxyL*(G113 + G223) + kyzL*G313 + kxzL*G323 + - JacPDstandardNth1kyz + JacPDstandardNth2kxz - 2*(kxzL*G112 + - kyzL*G212 + kzzL*G312 + JacPDstandardNth3kxy)) + gu31*(kxxL*G133 - - kyzL*G213 + kxyL*G233 - kzzL*G313 + kxzL*(-G113 + G333) + - JacPDstandardNth1kzz - JacPDstandardNth3kxz) + gu22*(-(kxzL*G122) + - kxyL*G123 + kyyL*G223 - kzzL*G322 + kyzL*(-G222 + G323) + - JacPDstandardNth2kyz - JacPDstandardNth3kyy) + gu32*(-(kxzL*G123) + - kxyL*G133 + kyyL*G233 - kzzL*G323 + kyzL*(-G223 + G333) + - JacPDstandardNth2kzz - JacPDstandardNth3kyz) - 8*Pi*S3; + CCTK_REAL M3L CCTK_ATTRIBUTE_UNUSED = gu11*(kxxL*G113 - kyzL*G211 + + kxyL*G213 - kzzL*G311 + kxzL*(-G111 + G313) + JacPDstandardNth1kxz - + JacPDstandardNth3kxx) + gu21*(kxxL*G123 + kyyL*G213 + kxyL*(G113 + + G223) + kyzL*G313 + kxzL*G323 + JacPDstandardNth1kyz + + JacPDstandardNth2kxz - 2*(kxzL*G112 + kyzL*G212 + kzzL*G312 + + JacPDstandardNth3kxy)) + gu31*(kxxL*G133 - kyzL*G213 + kxyL*G233 - + kzzL*G313 + kxzL*(-G113 + G333) + JacPDstandardNth1kzz - + JacPDstandardNth3kxz) + gu22*(-(kxzL*G122) + kxyL*G123 + kyyL*G223 - + kzzL*G322 + kyzL*(-G222 + G323) + JacPDstandardNth2kyz - + JacPDstandardNth3kyy) + gu32*(-(kxzL*G123) + kxyL*G133 + kyyL*G233 - + kzzL*G323 + kyzL*(-G223 + G333) + JacPDstandardNth2kzz - + JacPDstandardNth3kyz) - 8*Pi*S3; /* Copy local copies back to grid functions */ H[index] = HL; diff --git a/ML_ADMQuantities/src/ML_ADMQuantities.cc b/ML_ADMQuantities/src/ML_ADMQuantities.cc index bc63940..5b2268a 100644 --- a/ML_ADMQuantities/src/ML_ADMQuantities.cc +++ b/ML_ADMQuantities/src/ML_ADMQuantities.cc @@ -63,13 +63,15 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di const CCTK_REAL dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); const CCTK_REAL dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); const CCTK_REAL khalf CCTK_ATTRIBUTE_UNUSED = 0.5; - const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = 1/3.0; - const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = 2.0/3.0; - const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = 4.0/3.0; - const CCTK_REAL keightthird CCTK_ATTRIBUTE_UNUSED = 8.0/3.0; - const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5 * dxi; - const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5 * dyi; - const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5 * dzi; + const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = + 0.333333333333333333333333333333; + const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = + 0.666666666666666666666666666667; + const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = + 1.33333333333333333333333333333; + const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5*dxi; + const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5*dyi; + const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5*dzi; /* Initialize predefined quantities */ const CCTK_REAL p1o12dx CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dx); @@ -440,17 +442,17 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di JacPDstandardNth1gt33 = J11L*PDstandardNth1gt33 + J21L*PDstandardNth2gt33 + J31L*PDstandardNth3gt33; - JacPDstandardNth1trK = J11L*PDstandardNth1trK + - J21L*PDstandardNth2trK + J31L*PDstandardNth3trK; + JacPDstandardNth1trK = J11L*PDstandardNth1trK + J21L*PDstandardNth2trK + + J31L*PDstandardNth3trK; - JacPDstandardNth1Xt1 = J11L*PDstandardNth1Xt1 + - J21L*PDstandardNth2Xt1 + J31L*PDstandardNth3Xt1; + JacPDstandardNth1Xt1 = J11L*PDstandardNth1Xt1 + J21L*PDstandardNth2Xt1 + + J31L*PDstandardNth3Xt1; - JacPDstandardNth1Xt2 = J11L*PDstandardNth1Xt2 + - J21L*PDstandardNth2Xt2 + J31L*PDstandardNth3Xt2; + JacPDstandardNth1Xt2 = J11L*PDstandardNth1Xt2 + J21L*PDstandardNth2Xt2 + + J31L*PDstandardNth3Xt2; - JacPDstandardNth1Xt3 = J11L*PDstandardNth1Xt3 + - J21L*PDstandardNth2Xt3 + J31L*PDstandardNth3Xt3; + JacPDstandardNth1Xt3 = J11L*PDstandardNth1Xt3 + J21L*PDstandardNth2Xt3 + + J31L*PDstandardNth3Xt3; JacPDstandardNth2gt11 = J12L*PDstandardNth1gt11 + J22L*PDstandardNth2gt11 + J32L*PDstandardNth3gt11; @@ -470,17 +472,17 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di JacPDstandardNth2gt33 = J12L*PDstandardNth1gt33 + J22L*PDstandardNth2gt33 + J32L*PDstandardNth3gt33; - JacPDstandardNth2trK = J12L*PDstandardNth1trK + - J22L*PDstandardNth2trK + J32L*PDstandardNth3trK; + JacPDstandardNth2trK = J12L*PDstandardNth1trK + J22L*PDstandardNth2trK + + J32L*PDstandardNth3trK; - JacPDstandardNth2Xt1 = J12L*PDstandardNth1Xt1 + - J22L*PDstandardNth2Xt1 + J32L*PDstandardNth3Xt1; + JacPDstandardNth2Xt1 = J12L*PDstandardNth1Xt1 + J22L*PDstandardNth2Xt1 + + J32L*PDstandardNth3Xt1; - JacPDstandardNth2Xt2 = J12L*PDstandardNth1Xt2 + - J22L*PDstandardNth2Xt2 + J32L*PDstandardNth3Xt2; + JacPDstandardNth2Xt2 = J12L*PDstandardNth1Xt2 + J22L*PDstandardNth2Xt2 + + J32L*PDstandardNth3Xt2; - JacPDstandardNth2Xt3 = J12L*PDstandardNth1Xt3 + - J22L*PDstandardNth2Xt3 + J32L*PDstandardNth3Xt3; + JacPDstandardNth2Xt3 = J12L*PDstandardNth1Xt3 + J22L*PDstandardNth2Xt3 + + J32L*PDstandardNth3Xt3; JacPDstandardNth3gt11 = J13L*PDstandardNth1gt11 + J23L*PDstandardNth2gt11 + J33L*PDstandardNth3gt11; @@ -500,17 +502,17 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di JacPDstandardNth3gt33 = J13L*PDstandardNth1gt33 + J23L*PDstandardNth2gt33 + J33L*PDstandardNth3gt33; - JacPDstandardNth3trK = J13L*PDstandardNth1trK + - J23L*PDstandardNth2trK + J33L*PDstandardNth3trK; + JacPDstandardNth3trK = J13L*PDstandardNth1trK + J23L*PDstandardNth2trK + + J33L*PDstandardNth3trK; - JacPDstandardNth3Xt1 = J13L*PDstandardNth1Xt1 + - J23L*PDstandardNth2Xt1 + J33L*PDstandardNth3Xt1; + JacPDstandardNth3Xt1 = J13L*PDstandardNth1Xt1 + J23L*PDstandardNth2Xt1 + + J33L*PDstandardNth3Xt1; - JacPDstandardNth3Xt2 = J13L*PDstandardNth1Xt2 + - J23L*PDstandardNth2Xt2 + J33L*PDstandardNth3Xt2; + JacPDstandardNth3Xt2 = J13L*PDstandardNth1Xt2 + J23L*PDstandardNth2Xt2 + + J33L*PDstandardNth3Xt2; - JacPDstandardNth3Xt3 = J13L*PDstandardNth1Xt3 + - J23L*PDstandardNth2Xt3 + J33L*PDstandardNth3Xt3; + JacPDstandardNth3Xt3 = J13L*PDstandardNth1Xt3 + J23L*PDstandardNth2Xt3 + + J33L*PDstandardNth3Xt3; JacPDstandardNth11gt11 = dJ111L*PDstandardNth1gt11 + 2*(J11L*(J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + @@ -1079,324 +1081,324 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL CCTK_ATTRIBUTE_UNUSED detgt = 1; + CCTK_REAL detgt CCTK_ATTRIBUTE_UNUSED = 1; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu11 = INV(detgt)*(gt22L*gt33L - + CCTK_REAL gtu11 CCTK_ATTRIBUTE_UNUSED = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu21 = (gt13L*gt23L - + CCTK_REAL gtu21 CCTK_ATTRIBUTE_UNUSED = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu31 = (-(gt13L*gt22L) + + CCTK_REAL gtu31 CCTK_ATTRIBUTE_UNUSED = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu22 = INV(detgt)*(gt11L*gt33L - + CCTK_REAL gtu22 CCTK_ATTRIBUTE_UNUSED = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu32 = (gt12L*gt13L - + CCTK_REAL gtu32 CCTK_ATTRIBUTE_UNUSED = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu33 = INV(detgt)*(gt11L*gt22L - + CCTK_REAL gtu33 CCTK_ATTRIBUTE_UNUSED = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu111 = + CCTK_REAL dgtu111 CCTK_ATTRIBUTE_UNUSED = -2*(gtu11*(gtu21*JacPDstandardNth1gt12 + gtu31*JacPDstandardNth1gt13) + gtu21*gtu31*JacPDstandardNth1gt23) - JacPDstandardNth1gt11*SQR(gtu11) - JacPDstandardNth1gt22*SQR(gtu21) - JacPDstandardNth1gt33*SQR(gtu31); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu211 = + CCTK_REAL dgtu211 CCTK_ATTRIBUTE_UNUSED = -(gtu21*(gtu11*JacPDstandardNth1gt11 + gtu21*JacPDstandardNth1gt12 + gtu31*JacPDstandardNth1gt13)) - gtu22*(gtu11*JacPDstandardNth1gt12 + gtu21*JacPDstandardNth1gt22 + gtu31*JacPDstandardNth1gt23) - gtu32*(gtu11*JacPDstandardNth1gt13 + gtu21*JacPDstandardNth1gt23 + gtu31*JacPDstandardNth1gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu311 = + CCTK_REAL dgtu311 CCTK_ATTRIBUTE_UNUSED = -(gtu11*(gtu31*JacPDstandardNth1gt11 + gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - gtu21*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + gtu33*JacPDstandardNth1gt23) - gtu31*(gtu31*JacPDstandardNth1gt13 + gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu221 = + CCTK_REAL dgtu221 CCTK_ATTRIBUTE_UNUSED = -2*(gtu21*(gtu22*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt13) + gtu22*gtu32*JacPDstandardNth1gt23) - JacPDstandardNth1gt11*SQR(gtu21) - JacPDstandardNth1gt22*SQR(gtu22) - JacPDstandardNth1gt33*SQR(gtu32); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu321 = + CCTK_REAL dgtu321 CCTK_ATTRIBUTE_UNUSED = -(gtu21*(gtu31*JacPDstandardNth1gt11 + gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - gtu22*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + gtu33*JacPDstandardNth1gt23) - gtu32*(gtu31*JacPDstandardNth1gt13 + gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu331 = + CCTK_REAL dgtu331 CCTK_ATTRIBUTE_UNUSED = -2*(gtu31*(gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13) + gtu32*gtu33*JacPDstandardNth1gt23) - JacPDstandardNth1gt11*SQR(gtu31) - JacPDstandardNth1gt22*SQR(gtu32) - JacPDstandardNth1gt33*SQR(gtu33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu112 = + CCTK_REAL dgtu112 CCTK_ATTRIBUTE_UNUSED = -2*(gtu11*(gtu21*JacPDstandardNth2gt12 + gtu31*JacPDstandardNth2gt13) + gtu21*gtu31*JacPDstandardNth2gt23) - JacPDstandardNth2gt11*SQR(gtu11) - JacPDstandardNth2gt22*SQR(gtu21) - JacPDstandardNth2gt33*SQR(gtu31); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu212 = + CCTK_REAL dgtu212 CCTK_ATTRIBUTE_UNUSED = -(gtu21*(gtu11*JacPDstandardNth2gt11 + gtu21*JacPDstandardNth2gt12 + gtu31*JacPDstandardNth2gt13)) - gtu22*(gtu11*JacPDstandardNth2gt12 + gtu21*JacPDstandardNth2gt22 + gtu31*JacPDstandardNth2gt23) - gtu32*(gtu11*JacPDstandardNth2gt13 + gtu21*JacPDstandardNth2gt23 + gtu31*JacPDstandardNth2gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu312 = + CCTK_REAL dgtu312 CCTK_ATTRIBUTE_UNUSED = -(gtu11*(gtu31*JacPDstandardNth2gt11 + gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - gtu21*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + gtu33*JacPDstandardNth2gt23) - gtu31*(gtu31*JacPDstandardNth2gt13 + gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu222 = + CCTK_REAL dgtu222 CCTK_ATTRIBUTE_UNUSED = -2*(gtu21*(gtu22*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt13) + gtu22*gtu32*JacPDstandardNth2gt23) - JacPDstandardNth2gt11*SQR(gtu21) - JacPDstandardNth2gt22*SQR(gtu22) - JacPDstandardNth2gt33*SQR(gtu32); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu322 = + CCTK_REAL dgtu322 CCTK_ATTRIBUTE_UNUSED = -(gtu21*(gtu31*JacPDstandardNth2gt11 + gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - gtu22*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + gtu33*JacPDstandardNth2gt23) - gtu32*(gtu31*JacPDstandardNth2gt13 + gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu332 = + CCTK_REAL dgtu332 CCTK_ATTRIBUTE_UNUSED = -2*(gtu31*(gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13) + gtu32*gtu33*JacPDstandardNth2gt23) - JacPDstandardNth2gt11*SQR(gtu31) - JacPDstandardNth2gt22*SQR(gtu32) - JacPDstandardNth2gt33*SQR(gtu33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu113 = + CCTK_REAL dgtu113 CCTK_ATTRIBUTE_UNUSED = -2*(gtu11*(gtu21*JacPDstandardNth3gt12 + gtu31*JacPDstandardNth3gt13) + gtu21*gtu31*JacPDstandardNth3gt23) - JacPDstandardNth3gt11*SQR(gtu11) - JacPDstandardNth3gt22*SQR(gtu21) - JacPDstandardNth3gt33*SQR(gtu31); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu213 = + CCTK_REAL dgtu213 CCTK_ATTRIBUTE_UNUSED = -(gtu21*(gtu11*JacPDstandardNth3gt11 + gtu21*JacPDstandardNth3gt12 + gtu31*JacPDstandardNth3gt13)) - gtu22*(gtu11*JacPDstandardNth3gt12 + gtu21*JacPDstandardNth3gt22 + gtu31*JacPDstandardNth3gt23) - gtu32*(gtu11*JacPDstandardNth3gt13 + gtu21*JacPDstandardNth3gt23 + gtu31*JacPDstandardNth3gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu313 = + CCTK_REAL dgtu313 CCTK_ATTRIBUTE_UNUSED = -(gtu11*(gtu31*JacPDstandardNth3gt11 + gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - gtu21*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + gtu33*JacPDstandardNth3gt23) - gtu31*(gtu31*JacPDstandardNth3gt13 + gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu223 = + CCTK_REAL dgtu223 CCTK_ATTRIBUTE_UNUSED = -2*(gtu21*(gtu22*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt13) + gtu22*gtu32*JacPDstandardNth3gt23) - JacPDstandardNth3gt11*SQR(gtu21) - JacPDstandardNth3gt22*SQR(gtu22) - JacPDstandardNth3gt33*SQR(gtu32); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu323 = + CCTK_REAL dgtu323 CCTK_ATTRIBUTE_UNUSED = -(gtu21*(gtu31*JacPDstandardNth3gt11 + gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - gtu22*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + gtu33*JacPDstandardNth3gt23) - gtu32*(gtu31*JacPDstandardNth3gt13 + gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu333 = + CCTK_REAL dgtu333 CCTK_ATTRIBUTE_UNUSED = -2*(gtu31*(gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13) + gtu32*gtu33*JacPDstandardNth3gt23) - JacPDstandardNth3gt11*SQR(gtu31) - JacPDstandardNth3gt22*SQR(gtu32) - JacPDstandardNth3gt33*SQR(gtu33); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl111 = 0.5*JacPDstandardNth1gt11; + CCTK_REAL Gtl111 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth1gt11; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl112 = 0.5*JacPDstandardNth2gt11; + CCTK_REAL Gtl112 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth2gt11; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl113 = 0.5*JacPDstandardNth3gt11; + CCTK_REAL Gtl113 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth3gt11; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl122 = -0.5*JacPDstandardNth1gt22 + + CCTK_REAL Gtl122 CCTK_ATTRIBUTE_UNUSED = -0.5*JacPDstandardNth1gt22 + JacPDstandardNth2gt12; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl123 = 0.5*(-JacPDstandardNth1gt23 + + CCTK_REAL Gtl123 CCTK_ATTRIBUTE_UNUSED = 0.5*(-JacPDstandardNth1gt23 + JacPDstandardNth2gt13 + JacPDstandardNth3gt12); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl133 = -0.5*JacPDstandardNth1gt33 + + CCTK_REAL Gtl133 CCTK_ATTRIBUTE_UNUSED = -0.5*JacPDstandardNth1gt33 + JacPDstandardNth3gt13; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl211 = JacPDstandardNth1gt12 - + CCTK_REAL Gtl211 CCTK_ATTRIBUTE_UNUSED = JacPDstandardNth1gt12 - 0.5*JacPDstandardNth2gt11; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl212 = 0.5*JacPDstandardNth1gt22; + CCTK_REAL Gtl212 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth1gt22; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl213 = 0.5*(JacPDstandardNth1gt23 - + CCTK_REAL Gtl213 CCTK_ATTRIBUTE_UNUSED = 0.5*(JacPDstandardNth1gt23 - JacPDstandardNth2gt13 + JacPDstandardNth3gt12); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl222 = 0.5*JacPDstandardNth2gt22; + CCTK_REAL Gtl222 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth2gt22; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl223 = 0.5*JacPDstandardNth3gt22; + CCTK_REAL Gtl223 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth3gt22; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl233 = -0.5*JacPDstandardNth2gt33 + + CCTK_REAL Gtl233 CCTK_ATTRIBUTE_UNUSED = -0.5*JacPDstandardNth2gt33 + JacPDstandardNth3gt23; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl311 = JacPDstandardNth1gt13 - + CCTK_REAL Gtl311 CCTK_ATTRIBUTE_UNUSED = JacPDstandardNth1gt13 - 0.5*JacPDstandardNth3gt11; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl312 = 0.5*(JacPDstandardNth1gt23 + + CCTK_REAL Gtl312 CCTK_ATTRIBUTE_UNUSED = 0.5*(JacPDstandardNth1gt23 + JacPDstandardNth2gt13 - JacPDstandardNth3gt12); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl313 = 0.5*JacPDstandardNth1gt33; + CCTK_REAL Gtl313 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth1gt33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl322 = JacPDstandardNth2gt23 - + CCTK_REAL Gtl322 CCTK_ATTRIBUTE_UNUSED = JacPDstandardNth2gt23 - 0.5*JacPDstandardNth3gt22; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl323 = 0.5*JacPDstandardNth2gt33; + CCTK_REAL Gtl323 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth2gt33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl333 = 0.5*JacPDstandardNth3gt33; + CCTK_REAL Gtl333 CCTK_ATTRIBUTE_UNUSED = 0.5*JacPDstandardNth3gt33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu111 = Gtl111*gtu11 + Gtl112*gtu21 + CCTK_REAL Gtlu111 CCTK_ATTRIBUTE_UNUSED = Gtl111*gtu11 + Gtl112*gtu21 + Gtl113*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu112 = Gtl111*gtu21 + Gtl112*gtu22 + CCTK_REAL Gtlu112 CCTK_ATTRIBUTE_UNUSED = Gtl111*gtu21 + Gtl112*gtu22 + Gtl113*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu113 = Gtl111*gtu31 + Gtl112*gtu32 + CCTK_REAL Gtlu113 CCTK_ATTRIBUTE_UNUSED = Gtl111*gtu31 + Gtl112*gtu32 + Gtl113*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu121 = Gtl112*gtu11 + Gtl122*gtu21 + CCTK_REAL Gtlu121 CCTK_ATTRIBUTE_UNUSED = Gtl112*gtu11 + Gtl122*gtu21 + Gtl123*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu122 = Gtl112*gtu21 + Gtl122*gtu22 + CCTK_REAL Gtlu122 CCTK_ATTRIBUTE_UNUSED = Gtl112*gtu21 + Gtl122*gtu22 + Gtl123*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu123 = Gtl112*gtu31 + Gtl122*gtu32 + CCTK_REAL Gtlu123 CCTK_ATTRIBUTE_UNUSED = Gtl112*gtu31 + Gtl122*gtu32 + Gtl123*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu131 = Gtl113*gtu11 + Gtl123*gtu21 + CCTK_REAL Gtlu131 CCTK_ATTRIBUTE_UNUSED = Gtl113*gtu11 + Gtl123*gtu21 + Gtl133*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu132 = Gtl113*gtu21 + Gtl123*gtu22 + CCTK_REAL Gtlu132 CCTK_ATTRIBUTE_UNUSED = Gtl113*gtu21 + Gtl123*gtu22 + Gtl133*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu133 = Gtl113*gtu31 + Gtl123*gtu32 + CCTK_REAL Gtlu133 CCTK_ATTRIBUTE_UNUSED = Gtl113*gtu31 + Gtl123*gtu32 + Gtl133*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu211 = Gtl211*gtu11 + Gtl212*gtu21 + CCTK_REAL Gtlu211 CCTK_ATTRIBUTE_UNUSED = Gtl211*gtu11 + Gtl212*gtu21 + Gtl213*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu212 = Gtl211*gtu21 + Gtl212*gtu22 + CCTK_REAL Gtlu212 CCTK_ATTRIBUTE_UNUSED = Gtl211*gtu21 + Gtl212*gtu22 + Gtl213*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu213 = Gtl211*gtu31 + Gtl212*gtu32 + CCTK_REAL Gtlu213 CCTK_ATTRIBUTE_UNUSED = Gtl211*gtu31 + Gtl212*gtu32 + Gtl213*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu221 = Gtl212*gtu11 + Gtl222*gtu21 + CCTK_REAL Gtlu221 CCTK_ATTRIBUTE_UNUSED = Gtl212*gtu11 + Gtl222*gtu21 + Gtl223*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu222 = Gtl212*gtu21 + Gtl222*gtu22 + CCTK_REAL Gtlu222 CCTK_ATTRIBUTE_UNUSED = Gtl212*gtu21 + Gtl222*gtu22 + Gtl223*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu223 = Gtl212*gtu31 + Gtl222*gtu32 + CCTK_REAL Gtlu223 CCTK_ATTRIBUTE_UNUSED = Gtl212*gtu31 + Gtl222*gtu32 + Gtl223*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu231 = Gtl213*gtu11 + Gtl223*gtu21 + CCTK_REAL Gtlu231 CCTK_ATTRIBUTE_UNUSED = Gtl213*gtu11 + Gtl223*gtu21 + Gtl233*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu232 = Gtl213*gtu21 + Gtl223*gtu22 + CCTK_REAL Gtlu232 CCTK_ATTRIBUTE_UNUSED = Gtl213*gtu21 + Gtl223*gtu22 + Gtl233*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu233 = Gtl213*gtu31 + Gtl223*gtu32 + CCTK_REAL Gtlu233 CCTK_ATTRIBUTE_UNUSED = Gtl213*gtu31 + Gtl223*gtu32 + Gtl233*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu311 = Gtl311*gtu11 + Gtl312*gtu21 + CCTK_REAL Gtlu311 CCTK_ATTRIBUTE_UNUSED = Gtl311*gtu11 + Gtl312*gtu21 + Gtl313*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu312 = Gtl311*gtu21 + Gtl312*gtu22 + CCTK_REAL Gtlu312 CCTK_ATTRIBUTE_UNUSED = Gtl311*gtu21 + Gtl312*gtu22 + Gtl313*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu313 = Gtl311*gtu31 + Gtl312*gtu32 + CCTK_REAL Gtlu313 CCTK_ATTRIBUTE_UNUSED = Gtl311*gtu31 + Gtl312*gtu32 + Gtl313*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu321 = Gtl312*gtu11 + Gtl322*gtu21 + CCTK_REAL Gtlu321 CCTK_ATTRIBUTE_UNUSED = Gtl312*gtu11 + Gtl322*gtu21 + Gtl323*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu322 = Gtl312*gtu21 + Gtl322*gtu22 + CCTK_REAL Gtlu322 CCTK_ATTRIBUTE_UNUSED = Gtl312*gtu21 + Gtl322*gtu22 + Gtl323*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu323 = Gtl312*gtu31 + Gtl322*gtu32 + CCTK_REAL Gtlu323 CCTK_ATTRIBUTE_UNUSED = Gtl312*gtu31 + Gtl322*gtu32 + Gtl323*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu331 = Gtl313*gtu11 + Gtl323*gtu21 + CCTK_REAL Gtlu331 CCTK_ATTRIBUTE_UNUSED = Gtl313*gtu11 + Gtl323*gtu21 + Gtl333*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu332 = Gtl313*gtu21 + Gtl323*gtu22 + CCTK_REAL Gtlu332 CCTK_ATTRIBUTE_UNUSED = Gtl313*gtu21 + Gtl323*gtu22 + Gtl333*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu333 = Gtl313*gtu31 + Gtl323*gtu32 + CCTK_REAL Gtlu333 CCTK_ATTRIBUTE_UNUSED = Gtl313*gtu31 + Gtl323*gtu32 + Gtl333*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt111 = Gtl111*gtu11 + Gtl211*gtu21 + + CCTK_REAL Gt111 CCTK_ATTRIBUTE_UNUSED = Gtl111*gtu11 + Gtl211*gtu21 + Gtl311*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt211 = Gtl111*gtu21 + Gtl211*gtu22 + + CCTK_REAL Gt211 CCTK_ATTRIBUTE_UNUSED = Gtl111*gtu21 + Gtl211*gtu22 + Gtl311*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt311 = Gtl111*gtu31 + Gtl211*gtu32 + + CCTK_REAL Gt311 CCTK_ATTRIBUTE_UNUSED = Gtl111*gtu31 + Gtl211*gtu32 + Gtl311*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt112 = Gtl112*gtu11 + Gtl212*gtu21 + + CCTK_REAL Gt112 CCTK_ATTRIBUTE_UNUSED = Gtl112*gtu11 + Gtl212*gtu21 + Gtl312*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt212 = Gtl112*gtu21 + Gtl212*gtu22 + + CCTK_REAL Gt212 CCTK_ATTRIBUTE_UNUSED = Gtl112*gtu21 + Gtl212*gtu22 + Gtl312*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt312 = Gtl112*gtu31 + Gtl212*gtu32 + + CCTK_REAL Gt312 CCTK_ATTRIBUTE_UNUSED = Gtl112*gtu31 + Gtl212*gtu32 + Gtl312*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt113 = Gtl113*gtu11 + Gtl213*gtu21 + + CCTK_REAL Gt113 CCTK_ATTRIBUTE_UNUSED = Gtl113*gtu11 + Gtl213*gtu21 + Gtl313*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt213 = Gtl113*gtu21 + Gtl213*gtu22 + + CCTK_REAL Gt213 CCTK_ATTRIBUTE_UNUSED = Gtl113*gtu21 + Gtl213*gtu22 + Gtl313*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt313 = Gtl113*gtu31 + Gtl213*gtu32 + + CCTK_REAL Gt313 CCTK_ATTRIBUTE_UNUSED = Gtl113*gtu31 + Gtl213*gtu32 + Gtl313*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt122 = Gtl122*gtu11 + Gtl222*gtu21 + + CCTK_REAL Gt122 CCTK_ATTRIBUTE_UNUSED = Gtl122*gtu11 + Gtl222*gtu21 + Gtl322*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt222 = Gtl122*gtu21 + Gtl222*gtu22 + + CCTK_REAL Gt222 CCTK_ATTRIBUTE_UNUSED = Gtl122*gtu21 + Gtl222*gtu22 + Gtl322*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt322 = Gtl122*gtu31 + Gtl222*gtu32 + + CCTK_REAL Gt322 CCTK_ATTRIBUTE_UNUSED = Gtl122*gtu31 + Gtl222*gtu32 + Gtl322*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt123 = Gtl123*gtu11 + Gtl223*gtu21 + + CCTK_REAL Gt123 CCTK_ATTRIBUTE_UNUSED = Gtl123*gtu11 + Gtl223*gtu21 + Gtl323*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt223 = Gtl123*gtu21 + Gtl223*gtu22 + + CCTK_REAL Gt223 CCTK_ATTRIBUTE_UNUSED = Gtl123*gtu21 + Gtl223*gtu22 + Gtl323*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt323 = Gtl123*gtu31 + Gtl223*gtu32 + + CCTK_REAL Gt323 CCTK_ATTRIBUTE_UNUSED = Gtl123*gtu31 + Gtl223*gtu32 + Gtl323*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt133 = Gtl133*gtu11 + Gtl233*gtu21 + + CCTK_REAL Gt133 CCTK_ATTRIBUTE_UNUSED = Gtl133*gtu11 + Gtl233*gtu21 + Gtl333*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt233 = Gtl133*gtu21 + Gtl233*gtu22 + + CCTK_REAL Gt233 CCTK_ATTRIBUTE_UNUSED = Gtl133*gtu21 + Gtl233*gtu22 + Gtl333*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt333 = Gtl133*gtu31 + Gtl233*gtu32 + + CCTK_REAL Gt333 CCTK_ATTRIBUTE_UNUSED = Gtl133*gtu31 + Gtl233*gtu32 + Gtl333*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Xtn1 = Gt111*gtu11 + Gt122*gtu22 + + CCTK_REAL Xtn1 CCTK_ATTRIBUTE_UNUSED = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Xtn2 = Gt211*gtu11 + Gt222*gtu22 + + CCTK_REAL Xtn2 CCTK_ATTRIBUTE_UNUSED = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Xtn3 = Gt311*gtu11 + Gt322*gtu22 + + CCTK_REAL Xtn3 CCTK_ATTRIBUTE_UNUSED = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt11 = 3*(Gt111*Gtlu111 + + CCTK_REAL Rt11 CCTK_ATTRIBUTE_UNUSED = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + @@ -1409,7 +1411,7 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di gtu33*JacPDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt12 = 0.5*(4*(Gt211*Gtlu221 + + CCTK_REAL Rt12 CCTK_ATTRIBUTE_UNUSED = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt122*Gtlu112 + Gt123*Gtlu113 + Gt111*Gtlu121 + Gt212*Gtlu121 + Gt222*Gtlu122 + Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + Gt323*Gtlu133 + @@ -1425,7 +1427,7 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di JacPDstandardNth32gt12) - gtu33*JacPDstandardNth33gt12 + Gtl112*Xtn1 + Gtl211*Xtn1 + Gtl122*Xtn2 + Gtl212*Xtn2 + Gtl123*Xtn3 + Gtl213*Xtn3); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt13 = 0.5*(2*(Gt123*Gtlu112 + + CCTK_REAL Rt13 CCTK_ATTRIBUTE_UNUSED = 0.5*(2*(Gt123*Gtlu112 + Gt133*Gtlu113 + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + @@ -1438,24 +1440,22 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di gtu31*(-JacPDstandardNth13gt13 - JacPDstandardNth31gt13) + gtu32*(-JacPDstandardNth23gt13 - JacPDstandardNth32gt13) - gtu33*JacPDstandardNth33gt13 + gt11L*JacPDstandardNth3Xt1 + - gt12L*JacPDstandardNth3Xt2 + gt13L*JacPDstandardNth3Xt3 + - Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + - Gtl313*Xtn3); + gt12L*JacPDstandardNth3Xt2 + gt13L*JacPDstandardNth3Xt3 + Gtl113*Xtn1 + + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + + CCTK_REAL Rt22 CCTK_ATTRIBUTE_UNUSED = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + - Gt323*Gtlu323 + gt12L*JacPDstandardNth2Xt1 + - gt22L*JacPDstandardNth2Xt2 + gt23L*JacPDstandardNth2Xt3 + - 0.5*(-(gtu11*JacPDstandardNth11gt22) - gtu21*(JacPDstandardNth12gt22 + - JacPDstandardNth21gt22) - gtu22*JacPDstandardNth22gt22 + - gtu31*(-JacPDstandardNth13gt22 - JacPDstandardNth31gt22) + - gtu32*(-JacPDstandardNth23gt22 - JacPDstandardNth32gt22) - - gtu33*JacPDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + - Gtl223*Xtn3; - - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt23 = 0.5*(2*(Gt123*Gtlu133 + + Gt323*Gtlu323 + gt12L*JacPDstandardNth2Xt1 + gt22L*JacPDstandardNth2Xt2 + + gt23L*JacPDstandardNth2Xt3 + 0.5*(-(gtu11*JacPDstandardNth11gt22) - + gtu21*(JacPDstandardNth12gt22 + JacPDstandardNth21gt22) - + gtu22*JacPDstandardNth22gt22 + gtu31*(-JacPDstandardNth13gt22 - + JacPDstandardNth31gt22) + gtu32*(-JacPDstandardNth23gt22 - + JacPDstandardNth32gt22) - gtu33*JacPDstandardNth33gt22) + Gtl212*Xtn1 + + Gtl222*Xtn2 + Gtl223*Xtn3; + + CCTK_REAL Rt23 CCTK_ATTRIBUTE_UNUSED = 0.5*(2*(Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + @@ -1468,11 +1468,10 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di gtu31*(-JacPDstandardNth13gt23 - JacPDstandardNth31gt23) + gtu32*(-JacPDstandardNth23gt23 - JacPDstandardNth32gt23) - gtu33*JacPDstandardNth33gt23 + gt12L*JacPDstandardNth3Xt1 + - gt22L*JacPDstandardNth3Xt2 + gt23L*JacPDstandardNth3Xt3 + - Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + - Gtl323*Xtn3); + gt22L*JacPDstandardNth3Xt2 + gt23L*JacPDstandardNth3Xt3 + Gtl213*Xtn1 + + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + + CCTK_REAL Rt33 CCTK_ATTRIBUTE_UNUSED = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + @@ -1484,54 +1483,54 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di gt13L*JacPDstandardNth3Xt1 + gt23L*JacPDstandardNth3Xt2 + gt33L*JacPDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED trRt = gtu11*Rt11 + gtu22*Rt22 + + CCTK_REAL trRt CCTK_ATTRIBUTE_UNUSED = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 + gtu32*Rt23) + gtu33*Rt33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED ephi = + CCTK_REAL ephi CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm11 = At11L*gtu11 + At12L*gtu21 - + At13L*gtu31; + CCTK_REAL Atm11 CCTK_ATTRIBUTE_UNUSED = At11L*gtu11 + At12L*gtu21 + + At13L*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm21 = At11L*gtu21 + At12L*gtu22 - + At13L*gtu32; + CCTK_REAL Atm21 CCTK_ATTRIBUTE_UNUSED = At11L*gtu21 + At12L*gtu22 + + At13L*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm31 = At11L*gtu31 + At12L*gtu32 - + At13L*gtu33; + CCTK_REAL Atm31 CCTK_ATTRIBUTE_UNUSED = At11L*gtu31 + At12L*gtu32 + + At13L*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm12 = At12L*gtu11 + At22L*gtu21 - + At23L*gtu31; + CCTK_REAL Atm12 CCTK_ATTRIBUTE_UNUSED = At12L*gtu11 + At22L*gtu21 + + At23L*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm22 = At12L*gtu21 + At22L*gtu22 - + At23L*gtu32; + CCTK_REAL Atm22 CCTK_ATTRIBUTE_UNUSED = At12L*gtu21 + At22L*gtu22 + + At23L*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm32 = At12L*gtu31 + At22L*gtu32 - + At23L*gtu33; + CCTK_REAL Atm32 CCTK_ATTRIBUTE_UNUSED = At12L*gtu31 + At22L*gtu32 + + At23L*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm13 = At13L*gtu11 + At23L*gtu21 - + At33L*gtu31; + CCTK_REAL Atm13 CCTK_ATTRIBUTE_UNUSED = At13L*gtu11 + At23L*gtu21 + + At33L*gtu31; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm23 = At13L*gtu21 + At23L*gtu22 - + At33L*gtu32; + CCTK_REAL Atm23 CCTK_ATTRIBUTE_UNUSED = At13L*gtu21 + At23L*gtu22 + + At33L*gtu32; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm33 = At13L*gtu31 + At23L*gtu32 - + At33L*gtu33; + CCTK_REAL Atm33 CCTK_ATTRIBUTE_UNUSED = At13L*gtu31 + At23L*gtu32 + + At33L*gtu33; - CCTK_REAL CCTK_ATTRIBUTE_UNUSED rho = INV(SQR(alphaL))*(eTttL - - 2*(beta2L*eTtyL + beta3L*eTtzL) + 2*(beta1L*(-eTtxL + - beta2L*eTxyL + beta3L*eTxzL) + beta2L*beta3L*eTyzL) + - eTxxL*SQR(beta1L) + eTyyL*SQR(beta2L) + eTzzL*SQR(beta3L)); + CCTK_REAL rho CCTK_ATTRIBUTE_UNUSED = INV(SQR(alphaL))*(eTttL - + 2*(beta2L*eTtyL + beta3L*eTtzL) + 2*(beta1L*(-eTtxL + beta2L*eTxyL + + beta3L*eTxzL) + beta2L*beta3L*eTyzL) + eTxxL*SQR(beta1L) + + eTyyL*SQR(beta2L) + eTzzL*SQR(beta3L)); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED S1 = (-eTtxL + beta1L*eTxxL + + CCTK_REAL S1 CCTK_ATTRIBUTE_UNUSED = (-eTtxL + beta1L*eTxxL + beta2L*eTxyL + beta3L*eTxzL)*INV(alphaL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED S2 = (-eTtyL + beta1L*eTxyL + + CCTK_REAL S2 CCTK_ATTRIBUTE_UNUSED = (-eTtyL + beta1L*eTxyL + beta2L*eTyyL + beta3L*eTyzL)*INV(alphaL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED S3 = (-eTtzL + beta1L*eTxzL + + CCTK_REAL S3 CCTK_ATTRIBUTE_UNUSED = (-eTtzL + beta1L*eTxzL + beta2L*eTyzL + beta3L*eTzzL)*INV(alphaL); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED MadmL = + CCTK_REAL MadmL CCTK_ATTRIBUTE_UNUSED = -0.0625*INV(Pi)*(Gtlu111*(Gt111*gtu11 + Gt112*gtu21 + Gt113*gtu31) + Gtlu112*(Gt112*gtu11 + Gt122*gtu21 + Gt123*gtu31) + Gtlu113*(Gt113*gtu11 + Gt123*gtu21 + Gt133*gtu31) + @@ -1560,30 +1559,30 @@ static void ML_ADMQuantities_Body(const cGH* restrict const cctkGH, const int di Gtlu332*(Gt312*gtu31 + Gt322*gtu32 + Gt323*gtu33) + Gtlu333*(Gt313*gtu31 + Gt323*gtu32 + Gt333*gtu33) + (-1 + ephi)*trRt - pow(ephi,5)*(2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + 16*Pi*rho - - 0.666666666666666666666666666667*SQR(trKL) + SQR(Atm11) + SQR(Atm22) - + SQR(Atm33))); + 0.666666666666666666666666666667*SQR(trKL) + SQR(Atm11) + SQR(Atm22) + + SQR(Atm33))); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Jadm1L = 0.0625*(2*Atm23 - 2*Atm32 + - zL*(At11L*dgtu112 + At22L*dgtu222 + 2*(At12L*dgtu212 + - At13L*dgtu312 + At23L*dgtu322) + At33L*dgtu332 - + CCTK_REAL Jadm1L CCTK_ATTRIBUTE_UNUSED = 0.0625*(2*Atm23 - 2*Atm32 + + zL*(At11L*dgtu112 + At22L*dgtu222 + 2*(At12L*dgtu212 + At13L*dgtu312 + + At23L*dgtu322) + At33L*dgtu332 - 1.33333333333333333333333333333*JacPDstandardNth2trK - 16*Pi*S2) + yL*(-(At11L*dgtu113) - 2*At12L*dgtu213 - At22L*dgtu223 - 2*At13L*dgtu313 - 2*At23L*dgtu323 - At33L*dgtu333 + 1.33333333333333333333333333333*JacPDstandardNth3trK + 16*Pi*S3))*INV(Pi)*pow(ephi,6); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Jadm2L = 0.0625*(-2*Atm13 + 2*Atm31 + + CCTK_REAL Jadm2L CCTK_ATTRIBUTE_UNUSED = 0.0625*(-2*Atm13 + 2*Atm31 + zL*(-(At11L*dgtu111) - 2*At12L*dgtu211 - At22L*dgtu221 - 2*At13L*dgtu311 - 2*At23L*dgtu321 - At33L*dgtu331 + 1.33333333333333333333333333333*JacPDstandardNth1trK + 16*Pi*S1) + - xL*(At11L*dgtu113 + At22L*dgtu223 + 2*(At12L*dgtu213 + - At13L*dgtu313 + At23L*dgtu323) + At33L*dgtu333 - + xL*(At11L*dgtu113 + At22L*dgtu223 + 2*(At12L*dgtu213 + At13L*dgtu313 + + At23L*dgtu323) + At33L*dgtu333 - 1.33333333333333333333333333333*JacPDstandardNth3trK - 16*Pi*S3))*INV(Pi)*pow(ephi,6); - CCTK_REAL CCTK_ATTRIBUTE_UNUSED Jadm3L = 0.0625*(2*Atm12 - 2*Atm21 + - yL*(At11L*dgtu111 + At22L*dgtu221 + 2*(At12L*dgtu211 + - At13L*dgtu311 + At23L*dgtu321) + At33L*dgtu331 - + CCTK_REAL Jadm3L CCTK_ATTRIBUTE_UNUSED = 0.0625*(2*Atm12 - 2*Atm21 + + yL*(At11L*dgtu111 + At22L*dgtu221 + 2*(At12L*dgtu211 + At13L*dgtu311 + + At23L*dgtu321) + At33L*dgtu331 - 1.33333333333333333333333333333*JacPDstandardNth1trK - 16*Pi*S1) + xL*(-(At11L*dgtu112) - 2*At12L*dgtu212 - At22L*dgtu222 - 2*At13L*dgtu312 - 2*At23L*dgtu322 - At33L*dgtu332 + diff --git a/ML_BSSN/src/ML_BSSN_Advect.cc b/ML_BSSN/src/ML_BSSN_Advect.cc index 6fb91dc..adabbda 100644 --- a/ML_BSSN/src/ML_BSSN_Advect.cc +++ b/ML_BSSN/src/ML_BSSN_Advect.cc @@ -89,13 +89,18 @@ static void ML_BSSN_Advect_Body(const cGH* restrict const cctkGH, const int dir, 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_Dissipation.cc b/ML_BSSN/src/ML_BSSN_Dissipation.cc index 9042f2e..7ad6379 100644 --- a/ML_BSSN/src/ML_BSSN_Dissipation.cc +++ b/ML_BSSN/src/ML_BSSN_Dissipation.cc @@ -89,13 +89,18 @@ static void ML_BSSN_Dissipation_Body(const cGH* restrict const cctkGH, const int 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_InitGamma.cc b/ML_BSSN/src/ML_BSSN_InitGamma.cc index b67ecd7..73da7da 100644 --- a/ML_BSSN/src/ML_BSSN_InitGamma.cc +++ b/ML_BSSN/src/ML_BSSN_InitGamma.cc @@ -51,13 +51,18 @@ static void ML_BSSN_InitGamma_Body(const cGH* restrict const cctkGH, const int d 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_InitRHS.cc b/ML_BSSN/src/ML_BSSN_InitRHS.cc index 27df566..0689453 100644 --- a/ML_BSSN/src/ML_BSSN_InitRHS.cc +++ b/ML_BSSN/src/ML_BSSN_InitRHS.cc @@ -51,13 +51,18 @@ static void ML_BSSN_InitRHS_Body(const cGH* restrict const cctkGH, const int dir 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.cc b/ML_BSSN/src/ML_BSSN_Minkowski.cc index 740472d..25afad8 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.cc +++ b/ML_BSSN/src/ML_BSSN_Minkowski.cc @@ -51,13 +51,18 @@ static void ML_BSSN_Minkowski_Body(const cGH* restrict const cctkGH, const int d 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_RHS1.cc b/ML_BSSN/src/ML_BSSN_RHS1.cc index a250d17..34bbaec 100644 --- a/ML_BSSN/src/ML_BSSN_RHS1.cc +++ b/ML_BSSN/src/ML_BSSN_RHS1.cc @@ -86,13 +86,18 @@ static void ML_BSSN_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_RHS2.cc b/ML_BSSN/src/ML_BSSN_RHS2.cc index 33c6262..c7e803c 100644 --- a/ML_BSSN/src/ML_BSSN_RHS2.cc +++ b/ML_BSSN/src/ML_BSSN_RHS2.cc @@ -65,13 +65,18 @@ static void ML_BSSN_RHS2_Body(const cGH* restrict const cctkGH, const int dir, c 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc b/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc index a146eb9..56e7abd 100644 --- a/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc +++ b/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc @@ -89,13 +89,18 @@ static void ML_BSSN_RHSStaticBoundary_Body(const cGH* restrict const cctkGH, 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_boundary.cc b/ML_BSSN/src/ML_BSSN_boundary.cc index 8cb7c4d..b922f60 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.cc +++ b/ML_BSSN/src/ML_BSSN_boundary.cc @@ -89,13 +89,18 @@ static void ML_BSSN_boundary_Body(const cGH* restrict const cctkGH, const int di 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_constraints1.cc b/ML_BSSN/src/ML_BSSN_constraints1.cc index 86c21b7..6a87210 100644 --- a/ML_BSSN/src/ML_BSSN_constraints1.cc +++ b/ML_BSSN/src/ML_BSSN_constraints1.cc @@ -65,13 +65,18 @@ static void ML_BSSN_constraints1_Body(const cGH* restrict const cctkGH, const in 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_constraints2.cc b/ML_BSSN/src/ML_BSSN_constraints2.cc index 29c7116..c548510 100644 --- a/ML_BSSN/src/ML_BSSN_constraints2.cc +++ b/ML_BSSN/src/ML_BSSN_constraints2.cc @@ -74,13 +74,18 @@ static void ML_BSSN_constraints2_Body(const cGH* restrict const cctkGH, const in 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc b/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc index b843763..6762f0e 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc @@ -51,13 +51,18 @@ static void ML_BSSN_convertFromADMBase_Body(const cGH* restrict const cctkGH, co 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc index 48d8998..2001b38 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc @@ -71,13 +71,18 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(const cGH* restrict const cctkG 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc index 34bf402..5bd6467 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc @@ -51,13 +51,18 @@ static void ML_BSSN_convertToADMBase_Body(const cGH* restrict const cctkGH, cons 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc index 9f3ef7a..a0b0cb3 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc @@ -68,13 +68,18 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(const cGH* restrict const 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc index d0b97c6..d6a1a29 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc @@ -68,13 +68,18 @@ static void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_Body(const cGH* restric 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc index 863fc03..e69ee8d 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc @@ -51,13 +51,18 @@ static void ML_BSSN_convertToADMBaseFakeDtLapseShift_Body(const cGH* restrict co 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_BSSN/src/ML_BSSN_enforce.cc b/ML_BSSN/src/ML_BSSN_enforce.cc index 0bf023f..afd1a51 100644 --- a/ML_BSSN/src/ML_BSSN_enforce.cc +++ b/ML_BSSN/src/ML_BSSN_enforce.cc @@ -51,13 +51,18 @@ static void ML_BSSN_enforce_Body(const cGH* restrict const cctkGH, const int dir 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_Advect.cc b/ML_CCZ4/src/ML_CCZ4_Advect.cc index 0df36eb..80e864e 100644 --- a/ML_CCZ4/src/ML_CCZ4_Advect.cc +++ b/ML_CCZ4/src/ML_CCZ4_Advect.cc @@ -92,13 +92,18 @@ static void ML_CCZ4_Advect_Body(const cGH* restrict const cctkGH, const int dir, 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_Dissipation.cc b/ML_CCZ4/src/ML_CCZ4_Dissipation.cc index e87da5b..0946341 100644 --- a/ML_CCZ4/src/ML_CCZ4_Dissipation.cc +++ b/ML_CCZ4/src/ML_CCZ4_Dissipation.cc @@ -92,13 +92,18 @@ static void ML_CCZ4_Dissipation_Body(const cGH* restrict const cctkGH, const int 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_InitGamma.cc b/ML_CCZ4/src/ML_CCZ4_InitGamma.cc index cf4904b..e16fb52 100644 --- a/ML_CCZ4/src/ML_CCZ4_InitGamma.cc +++ b/ML_CCZ4/src/ML_CCZ4_InitGamma.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_InitGamma_Body(const cGH* restrict const cctkGH, const int d 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_InitRHS.cc b/ML_CCZ4/src/ML_CCZ4_InitRHS.cc index bca9d7f..0c7a561 100644 --- a/ML_CCZ4/src/ML_CCZ4_InitRHS.cc +++ b/ML_CCZ4/src/ML_CCZ4_InitRHS.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_InitRHS_Body(const cGH* restrict const cctkGH, const int dir 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_Minkowski.cc b/ML_CCZ4/src/ML_CCZ4_Minkowski.cc index 572472a..4b8be71 100644 --- a/ML_CCZ4/src/ML_CCZ4_Minkowski.cc +++ b/ML_CCZ4/src/ML_CCZ4_Minkowski.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_Minkowski_Body(const cGH* restrict const cctkGH, const int d 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_RHS1.cc b/ML_CCZ4/src/ML_CCZ4_RHS1.cc index 79e078d..85512c5 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHS1.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHS1.cc @@ -89,13 +89,18 @@ static void ML_CCZ4_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_RHS2.cc b/ML_CCZ4/src/ML_CCZ4_RHS2.cc index 23ef34e..d7be509 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHS2.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHS2.cc @@ -65,13 +65,18 @@ static void ML_CCZ4_RHS2_Body(const cGH* restrict const cctkGH, const int dir, c 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc b/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc index c6e426c..060bdb2 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc @@ -92,13 +92,18 @@ static void ML_CCZ4_RHSStaticBoundary_Body(const cGH* restrict const cctkGH, 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_boundary.cc b/ML_CCZ4/src/ML_CCZ4_boundary.cc index 798b00b..6f07c84 100644 --- a/ML_CCZ4/src/ML_CCZ4_boundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_boundary.cc @@ -92,13 +92,18 @@ static void ML_CCZ4_boundary_Body(const cGH* restrict const cctkGH, const int di 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_constraints1.cc b/ML_CCZ4/src/ML_CCZ4_constraints1.cc index 994ece9..b0dfb4b 100644 --- a/ML_CCZ4/src/ML_CCZ4_constraints1.cc +++ b/ML_CCZ4/src/ML_CCZ4_constraints1.cc @@ -65,13 +65,18 @@ static void ML_CCZ4_constraints1_Body(const cGH* restrict const cctkGH, const in 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_constraints2.cc b/ML_CCZ4/src/ML_CCZ4_constraints2.cc index 891bb60..b94688b 100644 --- a/ML_CCZ4/src/ML_CCZ4_constraints2.cc +++ b/ML_CCZ4/src/ML_CCZ4_constraints2.cc @@ -74,13 +74,18 @@ static void ML_CCZ4_constraints2_Body(const cGH* restrict const cctkGH, const in 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc b/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc index bec9972..19bf9b3 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_convertFromADMBase_Body(const cGH* restrict const cctkGH, co 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc b/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc index 310e568..5c8512a 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc @@ -71,13 +71,18 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(const cGH* restrict const cctkG 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc index 97ed004..690eea4 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_convertToADMBase_Body(const cGH* restrict const cctkGH, cons 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc index 6d6b3ae..bef552a 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc @@ -68,13 +68,18 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(const cGH* restrict const 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc index b06a267..516a0d9 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc @@ -68,13 +68,18 @@ static void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_Body(const cGH* restric 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc index 55a2be8..92c72db 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_convertToADMBaseFakeDtLapseShift_Body(const cGH* restrict co 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_CCZ4/src/ML_CCZ4_enforce.cc b/ML_CCZ4/src/ML_CCZ4_enforce.cc index d66371b..af57d73 100644 --- a/ML_CCZ4/src/ML_CCZ4_enforce.cc +++ b/ML_CCZ4/src/ML_CCZ4_enforce.cc @@ -51,13 +51,18 @@ static void ML_CCZ4_enforce_Body(const cGH* restrict const cctkGH, const int dir 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 p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); diff --git a/ML_WaveToy/src/WT_Dirichlet.cc b/ML_WaveToy/src/WT_Dirichlet.cc index 90db8c0..f38419f 100644 --- a/ML_WaveToy/src/WT_Dirichlet.cc +++ b/ML_WaveToy/src/WT_Dirichlet.cc @@ -68,13 +68,18 @@ static void WT_Dirichlet_Body(const cGH* restrict const cctkGH, const int dir, c 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); @@ -120,9 +125,9 @@ static void WT_Dirichlet_Body(const cGH* restrict const cctkGH, const int dir, c /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = ToReal(0); + CCTK_REAL_VEC urhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = ToReal(0); + CCTK_REAL_VEC rhorhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_WaveToy/src/WT_Energy.cc b/ML_WaveToy/src/WT_Energy.cc index 3c876ff..905d52f 100644 --- a/ML_WaveToy/src/WT_Energy.cc +++ b/ML_WaveToy/src/WT_Energy.cc @@ -65,13 +65,18 @@ static void WT_Energy_Body(const cGH* restrict const cctkGH, const int dir, cons 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); @@ -122,7 +127,7 @@ static void WT_Energy_Body(const cGH* restrict const cctkGH, const int dir, cons const CCTK_REAL_VEC PDstandardNth3u CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&u[index]); /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = + CCTK_REAL_VEC epsL CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(rhoL,rhoL,kmadd(PDstandardNth1u,PDstandardNth1u,kmadd(PDstandardNth2u,PDstandardNth2u,kmul(PDstandardNth3u,PDstandardNth3u)))),ToReal(0.5)); /* Copy local copies back to grid functions */ diff --git a/ML_WaveToy/src/WT_EnergyBoundary.cc b/ML_WaveToy/src/WT_EnergyBoundary.cc index d1153dd..c662ed2 100644 --- a/ML_WaveToy/src/WT_EnergyBoundary.cc +++ b/ML_WaveToy/src/WT_EnergyBoundary.cc @@ -65,13 +65,18 @@ static void WT_EnergyBoundary_Body(const cGH* restrict const cctkGH, const int d 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); @@ -117,7 +122,7 @@ static void WT_EnergyBoundary_Body(const cGH* restrict const cctkGH, const int d /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = ToReal(0); + CCTK_REAL_VEC epsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_WaveToy/src/WT_Gaussian.cc b/ML_WaveToy/src/WT_Gaussian.cc index d1a38cf..1991abf 100644 --- a/ML_WaveToy/src/WT_Gaussian.cc +++ b/ML_WaveToy/src/WT_Gaussian.cc @@ -51,13 +51,18 @@ static void WT_Gaussian_Body(const cGH* restrict const cctkGH, const int dir, co 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); @@ -104,10 +109,10 @@ static void WT_Gaussian_Body(const cGH* restrict const cctkGH, const int dir, co /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = + CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = kmul(kexp(kmul(kmul(kmul(rL,rL),ToReal(-0.5)),ToReal(ScalarINV(ScalarSQR(width))))),ToReal(amplitude)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = ToReal(0); + CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_WaveToy/src/WT_RHS.cc b/ML_WaveToy/src/WT_RHS.cc index 7fb1ac8..b7b8749 100644 --- a/ML_WaveToy/src/WT_RHS.cc +++ b/ML_WaveToy/src/WT_RHS.cc @@ -68,13 +68,18 @@ static void WT_RHS_Body(const cGH* restrict const cctkGH, const int dir, const i 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); @@ -125,9 +130,9 @@ static void WT_RHS_Body(const cGH* restrict const cctkGH, const int dir, const i const CCTK_REAL_VEC PDstandardNth33u CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&u[index]); /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = rhoL; + CCTK_REAL_VEC urhsL CCTK_ATTRIBUTE_UNUSED = rhoL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = + CCTK_REAL_VEC rhorhsL CCTK_ATTRIBUTE_UNUSED = kadd(PDstandardNth11u,kadd(PDstandardNth22u,PDstandardNth33u)); /* Copy local copies back to grid functions */ diff --git a/ML_WaveToy/src/WT_Standing.cc b/ML_WaveToy/src/WT_Standing.cc index 68edf00..1ae5f5a 100644 --- a/ML_WaveToy/src/WT_Standing.cc +++ b/ML_WaveToy/src/WT_Standing.cc @@ -51,13 +51,18 @@ static void WT_Standing_Body(const cGH* restrict const cctkGH, const int dir, co 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); @@ -106,16 +111,16 @@ static void WT_Standing_Body(const cGH* restrict const cctkGH, const int dir, co /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kvec = + CCTK_REAL_VEC kvec CCTK_ATTRIBUTE_UNUSED = ToReal(3.14159265358979323846264338328*ScalarINV(width)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED omega = + CCTK_REAL_VEC omega CCTK_ATTRIBUTE_UNUSED = ksqrt(kmul(kmul(kvec,kvec),ToReal(3))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = + CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(kcos(kmul(omega,t)),ToReal(amplitude))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = + CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(omega,kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(ksin(kmul(omega,t)),ToReal(amplitude))))))); /* Copy local copies back to grid functions */ diff --git a/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc b/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc index d83016a..49cc6ee 100644 --- a/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc +++ b/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc @@ -70,13 +70,18 @@ static void WT_CL_Dirichlet_Body(const cGH* restrict const cctkGH, const int dir "const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" "const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" "const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" - "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" - "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" - "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" - "const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" - "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" - "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" - "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" + "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.333333333333333333333333333333);\n" + "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.666666666666666666666666666667);\n" + "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(1.33333333333333333333333333333);\n" + "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dxi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dyi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dzi,ToReal(0.5));\n" "\n" "/* Initialize predefined quantities */\n" "const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" @@ -122,9 +127,9 @@ static void WT_CL_Dirichlet_Body(const cGH* restrict const cctkGH, const int dir " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = ToReal(0);\n" + " CCTK_REAL_VEC urhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0);\n" " \n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = ToReal(0);\n" + " CCTK_REAL_VEC rhorhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0);\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" diff --git a/ML_WaveToy_CL/src/WT_CL_Energy.cc b/ML_WaveToy_CL/src/WT_CL_Energy.cc index 4ed7d60..c8beec9 100644 --- a/ML_WaveToy_CL/src/WT_CL_Energy.cc +++ b/ML_WaveToy_CL/src/WT_CL_Energy.cc @@ -67,13 +67,18 @@ static void WT_CL_Energy_Body(const cGH* restrict const cctkGH, const int dir, c "const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" "const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" "const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" - "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" - "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" - "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" - "const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" - "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" - "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" - "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" + "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.333333333333333333333333333333);\n" + "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.666666666666666666666666666667);\n" + "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(1.33333333333333333333333333333);\n" + "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dxi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dyi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dzi,ToReal(0.5));\n" "\n" "/* Initialize predefined quantities */\n" "const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" @@ -124,7 +129,7 @@ static void WT_CL_Energy_Body(const cGH* restrict const cctkGH, const int dir, c " const CCTK_REAL_VEC PDstandardNth3u CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&u[index]);\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = \n" + " CCTK_REAL_VEC epsL CCTK_ATTRIBUTE_UNUSED = \n" " kmul(kmadd(rhoL,rhoL,kmadd(PDstandardNth1u,PDstandardNth1u,kmadd(PDstandardNth2u,PDstandardNth2u,kmul(PDstandardNth3u,PDstandardNth3u)))),ToReal(0.5));\n" " \n" " /* Copy local copies back to grid functions */\n" diff --git a/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc b/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc index 8161612..d9fb6f8 100644 --- a/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc +++ b/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc @@ -67,13 +67,18 @@ static void WT_CL_EnergyBoundary_Body(const cGH* restrict const cctkGH, const in "const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" "const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" "const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" - "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" - "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" - "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" - "const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" - "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" - "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" - "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" + "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.333333333333333333333333333333);\n" + "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.666666666666666666666666666667);\n" + "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(1.33333333333333333333333333333);\n" + "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dxi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dyi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dzi,ToReal(0.5));\n" "\n" "/* Initialize predefined quantities */\n" "const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" @@ -119,7 +124,7 @@ static void WT_CL_EnergyBoundary_Body(const cGH* restrict const cctkGH, const in " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = ToReal(0);\n" + " CCTK_REAL_VEC epsL CCTK_ATTRIBUTE_UNUSED = ToReal(0);\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" diff --git a/ML_WaveToy_CL/src/WT_CL_Gaussian.cc b/ML_WaveToy_CL/src/WT_CL_Gaussian.cc index 9cfe036..4d29eff 100644 --- a/ML_WaveToy_CL/src/WT_CL_Gaussian.cc +++ b/ML_WaveToy_CL/src/WT_CL_Gaussian.cc @@ -53,13 +53,18 @@ static void WT_CL_Gaussian_Body(const cGH* restrict const cctkGH, const int dir, "const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" "const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" "const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" - "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" - "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" - "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" - "const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" - "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" - "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" - "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" + "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.333333333333333333333333333333);\n" + "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.666666666666666666666666666667);\n" + "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(1.33333333333333333333333333333);\n" + "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dxi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dyi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dzi,ToReal(0.5));\n" "\n" "/* Initialize predefined quantities */\n" "const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" @@ -106,10 +111,10 @@ static void WT_CL_Gaussian_Body(const cGH* restrict const cctkGH, const int dir, " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = \n" + " CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = \n" " kmul(kexp(kmul(kmul(kmul(rL,rL),ToReal(-0.5)),ToReal(ScalarINV(ScalarSQR(width))))),ToReal(amplitude));\n" " \n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = ToReal(0);\n" + " CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = ToReal(0);\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" diff --git a/ML_WaveToy_CL/src/WT_CL_RHS.cc b/ML_WaveToy_CL/src/WT_CL_RHS.cc index 128496a..454ca3a 100644 --- a/ML_WaveToy_CL/src/WT_CL_RHS.cc +++ b/ML_WaveToy_CL/src/WT_CL_RHS.cc @@ -70,13 +70,18 @@ static void WT_CL_RHS_Body(const cGH* restrict const cctkGH, const int dir, cons "const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" "const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" "const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" - "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" - "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" - "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" - "const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" - "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" - "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" - "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" + "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.333333333333333333333333333333);\n" + "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.666666666666666666666666666667);\n" + "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(1.33333333333333333333333333333);\n" + "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dxi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dyi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dzi,ToReal(0.5));\n" "\n" "/* Initialize predefined quantities */\n" "const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" @@ -127,9 +132,9 @@ static void WT_CL_RHS_Body(const cGH* restrict const cctkGH, const int dir, cons " const CCTK_REAL_VEC PDstandardNth33u CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&u[index]);\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = rhoL;\n" + " CCTK_REAL_VEC urhsL CCTK_ATTRIBUTE_UNUSED = rhoL;\n" " \n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = \n" + " CCTK_REAL_VEC rhorhsL CCTK_ATTRIBUTE_UNUSED = \n" " kadd(PDstandardNth11u,kadd(PDstandardNth22u,PDstandardNth33u));\n" " \n" " /* Copy local copies back to grid functions */\n" diff --git a/ML_WaveToy_CL/src/WT_CL_Standing.cc b/ML_WaveToy_CL/src/WT_CL_Standing.cc index 6d590b8..9a154f7 100644 --- a/ML_WaveToy_CL/src/WT_CL_Standing.cc +++ b/ML_WaveToy_CL/src/WT_CL_Standing.cc @@ -53,13 +53,18 @@ static void WT_CL_Standing_Body(const cGH* restrict const cctkGH, const int dir, "const CCTK_REAL_VEC dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" "const CCTK_REAL_VEC dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" "const CCTK_REAL_VEC khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" - "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" - "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" - "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" - "const CCTK_REAL_VEC keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" - "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" - "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" - "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" + "const CCTK_REAL_VEC kthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.333333333333333333333333333333);\n" + "const CCTK_REAL_VEC ktwothird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(0.666666666666666666666666666667);\n" + "const CCTK_REAL_VEC kfourthird CCTK_ATTRIBUTE_UNUSED = \n" + " ToReal(1.33333333333333333333333333333);\n" + "const CCTK_REAL_VEC hdxi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dxi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdyi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dyi,ToReal(0.5));\n" + "const CCTK_REAL_VEC hdzi CCTK_ATTRIBUTE_UNUSED = \n" + " kmul(dzi,ToReal(0.5));\n" "\n" "/* Initialize predefined quantities */\n" "const CCTK_REAL_VEC p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" @@ -108,16 +113,16 @@ static void WT_CL_Standing_Body(const cGH* restrict const cctkGH, const int dir, " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kvec = \n" + " CCTK_REAL_VEC kvec CCTK_ATTRIBUTE_UNUSED = \n" " ToReal(3.14159265358979323846264338328*ScalarINV(width));\n" " \n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED omega = \n" + " CCTK_REAL_VEC omega CCTK_ATTRIBUTE_UNUSED = \n" " ksqrt(kmul(kmul(kvec,kvec),ToReal(3)));\n" " \n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = \n" + " CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = \n" " kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(kcos(kmul(omega,t)),ToReal(amplitude)))));\n" " \n" - " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = \n" + " CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = \n" " kneg(kmul(omega,kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(ksin(kmul(omega,t)),ToReal(amplitude)))))));\n" " \n" " /* Copy local copies back to grid functions */\n" |