diff options
Diffstat (limited to 'ML_ADM/src/ML_ADM_RHS.cc')
| -rw-r--r-- | ML_ADM/src/ML_ADM_RHS.cc | 712 |
1 files changed, 356 insertions, 356 deletions
diff --git a/ML_ADM/src/ML_ADM_RHS.cc b/ML_ADM/src/ML_ADM_RHS.cc index b285f04..16b162d 100644 --- a/ML_ADM/src/ML_ADM_RHS.cc +++ b/ML_ADM/src/ML_ADM_RHS.cc @@ -32,7 +32,7 @@ extern "C" void ML_ADM_RHS_SelectBCs(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADM::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_ADM::ML_curvrhs."); @@ -57,66 +57,66 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in /* Include user-supplied include files */ /* Initialise finite differencing variables */ - ptrdiff_t const di = 1; - ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const cdi = sizeof(CCTK_REAL) * di; - ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj; - ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk; - CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0)); - CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1)); - CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME); - CCTK_REAL_VEC const t = ToReal(cctk_time); - CCTK_REAL_VEC const dxi = INV(dx); - CCTK_REAL_VEC const dyi = INV(dy); - CCTK_REAL_VEC const dzi = INV(dz); - CCTK_REAL_VEC const khalf = ToReal(0.5); - CCTK_REAL_VEC const kthird = ToReal(1.0/3.0); - CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0); - CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0); - CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0); - CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi); - CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi); - CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi); + ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1; + ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); + ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); + ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di; + ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj; + ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk; + CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0)); + CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1)); + CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2)); + CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME); + CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time); + CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx); + CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); + CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); + CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5); + CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0); + CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0); + CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0); + CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0); + CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi); + CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi); + CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi); /* Initialize predefined quantities */ - CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz); - CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx)); - CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx)); - CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy)); - CCTK_REAL_VEC const p1o180dx2 = kdiv(ToReal(0.00555555555555555555555555555556),kmul(dx,dx)); - CCTK_REAL_VEC const p1o180dy2 = kdiv(ToReal(0.00555555555555555555555555555556),kmul(dy,dy)); - CCTK_REAL_VEC const p1o180dz2 = kdiv(ToReal(0.00555555555555555555555555555556),kmul(dz,dz)); - CCTK_REAL_VEC const p1o2dx = kdiv(ToReal(0.5),dx); - CCTK_REAL_VEC const p1o2dy = kdiv(ToReal(0.5),dy); - CCTK_REAL_VEC const p1o2dz = kdiv(ToReal(0.5),dz); - CCTK_REAL_VEC const p1o3600dxdy = kdiv(ToReal(0.000277777777777777777777777777778),kmul(dy,dx)); - CCTK_REAL_VEC const p1o3600dxdz = kdiv(ToReal(0.000277777777777777777777777777778),kmul(dz,dx)); - CCTK_REAL_VEC const p1o3600dydz = kdiv(ToReal(0.000277777777777777777777777777778),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dxdy = kdiv(ToReal(0.25),kmul(dy,dx)); - CCTK_REAL_VEC const p1o4dxdz = kdiv(ToReal(0.25),kmul(dz,dx)); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o5040dx2 = kdiv(ToReal(0.000198412698412698412698412698413),kmul(dx,dx)); - CCTK_REAL_VEC const p1o5040dy2 = kdiv(ToReal(0.000198412698412698412698412698413),kmul(dy,dy)); - CCTK_REAL_VEC const p1o5040dz2 = kdiv(ToReal(0.000198412698412698412698412698413),kmul(dz,dz)); - CCTK_REAL_VEC const p1o60dx = kdiv(ToReal(0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o60dy = kdiv(ToReal(0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o60dz = kdiv(ToReal(0.0166666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o705600dxdy = kdiv(ToReal(1.41723356009070294784580498866e-6),kmul(dy,dx)); - CCTK_REAL_VEC const p1o705600dxdz = kdiv(ToReal(1.41723356009070294784580498866e-6),kmul(dz,dx)); - CCTK_REAL_VEC const p1o705600dydz = kdiv(ToReal(1.41723356009070294784580498866e-6),kmul(dz,dy)); - 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 p1odx2 = kdiv(ToReal(1),kmul(dx,dx)); - CCTK_REAL_VEC const p1ody2 = kdiv(ToReal(1),kmul(dy,dy)); - CCTK_REAL_VEC const p1odz2 = kdiv(ToReal(1),kmul(dz,dz)); - CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx)); - CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy)); - CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz)); + CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz); + CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx)); + CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx)); + CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy)); + CCTK_REAL_VEC const p1o180dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00555555555555555555555555555556),kmul(dx,dx)); + CCTK_REAL_VEC const p1o180dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00555555555555555555555555555556),kmul(dy,dy)); + CCTK_REAL_VEC const p1o180dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00555555555555555555555555555556),kmul(dz,dz)); + CCTK_REAL_VEC const p1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.5),dx); + CCTK_REAL_VEC const p1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.5),dy); + CCTK_REAL_VEC const p1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.5),dz); + CCTK_REAL_VEC const p1o3600dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000277777777777777777777777777778),kmul(dy,dx)); + CCTK_REAL_VEC const p1o3600dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000277777777777777777777777777778),kmul(dz,dx)); + CCTK_REAL_VEC const p1o3600dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000277777777777777777777777777778),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dy,dx)); + CCTK_REAL_VEC const p1o4dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dx)); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o5040dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000198412698412698412698412698413),kmul(dx,dx)); + CCTK_REAL_VEC const p1o5040dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000198412698412698412698412698413),kmul(dy,dy)); + CCTK_REAL_VEC const p1o5040dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000198412698412698412698412698413),kmul(dz,dz)); + CCTK_REAL_VEC const p1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o705600dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1.41723356009070294784580498866e-6),kmul(dy,dx)); + CCTK_REAL_VEC const p1o705600dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1.41723356009070294784580498866e-6),kmul(dz,dx)); + CCTK_REAL_VEC const p1o705600dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1.41723356009070294784580498866e-6),kmul(dz,dy)); + CCTK_REAL_VEC const p1o840dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00119047619047619047619047619048),dx); + CCTK_REAL_VEC const p1o840dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00119047619047619047619047619048),dy); + CCTK_REAL_VEC const p1o840dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00119047619047619047619047619048),dz); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx)); + CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy)); + CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz)); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -130,38 +130,38 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group, 9, jacobian_ptrs); - CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0; - CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0; - CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0; - CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0; - CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0; - CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0; - CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0; - CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0; - CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0; + CCTK_REAL const *restrict const J11 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[0] : 0; + CCTK_REAL const *restrict const J12 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[1] : 0; + CCTK_REAL const *restrict const J13 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[2] : 0; + CCTK_REAL const *restrict const J21 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[3] : 0; + CCTK_REAL const *restrict const J22 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[4] : 0; + CCTK_REAL const *restrict const J23 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[5] : 0; + CCTK_REAL const *restrict const J31 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[6] : 0; + CCTK_REAL const *restrict const J32 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[7] : 0; + CCTK_REAL const *restrict const J33 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_ptrs[8] : 0; - CCTK_REAL const *restrict jacobian_derivative_ptrs[18]; + CCTK_REAL const *restrict jacobian_derivative_ptrs[18] CCTK_ATTRIBUTE_UNUSED; if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group, 18, jacobian_derivative_ptrs); - CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0; - CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0; - CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0; - CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0; - CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0; - CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0; - CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0; - CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0; - CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0; - CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0; - CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0; - CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0; - CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0; - CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0; - CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0; - CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0; - CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0; - CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0; + CCTK_REAL const *restrict const dJ111 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[0] : 0; + CCTK_REAL const *restrict const dJ112 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[1] : 0; + CCTK_REAL const *restrict const dJ113 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[2] : 0; + CCTK_REAL const *restrict const dJ122 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[3] : 0; + CCTK_REAL const *restrict const dJ123 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[4] : 0; + CCTK_REAL const *restrict const dJ133 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[5] : 0; + CCTK_REAL const *restrict const dJ211 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[6] : 0; + CCTK_REAL const *restrict const dJ212 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[7] : 0; + CCTK_REAL const *restrict const dJ213 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[8] : 0; + CCTK_REAL const *restrict const dJ222 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[9] : 0; + CCTK_REAL const *restrict const dJ223 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[10] : 0; + CCTK_REAL const *restrict const dJ233 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[11] : 0; + CCTK_REAL const *restrict const dJ311 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[12] : 0; + CCTK_REAL const *restrict const dJ312 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[13] : 0; + CCTK_REAL const *restrict const dJ313 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[14] : 0; + CCTK_REAL const *restrict const dJ322 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[15] : 0; + CCTK_REAL const *restrict const dJ323 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[16] : 0; + CCTK_REAL const *restrict const dJ333 CCTK_ATTRIBUTE_UNUSED = use_jacobian ? jacobian_derivative_ptrs[17] : 0; /* Assign local copies of arrays functions */ @@ -178,29 +178,29 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in cctk_ash[0],cctk_ash[1],cctk_ash[2], CCTK_REAL_VEC_SIZE) { - ptrdiff_t const index = di*i + dj*j + dk*k; + ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k; /* Assign local copies of grid functions */ - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC beta1L = vec_load(beta1[index]); - CCTK_REAL_VEC beta2L = vec_load(beta2[index]); - CCTK_REAL_VEC beta3L = vec_load(beta3[index]); - CCTK_REAL_VEC g11L = vec_load(g11[index]); - CCTK_REAL_VEC g12L = vec_load(g12[index]); - CCTK_REAL_VEC g13L = vec_load(g13[index]); - CCTK_REAL_VEC g22L = vec_load(g22[index]); - CCTK_REAL_VEC g23L = vec_load(g23[index]); - CCTK_REAL_VEC g33L = vec_load(g33[index]); - CCTK_REAL_VEC K11L = vec_load(K11[index]); - CCTK_REAL_VEC K12L = vec_load(K12[index]); - CCTK_REAL_VEC K13L = vec_load(K13[index]); - CCTK_REAL_VEC K22L = vec_load(K22[index]); - CCTK_REAL_VEC K23L = vec_load(K23[index]); - CCTK_REAL_VEC K33L = vec_load(K33[index]); - - - CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = vec_load(beta1[index]); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = vec_load(beta2[index]); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = vec_load(beta3[index]); + CCTK_REAL_VEC g11L CCTK_ATTRIBUTE_UNUSED = vec_load(g11[index]); + CCTK_REAL_VEC g12L CCTK_ATTRIBUTE_UNUSED = vec_load(g12[index]); + CCTK_REAL_VEC g13L CCTK_ATTRIBUTE_UNUSED = vec_load(g13[index]); + CCTK_REAL_VEC g22L CCTK_ATTRIBUTE_UNUSED = vec_load(g22[index]); + CCTK_REAL_VEC g23L CCTK_ATTRIBUTE_UNUSED = vec_load(g23[index]); + CCTK_REAL_VEC g33L CCTK_ATTRIBUTE_UNUSED = vec_load(g33[index]); + CCTK_REAL_VEC K11L CCTK_ATTRIBUTE_UNUSED = vec_load(K11[index]); + CCTK_REAL_VEC K12L CCTK_ATTRIBUTE_UNUSED = vec_load(K12[index]); + CCTK_REAL_VEC K13L CCTK_ATTRIBUTE_UNUSED = vec_load(K13[index]); + CCTK_REAL_VEC K22L CCTK_ATTRIBUTE_UNUSED = vec_load(K22[index]); + CCTK_REAL_VEC K23L CCTK_ATTRIBUTE_UNUSED = vec_load(K23[index]); + CCTK_REAL_VEC K33L CCTK_ATTRIBUTE_UNUSED = vec_load(K33[index]); + + + CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -236,96 +236,96 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1alpha; - CCTK_REAL_VEC PDstandardNth2alpha; - CCTK_REAL_VEC PDstandardNth3alpha; - CCTK_REAL_VEC PDstandardNth11alpha; - CCTK_REAL_VEC PDstandardNth22alpha; - CCTK_REAL_VEC PDstandardNth33alpha; - CCTK_REAL_VEC PDstandardNth12alpha; - CCTK_REAL_VEC PDstandardNth13alpha; - CCTK_REAL_VEC PDstandardNth23alpha; - CCTK_REAL_VEC PDstandardNth1beta1; - CCTK_REAL_VEC PDstandardNth2beta1; - CCTK_REAL_VEC PDstandardNth3beta1; - CCTK_REAL_VEC PDstandardNth1beta2; - CCTK_REAL_VEC PDstandardNth2beta2; - CCTK_REAL_VEC PDstandardNth3beta2; - CCTK_REAL_VEC PDstandardNth1beta3; - CCTK_REAL_VEC PDstandardNth2beta3; - CCTK_REAL_VEC PDstandardNth3beta3; - CCTK_REAL_VEC PDstandardNth1g11; - CCTK_REAL_VEC PDstandardNth2g11; - CCTK_REAL_VEC PDstandardNth3g11; - CCTK_REAL_VEC PDstandardNth11g11; - CCTK_REAL_VEC PDstandardNth22g11; - CCTK_REAL_VEC PDstandardNth33g11; - CCTK_REAL_VEC PDstandardNth12g11; - CCTK_REAL_VEC PDstandardNth13g11; - CCTK_REAL_VEC PDstandardNth23g11; - CCTK_REAL_VEC PDstandardNth1g12; - CCTK_REAL_VEC PDstandardNth2g12; - CCTK_REAL_VEC PDstandardNth3g12; - CCTK_REAL_VEC PDstandardNth11g12; - CCTK_REAL_VEC PDstandardNth22g12; - CCTK_REAL_VEC PDstandardNth33g12; - CCTK_REAL_VEC PDstandardNth12g12; - CCTK_REAL_VEC PDstandardNth13g12; - CCTK_REAL_VEC PDstandardNth23g12; - CCTK_REAL_VEC PDstandardNth1g13; - CCTK_REAL_VEC PDstandardNth2g13; - CCTK_REAL_VEC PDstandardNth3g13; - CCTK_REAL_VEC PDstandardNth11g13; - CCTK_REAL_VEC PDstandardNth22g13; - CCTK_REAL_VEC PDstandardNth33g13; - CCTK_REAL_VEC PDstandardNth12g13; - CCTK_REAL_VEC PDstandardNth13g13; - CCTK_REAL_VEC PDstandardNth23g13; - CCTK_REAL_VEC PDstandardNth1g22; - CCTK_REAL_VEC PDstandardNth2g22; - CCTK_REAL_VEC PDstandardNth3g22; - CCTK_REAL_VEC PDstandardNth11g22; - CCTK_REAL_VEC PDstandardNth22g22; - CCTK_REAL_VEC PDstandardNth33g22; - CCTK_REAL_VEC PDstandardNth12g22; - CCTK_REAL_VEC PDstandardNth13g22; - CCTK_REAL_VEC PDstandardNth23g22; - CCTK_REAL_VEC PDstandardNth1g23; - CCTK_REAL_VEC PDstandardNth2g23; - CCTK_REAL_VEC PDstandardNth3g23; - CCTK_REAL_VEC PDstandardNth11g23; - CCTK_REAL_VEC PDstandardNth22g23; - CCTK_REAL_VEC PDstandardNth33g23; - CCTK_REAL_VEC PDstandardNth12g23; - CCTK_REAL_VEC PDstandardNth13g23; - CCTK_REAL_VEC PDstandardNth23g23; - CCTK_REAL_VEC PDstandardNth1g33; - CCTK_REAL_VEC PDstandardNth2g33; - CCTK_REAL_VEC PDstandardNth3g33; - CCTK_REAL_VEC PDstandardNth11g33; - CCTK_REAL_VEC PDstandardNth22g33; - CCTK_REAL_VEC PDstandardNth33g33; - CCTK_REAL_VEC PDstandardNth12g33; - CCTK_REAL_VEC PDstandardNth13g33; - CCTK_REAL_VEC PDstandardNth23g33; - CCTK_REAL_VEC PDstandardNth1K11; - CCTK_REAL_VEC PDstandardNth2K11; - CCTK_REAL_VEC PDstandardNth3K11; - CCTK_REAL_VEC PDstandardNth1K12; - CCTK_REAL_VEC PDstandardNth2K12; - CCTK_REAL_VEC PDstandardNth3K12; - CCTK_REAL_VEC PDstandardNth1K13; - CCTK_REAL_VEC PDstandardNth2K13; - CCTK_REAL_VEC PDstandardNth3K13; - CCTK_REAL_VEC PDstandardNth1K22; - CCTK_REAL_VEC PDstandardNth2K22; - CCTK_REAL_VEC PDstandardNth3K22; - CCTK_REAL_VEC PDstandardNth1K23; - CCTK_REAL_VEC PDstandardNth2K23; - CCTK_REAL_VEC PDstandardNth3K23; - CCTK_REAL_VEC PDstandardNth1K33; - CCTK_REAL_VEC PDstandardNth2K33; - CCTK_REAL_VEC PDstandardNth3K33; + CCTK_REAL_VEC PDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1K11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2K11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3K11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1K12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2K12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3K12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1K13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2K13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3K13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1K22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2K22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3K22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1K23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2K23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3K23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1K33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2K33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3K33 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -703,105 +703,105 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDstandardNth11alpha; - CCTK_REAL_VEC JacPDstandardNth11g22; - CCTK_REAL_VEC JacPDstandardNth11g23; - CCTK_REAL_VEC JacPDstandardNth11g33; - CCTK_REAL_VEC JacPDstandardNth12alpha; - CCTK_REAL_VEC JacPDstandardNth12g11; - CCTK_REAL_VEC JacPDstandardNth12g12; - CCTK_REAL_VEC JacPDstandardNth12g13; - CCTK_REAL_VEC JacPDstandardNth12g22; - CCTK_REAL_VEC JacPDstandardNth12g23; - CCTK_REAL_VEC JacPDstandardNth12g33; - CCTK_REAL_VEC JacPDstandardNth13alpha; - CCTK_REAL_VEC JacPDstandardNth13g11; - CCTK_REAL_VEC JacPDstandardNth13g12; - CCTK_REAL_VEC JacPDstandardNth13g13; - CCTK_REAL_VEC JacPDstandardNth13g22; - CCTK_REAL_VEC JacPDstandardNth13g23; - CCTK_REAL_VEC JacPDstandardNth13g33; - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1beta1; - CCTK_REAL_VEC JacPDstandardNth1beta2; - CCTK_REAL_VEC JacPDstandardNth1beta3; - CCTK_REAL_VEC JacPDstandardNth1g11; - CCTK_REAL_VEC JacPDstandardNth1g12; - CCTK_REAL_VEC JacPDstandardNth1g13; - CCTK_REAL_VEC JacPDstandardNth1g22; - CCTK_REAL_VEC JacPDstandardNth1g23; - CCTK_REAL_VEC JacPDstandardNth1g33; - CCTK_REAL_VEC JacPDstandardNth1K11; - CCTK_REAL_VEC JacPDstandardNth1K12; - CCTK_REAL_VEC JacPDstandardNth1K13; - CCTK_REAL_VEC JacPDstandardNth1K22; - CCTK_REAL_VEC JacPDstandardNth1K23; - CCTK_REAL_VEC JacPDstandardNth1K33; - CCTK_REAL_VEC JacPDstandardNth21g11; - CCTK_REAL_VEC JacPDstandardNth21g12; - CCTK_REAL_VEC JacPDstandardNth21g13; - CCTK_REAL_VEC JacPDstandardNth21g22; - CCTK_REAL_VEC JacPDstandardNth21g23; - CCTK_REAL_VEC JacPDstandardNth21g33; - CCTK_REAL_VEC JacPDstandardNth22alpha; - CCTK_REAL_VEC JacPDstandardNth22g11; - CCTK_REAL_VEC JacPDstandardNth22g13; - CCTK_REAL_VEC JacPDstandardNth22g33; - CCTK_REAL_VEC JacPDstandardNth23alpha; - CCTK_REAL_VEC JacPDstandardNth23g11; - CCTK_REAL_VEC JacPDstandardNth23g12; - CCTK_REAL_VEC JacPDstandardNth23g13; - CCTK_REAL_VEC JacPDstandardNth23g22; - CCTK_REAL_VEC JacPDstandardNth23g23; - CCTK_REAL_VEC JacPDstandardNth23g33; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2beta1; - CCTK_REAL_VEC JacPDstandardNth2beta2; - CCTK_REAL_VEC JacPDstandardNth2beta3; - CCTK_REAL_VEC JacPDstandardNth2g11; - CCTK_REAL_VEC JacPDstandardNth2g12; - CCTK_REAL_VEC JacPDstandardNth2g13; - CCTK_REAL_VEC JacPDstandardNth2g22; - CCTK_REAL_VEC JacPDstandardNth2g23; - CCTK_REAL_VEC JacPDstandardNth2g33; - CCTK_REAL_VEC JacPDstandardNth2K11; - CCTK_REAL_VEC JacPDstandardNth2K12; - CCTK_REAL_VEC JacPDstandardNth2K13; - CCTK_REAL_VEC JacPDstandardNth2K22; - CCTK_REAL_VEC JacPDstandardNth2K23; - CCTK_REAL_VEC JacPDstandardNth2K33; - CCTK_REAL_VEC JacPDstandardNth31g11; - CCTK_REAL_VEC JacPDstandardNth31g12; - CCTK_REAL_VEC JacPDstandardNth31g13; - CCTK_REAL_VEC JacPDstandardNth31g22; - CCTK_REAL_VEC JacPDstandardNth31g23; - CCTK_REAL_VEC JacPDstandardNth31g33; - CCTK_REAL_VEC JacPDstandardNth32g11; - CCTK_REAL_VEC JacPDstandardNth32g12; - CCTK_REAL_VEC JacPDstandardNth32g13; - CCTK_REAL_VEC JacPDstandardNth32g22; - CCTK_REAL_VEC JacPDstandardNth32g23; - CCTK_REAL_VEC JacPDstandardNth32g33; - CCTK_REAL_VEC JacPDstandardNth33alpha; - CCTK_REAL_VEC JacPDstandardNth33g11; - CCTK_REAL_VEC JacPDstandardNth33g12; - CCTK_REAL_VEC JacPDstandardNth33g22; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3beta1; - CCTK_REAL_VEC JacPDstandardNth3beta2; - CCTK_REAL_VEC JacPDstandardNth3beta3; - CCTK_REAL_VEC JacPDstandardNth3g11; - CCTK_REAL_VEC JacPDstandardNth3g12; - CCTK_REAL_VEC JacPDstandardNth3g13; - CCTK_REAL_VEC JacPDstandardNth3g22; - CCTK_REAL_VEC JacPDstandardNth3g23; - CCTK_REAL_VEC JacPDstandardNth3g33; - CCTK_REAL_VEC JacPDstandardNth3K11; - CCTK_REAL_VEC JacPDstandardNth3K12; - CCTK_REAL_VEC JacPDstandardNth3K13; - CCTK_REAL_VEC JacPDstandardNth3K22; - CCTK_REAL_VEC JacPDstandardNth3K23; - CCTK_REAL_VEC JacPDstandardNth3K33; + CCTK_REAL_VEC JacPDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1K11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1K12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1K13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1K22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1K23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1K33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2K11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2K12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2K13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2K22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2K23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2K33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3g33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3K11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3K12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3K13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3K22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3K23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3K33 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1303,180 +1303,180 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in JacPDstandardNth32g33 = PDstandardNth23g33; } - CCTK_REAL_VEC detg = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detg = knmsub(g22L,kmul(g13L,g13L),knmsub(g11L,kmul(g23L,g23L),kmadd(g33L,kmsub(g11L,g22L,kmul(g12L,g12L)),kmul(g12L,kmul(g13L,kmul(g23L,ToReal(2))))))); - CCTK_REAL_VEC gu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kdiv(kmsub(g22L,g33L,kmul(g23L,g23L)),detg); - CCTK_REAL_VEC gu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kdiv(kmsub(g13L,g23L,kmul(g12L,g33L)),detg); - CCTK_REAL_VEC gu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kdiv(kmsub(g12L,g23L,kmul(g13L,g22L)),detg); - CCTK_REAL_VEC gu21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu21 = kdiv(kmsub(g13L,g23L,kmul(g12L,g33L)),detg); - CCTK_REAL_VEC gu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kdiv(kmsub(g11L,g33L,kmul(g13L,g13L)),detg); - CCTK_REAL_VEC gu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kdiv(kmsub(g12L,g13L,kmul(g11L,g23L)),detg); - CCTK_REAL_VEC gu31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu31 = kdiv(kmsub(g12L,g23L,kmul(g13L,g22L)),detg); - CCTK_REAL_VEC gu32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu32 = kdiv(kmsub(g12L,g13L,kmul(g11L,g23L)),detg); - CCTK_REAL_VEC gu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kdiv(kmsub(g11L,g22L,kmul(g12L,g12L)),detg); - CCTK_REAL_VEC G111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G111 = kmul(ToReal(0.5),kmadd(gu11,JacPDstandardNth1g11,knmsub(gu12,JacPDstandardNth2g11,kmsub(kmadd(gu12,JacPDstandardNth1g12,kmul(gu13,JacPDstandardNth1g13)),ToReal(2),kmul(gu13,JacPDstandardNth3g11))))); - CCTK_REAL_VEC G211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G211 = kmul(ToReal(0.5),kmadd(gu21,JacPDstandardNth1g11,knmsub(gu22,JacPDstandardNth2g11,kmsub(kmadd(gu22,JacPDstandardNth1g12,kmul(gu23,JacPDstandardNth1g13)),ToReal(2),kmul(gu23,JacPDstandardNth3g11))))); - CCTK_REAL_VEC G311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G311 = kmul(ToReal(0.5),kmadd(gu31,JacPDstandardNth1g11,knmsub(gu32,JacPDstandardNth2g11,kmsub(kmadd(gu32,JacPDstandardNth1g12,kmul(gu33,JacPDstandardNth1g13)),ToReal(2),kmul(gu33,JacPDstandardNth3g11))))); - CCTK_REAL_VEC G112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G112 = kmul(kmadd(gu12,JacPDstandardNth1g22,kmadd(gu11,JacPDstandardNth2g11,kmul(gu13,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth2g13,JacPDstandardNth3g12))))),ToReal(0.5)); - CCTK_REAL_VEC G212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G212 = kmul(kmadd(gu22,JacPDstandardNth1g22,kmadd(gu21,JacPDstandardNth2g11,kmul(gu23,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth2g13,JacPDstandardNth3g12))))),ToReal(0.5)); - CCTK_REAL_VEC G312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G312 = kmul(kmadd(gu32,JacPDstandardNth1g22,kmadd(gu31,JacPDstandardNth2g11,kmul(gu33,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth2g13,JacPDstandardNth3g12))))),ToReal(0.5)); - CCTK_REAL_VEC G113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G113 = kmul(kmadd(gu13,JacPDstandardNth1g33,kmadd(gu11,JacPDstandardNth3g11,kmul(gu12,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth3g12,JacPDstandardNth2g13))))),ToReal(0.5)); - CCTK_REAL_VEC G213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G213 = kmul(kmadd(gu23,JacPDstandardNth1g33,kmadd(gu21,JacPDstandardNth3g11,kmul(gu22,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth3g12,JacPDstandardNth2g13))))),ToReal(0.5)); - CCTK_REAL_VEC G313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G313 = kmul(kmadd(gu33,JacPDstandardNth1g33,kmadd(gu31,JacPDstandardNth3g11,kmul(gu32,kadd(JacPDstandardNth1g23,ksub(JacPDstandardNth3g12,JacPDstandardNth2g13))))),ToReal(0.5)); - CCTK_REAL_VEC G122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G122 = kmul(ToReal(0.5),kmadd(gu12,JacPDstandardNth2g22,kmadd(gu11,kmsub(JacPDstandardNth2g12,ToReal(2),JacPDstandardNth1g22),kmul(gu13,kmsub(JacPDstandardNth2g23,ToReal(2),JacPDstandardNth3g22))))); - CCTK_REAL_VEC G222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G222 = kmul(ToReal(0.5),kmadd(gu22,JacPDstandardNth2g22,kmadd(gu21,kmsub(JacPDstandardNth2g12,ToReal(2),JacPDstandardNth1g22),kmul(gu23,kmsub(JacPDstandardNth2g23,ToReal(2),JacPDstandardNth3g22))))); - CCTK_REAL_VEC G322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G322 = kmul(ToReal(0.5),kmadd(gu32,JacPDstandardNth2g22,kmadd(gu31,kmsub(JacPDstandardNth2g12,ToReal(2),JacPDstandardNth1g22),kmul(gu33,kmsub(JacPDstandardNth2g23,ToReal(2),JacPDstandardNth3g22))))); - CCTK_REAL_VEC G123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G123 = kmul(kmadd(gu13,JacPDstandardNth2g33,kmadd(gu12,JacPDstandardNth3g22,kmul(gu11,kadd(JacPDstandardNth2g13,ksub(JacPDstandardNth3g12,JacPDstandardNth1g23))))),ToReal(0.5)); - CCTK_REAL_VEC G223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G223 = kmul(kmadd(gu23,JacPDstandardNth2g33,kmadd(gu22,JacPDstandardNth3g22,kmul(gu21,kadd(JacPDstandardNth2g13,ksub(JacPDstandardNth3g12,JacPDstandardNth1g23))))),ToReal(0.5)); - CCTK_REAL_VEC G323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G323 = kmul(kmadd(gu33,JacPDstandardNth2g33,kmadd(gu32,JacPDstandardNth3g22,kmul(gu31,kadd(JacPDstandardNth2g13,ksub(JacPDstandardNth3g12,JacPDstandardNth1g23))))),ToReal(0.5)); - CCTK_REAL_VEC G133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G133 = kmul(ToReal(0.5),kmadd(gu13,JacPDstandardNth3g33,kmadd(gu11,kmsub(JacPDstandardNth3g13,ToReal(2),JacPDstandardNth1g33),kmul(gu12,kmsub(JacPDstandardNth3g23,ToReal(2),JacPDstandardNth2g33))))); - CCTK_REAL_VEC G233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G233 = kmul(ToReal(0.5),kmadd(gu23,JacPDstandardNth3g33,kmadd(gu21,kmsub(JacPDstandardNth3g13,ToReal(2),JacPDstandardNth1g33),kmul(gu22,kmsub(JacPDstandardNth3g23,ToReal(2),JacPDstandardNth2g33))))); - CCTK_REAL_VEC G333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED G333 = kmul(ToReal(0.5),kmadd(gu33,JacPDstandardNth3g33,kmadd(gu31,kmsub(JacPDstandardNth3g13,ToReal(2),JacPDstandardNth1g33),kmul(gu32,kmsub(JacPDstandardNth3g23,ToReal(2),JacPDstandardNth2g33))))); - CCTK_REAL_VEC R11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kmul(ToReal(0.5),kmadd(gu23,JacPDstandardNth31g12,kmadd(gu32,JacPDstandardNth31g12,kmadd(G111,kmul(kadd(G212,G313),ToReal(-2)),knmsub(JacPDstandardNth11g23,kadd(gu32,gu23),kmadd(gu12,ksub(JacPDstandardNth21g11,JacPDstandardNth12g11),kmadd(gu13,ksub(JacPDstandardNth31g11,JacPDstandardNth13g11),kmadd(gu23,ksub(JacPDstandardNth21g13,JacPDstandardNth23g11),kmadd(gu32,ksub(JacPDstandardNth21g13,JacPDstandardNth32g11),kmadd(kmul(G212,G212),ToReal(2),kmadd(kmul(G313,G313),ToReal(2),kmadd(G211,kmadd(G222,ToReal(-2),kmadd(G323,ToReal(-2),kmul(G112,ToReal(2)))),kmadd(G311,kmadd(G223,ToReal(-2),kmadd(G333,ToReal(-2),kmul(G113,ToReal(2)))),kmadd(gu22,ksub(kmsub(JacPDstandardNth21g12,ToReal(2),JacPDstandardNth22g11),JacPDstandardNth11g22),kmadd(gu33,ksub(kmsub(JacPDstandardNth31g13,ToReal(2),JacPDstandardNth33g11),JacPDstandardNth11g33),kmul(G213,kmul(G312,ToReal(4)))))))))))))))))); - CCTK_REAL_VEC R12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kmul(ToReal(0.5),kmadd(gu12,kadd(JacPDstandardNth11g22,JacPDstandardNth22g11),kmadd(gu32,JacPDstandardNth31g22,kmadd(gu13,JacPDstandardNth32g11,kmadd(gu23,JacPDstandardNth32g12,kmadd(gu33,JacPDstandardNth32g13,kmadd(kmadd(G112,kadd(G212,G313),kmadd(G212,G323,kmadd(G312,G333,kmul(gu12,JacPDstandardNth12g12)))),ToReal(-2),knmsub(JacPDstandardNth12g23,kadd(gu32,gu23),kmadd(gu22,ksub(JacPDstandardNth21g22,JacPDstandardNth12g22),kmadd(gu13,ksub(JacPDstandardNth11g23,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13)),kmadd(gu23,ksub(JacPDstandardNth21g23,JacPDstandardNth23g12),kmadd(gu32,ksub(JacPDstandardNth22g13,JacPDstandardNth32g12),kmadd(gu33,ksub(JacPDstandardNth31g23,kadd(JacPDstandardNth33g12,JacPDstandardNth12g33)),kmul(kmadd(G122,G211,kmadd(G123,G311,kmadd(G213,G322,kmul(G313,G323)))),ToReal(2))))))))))))))); - CCTK_REAL_VEC R13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kmul(ToReal(0.5),kmadd(gu22,JacPDstandardNth23g12,kmadd(gu32,JacPDstandardNth31g23,kmadd(gu13,kadd(JacPDstandardNth11g33,JacPDstandardNth33g11),kmadd(gu23,JacPDstandardNth33g12,kmadd(kmadd(G213,G222,kmadd(G223,G313,kmadd(G113,kadd(G212,G313),kmul(gu13,JacPDstandardNth13g13)))),ToReal(-2),knmsub(JacPDstandardNth13g23,kadd(gu32,gu23),kmadd(gu12,kadd(JacPDstandardNth11g23,ksub(JacPDstandardNth23g11,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13))),kmadd(gu33,ksub(JacPDstandardNth31g33,JacPDstandardNth13g33),kmadd(gu22,ksub(JacPDstandardNth21g23,kadd(JacPDstandardNth22g13,JacPDstandardNth13g22)),kmadd(gu23,ksub(JacPDstandardNth21g33,JacPDstandardNth23g13),kmadd(gu32,ksub(JacPDstandardNth23g13,JacPDstandardNth32g13),kmul(kmadd(G123,G211,kmadd(G212,G223,kmadd(G133,G311,kmul(G233,G312)))),ToReal(2)))))))))))))); - CCTK_REAL_VEC R22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kmul(ToReal(0.5),kmadd(kadd(gu13,gu31),JacPDstandardNth12g23,kmadd(gu13,JacPDstandardNth32g12,kmadd(gu31,JacPDstandardNth32g12,kmadd(kmadd(G112,G222,kmadd(G113,G322,kmul(G222,G323))),ToReal(-2),kmadd(gu21,ksub(JacPDstandardNth12g22,JacPDstandardNth21g22),knmsub(gu13,kadd(JacPDstandardNth22g13,JacPDstandardNth13g22),kmadd(gu23,ksub(JacPDstandardNth32g22,JacPDstandardNth23g22),knmsub(gu31,kadd(JacPDstandardNth31g22,JacPDstandardNth22g13),kmadd(kmul(G112,G112),ToReal(2),kmadd(kmul(G323,G323),ToReal(2),kmadd(G122,kmadd(G111,ToReal(-2),kmadd(G313,ToReal(-2),kmul(G212,ToReal(2)))),kmadd(G322,kmadd(G333,ToReal(-2),kmul(G223,ToReal(2))),kmadd(gu11,ksub(kmsub(JacPDstandardNth12g12,ToReal(2),JacPDstandardNth22g11),JacPDstandardNth11g22),kmadd(gu33,ksub(kmsub(JacPDstandardNth32g23,ToReal(2),JacPDstandardNth33g22),JacPDstandardNth22g33),kmul(G123,kmul(G312,ToReal(4)))))))))))))))))); - CCTK_REAL_VEC R23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kmul(ToReal(0.5),kmadd(gu23,kadd(JacPDstandardNth22g33,JacPDstandardNth33g22),kmadd(kmadd(G111,G123,kmadd(kadd(G113,G223),G323,kmul(gu23,JacPDstandardNth23g23))),ToReal(-2),kmadd(gu11,kadd(JacPDstandardNth12g13,ksub(JacPDstandardNth13g12,kadd(JacPDstandardNth23g11,JacPDstandardNth11g23))),kmadd(gu21,kadd(JacPDstandardNth13g22,ksub(JacPDstandardNth22g13,kadd(JacPDstandardNth23g12,JacPDstandardNth21g23))),kmadd(gu13,kadd(JacPDstandardNth12g33,ksub(JacPDstandardNth33g12,kadd(JacPDstandardNth23g13,JacPDstandardNth13g23))),kmadd(gu33,ksub(JacPDstandardNth32g33,JacPDstandardNth23g33),kmadd(gu31,kadd(JacPDstandardNth13g23,ksub(JacPDstandardNth32g13,kadd(JacPDstandardNth31g23,JacPDstandardNth23g13))),kmul(kmadd(G122,G213,kmadd(G133,G312,kmadd(G233,G322,kmul(G112,ksub(G113,G223))))),ToReal(2)))))))))); - CCTK_REAL_VEC R33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = kmul(ToReal(0.5),kmadd(gu12,JacPDstandardNth23g13,kmadd(gu21,JacPDstandardNth23g13,kmadd(kmadd(G111,G133,kmadd(G133,G212,kmadd(G112,G233,kmadd(G222,G233,kmadd(G113,G333,kmul(G223,G333)))))),ToReal(-2),kmadd(gu31,ksub(JacPDstandardNth13g33,JacPDstandardNth31g33),kmadd(gu32,ksub(JacPDstandardNth23g33,JacPDstandardNth32g33),knmsub(gu11,kadd(JacPDstandardNth33g11,JacPDstandardNth11g33),kmadd(gu12,ksub(JacPDstandardNth13g23,kadd(JacPDstandardNth33g12,JacPDstandardNth12g33)),kmadd(gu21,ksub(JacPDstandardNth13g23,kadd(JacPDstandardNth33g12,JacPDstandardNth21g33)),kmadd(kmadd(G133,G313,kmadd(G233,G323,kmul(gu11,JacPDstandardNth13g13))),ToReal(2),kmadd(kmul(G113,G113),ToReal(2),kmadd(kmul(G223,G223),ToReal(2),kmadd(gu22,ksub(kmsub(JacPDstandardNth23g23,ToReal(2),JacPDstandardNth33g22),JacPDstandardNth22g33),kmul(G123,kmul(G213,ToReal(4)))))))))))))))); - CCTK_REAL_VEC Km11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km11 = kmadd(K11L,gu11,kmadd(K12L,gu12,kmul(K13L,gu13))); - CCTK_REAL_VEC Km21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km21 = kmadd(K11L,gu21,kmadd(K12L,gu22,kmul(K13L,gu23))); - CCTK_REAL_VEC Km31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km31 = kmadd(K11L,gu31,kmadd(K12L,gu32,kmul(K13L,gu33))); - CCTK_REAL_VEC Km12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km12 = kmadd(K12L,gu11,kmadd(K22L,gu12,kmul(K23L,gu13))); - CCTK_REAL_VEC Km22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km22 = kmadd(K12L,gu21,kmadd(K22L,gu22,kmul(K23L,gu23))); - CCTK_REAL_VEC Km32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km32 = kmadd(K12L,gu31,kmadd(K22L,gu32,kmul(K23L,gu33))); - CCTK_REAL_VEC Km13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km13 = kmadd(K13L,gu11,kmadd(K23L,gu12,kmul(K33L,gu13))); - CCTK_REAL_VEC Km23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km23 = kmadd(K13L,gu21,kmadd(K23L,gu22,kmul(K33L,gu23))); - CCTK_REAL_VEC Km33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Km33 = kmadd(K13L,gu31,kmadd(K23L,gu32,kmul(K33L,gu33))); - CCTK_REAL_VEC trK = kadd(Km11,kadd(Km22,Km33)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trK = kadd(Km11,kadd(Km22,Km33)); - CCTK_REAL_VEC g11rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11rhsL = kmadd(beta1L,JacPDstandardNth1g11,kmadd(beta2L,JacPDstandardNth2g11,kmadd(beta3L,JacPDstandardNth3g11,kmadd(alphaL,kmul(K11L,ToReal(-2)),kmul(kmadd(g11L,JacPDstandardNth1beta1,kmadd(g12L,JacPDstandardNth1beta2,kmul(g13L,JacPDstandardNth1beta3))),ToReal(2)))))); - CCTK_REAL_VEC g12rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12rhsL = kmadd(g22L,JacPDstandardNth1beta2,kmadd(g23L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1g12,kmadd(g11L,JacPDstandardNth2beta1,kmadd(g12L,kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),kmadd(g13L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2g12,kmadd(beta3L,JacPDstandardNth3g12,kmul(alphaL,kmul(K12L,ToReal(-2))))))))))); - CCTK_REAL_VEC g13rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13rhsL = kmadd(g23L,JacPDstandardNth1beta2,kmadd(g33L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1g13,kmadd(beta2L,JacPDstandardNth2g13,kmadd(g11L,JacPDstandardNth3beta1,kmadd(g12L,JacPDstandardNth3beta2,kmadd(g13L,kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3g13,kmul(alphaL,kmul(K13L,ToReal(-2))))))))))); - CCTK_REAL_VEC g22rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22rhsL = kmadd(beta1L,JacPDstandardNth1g22,kmadd(beta2L,JacPDstandardNth2g22,kmadd(beta3L,JacPDstandardNth3g22,kmadd(alphaL,kmul(K22L,ToReal(-2)),kmul(kmadd(g12L,JacPDstandardNth2beta1,kmadd(g22L,JacPDstandardNth2beta2,kmul(g23L,JacPDstandardNth2beta3))),ToReal(2)))))); - CCTK_REAL_VEC g23rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23rhsL = kmadd(beta1L,JacPDstandardNth1g23,kmadd(g13L,JacPDstandardNth2beta1,kmadd(g33L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2g23,kmadd(g12L,JacPDstandardNth3beta1,kmadd(g22L,JacPDstandardNth3beta2,kmadd(g23L,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3g23,kmul(alphaL,kmul(K23L,ToReal(-2))))))))))); - CCTK_REAL_VEC g33rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33rhsL = kmadd(beta1L,JacPDstandardNth1g33,kmadd(beta2L,JacPDstandardNth2g33,kmadd(beta3L,JacPDstandardNth3g33,kmadd(alphaL,kmul(K33L,ToReal(-2)),kmul(kmadd(g13L,JacPDstandardNth3beta1,kmadd(g23L,JacPDstandardNth3beta2,kmul(g33L,JacPDstandardNth3beta3))),ToReal(2)))))); - CCTK_REAL_VEC K11rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11rhsL = kmadd(G111,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K11,kmadd(G211,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K11,kmadd(G311,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K11,kmadd(alphaL,kadd(R11,kmadd(kmadd(K12L,Km21,kmul(K13L,Km31)),ToReal(-2),kmul(K11L,kmadd(Km11,ToReal(-2),trK)))),kmsub(kmadd(K11L,JacPDstandardNth1beta1,kmadd(K12L,JacPDstandardNth1beta2,kmul(K13L,JacPDstandardNth1beta3))),ToReal(2),JacPDstandardNth11alpha)))))))); - CCTK_REAL_VEC K12rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12rhsL = kmadd(G112,JacPDstandardNth1alpha,kmadd(K22L,JacPDstandardNth1beta2,kmadd(K23L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1K12,kmadd(G212,JacPDstandardNth2alpha,kmadd(K11L,JacPDstandardNth2beta1,kmadd(K12L,kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),kmadd(K13L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2K12,kmadd(G312,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K12,kmsub(alphaL,kadd(R12,kmadd(kmadd(K11L,Km12,kmul(K13L,Km32)),ToReal(-2),kmul(K12L,kmadd(Km22,ToReal(-2),trK)))),JacPDstandardNth12alpha)))))))))))); - CCTK_REAL_VEC K13rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13rhsL = kmadd(G113,JacPDstandardNth1alpha,kmadd(K23L,JacPDstandardNth1beta2,kmadd(K33L,JacPDstandardNth1beta3,kmadd(beta1L,JacPDstandardNth1K13,kmadd(G213,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K13,kmadd(G313,JacPDstandardNth3alpha,kmadd(K11L,JacPDstandardNth3beta1,kmadd(K12L,JacPDstandardNth3beta2,kmadd(K13L,kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3K13,kmsub(alphaL,kadd(R13,kmadd(K13L,trK,kmul(kmadd(K11L,Km13,kmadd(K12L,Km23,kmul(K13L,Km33))),ToReal(-2)))),JacPDstandardNth13alpha)))))))))))); - CCTK_REAL_VEC K22rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22rhsL = kmadd(G122,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K22,kmadd(G222,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K22,kmadd(G322,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K22,kmadd(alphaL,kadd(R22,kmadd(kmadd(K12L,Km12,kmul(K23L,Km32)),ToReal(-2),kmul(K22L,kmadd(Km22,ToReal(-2),trK)))),kmsub(kmadd(K12L,JacPDstandardNth2beta1,kmadd(K22L,JacPDstandardNth2beta2,kmul(K23L,JacPDstandardNth2beta3))),ToReal(2),JacPDstandardNth22alpha)))))))); - CCTK_REAL_VEC K23rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23rhsL = kmadd(G123,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K23,kmadd(G223,JacPDstandardNth2alpha,kmadd(K13L,JacPDstandardNth2beta1,kmadd(K33L,JacPDstandardNth2beta3,kmadd(beta2L,JacPDstandardNth2K23,kmadd(G323,JacPDstandardNth3alpha,kmadd(K12L,JacPDstandardNth3beta1,kmadd(K22L,JacPDstandardNth3beta2,kmadd(K23L,kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),kmadd(beta3L,JacPDstandardNth3K23,kmsub(alphaL,kadd(R23,kmadd(K23L,trK,kmul(kmadd(K12L,Km13,kmadd(K22L,Km23,kmul(K23L,Km33))),ToReal(-2)))),JacPDstandardNth23alpha)))))))))))); - CCTK_REAL_VEC K33rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33rhsL = kmadd(G133,JacPDstandardNth1alpha,kmadd(beta1L,JacPDstandardNth1K33,kmadd(G233,JacPDstandardNth2alpha,kmadd(beta2L,JacPDstandardNth2K33,kmadd(G333,JacPDstandardNth3alpha,kmadd(beta3L,JacPDstandardNth3K33,kmadd(alphaL,kadd(R33,kmadd(K33L,trK,kmul(kmadd(K13L,Km13,kmadd(K23L,Km23,kmul(K33L,Km33))),ToReal(-2)))),kmsub(kmadd(K13L,JacPDstandardNth3beta1,kmadd(K23L,JacPDstandardNth3beta2,kmul(K33L,JacPDstandardNth3beta3))),ToReal(2),JacPDstandardNth33alpha)))))))); - CCTK_REAL_VEC alpharhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); - CCTK_REAL_VEC beta1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1rhsL = ToReal(0); - CCTK_REAL_VEC beta2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2rhsL = ToReal(0); - CCTK_REAL_VEC beta3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3rhsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); |