diff options
Diffstat (limited to 'ML_BSSN/src/ML_BSSN_RHS1.cc')
-rw-r--r-- | ML_BSSN/src/ML_BSSN_RHS1.cc | 200 |
1 files changed, 100 insertions, 100 deletions
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 */ |