aboutsummaryrefslogtreecommitdiff
path: root/ML_ADM
diff options
context:
space:
mode:
authorIan Hinder <ian.hinder@aei.mpg.de>2013-09-10 16:03:25 +0200
committerIan Hinder <ian.hinder@aei.mpg.de>2013-09-10 16:03:25 +0200
commit8df3aae833eb6bf334b0decb57ebf9e1baf33ddf (patch)
treebd9193699a88b7a5743bdee1d58ebf203ef7b94b /ML_ADM
parent51f5f80e196f950622f63977ae344580faf1cb2e (diff)
Regenerate code (Kranc commit 10daf4a83a783a812c7b5a3aba0df115f0eac98f)
Diffstat (limited to 'ML_ADM')
-rw-r--r--ML_ADM/src/ML_ADM_Minkowski.cc51
-rw-r--r--ML_ADM/src/ML_ADM_RHS.cc139
-rw-r--r--ML_ADM/src/ML_ADM_boundary.cc51
-rw-r--r--ML_ADM/src/ML_ADM_constraints.cc117
-rw-r--r--ML_ADM/src/ML_ADM_constraints_boundary.cc27
-rw-r--r--ML_ADM/src/ML_ADM_convertFromADMBase.cc51
-rw-r--r--ML_ADM/src/ML_ADM_convertToADMBase.cc59
7 files changed, 265 insertions, 230 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);
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-16 02:23:51 +0000