diff options
Diffstat (limited to 'ML_CCZ4/src/ML_CCZ4_RHS1.cc')
| -rw-r--r-- | ML_CCZ4/src/ML_CCZ4_RHS1.cc | 338 |
1 files changed, 169 insertions, 169 deletions
diff --git a/ML_CCZ4/src/ML_CCZ4_RHS1.cc b/ML_CCZ4/src/ML_CCZ4_RHS1.cc index b86775c..79e078d 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHS1.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHS1.cc @@ -960,11 +960,11 @@ static void ML_CCZ4_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c } /* Calculate temporaries and grid functions */ - ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + ptrdiff_t dir1 CCTK_ATTRIBUTE_UNUSED = kisgn(beta1L); - ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + ptrdiff_t dir2 CCTK_ATTRIBUTE_UNUSED = kisgn(beta2L); - ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + ptrdiff_t dir3 CCTK_ATTRIBUTE_UNUSED = kisgn(beta3L); CCTK_REAL_VEC JacPDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDstandardNth11beta1 CCTK_ATTRIBUTE_UNUSED; @@ -1836,387 +1836,387 @@ static void ML_CCZ4_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); + CCTK_REAL_VEC detgt CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = + CCTK_REAL_VEC gtu11 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = + CCTK_REAL_VEC gtu12 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = + CCTK_REAL_VEC gtu13 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = + CCTK_REAL_VEC gtu22 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = + CCTK_REAL_VEC gtu23 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = + CCTK_REAL_VEC gtu33 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + CCTK_REAL_VEC Gtl111 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + CCTK_REAL_VEC Gtl112 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + CCTK_REAL_VEC Gtl113 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = + CCTK_REAL_VEC Gtl122 CCTK_ATTRIBUTE_UNUSED = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = + CCTK_REAL_VEC Gtl123 CCTK_ATTRIBUTE_UNUSED = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = + CCTK_REAL_VEC Gtl133 CCTK_ATTRIBUTE_UNUSED = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = + CCTK_REAL_VEC Gtl211 CCTK_ATTRIBUTE_UNUSED = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + CCTK_REAL_VEC Gtl212 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = + CCTK_REAL_VEC Gtl213 CCTK_ATTRIBUTE_UNUSED = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + CCTK_REAL_VEC Gtl222 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + CCTK_REAL_VEC Gtl223 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = + CCTK_REAL_VEC Gtl233 CCTK_ATTRIBUTE_UNUSED = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = + CCTK_REAL_VEC Gtl311 CCTK_ATTRIBUTE_UNUSED = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = + CCTK_REAL_VEC Gtl312 CCTK_ATTRIBUTE_UNUSED = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + CCTK_REAL_VEC Gtl313 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = + CCTK_REAL_VEC Gtl322 CCTK_ATTRIBUTE_UNUSED = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + CCTK_REAL_VEC Gtl323 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + CCTK_REAL_VEC Gtl333 CCTK_ATTRIBUTE_UNUSED = kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu111 = + CCTK_REAL_VEC Gtlu111 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu112 = + CCTK_REAL_VEC Gtlu112 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu113 = + CCTK_REAL_VEC Gtlu113 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu121 = + CCTK_REAL_VEC Gtlu121 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu122 = + CCTK_REAL_VEC Gtlu122 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu123 = + CCTK_REAL_VEC Gtlu123 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu131 = + CCTK_REAL_VEC Gtlu131 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu132 = + CCTK_REAL_VEC Gtlu132 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu133 = + CCTK_REAL_VEC Gtlu133 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu211 = + CCTK_REAL_VEC Gtlu211 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu212 = + CCTK_REAL_VEC Gtlu212 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu213 = + CCTK_REAL_VEC Gtlu213 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu221 = + CCTK_REAL_VEC Gtlu221 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu222 = + CCTK_REAL_VEC Gtlu222 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu223 = + CCTK_REAL_VEC Gtlu223 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu231 = + CCTK_REAL_VEC Gtlu231 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu232 = + CCTK_REAL_VEC Gtlu232 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu233 = + CCTK_REAL_VEC Gtlu233 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu311 = + CCTK_REAL_VEC Gtlu311 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu312 = + CCTK_REAL_VEC Gtlu312 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu313 = + CCTK_REAL_VEC Gtlu313 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu321 = + CCTK_REAL_VEC Gtlu321 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu322 = + CCTK_REAL_VEC Gtlu322 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu323 = + CCTK_REAL_VEC Gtlu323 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu331 = + CCTK_REAL_VEC Gtlu331 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu332 = + CCTK_REAL_VEC Gtlu332 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu333 = + CCTK_REAL_VEC Gtlu333 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = + CCTK_REAL_VEC Gt111 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = + CCTK_REAL_VEC Gt211 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = + CCTK_REAL_VEC Gt311 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = + CCTK_REAL_VEC Gt112 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = + CCTK_REAL_VEC Gt212 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = + CCTK_REAL_VEC Gt312 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = + CCTK_REAL_VEC Gt113 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = + CCTK_REAL_VEC Gt213 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = + CCTK_REAL_VEC Gt313 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = + CCTK_REAL_VEC Gt122 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = + CCTK_REAL_VEC Gt222 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = + CCTK_REAL_VEC Gt322 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = + CCTK_REAL_VEC Gt123 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = + CCTK_REAL_VEC Gt223 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = + CCTK_REAL_VEC Gt323 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = + CCTK_REAL_VEC Gt133 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = + CCTK_REAL_VEC Gt233 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = + CCTK_REAL_VEC Gt333 CCTK_ATTRIBUTE_UNUSED = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = + CCTK_REAL_VEC Xtn1 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = + CCTK_REAL_VEC Xtn2 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = + CCTK_REAL_VEC Xtn3 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC e4phi CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = kmul(gt11L,e4phi); + CCTK_REAL_VEC g11 CCTK_ATTRIBUTE_UNUSED = kmul(gt11L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = kmul(gt12L,e4phi); + CCTK_REAL_VEC g12 CCTK_ATTRIBUTE_UNUSED = kmul(gt12L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = kmul(gt13L,e4phi); + CCTK_REAL_VEC g13 CCTK_ATTRIBUTE_UNUSED = kmul(gt13L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = kmul(gt22L,e4phi); + CCTK_REAL_VEC g22 CCTK_ATTRIBUTE_UNUSED = kmul(gt22L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = kmul(gt23L,e4phi); + CCTK_REAL_VEC g23 CCTK_ATTRIBUTE_UNUSED = kmul(gt23L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = kmul(gt33L,e4phi); + CCTK_REAL_VEC g33 CCTK_ATTRIBUTE_UNUSED = kmul(gt33L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kmul(em4phi,gtu11); + CCTK_REAL_VEC gu11 CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,gtu11); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kmul(em4phi,gtu12); + CCTK_REAL_VEC gu12 CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,gtu12); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kmul(em4phi,gtu13); + CCTK_REAL_VEC gu13 CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,gtu13); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kmul(em4phi,gtu22); + CCTK_REAL_VEC gu22 CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,gtu22); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kmul(em4phi,gtu23); + CCTK_REAL_VEC gu23 CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,gtu23); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kmul(em4phi,gtu33); + CCTK_REAL_VEC gu33 CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,gtu33); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z1 = + CCTK_REAL_VEC Z1 CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kmadd(gu11,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,JacPDstandardNth1gt13,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu23,JacPDstandardNth2gt13,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,JacPDstandardNth3gt12,kmsub(gtu33,JacPDstandardNth3gt13,kmadd(gt11L,Xt1L,kmadd(gt13L,Xt3L,kmul(gt12L,Xt2L))))))))))),kmadd(gu13,kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu12,kadd(JacPDstandardNth1gt23,JacPDstandardNth2gt13),kmadd(gtu22,JacPDstandardNth2gt23,kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu13,JacPDstandardNth3gt13,kmadd(gtu23,JacPDstandardNth3gt23,kmsub(gtu33,JacPDstandardNth3gt33,kmadd(gt13L,Xt1L,kmadd(gt33L,Xt3L,kmul(gt23L,Xt2L))))))))))),kmul(gu12,kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt23,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,JacPDstandardNth2gt23,kmadd(gtu13,JacPDstandardNth3gt12,kmadd(gtu23,JacPDstandardNth3gt22,kmsub(gtu33,JacPDstandardNth3gt23,kmadd(gt12L,Xt1L,kmadd(gt23L,Xt3L,kmul(gt22L,Xt2L)))))))))))))),ToReal(0.5))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z2 = + CCTK_REAL_VEC Z2 CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kmadd(gu12,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,JacPDstandardNth1gt13,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu23,JacPDstandardNth2gt13,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,JacPDstandardNth3gt12,kmsub(gtu33,JacPDstandardNth3gt13,kmadd(gt11L,Xt1L,kmadd(gt13L,Xt3L,kmul(gt12L,Xt2L))))))))))),kmadd(gu23,kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu12,kadd(JacPDstandardNth1gt23,JacPDstandardNth2gt13),kmadd(gtu22,JacPDstandardNth2gt23,kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu13,JacPDstandardNth3gt13,kmadd(gtu23,JacPDstandardNth3gt23,kmsub(gtu33,JacPDstandardNth3gt33,kmadd(gt13L,Xt1L,kmadd(gt33L,Xt3L,kmul(gt23L,Xt2L))))))))))),kmul(gu22,kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt23,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,JacPDstandardNth2gt23,kmadd(gtu13,JacPDstandardNth3gt12,kmadd(gtu23,JacPDstandardNth3gt22,kmsub(gtu33,JacPDstandardNth3gt23,kmadd(gt12L,Xt1L,kmadd(gt23L,Xt3L,kmul(gt22L,Xt2L)))))))))))))),ToReal(0.5))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z3 = + CCTK_REAL_VEC Z3 CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kmadd(gu13,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,JacPDstandardNth1gt13,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu23,JacPDstandardNth2gt13,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,JacPDstandardNth3gt12,kmsub(gtu33,JacPDstandardNth3gt13,kmadd(gt11L,Xt1L,kmadd(gt13L,Xt3L,kmul(gt12L,Xt2L))))))))))),kmadd(gu33,kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu12,kadd(JacPDstandardNth1gt23,JacPDstandardNth2gt13),kmadd(gtu22,JacPDstandardNth2gt23,kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu13,JacPDstandardNth3gt13,kmadd(gtu23,JacPDstandardNth3gt23,kmsub(gtu33,JacPDstandardNth3gt33,kmadd(gt13L,Xt1L,kmadd(gt33L,Xt3L,kmul(gt23L,Xt2L))))))))))),kmul(gu23,kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt23,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,JacPDstandardNth2gt23,kmadd(gtu13,JacPDstandardNth3gt12,kmadd(gtu23,JacPDstandardNth3gt22,kmsub(gtu33,JacPDstandardNth3gt23,kmadd(gt12L,Xt1L,kmadd(gt23L,Xt3L,kmul(gt22L,Xt2L)))))))))))))),ToReal(0.5))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt11 = + CCTK_REAL_VEC Rt11 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmadd(gt11L,JacPDstandardNth1Xt1,kmadd(gt12L,JacPDstandardNth1Xt2,kmadd(gt13L,JacPDstandardNth1Xt3,kmadd(Gtl111,Xtn1,kmadd(Gtl112,Xtn2,kmadd(Gtl113,Xtn3,knmsub(kmadd(gtu11,JacPDstandardNth11gt11,kmadd(gtu12,kadd(JacPDstandardNth12gt11,JacPDstandardNth21gt11),kmadd(gtu22,JacPDstandardNth22gt11,kmadd(gtu33,JacPDstandardNth33gt11,kmadd(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmul(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11))))))),ToReal(0.5),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(2),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(3)))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt12 = + CCTK_REAL_VEC Rt12 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4)))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt13 = + CCTK_REAL_VEC Rt13 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4)))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt22 = + CCTK_REAL_VEC Rt22 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(gt22L,JacPDstandardNth2Xt2,kmadd(gt23L,JacPDstandardNth2Xt3,kmadd(Gtl212,Xtn1,kmadd(Gtl222,Xtn2,kmadd(Gtl223,Xtn3,knmsub(kmadd(gtu11,JacPDstandardNth11gt22,kmadd(gtu12,kadd(JacPDstandardNth12gt22,JacPDstandardNth21gt22),kmadd(gtu22,JacPDstandardNth22gt22,kmadd(gtu33,JacPDstandardNth33gt22,kmadd(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmul(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22))))))),ToReal(0.5),kmadd(kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233))),ToReal(2),kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmadd(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122),kmadd(Gt123,kmadd(Gtlu213,ToReal(2),Gtlu123),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(3)))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt23 = + CCTK_REAL_VEC Rt23 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4)))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt33 = + CCTK_REAL_VEC Rt33 CCTK_ATTRIBUTE_UNUSED = kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(gt23L,JacPDstandardNth3Xt2,kmadd(gt33L,JacPDstandardNth3Xt3,kmadd(Gtl313,Xtn1,kmadd(Gtl323,Xtn2,kmadd(Gtl333,Xtn3,knmsub(kmadd(gtu11,JacPDstandardNth11gt33,kmadd(gtu12,kadd(JacPDstandardNth12gt33,JacPDstandardNth21gt33),kmadd(gtu22,JacPDstandardNth22gt33,kmadd(gtu33,JacPDstandardNth33gt33,kmadd(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmul(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33))))))),ToReal(0.5),kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmadd(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132),kmadd(Gt133,kmadd(Gtlu313,ToReal(2),Gtlu133),kmadd(Gt213,kmadd(Gtlu321,ToReal(2),Gtlu231),kmadd(Gt223,kmadd(Gtlu322,ToReal(2),Gtlu232),kmadd(Gt233,kmadd(Gtlu323,ToReal(2),Gtlu233),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(3))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC fac1 CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + CCTK_REAL_VEC cdphi1 CCTK_ATTRIBUTE_UNUSED = kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + CCTK_REAL_VEC cdphi2 CCTK_ATTRIBUTE_UNUSED = kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + CCTK_REAL_VEC cdphi3 CCTK_ATTRIBUTE_UNUSED = kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac2 = IfThen(conformalMethod == + CCTK_REAL_VEC fac2 CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,kdiv(ToReal(0.5),kmul(phiL,phiL)),ToReal(0)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi211 = + CCTK_REAL_VEC cdphi211 CCTK_ATTRIBUTE_UNUSED = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi212 = + CCTK_REAL_VEC cdphi212 CCTK_ATTRIBUTE_UNUSED = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi213 = + CCTK_REAL_VEC cdphi213 CCTK_ATTRIBUTE_UNUSED = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi222 = + CCTK_REAL_VEC cdphi222 CCTK_ATTRIBUTE_UNUSED = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi223 = + CCTK_REAL_VEC cdphi223 CCTK_ATTRIBUTE_UNUSED = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi233 = + CCTK_REAL_VEC cdphi233 CCTK_ATTRIBUTE_UNUSED = kmsub(fac2,kmul(JacPDstandardNth3phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi11 = + CCTK_REAL_VEC Rphi11 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(-2),kadd(cdphi211,kmadd(kmul(cdphi1,cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,kmul(cdphi3,cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(kmul(cdphi2,cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi12 = + CCTK_REAL_VEC Rphi12 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,kmul(cdphi1,cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(kmul(cdphi2,cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(kmul(cdphi3,cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi13 = + CCTK_REAL_VEC Rphi13 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,kmul(cdphi1,cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(kmul(cdphi2,cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(kmul(cdphi3,cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi22 = + CCTK_REAL_VEC Rphi22 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(-2),kadd(cdphi222,kmadd(kmul(cdphi2,cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,kmul(cdphi3,cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(kmul(cdphi1,cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi23 = + CCTK_REAL_VEC Rphi23 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,kmul(cdphi2,cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(kmul(cdphi1,cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(kmul(cdphi3,cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi33 = + CCTK_REAL_VEC Rphi33 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(-2),kadd(cdphi233,kmadd(kmul(cdphi3,cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(kmul(cdphi1,cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(kmul(cdphi2,cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4)))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = + CCTK_REAL_VEC Atm11 CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = + CCTK_REAL_VEC Atm21 CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = + CCTK_REAL_VEC Atm31 CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = + CCTK_REAL_VEC Atm12 CCTK_ATTRIBUTE_UNUSED = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = + CCTK_REAL_VEC Atm22 CCTK_ATTRIBUTE_UNUSED = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = + CCTK_REAL_VEC Atm32 CCTK_ATTRIBUTE_UNUSED = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = + CCTK_REAL_VEC Atm13 CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = + CCTK_REAL_VEC Atm23 CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = + CCTK_REAL_VEC Atm33 CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu11 = + CCTK_REAL_VEC Atu11 CCTK_ATTRIBUTE_UNUSED = kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu12 = + CCTK_REAL_VEC Atu12 CCTK_ATTRIBUTE_UNUSED = kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu13 = + CCTK_REAL_VEC Atu13 CCTK_ATTRIBUTE_UNUSED = kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu22 = + CCTK_REAL_VEC Atu22 CCTK_ATTRIBUTE_UNUSED = kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu23 = + CCTK_REAL_VEC Atu23 CCTK_ATTRIBUTE_UNUSED = kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu33 = + CCTK_REAL_VEC Atu33 CCTK_ATTRIBUTE_UNUSED = kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kadd(Rphi11,Rt11); + CCTK_REAL_VEC R11 CCTK_ATTRIBUTE_UNUSED = kadd(Rphi11,Rt11); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kadd(Rphi12,Rt12); + CCTK_REAL_VEC R12 CCTK_ATTRIBUTE_UNUSED = kadd(Rphi12,Rt12); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kadd(Rphi13,Rt13); + CCTK_REAL_VEC R13 CCTK_ATTRIBUTE_UNUSED = kadd(Rphi13,Rt13); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kadd(Rphi22,Rt22); + CCTK_REAL_VEC R22 CCTK_ATTRIBUTE_UNUSED = kadd(Rphi22,Rt22); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kadd(Rphi23,Rt23); + CCTK_REAL_VEC R23 CCTK_ATTRIBUTE_UNUSED = kadd(Rphi23,Rt23); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = kadd(Rphi33,Rt33); + CCTK_REAL_VEC R33 CCTK_ATTRIBUTE_UNUSED = kadd(Rphi33,Rt33); R11 = kadd(R11,kmadd(e4phi,kmadd(JacPDstandardNth1gt11,Z1,kmadd(JacPDstandardNth2gt11,Z2,kmul(JacPDstandardNth3gt11,Z3))),kdiv(kmadd(g11,kmul(kmadd(JacPDstandardNth2phi,Z2,kmul(JacPDstandardNth3phi,Z3)),ToReal(-2)),kmul(JacPDstandardNth1phi,kmadd(g11,kmul(Z1,ToReal(2)),kmul(kmadd(g12,Z2,kmul(g13,Z3)),ToReal(4))))),phiL))); @@ -2236,91 +2236,91 @@ static void ML_CCZ4_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c R33 = kadd(R33,kmadd(e4phi,kmadd(JacPDstandardNth1gt33,Z1,kmadd(JacPDstandardNth2gt33,Z2,kmul(JacPDstandardNth3gt33,Z3))),kdiv(kmadd(g33,kmul(ToReal(-2),kmadd(JacPDstandardNth1phi,Z1,kmsub(JacPDstandardNth2phi,Z2,kmul(JacPDstandardNth3phi,Z3)))),kmul(JacPDstandardNth3phi,kmul(kmadd(g13,Z1,kmul(g23,Z2)),ToReal(4)))),phiL))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rho = + CCTK_REAL_VEC rho CCTK_ATTRIBUTE_UNUSED = kdiv(kadd(eTttL,kmadd(eTxxL,kmul(beta1L,beta1L),kmadd(eTyyL,kmul(beta2L,beta2L),kmadd(eTzzL,kmul(beta3L,beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))),kmul(alphaL,alphaL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S1 = + CCTK_REAL_VEC S1 CCTK_ATTRIBUTE_UNUSED = kdiv(kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))),alphaL); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S2 = + CCTK_REAL_VEC S2 CCTK_ATTRIBUTE_UNUSED = kdiv(kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))),alphaL); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S3 = + CCTK_REAL_VEC S3 CCTK_ATTRIBUTE_UNUSED = kdiv(kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))),alphaL); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trS = + CCTK_REAL_VEC trS CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(IfThen(conformalMethod == 1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(gt11L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(kmadd(gt11L,JacPDstandardNth1beta1,kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3))),ToReal(2),kmul(alphaL,kmul(ToReal(-2),kmadd(gt11L,kmul(ToReal(-0.333333333333333333333333333333),kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),At11L))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmadd(gt13L,JacPDstandardNth2beta3,kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth2beta2)),kmul(alphaL,kmul(ToReal(-2),kmadd(gt12L,kmul(ToReal(-0.333333333333333333333333333333),kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),At12L)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmadd(gt12L,JacPDstandardNth3beta2,kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)),kmul(alphaL,kmul(ToReal(-2),kmadd(gt13L,kmul(ToReal(-0.333333333333333333333333333333),kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),At13L)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(gt22L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(kmadd(gt12L,JacPDstandardNth2beta1,kmadd(gt22L,JacPDstandardNth2beta2,kmul(gt23L,JacPDstandardNth2beta3))),ToReal(2),kmul(alphaL,kmul(ToReal(-2),kmadd(gt22L,kmul(ToReal(-0.333333333333333333333333333333),kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),At22L))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmadd(gt22L,JacPDstandardNth3beta2,kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)),kmul(alphaL,kmul(ToReal(-2),kmadd(gt23L,kmul(ToReal(-0.333333333333333333333333333333),kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),At23L)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(gt33L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(kmadd(gt13L,JacPDstandardNth3beta1,kmadd(gt23L,JacPDstandardNth3beta2,kmul(gt33L,JacPDstandardNth3beta3))),ToReal(2),kmul(alphaL,kmul(ToReal(-2),kmadd(gt33L,kmul(ToReal(-0.333333333333333333333333333333),kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),At33L))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt1 = + CCTK_REAL_VEC dotXt1 CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth11beta1,kmadd(gtu12,kadd(JacPDstandardNth12beta1,JacPDstandardNth21beta1),kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu13,kadd(JacPDstandardNth13beta1,JacPDstandardNth31beta1),kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmadd(gtu33,JacPDstandardNth33beta1,knmsub(JacPDstandardNth2beta1,Xtn2,knmsub(JacPDstandardNth3beta1,Xtn3,kmadd(kmadd(gtu11,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth21beta1,kadd(JacPDstandardNth22beta2,JacPDstandardNth23beta3)),kmul(gtu13,kadd(JacPDstandardNth31beta1,kadd(JacPDstandardNth32beta2,JacPDstandardNth33beta3))))),ToReal(0.333333333333333333333333333333),kmadd(Xtn1,kmsub(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(0.666666666666666666666666666667),JacPDstandardNth1beta1),kmadd(ToReal(2),kmadd(alphaL,kmadd(gtu11,JacPDstandardNth1Theta,kmadd(gtu12,JacPDstandardNth2Theta,kmul(gtu13,JacPDstandardNth3Theta))),kmsub(alphaL,kmadd(Atu11,Gt111,kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-0.666666666666666666666666666667),kmadd(Atu12,kmul(Gt112,ToReal(2)),kmadd(Atu13,kmul(Gt113,ToReal(2)),kmadd(Atu23,kmul(Gt123,ToReal(2)),kmul(kmadd(Atu11,cdphi1,kmadd(Atu12,cdphi2,kmul(Atu13,cdphi3))),ToReal(6))))))))),kmul(ThetaL,kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha)))))),kmadd(ToReal(-2),kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmadd(Atu13,JacPDstandardNth3alpha,kmul(alphaL,kmul(e4phi,kmul(Z1,ToReal(dampk1))))))),kmadd(e4phi,kmul(ToReal(-0.666666666666666666666666666667),kmul(kmadd(JacPDstandardNth1beta1,Z1,kmadd(JacPDstandardNth2beta2,kmul(Z1,ToReal(-2)),kmadd(JacPDstandardNth3beta3,kmul(Z1,ToReal(-2)),kmadd(JacPDstandardNth2beta1,kmul(Z2,ToReal(3)),kmul(JacPDstandardNth3beta1,kmul(Z3,ToReal(3))))))),ToReal(GammaShift))),kmul(alphaL,kmadd(trKL,kmul(e4phi,kmul(Z1,ToReal(-1.33333333333333333333333333333))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),ToReal(-50.2654824574366918154022941325))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt2 = + CCTK_REAL_VEC dotXt2 CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu12,kadd(JacPDstandardNth12beta2,JacPDstandardNth21beta2),kmadd(gtu22,JacPDstandardNth22beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmadd(gtu23,kadd(JacPDstandardNth23beta2,JacPDstandardNth32beta2),kmadd(gtu33,JacPDstandardNth33beta2,knmsub(JacPDstandardNth1beta2,Xtn1,knmsub(JacPDstandardNth3beta2,Xtn3,kmadd(kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,JacPDstandardNth13beta3)),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kadd(JacPDstandardNth22beta2,JacPDstandardNth23beta3)),kmul(gtu23,kadd(JacPDstandardNth31beta1,kadd(JacPDstandardNth32beta2,JacPDstandardNth33beta3))))),ToReal(0.333333333333333333333333333333),kmadd(Xtn2,kmsub(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(0.666666666666666666666666666667),JacPDstandardNth2beta2),kmadd(ToReal(2),kmadd(alphaL,kmadd(gtu12,JacPDstandardNth1Theta,kmadd(gtu22,JacPDstandardNth2Theta,kmul(gtu23,JacPDstandardNth3Theta))),kmsub(alphaL,kmadd(Atu11,Gt211,kmadd(Atu22,Gt222,kmadd(Atu33,Gt233,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-0.666666666666666666666666666667),kmadd(Atu12,kmul(Gt212,ToReal(2)),kmadd(Atu13,kmul(Gt213,ToReal(2)),kmadd(Atu23,kmul(Gt223,ToReal(2)),kmul(kmadd(Atu12,cdphi1,kmadd(Atu22,cdphi2,kmul(Atu23,cdphi3))),ToReal(6))))))))),kmul(ThetaL,kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha)))))),kmadd(ToReal(-2),kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmadd(Atu23,JacPDstandardNth3alpha,kmul(alphaL,kmul(e4phi,kmul(Z2,ToReal(dampk1))))))),kmadd(e4phi,kmul(ToReal(-0.666666666666666666666666666667),kmul(kmadd(JacPDstandardNth2beta2,Z2,kmadd(JacPDstandardNth1beta1,kmul(Z2,ToReal(-2)),kmadd(JacPDstandardNth3beta3,kmul(Z2,ToReal(-2)),kmadd(JacPDstandardNth1beta2,kmul(Z1,ToReal(3)),kmul(JacPDstandardNth3beta2,kmul(Z3,ToReal(3))))))),ToReal(GammaShift))),kmul(alphaL,kmadd(trKL,kmul(e4phi,kmul(Z2,ToReal(-1.33333333333333333333333333333))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),ToReal(-50.2654824574366918154022941325))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt3 = + CCTK_REAL_VEC dotXt3 CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmadd(gtu13,kadd(JacPDstandardNth13beta3,JacPDstandardNth31beta3),kmadd(gtu23,kadd(JacPDstandardNth23beta3,JacPDstandardNth32beta3),kmadd(gtu33,JacPDstandardNth33beta3,knmsub(JacPDstandardNth1beta3,Xtn1,knmsub(JacPDstandardNth2beta3,Xtn2,kmadd(kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,JacPDstandardNth13beta3)),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kadd(JacPDstandardNth22beta2,JacPDstandardNth23beta3)),kmul(gtu33,kadd(JacPDstandardNth31beta1,kadd(JacPDstandardNth32beta2,JacPDstandardNth33beta3))))),ToReal(0.333333333333333333333333333333),kmadd(Xtn3,kmsub(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(0.666666666666666666666666666667),JacPDstandardNth3beta3),kmadd(ToReal(2),kmadd(alphaL,kmadd(gtu13,JacPDstandardNth1Theta,kmadd(gtu23,JacPDstandardNth2Theta,kmul(gtu33,JacPDstandardNth3Theta))),kmsub(alphaL,kmadd(Atu11,Gt311,kmadd(Atu22,Gt322,kmadd(Atu33,Gt333,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-0.666666666666666666666666666667),kmadd(Atu12,kmul(Gt312,ToReal(2)),kmadd(Atu13,kmul(Gt313,ToReal(2)),kmadd(Atu23,kmul(Gt323,ToReal(2)),kmul(kmadd(Atu13,cdphi1,kmadd(Atu23,cdphi2,kmul(Atu33,cdphi3))),ToReal(6))))))))),kmul(ThetaL,kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha)))))),kmadd(ToReal(-2),kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmadd(Atu33,JacPDstandardNth3alpha,kmul(alphaL,kmul(e4phi,kmul(Z3,ToReal(dampk1))))))),kmadd(e4phi,kmul(ToReal(-0.666666666666666666666666666667),kmul(kmadd(Z3,kadd(JacPDstandardNth3beta3,kmadd(JacPDstandardNth1beta1,ToReal(-2),kmul(JacPDstandardNth2beta2,ToReal(-2)))),kmadd(JacPDstandardNth1beta3,kmul(Z1,ToReal(3)),kmul(JacPDstandardNth2beta3,kmul(Z2,ToReal(3))))),ToReal(GammaShift))),kmul(alphaL,kmadd(trKL,kmul(e4phi,kmul(Z3,ToReal(-1.33333333333333333333333333333))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),ToReal(-50.2654824574366918154022941325))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = dotXt1; + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = dotXt1; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = dotXt2; + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = dotXt2; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = dotXt3; + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = dotXt3; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotTheta = + CCTK_REAL_VEC dotTheta CCTK_ATTRIBUTE_UNUSED = knmsub(JacPDstandardNth1alpha,Z1,knmsub(JacPDstandardNth2alpha,Z2,kmsub(alphaL,kmadd(ToReal(0.5),kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmadd(ThetaL,kmul(trKL,ToReal(-2)),kmadd(Atm12,kmul(Atm21,ToReal(-2)),kmadd(Atm13,kmul(Atm31,ToReal(-2)),kmadd(Atm23,kmul(Atm32,ToReal(-2)),knmsub(Atm11,Atm11,knmsub(Atm22,Atm22,knmsub(Atm33,Atm33,kmadd(kmul(trKL,trKL),ToReal(0.666666666666666666666666666667),kmadd(gu12,kmul(R12,ToReal(2)),kmadd(gu13,kmul(R13,ToReal(2)),kmul(gu23,kmul(R23,ToReal(2)))))))))))))))),kmsub(rho,ToReal(-25.1327412287183459077011470662),kmul(ThetaL,ToReal(dampk1*(2 + dampk2))))),kmul(JacPDstandardNth3alpha,Z3)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetarhsL = dotTheta; + CCTK_REAL_VEC ThetarhsL CCTK_ATTRIBUTE_UNUSED = dotTheta; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dottrK = + CCTK_REAL_VEC dottrK CCTK_ATTRIBUTE_UNUSED = kmadd(kadd(dotTheta,kmadd(JacPDstandardNth1alpha,Z1,kmadd(JacPDstandardNth2alpha,Z2,kmul(JacPDstandardNth3alpha,Z3)))),ToReal(2),kmsub(alphaL,kmadd(Atm11,Atm11,kmadd(Atm22,Atm22,kmadd(Atm33,Atm33,kmadd(kmul(trKL,trKL),ToReal(0.333333333333333333333333333333),kmadd(Atm12,kmul(Atm21,ToReal(2)),kmadd(Atm13,kmul(Atm31,ToReal(2)),kmadd(Atm23,kmul(Atm32,ToReal(2)),kmsub(kadd(rho,trS),ToReal(12.5663706143591729538505735331),kmul(ThetaL,ToReal(dampk1*(-1 + dampk2))))))))))),kmul(em4phi,kmadd(gtu13,JacPDstandardNth13alpha,kmadd(gtu22,JacPDstandardNth22alpha,kmadd(gtu23,JacPDstandardNth23alpha,kmadd(gtu13,JacPDstandardNth31alpha,kmadd(gtu23,JacPDstandardNth32alpha,kmadd(gtu33,JacPDstandardNth33alpha,kmadd(cdphi3,kmul(gtu23,kmul(JacPDstandardNth2alpha,ToReal(2))),kmadd(cdphi2,kmul(gtu23,kmul(JacPDstandardNth3alpha,ToReal(2))),kmadd(cdphi3,kmul(gtu33,kmul(JacPDstandardNth3alpha,ToReal(2))),kmadd(JacPDstandardNth3alpha,kmsub(cdphi1,kmul(gtu13,ToReal(2)),Xtn3),kmadd(JacPDstandardNth1alpha,kmsub(cdphi3,kmul(gtu13,ToReal(2)),Xtn1),kmadd(JacPDstandardNth2alpha,kmsub(cdphi2,kmul(gtu22,ToReal(2)),Xtn2),kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmul(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = dottrK; + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = dottrK; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kadd(trKL,kmadd(ThetaL,ToReal(-2),kmul(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver)))),ToReal(1 - LapseACoeff)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = + CCTK_REAL_VEC ArhsL CCTK_ATTRIBUTE_UNUSED = kmul(kadd(dottrK,kmsub(dotTheta,ToReal(-2),kmul(AL,ToReal(AlphaDriver)))),ToReal(LapseACoeff)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = + CCTK_REAL_VEC eta CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = + CCTK_REAL_VEC theta CCTK_ATTRIBUTE_UNUSED = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ddetgt1 = + CCTK_REAL_VEC Ddetgt1 CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu33,JacPDstandardNth1gt33,kmul(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu23,JacPDstandardNth1gt23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ddetgt2 = + CCTK_REAL_VEC Ddetgt2 CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth2gt11,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmul(kmadd(gtu12,JacPDstandardNth2gt12,kmadd(gtu13,JacPDstandardNth2gt13,kmul(gtu23,JacPDstandardNth2gt23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ddetgt3 = + CCTK_REAL_VEC Ddetgt3 CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth3gt11,kmadd(gtu22,JacPDstandardNth3gt22,kmadd(gtu33,JacPDstandardNth3gt33,kmul(kmadd(gtu12,JacPDstandardNth3gt12,kmadd(gtu13,JacPDstandardNth3gt13,kmul(gtu23,JacPDstandardNth3gt23))),ToReal(2))))); CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED; @@ -2371,13 +2371,13 @@ static void ML_CCZ4_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))); } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = kmul(knmsub(B3L,kmul(eta,ToReal(BetaDriver)),dotXt3),ToReal(ShiftBCoeff)); /* Copy local copies back to grid functions */ |