diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 18:24:23 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 18:24:23 +0200 |
| commit | 51f5f80e196f950622f63977ae344580faf1cb2e (patch) | |
| tree | c66b2fe88462ba6f61a090a1f2d7a6e90a421427 | |
| parent | 280545da21ad246f73e815c09f43b2d08804ebca (diff) | |
Regenerate ML_BSSN and ML_CCZ4 (Kranc commit 296e00b7388c67e7267116b58c3270c22dd132da)
36 files changed, 1442 insertions, 1442 deletions
diff --git a/ML_BSSN/src/ML_BSSN_Advect.cc b/ML_BSSN/src/ML_BSSN_Advect.cc index 1d562c3..6fb91dc 100644 --- a/ML_BSSN/src/ML_BSSN_Advect.cc +++ b/ML_BSSN/src/ML_BSSN_Advect.cc @@ -1117,11 +1117,11 @@ static void ML_BSSN_Advect_Body(const cGH* restrict const cctkGH, const int dir, } /* 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 JacPDupwindNthAnti1A CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED; diff --git a/ML_BSSN/src/ML_BSSN_Dissipation.cc b/ML_BSSN/src/ML_BSSN_Dissipation.cc index 4cf7a54..9042f2e 100644 --- a/ML_BSSN/src/ML_BSSN_Dissipation.cc +++ b/ML_BSSN/src/ML_BSSN_Dissipation.cc @@ -1198,11 +1198,11 @@ static void ML_BSSN_Dissipation_Body(const cGH* restrict const cctkGH, const int JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3; } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss1 = ToReal(EpsDiss); + CCTK_REAL_VEC epsdiss1 CCTK_ATTRIBUTE_UNUSED = ToReal(EpsDiss); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss2 = ToReal(EpsDiss); + CCTK_REAL_VEC epsdiss2 CCTK_ATTRIBUTE_UNUSED = ToReal(EpsDiss); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss3 = ToReal(EpsDiss); + CCTK_REAL_VEC epsdiss3 CCTK_ATTRIBUTE_UNUSED = ToReal(EpsDiss); phirhsL = kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi)))); diff --git a/ML_BSSN/src/ML_BSSN_InitGamma.cc b/ML_BSSN/src/ML_BSSN_InitGamma.cc index f0add8b..b67ecd7 100644 --- a/ML_BSSN/src/ML_BSSN_InitGamma.cc +++ b/ML_BSSN/src/ML_BSSN_InitGamma.cc @@ -265,19 +265,19 @@ static void ML_BSSN_InitGamma_Body(const cGH* restrict const cctkGH, const int d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_BSSN/src/ML_BSSN_InitRHS.cc b/ML_BSSN/src/ML_BSSN_InitRHS.cc index 12dc2a5..27df566 100644 --- a/ML_BSSN/src/ML_BSSN_InitRHS.cc +++ b/ML_BSSN/src/ML_BSSN_InitRHS.cc @@ -265,55 +265,55 @@ static void ML_BSSN_InitRHS_Body(const cGH* restrict const cctkGH, const int dir } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = ToReal(0); + CCTK_REAL_VEC ArhsL 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.cc b/ML_BSSN/src/ML_BSSN_Minkowski.cc index c5c03e9..740472d 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.cc +++ b/ML_BSSN/src/ML_BSSN_Minkowski.cc @@ -265,56 +265,56 @@ static void ML_BSSN_Minkowski_Body(const cGH* restrict const cctkGH, const int d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); + CCTK_REAL_VEC Xt3L 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 AL = ToReal(0); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_BSSN/src/ML_BSSN_RHS1.cc b/ML_BSSN/src/ML_BSSN_RHS1.cc index ab2af17..a250d17 100644 --- a/ML_BSSN/src/ML_BSSN_RHS1.cc +++ b/ML_BSSN/src/ML_BSSN_RHS1.cc @@ -686,11 +686,11 @@ static void ML_BSSN_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; @@ -1130,282 +1130,282 @@ static void ML_BSSN_RHS1_Body(const cGH* restrict const cctkGH, const int dir, c JacPDstandardNth32beta3 = PDstandardNth23beta3; } - 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 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 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 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 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(alphaL,kmul(At11L,ToReal(-2)),kmadd(gt11L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmul(kmadd(gt11L,JacPDstandardNth1beta1,kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3))),ToReal(2)))); - 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(alphaL,kmul(At12L,ToReal(-2)),kmul(gt12L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth2beta2)))))))); - 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(alphaL,kmul(At13L,ToReal(-2)),kmul(gt13L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(alphaL,kmul(At22L,ToReal(-2)),kmadd(gt22L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmul(kmadd(gt12L,JacPDstandardNth2beta1,kmadd(gt22L,JacPDstandardNth2beta2,kmul(gt23L,JacPDstandardNth2beta3))),ToReal(2)))); - 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(alphaL,kmul(At23L,ToReal(-2)),kmul(gt23L,kadd(JacPDstandardNth2beta2,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(alphaL,kmul(At33L,ToReal(-2)),kmadd(gt33L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmul(kmadd(gt13L,JacPDstandardNth3beta1,kmadd(gt23L,JacPDstandardNth3beta2,kmul(gt33L,JacPDstandardNth3beta3))),ToReal(2)))); - 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,kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-2),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),kmul(alphaL,kmadd(ToReal(2),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(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,kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-2),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),kmul(alphaL,kmadd(ToReal(2),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(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,kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-2),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),kmul(alphaL,kmadd(ToReal(2),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(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 dottrK = + CCTK_REAL_VEC dottrK CCTK_ATTRIBUTE_UNUSED = kmsub(alphaL,kmadd(Atm11,Atm11,kmadd(Atm22,Atm22,kmadd(Atm33,Atm33,kmadd(kmul(trKL,trKL),ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(2),kmul(kadd(rho,trS),ToReal(12.5663706143591729538505735331))))))),kmul(em4phi,knmsub(JacPDstandardNth1alpha,Xtn1,knmsub(JacPDstandardNth2alpha,Xtn2,knmsub(JacPDstandardNth3alpha,Xtn3,kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmadd(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2)))))),kmadd(gtu22,kmadd(cdphi2,kmul(JacPDstandardNth2alpha,ToReal(2)),JacPDstandardNth22alpha),kmadd(gtu13,kadd(JacPDstandardNth13alpha,kadd(JacPDstandardNth31alpha,kmadd(cdphi3,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmadd(gtu23,kadd(JacPDstandardNth23alpha,kadd(JacPDstandardNth32alpha,kmadd(cdphi3,kmul(JacPDstandardNth2alpha,ToReal(2)),kmul(cdphi2,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmul(gtu33,kmadd(cdphi3,kmul(JacPDstandardNth3alpha,ToReal(2)),JacPDstandardNth33alpha)))))))))))); - 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(kmadd(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver),trKL),ToReal(1 - LapseACoeff)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = + CCTK_REAL_VEC ArhsL CCTK_ATTRIBUTE_UNUSED = kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),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; @@ -1456,13 +1456,13 @@ static void ML_BSSN_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 */ diff --git a/ML_BSSN/src/ML_BSSN_RHS2.cc b/ML_BSSN/src/ML_BSSN_RHS2.cc index f3b970e..33c6262 100644 --- a/ML_BSSN/src/ML_BSSN_RHS2.cc +++ b/ML_BSSN/src/ML_BSSN_RHS2.cc @@ -802,11 +802,11 @@ static void ML_BSSN_RHS2_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 JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED; @@ -1462,401 +1462,401 @@ static void ML_BSSN_RHS2_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 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 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); - 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 Ats11 = + CCTK_REAL_VEC Ats11 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats12 = + CCTK_REAL_VEC Ats12 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats13 = + CCTK_REAL_VEC Ats13 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats22 = + CCTK_REAL_VEC Ats22 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats23 = + CCTK_REAL_VEC Ats23 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats33 = + CCTK_REAL_VEC Ats33 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trAts = + CCTK_REAL_VEC trAts CCTK_ATTRIBUTE_UNUSED = kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(em4phi,kmadd(g11,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats11),kmadd(kmadd(At11L,JacPDstandardNth1beta1,kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3))),ToReal(2),kmul(alphaL,kmadd(At11L,trKL,kmadd(kmadd(At11L,Atm11,kmadd(At12L,Atm21,kmul(At13L,Atm31))),ToReal(-2),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g11,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxxL),ToReal(3.14159265358979323846264338328)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmadd(At13L,JacPDstandardNth2beta3,kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth2beta2)),kmadd(em4phi,kmadd(g12,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats12),kmul(alphaL,kmadd(At12L,trKL,kmadd(kmadd(At11L,Atm12,kmadd(At12L,Atm22,kmul(At13L,Atm32))),ToReal(-2),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g12,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxyL),ToReal(3.14159265358979323846264338328))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmadd(At12L,JacPDstandardNth3beta2,kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)),kmadd(em4phi,kmadd(g13,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats13),kmul(alphaL,kmadd(At13L,trKL,kmadd(kmadd(At11L,Atm13,kmadd(At12L,Atm23,kmul(At13L,Atm33))),ToReal(-2),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g13,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxzL),ToReal(3.14159265358979323846264338328))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At22L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(em4phi,kmadd(g22,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats22),kmadd(kmadd(At12L,JacPDstandardNth2beta1,kmadd(At22L,JacPDstandardNth2beta2,kmul(At23L,JacPDstandardNth2beta3))),ToReal(2),kmul(alphaL,kmadd(At22L,trKL,kmadd(kmadd(At12L,Atm12,kmadd(At22L,Atm22,kmul(At23L,Atm32))),ToReal(-2),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g22,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyyL),ToReal(3.14159265358979323846264338328)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmadd(At22L,JacPDstandardNth3beta2,kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)),kmadd(em4phi,kmadd(g23,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats23),kmul(alphaL,kmadd(At23L,trKL,kmadd(kmadd(At12L,Atm13,kmadd(At22L,Atm23,kmul(At23L,Atm33))),ToReal(-2),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g23,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyzL),ToReal(3.14159265358979323846264338328))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At33L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(em4phi,kmadd(g33,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats33),kmadd(kmadd(At13L,JacPDstandardNth3beta1,kmadd(At23L,JacPDstandardNth3beta2,kmul(At33L,JacPDstandardNth3beta3))),ToReal(2),kmul(alphaL,kmadd(At33L,trKL,kmadd(kmadd(At13L,Atm13,kmadd(At23L,Atm23,kmul(At33L,Atm33))),ToReal(-2),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g33,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTzzL),ToReal(3.14159265358979323846264338328)))))))))); /* Copy local copies back to grid functions */ diff --git a/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc b/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc index 3bc86b5..a146eb9 100644 --- a/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc +++ b/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc @@ -303,55 +303,55 @@ static void ML_BSSN_RHSStaticBoundary_Body(const cGH* restrict const cctkGH, con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = ToReal(0); + CCTK_REAL_VEC ArhsL 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_BSSN/src/ML_BSSN_boundary.cc b/ML_BSSN/src/ML_BSSN_boundary.cc index 1aee41a..8cb7c4d 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.cc +++ b/ML_BSSN/src/ML_BSSN_boundary.cc @@ -303,56 +303,56 @@ static void ML_BSSN_boundary_Body(const cGH* restrict const cctkGH, const int di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); + CCTK_REAL_VEC Xt3L 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 AL = ToReal(0); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_BSSN/src/ML_BSSN_constraints1.cc b/ML_BSSN/src/ML_BSSN_constraints1.cc index af834a7..86c21b7 100644 --- a/ML_BSSN/src/ML_BSSN_constraints1.cc +++ b/ML_BSSN/src/ML_BSSN_constraints1.cc @@ -1266,356 +1266,356 @@ static void ML_BSSN_constraints1_Body(const cGH* restrict const cctkGH, const in 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 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 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 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trR = + CCTK_REAL_VEC trR CCTK_ATTRIBUTE_UNUSED = kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2))))); - 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 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 HL = + CCTK_REAL_VEC HL CCTK_ATTRIBUTE_UNUSED = kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),knmsub(Atm11,Atm11,knmsub(Atm22,Atm22,knmsub(Atm33,Atm33,kmadd(kmul(trKL,trKL),ToReal(0.666666666666666666666666666667),kmul(rho,ToReal(-50.2654824574366918154022941325)))))))); /* Copy local copies back to grid functions */ diff --git a/ML_BSSN/src/ML_BSSN_constraints2.cc b/ML_BSSN/src/ML_BSSN_constraints2.cc index f33cab2..29c7116 100644 --- a/ML_BSSN/src/ML_BSSN_constraints2.cc +++ b/ML_BSSN/src/ML_BSSN_constraints2.cc @@ -817,176 +817,176 @@ static void ML_BSSN_constraints2_Body(const cGH* restrict const cctkGH, const in JacPDstandardNth3trK = PDstandardNth3trK; } - 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 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 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 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 M1L = + CCTK_REAL_VEC M1L CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,ToReal(-25.1327412287183459077011470662)))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = + CCTK_REAL_VEC M2L CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,ToReal(-25.1327412287183459077011470662))))))))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = + CCTK_REAL_VEC M3L CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,ToReal(-25.1327412287183459077011470662))))))))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cSL = klog(detgt); + CCTK_REAL_VEC cSL CCTK_ATTRIBUTE_UNUSED = klog(detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt1L = + CCTK_REAL_VEC cXt1L CCTK_ATTRIBUTE_UNUSED = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt2L = + CCTK_REAL_VEC cXt2L CCTK_ATTRIBUTE_UNUSED = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt3L = + CCTK_REAL_VEC cXt3L CCTK_ATTRIBUTE_UNUSED = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cAL = + CCTK_REAL_VEC cAL CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2))))); /* Copy local copies back to grid functions */ diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc b/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc index 5bafb53..b843763 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc @@ -283,37 +283,37 @@ static void ML_BSSN_convertFromADMBase_Body(const cGH* restrict const cctkGH, co } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = gxxL; + CCTK_REAL_VEC g11 CCTK_ATTRIBUTE_UNUSED = gxxL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = gxyL; + CCTK_REAL_VEC g12 CCTK_ATTRIBUTE_UNUSED = gxyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = gxzL; + CCTK_REAL_VEC g13 CCTK_ATTRIBUTE_UNUSED = gxzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = gyyL; + CCTK_REAL_VEC g22 CCTK_ATTRIBUTE_UNUSED = gyyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = gyzL; + CCTK_REAL_VEC g23 CCTK_ATTRIBUTE_UNUSED = gyzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = gzzL; + CCTK_REAL_VEC g33 CCTK_ATTRIBUTE_UNUSED = gzzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detg = + CCTK_REAL_VEC detg CCTK_ATTRIBUTE_UNUSED = knmsub(g22,kmul(g13,g13),knmsub(g11,kmul(g23,g23),kmadd(g33,kmsub(g11,g22,kmul(g12,g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = + CCTK_REAL_VEC gu11 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g22,g33,kmul(g23,g23)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = + CCTK_REAL_VEC gu12 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g13,g23,kmul(g12,g33)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = + CCTK_REAL_VEC gu13 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12,g23,kmul(g13,g22)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = + CCTK_REAL_VEC gu22 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g11,g33,kmul(g13,g13)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = + CCTK_REAL_VEC gu23 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12,g13,kmul(g11,g23)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = + CCTK_REAL_VEC gu33 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g11,g22,kmul(g12,g12)),detg); CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED; @@ -331,46 +331,46 @@ static void ML_BSSN_convertFromADMBase_Body(const cGH* restrict const cctkGH, co em4phi = kexp(kmul(phiL,ToReal(-4))); } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = kmul(em4phi,g11); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g11); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = kmul(em4phi,g12); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g12); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = kmul(em4phi,g13); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g13); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = kmul(em4phi,g22); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g22); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = kmul(em4phi,g23); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g23); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = kmul(em4phi,g33); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g33); trKL = kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),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_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc index 2e00b28..48d8998 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc @@ -524,11 +524,11 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(const cGH* restrict const cctkG } /* 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 JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED; @@ -788,93 +788,93 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(const cGH* restrict const cctkG JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - 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 Gt111 = + CCTK_REAL_VEC Gt111 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = + CCTK_REAL_VEC Gt211 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = + CCTK_REAL_VEC Gt311 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = + CCTK_REAL_VEC Gt112 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = + CCTK_REAL_VEC Gt212 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = + CCTK_REAL_VEC Gt312 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = + CCTK_REAL_VEC Gt113 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = + CCTK_REAL_VEC Gt213 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = + CCTK_REAL_VEC Gt313 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = + CCTK_REAL_VEC Gt122 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = + CCTK_REAL_VEC Gt222 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = + CCTK_REAL_VEC Gt322 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = + CCTK_REAL_VEC Gt123 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = + CCTK_REAL_VEC Gt223 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = + CCTK_REAL_VEC Gt323 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = + CCTK_REAL_VEC Gt133 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = + CCTK_REAL_VEC Gt233 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = + CCTK_REAL_VEC Gt333 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = + CCTK_REAL_VEC Xt1L 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 Xt2L = + CCTK_REAL_VEC Xt2L 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 Xt3L = + CCTK_REAL_VEC Xt3L 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 AL = IfThen(LapseACoeff != + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = IfThen(LapseACoeff != 0,kneg(kmul(kmul(kpow(alphaL,-harmonicN),knmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),dtalpL)),ToReal(ScalarINV(harmonicF)))),ToReal(0)); - 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 B1L CCTK_ATTRIBUTE_UNUSED; diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc index 7d752d7..34bf402 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc @@ -289,7 +289,7 @@ static void ML_BSSN_convertToADMBase_Body(const cGH* restrict const cctkGH, cons } /* Calculate temporaries and grid functions */ - 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)))); gxxL = kmul(gt11L,e4phi); @@ -304,31 +304,31 @@ static void ML_BSSN_convertToADMBase_Body(const cGH* restrict const cctkGH, cons gzzL = kmul(gt33L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxxL = + CCTK_REAL_VEC kxxL CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxyL = + CCTK_REAL_VEC kxyL CCTK_ATTRIBUTE_UNUSED = kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxzL = + CCTK_REAL_VEC kxzL CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyyL = + CCTK_REAL_VEC kyyL CCTK_ATTRIBUTE_UNUSED = kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyzL = + CCTK_REAL_VEC kyzL CCTK_ATTRIBUTE_UNUSED = kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kzzL = + CCTK_REAL_VEC kzzL CCTK_ATTRIBUTE_UNUSED = kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpL = alphaL; + CCTK_REAL_VEC alpL CCTK_ATTRIBUTE_UNUSED = alphaL; - 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; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc index 660c154..9f3ef7a 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc @@ -556,11 +556,11 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(const cGH* restrict const } /* 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 JacPDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED; @@ -856,48 +856,48 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(const cGH* restrict const JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - 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 em4phi = IfThen(conformalMethod == + CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,kmul(phiL,phiL),kexp(kmul(phiL,ToReal(-4)))); - 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 CCTK_ATTRIBUTE_UNUSED dtalpL = + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = kmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetaxL = + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED = kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(em4phi,kmul(ToReal(-0.5),kmadd(gtu11,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu13,kadd(JacPDstandardNth1gt13,JacPDstandardNth3gt11),kmadd(gtu23,kadd(JacPDstandardNth2gt13,JacPDstandardNth3gt12),kmadd(gtu33,JacPDstandardNth3gt13,kmul(JacPDstandardNth1phi,IfThen(conformalMethod == 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt1),kmul(JacPDstandardNth1alpha,ToReal(2))),kmadd(gtu12,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu13,kadd(JacPDstandardNth1gt23,JacPDstandardNth3gt12),kmadd(gtu23,kadd(JacPDstandardNth2gt23,JacPDstandardNth3gt22),kmadd(gtu33,JacPDstandardNth3gt23,kmul(JacPDstandardNth2phi,IfThen(conformalMethod @@ -907,7 +907,7 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(const cGH* restrict const 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt3),kmul(JacPDstandardNth3alpha,ToReal(2))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetayL = + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED = kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(em4phi,kmul(ToReal(-0.5),kmadd(gtu12,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu13,kadd(JacPDstandardNth1gt13,JacPDstandardNth3gt11),kmadd(gtu23,kadd(JacPDstandardNth2gt13,JacPDstandardNth3gt12),kmadd(gtu33,JacPDstandardNth3gt13,kmul(JacPDstandardNth1phi,IfThen(conformalMethod == 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt1),kmul(JacPDstandardNth1alpha,ToReal(2))),kmadd(gtu22,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu13,kadd(JacPDstandardNth1gt23,JacPDstandardNth3gt12),kmadd(gtu23,kadd(JacPDstandardNth2gt23,JacPDstandardNth3gt22),kmadd(gtu33,JacPDstandardNth3gt23,kmul(JacPDstandardNth2phi,IfThen(conformalMethod @@ -917,7 +917,7 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(const cGH* restrict const 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt3),kmul(JacPDstandardNth3alpha,ToReal(2))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetazL = + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED = kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(em4phi,kmul(ToReal(-0.5),kmadd(gtu13,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu13,kadd(JacPDstandardNth1gt13,JacPDstandardNth3gt11),kmadd(gtu23,kadd(JacPDstandardNth2gt13,JacPDstandardNth3gt12),kmadd(gtu33,JacPDstandardNth3gt13,kmul(JacPDstandardNth1phi,IfThen(conformalMethod == 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt1),kmul(JacPDstandardNth1alpha,ToReal(2))),kmadd(gtu23,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu13,kadd(JacPDstandardNth1gt23,JacPDstandardNth3gt12),kmadd(gtu23,kadd(JacPDstandardNth2gt23,JacPDstandardNth3gt22),kmadd(gtu33,JacPDstandardNth3gt23,kmul(JacPDstandardNth2phi,IfThen(conformalMethod diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc index d7e5126..d0b97c6 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc @@ -295,13 +295,13 @@ static void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_Body(const cGH* restric } /* Calculate temporaries and grid functions */ - 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 dtalpL = + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL)))); CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED; diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc index 93279ba..863fc03 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc @@ -278,13 +278,13 @@ static void ML_BSSN_convertToADMBaseFakeDtLapseShift_Body(const cGH* restrict co } /* Calculate temporaries and grid functions */ - 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 dtalpL = + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL)))); CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED; diff --git a/ML_BSSN/src/ML_BSSN_enforce.cc b/ML_BSSN/src/ML_BSSN_enforce.cc index b212949..0bf023f 100644 --- a/ML_BSSN/src/ML_BSSN_enforce.cc +++ b/ML_BSSN/src/ML_BSSN_enforce.cc @@ -278,27 +278,27 @@ static void ML_BSSN_enforce_Body(const cGH* restrict const cctkGH, const int dir } /* Calculate temporaries and grid functions */ - 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 trAt = + CCTK_REAL_VEC trAt CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2))))); At11L = diff --git a/ML_CCZ4/src/ML_CCZ4_Advect.cc b/ML_CCZ4/src/ML_CCZ4_Advect.cc index f852792..0df36eb 100644 --- a/ML_CCZ4/src/ML_CCZ4_Advect.cc +++ b/ML_CCZ4/src/ML_CCZ4_Advect.cc @@ -1152,11 +1152,11 @@ static void ML_CCZ4_Advect_Body(const cGH* restrict const cctkGH, const int dir, } /* 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 JacPDupwindNthAnti1A CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED; diff --git a/ML_CCZ4/src/ML_CCZ4_Dissipation.cc b/ML_CCZ4/src/ML_CCZ4_Dissipation.cc index 0ef3e3d..e87da5b 100644 --- a/ML_CCZ4/src/ML_CCZ4_Dissipation.cc +++ b/ML_CCZ4/src/ML_CCZ4_Dissipation.cc @@ -1236,11 +1236,11 @@ static void ML_CCZ4_Dissipation_Body(const cGH* restrict const cctkGH, const int JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3; } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss1 = ToReal(EpsDiss); + CCTK_REAL_VEC epsdiss1 CCTK_ATTRIBUTE_UNUSED = ToReal(EpsDiss); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss2 = ToReal(EpsDiss); + CCTK_REAL_VEC epsdiss2 CCTK_ATTRIBUTE_UNUSED = ToReal(EpsDiss); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss3 = ToReal(EpsDiss); + CCTK_REAL_VEC epsdiss3 CCTK_ATTRIBUTE_UNUSED = ToReal(EpsDiss); phirhsL = kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi)))); diff --git a/ML_CCZ4/src/ML_CCZ4_InitGamma.cc b/ML_CCZ4/src/ML_CCZ4_InitGamma.cc index 6ba10be..cf4904b 100644 --- a/ML_CCZ4/src/ML_CCZ4_InitGamma.cc +++ b/ML_CCZ4/src/ML_CCZ4_InitGamma.cc @@ -265,19 +265,19 @@ static void ML_CCZ4_InitGamma_Body(const cGH* restrict const cctkGH, const int d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_CCZ4/src/ML_CCZ4_InitRHS.cc b/ML_CCZ4/src/ML_CCZ4_InitRHS.cc index f68fbfa..bca9d7f 100644 --- a/ML_CCZ4/src/ML_CCZ4_InitRHS.cc +++ b/ML_CCZ4/src/ML_CCZ4_InitRHS.cc @@ -265,57 +265,57 @@ static void ML_CCZ4_InitRHS_Body(const cGH* restrict const cctkGH, const int dir } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = ToReal(0); + CCTK_REAL_VEC ArhsL 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetarhsL = ToReal(0); + CCTK_REAL_VEC ThetarhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_CCZ4/src/ML_CCZ4_Minkowski.cc b/ML_CCZ4/src/ML_CCZ4_Minkowski.cc index 895efea..572472a 100644 --- a/ML_CCZ4/src/ML_CCZ4_Minkowski.cc +++ b/ML_CCZ4/src/ML_CCZ4_Minkowski.cc @@ -265,58 +265,58 @@ static void ML_CCZ4_Minkowski_Body(const cGH* restrict const cctkGH, const int d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); + CCTK_REAL_VEC Xt3L 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 AL = ToReal(0); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetaL = ToReal(0); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); 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 */ diff --git a/ML_CCZ4/src/ML_CCZ4_RHS2.cc b/ML_CCZ4/src/ML_CCZ4_RHS2.cc index 59c72ad..23ef34e 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHS2.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHS2.cc @@ -803,11 +803,11 @@ static void ML_CCZ4_RHS2_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 JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED; @@ -1463,369 +1463,369 @@ static void ML_CCZ4_RHS2_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 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))); @@ -1845,46 +1845,46 @@ static void ML_CCZ4_RHS2_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 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 Ats11 = + CCTK_REAL_VEC Ats11 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats12 = + CCTK_REAL_VEC Ats12 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats13 = + CCTK_REAL_VEC Ats13 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats22 = + CCTK_REAL_VEC Ats22 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats23 = + CCTK_REAL_VEC Ats23 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats33 = + CCTK_REAL_VEC Ats33 CCTK_ATTRIBUTE_UNUSED = kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trAts = + CCTK_REAL_VEC trAts CCTK_ATTRIBUTE_UNUSED = kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(em4phi,kmadd(g11,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats11),kmadd(kmadd(At11L,JacPDstandardNth1beta1,kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3))),ToReal(2),kmul(alphaL,kmadd(kmadd(At11L,Atm11,kmadd(At12L,Atm21,kmul(At13L,Atm31))),ToReal(-2),kmadd(At11L,kmadd(ThetaL,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g11,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxxL),ToReal(3.14159265358979323846264338328)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmadd(At13L,JacPDstandardNth2beta3,kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth2beta2)),kmadd(em4phi,kmadd(g12,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats12),kmul(alphaL,kmadd(kmadd(At11L,Atm12,kmadd(At12L,Atm22,kmul(At13L,Atm32))),ToReal(-2),kmadd(At12L,kmadd(ThetaL,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g12,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxyL),ToReal(3.14159265358979323846264338328))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmadd(At12L,JacPDstandardNth3beta2,kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)),kmadd(em4phi,kmadd(g13,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats13),kmul(alphaL,kmadd(kmadd(At11L,Atm13,kmadd(At12L,Atm23,kmul(At13L,Atm33))),ToReal(-2),kmadd(At13L,kmadd(ThetaL,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g13,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxzL),ToReal(3.14159265358979323846264338328))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At22L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(em4phi,kmadd(g22,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats22),kmadd(kmadd(At12L,JacPDstandardNth2beta1,kmadd(At22L,JacPDstandardNth2beta2,kmul(At23L,JacPDstandardNth2beta3))),ToReal(2),kmul(alphaL,kmadd(kmadd(At12L,Atm12,kmadd(At22L,Atm22,kmul(At23L,Atm32))),ToReal(-2),kmadd(At22L,kmadd(ThetaL,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g22,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyyL),ToReal(3.14159265358979323846264338328)))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmadd(At22L,JacPDstandardNth3beta2,kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667),JacPDstandardNth3beta3)),kmadd(em4phi,kmadd(g23,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats23),kmul(alphaL,kmadd(kmadd(At12L,Atm13,kmadd(At22L,Atm23,kmul(At23L,Atm33))),ToReal(-2),kmadd(At23L,kmadd(ThetaL,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g23,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyzL),ToReal(3.14159265358979323846264338328))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = kmadd(At33L,kmul(kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3)),ToReal(-0.666666666666666666666666666667)),kmadd(em4phi,kmadd(g33,kmul(trAts,ToReal(-0.333333333333333333333333333333)),Ats33),kmadd(kmadd(At13L,JacPDstandardNth3beta1,kmadd(At23L,JacPDstandardNth3beta2,kmul(At33L,JacPDstandardNth3beta3))),ToReal(2),kmul(alphaL,kmadd(kmadd(At13L,Atm13,kmadd(At23L,Atm23,kmul(At33L,Atm33))),ToReal(-2),kmadd(At33L,kmadd(ThetaL,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g33,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTzzL),ToReal(3.14159265358979323846264338328)))))))))); /* Copy local copies back to grid functions */ diff --git a/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc b/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc index e5d99d1..c6e426c 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc @@ -306,57 +306,57 @@ static void ML_CCZ4_RHSStaticBoundary_Body(const cGH* restrict const cctkGH, con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = ToReal(0); + CCTK_REAL_VEC ArhsL 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetarhsL = ToReal(0); + CCTK_REAL_VEC ThetarhsL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_CCZ4/src/ML_CCZ4_boundary.cc b/ML_CCZ4/src/ML_CCZ4_boundary.cc index c87d554..798b00b 100644 --- a/ML_CCZ4/src/ML_CCZ4_boundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_boundary.cc @@ -306,58 +306,58 @@ static void ML_CCZ4_boundary_Body(const cGH* restrict const cctkGH, const int di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = ToReal(1); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); + CCTK_REAL_VEC Xt3L 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 AL = ToReal(0); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = ToReal(0); - 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); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = ToReal(0); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetaL = ToReal(0); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_CCZ4/src/ML_CCZ4_constraints1.cc b/ML_CCZ4/src/ML_CCZ4_constraints1.cc index 817d4fe..994ece9 100644 --- a/ML_CCZ4/src/ML_CCZ4_constraints1.cc +++ b/ML_CCZ4/src/ML_CCZ4_constraints1.cc @@ -1266,342 +1266,342 @@ static void ML_CCZ4_constraints1_Body(const cGH* restrict const cctkGH, const in 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 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))); @@ -1621,40 +1621,40 @@ static void ML_CCZ4_constraints1_Body(const cGH* restrict const cctkGH, const in 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 trR = + CCTK_REAL_VEC trR CCTK_ATTRIBUTE_UNUSED = kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2))))); - 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 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 HL = + CCTK_REAL_VEC HL CCTK_ATTRIBUTE_UNUSED = kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),knmsub(Atm11,Atm11,knmsub(Atm22,Atm22,knmsub(Atm33,Atm33,kmadd(kmul(trKL,trKL),ToReal(0.666666666666666666666666666667),kmul(rho,ToReal(-50.2654824574366918154022941325)))))))); /* Copy local copies back to grid functions */ diff --git a/ML_CCZ4/src/ML_CCZ4_constraints2.cc b/ML_CCZ4/src/ML_CCZ4_constraints2.cc index 9246661..891bb60 100644 --- a/ML_CCZ4/src/ML_CCZ4_constraints2.cc +++ b/ML_CCZ4/src/ML_CCZ4_constraints2.cc @@ -1504,342 +1504,342 @@ static void ML_CCZ4_constraints2_Body(const cGH* restrict const cctkGH, const in 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 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))); @@ -1859,36 +1859,36 @@ static void ML_CCZ4_constraints2_Body(const cGH* restrict const cctkGH, const in 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 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 M1L = + CCTK_REAL_VEC M1L CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,ToReal(-25.1327412287183459077011470662)))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = + CCTK_REAL_VEC M2L CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,ToReal(-25.1327412287183459077011470662))))))))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = + CCTK_REAL_VEC M3L CCTK_ATTRIBUTE_UNUSED = kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,ToReal(-25.1327412287183459077011470662))))))))))))))))))))))))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cSL = klog(detgt); + CCTK_REAL_VEC cSL CCTK_ATTRIBUTE_UNUSED = klog(detgt); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt1L = + CCTK_REAL_VEC cXt1L CCTK_ATTRIBUTE_UNUSED = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt2L = + CCTK_REAL_VEC cXt2L CCTK_ATTRIBUTE_UNUSED = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt3L = + CCTK_REAL_VEC cXt3L CCTK_ATTRIBUTE_UNUSED = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cAL = + CCTK_REAL_VEC cAL CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2))))); /* Copy local copies back to grid functions */ diff --git a/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc b/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc index 3f02ea3..bec9972 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc @@ -283,37 +283,37 @@ static void ML_CCZ4_convertFromADMBase_Body(const cGH* restrict const cctkGH, co } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = gxxL; + CCTK_REAL_VEC g11 CCTK_ATTRIBUTE_UNUSED = gxxL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = gxyL; + CCTK_REAL_VEC g12 CCTK_ATTRIBUTE_UNUSED = gxyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = gxzL; + CCTK_REAL_VEC g13 CCTK_ATTRIBUTE_UNUSED = gxzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = gyyL; + CCTK_REAL_VEC g22 CCTK_ATTRIBUTE_UNUSED = gyyL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = gyzL; + CCTK_REAL_VEC g23 CCTK_ATTRIBUTE_UNUSED = gyzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = gzzL; + CCTK_REAL_VEC g33 CCTK_ATTRIBUTE_UNUSED = gzzL; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detg = + CCTK_REAL_VEC detg CCTK_ATTRIBUTE_UNUSED = knmsub(g22,kmul(g13,g13),knmsub(g11,kmul(g23,g23),kmadd(g33,kmsub(g11,g22,kmul(g12,g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2))))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = + CCTK_REAL_VEC gu11 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g22,g33,kmul(g23,g23)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = + CCTK_REAL_VEC gu12 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g13,g23,kmul(g12,g33)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = + CCTK_REAL_VEC gu13 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12,g23,kmul(g13,g22)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = + CCTK_REAL_VEC gu22 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g11,g33,kmul(g13,g13)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = + CCTK_REAL_VEC gu23 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g12,g13,kmul(g11,g23)),detg); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = + CCTK_REAL_VEC gu33 CCTK_ATTRIBUTE_UNUSED = kdiv(kmsub(g11,g22,kmul(g12,g12)),detg); CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED; @@ -331,48 +331,48 @@ static void ML_CCZ4_convertFromADMBase_Body(const cGH* restrict const cctkGH, co em4phi = kexp(kmul(phiL,ToReal(-4))); } - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = kmul(em4phi,g11); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g11); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = kmul(em4phi,g12); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g12); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = kmul(em4phi,g13); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g13); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = kmul(em4phi,g22); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g22); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = kmul(em4phi,g23); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g23); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = kmul(em4phi,g33); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,g33); trKL = kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),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; - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetaL = ToReal(0); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc b/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc index a2d6a0f..310e568 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc @@ -524,11 +524,11 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(const cGH* restrict const cctkG } /* 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 JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED; @@ -788,93 +788,93 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(const cGH* restrict const cctkG JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - 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 Gt111 = + CCTK_REAL_VEC Gt111 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = + CCTK_REAL_VEC Gt211 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = + CCTK_REAL_VEC Gt311 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = + CCTK_REAL_VEC Gt112 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = + CCTK_REAL_VEC Gt212 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = + CCTK_REAL_VEC Gt312 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = + CCTK_REAL_VEC Gt113 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = + CCTK_REAL_VEC Gt213 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = + CCTK_REAL_VEC Gt313 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = + CCTK_REAL_VEC Gt122 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = + CCTK_REAL_VEC Gt222 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = + CCTK_REAL_VEC Gt322 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = + CCTK_REAL_VEC Gt123 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = + CCTK_REAL_VEC Gt223 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = + CCTK_REAL_VEC Gt323 CCTK_ATTRIBUTE_UNUSED = kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = + CCTK_REAL_VEC Gt133 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = + CCTK_REAL_VEC Gt233 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = + CCTK_REAL_VEC Gt333 CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = + CCTK_REAL_VEC Xt1L 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 Xt2L = + CCTK_REAL_VEC Xt2L 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 Xt3L = + CCTK_REAL_VEC Xt3L 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 AL = IfThen(LapseACoeff != + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = IfThen(LapseACoeff != 0,kneg(kmul(kmul(kpow(alphaL,-harmonicN),knmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),dtalpL)),ToReal(ScalarINV(harmonicF)))),ToReal(0)); - 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 B1L CCTK_ATTRIBUTE_UNUSED; diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc index 9a438cf..97ed004 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc @@ -289,7 +289,7 @@ static void ML_CCZ4_convertToADMBase_Body(const cGH* restrict const cctkGH, cons } /* Calculate temporaries and grid functions */ - 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)))); gxxL = kmul(gt11L,e4phi); @@ -304,31 +304,31 @@ static void ML_CCZ4_convertToADMBase_Body(const cGH* restrict const cctkGH, cons gzzL = kmul(gt33L,e4phi); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxxL = + CCTK_REAL_VEC kxxL CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxyL = + CCTK_REAL_VEC kxyL CCTK_ATTRIBUTE_UNUSED = kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxzL = + CCTK_REAL_VEC kxzL CCTK_ATTRIBUTE_UNUSED = kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyyL = + CCTK_REAL_VEC kyyL CCTK_ATTRIBUTE_UNUSED = kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyzL = + CCTK_REAL_VEC kyzL CCTK_ATTRIBUTE_UNUSED = kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kzzL = + CCTK_REAL_VEC kzzL CCTK_ATTRIBUTE_UNUSED = kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpL = alphaL; + CCTK_REAL_VEC alpL CCTK_ATTRIBUTE_UNUSED = alphaL; - 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; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,vecimin,vecimax); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc index e81660e..6d6b3ae 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc @@ -557,11 +557,11 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(const cGH* restrict const } /* 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 JacPDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED; CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED; @@ -857,49 +857,49 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(const cGH* restrict const JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - 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 em4phi = IfThen(conformalMethod == + CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED = IfThen(conformalMethod == 1,kmul(phiL,phiL),kexp(kmul(phiL,ToReal(-4)))); - 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 CCTK_ATTRIBUTE_UNUSED dtalpL = + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = kmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmsub(ThetaL,ToReal(2),trKL),ToReal(-1 + LapseACoeff)))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetaxL = + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED = kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(em4phi,kmul(ToReal(-0.5),kmadd(gtu11,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu13,kadd(JacPDstandardNth1gt13,JacPDstandardNth3gt11),kmadd(gtu23,kadd(JacPDstandardNth2gt13,JacPDstandardNth3gt12),kmadd(gtu33,JacPDstandardNth3gt13,kmul(JacPDstandardNth1phi,IfThen(conformalMethod == 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt1),kmul(JacPDstandardNth1alpha,ToReal(2))),kmadd(gtu12,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu13,kadd(JacPDstandardNth1gt23,JacPDstandardNth3gt12),kmadd(gtu23,kadd(JacPDstandardNth2gt23,JacPDstandardNth3gt22),kmadd(gtu33,JacPDstandardNth3gt23,kmul(JacPDstandardNth2phi,IfThen(conformalMethod @@ -909,7 +909,7 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(const cGH* restrict const 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt3),kmul(JacPDstandardNth3alpha,ToReal(2))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetayL = + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED = kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(em4phi,kmul(ToReal(-0.5),kmadd(gtu12,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu13,kadd(JacPDstandardNth1gt13,JacPDstandardNth3gt11),kmadd(gtu23,kadd(JacPDstandardNth2gt13,JacPDstandardNth3gt12),kmadd(gtu33,JacPDstandardNth3gt13,kmul(JacPDstandardNth1phi,IfThen(conformalMethod == 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt1),kmul(JacPDstandardNth1alpha,ToReal(2))),kmadd(gtu22,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu13,kadd(JacPDstandardNth1gt23,JacPDstandardNth3gt12),kmadd(gtu23,kadd(JacPDstandardNth2gt23,JacPDstandardNth3gt22),kmadd(gtu33,JacPDstandardNth3gt23,kmul(JacPDstandardNth2phi,IfThen(conformalMethod @@ -919,7 +919,7 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(const cGH* restrict const 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt3),kmul(JacPDstandardNth3alpha,ToReal(2))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetazL = + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED = kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(em4phi,kmul(ToReal(-0.5),kmadd(gtu13,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kadd(JacPDstandardNth1gt12,JacPDstandardNth2gt11),kmadd(gtu22,JacPDstandardNth2gt12,kmadd(gtu13,kadd(JacPDstandardNth1gt13,JacPDstandardNth3gt11),kmadd(gtu23,kadd(JacPDstandardNth2gt13,JacPDstandardNth3gt12),kmadd(gtu33,JacPDstandardNth3gt13,kmul(JacPDstandardNth1phi,IfThen(conformalMethod == 1,kdiv(ToReal(1),phiL),ToReal(-2))))))))),ToReal(-2),Ddetgt1),kmul(JacPDstandardNth1alpha,ToReal(2))),kmadd(gtu23,kmadd(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,kadd(JacPDstandardNth1gt22,JacPDstandardNth2gt12),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu13,kadd(JacPDstandardNth1gt23,JacPDstandardNth3gt12),kmadd(gtu23,kadd(JacPDstandardNth2gt23,JacPDstandardNth3gt22),kmadd(gtu33,JacPDstandardNth3gt23,kmul(JacPDstandardNth2phi,IfThen(conformalMethod diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc index 219af3f..b06a267 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc @@ -296,13 +296,13 @@ static void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_Body(const cGH* restric } /* Calculate temporaries and grid functions */ - 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 dtalpL = + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmsub(ThetaL,ToReal(2),trKL),ToReal(-1 + LapseACoeff)))))); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc index 10b1afa..55a2be8 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc @@ -279,13 +279,13 @@ static void ML_CCZ4_convertToADMBaseFakeDtLapseShift_Body(const cGH* restrict co } /* Calculate temporaries and grid functions */ - 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 dtalpL = + CCTK_REAL_VEC dtalpL CCTK_ATTRIBUTE_UNUSED = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmsub(ThetaL,ToReal(2),trKL),ToReal(-1 + LapseACoeff)))))); diff --git a/ML_CCZ4/src/ML_CCZ4_enforce.cc b/ML_CCZ4/src/ML_CCZ4_enforce.cc index e2fca0b..d66371b 100644 --- a/ML_CCZ4/src/ML_CCZ4_enforce.cc +++ b/ML_CCZ4/src/ML_CCZ4_enforce.cc @@ -278,27 +278,27 @@ static void ML_CCZ4_enforce_Body(const cGH* restrict const cctkGH, const int dir } /* Calculate temporaries and grid functions */ - 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 trAt = + CCTK_REAL_VEC trAt CCTK_ATTRIBUTE_UNUSED = kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2))))); At11L = |