diff options
Diffstat (limited to 'ML_CCZ4/src/ML_CCZ4_enforce.cc')
| -rw-r--r-- | ML_CCZ4/src/ML_CCZ4_enforce.cc | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ML_CCZ4/src/ML_CCZ4_enforce.cc b/ML_CCZ4/src/ML_CCZ4_enforce.cc index abe6963..ff8141b 100644 --- a/ML_CCZ4/src/ML_CCZ4_enforce.cc +++ b/ML_CCZ4/src/ML_CCZ4_enforce.cc @@ -117,12 +117,12 @@ static void ML_CCZ4_enforce_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL_VEC const p1o840dx = kdiv(ToReal(0.00119047619047619047619047619048),dx); CCTK_REAL_VEC const p1o840dy = kdiv(ToReal(0.00119047619047619047619047619048),dy); CCTK_REAL_VEC const p1o840dz = kdiv(ToReal(0.00119047619047619047619047619048),dz); - CCTK_REAL_VEC const p1odx = kdiv(ToReal(1.),dx); - CCTK_REAL_VEC const p1odx2 = kdiv(ToReal(1.),kmul(dx,dx)); - CCTK_REAL_VEC const p1ody = kdiv(ToReal(1.),dy); - CCTK_REAL_VEC const p1ody2 = kdiv(ToReal(1.),kmul(dy,dy)); - CCTK_REAL_VEC const p1odz = kdiv(ToReal(1.),dz); - CCTK_REAL_VEC const p1odz2 = kdiv(ToReal(1.),kmul(dz,dz)); + CCTK_REAL_VEC const p1odx = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 = kdiv(ToReal(1),kmul(dz,dz)); CCTK_REAL_VEC const pm1o120dx = kdiv(ToReal(-0.00833333333333333333333333333333),dx); CCTK_REAL_VEC const pm1o120dy = kdiv(ToReal(-0.00833333333333333333333333333333),dy); CCTK_REAL_VEC const pm1o120dz = kdiv(ToReal(-0.00833333333333333333333333333333),dz); @@ -239,7 +239,7 @@ static void ML_CCZ4_enforce_Body(cGH const * restrict const cctkGH, int const di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC detgt = ToReal(1.); + CCTK_REAL_VEC detgt = ToReal(1); CCTK_REAL_VEC gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); @@ -260,7 +260,7 @@ static void ML_CCZ4_enforce_Body(cGH const * restrict const cctkGH, int const di kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); CCTK_REAL_VEC trAt = - kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2.))))); + kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2))))); At11L = kmadd(gt11L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At11L); |