From e95eaf037271ebbbaa462edb4b6b0f6e2b06c899 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Mon, 19 Nov 2012 22:49:42 +0100 Subject: Regenerate code (Kranc commit b0019939fb9ef98a05431967a4cc2139f0f2a1e4) Mark automatically-generated variables as unused to avoid warnings --- ML_ADM/src/Boundaries.cc | 82 +- ML_ADM/src/ML_ADM_Minkowski.cc | 206 ++-- ML_ADM/src/ML_ADM_RHS.cc | 712 ++++++------ ML_ADM/src/ML_ADM_boundary.cc | 208 ++-- ML_ADM/src/ML_ADM_constraints.cc | 600 +++++----- ML_ADM/src/ML_ADM_constraints_boundary.cc | 184 +-- ML_ADM/src/ML_ADM_convertFromADMBase.cc | 238 ++-- ML_ADM/src/ML_ADM_convertToADMBase.cc | 246 ++-- ML_ADM/src/RegisterMoL.cc | 2 +- ML_ADM/src/Startup.cc | 2 +- ML_ADMConstraints/src/Boundaries.cc | 2 +- ML_ADMConstraints/src/ML_ADMConstraints.cc | 753 ++++++------ ML_ADMConstraints/src/RegisterMoL.cc | 2 +- ML_ADMConstraints/src/Startup.cc | 2 +- ML_ADMQuantities/src/Boundaries.cc | 2 +- ML_ADMQuantities/src/ML_ADMQuantities.cc | 1134 ++++++++++--------- ML_ADMQuantities/src/RegisterMoL.cc | 2 +- ML_ADMQuantities/src/Startup.cc | 2 +- ML_BSSN/src/Boundaries.cc | 138 +-- ML_BSSN/src/ML_BSSN_Advect.cc | 968 ++++++++-------- ML_BSSN/src/ML_BSSN_Dissipation.cc | 668 +++++------ ML_BSSN/src/ML_BSSN_InitGamma.cc | 272 ++--- ML_BSSN/src/ML_BSSN_InitRHS.cc | 308 ++--- ML_BSSN/src/ML_BSSN_Minkowski.cc | 309 ++--- ML_BSSN/src/ML_BSSN_RHS1.cc | 801 ++++++------- ML_BSSN/src/ML_BSSN_RHS2.cc | 1006 +++++++++-------- ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc | 310 ++--- ML_BSSN/src/ML_BSSN_boundary.cc | 311 ++--- ML_BSSN/src/ML_BSSN_constraints1.cc | 888 ++++++++------- ML_BSSN/src/ML_BSSN_constraints2.cc | 604 +++++----- ML_BSSN/src/ML_BSSN_convertFromADMBase.cc | 360 +++--- ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc | 542 ++++----- ML_BSSN/src/ML_BSSN_convertToADMBase.cc | 328 +++--- .../src/ML_BSSN_convertToADMBaseDtLapseShift.cc | 526 ++++----- ...ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc | 298 ++--- .../ML_BSSN_convertToADMBaseFakeDtLapseShift.cc | 296 ++--- ML_BSSN/src/ML_BSSN_enforce.cc | 300 ++--- ML_BSSN/src/RegisterMoL.cc | 2 +- ML_BSSN/src/Startup.cc | 2 +- ML_CCZ4/src/Boundaries.cc | 146 +-- ML_CCZ4/src/ML_CCZ4_Advect.cc | 996 ++++++++-------- ML_CCZ4/src/ML_CCZ4_Dissipation.cc | 684 +++++------ ML_CCZ4/src/ML_CCZ4_InitGamma.cc | 272 ++--- ML_CCZ4/src/ML_CCZ4_InitRHS.cc | 310 ++--- ML_CCZ4/src/ML_CCZ4_Minkowski.cc | 311 ++--- ML_CCZ4/src/ML_CCZ4_RHS1.cc | 1193 ++++++++++---------- ML_CCZ4/src/ML_CCZ4_RHS2.cc | 1014 +++++++++-------- ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc | 312 ++--- ML_CCZ4/src/ML_CCZ4_boundary.cc | 313 ++--- ML_CCZ4/src/ML_CCZ4_constraints1.cc | 906 +++++++-------- ML_CCZ4/src/ML_CCZ4_constraints2.cc | 604 +++++----- ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc | 362 +++--- ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc | 542 ++++----- ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc | 328 +++--- .../src/ML_CCZ4_convertToADMBaseDtLapseShift.cc | 528 ++++----- ...ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc | 300 ++--- .../ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc | 298 ++--- ML_CCZ4/src/ML_CCZ4_enforce.cc | 300 ++--- ML_CCZ4/src/RegisterMoL.cc | 2 +- ML_CCZ4/src/Startup.cc | 2 +- ML_WaveToy/src/Boundaries.cc | 18 +- ML_WaveToy/src/RegisterMoL.cc | 2 +- ML_WaveToy/src/Startup.cc | 2 +- ML_WaveToy/src/WT_Dirichlet.cc | 70 +- ML_WaveToy/src/WT_Energy.cc | 78 +- ML_WaveToy/src/WT_EnergyBoundary.cc | 68 +- ML_WaveToy/src/WT_Gaussian.cc | 70 +- ML_WaveToy/src/WT_RHS.cc | 80 +- ML_WaveToy/src/WT_Standing.cc | 84 +- ML_WaveToy_CL/src/Boundaries.cc | 18 +- ML_WaveToy_CL/src/RegisterMoL.cc | 2 +- ML_WaveToy_CL/src/Startup.cc | 2 +- ML_WaveToy_CL/src/WT_CL_Dirichlet.cc | 70 +- ML_WaveToy_CL/src/WT_CL_Energy.cc | 78 +- ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc | 68 +- ML_WaveToy_CL/src/WT_CL_Gaussian.cc | 70 +- ML_WaveToy_CL/src/WT_CL_RHS.cc | 80 +- ML_WaveToy_CL/src/WT_CL_Standing.cc | 84 +- 78 files changed, 12252 insertions(+), 12031 deletions(-) diff --git a/ML_ADM/src/Boundaries.cc b/ML_ADM/src/Boundaries.cc index 4e20959..03f536d 100644 --- a/ML_ADM/src/Boundaries.cc +++ b/ML_ADM/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; if (CCTK_EQUALS(ML_curv_bound, "none" ) || CCTK_EQUALS(ML_curv_bound, "static") || @@ -255,7 +255,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_curv_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_curv_bound = -1; + static CCTK_INT handle_ML_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0) @@ -274,7 +274,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_lapse_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_lapse_bound = -1; + static CCTK_INT handle_ML_lapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0) @@ -293,7 +293,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_metric_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_metric_bound = -1; + static CCTK_INT handle_ML_metric_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0) @@ -312,7 +312,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_shift_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_shift_bound = -1; + static CCTK_INT handle_ML_shift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0) @@ -331,7 +331,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K11_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_K11_bound = -1; + static CCTK_INT handle_K11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K11_bound < 0) handle_K11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K11_bound , K11_bound_limit, "LIMIT") < 0) @@ -350,7 +350,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K12_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_K12_bound = -1; + static CCTK_INT handle_K12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K12_bound < 0) handle_K12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K12_bound , K12_bound_limit, "LIMIT") < 0) @@ -369,7 +369,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K13_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_K13_bound = -1; + static CCTK_INT handle_K13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K13_bound < 0) handle_K13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K13_bound , K13_bound_limit, "LIMIT") < 0) @@ -388,7 +388,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K22_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_K22_bound = -1; + static CCTK_INT handle_K22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K22_bound < 0) handle_K22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K22_bound , K22_bound_limit, "LIMIT") < 0) @@ -407,7 +407,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K23_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_K23_bound = -1; + static CCTK_INT handle_K23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K23_bound < 0) handle_K23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K23_bound , K23_bound_limit, "LIMIT") < 0) @@ -426,7 +426,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K33_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_K33_bound = -1; + static CCTK_INT handle_K33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K33_bound < 0) handle_K33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K33_bound , K33_bound_limit, "LIMIT") < 0) @@ -445,7 +445,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(alpha_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_alpha_bound = -1; + static CCTK_INT handle_alpha_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0) @@ -464,7 +464,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g11_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_g11_bound = -1; + static CCTK_INT handle_g11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g11_bound < 0) handle_g11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g11_bound , g11_bound_limit, "LIMIT") < 0) @@ -483,7 +483,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g12_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_g12_bound = -1; + static CCTK_INT handle_g12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g12_bound < 0) handle_g12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g12_bound , g12_bound_limit, "LIMIT") < 0) @@ -502,7 +502,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g13_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_g13_bound = -1; + static CCTK_INT handle_g13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g13_bound < 0) handle_g13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g13_bound , g13_bound_limit, "LIMIT") < 0) @@ -521,7 +521,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g22_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_g22_bound = -1; + static CCTK_INT handle_g22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g22_bound < 0) handle_g22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g22_bound , g22_bound_limit, "LIMIT") < 0) @@ -540,7 +540,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g23_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_g23_bound = -1; + static CCTK_INT handle_g23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g23_bound < 0) handle_g23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g23_bound , g23_bound_limit, "LIMIT") < 0) @@ -559,7 +559,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g33_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_g33_bound = -1; + static CCTK_INT handle_g33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g33_bound < 0) handle_g33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g33_bound , g33_bound_limit, "LIMIT") < 0) @@ -578,7 +578,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta1_bound = -1; + static CCTK_INT handle_beta1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0) @@ -597,7 +597,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta2_bound = -1; + static CCTK_INT handle_beta2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0) @@ -616,7 +616,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta3_bound = -1; + static CCTK_INT handle_beta3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0) @@ -635,7 +635,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_curv_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_curv_bound = -1; + static CCTK_INT handle_ML_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0) @@ -652,7 +652,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_lapse_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_lapse_bound = -1; + static CCTK_INT handle_ML_lapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0) @@ -669,7 +669,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_metric_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_metric_bound = -1; + static CCTK_INT handle_ML_metric_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0) @@ -686,7 +686,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_shift_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_shift_bound = -1; + static CCTK_INT handle_ML_shift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0) @@ -703,7 +703,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K11_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_K11_bound = -1; + static CCTK_INT handle_K11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K11_bound < 0) handle_K11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K11_bound ,K11_bound_scalar, "SCALAR") < 0) @@ -720,7 +720,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K12_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_K12_bound = -1; + static CCTK_INT handle_K12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K12_bound < 0) handle_K12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K12_bound ,K12_bound_scalar, "SCALAR") < 0) @@ -737,7 +737,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K13_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_K13_bound = -1; + static CCTK_INT handle_K13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K13_bound < 0) handle_K13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K13_bound ,K13_bound_scalar, "SCALAR") < 0) @@ -754,7 +754,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K22_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_K22_bound = -1; + static CCTK_INT handle_K22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K22_bound < 0) handle_K22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K22_bound ,K22_bound_scalar, "SCALAR") < 0) @@ -771,7 +771,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K23_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_K23_bound = -1; + static CCTK_INT handle_K23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K23_bound < 0) handle_K23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K23_bound ,K23_bound_scalar, "SCALAR") < 0) @@ -788,7 +788,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(K33_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_K33_bound = -1; + static CCTK_INT handle_K33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_K33_bound < 0) handle_K33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_K33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_K33_bound ,K33_bound_scalar, "SCALAR") < 0) @@ -805,7 +805,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(alpha_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_alpha_bound = -1; + static CCTK_INT handle_alpha_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0) @@ -822,7 +822,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g11_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_g11_bound = -1; + static CCTK_INT handle_g11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g11_bound < 0) handle_g11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g11_bound ,g11_bound_scalar, "SCALAR") < 0) @@ -839,7 +839,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g12_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_g12_bound = -1; + static CCTK_INT handle_g12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g12_bound < 0) handle_g12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g12_bound ,g12_bound_scalar, "SCALAR") < 0) @@ -856,7 +856,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g13_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_g13_bound = -1; + static CCTK_INT handle_g13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g13_bound < 0) handle_g13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g13_bound ,g13_bound_scalar, "SCALAR") < 0) @@ -873,7 +873,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g22_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_g22_bound = -1; + static CCTK_INT handle_g22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g22_bound < 0) handle_g22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g22_bound ,g22_bound_scalar, "SCALAR") < 0) @@ -890,7 +890,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g23_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_g23_bound = -1; + static CCTK_INT handle_g23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g23_bound < 0) handle_g23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g23_bound ,g23_bound_scalar, "SCALAR") < 0) @@ -907,7 +907,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(g33_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_g33_bound = -1; + static CCTK_INT handle_g33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_g33_bound < 0) handle_g33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_g33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_g33_bound ,g33_bound_scalar, "SCALAR") < 0) @@ -924,7 +924,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta1_bound = -1; + static CCTK_INT handle_beta1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0) @@ -941,7 +941,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta2_bound = -1; + static CCTK_INT handle_beta2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0) @@ -958,7 +958,7 @@ extern "C" void ML_ADM_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta3_bound = -1; + static CCTK_INT handle_beta3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0) diff --git a/ML_ADM/src/ML_ADM_Minkowski.cc b/ML_ADM/src/ML_ADM_Minkowski.cc index 38943f5..695bb13 100644 --- a/ML_ADM/src/ML_ADM_Minkowski.cc +++ b/ML_ADM/src/ML_ADM_Minkowski.cc @@ -36,66 +36,66 @@ static void ML_ADM_Minkowski_Body(cGH const * restrict const cctkGH, int const d /* 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) @@ -109,38 +109,38 @@ static void ML_ADM_Minkowski_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -157,7 +157,7 @@ static void ML_ADM_Minkowski_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -184,37 +184,37 @@ static void ML_ADM_Minkowski_Body(cGH const * restrict const cctkGH, int const d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC g11L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11L = ToReal(1); - CCTK_REAL_VEC g12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12L = ToReal(0); - CCTK_REAL_VEC g13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13L = ToReal(0); - CCTK_REAL_VEC g22L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22L = ToReal(1); - CCTK_REAL_VEC g23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23L = ToReal(0); - CCTK_REAL_VEC g33L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33L = ToReal(1); - CCTK_REAL_VEC K11L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11L = ToReal(0); - CCTK_REAL_VEC K12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12L = ToReal(0); - CCTK_REAL_VEC K13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13L = ToReal(0); - CCTK_REAL_VEC K22L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22L = ToReal(0); - CCTK_REAL_VEC K23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23L = ToReal(0); - CCTK_REAL_VEC K33L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33L = ToReal(0); - CCTK_REAL_VEC alphaL = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); - CCTK_REAL_VEC beta1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); - CCTK_REAL_VEC beta2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); - CCTK_REAL_VEC beta3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); 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); diff --git a/ML_ADM/src/ML_ADM_boundary.cc b/ML_ADM/src/ML_ADM_boundary.cc index dd4154a..7556aad 100644 --- a/ML_ADM/src/ML_ADM_boundary.cc +++ b/ML_ADM/src/ML_ADM_boundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_ADM_boundary_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_curv","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_ADM::ML_curv."); @@ -57,66 +57,66 @@ static void ML_ADM_boundary_Body(cGH const * restrict const cctkGH, int const di /* 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_boundary_Body(cGH const * restrict const cctkGH, int const di 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,7 +178,7 @@ static void ML_ADM_boundary_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -205,37 +205,37 @@ static void ML_ADM_boundary_Body(cGH const * restrict const cctkGH, int const di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC g11L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11L = ToReal(1); - CCTK_REAL_VEC g12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12L = ToReal(0); - CCTK_REAL_VEC g13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13L = ToReal(0); - CCTK_REAL_VEC g22L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22L = ToReal(1); - CCTK_REAL_VEC g23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23L = ToReal(0); - CCTK_REAL_VEC g33L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33L = ToReal(1); - CCTK_REAL_VEC K11L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11L = ToReal(0); - CCTK_REAL_VEC K12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12L = ToReal(0); - CCTK_REAL_VEC K13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13L = ToReal(0); - CCTK_REAL_VEC K22L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22L = ToReal(0); - CCTK_REAL_VEC K23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23L = ToReal(0); - CCTK_REAL_VEC K33L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33L = ToReal(0); - CCTK_REAL_VEC alphaL = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); - CCTK_REAL_VEC beta1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); - CCTK_REAL_VEC beta2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); - CCTK_REAL_VEC beta3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_ADM/src/ML_ADM_constraints.cc b/ML_ADM/src/ML_ADM_constraints.cc index 9d78750..f209776 100644 --- a/ML_ADM/src/ML_ADM_constraints.cc +++ b/ML_ADM/src/ML_ADM_constraints.cc @@ -32,7 +32,7 @@ extern "C" void ML_ADM_constraints_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_Ham","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_ADM::ML_Ham."); @@ -51,66 +51,66 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const /* 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) @@ -124,38 +124,38 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -172,25 +172,25 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const 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 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 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_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) { @@ -226,78 +226,78 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const /* Include user supplied include files */ /* Precompute derivatives */ - 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 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) { @@ -603,84 +603,84 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDstandardNth11g22; - CCTK_REAL_VEC JacPDstandardNth11g23; - CCTK_REAL_VEC JacPDstandardNth11g33; - 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 JacPDstandardNth13g11; - CCTK_REAL_VEC JacPDstandardNth13g12; - CCTK_REAL_VEC JacPDstandardNth13g13; - CCTK_REAL_VEC JacPDstandardNth13g22; - CCTK_REAL_VEC JacPDstandardNth13g23; - CCTK_REAL_VEC JacPDstandardNth13g33; - 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 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 JacPDstandardNth22g11; - CCTK_REAL_VEC JacPDstandardNth22g13; - CCTK_REAL_VEC JacPDstandardNth22g33; - 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 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 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 JacPDstandardNth33g11; - CCTK_REAL_VEC JacPDstandardNth33g12; - CCTK_REAL_VEC JacPDstandardNth33g22; - 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 JacPDstandardNth11g22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11g23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11g33 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 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 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 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 JacPDstandardNth22g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22g13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22g33 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 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 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 JacPDstandardNth33g11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33g12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33g22 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 ; if (use_jacobian) { @@ -1077,150 +1077,150 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const 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),knmsub(gu22,kadd(JacPDstandardNth11g22,kmadd(JacPDstandardNth21g12,ToReal(-2),JacPDstandardNth22g11)),kmadd(gu12,ksub(JacPDstandardNth21g11,JacPDstandardNth12g11),kmadd(gu13,ksub(JacPDstandardNth31g11,JacPDstandardNth13g11),kmadd(gu23,kadd(JacPDstandardNth21g13,ksub(JacPDstandardNth31g12,kadd(JacPDstandardNth23g11,JacPDstandardNth11g23))),kmadd(gu32,kadd(JacPDstandardNth21g13,ksub(JacPDstandardNth31g12,kadd(JacPDstandardNth32g11,JacPDstandardNth11g23))),kmadd(ToReal(2),kmadd(gu23,kmadd(g13L,kmul(G112,G313),kmadd(g23L,kmul(G212,G313),kmadd(g33L,kmul(G312,G313),kmadd(g11L,kmsub(G112,G113,kmul(G111,G123)),kmadd(g12L,kmadd(G113,G212,kmsub(G112,G213,kmadd(G111,G223,kmul(G123,G211)))),kmadd(g22L,kmsub(G212,G213,kmul(G211,G223)),knmsub(G311,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))),kmadd(g13L,kmsub(G113,G312,kmul(G111,G323)),kmul(g23L,kmsub(G213,G312,kmul(G211,G323))))))))))),kmadd(gu32,kmadd(g13L,kmul(G112,G313),kmadd(g23L,kmul(G212,G313),kmadd(g33L,kmul(G312,G313),kmadd(g11L,kmsub(G112,G113,kmul(G111,G123)),kmadd(g12L,kmadd(G113,G212,kmsub(G112,G213,kmadd(G111,G223,kmul(G123,G211)))),kmadd(g22L,kmsub(G212,G213,kmul(G211,G223)),knmsub(G311,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))),kmadd(g13L,kmsub(G113,G312,kmul(G111,G323)),kmul(g23L,kmsub(G213,G312,kmul(G211,G323))))))))))),kmul(gu22,kmadd(g22L,kmul(G212,G212),knmsub(g12L,kmadd(G122,G211,kmadd(G111,G222,kmul(G112,kmul(G212,ToReal(-2))))),kmadd(g11L,kmsub(G112,G112,kmul(G111,G122)),knmsub(G222,kmadd(g23L,G311,kmul(g22L,G211)),kmadd(g33L,kmsub(G312,G312,kmul(G311,G322)),kmadd(g13L,knmsub(G122,G311,kmsub(G112,kmul(G312,ToReal(2)),kmul(G111,G322))),kmul(g23L,kmsub(G212,kmul(G312,ToReal(2)),kmul(G211,G322)))))))))))),kmul(gu33,ksub(ksub(kmadd(JacPDstandardNth31g13,ToReal(2),kmul(ToReal(2),kmadd(g22L,kmul(G213,G213),knmsub(g12L,kmadd(G133,G211,kmadd(G111,G233,kmul(G113,kmul(G213,ToReal(-2))))),kmadd(g11L,kmsub(G113,G113,kmul(G111,G133)),knmsub(G233,kmadd(g23L,G311,kmul(g22L,G211)),kmadd(g33L,kmsub(G313,G313,kmul(G311,G333)),kmadd(g13L,knmsub(G133,G311,kmsub(G113,kmul(G313,ToReal(2)),kmul(G111,G333))),kmul(g23L,kmsub(G213,kmul(G313,ToReal(2)),kmul(G211,G333))))))))))),JacPDstandardNth33g11),JacPDstandardNth11g33))))))))); - CCTK_REAL_VEC R12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kmul(ToReal(0.5),kmadd(gu12,kadd(JacPDstandardNth11g22,kmadd(JacPDstandardNth12g12,ToReal(-2),JacPDstandardNth22g11)),kmadd(gu22,ksub(JacPDstandardNth21g22,JacPDstandardNth12g22),kmadd(gu13,kadd(JacPDstandardNth11g23,ksub(JacPDstandardNth32g11,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13))),kmadd(gu23,kadd(JacPDstandardNth21g23,ksub(JacPDstandardNth32g12,kadd(JacPDstandardNth23g12,JacPDstandardNth12g23))),kmadd(gu32,kadd(JacPDstandardNth22g13,ksub(JacPDstandardNth31g22,kadd(JacPDstandardNth32g12,JacPDstandardNth12g23))),kmadd(gu33,kadd(JacPDstandardNth31g23,ksub(JacPDstandardNth32g13,kadd(JacPDstandardNth33g12,JacPDstandardNth12g33))),kmul(kmadd(gu21,kmadd(G122,kmadd(g11L,G111,kmadd(g12L,G211,kmul(g13L,G311))),kmadd(G222,kmadd(g22L,G211,kmul(g23L,G311)),kmadd(kmadd(g13L,G111,kmadd(g23L,G211,kmul(g33L,G311))),G322,kmadd(kmadd(g13L,kmul(G112,G312),kmul(g23L,kmul(G212,G312))),ToReal(-2),kmsub(g12L,kmadd(G111,G222,kmul(G112,kmul(G212,ToReal(-2)))),kmadd(g11L,kmul(G112,G112),kmadd(g33L,kmul(G312,G312),kmul(g22L,kmul(G212,G212))))))))),kmadd(gu31,kmadd(g13L,kmul(G111,G323),kmadd(g23L,kmul(G211,G323),kmadd(G311,kmadd(g13L,G123,kmadd(g23L,G223,kmul(g33L,G323))),kmadd(g11L,kmsub(G111,G123,kmul(G112,G113)),knmsub(G313,kmadd(g23L,G212,kmul(g13L,G112)),kmadd(g12L,kmadd(G123,G211,kmsub(G111,G223,kmadd(G112,G213,kmul(G113,G212)))),kmsub(g22L,kmsub(G211,G223,kmul(G212,G213)),kmul(G312,kmadd(g13L,G113,kmadd(g33L,G313,kmul(g23L,G213))))))))))),kmadd(gu23,kmadd(g13L,kmul(G113,G322),kmadd(g23L,kmul(G213,G322),kmadd(g33L,kmul(G313,G322),kmadd(g11L,kmsub(G113,G122,kmul(G112,G123)),kmadd(g12L,kmadd(G122,G213,kmsub(G113,G222,kmadd(G112,G223,kmul(G123,G212)))),kmadd(g22L,kmsub(G213,G222,kmul(G212,G223)),knmsub(G312,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))),kmadd(g13L,kmsub(G122,G313,kmul(G112,G323)),kmul(g23L,kmsub(G222,G313,kmul(G212,G323))))))))))),kmul(gu33,kmadd(g13L,kmul(G113,G323),kmadd(g23L,kmul(G213,G323),kmadd(g33L,kmul(G313,G323),kmadd(g11L,kmsub(G113,G123,kmul(G112,G133)),kmadd(g12L,kmadd(G123,G213,kmsub(G113,G223,kmadd(G112,G233,kmul(G133,G212)))),kmadd(g22L,kmsub(G213,G223,kmul(G212,G233)),knmsub(G312,kmadd(g13L,G133,kmadd(g33L,G333,kmul(g23L,G233))),kmadd(g13L,kmsub(G123,G313,kmul(G112,G333)),kmul(g23L,kmsub(G223,G313,kmul(G212,G333))))))))))))))),ToReal(2))))))))); - CCTK_REAL_VEC R13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kmul(ToReal(0.5),kmadd(gu13,kadd(JacPDstandardNth11g33,kmadd(JacPDstandardNth13g13,ToReal(-2),JacPDstandardNth33g11)),kmadd(gu12,kadd(JacPDstandardNth11g23,ksub(JacPDstandardNth23g11,kadd(JacPDstandardNth13g12,JacPDstandardNth12g13))),kmadd(gu33,ksub(JacPDstandardNth31g33,JacPDstandardNth13g33),kmadd(gu22,kadd(JacPDstandardNth21g23,ksub(JacPDstandardNth23g12,kadd(JacPDstandardNth22g13,JacPDstandardNth13g22))),kmadd(gu23,kadd(JacPDstandardNth21g33,ksub(JacPDstandardNth33g12,kadd(JacPDstandardNth23g13,JacPDstandardNth13g23))),kmadd(gu32,kadd(JacPDstandardNth23g13,ksub(JacPDstandardNth31g23,kadd(JacPDstandardNth32g13,JacPDstandardNth13g23))),kmul(kmadd(gu31,kmadd(G133,kmadd(g11L,G111,kmadd(g12L,G211,kmul(g13L,G311))),kmadd(G233,kmadd(g22L,G211,kmul(g23L,G311)),kmadd(kmadd(g13L,G111,kmadd(g23L,G211,kmul(g33L,G311))),G333,kmadd(kmadd(g13L,kmul(G113,G313),kmul(g23L,kmul(G213,G313))),ToReal(-2),kmsub(g12L,kmadd(G111,G233,kmul(G113,kmul(G213,ToReal(-2)))),kmadd(g11L,kmul(G113,G113),kmadd(g33L,kmul(G313,G313),kmul(g22L,kmul(G213,G213))))))))),kmadd(gu21,kmadd(g13L,kmul(G111,G323),kmadd(g23L,kmul(G211,G323),kmadd(G311,kmadd(g13L,G123,kmadd(g23L,G223,kmul(g33L,G323))),kmadd(g11L,kmsub(G111,G123,kmul(G112,G113)),knmsub(G313,kmadd(g23L,G212,kmul(g13L,G112)),kmadd(g12L,kmadd(G123,G211,kmsub(G111,G223,kmadd(G112,G213,kmul(G113,G212)))),kmsub(g22L,kmsub(G211,G223,kmul(G212,G213)),kmul(G312,kmadd(g13L,G113,kmadd(g33L,G313,kmul(g23L,G213))))))))))),kmadd(gu22,kmadd(g13L,kmul(G112,G323),kmadd(g23L,kmul(G212,G323),kmadd(G312,kmadd(g13L,G123,kmadd(g23L,G223,kmul(g33L,G323))),kmadd(g11L,kmsub(G112,G123,kmul(G113,G122)),knmsub(G322,kmadd(g23L,G213,kmul(g13L,G113)),kmadd(g12L,kmadd(G123,G212,kmsub(G112,G223,kmadd(G113,G222,kmul(G122,G213)))),kmsub(g22L,kmsub(G212,G223,kmul(G213,G222)),kmul(G313,kmadd(g13L,G122,kmadd(g33L,G322,kmul(g23L,G222))))))))))),kmul(gu32,kmadd(g13L,kmul(G112,G333),kmadd(g23L,kmul(G212,G333),kmadd(G312,kmadd(g13L,G133,kmadd(g23L,G233,kmul(g33L,G333))),kmadd(g11L,kmsub(G112,G133,kmul(G113,G123)),knmsub(G323,kmadd(g23L,G213,kmul(g13L,G113)),kmadd(g12L,kmadd(G133,G212,kmsub(G112,G233,kmadd(G113,G223,kmul(G123,G213)))),kmsub(g22L,kmsub(G212,G233,kmul(G213,G223)),kmul(G313,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))))))))))))))),ToReal(2))))))))); - CCTK_REAL_VEC R22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kmul(ToReal(0.5),knmsub(gu11,kadd(JacPDstandardNth11g22,kmadd(JacPDstandardNth12g12,ToReal(-2),JacPDstandardNth22g11)),kmadd(gu21,ksub(JacPDstandardNth12g22,JacPDstandardNth21g22),kmadd(gu13,kadd(JacPDstandardNth12g23,ksub(JacPDstandardNth32g12,kadd(JacPDstandardNth22g13,JacPDstandardNth13g22))),kmadd(gu23,ksub(JacPDstandardNth32g22,JacPDstandardNth23g22),kmadd(gu31,kadd(JacPDstandardNth12g23,ksub(JacPDstandardNth32g12,kadd(JacPDstandardNth31g22,JacPDstandardNth22g13))),kmadd(ToReal(2),kmadd(gu13,kmadd(g13L,kmul(G112,G323),kmadd(g23L,kmul(G212,G323),kmadd(g11L,kmsub(G112,G123,kmul(G113,G122)),kmadd(g12L,kmadd(G123,G212,kmsub(G112,G223,kmadd(G113,G222,kmul(G122,G213)))),kmadd(g22L,kmsub(G212,G223,kmul(G213,G222)),kmadd(g13L,kmsub(G123,G312,kmadd(G113,G322,kmul(G122,G313))),kmadd(g23L,kmsub(G223,G312,kmadd(G213,G322,kmul(G222,G313))),kmul(g33L,kmsub(G312,G323,kmul(G313,G322)))))))))),kmadd(gu31,kmadd(g13L,kmul(G112,G323),kmadd(g23L,kmul(G212,G323),kmadd(g11L,kmsub(G112,G123,kmul(G113,G122)),kmadd(g12L,kmadd(G123,G212,kmsub(G112,G223,kmadd(G113,G222,kmul(G122,G213)))),kmadd(g22L,kmsub(G212,G223,kmul(G213,G222)),kmadd(g13L,kmsub(G123,G312,kmadd(G113,G322,kmul(G122,G313))),kmadd(g23L,kmsub(G223,G312,kmadd(G213,G322,kmul(G222,G313))),kmul(g33L,kmsub(G312,G323,kmul(G313,G322)))))))))),kmul(gu11,kmadd(g22L,kmul(G212,G212),knmsub(g12L,kmadd(G122,G211,kmadd(G111,G222,kmul(G112,kmul(G212,ToReal(-2))))),kmadd(g11L,kmsub(G112,G112,kmul(G111,G122)),knmsub(G222,kmadd(g23L,G311,kmul(g22L,G211)),kmadd(g33L,kmsub(G312,G312,kmul(G311,G322)),kmadd(g13L,knmsub(G122,G311,kmsub(G112,kmul(G312,ToReal(2)),kmul(G111,G322))),kmul(g23L,kmsub(G212,kmul(G312,ToReal(2)),kmul(G211,G322)))))))))))),kmul(gu33,ksub(ksub(kmadd(JacPDstandardNth32g23,ToReal(2),kmul(ToReal(2),kmadd(g22L,kmul(G223,G223),knmsub(g12L,kmadd(G133,G222,kmadd(G122,G233,kmul(G123,kmul(G223,ToReal(-2))))),kmadd(g11L,kmsub(G123,G123,kmul(G122,G133)),knmsub(G233,kmadd(g23L,G322,kmul(g22L,G222)),kmadd(g33L,kmsub(G323,G323,kmul(G322,G333)),kmadd(g13L,knmsub(G133,G322,kmsub(G123,kmul(G323,ToReal(2)),kmul(G122,G333))),kmul(g23L,kmsub(G223,kmul(G323,ToReal(2)),kmul(G222,G333))))))))))),JacPDstandardNth33g22),JacPDstandardNth22g33))))))))); - CCTK_REAL_VEC R23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kmul(ToReal(0.5),kmadd(gu23,kadd(JacPDstandardNth22g33,kmadd(JacPDstandardNth23g23,ToReal(-2),JacPDstandardNth33g22)),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(gu32,kmadd(G133,kmadd(g11L,G122,kmadd(g12L,G222,kmul(g13L,G322))),kmadd(G233,kmadd(g22L,G222,kmul(g23L,G322)),kmadd(kmadd(g13L,G122,kmadd(g23L,G222,kmul(g33L,G322))),G333,kmadd(kmadd(g13L,kmul(G123,G323),kmul(g23L,kmul(G223,G323))),ToReal(-2),kmsub(g12L,kmadd(G122,G233,kmul(G123,kmul(G223,ToReal(-2)))),kmadd(g11L,kmul(G123,G123),kmadd(g33L,kmul(G323,G323),kmul(g22L,kmul(G223,G223))))))))),kmadd(gu31,kmadd(g13L,kmul(G112,G333),kmadd(g23L,kmul(G212,G333),kmadd(G312,kmadd(g13L,G133,kmadd(g23L,G233,kmul(g33L,G333))),kmadd(g11L,kmsub(G112,G133,kmul(G113,G123)),knmsub(G323,kmadd(g23L,G213,kmul(g13L,G113)),kmadd(g12L,kmadd(G133,G212,kmsub(G112,G233,kmadd(G113,G223,kmul(G123,G213)))),kmsub(g22L,kmsub(G212,G233,kmul(G213,G223)),kmul(G313,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))))))))))),kmadd(gu11,kmadd(g13L,kmul(G112,G313),kmadd(g23L,kmul(G212,G313),kmadd(g33L,kmul(G312,G313),kmadd(g11L,kmsub(G112,G113,kmul(G111,G123)),kmadd(g12L,kmadd(G113,G212,kmsub(G112,G213,kmadd(G111,G223,kmul(G123,G211)))),kmadd(g22L,kmsub(G212,G213,kmul(G211,G223)),knmsub(G311,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))),kmadd(g13L,kmsub(G113,G312,kmul(G111,G323)),kmul(g23L,kmsub(G213,G312,kmul(G211,G323))))))))))),kmul(gu12,kmadd(g13L,kmul(G113,G322),kmadd(g23L,kmul(G213,G322),kmadd(g33L,kmul(G313,G322),kmadd(g11L,kmsub(G113,G122,kmul(G112,G123)),kmadd(g12L,kmadd(G122,G213,kmsub(G113,G222,kmadd(G112,G223,kmul(G123,G212)))),kmadd(g22L,kmsub(G213,G222,kmul(G212,G223)),knmsub(G312,kmadd(g13L,G123,kmadd(g33L,G323,kmul(g23L,G223))),kmadd(g13L,kmsub(G122,G313,kmul(G112,G323)),kmul(g23L,kmsub(G222,G313,kmul(G212,G323))))))))))))))),ToReal(2))))))))); - CCTK_REAL_VEC R33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = kmul(ToReal(0.5),knmsub(gu11,kadd(JacPDstandardNth11g33,kmadd(JacPDstandardNth13g13,ToReal(-2),JacPDstandardNth33g11)),kmadd(gu31,ksub(JacPDstandardNth13g33,JacPDstandardNth31g33),kmadd(gu32,ksub(JacPDstandardNth23g33,JacPDstandardNth32g33),kmadd(gu12,kadd(JacPDstandardNth13g23,ksub(JacPDstandardNth23g13,kadd(JacPDstandardNth33g12,JacPDstandardNth12g33))),kmadd(gu21,kadd(JacPDstandardNth13g23,ksub(JacPDstandardNth23g13,kadd(JacPDstandardNth33g12,JacPDstandardNth21g33))),kmadd(ToReal(2),kmadd(gu12,kmadd(g13L,kmul(G113,G323),kmadd(g23L,kmul(G213,G323),kmadd(g33L,kmul(G313,G323),kmadd(g11L,kmsub(G113,G123,kmul(G112,G133)),kmadd(g12L,kmadd(G123,G213,kmsub(G113,G223,kmadd(G112,G233,kmul(G133,G212)))),kmadd(g22L,kmsub(G213,G223,kmul(G212,G233)),knmsub(G312,kmadd(g13L,G133,kmadd(g33L,G333,kmul(g23L,G233))),kmadd(g13L,kmsub(G123,G313,kmul(G112,G333)),kmul(g23L,kmsub(G223,G313,kmul(G212,G333))))))))))),kmadd(gu21,kmadd(g13L,kmul(G113,G323),kmadd(g23L,kmul(G213,G323),kmadd(g33L,kmul(G313,G323),kmadd(g11L,kmsub(G113,G123,kmul(G112,G133)),kmadd(g12L,kmadd(G123,G213,kmsub(G113,G223,kmadd(G112,G233,kmul(G133,G212)))),kmadd(g22L,kmsub(G213,G223,kmul(G212,G233)),knmsub(G312,kmadd(g13L,G133,kmadd(g33L,G333,kmul(g23L,G233))),kmadd(g13L,kmsub(G123,G313,kmul(G112,G333)),kmul(g23L,kmsub(G223,G313,kmul(G212,G333))))))))))),kmul(gu11,kmadd(g22L,kmul(G213,G213),knmsub(g12L,kmadd(G133,G211,kmadd(G111,G233,kmul(G113,kmul(G213,ToReal(-2))))),kmadd(g11L,kmsub(G113,G113,kmul(G111,G133)),knmsub(G233,kmadd(g23L,G311,kmul(g22L,G211)),kmadd(g33L,kmsub(G313,G313,kmul(G311,G333)),kmadd(g13L,knmsub(G133,G311,kmsub(G113,kmul(G313,ToReal(2)),kmul(G111,G333))),kmul(g23L,kmsub(G213,kmul(G313,ToReal(2)),kmul(G211,G333)))))))))))),kmul(gu22,ksub(ksub(kmadd(JacPDstandardNth23g23,ToReal(2),kmul(ToReal(2),kmadd(g22L,kmul(G223,G223),knmsub(g12L,kmadd(G133,G222,kmadd(G122,G233,kmul(G123,kmul(G223,ToReal(-2))))),kmadd(g11L,kmsub(G123,G123,kmul(G122,G133)),knmsub(G233,kmadd(g23L,G322,kmul(g22L,G222)),kmadd(g33L,kmsub(G323,G323,kmul(G322,G333)),kmadd(g13L,knmsub(G133,G322,kmsub(G123,kmul(G323,ToReal(2)),kmul(G122,G333))),kmul(g23L,kmsub(G223,kmul(G323,ToReal(2)),kmul(G222,G333))))))))))),JacPDstandardNth33g22),JacPDstandardNth22g33))))))))); - CCTK_REAL_VEC trR = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trR = kmadd(gu11,R11,kmadd(kadd(gu12,gu21),R12,kmadd(kadd(gu13,gu31),R13,kmadd(gu22,R22,kmadd(kadd(gu23,gu32),R23,kmul(gu33,R33)))))); - 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 HL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED HL = kadd(trR,kmadd(trK,trK,kmsub(kmadd(Km12,Km21,kmadd(Km13,Km31,kmul(Km23,Km32))),ToReal(-2),kmadd(Km11,Km11,kmadd(Km33,Km33,kmul(Km22,Km22)))))); - CCTK_REAL_VEC M1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M1L = kmadd(gu21,kmadd(K22L,G211,kmadd(K23L,G311,kadd(JacPDstandardNth2K11,knmsub(K11L,G112,knmsub(K13L,G312,kmsub(K12L,ksub(G111,G212),JacPDstandardNth1K12)))))),kmadd(gu22,kmadd(K22L,G212,kmadd(K23L,G312,kadd(JacPDstandardNth2K12,knmsub(K11L,G122,knmsub(K13L,G322,kmsub(K12L,ksub(G112,G222),JacPDstandardNth1K22)))))),kmadd(gu23,kmadd(K22L,G213,kmadd(K23L,G313,kadd(JacPDstandardNth2K13,knmsub(K11L,G123,knmsub(K13L,G323,kmsub(K12L,ksub(G113,G223),JacPDstandardNth1K23)))))),kmadd(gu31,kmadd(K23L,G211,kmadd(K33L,G311,kadd(JacPDstandardNth3K11,knmsub(K11L,G113,knmsub(K12L,G213,kmsub(K13L,ksub(G111,G313),JacPDstandardNth1K13)))))),kmadd(gu32,kmadd(K23L,G212,kmadd(K33L,G312,kadd(JacPDstandardNth3K12,knmsub(K11L,G123,knmsub(K12L,G223,kmsub(K13L,ksub(G112,G323),JacPDstandardNth1K23)))))),kmul(gu33,kmadd(K23L,G213,kmadd(K33L,G313,kadd(JacPDstandardNth3K13,knmsub(K11L,G133,knmsub(K12L,G233,kmsub(K13L,ksub(G113,G333),JacPDstandardNth1K33)))))))))))); - CCTK_REAL_VEC M2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = kmadd(gu11,kmadd(K11L,G112,kmadd(K13L,G312,kadd(JacPDstandardNth1K12,knmsub(K22L,G211,knmsub(K23L,G311,kmsub(K12L,ksub(G212,G111),JacPDstandardNth2K11)))))),kmadd(gu12,kmadd(K11L,G122,kmadd(K13L,G322,kadd(JacPDstandardNth1K22,knmsub(K22L,G212,knmsub(K23L,G312,kmsub(K12L,ksub(G222,G112),JacPDstandardNth2K12)))))),kmadd(gu13,kmadd(K11L,G123,kmadd(K13L,G323,kadd(JacPDstandardNth1K23,knmsub(K22L,G213,knmsub(K23L,G313,kmsub(K12L,ksub(G223,G113),JacPDstandardNth2K13)))))),kmadd(gu31,kmadd(K13L,G112,kmadd(K33L,G312,kadd(JacPDstandardNth3K12,knmsub(K12L,G113,knmsub(K22L,G213,kmsub(K23L,ksub(G212,G313),JacPDstandardNth2K13)))))),kmadd(gu32,kmadd(K13L,G122,kmadd(K33L,G322,kadd(JacPDstandardNth3K22,knmsub(K12L,G123,knmsub(K22L,G223,kmsub(K23L,ksub(G222,G323),JacPDstandardNth2K23)))))),kmul(gu33,kmadd(K13L,G123,kmadd(K33L,G323,kadd(JacPDstandardNth3K23,knmsub(K12L,G133,knmsub(K22L,G233,kmsub(K23L,ksub(G223,G333),JacPDstandardNth2K33)))))))))))); - CCTK_REAL_VEC M3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = kmadd(gu11,kmadd(K11L,G113,kmadd(K12L,G213,kadd(JacPDstandardNth1K13,knmsub(K23L,G211,knmsub(K33L,G311,kmsub(K13L,ksub(G313,G111),JacPDstandardNth3K11)))))),kmadd(gu12,kmadd(K11L,G123,kmadd(K12L,G223,kadd(JacPDstandardNth1K23,knmsub(K23L,G212,knmsub(K33L,G312,kmsub(K13L,ksub(G323,G112),JacPDstandardNth3K12)))))),kmadd(gu13,kmadd(K11L,G133,kmadd(K12L,G233,kadd(JacPDstandardNth1K33,knmsub(K23L,G213,knmsub(K33L,G313,kmsub(K13L,ksub(G333,G113),JacPDstandardNth3K13)))))),kmadd(gu21,kmadd(K12L,G113,kmadd(K22L,G213,kadd(JacPDstandardNth2K13,knmsub(K13L,G112,knmsub(K33L,G312,kmsub(K23L,ksub(G313,G212),JacPDstandardNth3K12)))))),kmadd(gu22,kmadd(K12L,G123,kmadd(K22L,G223,kadd(JacPDstandardNth2K23,knmsub(K13L,G122,knmsub(K33L,G322,kmsub(K23L,ksub(G323,G222),JacPDstandardNth3K22)))))),kmul(gu23,kmadd(K12L,G133,kmadd(K22L,G233,kadd(JacPDstandardNth2K33,knmsub(K13L,G123,knmsub(K33L,G323,kmsub(K23L,ksub(G333,G223),JacPDstandardNth3K23)))))))))))); /* Copy local copies back to grid functions */ diff --git a/ML_ADM/src/ML_ADM_constraints_boundary.cc b/ML_ADM/src/ML_ADM_constraints_boundary.cc index a677bac..efbc1ad 100644 --- a/ML_ADM/src/ML_ADM_constraints_boundary.cc +++ b/ML_ADM/src/ML_ADM_constraints_boundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_ADM_constraints_boundary_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_Ham","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_ADM::ML_Ham."); @@ -51,66 +51,66 @@ static void ML_ADM_constraints_boundary_Body(cGH const * restrict const cctkGH, /* 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) @@ -124,38 +124,38 @@ static void ML_ADM_constraints_boundary_Body(cGH const * restrict const cctkGH, 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 */ @@ -172,7 +172,7 @@ static void ML_ADM_constraints_boundary_Body(cGH const * restrict const cctkGH, 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 */ @@ -199,13 +199,13 @@ static void ML_ADM_constraints_boundary_Body(cGH const * restrict const cctkGH, } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC HL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED HL = ToReal(0); - CCTK_REAL_VEC M1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M1L = ToReal(0); - CCTK_REAL_VEC M2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = ToReal(0); - CCTK_REAL_VEC M3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_ADM/src/ML_ADM_convertFromADMBase.cc b/ML_ADM/src/ML_ADM_convertFromADMBase.cc index 919a729..ce59fa9 100644 --- a/ML_ADM/src/ML_ADM_convertFromADMBase.cc +++ b/ML_ADM/src/ML_ADM_convertFromADMBase.cc @@ -36,66 +36,66 @@ static void ML_ADM_convertFromADMBase_Body(cGH const * restrict const cctkGH, 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) @@ -109,38 +109,38 @@ static void ML_ADM_convertFromADMBase_Body(cGH const * restrict const cctkGH, 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 */ @@ -157,26 +157,26 @@ static void ML_ADM_convertFromADMBase_Body(cGH const * restrict const cctkGH, 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 alpL = vec_load(alp[index]); - CCTK_REAL_VEC betaxL = vec_load(betax[index]); - CCTK_REAL_VEC betayL = vec_load(betay[index]); - CCTK_REAL_VEC betazL = vec_load(betaz[index]); - CCTK_REAL_VEC gxxL = vec_load(gxx[index]); - CCTK_REAL_VEC gxyL = vec_load(gxy[index]); - CCTK_REAL_VEC gxzL = vec_load(gxz[index]); - CCTK_REAL_VEC gyyL = vec_load(gyy[index]); - CCTK_REAL_VEC gyzL = vec_load(gyz[index]); - CCTK_REAL_VEC gzzL = vec_load(gzz[index]); - CCTK_REAL_VEC kxxL = vec_load(kxx[index]); - CCTK_REAL_VEC kxyL = vec_load(kxy[index]); - CCTK_REAL_VEC kxzL = vec_load(kxz[index]); - CCTK_REAL_VEC kyyL = vec_load(kyy[index]); - CCTK_REAL_VEC kyzL = vec_load(kyz[index]); - CCTK_REAL_VEC kzzL = vec_load(kzz[index]); + CCTK_REAL_VEC alpL CCTK_ATTRIBUTE_UNUSED = vec_load(alp[index]); + CCTK_REAL_VEC betaxL CCTK_ATTRIBUTE_UNUSED = vec_load(betax[index]); + CCTK_REAL_VEC betayL CCTK_ATTRIBUTE_UNUSED = vec_load(betay[index]); + CCTK_REAL_VEC betazL CCTK_ATTRIBUTE_UNUSED = vec_load(betaz[index]); + CCTK_REAL_VEC gxxL CCTK_ATTRIBUTE_UNUSED = vec_load(gxx[index]); + CCTK_REAL_VEC gxyL CCTK_ATTRIBUTE_UNUSED = vec_load(gxy[index]); + CCTK_REAL_VEC gxzL CCTK_ATTRIBUTE_UNUSED = vec_load(gxz[index]); + CCTK_REAL_VEC gyyL CCTK_ATTRIBUTE_UNUSED = vec_load(gyy[index]); + CCTK_REAL_VEC gyzL CCTK_ATTRIBUTE_UNUSED = vec_load(gyz[index]); + CCTK_REAL_VEC gzzL CCTK_ATTRIBUTE_UNUSED = vec_load(gzz[index]); + CCTK_REAL_VEC kxxL CCTK_ATTRIBUTE_UNUSED = vec_load(kxx[index]); + CCTK_REAL_VEC kxyL CCTK_ATTRIBUTE_UNUSED = vec_load(kxy[index]); + CCTK_REAL_VEC kxzL CCTK_ATTRIBUTE_UNUSED = vec_load(kxz[index]); + CCTK_REAL_VEC kyyL CCTK_ATTRIBUTE_UNUSED = vec_load(kyy[index]); + CCTK_REAL_VEC kyzL CCTK_ATTRIBUTE_UNUSED = vec_load(kyz[index]); + CCTK_REAL_VEC kzzL CCTK_ATTRIBUTE_UNUSED = vec_load(kzz[index]); @@ -200,37 +200,37 @@ static void ML_ADM_convertFromADMBase_Body(cGH const * restrict const cctkGH, in } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC g11L = gxxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11L = gxxL; - CCTK_REAL_VEC g12L = gxyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12L = gxyL; - CCTK_REAL_VEC g13L = gxzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13L = gxzL; - CCTK_REAL_VEC g22L = gyyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22L = gyyL; - CCTK_REAL_VEC g23L = gyzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23L = gyzL; - CCTK_REAL_VEC g33L = gzzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33L = gzzL; - CCTK_REAL_VEC K11L = kxxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K11L = kxxL; - CCTK_REAL_VEC K12L = kxyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K12L = kxyL; - CCTK_REAL_VEC K13L = kxzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K13L = kxzL; - CCTK_REAL_VEC K22L = kyyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K22L = kyyL; - CCTK_REAL_VEC K23L = kyzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K23L = kyzL; - CCTK_REAL_VEC K33L = kzzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED K33L = kzzL; - CCTK_REAL_VEC alphaL = alpL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = alpL; - CCTK_REAL_VEC beta1L = betaxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = betaxL; - CCTK_REAL_VEC beta2L = betayL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = betayL; - CCTK_REAL_VEC beta3L = betazL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = betazL; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_ADM/src/ML_ADM_convertToADMBase.cc b/ML_ADM/src/ML_ADM_convertToADMBase.cc index 4779ec8..ad0cd6e 100644 --- a/ML_ADM/src/ML_ADM_convertToADMBase.cc +++ b/ML_ADM/src/ML_ADM_convertToADMBase.cc @@ -36,66 +36,66 @@ static void ML_ADM_convertToADMBase_Body(cGH const * restrict const cctkGH, int /* 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) @@ -109,38 +109,38 @@ static void ML_ADM_convertToADMBase_Body(cGH const * restrict const cctkGH, int 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 */ @@ -157,26 +157,26 @@ static void ML_ADM_convertToADMBase_Body(cGH const * restrict const cctkGH, int 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 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]); @@ -200,45 +200,45 @@ static void ML_ADM_convertToADMBase_Body(cGH const * restrict const cctkGH, int } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC gxxL = g11L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gxxL = g11L; - CCTK_REAL_VEC gxyL = g12L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gxyL = g12L; - CCTK_REAL_VEC gxzL = g13L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gxzL = g13L; - CCTK_REAL_VEC gyyL = g22L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gyyL = g22L; - CCTK_REAL_VEC gyzL = g23L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gyzL = g23L; - CCTK_REAL_VEC gzzL = g33L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gzzL = g33L; - CCTK_REAL_VEC kxxL = K11L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxxL = K11L; - CCTK_REAL_VEC kxyL = K12L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxyL = K12L; - CCTK_REAL_VEC kxzL = K13L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxzL = K13L; - CCTK_REAL_VEC kyyL = K22L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyyL = K22L; - CCTK_REAL_VEC kyzL = K23L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyzL = K23L; - CCTK_REAL_VEC kzzL = K33L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kzzL = K33L; - CCTK_REAL_VEC alpL = alphaL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpL = alphaL; - CCTK_REAL_VEC dtalpL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = ToReal(0); - CCTK_REAL_VEC betaxL = beta1L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betaxL = beta1L; - CCTK_REAL_VEC betayL = beta2L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betayL = beta2L; - CCTK_REAL_VEC betazL = beta3L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betazL = beta3L; - CCTK_REAL_VEC dtbetaxL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetaxL = ToReal(0); - CCTK_REAL_VEC dtbetayL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetayL = ToReal(0); - CCTK_REAL_VEC dtbetazL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetazL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_ADM/src/RegisterMoL.cc b/ML_ADM/src/RegisterMoL.cc index 10b8371..574b299 100644 --- a/ML_ADM/src/RegisterMoL.cc +++ b/ML_ADM/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_ADM_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K11"), CCTK_VarIndex("ML_ADM::K11rhs")); diff --git a/ML_ADM/src/Startup.cc b/ML_ADM/src/Startup.cc index 97927b7..517b0a3 100644 --- a/ML_ADM/src/Startup.cc +++ b/ML_ADM/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_ADM_Startup(void) { - const char * banner = "ML_ADM"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_ADM"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_ADMConstraints/src/Boundaries.cc b/ML_ADMConstraints/src/Boundaries.cc index 0d4892d..5eecea1 100644 --- a/ML_ADMConstraints/src/Boundaries.cc +++ b/ML_ADMConstraints/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_ADMConstraints_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; return; } diff --git a/ML_ADMConstraints/src/ML_ADMConstraints.cc b/ML_ADMConstraints/src/ML_ADMConstraints.cc index ed98b4f..e0ce995 100644 --- a/ML_ADMConstraints/src/ML_ADMConstraints.cc +++ b/ML_ADMConstraints/src/ML_ADMConstraints.cc @@ -27,7 +27,7 @@ extern "C" void ML_ADMConstraints_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_ADMConstraints::ML_Ham","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_ADMConstraints::ML_Ham."); @@ -46,39 +46,39 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const /* 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 const dx = ToReal(CCTK_DELTA_SPACE(0)); - CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); - CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); - CCTK_REAL const t = ToReal(cctk_time); - CCTK_REAL const dxi = INV(dx); - CCTK_REAL const dyi = INV(dy); - CCTK_REAL const dzi = INV(dz); - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 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 const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0)); + CCTK_REAL const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1)); + CCTK_REAL const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2)); + CCTK_REAL const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME); + CCTK_REAL const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time); + CCTK_REAL const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx); + CCTK_REAL const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); + CCTK_REAL const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); + CCTK_REAL const khalf CCTK_ATTRIBUTE_UNUSED = 0.5; + CCTK_REAL const kthird CCTK_ATTRIBUTE_UNUSED = 1/3.0; + CCTK_REAL const ktwothird CCTK_ATTRIBUTE_UNUSED = 2.0/3.0; + CCTK_REAL const kfourthird CCTK_ATTRIBUTE_UNUSED = 4.0/3.0; + CCTK_REAL const keightthird CCTK_ATTRIBUTE_UNUSED = 8.0/3.0; + CCTK_REAL const hdxi CCTK_ATTRIBUTE_UNUSED = 0.5 * dxi; + CCTK_REAL const hdyi CCTK_ATTRIBUTE_UNUSED = 0.5 * dyi; + CCTK_REAL const hdzi CCTK_ATTRIBUTE_UNUSED = 0.5 * dzi; /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx); - CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy); - CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz); - CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy); - CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz); - CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz); - CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx)); - CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy)); - CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz)); + CCTK_REAL const p1o12dx CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dx); + CCTK_REAL const p1o12dy CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dy); + CCTK_REAL const p1o12dz CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dz); + CCTK_REAL const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = 0.00694444444444444444444444444444*INV(dx*dy); + CCTK_REAL const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = 0.00694444444444444444444444444444*INV(dx*dz); + CCTK_REAL const p1o144dydz CCTK_ATTRIBUTE_UNUSED = 0.00694444444444444444444444444444*INV(dy*dz); + CCTK_REAL const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = -0.0833333333333333333333333333333*INV(SQR(dx)); + CCTK_REAL const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = -0.0833333333333333333333333333333*INV(SQR(dy)); + CCTK_REAL const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = -0.0833333333333333333333333333333*INV(SQR(dz)); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -92,38 +92,38 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -139,28 +139,28 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2], cctk_ash[0],cctk_ash[1],cctk_ash[2]) { - 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 alpL = alp[index]; - CCTK_REAL betaxL = betax[index]; - CCTK_REAL betayL = betay[index]; - CCTK_REAL betazL = betaz[index]; - CCTK_REAL gxxL = gxx[index]; - CCTK_REAL gxyL = gxy[index]; - CCTK_REAL gxzL = gxz[index]; - CCTK_REAL gyyL = gyy[index]; - CCTK_REAL gyzL = gyz[index]; - CCTK_REAL gzzL = gzz[index]; - CCTK_REAL kxxL = kxx[index]; - CCTK_REAL kxyL = kxy[index]; - CCTK_REAL kxzL = kxz[index]; - CCTK_REAL kyyL = kyy[index]; - CCTK_REAL kyzL = kyz[index]; - CCTK_REAL kzzL = kzz[index]; + CCTK_REAL alpL CCTK_ATTRIBUTE_UNUSED = alp[index]; + CCTK_REAL betaxL CCTK_ATTRIBUTE_UNUSED = betax[index]; + CCTK_REAL betayL CCTK_ATTRIBUTE_UNUSED = betay[index]; + CCTK_REAL betazL CCTK_ATTRIBUTE_UNUSED = betaz[index]; + CCTK_REAL gxxL CCTK_ATTRIBUTE_UNUSED = gxx[index]; + CCTK_REAL gxyL CCTK_ATTRIBUTE_UNUSED = gxy[index]; + CCTK_REAL gxzL CCTK_ATTRIBUTE_UNUSED = gxz[index]; + CCTK_REAL gyyL CCTK_ATTRIBUTE_UNUSED = gyy[index]; + CCTK_REAL gyzL CCTK_ATTRIBUTE_UNUSED = gyz[index]; + CCTK_REAL gzzL CCTK_ATTRIBUTE_UNUSED = gzz[index]; + CCTK_REAL kxxL CCTK_ATTRIBUTE_UNUSED = kxx[index]; + CCTK_REAL kxyL CCTK_ATTRIBUTE_UNUSED = kxy[index]; + CCTK_REAL kxzL CCTK_ATTRIBUTE_UNUSED = kxz[index]; + CCTK_REAL kyyL CCTK_ATTRIBUTE_UNUSED = kyy[index]; + CCTK_REAL kyzL CCTK_ATTRIBUTE_UNUSED = kyz[index]; + CCTK_REAL kzzL CCTK_ATTRIBUTE_UNUSED = kzz[index]; - CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -189,7 +189,7 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const eTzzL = ToReal(0.0); } - CCTK_REAL 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 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) { @@ -225,158 +225,158 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL const PDstandardNth1gxx = PDstandardNth1(&gxx[index]); - CCTK_REAL const PDstandardNth2gxx = PDstandardNth2(&gxx[index]); - CCTK_REAL const PDstandardNth3gxx = PDstandardNth3(&gxx[index]); - CCTK_REAL const PDstandardNth11gxx = PDstandardNth11(&gxx[index]); - CCTK_REAL const PDstandardNth22gxx = PDstandardNth22(&gxx[index]); - CCTK_REAL const PDstandardNth33gxx = PDstandardNth33(&gxx[index]); - CCTK_REAL const PDstandardNth12gxx = PDstandardNth12(&gxx[index]); - CCTK_REAL const PDstandardNth13gxx = PDstandardNth13(&gxx[index]); - CCTK_REAL const PDstandardNth23gxx = PDstandardNth23(&gxx[index]); - CCTK_REAL const PDstandardNth1gxy = PDstandardNth1(&gxy[index]); - CCTK_REAL const PDstandardNth2gxy = PDstandardNth2(&gxy[index]); - CCTK_REAL const PDstandardNth3gxy = PDstandardNth3(&gxy[index]); - CCTK_REAL const PDstandardNth11gxy = PDstandardNth11(&gxy[index]); - CCTK_REAL const PDstandardNth22gxy = PDstandardNth22(&gxy[index]); - CCTK_REAL const PDstandardNth33gxy = PDstandardNth33(&gxy[index]); - CCTK_REAL const PDstandardNth12gxy = PDstandardNth12(&gxy[index]); - CCTK_REAL const PDstandardNth13gxy = PDstandardNth13(&gxy[index]); - CCTK_REAL const PDstandardNth23gxy = PDstandardNth23(&gxy[index]); - CCTK_REAL const PDstandardNth1gxz = PDstandardNth1(&gxz[index]); - CCTK_REAL const PDstandardNth2gxz = PDstandardNth2(&gxz[index]); - CCTK_REAL const PDstandardNth3gxz = PDstandardNth3(&gxz[index]); - CCTK_REAL const PDstandardNth11gxz = PDstandardNth11(&gxz[index]); - CCTK_REAL const PDstandardNth22gxz = PDstandardNth22(&gxz[index]); - CCTK_REAL const PDstandardNth33gxz = PDstandardNth33(&gxz[index]); - CCTK_REAL const PDstandardNth12gxz = PDstandardNth12(&gxz[index]); - CCTK_REAL const PDstandardNth13gxz = PDstandardNth13(&gxz[index]); - CCTK_REAL const PDstandardNth23gxz = PDstandardNth23(&gxz[index]); - CCTK_REAL const PDstandardNth1gyy = PDstandardNth1(&gyy[index]); - CCTK_REAL const PDstandardNth2gyy = PDstandardNth2(&gyy[index]); - CCTK_REAL const PDstandardNth3gyy = PDstandardNth3(&gyy[index]); - CCTK_REAL const PDstandardNth11gyy = PDstandardNth11(&gyy[index]); - CCTK_REAL const PDstandardNth22gyy = PDstandardNth22(&gyy[index]); - CCTK_REAL const PDstandardNth33gyy = PDstandardNth33(&gyy[index]); - CCTK_REAL const PDstandardNth12gyy = PDstandardNth12(&gyy[index]); - CCTK_REAL const PDstandardNth13gyy = PDstandardNth13(&gyy[index]); - CCTK_REAL const PDstandardNth23gyy = PDstandardNth23(&gyy[index]); - CCTK_REAL const PDstandardNth1gyz = PDstandardNth1(&gyz[index]); - CCTK_REAL const PDstandardNth2gyz = PDstandardNth2(&gyz[index]); - CCTK_REAL const PDstandardNth3gyz = PDstandardNth3(&gyz[index]); - CCTK_REAL const PDstandardNth11gyz = PDstandardNth11(&gyz[index]); - CCTK_REAL const PDstandardNth22gyz = PDstandardNth22(&gyz[index]); - CCTK_REAL const PDstandardNth33gyz = PDstandardNth33(&gyz[index]); - CCTK_REAL const PDstandardNth12gyz = PDstandardNth12(&gyz[index]); - CCTK_REAL const PDstandardNth13gyz = PDstandardNth13(&gyz[index]); - CCTK_REAL const PDstandardNth23gyz = PDstandardNth23(&gyz[index]); - CCTK_REAL const PDstandardNth1gzz = PDstandardNth1(&gzz[index]); - CCTK_REAL const PDstandardNth2gzz = PDstandardNth2(&gzz[index]); - CCTK_REAL const PDstandardNth3gzz = PDstandardNth3(&gzz[index]); - CCTK_REAL const PDstandardNth11gzz = PDstandardNth11(&gzz[index]); - CCTK_REAL const PDstandardNth22gzz = PDstandardNth22(&gzz[index]); - CCTK_REAL const PDstandardNth33gzz = PDstandardNth33(&gzz[index]); - CCTK_REAL const PDstandardNth12gzz = PDstandardNth12(&gzz[index]); - CCTK_REAL const PDstandardNth13gzz = PDstandardNth13(&gzz[index]); - CCTK_REAL const PDstandardNth23gzz = PDstandardNth23(&gzz[index]); - CCTK_REAL const PDstandardNth1kxx = PDstandardNth1(&kxx[index]); - CCTK_REAL const PDstandardNth2kxx = PDstandardNth2(&kxx[index]); - CCTK_REAL const PDstandardNth3kxx = PDstandardNth3(&kxx[index]); - CCTK_REAL const PDstandardNth1kxy = PDstandardNth1(&kxy[index]); - CCTK_REAL const PDstandardNth2kxy = PDstandardNth2(&kxy[index]); - CCTK_REAL const PDstandardNth3kxy = PDstandardNth3(&kxy[index]); - CCTK_REAL const PDstandardNth1kxz = PDstandardNth1(&kxz[index]); - CCTK_REAL const PDstandardNth2kxz = PDstandardNth2(&kxz[index]); - CCTK_REAL const PDstandardNth3kxz = PDstandardNth3(&kxz[index]); - CCTK_REAL const PDstandardNth1kyy = PDstandardNth1(&kyy[index]); - CCTK_REAL const PDstandardNth2kyy = PDstandardNth2(&kyy[index]); - CCTK_REAL const PDstandardNth3kyy = PDstandardNth3(&kyy[index]); - CCTK_REAL const PDstandardNth1kyz = PDstandardNth1(&kyz[index]); - CCTK_REAL const PDstandardNth2kyz = PDstandardNth2(&kyz[index]); - CCTK_REAL const PDstandardNth3kyz = PDstandardNth3(&kyz[index]); - CCTK_REAL const PDstandardNth1kzz = PDstandardNth1(&kzz[index]); - CCTK_REAL const PDstandardNth2kzz = PDstandardNth2(&kzz[index]); - CCTK_REAL const PDstandardNth3kzz = PDstandardNth3(&kzz[index]); + CCTK_REAL const PDstandardNth1gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&gxx[index]); + CCTK_REAL const PDstandardNth2gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&gxx[index]); + CCTK_REAL const PDstandardNth3gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&gxx[index]); + CCTK_REAL const PDstandardNth11gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&gxx[index]); + CCTK_REAL const PDstandardNth22gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&gxx[index]); + CCTK_REAL const PDstandardNth33gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&gxx[index]); + CCTK_REAL const PDstandardNth12gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(&gxx[index]); + CCTK_REAL const PDstandardNth13gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(&gxx[index]); + CCTK_REAL const PDstandardNth23gxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(&gxx[index]); + CCTK_REAL const PDstandardNth1gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&gxy[index]); + CCTK_REAL const PDstandardNth2gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&gxy[index]); + CCTK_REAL const PDstandardNth3gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&gxy[index]); + CCTK_REAL const PDstandardNth11gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&gxy[index]); + CCTK_REAL const PDstandardNth22gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&gxy[index]); + CCTK_REAL const PDstandardNth33gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&gxy[index]); + CCTK_REAL const PDstandardNth12gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(&gxy[index]); + CCTK_REAL const PDstandardNth13gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(&gxy[index]); + CCTK_REAL const PDstandardNth23gxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(&gxy[index]); + CCTK_REAL const PDstandardNth1gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&gxz[index]); + CCTK_REAL const PDstandardNth2gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&gxz[index]); + CCTK_REAL const PDstandardNth3gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&gxz[index]); + CCTK_REAL const PDstandardNth11gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&gxz[index]); + CCTK_REAL const PDstandardNth22gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&gxz[index]); + CCTK_REAL const PDstandardNth33gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&gxz[index]); + CCTK_REAL const PDstandardNth12gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(&gxz[index]); + CCTK_REAL const PDstandardNth13gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(&gxz[index]); + CCTK_REAL const PDstandardNth23gxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(&gxz[index]); + CCTK_REAL const PDstandardNth1gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&gyy[index]); + CCTK_REAL const PDstandardNth2gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&gyy[index]); + CCTK_REAL const PDstandardNth3gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&gyy[index]); + CCTK_REAL const PDstandardNth11gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&gyy[index]); + CCTK_REAL const PDstandardNth22gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&gyy[index]); + CCTK_REAL const PDstandardNth33gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&gyy[index]); + CCTK_REAL const PDstandardNth12gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(&gyy[index]); + CCTK_REAL const PDstandardNth13gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(&gyy[index]); + CCTK_REAL const PDstandardNth23gyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(&gyy[index]); + CCTK_REAL const PDstandardNth1gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&gyz[index]); + CCTK_REAL const PDstandardNth2gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&gyz[index]); + CCTK_REAL const PDstandardNth3gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&gyz[index]); + CCTK_REAL const PDstandardNth11gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&gyz[index]); + CCTK_REAL const PDstandardNth22gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&gyz[index]); + CCTK_REAL const PDstandardNth33gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&gyz[index]); + CCTK_REAL const PDstandardNth12gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(&gyz[index]); + CCTK_REAL const PDstandardNth13gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(&gyz[index]); + CCTK_REAL const PDstandardNth23gyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(&gyz[index]); + CCTK_REAL const PDstandardNth1gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&gzz[index]); + CCTK_REAL const PDstandardNth2gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&gzz[index]); + CCTK_REAL const PDstandardNth3gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&gzz[index]); + CCTK_REAL const PDstandardNth11gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&gzz[index]); + CCTK_REAL const PDstandardNth22gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&gzz[index]); + CCTK_REAL const PDstandardNth33gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&gzz[index]); + CCTK_REAL const PDstandardNth12gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(&gzz[index]); + CCTK_REAL const PDstandardNth13gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(&gzz[index]); + CCTK_REAL const PDstandardNth23gzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(&gzz[index]); + CCTK_REAL const PDstandardNth1kxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&kxx[index]); + CCTK_REAL const PDstandardNth2kxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&kxx[index]); + CCTK_REAL const PDstandardNth3kxx CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&kxx[index]); + CCTK_REAL const PDstandardNth1kxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&kxy[index]); + CCTK_REAL const PDstandardNth2kxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&kxy[index]); + CCTK_REAL const PDstandardNth3kxy CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&kxy[index]); + CCTK_REAL const PDstandardNth1kxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&kxz[index]); + CCTK_REAL const PDstandardNth2kxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&kxz[index]); + CCTK_REAL const PDstandardNth3kxz CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&kxz[index]); + CCTK_REAL const PDstandardNth1kyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&kyy[index]); + CCTK_REAL const PDstandardNth2kyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&kyy[index]); + CCTK_REAL const PDstandardNth3kyy CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&kyy[index]); + CCTK_REAL const PDstandardNth1kyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&kyz[index]); + CCTK_REAL const PDstandardNth2kyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&kyz[index]); + CCTK_REAL const PDstandardNth3kyz CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&kyz[index]); + CCTK_REAL const PDstandardNth1kzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&kzz[index]); + CCTK_REAL const PDstandardNth2kzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&kzz[index]); + CCTK_REAL const PDstandardNth3kzz CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&kzz[index]); /* Calculate temporaries and grid functions */ - CCTK_REAL JacPDstandardNth11gyy; - CCTK_REAL JacPDstandardNth11gyz; - CCTK_REAL JacPDstandardNth11gzz; - CCTK_REAL JacPDstandardNth12gxx; - CCTK_REAL JacPDstandardNth12gxy; - CCTK_REAL JacPDstandardNth12gxz; - CCTK_REAL JacPDstandardNth12gyy; - CCTK_REAL JacPDstandardNth12gyz; - CCTK_REAL JacPDstandardNth12gzz; - CCTK_REAL JacPDstandardNth13gxx; - CCTK_REAL JacPDstandardNth13gxy; - CCTK_REAL JacPDstandardNth13gxz; - CCTK_REAL JacPDstandardNth13gyy; - CCTK_REAL JacPDstandardNth13gyz; - CCTK_REAL JacPDstandardNth13gzz; - CCTK_REAL JacPDstandardNth1gxx; - CCTK_REAL JacPDstandardNth1gxy; - CCTK_REAL JacPDstandardNth1gxz; - CCTK_REAL JacPDstandardNth1gyy; - CCTK_REAL JacPDstandardNth1gyz; - CCTK_REAL JacPDstandardNth1gzz; - CCTK_REAL JacPDstandardNth1kxy; - CCTK_REAL JacPDstandardNth1kxz; - CCTK_REAL JacPDstandardNth1kyy; - CCTK_REAL JacPDstandardNth1kyz; - CCTK_REAL JacPDstandardNth1kzz; - CCTK_REAL JacPDstandardNth21gxx; - CCTK_REAL JacPDstandardNth21gxy; - CCTK_REAL JacPDstandardNth21gxz; - CCTK_REAL JacPDstandardNth21gyy; - CCTK_REAL JacPDstandardNth21gyz; - CCTK_REAL JacPDstandardNth21gzz; - CCTK_REAL JacPDstandardNth22gxx; - CCTK_REAL JacPDstandardNth22gxz; - CCTK_REAL JacPDstandardNth22gzz; - CCTK_REAL JacPDstandardNth23gxx; - CCTK_REAL JacPDstandardNth23gxy; - CCTK_REAL JacPDstandardNth23gxz; - CCTK_REAL JacPDstandardNth23gyy; - CCTK_REAL JacPDstandardNth23gyz; - CCTK_REAL JacPDstandardNth23gzz; - CCTK_REAL JacPDstandardNth2gxx; - CCTK_REAL JacPDstandardNth2gxy; - CCTK_REAL JacPDstandardNth2gxz; - CCTK_REAL JacPDstandardNth2gyy; - CCTK_REAL JacPDstandardNth2gyz; - CCTK_REAL JacPDstandardNth2gzz; - CCTK_REAL JacPDstandardNth2kxx; - CCTK_REAL JacPDstandardNth2kxy; - CCTK_REAL JacPDstandardNth2kxz; - CCTK_REAL JacPDstandardNth2kyz; - CCTK_REAL JacPDstandardNth2kzz; - CCTK_REAL JacPDstandardNth31gxx; - CCTK_REAL JacPDstandardNth31gxy; - CCTK_REAL JacPDstandardNth31gxz; - CCTK_REAL JacPDstandardNth31gyy; - CCTK_REAL JacPDstandardNth31gyz; - CCTK_REAL JacPDstandardNth31gzz; - CCTK_REAL JacPDstandardNth32gxx; - CCTK_REAL JacPDstandardNth32gxy; - CCTK_REAL JacPDstandardNth32gxz; - CCTK_REAL JacPDstandardNth32gyy; - CCTK_REAL JacPDstandardNth32gyz; - CCTK_REAL JacPDstandardNth32gzz; - CCTK_REAL JacPDstandardNth33gxx; - CCTK_REAL JacPDstandardNth33gxy; - CCTK_REAL JacPDstandardNth33gyy; - CCTK_REAL JacPDstandardNth3gxx; - CCTK_REAL JacPDstandardNth3gxy; - CCTK_REAL JacPDstandardNth3gxz; - CCTK_REAL JacPDstandardNth3gyy; - CCTK_REAL JacPDstandardNth3gyz; - CCTK_REAL JacPDstandardNth3gzz; - CCTK_REAL JacPDstandardNth3kxx; - CCTK_REAL JacPDstandardNth3kxy; - CCTK_REAL JacPDstandardNth3kxz; - CCTK_REAL JacPDstandardNth3kyy; - CCTK_REAL JacPDstandardNth3kyz; + CCTK_REAL JacPDstandardNth11gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1kxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1kxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1kyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1kyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1kzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2kxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2kxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2kxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2kyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2kzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gyz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gzz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3kxx CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3kxy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3kxz CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3kyy CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3kyz CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -980,101 +980,115 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const JacPDstandardNth32gzz = PDstandardNth23gzz; } - CCTK_REAL detg = 2*gxyL*gxzL*gyzL + gzzL*(gxxL*gyyL - - SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED detg = 2*gxyL*gxzL*gyzL + + gzzL*(gxxL*gyyL - SQR(gxyL)) - gyyL*SQR(gxzL) - + gxxL*SQR(gyzL); - CCTK_REAL gu11 = INV(detg)*(gyyL*gzzL - SQR(gyzL)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu11 = INV(detg)*(gyyL*gzzL - + SQR(gyzL)); - CCTK_REAL gu21 = (gxzL*gyzL - gxyL*gzzL)*INV(detg); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu21 = (gxzL*gyzL - + gxyL*gzzL)*INV(detg); - CCTK_REAL gu31 = (-(gxzL*gyyL) + gxyL*gyzL)*INV(detg); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu31 = (-(gxzL*gyyL) + + gxyL*gyzL)*INV(detg); - CCTK_REAL gu22 = INV(detg)*(gxxL*gzzL - SQR(gxzL)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu22 = INV(detg)*(gxxL*gzzL - + SQR(gxzL)); - CCTK_REAL gu32 = (gxyL*gxzL - gxxL*gyzL)*INV(detg); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu32 = (gxyL*gxzL - + gxxL*gyzL)*INV(detg); - CCTK_REAL gu33 = INV(detg)*(gxxL*gyyL - SQR(gxyL)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gu33 = INV(detg)*(gxxL*gyyL - + SQR(gxyL)); - CCTK_REAL G111 = 0.5*(gu11*JacPDstandardNth1gxx + - 2*(gu21*JacPDstandardNth1gxy + gu31*JacPDstandardNth1gxz) - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G111 = 0.5*(gu11*JacPDstandardNth1gxx + + 2*(gu21*JacPDstandardNth1gxy + gu31*JacPDstandardNth1gxz) - gu21*JacPDstandardNth2gxx - gu31*JacPDstandardNth3gxx); - CCTK_REAL G211 = 0.5*(gu21*JacPDstandardNth1gxx + - 2*(gu22*JacPDstandardNth1gxy + gu32*JacPDstandardNth1gxz) - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G211 = 0.5*(gu21*JacPDstandardNth1gxx + + 2*(gu22*JacPDstandardNth1gxy + gu32*JacPDstandardNth1gxz) - gu22*JacPDstandardNth2gxx - gu32*JacPDstandardNth3gxx); - CCTK_REAL G311 = 0.5*(gu31*JacPDstandardNth1gxx + - 2*(gu32*JacPDstandardNth1gxy + gu33*JacPDstandardNth1gxz) - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G311 = 0.5*(gu31*JacPDstandardNth1gxx + + 2*(gu32*JacPDstandardNth1gxy + gu33*JacPDstandardNth1gxz) - gu32*JacPDstandardNth2gxx - gu33*JacPDstandardNth3gxx); - CCTK_REAL G112 = 0.5*(gu21*JacPDstandardNth1gyy + - gu11*JacPDstandardNth2gxx + gu31*(JacPDstandardNth1gyz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G112 = 0.5*(gu21*JacPDstandardNth1gyy + + gu11*JacPDstandardNth2gxx + gu31*(JacPDstandardNth1gyz + JacPDstandardNth2gxz - JacPDstandardNth3gxy)); - CCTK_REAL G212 = 0.5*(gu22*JacPDstandardNth1gyy + - gu21*JacPDstandardNth2gxx + gu32*(JacPDstandardNth1gyz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G212 = 0.5*(gu22*JacPDstandardNth1gyy + + gu21*JacPDstandardNth2gxx + gu32*(JacPDstandardNth1gyz + JacPDstandardNth2gxz - JacPDstandardNth3gxy)); - CCTK_REAL G312 = 0.5*(gu32*JacPDstandardNth1gyy + - gu31*JacPDstandardNth2gxx + gu33*(JacPDstandardNth1gyz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G312 = 0.5*(gu32*JacPDstandardNth1gyy + + gu31*JacPDstandardNth2gxx + gu33*(JacPDstandardNth1gyz + JacPDstandardNth2gxz - JacPDstandardNth3gxy)); - CCTK_REAL G113 = 0.5*(gu31*JacPDstandardNth1gzz + - gu11*JacPDstandardNth3gxx + gu21*(JacPDstandardNth1gyz - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G113 = 0.5*(gu31*JacPDstandardNth1gzz + + gu11*JacPDstandardNth3gxx + gu21*(JacPDstandardNth1gyz - JacPDstandardNth2gxz + JacPDstandardNth3gxy)); - CCTK_REAL G213 = 0.5*(gu32*JacPDstandardNth1gzz + - gu21*JacPDstandardNth3gxx + gu22*(JacPDstandardNth1gyz - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G213 = 0.5*(gu32*JacPDstandardNth1gzz + + gu21*JacPDstandardNth3gxx + gu22*(JacPDstandardNth1gyz - JacPDstandardNth2gxz + JacPDstandardNth3gxy)); - CCTK_REAL G313 = 0.5*(gu33*JacPDstandardNth1gzz + - gu31*JacPDstandardNth3gxx + gu32*(JacPDstandardNth1gyz - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G313 = 0.5*(gu33*JacPDstandardNth1gzz + + gu31*JacPDstandardNth3gxx + gu32*(JacPDstandardNth1gyz - JacPDstandardNth2gxz + JacPDstandardNth3gxy)); - CCTK_REAL G122 = 0.5*(gu11*(-JacPDstandardNth1gyy + - 2*JacPDstandardNth2gxy) + gu21*JacPDstandardNth2gyy + - gu31*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G122 = + 0.5*(gu11*(-JacPDstandardNth1gyy + 2*JacPDstandardNth2gxy) + + gu21*JacPDstandardNth2gyy + gu31*(2*JacPDstandardNth2gyz - + JacPDstandardNth3gyy)); - CCTK_REAL G222 = 0.5*(gu21*(-JacPDstandardNth1gyy + - 2*JacPDstandardNth2gxy) + gu22*JacPDstandardNth2gyy + - gu32*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G222 = + 0.5*(gu21*(-JacPDstandardNth1gyy + 2*JacPDstandardNth2gxy) + + gu22*JacPDstandardNth2gyy + gu32*(2*JacPDstandardNth2gyz - + JacPDstandardNth3gyy)); - CCTK_REAL G322 = 0.5*(gu31*(-JacPDstandardNth1gyy + - 2*JacPDstandardNth2gxy) + gu32*JacPDstandardNth2gyy + - gu33*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G322 = + 0.5*(gu31*(-JacPDstandardNth1gyy + 2*JacPDstandardNth2gxy) + + gu32*JacPDstandardNth2gyy + gu33*(2*JacPDstandardNth2gyz - + JacPDstandardNth3gyy)); - CCTK_REAL G123 = 0.5*(gu31*JacPDstandardNth2gzz + - gu11*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G123 = 0.5*(gu31*JacPDstandardNth2gzz + + gu11*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + JacPDstandardNth3gxy) + gu21*JacPDstandardNth3gyy); - CCTK_REAL G223 = 0.5*(gu32*JacPDstandardNth2gzz + - gu21*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G223 = 0.5*(gu32*JacPDstandardNth2gzz + + gu21*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + JacPDstandardNth3gxy) + gu22*JacPDstandardNth3gyy); - CCTK_REAL G323 = 0.5*(gu33*JacPDstandardNth2gzz + - gu31*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G323 = 0.5*(gu33*JacPDstandardNth2gzz + + gu31*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + JacPDstandardNth3gxy) + gu32*JacPDstandardNth3gyy); - CCTK_REAL G133 = 0.5*(gu11*(-JacPDstandardNth1gzz + - 2*JacPDstandardNth3gxz) + gu21*(-JacPDstandardNth2gzz + - 2*JacPDstandardNth3gyz) + gu31*JacPDstandardNth3gzz); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G133 = + 0.5*(gu11*(-JacPDstandardNth1gzz + 2*JacPDstandardNth3gxz) + + gu21*(-JacPDstandardNth2gzz + 2*JacPDstandardNth3gyz) + + gu31*JacPDstandardNth3gzz); - CCTK_REAL G233 = 0.5*(gu21*(-JacPDstandardNth1gzz + - 2*JacPDstandardNth3gxz) + gu22*(-JacPDstandardNth2gzz + - 2*JacPDstandardNth3gyz) + gu32*JacPDstandardNth3gzz); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G233 = + 0.5*(gu21*(-JacPDstandardNth1gzz + 2*JacPDstandardNth3gxz) + + gu22*(-JacPDstandardNth2gzz + 2*JacPDstandardNth3gyz) + + gu32*JacPDstandardNth3gzz); - CCTK_REAL G333 = 0.5*(gu31*(-JacPDstandardNth1gzz + - 2*JacPDstandardNth3gxz) + gu32*(-JacPDstandardNth2gzz + - 2*JacPDstandardNth3gyz) + gu33*JacPDstandardNth3gzz); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED G333 = + 0.5*(gu31*(-JacPDstandardNth1gzz + 2*JacPDstandardNth3gxz) + + gu32*(-JacPDstandardNth2gzz + 2*JacPDstandardNth3gyz) + + gu33*JacPDstandardNth3gzz); - CCTK_REAL R11 = 0.5*(gu21*(-JacPDstandardNth12gxx + - JacPDstandardNth21gxx) + gu31*(-JacPDstandardNth13gxx + - JacPDstandardNth31gxx) + gu32*(4*(gxyL*(-(G123*G211) + G113*G212) + - gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + - gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - - G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - - gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323)) - - JacPDstandardNth11gyz + JacPDstandardNth21gxz - JacPDstandardNth23gxx + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED R11 = + 0.5*(gu21*(-JacPDstandardNth12gxx + JacPDstandardNth21gxx) + + gu31*(-JacPDstandardNth13gxx + JacPDstandardNth31gxx) + + gu32*(4*(gxyL*(-(G123*G211) + G113*G212) + gyyL*(G212*G213 - + G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + gzzL*G312*G313 + + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - G111*(gxxL*G123 + + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - gyzL*G223 - + gzzL*G323) + gyzL*(G213*G312 - G211*G323)) - JacPDstandardNth11gyz + + JacPDstandardNth21gxz - JacPDstandardNth23gxx + JacPDstandardNth31gxy) + gu32*(-JacPDstandardNth11gyz + JacPDstandardNth21gxz + JacPDstandardNth31gxy - JacPDstandardNth32gxx) + gu22*(-JacPDstandardNth11gyy + 2*JacPDstandardNth21gxy - @@ -1089,14 +1103,14 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + gyyL*SQR(G213) + gzzL*SQR(G313)))); - CCTK_REAL R12 = 0.5*(gu22*(-JacPDstandardNth12gyy + - JacPDstandardNth21gyy) + gu21*(JacPDstandardNth11gyy - - 2*JacPDstandardNth12gxy + JacPDstandardNth22gxx) + - gu32*(-2*JacPDstandardNth12gyz + JacPDstandardNth21gyz + - JacPDstandardNth22gxz - JacPDstandardNth23gxy + JacPDstandardNth31gyy) - + gu31*(JacPDstandardNth11gyz - JacPDstandardNth12gxz - - JacPDstandardNth13gxy + JacPDstandardNth32gxx) + - gu33*(-JacPDstandardNth12gzz + JacPDstandardNth31gyz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED R12 = + 0.5*(gu22*(-JacPDstandardNth12gyy + JacPDstandardNth21gyy) + + gu21*(JacPDstandardNth11gyy - 2*JacPDstandardNth12gxy + + JacPDstandardNth22gxx) + gu32*(-2*JacPDstandardNth12gyz + + JacPDstandardNth21gyz + JacPDstandardNth22gxz - JacPDstandardNth23gxy + + JacPDstandardNth31gyy) + gu31*(JacPDstandardNth11gyz - + JacPDstandardNth12gxz - JacPDstandardNth13gxy + JacPDstandardNth32gxx) + + gu33*(-JacPDstandardNth12gzz + JacPDstandardNth31gyz + JacPDstandardNth32gxz - JacPDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - @@ -1118,11 +1132,11 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const gzzL*G322) - gxxL*SQR(G112) - gyyL*SQR(G212) - gzzL*SQR(G312)))); - CCTK_REAL R13 = 0.5*(gu21*(JacPDstandardNth11gyz - - JacPDstandardNth12gxz - JacPDstandardNth13gxy + JacPDstandardNth23gxx) - + gu22*(-JacPDstandardNth13gyy + JacPDstandardNth21gyz - - JacPDstandardNth22gxz + JacPDstandardNth23gxy) + - gu33*(-JacPDstandardNth13gzz + JacPDstandardNth31gzz) + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED R13 = 0.5*(gu21*(JacPDstandardNth11gyz + - JacPDstandardNth12gxz - JacPDstandardNth13gxy + + JacPDstandardNth23gxx) + gu22*(-JacPDstandardNth13gyy + + JacPDstandardNth21gyz - JacPDstandardNth22gxz + JacPDstandardNth23gxy) + + gu33*(-JacPDstandardNth13gzz + JacPDstandardNth31gzz) + gu31*(JacPDstandardNth11gzz - 2*JacPDstandardNth13gxz + JacPDstandardNth33gxx) + gu32*(-2*JacPDstandardNth13gyz + JacPDstandardNth21gzz + JacPDstandardNth31gyz - JacPDstandardNth32gxz + @@ -1146,8 +1160,8 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const gyzL*G233 + gzzL*G333) - gxxL*SQR(G113) - gyyL*SQR(G213) - gzzL*SQR(G313)))); - CCTK_REAL R22 = 0.5*(gu21*(JacPDstandardNth12gyy - - JacPDstandardNth21gyy) + gu31*(4*(gxyL*(G123*G212 - G122*G213) + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED R22 = 0.5*(gu21*(JacPDstandardNth12gyy + - JacPDstandardNth21gyy) + gu31*(4*(gxyL*(G123*G212 - G122*G213) + gyyL*(-(G213*G222) + G212*G223) + gxzL*(G123*G312 - G122*G313) - G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) + gyzL*(G223*G312 - G222*G313 - G213*G322) + gyzL*G212*G323 + G112*(gxxL*G123 + @@ -1168,9 +1182,10 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + gyyL*SQR(G223) + gzzL*SQR(G323)))); - CCTK_REAL R23 = 0.5*(gu11*(-JacPDstandardNth11gyz + - JacPDstandardNth12gxz + JacPDstandardNth13gxy - JacPDstandardNth23gxx) - + gu21*(JacPDstandardNth13gyy - JacPDstandardNth21gyz + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED R23 = + 0.5*(gu11*(-JacPDstandardNth11gyz + JacPDstandardNth12gxz + + JacPDstandardNth13gxy - JacPDstandardNth23gxx) + + gu21*(JacPDstandardNth13gyy - JacPDstandardNth21gyz + JacPDstandardNth22gxz - JacPDstandardNth23gxy) + gu33*(-JacPDstandardNth23gzz + JacPDstandardNth32gzz) + gu31*(JacPDstandardNth12gzz - 2*JacPDstandardNth23gxz - @@ -1196,8 +1211,8 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const G322*(gxzL*G133 + gyzL*G233 + gzzL*G333) - gxxL*SQR(G123) - gyyL*SQR(G223) - gzzL*SQR(G323)))); - CCTK_REAL R33 = 0.5*(gu31*(JacPDstandardNth13gzz - - JacPDstandardNth31gzz) + gu32*(JacPDstandardNth23gzz - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED R33 = 0.5*(gu31*(JacPDstandardNth13gzz + - JacPDstandardNth31gzz) + gu32*(JacPDstandardNth23gzz - JacPDstandardNth32gzz) + gu21*(4*(gxyL*(-(G133*G212) + G123*G213) + gyyL*(G213*G223 - G212*G233) + gxzL*G123*G313 + gyzL*G213*G323 + gzzL*G313*G323 + G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - @@ -1218,81 +1233,91 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + gyyL*SQR(G223) + gzzL*SQR(G323)))); - CCTK_REAL trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + - gu32*R23) + gu33*R33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED trR = gu11*R11 + gu22*R22 + + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - CCTK_REAL Km11 = kxxL*gu11 + kxyL*gu21 + kxzL*gu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km11 = kxxL*gu11 + kxyL*gu21 + + kxzL*gu31; - CCTK_REAL Km21 = kxxL*gu21 + kxyL*gu22 + kxzL*gu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km21 = kxxL*gu21 + kxyL*gu22 + + kxzL*gu32; - CCTK_REAL Km31 = kxxL*gu31 + kxyL*gu32 + kxzL*gu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km31 = kxxL*gu31 + kxyL*gu32 + + kxzL*gu33; - CCTK_REAL Km12 = kxyL*gu11 + kyyL*gu21 + kyzL*gu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km12 = kxyL*gu11 + kyyL*gu21 + + kyzL*gu31; - CCTK_REAL Km22 = kxyL*gu21 + kyyL*gu22 + kyzL*gu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km22 = kxyL*gu21 + kyyL*gu22 + + kyzL*gu32; - CCTK_REAL Km32 = kxyL*gu31 + kyyL*gu32 + kyzL*gu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km32 = kxyL*gu31 + kyyL*gu32 + + kyzL*gu33; - CCTK_REAL Km13 = kxzL*gu11 + kyzL*gu21 + kzzL*gu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km13 = kxzL*gu11 + kyzL*gu21 + + kzzL*gu31; - CCTK_REAL Km23 = kxzL*gu21 + kyzL*gu22 + kzzL*gu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km23 = kxzL*gu21 + kyzL*gu22 + + kzzL*gu32; - CCTK_REAL Km33 = kxzL*gu31 + kyzL*gu32 + kzzL*gu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Km33 = kxzL*gu31 + kyzL*gu32 + + kzzL*gu33; - CCTK_REAL trK = Km11 + Km22 + Km33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED trK = Km11 + Km22 + Km33; - CCTK_REAL rho = INV(SQR(alpL))*(eTttL - 2*(betayL*eTtyL + - betazL*eTtzL) + 2*(betaxL*(-eTtxL + betayL*eTxyL + - betazL*eTxzL) + betayL*betazL*eTyzL) + eTxxL*SQR(betaxL) - + eTyyL*SQR(betayL) + eTzzL*SQR(betazL)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED rho = INV(SQR(alpL))*(eTttL - + 2*(betayL*eTtyL + betazL*eTtzL) + 2*(betaxL*(-eTtxL + + betayL*eTxyL + betazL*eTxzL) + betayL*betazL*eTyzL) + + eTxxL*SQR(betaxL) + eTyyL*SQR(betayL) + eTzzL*SQR(betazL)); - CCTK_REAL S1 = (-eTtxL + betaxL*eTxxL + betayL*eTxyL + - betazL*eTxzL)*INV(alpL); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED S1 = (-eTtxL + betaxL*eTxxL + + betayL*eTxyL + betazL*eTxzL)*INV(alpL); - CCTK_REAL S2 = (-eTtyL + betaxL*eTxyL + betayL*eTyyL + - betazL*eTyzL)*INV(alpL); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED S2 = (-eTtyL + betaxL*eTxyL + + betayL*eTyyL + betazL*eTyzL)*INV(alpL); - CCTK_REAL S3 = (-eTtzL + betaxL*eTxzL + betayL*eTyzL + - betazL*eTzzL)*INV(alpL); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED S3 = (-eTtzL + betaxL*eTxzL + + betayL*eTyzL + betazL*eTzzL)*INV(alpL); - CCTK_REAL HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) - 16*Pi*rho + - trR - SQR(Km11) - SQR(Km22) - SQR(Km33) + SQR(trK); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED HL = -2*(Km12*Km21 + Km13*Km31 + + Km23*Km32) - 16*Pi*rho + trR - SQR(Km11) - SQR(Km22) - SQR(Km33) + + SQR(trK); - CCTK_REAL M1L = gu21*(-(kxxL*G112) + kyyL*G211 + kxyL*(G111 - - G212) + kyzL*G311 - kxzL*G312 - JacPDstandardNth1kxy + - JacPDstandardNth2kxx) + gu22*(-(kxxL*G122) + kyyL*G212 + - kxyL*(G112 - G222) + kyzL*G312 - kxzL*G322 - JacPDstandardNth1kyy - + JacPDstandardNth2kxy) + gu31*(-(kxxL*G113) + kyzL*G211 - - kxyL*G213 + kzzL*G311 + kxzL*(G111 - G313) - JacPDstandardNth1kxz - + JacPDstandardNth3kxx) + gu32*(kyyL*G213 + kxyL*(G113 - 2*G223) + - kzzL*G312 + kyzL*(G212 + G313) + kxzL*(G112 - 2*G323) - - 2*(kxxL*G123 + JacPDstandardNth1kyz) + JacPDstandardNth2kxz + - JacPDstandardNth3kxy) + gu33*(-(kxxL*G133) + kyzL*G213 - - kxyL*G233 + kzzL*G313 + kxzL*(G113 - G333) - JacPDstandardNth1kzz - + JacPDstandardNth3kxz) - 8*Pi*S1; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED M1L = gu21*(-(kxxL*G112) + + kyyL*G211 + kxyL*(G111 - G212) + kyzL*G311 - kxzL*G312 - + JacPDstandardNth1kxy + JacPDstandardNth2kxx) + gu22*(-(kxxL*G122) + + kyyL*G212 + kxyL*(G112 - G222) + kyzL*G312 - kxzL*G322 - + JacPDstandardNth1kyy + JacPDstandardNth2kxy) + gu31*(-(kxxL*G113) + + kyzL*G211 - kxyL*G213 + kzzL*G311 + kxzL*(G111 - G313) - + JacPDstandardNth1kxz + JacPDstandardNth3kxx) + gu32*(kyyL*G213 + + kxyL*(G113 - 2*G223) + kzzL*G312 + kyzL*(G212 + G313) + + kxzL*(G112 - 2*G323) - 2*(kxxL*G123 + JacPDstandardNth1kyz) + + JacPDstandardNth2kxz + JacPDstandardNth3kxy) + gu33*(-(kxxL*G133) + + kyzL*G213 - kxyL*G233 + kzzL*G313 + kxzL*(G113 - G333) - + JacPDstandardNth1kzz + JacPDstandardNth3kxz) - 8*Pi*S1; - CCTK_REAL M2L = gu11*(kxxL*G112 - kyyL*G211 + kxyL*(-G111 + - G212) - kyzL*G311 + kxzL*G312 + JacPDstandardNth1kxy - - JacPDstandardNth2kxx) + gu21*(kxxL*G122 - kyyL*G212 + kxyL*(-G112 - + G222) - kyzL*G312 + kxzL*G322 + JacPDstandardNth1kyy - - JacPDstandardNth2kxy) + gu31*(kxxL*G123 + kxyL*G223 + kzzL*G312 + - kyzL*(G212 - 2*G313) + kxzL*(G112 + G323) + JacPDstandardNth1kyz - - 2*(kxyL*G113 + kyyL*G213 + JacPDstandardNth2kxz) + - JacPDstandardNth3kxy) + gu32*(kxzL*G122 - kxyL*G123 - kyyL*G223 + - kzzL*G322 + kyzL*(G222 - G323) - JacPDstandardNth2kyz + - JacPDstandardNth3kyy) + gu33*(kxzL*G123 - kxyL*G133 - kyyL*G233 + - kzzL*G323 + kyzL*(G223 - G333) - JacPDstandardNth2kzz + - JacPDstandardNth3kyz) - 8*Pi*S2; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED M2L = gu11*(kxxL*G112 - kyyL*G211 + + kxyL*(-G111 + G212) - kyzL*G311 + kxzL*G312 + + JacPDstandardNth1kxy - JacPDstandardNth2kxx) + gu21*(kxxL*G122 - + kyyL*G212 + kxyL*(-G112 + G222) - kyzL*G312 + kxzL*G322 + + JacPDstandardNth1kyy - JacPDstandardNth2kxy) + gu31*(kxxL*G123 + + kxyL*G223 + kzzL*G312 + kyzL*(G212 - 2*G313) + kxzL*(G112 + + G323) + JacPDstandardNth1kyz - 2*(kxyL*G113 + kyyL*G213 + + JacPDstandardNth2kxz) + JacPDstandardNth3kxy) + gu32*(kxzL*G122 - + kxyL*G123 - kyyL*G223 + kzzL*G322 + kyzL*(G222 - G323) - + JacPDstandardNth2kyz + JacPDstandardNth3kyy) + gu33*(kxzL*G123 - + kxyL*G133 - kyyL*G233 + kzzL*G323 + kyzL*(G223 - G333) - + JacPDstandardNth2kzz + JacPDstandardNth3kyz) - 8*Pi*S2; - CCTK_REAL M3L = gu11*(kxxL*G113 - kyzL*G211 + kxyL*G213 - - kzzL*G311 + kxzL*(-G111 + G313) + JacPDstandardNth1kxz - - JacPDstandardNth3kxx) + gu21*(kxxL*G123 + kyyL*G213 + kxyL*(G113 - + G223) + kyzL*G313 + kxzL*G323 + JacPDstandardNth1kyz + - JacPDstandardNth2kxz - 2*(kxzL*G112 + kyzL*G212 + kzzL*G312 + - JacPDstandardNth3kxy)) + gu31*(kxxL*G133 - kyzL*G213 + kxyL*G233 - - kzzL*G313 + kxzL*(-G113 + G333) + JacPDstandardNth1kzz - - JacPDstandardNth3kxz) + gu22*(-(kxzL*G122) + kxyL*G123 + - kyyL*G223 - kzzL*G322 + kyzL*(-G222 + G323) + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED M3L = gu11*(kxxL*G113 - kyzL*G211 + + kxyL*G213 - kzzL*G311 + kxzL*(-G111 + G313) + + JacPDstandardNth1kxz - JacPDstandardNth3kxx) + gu21*(kxxL*G123 + + kyyL*G213 + kxyL*(G113 + G223) + kyzL*G313 + kxzL*G323 + + JacPDstandardNth1kyz + JacPDstandardNth2kxz - 2*(kxzL*G112 + + kyzL*G212 + kzzL*G312 + JacPDstandardNth3kxy)) + gu31*(kxxL*G133 + - kyzL*G213 + kxyL*G233 - kzzL*G313 + kxzL*(-G113 + G333) + + JacPDstandardNth1kzz - JacPDstandardNth3kxz) + gu22*(-(kxzL*G122) + + kxyL*G123 + kyyL*G223 - kzzL*G322 + kyzL*(-G222 + G323) + JacPDstandardNth2kyz - JacPDstandardNth3kyy) + gu32*(-(kxzL*G123) + kxyL*G133 + kyyL*G233 - kzzL*G323 + kyzL*(-G223 + G333) + JacPDstandardNth2kzz - JacPDstandardNth3kyz) - 8*Pi*S3; diff --git a/ML_ADMConstraints/src/RegisterMoL.cc b/ML_ADMConstraints/src/RegisterMoL.cc index b582abe..89e458a 100644 --- a/ML_ADMConstraints/src/RegisterMoL.cc +++ b/ML_ADMConstraints/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_ADMConstraints_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ diff --git a/ML_ADMConstraints/src/Startup.cc b/ML_ADMConstraints/src/Startup.cc index d3d3ed3..194564b 100644 --- a/ML_ADMConstraints/src/Startup.cc +++ b/ML_ADMConstraints/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_ADMConstraints_Startup(void) { - const char * banner = "ML_ADMConstraints"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_ADMConstraints"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_ADMQuantities/src/Boundaries.cc b/ML_ADMQuantities/src/Boundaries.cc index 81fb6dd..cd802ea 100644 --- a/ML_ADMQuantities/src/Boundaries.cc +++ b/ML_ADMQuantities/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_ADMQuantities_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; return; } diff --git a/ML_ADMQuantities/src/ML_ADMQuantities.cc b/ML_ADMQuantities/src/ML_ADMQuantities.cc index 4a65bba..d7e40ab 100644 --- a/ML_ADMQuantities/src/ML_ADMQuantities.cc +++ b/ML_ADMQuantities/src/ML_ADMQuantities.cc @@ -27,7 +27,7 @@ extern "C" void ML_ADMQuantities_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_ADMQuantities::ML_Jadm","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities::ML_Jadm."); @@ -46,42 +46,42 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d /* 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 const dx = ToReal(CCTK_DELTA_SPACE(0)); - CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); - CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); - CCTK_REAL const t = ToReal(cctk_time); - CCTK_REAL const dxi = INV(dx); - CCTK_REAL const dyi = INV(dy); - CCTK_REAL const dzi = INV(dz); - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 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 const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0)); + CCTK_REAL const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1)); + CCTK_REAL const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2)); + CCTK_REAL const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME); + CCTK_REAL const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time); + CCTK_REAL const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx); + CCTK_REAL const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); + CCTK_REAL const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); + CCTK_REAL const khalf CCTK_ATTRIBUTE_UNUSED = 0.5; + CCTK_REAL const kthird CCTK_ATTRIBUTE_UNUSED = 1/3.0; + CCTK_REAL const ktwothird CCTK_ATTRIBUTE_UNUSED = 2.0/3.0; + CCTK_REAL const kfourthird CCTK_ATTRIBUTE_UNUSED = 4.0/3.0; + CCTK_REAL const keightthird CCTK_ATTRIBUTE_UNUSED = 8.0/3.0; + CCTK_REAL const hdxi CCTK_ATTRIBUTE_UNUSED = 0.5 * dxi; + CCTK_REAL const hdyi CCTK_ATTRIBUTE_UNUSED = 0.5 * dyi; + CCTK_REAL const hdzi CCTK_ATTRIBUTE_UNUSED = 0.5 * dzi; /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx); - CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy); - CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz); - CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy); - CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz); - CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz); - CCTK_REAL const p1odx = INV(dx); - CCTK_REAL const p1ody = INV(dy); - CCTK_REAL const p1odz = INV(dz); - CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx)); - CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy)); - CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz)); + CCTK_REAL const p1o12dx CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dx); + CCTK_REAL const p1o12dy CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dy); + CCTK_REAL const p1o12dz CCTK_ATTRIBUTE_UNUSED = 0.0833333333333333333333333333333*INV(dz); + CCTK_REAL const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = 0.00694444444444444444444444444444*INV(dx*dy); + CCTK_REAL const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = 0.00694444444444444444444444444444*INV(dx*dz); + CCTK_REAL const p1o144dydz CCTK_ATTRIBUTE_UNUSED = 0.00694444444444444444444444444444*INV(dy*dz); + CCTK_REAL const p1odx CCTK_ATTRIBUTE_UNUSED = INV(dx); + CCTK_REAL const p1ody CCTK_ATTRIBUTE_UNUSED = INV(dy); + CCTK_REAL const p1odz CCTK_ATTRIBUTE_UNUSED = INV(dz); + CCTK_REAL const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = -0.0833333333333333333333333333333*INV(SQR(dx)); + CCTK_REAL const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = -0.0833333333333333333333333333333*INV(SQR(dy)); + CCTK_REAL const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = -0.0833333333333333333333333333333*INV(SQR(dz)); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -95,38 +95,38 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -142,36 +142,36 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2], cctk_ash[0],cctk_ash[1],cctk_ash[2]) { - 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 alphaL = alpha[index]; - CCTK_REAL At11L = At11[index]; - CCTK_REAL At12L = At12[index]; - CCTK_REAL At13L = At13[index]; - CCTK_REAL At22L = At22[index]; - CCTK_REAL At23L = At23[index]; - CCTK_REAL At33L = At33[index]; - CCTK_REAL beta1L = beta1[index]; - CCTK_REAL beta2L = beta2[index]; - CCTK_REAL beta3L = beta3[index]; - CCTK_REAL gt11L = gt11[index]; - CCTK_REAL gt12L = gt12[index]; - CCTK_REAL gt13L = gt13[index]; - CCTK_REAL gt22L = gt22[index]; - CCTK_REAL gt23L = gt23[index]; - CCTK_REAL gt33L = gt33[index]; - CCTK_REAL phiL = phi[index]; - CCTK_REAL trKL = trK[index]; - CCTK_REAL xL = x[index]; - CCTK_REAL Xt1L = Xt1[index]; - CCTK_REAL Xt2L = Xt2[index]; - CCTK_REAL Xt3L = Xt3[index]; - CCTK_REAL yL = y[index]; - CCTK_REAL zL = z[index]; - - CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL alphaL CCTK_ATTRIBUTE_UNUSED = alpha[index]; + CCTK_REAL At11L CCTK_ATTRIBUTE_UNUSED = At11[index]; + CCTK_REAL At12L CCTK_ATTRIBUTE_UNUSED = At12[index]; + CCTK_REAL At13L CCTK_ATTRIBUTE_UNUSED = At13[index]; + CCTK_REAL At22L CCTK_ATTRIBUTE_UNUSED = At22[index]; + CCTK_REAL At23L CCTK_ATTRIBUTE_UNUSED = At23[index]; + CCTK_REAL At33L CCTK_ATTRIBUTE_UNUSED = At33[index]; + CCTK_REAL beta1L CCTK_ATTRIBUTE_UNUSED = beta1[index]; + CCTK_REAL beta2L CCTK_ATTRIBUTE_UNUSED = beta2[index]; + CCTK_REAL beta3L CCTK_ATTRIBUTE_UNUSED = beta3[index]; + CCTK_REAL gt11L CCTK_ATTRIBUTE_UNUSED = gt11[index]; + CCTK_REAL gt12L CCTK_ATTRIBUTE_UNUSED = gt12[index]; + CCTK_REAL gt13L CCTK_ATTRIBUTE_UNUSED = gt13[index]; + CCTK_REAL gt22L CCTK_ATTRIBUTE_UNUSED = gt22[index]; + CCTK_REAL gt23L CCTK_ATTRIBUTE_UNUSED = gt23[index]; + CCTK_REAL gt33L CCTK_ATTRIBUTE_UNUSED = gt33[index]; + CCTK_REAL phiL CCTK_ATTRIBUTE_UNUSED = phi[index]; + CCTK_REAL trKL CCTK_ATTRIBUTE_UNUSED = trK[index]; + CCTK_REAL xL CCTK_ATTRIBUTE_UNUSED = x[index]; + CCTK_REAL Xt1L CCTK_ATTRIBUTE_UNUSED = Xt1[index]; + CCTK_REAL Xt2L CCTK_ATTRIBUTE_UNUSED = Xt2[index]; + CCTK_REAL Xt3L CCTK_ATTRIBUTE_UNUSED = Xt3[index]; + CCTK_REAL yL CCTK_ATTRIBUTE_UNUSED = y[index]; + CCTK_REAL zL CCTK_ATTRIBUTE_UNUSED = z[index]; + + CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -200,7 +200,7 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d eTzzL = ToReal(0.0); } - CCTK_REAL 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 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,158 +236,158 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL const PDstandardNth1gt11 = PDstandardNth1(>11[index]); - CCTK_REAL const PDstandardNth2gt11 = PDstandardNth2(>11[index]); - CCTK_REAL const PDstandardNth3gt11 = PDstandardNth3(>11[index]); - CCTK_REAL const PDstandardNth11gt11 = PDstandardNth11(>11[index]); - CCTK_REAL const PDstandardNth22gt11 = PDstandardNth22(>11[index]); - CCTK_REAL const PDstandardNth33gt11 = PDstandardNth33(>11[index]); - CCTK_REAL const PDstandardNth12gt11 = PDstandardNth12(>11[index]); - CCTK_REAL const PDstandardNth13gt11 = PDstandardNth13(>11[index]); - CCTK_REAL const PDstandardNth23gt11 = PDstandardNth23(>11[index]); - CCTK_REAL const PDstandardNth1gt12 = PDstandardNth1(>12[index]); - CCTK_REAL const PDstandardNth2gt12 = PDstandardNth2(>12[index]); - CCTK_REAL const PDstandardNth3gt12 = PDstandardNth3(>12[index]); - CCTK_REAL const PDstandardNth11gt12 = PDstandardNth11(>12[index]); - CCTK_REAL const PDstandardNth22gt12 = PDstandardNth22(>12[index]); - CCTK_REAL const PDstandardNth33gt12 = PDstandardNth33(>12[index]); - CCTK_REAL const PDstandardNth12gt12 = PDstandardNth12(>12[index]); - CCTK_REAL const PDstandardNth13gt12 = PDstandardNth13(>12[index]); - CCTK_REAL const PDstandardNth23gt12 = PDstandardNth23(>12[index]); - CCTK_REAL const PDstandardNth1gt13 = PDstandardNth1(>13[index]); - CCTK_REAL const PDstandardNth2gt13 = PDstandardNth2(>13[index]); - CCTK_REAL const PDstandardNth3gt13 = PDstandardNth3(>13[index]); - CCTK_REAL const PDstandardNth11gt13 = PDstandardNth11(>13[index]); - CCTK_REAL const PDstandardNth22gt13 = PDstandardNth22(>13[index]); - CCTK_REAL const PDstandardNth33gt13 = PDstandardNth33(>13[index]); - CCTK_REAL const PDstandardNth12gt13 = PDstandardNth12(>13[index]); - CCTK_REAL const PDstandardNth13gt13 = PDstandardNth13(>13[index]); - CCTK_REAL const PDstandardNth23gt13 = PDstandardNth23(>13[index]); - CCTK_REAL const PDstandardNth1gt22 = PDstandardNth1(>22[index]); - CCTK_REAL const PDstandardNth2gt22 = PDstandardNth2(>22[index]); - CCTK_REAL const PDstandardNth3gt22 = PDstandardNth3(>22[index]); - CCTK_REAL const PDstandardNth11gt22 = PDstandardNth11(>22[index]); - CCTK_REAL const PDstandardNth22gt22 = PDstandardNth22(>22[index]); - CCTK_REAL const PDstandardNth33gt22 = PDstandardNth33(>22[index]); - CCTK_REAL const PDstandardNth12gt22 = PDstandardNth12(>22[index]); - CCTK_REAL const PDstandardNth13gt22 = PDstandardNth13(>22[index]); - CCTK_REAL const PDstandardNth23gt22 = PDstandardNth23(>22[index]); - CCTK_REAL const PDstandardNth1gt23 = PDstandardNth1(>23[index]); - CCTK_REAL const PDstandardNth2gt23 = PDstandardNth2(>23[index]); - CCTK_REAL const PDstandardNth3gt23 = PDstandardNth3(>23[index]); - CCTK_REAL const PDstandardNth11gt23 = PDstandardNth11(>23[index]); - CCTK_REAL const PDstandardNth22gt23 = PDstandardNth22(>23[index]); - CCTK_REAL const PDstandardNth33gt23 = PDstandardNth33(>23[index]); - CCTK_REAL const PDstandardNth12gt23 = PDstandardNth12(>23[index]); - CCTK_REAL const PDstandardNth13gt23 = PDstandardNth13(>23[index]); - CCTK_REAL const PDstandardNth23gt23 = PDstandardNth23(>23[index]); - CCTK_REAL const PDstandardNth1gt33 = PDstandardNth1(>33[index]); - CCTK_REAL const PDstandardNth2gt33 = PDstandardNth2(>33[index]); - CCTK_REAL const PDstandardNth3gt33 = PDstandardNth3(>33[index]); - CCTK_REAL const PDstandardNth11gt33 = PDstandardNth11(>33[index]); - CCTK_REAL const PDstandardNth22gt33 = PDstandardNth22(>33[index]); - CCTK_REAL const PDstandardNth33gt33 = PDstandardNth33(>33[index]); - CCTK_REAL const PDstandardNth12gt33 = PDstandardNth12(>33[index]); - CCTK_REAL const PDstandardNth13gt33 = PDstandardNth13(>33[index]); - CCTK_REAL const PDstandardNth23gt33 = PDstandardNth23(>33[index]); - CCTK_REAL const PDstandardNth1trK = PDstandardNth1(&trK[index]); - CCTK_REAL const PDstandardNth2trK = PDstandardNth2(&trK[index]); - CCTK_REAL const PDstandardNth3trK = PDstandardNth3(&trK[index]); - CCTK_REAL const PDstandardNth1Xt1 = PDstandardNth1(&Xt1[index]); - CCTK_REAL const PDstandardNth2Xt1 = PDstandardNth2(&Xt1[index]); - CCTK_REAL const PDstandardNth3Xt1 = PDstandardNth3(&Xt1[index]); - CCTK_REAL const PDstandardNth1Xt2 = PDstandardNth1(&Xt2[index]); - CCTK_REAL const PDstandardNth2Xt2 = PDstandardNth2(&Xt2[index]); - CCTK_REAL const PDstandardNth3Xt2 = PDstandardNth3(&Xt2[index]); - CCTK_REAL const PDstandardNth1Xt3 = PDstandardNth1(&Xt3[index]); - CCTK_REAL const PDstandardNth2Xt3 = PDstandardNth2(&Xt3[index]); - CCTK_REAL const PDstandardNth3Xt3 = PDstandardNth3(&Xt3[index]); + CCTK_REAL const PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(>11[index]); + CCTK_REAL const PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(>11[index]); + CCTK_REAL const PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(>11[index]); + CCTK_REAL const PDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(>11[index]); + CCTK_REAL const PDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(>11[index]); + CCTK_REAL const PDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(>11[index]); + CCTK_REAL const PDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(>11[index]); + CCTK_REAL const PDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(>11[index]); + CCTK_REAL const PDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(>11[index]); + CCTK_REAL const PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(>12[index]); + CCTK_REAL const PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(>12[index]); + CCTK_REAL const PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(>12[index]); + CCTK_REAL const PDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(>12[index]); + CCTK_REAL const PDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(>12[index]); + CCTK_REAL const PDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(>12[index]); + CCTK_REAL const PDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(>12[index]); + CCTK_REAL const PDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(>12[index]); + CCTK_REAL const PDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(>12[index]); + CCTK_REAL const PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(>13[index]); + CCTK_REAL const PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(>13[index]); + CCTK_REAL const PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(>13[index]); + CCTK_REAL const PDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(>13[index]); + CCTK_REAL const PDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(>13[index]); + CCTK_REAL const PDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(>13[index]); + CCTK_REAL const PDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(>13[index]); + CCTK_REAL const PDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(>13[index]); + CCTK_REAL const PDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(>13[index]); + CCTK_REAL const PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(>22[index]); + CCTK_REAL const PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(>22[index]); + CCTK_REAL const PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(>22[index]); + CCTK_REAL const PDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(>22[index]); + CCTK_REAL const PDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(>22[index]); + CCTK_REAL const PDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(>22[index]); + CCTK_REAL const PDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(>22[index]); + CCTK_REAL const PDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(>22[index]); + CCTK_REAL const PDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(>22[index]); + CCTK_REAL const PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(>23[index]); + CCTK_REAL const PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(>23[index]); + CCTK_REAL const PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(>23[index]); + CCTK_REAL const PDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(>23[index]); + CCTK_REAL const PDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(>23[index]); + CCTK_REAL const PDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(>23[index]); + CCTK_REAL const PDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(>23[index]); + CCTK_REAL const PDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(>23[index]); + CCTK_REAL const PDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(>23[index]); + CCTK_REAL const PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(>33[index]); + CCTK_REAL const PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(>33[index]); + CCTK_REAL const PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(>33[index]); + CCTK_REAL const PDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(>33[index]); + CCTK_REAL const PDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(>33[index]); + CCTK_REAL const PDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(>33[index]); + CCTK_REAL const PDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth12(>33[index]); + CCTK_REAL const PDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth13(>33[index]); + CCTK_REAL const PDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED = PDstandardNth23(>33[index]); + CCTK_REAL const PDstandardNth1trK CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&trK[index]); + CCTK_REAL const PDstandardNth2trK CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&trK[index]); + CCTK_REAL const PDstandardNth3trK CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&trK[index]); + CCTK_REAL const PDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&Xt1[index]); + CCTK_REAL const PDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&Xt1[index]); + CCTK_REAL const PDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&Xt1[index]); + CCTK_REAL const PDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&Xt2[index]); + CCTK_REAL const PDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&Xt2[index]); + CCTK_REAL const PDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&Xt2[index]); + CCTK_REAL const PDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&Xt3[index]); + CCTK_REAL const PDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&Xt3[index]); + CCTK_REAL const PDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&Xt3[index]); /* Calculate temporaries and grid functions */ - CCTK_REAL JacPDstandardNth11gt11; - CCTK_REAL JacPDstandardNth11gt12; - CCTK_REAL JacPDstandardNth11gt13; - CCTK_REAL JacPDstandardNth11gt22; - CCTK_REAL JacPDstandardNth11gt23; - CCTK_REAL JacPDstandardNth11gt33; - CCTK_REAL JacPDstandardNth12gt11; - CCTK_REAL JacPDstandardNth12gt12; - CCTK_REAL JacPDstandardNth12gt13; - CCTK_REAL JacPDstandardNth12gt22; - CCTK_REAL JacPDstandardNth12gt23; - CCTK_REAL JacPDstandardNth12gt33; - CCTK_REAL JacPDstandardNth13gt11; - CCTK_REAL JacPDstandardNth13gt12; - CCTK_REAL JacPDstandardNth13gt13; - CCTK_REAL JacPDstandardNth13gt22; - CCTK_REAL JacPDstandardNth13gt23; - CCTK_REAL JacPDstandardNth13gt33; - CCTK_REAL JacPDstandardNth1gt11; - CCTK_REAL JacPDstandardNth1gt12; - CCTK_REAL JacPDstandardNth1gt13; - CCTK_REAL JacPDstandardNth1gt22; - CCTK_REAL JacPDstandardNth1gt23; - CCTK_REAL JacPDstandardNth1gt33; - CCTK_REAL JacPDstandardNth1trK; - CCTK_REAL JacPDstandardNth1Xt1; - CCTK_REAL JacPDstandardNth1Xt2; - CCTK_REAL JacPDstandardNth1Xt3; - CCTK_REAL JacPDstandardNth21gt11; - CCTK_REAL JacPDstandardNth21gt12; - CCTK_REAL JacPDstandardNth21gt13; - CCTK_REAL JacPDstandardNth21gt22; - CCTK_REAL JacPDstandardNth21gt23; - CCTK_REAL JacPDstandardNth21gt33; - CCTK_REAL JacPDstandardNth22gt11; - CCTK_REAL JacPDstandardNth22gt12; - CCTK_REAL JacPDstandardNth22gt13; - CCTK_REAL JacPDstandardNth22gt22; - CCTK_REAL JacPDstandardNth22gt23; - CCTK_REAL JacPDstandardNth22gt33; - CCTK_REAL JacPDstandardNth23gt11; - CCTK_REAL JacPDstandardNth23gt12; - CCTK_REAL JacPDstandardNth23gt13; - CCTK_REAL JacPDstandardNth23gt22; - CCTK_REAL JacPDstandardNth23gt23; - CCTK_REAL JacPDstandardNth23gt33; - CCTK_REAL JacPDstandardNth2gt11; - CCTK_REAL JacPDstandardNth2gt12; - CCTK_REAL JacPDstandardNth2gt13; - CCTK_REAL JacPDstandardNth2gt22; - CCTK_REAL JacPDstandardNth2gt23; - CCTK_REAL JacPDstandardNth2gt33; - CCTK_REAL JacPDstandardNth2trK; - CCTK_REAL JacPDstandardNth2Xt1; - CCTK_REAL JacPDstandardNth2Xt2; - CCTK_REAL JacPDstandardNth2Xt3; - CCTK_REAL JacPDstandardNth31gt11; - CCTK_REAL JacPDstandardNth31gt12; - CCTK_REAL JacPDstandardNth31gt13; - CCTK_REAL JacPDstandardNth31gt22; - CCTK_REAL JacPDstandardNth31gt23; - CCTK_REAL JacPDstandardNth31gt33; - CCTK_REAL JacPDstandardNth32gt11; - CCTK_REAL JacPDstandardNth32gt12; - CCTK_REAL JacPDstandardNth32gt13; - CCTK_REAL JacPDstandardNth32gt22; - CCTK_REAL JacPDstandardNth32gt23; - CCTK_REAL JacPDstandardNth32gt33; - CCTK_REAL JacPDstandardNth33gt11; - CCTK_REAL JacPDstandardNth33gt12; - CCTK_REAL JacPDstandardNth33gt13; - CCTK_REAL JacPDstandardNth33gt22; - CCTK_REAL JacPDstandardNth33gt23; - CCTK_REAL JacPDstandardNth33gt33; - CCTK_REAL JacPDstandardNth3gt11; - CCTK_REAL JacPDstandardNth3gt12; - CCTK_REAL JacPDstandardNth3gt13; - CCTK_REAL JacPDstandardNth3gt22; - CCTK_REAL JacPDstandardNth3gt23; - CCTK_REAL JacPDstandardNth3gt33; - CCTK_REAL JacPDstandardNth3trK; - CCTK_REAL JacPDstandardNth3Xt1; - CCTK_REAL JacPDstandardNth3Xt2; - CCTK_REAL JacPDstandardNth3Xt3; + CCTK_REAL JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth21gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth31gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth32gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL JacPDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1048,260 +1048,326 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL detgt = 1; - - CCTK_REAL gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); - - CCTK_REAL gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); - - CCTK_REAL gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); - - CCTK_REAL gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); - - CCTK_REAL gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); - - CCTK_REAL gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); - - CCTK_REAL dgtu111 = -2*(gtu11*(gtu21*JacPDstandardNth1gt12 + - gtu31*JacPDstandardNth1gt13) + gtu21*gtu31*JacPDstandardNth1gt23) - - JacPDstandardNth1gt11*SQR(gtu11) - JacPDstandardNth1gt22*SQR(gtu21) - - JacPDstandardNth1gt33*SQR(gtu31); - - CCTK_REAL dgtu211 = -(gtu11*(gtu21*JacPDstandardNth1gt11 + - gtu22*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt13)) - - gtu21*(gtu31*JacPDstandardNth1gt13 + gtu22*JacPDstandardNth1gt22 + - gtu32*JacPDstandardNth1gt23) - gtu31*(gtu22*JacPDstandardNth1gt23 + - gtu32*JacPDstandardNth1gt33) - JacPDstandardNth1gt12*SQR(gtu21); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED detgt = 1; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu11 = INV(detgt)*(gt22L*gt33L - + SQR(gt23L)); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu21 = (gt13L*gt23L - + gt12L*gt33L)*INV(detgt); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu31 = (-(gt13L*gt22L) + + gt12L*gt23L)*INV(detgt); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu22 = INV(detgt)*(gt11L*gt33L - + SQR(gt13L)); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu32 = (gt12L*gt13L - + gt11L*gt23L)*INV(detgt); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED gtu33 = INV(detgt)*(gt11L*gt22L - + SQR(gt12L)); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu111 = + -2*(gtu11*(gtu21*JacPDstandardNth1gt12 + gtu31*JacPDstandardNth1gt13) + + gtu21*gtu31*JacPDstandardNth1gt23) - JacPDstandardNth1gt11*SQR(gtu11) - + JacPDstandardNth1gt22*SQR(gtu21) - JacPDstandardNth1gt33*SQR(gtu31); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu211 = + -(gtu11*(gtu21*JacPDstandardNth1gt11 + gtu22*JacPDstandardNth1gt12 + + gtu32*JacPDstandardNth1gt13)) - gtu21*(gtu31*JacPDstandardNth1gt13 + + gtu22*JacPDstandardNth1gt22 + gtu32*JacPDstandardNth1gt23) - + gtu31*(gtu22*JacPDstandardNth1gt23 + gtu32*JacPDstandardNth1gt33) - + JacPDstandardNth1gt12*SQR(gtu21); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu311 = + -(gtu11*(gtu31*JacPDstandardNth1gt11 + gtu32*JacPDstandardNth1gt12 + + gtu33*JacPDstandardNth1gt13)) - gtu21*(gtu31*JacPDstandardNth1gt12 + + gtu32*JacPDstandardNth1gt22 + gtu33*JacPDstandardNth1gt23) - + gtu31*(gtu31*JacPDstandardNth1gt13 + gtu32*JacPDstandardNth1gt23 + + gtu33*JacPDstandardNth1gt33); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu221 = + -2*(gtu21*(gtu22*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt13) + + gtu22*gtu32*JacPDstandardNth1gt23) - JacPDstandardNth1gt11*SQR(gtu21) - + JacPDstandardNth1gt22*SQR(gtu22) - JacPDstandardNth1gt33*SQR(gtu32); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu321 = + -(gtu21*(gtu31*JacPDstandardNth1gt11 + gtu32*JacPDstandardNth1gt12 + + gtu33*JacPDstandardNth1gt13)) - gtu22*(gtu31*JacPDstandardNth1gt12 + + gtu32*JacPDstandardNth1gt22 + gtu33*JacPDstandardNth1gt23) - + gtu32*(gtu31*JacPDstandardNth1gt13 + gtu32*JacPDstandardNth1gt23 + + gtu33*JacPDstandardNth1gt33); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu331 = + -2*(gtu31*(gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13) + + gtu32*gtu33*JacPDstandardNth1gt23) - JacPDstandardNth1gt11*SQR(gtu31) - + JacPDstandardNth1gt22*SQR(gtu32) - JacPDstandardNth1gt33*SQR(gtu33); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu112 = + -2*(gtu11*(gtu21*JacPDstandardNth2gt12 + gtu31*JacPDstandardNth2gt13) + + gtu21*gtu31*JacPDstandardNth2gt23) - JacPDstandardNth2gt11*SQR(gtu11) - + JacPDstandardNth2gt22*SQR(gtu21) - JacPDstandardNth2gt33*SQR(gtu31); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu212 = + -(gtu11*(gtu21*JacPDstandardNth2gt11 + gtu22*JacPDstandardNth2gt12 + + gtu32*JacPDstandardNth2gt13)) - gtu21*(gtu31*JacPDstandardNth2gt13 + + gtu22*JacPDstandardNth2gt22 + gtu32*JacPDstandardNth2gt23) - + gtu31*(gtu22*JacPDstandardNth2gt23 + gtu32*JacPDstandardNth2gt33) - + JacPDstandardNth2gt12*SQR(gtu21); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu312 = + -(gtu11*(gtu31*JacPDstandardNth2gt11 + gtu32*JacPDstandardNth2gt12 + + gtu33*JacPDstandardNth2gt13)) - gtu21*(gtu31*JacPDstandardNth2gt12 + + gtu32*JacPDstandardNth2gt22 + gtu33*JacPDstandardNth2gt23) - + gtu31*(gtu31*JacPDstandardNth2gt13 + gtu32*JacPDstandardNth2gt23 + + gtu33*JacPDstandardNth2gt33); - CCTK_REAL dgtu311 = -(gtu11*(gtu31*JacPDstandardNth1gt11 + - gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - - gtu21*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + - gtu33*JacPDstandardNth1gt23) - gtu31*(gtu31*JacPDstandardNth1gt13 + - gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu222 = + -2*(gtu21*(gtu22*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt13) + + gtu22*gtu32*JacPDstandardNth2gt23) - JacPDstandardNth2gt11*SQR(gtu21) - + JacPDstandardNth2gt22*SQR(gtu22) - JacPDstandardNth2gt33*SQR(gtu32); - CCTK_REAL dgtu221 = -2*(gtu21*(gtu22*JacPDstandardNth1gt12 + - gtu32*JacPDstandardNth1gt13) + gtu22*gtu32*JacPDstandardNth1gt23) - - JacPDstandardNth1gt11*SQR(gtu21) - JacPDstandardNth1gt22*SQR(gtu22) - - JacPDstandardNth1gt33*SQR(gtu32); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu322 = + -(gtu21*(gtu31*JacPDstandardNth2gt11 + gtu32*JacPDstandardNth2gt12 + + gtu33*JacPDstandardNth2gt13)) - gtu22*(gtu31*JacPDstandardNth2gt12 + + gtu32*JacPDstandardNth2gt22 + gtu33*JacPDstandardNth2gt23) - + gtu32*(gtu31*JacPDstandardNth2gt13 + gtu32*JacPDstandardNth2gt23 + + gtu33*JacPDstandardNth2gt33); - CCTK_REAL dgtu321 = -(gtu21*(gtu31*JacPDstandardNth1gt11 + - gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - - gtu22*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + - gtu33*JacPDstandardNth1gt23) - gtu32*(gtu31*JacPDstandardNth1gt13 + - gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu332 = + -2*(gtu31*(gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13) + + gtu32*gtu33*JacPDstandardNth2gt23) - JacPDstandardNth2gt11*SQR(gtu31) - + JacPDstandardNth2gt22*SQR(gtu32) - JacPDstandardNth2gt33*SQR(gtu33); - CCTK_REAL dgtu331 = -2*(gtu31*(gtu32*JacPDstandardNth1gt12 + - gtu33*JacPDstandardNth1gt13) + gtu32*gtu33*JacPDstandardNth1gt23) - - JacPDstandardNth1gt11*SQR(gtu31) - JacPDstandardNth1gt22*SQR(gtu32) - - JacPDstandardNth1gt33*SQR(gtu33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu113 = + -2*(gtu11*(gtu21*JacPDstandardNth3gt12 + gtu31*JacPDstandardNth3gt13) + + gtu21*gtu31*JacPDstandardNth3gt23) - JacPDstandardNth3gt11*SQR(gtu11) - + JacPDstandardNth3gt22*SQR(gtu21) - JacPDstandardNth3gt33*SQR(gtu31); - CCTK_REAL dgtu112 = -2*(gtu11*(gtu21*JacPDstandardNth2gt12 + - gtu31*JacPDstandardNth2gt13) + gtu21*gtu31*JacPDstandardNth2gt23) - - JacPDstandardNth2gt11*SQR(gtu11) - JacPDstandardNth2gt22*SQR(gtu21) - - JacPDstandardNth2gt33*SQR(gtu31); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu213 = + -(gtu11*(gtu21*JacPDstandardNth3gt11 + gtu22*JacPDstandardNth3gt12 + + gtu32*JacPDstandardNth3gt13)) - gtu21*(gtu31*JacPDstandardNth3gt13 + + gtu22*JacPDstandardNth3gt22 + gtu32*JacPDstandardNth3gt23) - + gtu31*(gtu22*JacPDstandardNth3gt23 + gtu32*JacPDstandardNth3gt33) - + JacPDstandardNth3gt12*SQR(gtu21); - CCTK_REAL dgtu212 = -(gtu11*(gtu21*JacPDstandardNth2gt11 + - gtu22*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt13)) - - gtu21*(gtu31*JacPDstandardNth2gt13 + gtu22*JacPDstandardNth2gt22 + - gtu32*JacPDstandardNth2gt23) - gtu31*(gtu22*JacPDstandardNth2gt23 + - gtu32*JacPDstandardNth2gt33) - JacPDstandardNth2gt12*SQR(gtu21); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu313 = + -(gtu11*(gtu31*JacPDstandardNth3gt11 + gtu32*JacPDstandardNth3gt12 + + gtu33*JacPDstandardNth3gt13)) - gtu21*(gtu31*JacPDstandardNth3gt12 + + gtu32*JacPDstandardNth3gt22 + gtu33*JacPDstandardNth3gt23) - + gtu31*(gtu31*JacPDstandardNth3gt13 + gtu32*JacPDstandardNth3gt23 + + gtu33*JacPDstandardNth3gt33); - CCTK_REAL dgtu312 = -(gtu11*(gtu31*JacPDstandardNth2gt11 + - gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - - gtu21*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + - gtu33*JacPDstandardNth2gt23) - gtu31*(gtu31*JacPDstandardNth2gt13 + - gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu223 = + -2*(gtu21*(gtu22*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt13) + + gtu22*gtu32*JacPDstandardNth3gt23) - JacPDstandardNth3gt11*SQR(gtu21) - + JacPDstandardNth3gt22*SQR(gtu22) - JacPDstandardNth3gt33*SQR(gtu32); - CCTK_REAL dgtu222 = -2*(gtu21*(gtu22*JacPDstandardNth2gt12 + - gtu32*JacPDstandardNth2gt13) + gtu22*gtu32*JacPDstandardNth2gt23) - - JacPDstandardNth2gt11*SQR(gtu21) - JacPDstandardNth2gt22*SQR(gtu22) - - JacPDstandardNth2gt33*SQR(gtu32); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu323 = + -(gtu21*(gtu31*JacPDstandardNth3gt11 + gtu32*JacPDstandardNth3gt12 + + gtu33*JacPDstandardNth3gt13)) - gtu22*(gtu31*JacPDstandardNth3gt12 + + gtu32*JacPDstandardNth3gt22 + gtu33*JacPDstandardNth3gt23) - + gtu32*(gtu31*JacPDstandardNth3gt13 + gtu32*JacPDstandardNth3gt23 + + gtu33*JacPDstandardNth3gt33); - CCTK_REAL dgtu322 = -(gtu21*(gtu31*JacPDstandardNth2gt11 + - gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - - gtu22*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + - gtu33*JacPDstandardNth2gt23) - gtu32*(gtu31*JacPDstandardNth2gt13 + - gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED dgtu333 = + -2*(gtu31*(gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13) + + gtu32*gtu33*JacPDstandardNth3gt23) - JacPDstandardNth3gt11*SQR(gtu31) - + JacPDstandardNth3gt22*SQR(gtu32) - JacPDstandardNth3gt33*SQR(gtu33); - CCTK_REAL dgtu332 = -2*(gtu31*(gtu32*JacPDstandardNth2gt12 + - gtu33*JacPDstandardNth2gt13) + gtu32*gtu33*JacPDstandardNth2gt23) - - JacPDstandardNth2gt11*SQR(gtu31) - JacPDstandardNth2gt22*SQR(gtu32) - - JacPDstandardNth2gt33*SQR(gtu33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl111 = 0.5*JacPDstandardNth1gt11; - CCTK_REAL dgtu113 = -2*(gtu11*(gtu21*JacPDstandardNth3gt12 + - gtu31*JacPDstandardNth3gt13) + gtu21*gtu31*JacPDstandardNth3gt23) - - JacPDstandardNth3gt11*SQR(gtu11) - JacPDstandardNth3gt22*SQR(gtu21) - - JacPDstandardNth3gt33*SQR(gtu31); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl112 = 0.5*JacPDstandardNth2gt11; - CCTK_REAL dgtu213 = -(gtu11*(gtu21*JacPDstandardNth3gt11 + - gtu22*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt13)) - - gtu21*(gtu31*JacPDstandardNth3gt13 + gtu22*JacPDstandardNth3gt22 + - gtu32*JacPDstandardNth3gt23) - gtu31*(gtu22*JacPDstandardNth3gt23 + - gtu32*JacPDstandardNth3gt33) - JacPDstandardNth3gt12*SQR(gtu21); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl113 = 0.5*JacPDstandardNth3gt11; - CCTK_REAL dgtu313 = -(gtu11*(gtu31*JacPDstandardNth3gt11 + - gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - - gtu21*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + - gtu33*JacPDstandardNth3gt23) - gtu31*(gtu31*JacPDstandardNth3gt13 + - gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl122 = -0.5*JacPDstandardNth1gt22 + + JacPDstandardNth2gt12; - CCTK_REAL dgtu223 = -2*(gtu21*(gtu22*JacPDstandardNth3gt12 + - gtu32*JacPDstandardNth3gt13) + gtu22*gtu32*JacPDstandardNth3gt23) - - JacPDstandardNth3gt11*SQR(gtu21) - JacPDstandardNth3gt22*SQR(gtu22) - - JacPDstandardNth3gt33*SQR(gtu32); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl123 = 0.5*(-JacPDstandardNth1gt23 + + JacPDstandardNth2gt13 + JacPDstandardNth3gt12); - CCTK_REAL dgtu323 = -(gtu21*(gtu31*JacPDstandardNth3gt11 + - gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - - gtu22*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + - gtu33*JacPDstandardNth3gt23) - gtu32*(gtu31*JacPDstandardNth3gt13 + - gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl133 = -0.5*JacPDstandardNth1gt33 + + JacPDstandardNth3gt13; - CCTK_REAL dgtu333 = -2*(gtu31*(gtu32*JacPDstandardNth3gt12 + - gtu33*JacPDstandardNth3gt13) + gtu32*gtu33*JacPDstandardNth3gt23) - - JacPDstandardNth3gt11*SQR(gtu31) - JacPDstandardNth3gt22*SQR(gtu32) - - JacPDstandardNth3gt33*SQR(gtu33); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl211 = JacPDstandardNth1gt12 - + 0.5*JacPDstandardNth2gt11; - CCTK_REAL Gtl111 = 0.5*JacPDstandardNth1gt11; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl212 = 0.5*JacPDstandardNth1gt22; - CCTK_REAL Gtl112 = 0.5*JacPDstandardNth2gt11; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl213 = 0.5*(JacPDstandardNth1gt23 - + JacPDstandardNth2gt13 + JacPDstandardNth3gt12); - CCTK_REAL Gtl113 = 0.5*JacPDstandardNth3gt11; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl222 = 0.5*JacPDstandardNth2gt22; - CCTK_REAL Gtl122 = -0.5*JacPDstandardNth1gt22 + JacPDstandardNth2gt12; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl223 = 0.5*JacPDstandardNth3gt22; - CCTK_REAL Gtl123 = 0.5*(-JacPDstandardNth1gt23 + JacPDstandardNth2gt13 - + JacPDstandardNth3gt12); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl233 = -0.5*JacPDstandardNth2gt33 + + JacPDstandardNth3gt23; - CCTK_REAL Gtl133 = -0.5*JacPDstandardNth1gt33 + JacPDstandardNth3gt13; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl311 = JacPDstandardNth1gt13 - + 0.5*JacPDstandardNth3gt11; - CCTK_REAL Gtl211 = JacPDstandardNth1gt12 - 0.5*JacPDstandardNth2gt11; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl312 = 0.5*(JacPDstandardNth1gt23 + + JacPDstandardNth2gt13 - JacPDstandardNth3gt12); - CCTK_REAL Gtl212 = 0.5*JacPDstandardNth1gt22; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl313 = 0.5*JacPDstandardNth1gt33; - CCTK_REAL Gtl213 = 0.5*(JacPDstandardNth1gt23 - JacPDstandardNth2gt13 - + JacPDstandardNth3gt12); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl322 = JacPDstandardNth2gt23 - + 0.5*JacPDstandardNth3gt22; - CCTK_REAL Gtl222 = 0.5*JacPDstandardNth2gt22; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl323 = 0.5*JacPDstandardNth2gt33; - CCTK_REAL Gtl223 = 0.5*JacPDstandardNth3gt22; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtl333 = 0.5*JacPDstandardNth3gt33; - CCTK_REAL Gtl233 = -0.5*JacPDstandardNth2gt33 + JacPDstandardNth3gt23; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu111 = Gtl111*gtu11 + Gtl112*gtu21 + + Gtl113*gtu31; - CCTK_REAL Gtl311 = JacPDstandardNth1gt13 - 0.5*JacPDstandardNth3gt11; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu112 = Gtl111*gtu21 + Gtl112*gtu22 + + Gtl113*gtu32; - CCTK_REAL Gtl312 = 0.5*(JacPDstandardNth1gt23 + JacPDstandardNth2gt13 - - JacPDstandardNth3gt12); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu113 = Gtl111*gtu31 + Gtl112*gtu32 + + Gtl113*gtu33; - CCTK_REAL Gtl313 = 0.5*JacPDstandardNth1gt33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu121 = Gtl112*gtu11 + Gtl122*gtu21 + + Gtl123*gtu31; - CCTK_REAL Gtl322 = JacPDstandardNth2gt23 - 0.5*JacPDstandardNth3gt22; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu122 = Gtl112*gtu21 + Gtl122*gtu22 + + Gtl123*gtu32; - CCTK_REAL Gtl323 = 0.5*JacPDstandardNth2gt33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu123 = Gtl112*gtu31 + Gtl122*gtu32 + + Gtl123*gtu33; - CCTK_REAL Gtl333 = 0.5*JacPDstandardNth3gt33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu131 = Gtl113*gtu11 + Gtl123*gtu21 + + Gtl133*gtu31; - CCTK_REAL Gtlu111 = Gtl111*gtu11 + Gtl112*gtu21 + Gtl113*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu132 = Gtl113*gtu21 + Gtl123*gtu22 + + Gtl133*gtu32; - CCTK_REAL Gtlu112 = Gtl111*gtu21 + Gtl112*gtu22 + Gtl113*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu133 = Gtl113*gtu31 + Gtl123*gtu32 + + Gtl133*gtu33; - CCTK_REAL Gtlu113 = Gtl111*gtu31 + Gtl112*gtu32 + Gtl113*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu211 = Gtl211*gtu11 + Gtl212*gtu21 + + Gtl213*gtu31; - CCTK_REAL Gtlu121 = Gtl112*gtu11 + Gtl122*gtu21 + Gtl123*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu212 = Gtl211*gtu21 + Gtl212*gtu22 + + Gtl213*gtu32; - CCTK_REAL Gtlu122 = Gtl112*gtu21 + Gtl122*gtu22 + Gtl123*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu213 = Gtl211*gtu31 + Gtl212*gtu32 + + Gtl213*gtu33; - CCTK_REAL Gtlu123 = Gtl112*gtu31 + Gtl122*gtu32 + Gtl123*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu221 = Gtl212*gtu11 + Gtl222*gtu21 + + Gtl223*gtu31; - CCTK_REAL Gtlu131 = Gtl113*gtu11 + Gtl123*gtu21 + Gtl133*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu222 = Gtl212*gtu21 + Gtl222*gtu22 + + Gtl223*gtu32; - CCTK_REAL Gtlu132 = Gtl113*gtu21 + Gtl123*gtu22 + Gtl133*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu223 = Gtl212*gtu31 + Gtl222*gtu32 + + Gtl223*gtu33; - CCTK_REAL Gtlu133 = Gtl113*gtu31 + Gtl123*gtu32 + Gtl133*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu231 = Gtl213*gtu11 + Gtl223*gtu21 + + Gtl233*gtu31; - CCTK_REAL Gtlu211 = Gtl211*gtu11 + Gtl212*gtu21 + Gtl213*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu232 = Gtl213*gtu21 + Gtl223*gtu22 + + Gtl233*gtu32; - CCTK_REAL Gtlu212 = Gtl211*gtu21 + Gtl212*gtu22 + Gtl213*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu233 = Gtl213*gtu31 + Gtl223*gtu32 + + Gtl233*gtu33; - CCTK_REAL Gtlu213 = Gtl211*gtu31 + Gtl212*gtu32 + Gtl213*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu311 = Gtl311*gtu11 + Gtl312*gtu21 + + Gtl313*gtu31; - CCTK_REAL Gtlu221 = Gtl212*gtu11 + Gtl222*gtu21 + Gtl223*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu312 = Gtl311*gtu21 + Gtl312*gtu22 + + Gtl313*gtu32; - CCTK_REAL Gtlu222 = Gtl212*gtu21 + Gtl222*gtu22 + Gtl223*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu313 = Gtl311*gtu31 + Gtl312*gtu32 + + Gtl313*gtu33; - CCTK_REAL Gtlu223 = Gtl212*gtu31 + Gtl222*gtu32 + Gtl223*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu321 = Gtl312*gtu11 + Gtl322*gtu21 + + Gtl323*gtu31; - CCTK_REAL Gtlu231 = Gtl213*gtu11 + Gtl223*gtu21 + Gtl233*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu322 = Gtl312*gtu21 + Gtl322*gtu22 + + Gtl323*gtu32; - CCTK_REAL Gtlu232 = Gtl213*gtu21 + Gtl223*gtu22 + Gtl233*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu323 = Gtl312*gtu31 + Gtl322*gtu32 + + Gtl323*gtu33; - CCTK_REAL Gtlu233 = Gtl213*gtu31 + Gtl223*gtu32 + Gtl233*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu331 = Gtl313*gtu11 + Gtl323*gtu21 + + Gtl333*gtu31; - CCTK_REAL Gtlu311 = Gtl311*gtu11 + Gtl312*gtu21 + Gtl313*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu332 = Gtl313*gtu21 + Gtl323*gtu22 + + Gtl333*gtu32; - CCTK_REAL Gtlu312 = Gtl311*gtu21 + Gtl312*gtu22 + Gtl313*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gtlu333 = Gtl313*gtu31 + Gtl323*gtu32 + + Gtl333*gtu33; - CCTK_REAL Gtlu313 = Gtl311*gtu31 + Gtl312*gtu32 + Gtl313*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt111 = Gtl111*gtu11 + Gtl211*gtu21 + + Gtl311*gtu31; - CCTK_REAL Gtlu321 = Gtl312*gtu11 + Gtl322*gtu21 + Gtl323*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt211 = Gtl111*gtu21 + Gtl211*gtu22 + + Gtl311*gtu32; - CCTK_REAL Gtlu322 = Gtl312*gtu21 + Gtl322*gtu22 + Gtl323*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt311 = Gtl111*gtu31 + Gtl211*gtu32 + + Gtl311*gtu33; - CCTK_REAL Gtlu323 = Gtl312*gtu31 + Gtl322*gtu32 + Gtl323*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt112 = Gtl112*gtu11 + Gtl212*gtu21 + + Gtl312*gtu31; - CCTK_REAL Gtlu331 = Gtl313*gtu11 + Gtl323*gtu21 + Gtl333*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt212 = Gtl112*gtu21 + Gtl212*gtu22 + + Gtl312*gtu32; - CCTK_REAL Gtlu332 = Gtl313*gtu21 + Gtl323*gtu22 + Gtl333*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt312 = Gtl112*gtu31 + Gtl212*gtu32 + + Gtl312*gtu33; - CCTK_REAL Gtlu333 = Gtl313*gtu31 + Gtl323*gtu32 + Gtl333*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt113 = Gtl113*gtu11 + Gtl213*gtu21 + + Gtl313*gtu31; - CCTK_REAL Gt111 = Gtl111*gtu11 + Gtl211*gtu21 + Gtl311*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt213 = Gtl113*gtu21 + Gtl213*gtu22 + + Gtl313*gtu32; - CCTK_REAL Gt211 = Gtl111*gtu21 + Gtl211*gtu22 + Gtl311*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt313 = Gtl113*gtu31 + Gtl213*gtu32 + + Gtl313*gtu33; - CCTK_REAL Gt311 = Gtl111*gtu31 + Gtl211*gtu32 + Gtl311*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt122 = Gtl122*gtu11 + Gtl222*gtu21 + + Gtl322*gtu31; - CCTK_REAL Gt112 = Gtl112*gtu11 + Gtl212*gtu21 + Gtl312*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt222 = Gtl122*gtu21 + Gtl222*gtu22 + + Gtl322*gtu32; - CCTK_REAL Gt212 = Gtl112*gtu21 + Gtl212*gtu22 + Gtl312*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt322 = Gtl122*gtu31 + Gtl222*gtu32 + + Gtl322*gtu33; - CCTK_REAL Gt312 = Gtl112*gtu31 + Gtl212*gtu32 + Gtl312*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt123 = Gtl123*gtu11 + Gtl223*gtu21 + + Gtl323*gtu31; - CCTK_REAL Gt113 = Gtl113*gtu11 + Gtl213*gtu21 + Gtl313*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt223 = Gtl123*gtu21 + Gtl223*gtu22 + + Gtl323*gtu32; - CCTK_REAL Gt213 = Gtl113*gtu21 + Gtl213*gtu22 + Gtl313*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt323 = Gtl123*gtu31 + Gtl223*gtu32 + + Gtl323*gtu33; - CCTK_REAL Gt313 = Gtl113*gtu31 + Gtl213*gtu32 + Gtl313*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt133 = Gtl133*gtu11 + Gtl233*gtu21 + + Gtl333*gtu31; - CCTK_REAL Gt122 = Gtl122*gtu11 + Gtl222*gtu21 + Gtl322*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt233 = Gtl133*gtu21 + Gtl233*gtu22 + + Gtl333*gtu32; - CCTK_REAL Gt222 = Gtl122*gtu21 + Gtl222*gtu22 + Gtl322*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Gt333 = Gtl133*gtu31 + Gtl233*gtu32 + + Gtl333*gtu33; - CCTK_REAL Gt322 = Gtl122*gtu31 + Gtl222*gtu32 + Gtl322*gtu33; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Xtn1 = Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - CCTK_REAL Gt123 = Gtl123*gtu11 + Gtl223*gtu21 + Gtl323*gtu31; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Xtn2 = Gt211*gtu11 + Gt222*gtu22 + + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - CCTK_REAL Gt223 = Gtl123*gtu21 + Gtl223*gtu22 + Gtl323*gtu32; + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Xtn3 = Gt311*gtu11 + Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - CCTK_REAL Gt323 = Gtl123*gtu31 + Gtl223*gtu32 + Gtl323*gtu33; - - CCTK_REAL Gt133 = Gtl133*gtu11 + Gtl233*gtu21 + Gtl333*gtu31; - - CCTK_REAL Gt233 = Gtl133*gtu21 + Gtl233*gtu22 + Gtl333*gtu32; - - CCTK_REAL Gt333 = Gtl133*gtu31 + Gtl233*gtu32 + Gtl333*gtu33; - - CCTK_REAL Xtn1 = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + - Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - - CCTK_REAL Xtn2 = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + - Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - - CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + - Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt11 = 0.5*(6*(Gt111*Gtlu111 + + Gt112*Gtlu112 + Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + + Gt213*Gtlu123 + Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - gtu11*JacPDstandardNth11gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + gt11L*JacPDstandardNth1Xt1) + 2*gt12L*JacPDstandardNth1Xt2 + @@ -1312,13 +1378,13 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d gtu33*JacPDstandardNth33gt11 + 2*Gtl111*Xtn1 + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); - CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + - Gt213*Gtlu223) + 2*(Gt122*Gtlu112 + Gt123*Gtlu113 + Gt111*Gtlu121 + - Gt212*Gtlu121 + Gt222*Gtlu122 + Gt113*Gtlu123 + Gt223*Gtlu123 + - Gt312*Gtlu131 + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + - Gt112*(Gtlu111 + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + Gt311*Gtlu231 + - Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + Gt312*Gtlu322 + - Gt313*Gtlu323) - gtu11*JacPDstandardNth11gt12 + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt12 = 0.5*(4*(Gt211*Gtlu221 + + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt122*Gtlu112 + Gt123*Gtlu113 + + Gt111*Gtlu121 + Gt212*Gtlu121 + Gt222*Gtlu122 + Gt113*Gtlu123 + + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + Gt323*Gtlu133 + + Gt111*Gtlu211 + Gt112*(Gtlu111 + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + + Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + + Gt312*Gtlu322 + Gt313*Gtlu323) - gtu11*JacPDstandardNth11gt12 + gt12L*JacPDstandardNth1Xt1 + gt22L*JacPDstandardNth1Xt2 + gt23L*JacPDstandardNth1Xt3 + gtu21*(-JacPDstandardNth12gt12 - JacPDstandardNth21gt12) - gtu22*JacPDstandardNth22gt12 + @@ -1328,25 +1394,26 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d JacPDstandardNth32gt12) - gtu33*JacPDstandardNth33gt12 + Gtl112*Xtn1 + Gtl211*Xtn1 + Gtl122*Xtn2 + Gtl212*Xtn2 + Gtl123*Xtn3 + Gtl213*Xtn3); - CCTK_REAL Rt13 = 0.5*(2*(Gt123*Gtlu112 + Gt133*Gtlu113 + Gt213*Gtlu121 - + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + Gt313*Gtlu131 + - Gt112*Gtlu132 + Gt323*Gtlu132 + Gt333*Gtlu133 + Gt211*Gtlu231 + - Gt212*Gtlu232 + Gt213*Gtlu233 + Gt111*Gtlu311 + Gt112*Gtlu312 + - Gt113*(Gtlu111 + Gtlu133 + Gtlu313) + Gt211*Gtlu321 + Gt212*Gtlu322 + - Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + Gt313*Gtlu333) - - gtu11*JacPDstandardNth11gt13 + gt13L*JacPDstandardNth1Xt1 + - gt23L*JacPDstandardNth1Xt2 + gt33L*JacPDstandardNth1Xt3 + - gtu21*(-JacPDstandardNth12gt13 - JacPDstandardNth21gt13) - - gtu22*JacPDstandardNth22gt13 + gtu31*(-JacPDstandardNth13gt13 - - JacPDstandardNth31gt13) + gtu32*(-JacPDstandardNth23gt13 - - JacPDstandardNth32gt13) - gtu33*JacPDstandardNth33gt13 + - gt11L*JacPDstandardNth3Xt1 + gt12L*JacPDstandardNth3Xt2 + - gt13L*JacPDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 - + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt123*Gtlu213 + Gt312*Gtlu231 + Gt322*Gtlu232 + - Gt323*Gtlu233) - gtu11*JacPDstandardNth11gt22 + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt13 = 0.5*(2*(Gt123*Gtlu112 + + Gt133*Gtlu113 + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + + Gt111*Gtlu131 + Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + + Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + + Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + Gtlu133 + Gtlu313) + + Gt211*Gtlu321 + Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*Gtlu333) - gtu11*JacPDstandardNth11gt13 + + gt13L*JacPDstandardNth1Xt1 + gt23L*JacPDstandardNth1Xt2 + + gt33L*JacPDstandardNth1Xt3 + gtu21*(-JacPDstandardNth12gt13 - + JacPDstandardNth21gt13) - gtu22*JacPDstandardNth22gt13 + + gtu31*(-JacPDstandardNth13gt13 - JacPDstandardNth31gt13) + + gtu32*(-JacPDstandardNth23gt13 - JacPDstandardNth32gt13) - + gtu33*JacPDstandardNth33gt13 + gt11L*JacPDstandardNth3Xt1 + + gt12L*JacPDstandardNth3Xt2 + gt13L*JacPDstandardNth3Xt3 + + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + + Gtl313*Xtn3); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt22 = 0.5*(6*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 4*(Gt123*Gtlu213 + Gt312*Gtlu231 + + Gt322*Gtlu232 + Gt323*Gtlu233) - gtu11*JacPDstandardNth11gt22 + gtu21*(-JacPDstandardNth12gt22 - JacPDstandardNth21gt22) - gtu22*JacPDstandardNth22gt22 + 2*(Gt123*Gtlu123 + Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + 2*Gtlu212) + Gt312*Gtlu321 + @@ -1357,13 +1424,13 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d gtu33*JacPDstandardNth33gt22 + 2*Gtl212*Xtn1 + 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); - CCTK_REAL Rt23 = 0.5*(2*(Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 - + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt223*Gtlu222 + Gt233*Gtlu223 + - Gt212*Gtlu231 + Gt313*Gtlu231 + Gt222*Gtlu232 + Gt323*Gtlu232 + - Gt223*Gtlu233 + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + - Gt122*(Gtlu132 + Gtlu312) + Gt123*Gtlu313 + Gt212*Gtlu321 + - Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*Gtlu333) - gtu11*JacPDstandardNth11gt23 + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt23 = 0.5*(2*(Gt123*Gtlu133 + + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + + Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + + Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + + Gt112*(Gtlu131 + Gtlu311) + Gt122*(Gtlu132 + Gtlu312) + Gt123*Gtlu313 + + Gt212*Gtlu321 + Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + + Gt322*Gtlu332 + Gt323*Gtlu333) - gtu11*JacPDstandardNth11gt23 + gtu21*(-JacPDstandardNth12gt23 - JacPDstandardNth21gt23) - gtu22*JacPDstandardNth22gt23 + gt13L*JacPDstandardNth2Xt1 + gt23L*JacPDstandardNth2Xt2 + gt33L*JacPDstandardNth2Xt3 + @@ -1374,82 +1441,93 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 - + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) - - gtu11*JacPDstandardNth11gt33 + gtu21*(-JacPDstandardNth12gt33 - - JacPDstandardNth21gt33) - gtu22*JacPDstandardNth22gt33 + - gtu31*(-JacPDstandardNth13gt33 - JacPDstandardNth31gt33) + - gtu32*(-JacPDstandardNth23gt33 - JacPDstandardNth32gt33) - - gtu33*JacPDstandardNth33gt33 + 2*(Gt133*Gtlu133 + Gt213*Gtlu231 + - Gt223*Gtlu232 + Gt233*Gtlu233 + Gt113*(Gtlu131 + 2*Gtlu311) + - Gt123*(Gtlu132 + 2*Gtlu312) + gt13L*JacPDstandardNth3Xt1) + - 2*gt23L*JacPDstandardNth3Xt2 + 2*gt33L*JacPDstandardNth3Xt3 + - 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + 2*Gtl333*Xtn3); - - CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 - + gtu32*Rt23) + gtu33*Rt33; - - CCTK_REAL ephi = + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Rt33 = 0.5*(4*(Gt133*Gtlu313 + + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + + Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*JacPDstandardNth11gt33 + + gtu21*(-JacPDstandardNth12gt33 - JacPDstandardNth21gt33) - + gtu22*JacPDstandardNth22gt33 + gtu31*(-JacPDstandardNth13gt33 - + JacPDstandardNth31gt33) + gtu32*(-JacPDstandardNth23gt33 - + JacPDstandardNth32gt33) - gtu33*JacPDstandardNth33gt33 + + 2*(Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + + Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + 2*Gtlu312) + + gt13L*JacPDstandardNth3Xt1) + 2*gt23L*JacPDstandardNth3Xt2 + + 2*gt33L*JacPDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + + 2*Gtl333*Xtn3); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED trRt = gtu11*Rt11 + gtu22*Rt22 + + 2*(gtu21*Rt12 + gtu31*Rt13 + gtu32*Rt23) + gtu33*Rt33; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED ephi = IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL)); - CCTK_REAL Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; - - CCTK_REAL Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - - CCTK_REAL Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - - CCTK_REAL Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - - CCTK_REAL Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; - - CCTK_REAL Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - - CCTK_REAL Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - - CCTK_REAL Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - - CCTK_REAL Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; - - CCTK_REAL rho = INV(SQR(alphaL))*(eTttL - 2*(beta2L*eTtyL + - beta3L*eTtzL) + 2*(beta1L*(-eTtxL + beta2L*eTxyL + - beta3L*eTxzL) + beta2L*beta3L*eTyzL) + eTxxL*SQR(beta1L) - + eTyyL*SQR(beta2L) + eTzzL*SQR(beta3L)); - - CCTK_REAL S1 = (-eTtxL + beta1L*eTxxL + beta2L*eTxyL + - beta3L*eTxzL)*INV(alphaL); - - CCTK_REAL S2 = (-eTtyL + beta1L*eTxyL + beta2L*eTyyL + - beta3L*eTyzL)*INV(alphaL); - - CCTK_REAL S3 = (-eTtzL + beta1L*eTxzL + beta2L*eTyzL + - beta3L*eTzzL)*INV(alphaL); - - CCTK_REAL MadmL = -0.0625*INV(Pi)*((Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113 + Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11 + (Gt122*Gtlu112 + - Gt123*Gtlu113 + Gt222*Gtlu122 + Gt223*Gtlu123 + Gt322*Gtlu132 + - Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + Gtlu212) + - Gt113*Gtlu213 + Gt211*Gtlu221 + Gt212*(Gtlu121 + Gtlu222) + - Gt213*Gtlu223 + Gt311*Gtlu231 + Gt312*(Gtlu131 + Gtlu232) + - Gt313*Gtlu233)*gtu21 + (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + - Gt322*Gtlu232 + Gt323*Gtlu233)*gtu22 + (Gt123*Gtlu112 + Gt133*Gtlu113 + - Gt223*Gtlu122 + Gt233*Gtlu123 + Gt323*Gtlu132 + Gt333*Gtlu133 + - Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + Gtlu313) + - Gt211*Gtlu321 + Gt212*Gtlu322 + Gt213*(Gtlu121 + Gtlu323) + - Gt311*Gtlu331 + Gt312*Gtlu332 + Gt313*(Gtlu131 + Gtlu333))*gtu31 + - (Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt233*Gtlu223 + - Gt313*Gtlu231 + Gt333*Gtlu233 + Gt112*Gtlu311 + Gt122*Gtlu312 + - Gt123*(Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + - Gt223*(Gtlu222 + Gtlu323) + Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*(Gtlu232 + Gtlu333))*gtu32 + (Gt113*Gtlu311 + Gt123*Gtlu312 + - Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323 + - Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333)*gtu33 + (-1 + ephi)*trRt - - pow(ephi,5)*(2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + 16*Pi*rho - - 0.666666666666666666666666666667*SQR(trKL) + SQR(Atm11) + - SQR(Atm22) + SQR(Atm33))); - - CCTK_REAL Jadm1L = + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm11 = At11L*gtu11 + At12L*gtu21 + + At13L*gtu31; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm21 = At11L*gtu21 + At12L*gtu22 + + At13L*gtu32; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm31 = At11L*gtu31 + At12L*gtu32 + + At13L*gtu33; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm12 = At12L*gtu11 + At22L*gtu21 + + At23L*gtu31; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm22 = At12L*gtu21 + At22L*gtu22 + + At23L*gtu32; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm32 = At12L*gtu31 + At22L*gtu32 + + At23L*gtu33; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm13 = At13L*gtu11 + At23L*gtu21 + + At33L*gtu31; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm23 = At13L*gtu21 + At23L*gtu22 + + At33L*gtu32; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Atm33 = At13L*gtu31 + At23L*gtu32 + + At33L*gtu33; + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED rho = INV(SQR(alphaL))*(eTttL - + 2*(beta2L*eTtyL + beta3L*eTtzL) + 2*(beta1L*(-eTtxL + + beta2L*eTxyL + beta3L*eTxzL) + beta2L*beta3L*eTyzL) + + eTxxL*SQR(beta1L) + eTyyL*SQR(beta2L) + eTzzL*SQR(beta3L)); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED S1 = (-eTtxL + beta1L*eTxxL + + beta2L*eTxyL + beta3L*eTxzL)*INV(alphaL); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED S2 = (-eTtyL + beta1L*eTxyL + + beta2L*eTyyL + beta3L*eTyzL)*INV(alphaL); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED S3 = (-eTtzL + beta1L*eTxzL + + beta2L*eTyzL + beta3L*eTzzL)*INV(alphaL); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED MadmL = + -0.0625*INV(Pi)*((Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113 + + Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11 + (Gt122*Gtlu112 + Gt123*Gtlu113 + + Gt222*Gtlu122 + Gt223*Gtlu123 + Gt322*Gtlu132 + Gt323*Gtlu133 + + Gt111*Gtlu211 + Gt112*(Gtlu111 + Gtlu212) + Gt113*Gtlu213 + + Gt211*Gtlu221 + Gt212*(Gtlu121 + Gtlu222) + Gt213*Gtlu223 + + Gt311*Gtlu231 + Gt312*(Gtlu131 + Gtlu232) + Gt313*Gtlu233)*gtu21 + + (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233)*gtu22 + (Gt123*Gtlu112 + Gt133*Gtlu113 + Gt223*Gtlu122 + + Gt233*Gtlu123 + Gt323*Gtlu132 + Gt333*Gtlu133 + Gt111*Gtlu311 + + Gt112*Gtlu312 + Gt113*(Gtlu111 + Gtlu313) + Gt211*Gtlu321 + + Gt212*Gtlu322 + Gt213*(Gtlu121 + Gtlu323) + Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*(Gtlu131 + Gtlu333))*gtu31 + (Gt113*Gtlu211 + + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt233*Gtlu223 + Gt313*Gtlu231 + + Gt333*Gtlu233 + Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*(Gtlu212 + + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + Gt223*(Gtlu222 + Gtlu323) + + Gt312*Gtlu331 + Gt322*Gtlu332 + Gt323*(Gtlu232 + Gtlu333))*gtu32 + + (Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 + Gt213*Gtlu321 + + Gt223*Gtlu322 + Gt233*Gtlu323 + Gt313*Gtlu331 + Gt323*Gtlu332 + + Gt333*Gtlu333)*gtu33 + (-1 + ephi)*trRt - pow(ephi,5)*(2*(Atm12*Atm21 + + Atm13*Atm31 + Atm23*Atm32) + 16*Pi*rho - + 0.666666666666666666666666666667*SQR(trKL) + SQR(Atm11) + SQR(Atm22) + + SQR(Atm33))); + + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Jadm1L = 0.0208333333333333333333333333333*(At11L*(3*zL*dgtu112 - 3*yL*dgtu113) + At22L*(3*zL*dgtu222 - 3*yL*dgtu223) + 6*(Atm23 + zL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) - @@ -1458,7 +1536,7 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d zL*(-4*JacPDstandardNth2trK - 48*Pi*S2) + yL*(4*JacPDstandardNth3trK + 48*Pi*S3))*INV(Pi)*pow(ephi,6); - CCTK_REAL Jadm2L = + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Jadm2L = 0.0208333333333333333333333333333*(At11L*(-3*zL*dgtu111 + 3*xL*dgtu113) + At22L*(-3*zL*dgtu221 + 3*xL*dgtu223) - 6*(Atm13 + zL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) + @@ -1467,7 +1545,7 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d zL*(4*JacPDstandardNth1trK + 48*Pi*S1) + xL*(-4*JacPDstandardNth3trK - 48*Pi*S3))*INV(Pi)*pow(ephi,6); - CCTK_REAL Jadm3L = + CCTK_REAL CCTK_ATTRIBUTE_UNUSED Jadm3L = 0.0208333333333333333333333333333*(At11L*(3*yL*dgtu111 - 3*xL*dgtu112) + At22L*(3*yL*dgtu221 - 3*xL*dgtu222) + 6*(Atm12 + yL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) - diff --git a/ML_ADMQuantities/src/RegisterMoL.cc b/ML_ADMQuantities/src/RegisterMoL.cc index ef70595..626dd92 100644 --- a/ML_ADMQuantities/src/RegisterMoL.cc +++ b/ML_ADMQuantities/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_ADMQuantities_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ diff --git a/ML_ADMQuantities/src/Startup.cc b/ML_ADMQuantities/src/Startup.cc index 461aeb7..4abd3a0 100644 --- a/ML_ADMQuantities/src/Startup.cc +++ b/ML_ADMQuantities/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_ADMQuantities_Startup(void) { - const char * banner = "ML_ADMQuantities"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_ADMQuantities"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_BSSN/src/Boundaries.cc b/ML_BSSN/src/Boundaries.cc index a7c5010..98b7911 100644 --- a/ML_BSSN/src/Boundaries.cc +++ b/ML_BSSN/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; if (CCTK_EQUALS(ML_curv_bound, "none" ) || CCTK_EQUALS(ML_curv_bound, "static") || @@ -409,7 +409,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_curv_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_curv_bound = -1; + static CCTK_INT handle_ML_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0) @@ -428,7 +428,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtlapse_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_dtlapse_bound = -1; + static CCTK_INT handle_ML_dtlapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0) @@ -447,7 +447,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtshift_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_dtshift_bound = -1; + static CCTK_INT handle_ML_dtshift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0) @@ -466,7 +466,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_Gamma_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_Gamma_bound = -1; + static CCTK_INT handle_ML_Gamma_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0) @@ -485,7 +485,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_lapse_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_lapse_bound = -1; + static CCTK_INT handle_ML_lapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0) @@ -504,7 +504,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_log_confac_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_log_confac_bound = -1; + static CCTK_INT handle_ML_log_confac_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0) @@ -523,7 +523,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_metric_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_metric_bound = -1; + static CCTK_INT handle_ML_metric_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0) @@ -542,7 +542,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_shift_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_shift_bound = -1; + static CCTK_INT handle_ML_shift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0) @@ -561,7 +561,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_trace_curv_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_trace_curv_bound = -1; + static CCTK_INT handle_ML_trace_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0) @@ -580,7 +580,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At11_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At11_bound = -1; + static CCTK_INT handle_At11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0) @@ -599,7 +599,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At12_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At12_bound = -1; + static CCTK_INT handle_At12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0) @@ -618,7 +618,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At13_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At13_bound = -1; + static CCTK_INT handle_At13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0) @@ -637,7 +637,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At22_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At22_bound = -1; + static CCTK_INT handle_At22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0) @@ -656,7 +656,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At23_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At23_bound = -1; + static CCTK_INT handle_At23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0) @@ -675,7 +675,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At33_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At33_bound = -1; + static CCTK_INT handle_At33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0) @@ -694,7 +694,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(A_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_A_bound = -1; + static CCTK_INT handle_A_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0) @@ -713,7 +713,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_B1_bound = -1; + static CCTK_INT handle_B1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0) @@ -732,7 +732,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_B2_bound = -1; + static CCTK_INT handle_B2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0) @@ -751,7 +751,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_B3_bound = -1; + static CCTK_INT handle_B3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0) @@ -770,7 +770,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Xt1_bound = -1; + static CCTK_INT handle_Xt1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0) @@ -789,7 +789,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Xt2_bound = -1; + static CCTK_INT handle_Xt2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0) @@ -808,7 +808,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Xt3_bound = -1; + static CCTK_INT handle_Xt3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0) @@ -827,7 +827,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(alpha_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_alpha_bound = -1; + static CCTK_INT handle_alpha_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0) @@ -846,7 +846,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(phi_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_phi_bound = -1; + static CCTK_INT handle_phi_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0) @@ -865,7 +865,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt11_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt11_bound = -1; + static CCTK_INT handle_gt11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0) @@ -884,7 +884,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt12_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt12_bound = -1; + static CCTK_INT handle_gt12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0) @@ -903,7 +903,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt13_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt13_bound = -1; + static CCTK_INT handle_gt13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0) @@ -922,7 +922,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt22_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt22_bound = -1; + static CCTK_INT handle_gt22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0) @@ -941,7 +941,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt23_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt23_bound = -1; + static CCTK_INT handle_gt23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0) @@ -960,7 +960,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt33_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt33_bound = -1; + static CCTK_INT handle_gt33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0) @@ -979,7 +979,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta1_bound = -1; + static CCTK_INT handle_beta1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0) @@ -998,7 +998,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta2_bound = -1; + static CCTK_INT handle_beta2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0) @@ -1017,7 +1017,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta3_bound = -1; + static CCTK_INT handle_beta3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0) @@ -1036,7 +1036,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(trK_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_trK_bound = -1; + static CCTK_INT handle_trK_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0) @@ -1055,7 +1055,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_curv_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_curv_bound = -1; + static CCTK_INT handle_ML_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0) @@ -1072,7 +1072,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtlapse_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_dtlapse_bound = -1; + static CCTK_INT handle_ML_dtlapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0) @@ -1089,7 +1089,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtshift_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_dtshift_bound = -1; + static CCTK_INT handle_ML_dtshift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0) @@ -1106,7 +1106,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_Gamma_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_Gamma_bound = -1; + static CCTK_INT handle_ML_Gamma_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0) @@ -1123,7 +1123,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_lapse_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_lapse_bound = -1; + static CCTK_INT handle_ML_lapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0) @@ -1140,7 +1140,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_log_confac_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_log_confac_bound = -1; + static CCTK_INT handle_ML_log_confac_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0) @@ -1157,7 +1157,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_metric_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_metric_bound = -1; + static CCTK_INT handle_ML_metric_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0) @@ -1174,7 +1174,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_shift_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_shift_bound = -1; + static CCTK_INT handle_ML_shift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0) @@ -1191,7 +1191,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_trace_curv_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_trace_curv_bound = -1; + static CCTK_INT handle_ML_trace_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0) @@ -1208,7 +1208,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At11_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At11_bound = -1; + static CCTK_INT handle_At11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0) @@ -1225,7 +1225,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At12_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At12_bound = -1; + static CCTK_INT handle_At12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0) @@ -1242,7 +1242,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At13_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At13_bound = -1; + static CCTK_INT handle_At13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0) @@ -1259,7 +1259,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At22_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At22_bound = -1; + static CCTK_INT handle_At22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0) @@ -1276,7 +1276,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At23_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At23_bound = -1; + static CCTK_INT handle_At23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0) @@ -1293,7 +1293,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At33_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At33_bound = -1; + static CCTK_INT handle_At33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0) @@ -1310,7 +1310,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(A_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_A_bound = -1; + static CCTK_INT handle_A_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0) @@ -1327,7 +1327,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_B1_bound = -1; + static CCTK_INT handle_B1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0) @@ -1344,7 +1344,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_B2_bound = -1; + static CCTK_INT handle_B2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0) @@ -1361,7 +1361,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_B3_bound = -1; + static CCTK_INT handle_B3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0) @@ -1378,7 +1378,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Xt1_bound = -1; + static CCTK_INT handle_Xt1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0) @@ -1395,7 +1395,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Xt2_bound = -1; + static CCTK_INT handle_Xt2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0) @@ -1412,7 +1412,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Xt3_bound = -1; + static CCTK_INT handle_Xt3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0) @@ -1429,7 +1429,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(alpha_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_alpha_bound = -1; + static CCTK_INT handle_alpha_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0) @@ -1446,7 +1446,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(phi_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_phi_bound = -1; + static CCTK_INT handle_phi_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0) @@ -1463,7 +1463,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt11_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt11_bound = -1; + static CCTK_INT handle_gt11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0) @@ -1480,7 +1480,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt12_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt12_bound = -1; + static CCTK_INT handle_gt12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0) @@ -1497,7 +1497,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt13_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt13_bound = -1; + static CCTK_INT handle_gt13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0) @@ -1514,7 +1514,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt22_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt22_bound = -1; + static CCTK_INT handle_gt22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0) @@ -1531,7 +1531,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt23_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt23_bound = -1; + static CCTK_INT handle_gt23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0) @@ -1548,7 +1548,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt33_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt33_bound = -1; + static CCTK_INT handle_gt33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0) @@ -1565,7 +1565,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta1_bound = -1; + static CCTK_INT handle_beta1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0) @@ -1582,7 +1582,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta2_bound = -1; + static CCTK_INT handle_beta2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0) @@ -1599,7 +1599,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta3_bound = -1; + static CCTK_INT handle_beta3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0) @@ -1616,7 +1616,7 @@ extern "C" void ML_BSSN_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(trK_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_trK_bound = -1; + static CCTK_INT handle_trK_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0) diff --git a/ML_BSSN/src/ML_BSSN_Advect.cc b/ML_BSSN/src/ML_BSSN_Advect.cc index 0a74e3d..0651f9c 100644 --- a/ML_BSSN/src/ML_BSSN_Advect.cc +++ b/ML_BSSN/src/ML_BSSN_Advect.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_Advect_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_BSSN::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_curvrhs."); @@ -72,108 +72,108 @@ static void ML_BSSN_Advect_Body(cGH const * restrict const cctkGH, int const dir /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -187,38 +187,38 @@ static void ML_BSSN_Advect_Body(cGH const * restrict const cctkGH, int const dir 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 */ @@ -235,63 +235,63 @@ static void ML_BSSN_Advect_Body(cGH const * restrict const cctkGH, int const dir 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]); - CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]); - CCTK_REAL_VEC At11L = vec_load(At11[index]); - CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]); - CCTK_REAL_VEC B3L = vec_load(B3[index]); - CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]); - CCTK_REAL_VEC beta1L = vec_load(beta1[index]); - CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]); - CCTK_REAL_VEC beta2L = vec_load(beta2[index]); - CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]); - CCTK_REAL_VEC beta3L = vec_load(beta3[index]); - CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = vec_load(alpharhs[index]); + CCTK_REAL_VEC ArhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Arhs[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At11rhs[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At12rhs[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At13rhs[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At22rhs[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At23rhs[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At33rhs[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B1rhs[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B2rhs[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[index]); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B3rhs[index]); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = vec_load(beta1[index]); + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta1rhs[index]); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = vec_load(beta2[index]); + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta2rhs[index]); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = vec_load(beta3[index]); + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta3rhs[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt11rhs[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt12rhs[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt13rhs[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt22rhs[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt23rhs[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt33rhs[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = vec_load(phirhs[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = vec_load(trKrhs[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1rhs[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2rhs[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3rhs[index]); - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -309,156 +309,156 @@ static void ML_BSSN_Advect_Body(cGH const * restrict const cctkGH, int const dir /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDupwindNthAnti1A; - CCTK_REAL_VEC PDupwindNthSymm1A; - CCTK_REAL_VEC PDupwindNthAnti2A; - CCTK_REAL_VEC PDupwindNthSymm2A; - CCTK_REAL_VEC PDupwindNthAnti3A; - CCTK_REAL_VEC PDupwindNthSymm3A; - CCTK_REAL_VEC PDupwindNthAnti1alpha; - CCTK_REAL_VEC PDupwindNthSymm1alpha; - CCTK_REAL_VEC PDupwindNthAnti2alpha; - CCTK_REAL_VEC PDupwindNthSymm2alpha; - CCTK_REAL_VEC PDupwindNthAnti3alpha; - CCTK_REAL_VEC PDupwindNthSymm3alpha; - CCTK_REAL_VEC PDupwindNthAnti1At11; - CCTK_REAL_VEC PDupwindNthSymm1At11; - CCTK_REAL_VEC PDupwindNthAnti2At11; - CCTK_REAL_VEC PDupwindNthSymm2At11; - CCTK_REAL_VEC PDupwindNthAnti3At11; - CCTK_REAL_VEC PDupwindNthSymm3At11; - CCTK_REAL_VEC PDupwindNthAnti1At12; - CCTK_REAL_VEC PDupwindNthSymm1At12; - CCTK_REAL_VEC PDupwindNthAnti2At12; - CCTK_REAL_VEC PDupwindNthSymm2At12; - CCTK_REAL_VEC PDupwindNthAnti3At12; - CCTK_REAL_VEC PDupwindNthSymm3At12; - CCTK_REAL_VEC PDupwindNthAnti1At13; - CCTK_REAL_VEC PDupwindNthSymm1At13; - CCTK_REAL_VEC PDupwindNthAnti2At13; - CCTK_REAL_VEC PDupwindNthSymm2At13; - CCTK_REAL_VEC PDupwindNthAnti3At13; - CCTK_REAL_VEC PDupwindNthSymm3At13; - CCTK_REAL_VEC PDupwindNthAnti1At22; - CCTK_REAL_VEC PDupwindNthSymm1At22; - CCTK_REAL_VEC PDupwindNthAnti2At22; - CCTK_REAL_VEC PDupwindNthSymm2At22; - CCTK_REAL_VEC PDupwindNthAnti3At22; - CCTK_REAL_VEC PDupwindNthSymm3At22; - CCTK_REAL_VEC PDupwindNthAnti1At23; - CCTK_REAL_VEC PDupwindNthSymm1At23; - CCTK_REAL_VEC PDupwindNthAnti2At23; - CCTK_REAL_VEC PDupwindNthSymm2At23; - CCTK_REAL_VEC PDupwindNthAnti3At23; - CCTK_REAL_VEC PDupwindNthSymm3At23; - CCTK_REAL_VEC PDupwindNthAnti1At33; - CCTK_REAL_VEC PDupwindNthSymm1At33; - CCTK_REAL_VEC PDupwindNthAnti2At33; - CCTK_REAL_VEC PDupwindNthSymm2At33; - CCTK_REAL_VEC PDupwindNthAnti3At33; - CCTK_REAL_VEC PDupwindNthSymm3At33; - CCTK_REAL_VEC PDupwindNthAnti1B1; - CCTK_REAL_VEC PDupwindNthSymm1B1; - CCTK_REAL_VEC PDupwindNthAnti2B1; - CCTK_REAL_VEC PDupwindNthSymm2B1; - CCTK_REAL_VEC PDupwindNthAnti3B1; - CCTK_REAL_VEC PDupwindNthSymm3B1; - CCTK_REAL_VEC PDupwindNthAnti1B2; - CCTK_REAL_VEC PDupwindNthSymm1B2; - CCTK_REAL_VEC PDupwindNthAnti2B2; - CCTK_REAL_VEC PDupwindNthSymm2B2; - CCTK_REAL_VEC PDupwindNthAnti3B2; - CCTK_REAL_VEC PDupwindNthSymm3B2; - CCTK_REAL_VEC PDupwindNthAnti1B3; - CCTK_REAL_VEC PDupwindNthSymm1B3; - CCTK_REAL_VEC PDupwindNthAnti2B3; - CCTK_REAL_VEC PDupwindNthSymm2B3; - CCTK_REAL_VEC PDupwindNthAnti3B3; - CCTK_REAL_VEC PDupwindNthSymm3B3; - CCTK_REAL_VEC PDupwindNthAnti1beta1; - CCTK_REAL_VEC PDupwindNthSymm1beta1; - CCTK_REAL_VEC PDupwindNthAnti2beta1; - CCTK_REAL_VEC PDupwindNthSymm2beta1; - CCTK_REAL_VEC PDupwindNthAnti3beta1; - CCTK_REAL_VEC PDupwindNthSymm3beta1; - CCTK_REAL_VEC PDupwindNthAnti1beta2; - CCTK_REAL_VEC PDupwindNthSymm1beta2; - CCTK_REAL_VEC PDupwindNthAnti2beta2; - CCTK_REAL_VEC PDupwindNthSymm2beta2; - CCTK_REAL_VEC PDupwindNthAnti3beta2; - CCTK_REAL_VEC PDupwindNthSymm3beta2; - CCTK_REAL_VEC PDupwindNthAnti1beta3; - CCTK_REAL_VEC PDupwindNthSymm1beta3; - CCTK_REAL_VEC PDupwindNthAnti2beta3; - CCTK_REAL_VEC PDupwindNthSymm2beta3; - CCTK_REAL_VEC PDupwindNthAnti3beta3; - CCTK_REAL_VEC PDupwindNthSymm3beta3; - CCTK_REAL_VEC PDupwindNthAnti1gt11; - CCTK_REAL_VEC PDupwindNthSymm1gt11; - CCTK_REAL_VEC PDupwindNthAnti2gt11; - CCTK_REAL_VEC PDupwindNthSymm2gt11; - CCTK_REAL_VEC PDupwindNthAnti3gt11; - CCTK_REAL_VEC PDupwindNthSymm3gt11; - CCTK_REAL_VEC PDupwindNthAnti1gt12; - CCTK_REAL_VEC PDupwindNthSymm1gt12; - CCTK_REAL_VEC PDupwindNthAnti2gt12; - CCTK_REAL_VEC PDupwindNthSymm2gt12; - CCTK_REAL_VEC PDupwindNthAnti3gt12; - CCTK_REAL_VEC PDupwindNthSymm3gt12; - CCTK_REAL_VEC PDupwindNthAnti1gt13; - CCTK_REAL_VEC PDupwindNthSymm1gt13; - CCTK_REAL_VEC PDupwindNthAnti2gt13; - CCTK_REAL_VEC PDupwindNthSymm2gt13; - CCTK_REAL_VEC PDupwindNthAnti3gt13; - CCTK_REAL_VEC PDupwindNthSymm3gt13; - CCTK_REAL_VEC PDupwindNthAnti1gt22; - CCTK_REAL_VEC PDupwindNthSymm1gt22; - CCTK_REAL_VEC PDupwindNthAnti2gt22; - CCTK_REAL_VEC PDupwindNthSymm2gt22; - CCTK_REAL_VEC PDupwindNthAnti3gt22; - CCTK_REAL_VEC PDupwindNthSymm3gt22; - CCTK_REAL_VEC PDupwindNthAnti1gt23; - CCTK_REAL_VEC PDupwindNthSymm1gt23; - CCTK_REAL_VEC PDupwindNthAnti2gt23; - CCTK_REAL_VEC PDupwindNthSymm2gt23; - CCTK_REAL_VEC PDupwindNthAnti3gt23; - CCTK_REAL_VEC PDupwindNthSymm3gt23; - CCTK_REAL_VEC PDupwindNthAnti1gt33; - CCTK_REAL_VEC PDupwindNthSymm1gt33; - CCTK_REAL_VEC PDupwindNthAnti2gt33; - CCTK_REAL_VEC PDupwindNthSymm2gt33; - CCTK_REAL_VEC PDupwindNthAnti3gt33; - CCTK_REAL_VEC PDupwindNthSymm3gt33; - CCTK_REAL_VEC PDupwindNthAnti1phi; - CCTK_REAL_VEC PDupwindNthSymm1phi; - CCTK_REAL_VEC PDupwindNthAnti2phi; - CCTK_REAL_VEC PDupwindNthSymm2phi; - CCTK_REAL_VEC PDupwindNthAnti3phi; - CCTK_REAL_VEC PDupwindNthSymm3phi; - CCTK_REAL_VEC PDupwindNthAnti1trK; - CCTK_REAL_VEC PDupwindNthSymm1trK; - CCTK_REAL_VEC PDupwindNthAnti2trK; - CCTK_REAL_VEC PDupwindNthSymm2trK; - CCTK_REAL_VEC PDupwindNthAnti3trK; - CCTK_REAL_VEC PDupwindNthSymm3trK; - CCTK_REAL_VEC PDupwindNthAnti1Xt1; - CCTK_REAL_VEC PDupwindNthSymm1Xt1; - CCTK_REAL_VEC PDupwindNthAnti2Xt1; - CCTK_REAL_VEC PDupwindNthSymm2Xt1; - CCTK_REAL_VEC PDupwindNthAnti3Xt1; - CCTK_REAL_VEC PDupwindNthSymm3Xt1; - CCTK_REAL_VEC PDupwindNthAnti1Xt2; - CCTK_REAL_VEC PDupwindNthSymm1Xt2; - CCTK_REAL_VEC PDupwindNthAnti2Xt2; - CCTK_REAL_VEC PDupwindNthSymm2Xt2; - CCTK_REAL_VEC PDupwindNthAnti3Xt2; - CCTK_REAL_VEC PDupwindNthSymm3Xt2; - CCTK_REAL_VEC PDupwindNthAnti1Xt3; - CCTK_REAL_VEC PDupwindNthSymm1Xt3; - CCTK_REAL_VEC PDupwindNthAnti2Xt3; - CCTK_REAL_VEC PDupwindNthSymm2Xt3; - CCTK_REAL_VEC PDupwindNthAnti3Xt3; - CCTK_REAL_VEC PDupwindNthSymm3Xt3; + CCTK_REAL_VEC PDupwindNthAnti1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -1076,162 +1076,162 @@ static void ML_BSSN_Advect_Body(cGH const * restrict const cctkGH, int const dir } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); - ptrdiff_t dir2 = kisgn(beta2L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); - ptrdiff_t dir3 = kisgn(beta3L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); - CCTK_REAL_VEC JacPDupwindNthAnti1A; - CCTK_REAL_VEC JacPDupwindNthAnti1alpha; - CCTK_REAL_VEC JacPDupwindNthAnti1At11; - CCTK_REAL_VEC JacPDupwindNthAnti1At12; - CCTK_REAL_VEC JacPDupwindNthAnti1At13; - CCTK_REAL_VEC JacPDupwindNthAnti1At22; - CCTK_REAL_VEC JacPDupwindNthAnti1At23; - CCTK_REAL_VEC JacPDupwindNthAnti1At33; - CCTK_REAL_VEC JacPDupwindNthAnti1B1; - CCTK_REAL_VEC JacPDupwindNthAnti1B2; - CCTK_REAL_VEC JacPDupwindNthAnti1B3; - CCTK_REAL_VEC JacPDupwindNthAnti1beta1; - CCTK_REAL_VEC JacPDupwindNthAnti1beta2; - CCTK_REAL_VEC JacPDupwindNthAnti1beta3; - CCTK_REAL_VEC JacPDupwindNthAnti1gt11; - CCTK_REAL_VEC JacPDupwindNthAnti1gt12; - CCTK_REAL_VEC JacPDupwindNthAnti1gt13; - CCTK_REAL_VEC JacPDupwindNthAnti1gt22; - CCTK_REAL_VEC JacPDupwindNthAnti1gt23; - CCTK_REAL_VEC JacPDupwindNthAnti1gt33; - CCTK_REAL_VEC JacPDupwindNthAnti1phi; - CCTK_REAL_VEC JacPDupwindNthAnti1trK; - CCTK_REAL_VEC JacPDupwindNthAnti1Xt1; - CCTK_REAL_VEC JacPDupwindNthAnti1Xt2; - CCTK_REAL_VEC JacPDupwindNthAnti1Xt3; - CCTK_REAL_VEC JacPDupwindNthAnti2A; - CCTK_REAL_VEC JacPDupwindNthAnti2alpha; - CCTK_REAL_VEC JacPDupwindNthAnti2At11; - CCTK_REAL_VEC JacPDupwindNthAnti2At12; - CCTK_REAL_VEC JacPDupwindNthAnti2At13; - CCTK_REAL_VEC JacPDupwindNthAnti2At22; - CCTK_REAL_VEC JacPDupwindNthAnti2At23; - CCTK_REAL_VEC JacPDupwindNthAnti2At33; - CCTK_REAL_VEC JacPDupwindNthAnti2B1; - CCTK_REAL_VEC JacPDupwindNthAnti2B2; - CCTK_REAL_VEC JacPDupwindNthAnti2B3; - CCTK_REAL_VEC JacPDupwindNthAnti2beta1; - CCTK_REAL_VEC JacPDupwindNthAnti2beta2; - CCTK_REAL_VEC JacPDupwindNthAnti2beta3; - CCTK_REAL_VEC JacPDupwindNthAnti2gt11; - CCTK_REAL_VEC JacPDupwindNthAnti2gt12; - CCTK_REAL_VEC JacPDupwindNthAnti2gt13; - CCTK_REAL_VEC JacPDupwindNthAnti2gt22; - CCTK_REAL_VEC JacPDupwindNthAnti2gt23; - CCTK_REAL_VEC JacPDupwindNthAnti2gt33; - CCTK_REAL_VEC JacPDupwindNthAnti2phi; - CCTK_REAL_VEC JacPDupwindNthAnti2trK; - CCTK_REAL_VEC JacPDupwindNthAnti2Xt1; - CCTK_REAL_VEC JacPDupwindNthAnti2Xt2; - CCTK_REAL_VEC JacPDupwindNthAnti2Xt3; - CCTK_REAL_VEC JacPDupwindNthAnti3A; - CCTK_REAL_VEC JacPDupwindNthAnti3alpha; - CCTK_REAL_VEC JacPDupwindNthAnti3At11; - CCTK_REAL_VEC JacPDupwindNthAnti3At12; - CCTK_REAL_VEC JacPDupwindNthAnti3At13; - CCTK_REAL_VEC JacPDupwindNthAnti3At22; - CCTK_REAL_VEC JacPDupwindNthAnti3At23; - CCTK_REAL_VEC JacPDupwindNthAnti3At33; - CCTK_REAL_VEC JacPDupwindNthAnti3B1; - CCTK_REAL_VEC JacPDupwindNthAnti3B2; - CCTK_REAL_VEC JacPDupwindNthAnti3B3; - CCTK_REAL_VEC JacPDupwindNthAnti3beta1; - CCTK_REAL_VEC JacPDupwindNthAnti3beta2; - CCTK_REAL_VEC JacPDupwindNthAnti3beta3; - CCTK_REAL_VEC JacPDupwindNthAnti3gt11; - CCTK_REAL_VEC JacPDupwindNthAnti3gt12; - CCTK_REAL_VEC JacPDupwindNthAnti3gt13; - CCTK_REAL_VEC JacPDupwindNthAnti3gt22; - CCTK_REAL_VEC JacPDupwindNthAnti3gt23; - CCTK_REAL_VEC JacPDupwindNthAnti3gt33; - CCTK_REAL_VEC JacPDupwindNthAnti3phi; - CCTK_REAL_VEC JacPDupwindNthAnti3trK; - CCTK_REAL_VEC JacPDupwindNthAnti3Xt1; - CCTK_REAL_VEC JacPDupwindNthAnti3Xt2; - CCTK_REAL_VEC JacPDupwindNthAnti3Xt3; - CCTK_REAL_VEC JacPDupwindNthSymm1A; - CCTK_REAL_VEC JacPDupwindNthSymm1alpha; - CCTK_REAL_VEC JacPDupwindNthSymm1At11; - CCTK_REAL_VEC JacPDupwindNthSymm1At12; - CCTK_REAL_VEC JacPDupwindNthSymm1At13; - CCTK_REAL_VEC JacPDupwindNthSymm1At22; - CCTK_REAL_VEC JacPDupwindNthSymm1At23; - CCTK_REAL_VEC JacPDupwindNthSymm1At33; - CCTK_REAL_VEC JacPDupwindNthSymm1B1; - CCTK_REAL_VEC JacPDupwindNthSymm1B2; - CCTK_REAL_VEC JacPDupwindNthSymm1B3; - CCTK_REAL_VEC JacPDupwindNthSymm1beta1; - CCTK_REAL_VEC JacPDupwindNthSymm1beta2; - CCTK_REAL_VEC JacPDupwindNthSymm1beta3; - CCTK_REAL_VEC JacPDupwindNthSymm1gt11; - CCTK_REAL_VEC JacPDupwindNthSymm1gt12; - CCTK_REAL_VEC JacPDupwindNthSymm1gt13; - CCTK_REAL_VEC JacPDupwindNthSymm1gt22; - CCTK_REAL_VEC JacPDupwindNthSymm1gt23; - CCTK_REAL_VEC JacPDupwindNthSymm1gt33; - CCTK_REAL_VEC JacPDupwindNthSymm1phi; - CCTK_REAL_VEC JacPDupwindNthSymm1trK; - CCTK_REAL_VEC JacPDupwindNthSymm1Xt1; - CCTK_REAL_VEC JacPDupwindNthSymm1Xt2; - CCTK_REAL_VEC JacPDupwindNthSymm1Xt3; - CCTK_REAL_VEC JacPDupwindNthSymm2A; - CCTK_REAL_VEC JacPDupwindNthSymm2alpha; - CCTK_REAL_VEC JacPDupwindNthSymm2At11; - CCTK_REAL_VEC JacPDupwindNthSymm2At12; - CCTK_REAL_VEC JacPDupwindNthSymm2At13; - CCTK_REAL_VEC JacPDupwindNthSymm2At22; - CCTK_REAL_VEC JacPDupwindNthSymm2At23; - CCTK_REAL_VEC JacPDupwindNthSymm2At33; - CCTK_REAL_VEC JacPDupwindNthSymm2B1; - CCTK_REAL_VEC JacPDupwindNthSymm2B2; - CCTK_REAL_VEC JacPDupwindNthSymm2B3; - CCTK_REAL_VEC JacPDupwindNthSymm2beta1; - CCTK_REAL_VEC JacPDupwindNthSymm2beta2; - CCTK_REAL_VEC JacPDupwindNthSymm2beta3; - CCTK_REAL_VEC JacPDupwindNthSymm2gt11; - CCTK_REAL_VEC JacPDupwindNthSymm2gt12; - CCTK_REAL_VEC JacPDupwindNthSymm2gt13; - CCTK_REAL_VEC JacPDupwindNthSymm2gt22; - CCTK_REAL_VEC JacPDupwindNthSymm2gt23; - CCTK_REAL_VEC JacPDupwindNthSymm2gt33; - CCTK_REAL_VEC JacPDupwindNthSymm2phi; - CCTK_REAL_VEC JacPDupwindNthSymm2trK; - CCTK_REAL_VEC JacPDupwindNthSymm2Xt1; - CCTK_REAL_VEC JacPDupwindNthSymm2Xt2; - CCTK_REAL_VEC JacPDupwindNthSymm2Xt3; - CCTK_REAL_VEC JacPDupwindNthSymm3A; - CCTK_REAL_VEC JacPDupwindNthSymm3alpha; - CCTK_REAL_VEC JacPDupwindNthSymm3At11; - CCTK_REAL_VEC JacPDupwindNthSymm3At12; - CCTK_REAL_VEC JacPDupwindNthSymm3At13; - CCTK_REAL_VEC JacPDupwindNthSymm3At22; - CCTK_REAL_VEC JacPDupwindNthSymm3At23; - CCTK_REAL_VEC JacPDupwindNthSymm3At33; - CCTK_REAL_VEC JacPDupwindNthSymm3B1; - CCTK_REAL_VEC JacPDupwindNthSymm3B2; - CCTK_REAL_VEC JacPDupwindNthSymm3B3; - CCTK_REAL_VEC JacPDupwindNthSymm3beta1; - CCTK_REAL_VEC JacPDupwindNthSymm3beta2; - CCTK_REAL_VEC JacPDupwindNthSymm3beta3; - CCTK_REAL_VEC JacPDupwindNthSymm3gt11; - CCTK_REAL_VEC JacPDupwindNthSymm3gt12; - CCTK_REAL_VEC JacPDupwindNthSymm3gt13; - CCTK_REAL_VEC JacPDupwindNthSymm3gt22; - CCTK_REAL_VEC JacPDupwindNthSymm3gt23; - CCTK_REAL_VEC JacPDupwindNthSymm3gt33; - CCTK_REAL_VEC JacPDupwindNthSymm3phi; - CCTK_REAL_VEC JacPDupwindNthSymm3trK; - CCTK_REAL_VEC JacPDupwindNthSymm3Xt1; - CCTK_REAL_VEC JacPDupwindNthSymm3Xt2; - CCTK_REAL_VEC JacPDupwindNthSymm3Xt3; + CCTK_REAL_VEC JacPDupwindNthAnti1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { diff --git a/ML_BSSN/src/ML_BSSN_Dissipation.cc b/ML_BSSN/src/ML_BSSN_Dissipation.cc index 3ec6e15..8b213f6 100644 --- a/ML_BSSN/src/ML_BSSN_Dissipation.cc +++ b/ML_BSSN/src/ML_BSSN_Dissipation.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_Dissipation_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_BSSN::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_curvrhs."); @@ -72,108 +72,108 @@ static void ML_BSSN_Dissipation_Body(cGH const * restrict const cctkGH, int cons /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -187,38 +187,38 @@ static void ML_BSSN_Dissipation_Body(cGH const * restrict const cctkGH, int cons 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 */ @@ -235,63 +235,63 @@ static void ML_BSSN_Dissipation_Body(cGH const * restrict const cctkGH, int cons 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]); - CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]); - CCTK_REAL_VEC At11L = vec_load(At11[index]); - CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]); - CCTK_REAL_VEC B3L = vec_load(B3[index]); - CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]); - CCTK_REAL_VEC beta1L = vec_load(beta1[index]); - CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]); - CCTK_REAL_VEC beta2L = vec_load(beta2[index]); - CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]); - CCTK_REAL_VEC beta3L = vec_load(beta3[index]); - CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = vec_load(alpharhs[index]); + CCTK_REAL_VEC ArhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Arhs[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At11rhs[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At12rhs[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At13rhs[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At22rhs[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At23rhs[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At33rhs[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B1rhs[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B2rhs[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[index]); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B3rhs[index]); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = vec_load(beta1[index]); + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta1rhs[index]); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = vec_load(beta2[index]); + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta2rhs[index]); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = vec_load(beta3[index]); + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta3rhs[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt11rhs[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt12rhs[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt13rhs[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt22rhs[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt23rhs[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt33rhs[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = vec_load(phirhs[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = vec_load(trKrhs[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1rhs[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2rhs[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3rhs[index]); - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -309,81 +309,81 @@ static void ML_BSSN_Dissipation_Body(cGH const * restrict const cctkGH, int cons /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDdissipationNth1A; - CCTK_REAL_VEC PDdissipationNth2A; - CCTK_REAL_VEC PDdissipationNth3A; - CCTK_REAL_VEC PDdissipationNth1alpha; - CCTK_REAL_VEC PDdissipationNth2alpha; - CCTK_REAL_VEC PDdissipationNth3alpha; - CCTK_REAL_VEC PDdissipationNth1At11; - CCTK_REAL_VEC PDdissipationNth2At11; - CCTK_REAL_VEC PDdissipationNth3At11; - CCTK_REAL_VEC PDdissipationNth1At12; - CCTK_REAL_VEC PDdissipationNth2At12; - CCTK_REAL_VEC PDdissipationNth3At12; - CCTK_REAL_VEC PDdissipationNth1At13; - CCTK_REAL_VEC PDdissipationNth2At13; - CCTK_REAL_VEC PDdissipationNth3At13; - CCTK_REAL_VEC PDdissipationNth1At22; - CCTK_REAL_VEC PDdissipationNth2At22; - CCTK_REAL_VEC PDdissipationNth3At22; - CCTK_REAL_VEC PDdissipationNth1At23; - CCTK_REAL_VEC PDdissipationNth2At23; - CCTK_REAL_VEC PDdissipationNth3At23; - CCTK_REAL_VEC PDdissipationNth1At33; - CCTK_REAL_VEC PDdissipationNth2At33; - CCTK_REAL_VEC PDdissipationNth3At33; - CCTK_REAL_VEC PDdissipationNth1B1; - CCTK_REAL_VEC PDdissipationNth2B1; - CCTK_REAL_VEC PDdissipationNth3B1; - CCTK_REAL_VEC PDdissipationNth1B2; - CCTK_REAL_VEC PDdissipationNth2B2; - CCTK_REAL_VEC PDdissipationNth3B2; - CCTK_REAL_VEC PDdissipationNth1B3; - CCTK_REAL_VEC PDdissipationNth2B3; - CCTK_REAL_VEC PDdissipationNth3B3; - CCTK_REAL_VEC PDdissipationNth1beta1; - CCTK_REAL_VEC PDdissipationNth2beta1; - CCTK_REAL_VEC PDdissipationNth3beta1; - CCTK_REAL_VEC PDdissipationNth1beta2; - CCTK_REAL_VEC PDdissipationNth2beta2; - CCTK_REAL_VEC PDdissipationNth3beta2; - CCTK_REAL_VEC PDdissipationNth1beta3; - CCTK_REAL_VEC PDdissipationNth2beta3; - CCTK_REAL_VEC PDdissipationNth3beta3; - CCTK_REAL_VEC PDdissipationNth1gt11; - CCTK_REAL_VEC PDdissipationNth2gt11; - CCTK_REAL_VEC PDdissipationNth3gt11; - CCTK_REAL_VEC PDdissipationNth1gt12; - CCTK_REAL_VEC PDdissipationNth2gt12; - CCTK_REAL_VEC PDdissipationNth3gt12; - CCTK_REAL_VEC PDdissipationNth1gt13; - CCTK_REAL_VEC PDdissipationNth2gt13; - CCTK_REAL_VEC PDdissipationNth3gt13; - CCTK_REAL_VEC PDdissipationNth1gt22; - CCTK_REAL_VEC PDdissipationNth2gt22; - CCTK_REAL_VEC PDdissipationNth3gt22; - CCTK_REAL_VEC PDdissipationNth1gt23; - CCTK_REAL_VEC PDdissipationNth2gt23; - CCTK_REAL_VEC PDdissipationNth3gt23; - CCTK_REAL_VEC PDdissipationNth1gt33; - CCTK_REAL_VEC PDdissipationNth2gt33; - CCTK_REAL_VEC PDdissipationNth3gt33; - CCTK_REAL_VEC PDdissipationNth1phi; - CCTK_REAL_VEC PDdissipationNth2phi; - CCTK_REAL_VEC PDdissipationNth3phi; - CCTK_REAL_VEC PDdissipationNth1trK; - CCTK_REAL_VEC PDdissipationNth2trK; - CCTK_REAL_VEC PDdissipationNth3trK; - CCTK_REAL_VEC PDdissipationNth1Xt1; - CCTK_REAL_VEC PDdissipationNth2Xt1; - CCTK_REAL_VEC PDdissipationNth3Xt1; - CCTK_REAL_VEC PDdissipationNth1Xt2; - CCTK_REAL_VEC PDdissipationNth2Xt2; - CCTK_REAL_VEC PDdissipationNth3Xt2; - CCTK_REAL_VEC PDdissipationNth1Xt3; - CCTK_REAL_VEC PDdissipationNth2Xt3; - CCTK_REAL_VEC PDdissipationNth3Xt3; + CCTK_REAL_VEC PDdissipationNth1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -701,81 +701,81 @@ static void ML_BSSN_Dissipation_Body(cGH const * restrict const cctkGH, int cons } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDdissipationNth1A; - CCTK_REAL_VEC JacPDdissipationNth1alpha; - CCTK_REAL_VEC JacPDdissipationNth1At11; - CCTK_REAL_VEC JacPDdissipationNth1At12; - CCTK_REAL_VEC JacPDdissipationNth1At13; - CCTK_REAL_VEC JacPDdissipationNth1At22; - CCTK_REAL_VEC JacPDdissipationNth1At23; - CCTK_REAL_VEC JacPDdissipationNth1At33; - CCTK_REAL_VEC JacPDdissipationNth1B1; - CCTK_REAL_VEC JacPDdissipationNth1B2; - CCTK_REAL_VEC JacPDdissipationNth1B3; - CCTK_REAL_VEC JacPDdissipationNth1beta1; - CCTK_REAL_VEC JacPDdissipationNth1beta2; - CCTK_REAL_VEC JacPDdissipationNth1beta3; - CCTK_REAL_VEC JacPDdissipationNth1gt11; - CCTK_REAL_VEC JacPDdissipationNth1gt12; - CCTK_REAL_VEC JacPDdissipationNth1gt13; - CCTK_REAL_VEC JacPDdissipationNth1gt22; - CCTK_REAL_VEC JacPDdissipationNth1gt23; - CCTK_REAL_VEC JacPDdissipationNth1gt33; - CCTK_REAL_VEC JacPDdissipationNth1phi; - CCTK_REAL_VEC JacPDdissipationNth1trK; - CCTK_REAL_VEC JacPDdissipationNth1Xt1; - CCTK_REAL_VEC JacPDdissipationNth1Xt2; - CCTK_REAL_VEC JacPDdissipationNth1Xt3; - CCTK_REAL_VEC JacPDdissipationNth2A; - CCTK_REAL_VEC JacPDdissipationNth2alpha; - CCTK_REAL_VEC JacPDdissipationNth2At11; - CCTK_REAL_VEC JacPDdissipationNth2At12; - CCTK_REAL_VEC JacPDdissipationNth2At13; - CCTK_REAL_VEC JacPDdissipationNth2At22; - CCTK_REAL_VEC JacPDdissipationNth2At23; - CCTK_REAL_VEC JacPDdissipationNth2At33; - CCTK_REAL_VEC JacPDdissipationNth2B1; - CCTK_REAL_VEC JacPDdissipationNth2B2; - CCTK_REAL_VEC JacPDdissipationNth2B3; - CCTK_REAL_VEC JacPDdissipationNth2beta1; - CCTK_REAL_VEC JacPDdissipationNth2beta2; - CCTK_REAL_VEC JacPDdissipationNth2beta3; - CCTK_REAL_VEC JacPDdissipationNth2gt11; - CCTK_REAL_VEC JacPDdissipationNth2gt12; - CCTK_REAL_VEC JacPDdissipationNth2gt13; - CCTK_REAL_VEC JacPDdissipationNth2gt22; - CCTK_REAL_VEC JacPDdissipationNth2gt23; - CCTK_REAL_VEC JacPDdissipationNth2gt33; - CCTK_REAL_VEC JacPDdissipationNth2phi; - CCTK_REAL_VEC JacPDdissipationNth2trK; - CCTK_REAL_VEC JacPDdissipationNth2Xt1; - CCTK_REAL_VEC JacPDdissipationNth2Xt2; - CCTK_REAL_VEC JacPDdissipationNth2Xt3; - CCTK_REAL_VEC JacPDdissipationNth3A; - CCTK_REAL_VEC JacPDdissipationNth3alpha; - CCTK_REAL_VEC JacPDdissipationNth3At11; - CCTK_REAL_VEC JacPDdissipationNth3At12; - CCTK_REAL_VEC JacPDdissipationNth3At13; - CCTK_REAL_VEC JacPDdissipationNth3At22; - CCTK_REAL_VEC JacPDdissipationNth3At23; - CCTK_REAL_VEC JacPDdissipationNth3At33; - CCTK_REAL_VEC JacPDdissipationNth3B1; - CCTK_REAL_VEC JacPDdissipationNth3B2; - CCTK_REAL_VEC JacPDdissipationNth3B3; - CCTK_REAL_VEC JacPDdissipationNth3beta1; - CCTK_REAL_VEC JacPDdissipationNth3beta2; - CCTK_REAL_VEC JacPDdissipationNth3beta3; - CCTK_REAL_VEC JacPDdissipationNth3gt11; - CCTK_REAL_VEC JacPDdissipationNth3gt12; - CCTK_REAL_VEC JacPDdissipationNth3gt13; - CCTK_REAL_VEC JacPDdissipationNth3gt22; - CCTK_REAL_VEC JacPDdissipationNth3gt23; - CCTK_REAL_VEC JacPDdissipationNth3gt33; - CCTK_REAL_VEC JacPDdissipationNth3phi; - CCTK_REAL_VEC JacPDdissipationNth3trK; - CCTK_REAL_VEC JacPDdissipationNth3Xt1; - CCTK_REAL_VEC JacPDdissipationNth3Xt2; - CCTK_REAL_VEC JacPDdissipationNth3Xt3; + CCTK_REAL_VEC JacPDdissipationNth1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1157,11 +1157,11 @@ static void ML_BSSN_Dissipation_Body(cGH const * restrict const cctkGH, int cons JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3; } - CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss1 = ToReal(EpsDiss); - CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss2 = ToReal(EpsDiss); - CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss3 = 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 a4c2b55..058e13f 100644 --- a/ML_BSSN/src/ML_BSSN_InitGamma.cc +++ b/ML_BSSN/src/ML_BSSN_InitGamma.cc @@ -36,108 +36,108 @@ static void ML_BSSN_InitGamma_Body(cGH const * restrict const cctkGH, int const /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_InitGamma_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -199,7 +199,7 @@ static void ML_BSSN_InitGamma_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -226,19 +226,19 @@ static void ML_BSSN_InitGamma_Body(cGH const * restrict const cctkGH, int const } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC Xt1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); - CCTK_REAL_VEC Xt2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); - CCTK_REAL_VEC Xt3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); - CCTK_REAL_VEC AL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); - CCTK_REAL_VEC B1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); - CCTK_REAL_VEC B2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); - CCTK_REAL_VEC B3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_InitRHS.cc b/ML_BSSN/src/ML_BSSN_InitRHS.cc index 0e23436..541380d 100644 --- a/ML_BSSN/src/ML_BSSN_InitRHS.cc +++ b/ML_BSSN/src/ML_BSSN_InitRHS.cc @@ -36,108 +36,108 @@ static void ML_BSSN_InitRHS_Body(cGH const * restrict const cctkGH, int const di /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_InitRHS_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -199,7 +199,7 @@ static void ML_BSSN_InitRHS_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -226,55 +226,55 @@ static void ML_BSSN_InitRHS_Body(cGH const * restrict const cctkGH, int const di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phirhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); - CCTK_REAL_VEC gt11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); - CCTK_REAL_VEC gt12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); - CCTK_REAL_VEC gt13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); - CCTK_REAL_VEC gt22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); - CCTK_REAL_VEC gt23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); - CCTK_REAL_VEC gt33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); - CCTK_REAL_VEC trKrhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); - CCTK_REAL_VEC At11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); - CCTK_REAL_VEC At12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); - CCTK_REAL_VEC At13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); - CCTK_REAL_VEC At22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); - CCTK_REAL_VEC At23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); - CCTK_REAL_VEC At33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); - CCTK_REAL_VEC Xt1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); - CCTK_REAL_VEC Xt2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); - CCTK_REAL_VEC Xt3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); - CCTK_REAL_VEC alpharhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); - CCTK_REAL_VEC ArhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = 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); - CCTK_REAL_VEC B1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); - CCTK_REAL_VEC B2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); - CCTK_REAL_VEC B3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.cc b/ML_BSSN/src/ML_BSSN_Minkowski.cc index a41f5c2..2217bb4 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.cc +++ b/ML_BSSN/src/ML_BSSN_Minkowski.cc @@ -36,108 +36,108 @@ static void ML_BSSN_Minkowski_Body(cGH const * restrict const cctkGH, int const /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_Minkowski_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -199,7 +199,7 @@ static void ML_BSSN_Minkowski_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -226,55 +226,56 @@ static void ML_BSSN_Minkowski_Body(cGH const * restrict const cctkGH, int const } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC gt11L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); - CCTK_REAL_VEC gt12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); - CCTK_REAL_VEC gt13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); - CCTK_REAL_VEC gt22L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); - CCTK_REAL_VEC gt23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); - CCTK_REAL_VEC gt33L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); - CCTK_REAL_VEC trKL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); - CCTK_REAL_VEC At11L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); - CCTK_REAL_VEC At12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); - CCTK_REAL_VEC At13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); - CCTK_REAL_VEC At22L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); - CCTK_REAL_VEC At23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); - CCTK_REAL_VEC At33L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); - CCTK_REAL_VEC Xt1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); - CCTK_REAL_VEC Xt2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); - CCTK_REAL_VEC Xt3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); - CCTK_REAL_VEC alphaL = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); - CCTK_REAL_VEC AL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); - CCTK_REAL_VEC beta1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); - CCTK_REAL_VEC beta2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); - CCTK_REAL_VEC beta3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); - CCTK_REAL_VEC B1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); - CCTK_REAL_VEC B2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); - CCTK_REAL_VEC B3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_RHS1.cc b/ML_BSSN/src/ML_BSSN_RHS1.cc index 3d0c850..3de7377 100644 --- a/ML_BSSN/src/ML_BSSN_RHS1.cc +++ b/ML_BSSN/src/ML_BSSN_RHS1.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_RHS1_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_BSSN::ML_dtlapserhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_dtlapserhs."); @@ -69,108 +69,108 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -184,38 +184,38 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, 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 */ @@ -232,38 +232,38 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC rL = vec_load(r[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -292,7 +292,7 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, eTzzL = ToReal(0.0); } - 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 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) { @@ -328,66 +328,66 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, /* 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 PDstandardNth11beta1; - CCTK_REAL_VEC PDstandardNth22beta1; - CCTK_REAL_VEC PDstandardNth33beta1; - CCTK_REAL_VEC PDstandardNth12beta1; - CCTK_REAL_VEC PDstandardNth13beta1; - CCTK_REAL_VEC PDstandardNth23beta1; - CCTK_REAL_VEC PDstandardNth1beta2; - CCTK_REAL_VEC PDstandardNth2beta2; - CCTK_REAL_VEC PDstandardNth3beta2; - CCTK_REAL_VEC PDstandardNth11beta2; - CCTK_REAL_VEC PDstandardNth22beta2; - CCTK_REAL_VEC PDstandardNth33beta2; - CCTK_REAL_VEC PDstandardNth12beta2; - CCTK_REAL_VEC PDstandardNth13beta2; - CCTK_REAL_VEC PDstandardNth23beta2; - CCTK_REAL_VEC PDstandardNth1beta3; - CCTK_REAL_VEC PDstandardNth2beta3; - CCTK_REAL_VEC PDstandardNth3beta3; - CCTK_REAL_VEC PDstandardNth11beta3; - CCTK_REAL_VEC PDstandardNth22beta3; - CCTK_REAL_VEC PDstandardNth33beta3; - CCTK_REAL_VEC PDstandardNth12beta3; - CCTK_REAL_VEC PDstandardNth13beta3; - CCTK_REAL_VEC PDstandardNth23beta3; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth1trK; - CCTK_REAL_VEC PDstandardNth2trK; - CCTK_REAL_VEC PDstandardNth3trK; + 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 PDstandardNth11beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23beta1 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 PDstandardNth11beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23beta2 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 PDstandardNth11beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -645,84 +645,84 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); - - ptrdiff_t dir2 = kisgn(beta2L); - - ptrdiff_t dir3 = kisgn(beta3L); - - CCTK_REAL_VEC JacPDstandardNth11alpha; - CCTK_REAL_VEC JacPDstandardNth11beta1; - CCTK_REAL_VEC JacPDstandardNth11beta2; - CCTK_REAL_VEC JacPDstandardNth11beta3; - CCTK_REAL_VEC JacPDstandardNth12alpha; - CCTK_REAL_VEC JacPDstandardNth12beta1; - CCTK_REAL_VEC JacPDstandardNth12beta2; - CCTK_REAL_VEC JacPDstandardNth12beta3; - CCTK_REAL_VEC JacPDstandardNth13alpha; - CCTK_REAL_VEC JacPDstandardNth13beta1; - CCTK_REAL_VEC JacPDstandardNth13beta2; - CCTK_REAL_VEC JacPDstandardNth13beta3; - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1beta1; - CCTK_REAL_VEC JacPDstandardNth1beta2; - CCTK_REAL_VEC JacPDstandardNth1beta3; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1trK; - CCTK_REAL_VEC JacPDstandardNth21alpha; - CCTK_REAL_VEC JacPDstandardNth21beta1; - CCTK_REAL_VEC JacPDstandardNth21beta2; - CCTK_REAL_VEC JacPDstandardNth21beta3; - CCTK_REAL_VEC JacPDstandardNth22alpha; - CCTK_REAL_VEC JacPDstandardNth22beta1; - CCTK_REAL_VEC JacPDstandardNth22beta2; - CCTK_REAL_VEC JacPDstandardNth22beta3; - CCTK_REAL_VEC JacPDstandardNth23alpha; - CCTK_REAL_VEC JacPDstandardNth23beta1; - CCTK_REAL_VEC JacPDstandardNth23beta2; - CCTK_REAL_VEC JacPDstandardNth23beta3; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2beta1; - CCTK_REAL_VEC JacPDstandardNth2beta2; - CCTK_REAL_VEC JacPDstandardNth2beta3; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2trK; - CCTK_REAL_VEC JacPDstandardNth31alpha; - CCTK_REAL_VEC JacPDstandardNth31beta1; - CCTK_REAL_VEC JacPDstandardNth31beta2; - CCTK_REAL_VEC JacPDstandardNth31beta3; - CCTK_REAL_VEC JacPDstandardNth32alpha; - CCTK_REAL_VEC JacPDstandardNth32beta1; - CCTK_REAL_VEC JacPDstandardNth32beta2; - CCTK_REAL_VEC JacPDstandardNth32beta3; - CCTK_REAL_VEC JacPDstandardNth33alpha; - CCTK_REAL_VEC JacPDstandardNth33beta1; - CCTK_REAL_VEC JacPDstandardNth33beta2; - CCTK_REAL_VEC JacPDstandardNth33beta3; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3beta1; - CCTK_REAL_VEC JacPDstandardNth3beta2; - CCTK_REAL_VEC JacPDstandardNth3beta3; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3trK; + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + + CCTK_REAL_VEC JacPDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13beta3 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 JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23beta3 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 JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33beta3 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 JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1089,265 +1089,278 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, JacPDstandardNth32beta3 = PDstandardNth23beta3; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Xtn1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC Atm11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC Atm21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC Atm31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC Atm12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC Atm22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC Atm32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC Atm13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC Atm23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC Atm33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC Atu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu11 = kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13))); - CCTK_REAL_VEC Atu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu12 = kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23))); - CCTK_REAL_VEC Atu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu13 = kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33))); - CCTK_REAL_VEC Atu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu22 = kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23))); - CCTK_REAL_VEC Atu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu23 = kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33))); - CCTK_REAL_VEC Atu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu33 = kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33))); - CCTK_REAL_VEC rho = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rho = 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 S1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S1 = kdiv(kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))),alphaL); - CCTK_REAL_VEC S2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S2 = kdiv(kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))),alphaL); - CCTK_REAL_VEC S3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S3 = kdiv(kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))),alphaL); - CCTK_REAL_VEC trS = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trS = 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 phirhsL = kneg(kmul(IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = + kneg(kmul(IfThen(conformalMethod == 1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3))))); - CCTK_REAL_VEC gt11rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = 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 gt12rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = 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 gt13rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = 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 gt22rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = 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 gt23rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = 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 gt33rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = 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 dotXt1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt1 = kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth11beta1,ToReal(4),JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kmadd(JacPDstandardNth21beta1,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kmadd(JacPDstandardNth31beta1,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth2beta2,Xtn1,kmul(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111)))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),ToReal(-24*Pi))))))))))))))))); - CCTK_REAL_VEC dotXt2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt2 = kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth22beta2,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth32beta2,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn2,kmul(alphaL,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222)))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),ToReal(-24*Pi))))))))))))))))); - CCTK_REAL_VEC dotXt3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt3 = kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(Xtn3,kmsub(JacPDstandardNth2beta2,ToReal(2),JacPDstandardNth3beta3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth23beta3,ToReal(4),JacPDstandardNth22beta2)),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth33beta3,ToReal(4),JacPDstandardNth32beta2)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmul(Atu22,Gt322)),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),ToReal(-24*Pi))))))))))))))))); - CCTK_REAL_VEC Xt1rhsL = dotXt1; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = dotXt1; - CCTK_REAL_VEC Xt2rhsL = dotXt2; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = dotXt2; - CCTK_REAL_VEC Xt3rhsL = dotXt3; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = dotXt3; - CCTK_REAL_VEC dottrK = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dottrK = 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(4*Pi))))))),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 trKrhsL = dottrK; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = dottrK; - CCTK_REAL_VEC alpharhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = 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 ArhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),ToReal(LapseACoeff)); - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC beta1rhsL; - CCTK_REAL_VEC beta2rhsL; - CCTK_REAL_VEC beta3rhsL; + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED ; if (harmonicShift) { @@ -1375,13 +1388,13 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))); } - CCTK_REAL_VEC B1rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff)); - CCTK_REAL_VEC B2rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff)); - CCTK_REAL_VEC B3rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = 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 eac53af..0f50025 100644 --- a/ML_BSSN/src/ML_BSSN_RHS2.cc +++ b/ML_BSSN/src/ML_BSSN_RHS2.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_RHS2_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_BSSN::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_curvrhs."); @@ -48,108 +48,108 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -163,38 +163,38 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, 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 */ @@ -211,33 +211,33 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -258,7 +258,7 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, eTzzL = ToReal(0.0); } - 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 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) { @@ -294,96 +294,96 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, /* 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 PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth11gt11; - CCTK_REAL_VEC PDstandardNth22gt11; - CCTK_REAL_VEC PDstandardNth33gt11; - CCTK_REAL_VEC PDstandardNth12gt11; - CCTK_REAL_VEC PDstandardNth13gt11; - CCTK_REAL_VEC PDstandardNth23gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth11gt12; - CCTK_REAL_VEC PDstandardNth22gt12; - CCTK_REAL_VEC PDstandardNth33gt12; - CCTK_REAL_VEC PDstandardNth12gt12; - CCTK_REAL_VEC PDstandardNth13gt12; - CCTK_REAL_VEC PDstandardNth23gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth11gt13; - CCTK_REAL_VEC PDstandardNth22gt13; - CCTK_REAL_VEC PDstandardNth33gt13; - CCTK_REAL_VEC PDstandardNth12gt13; - CCTK_REAL_VEC PDstandardNth13gt13; - CCTK_REAL_VEC PDstandardNth23gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth11gt22; - CCTK_REAL_VEC PDstandardNth22gt22; - CCTK_REAL_VEC PDstandardNth33gt22; - CCTK_REAL_VEC PDstandardNth12gt22; - CCTK_REAL_VEC PDstandardNth13gt22; - CCTK_REAL_VEC PDstandardNth23gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth11gt23; - CCTK_REAL_VEC PDstandardNth22gt23; - CCTK_REAL_VEC PDstandardNth33gt23; - CCTK_REAL_VEC PDstandardNth12gt23; - CCTK_REAL_VEC PDstandardNth13gt23; - CCTK_REAL_VEC PDstandardNth23gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth11gt33; - CCTK_REAL_VEC PDstandardNth22gt33; - CCTK_REAL_VEC PDstandardNth33gt33; - CCTK_REAL_VEC PDstandardNth12gt33; - CCTK_REAL_VEC PDstandardNth13gt33; - CCTK_REAL_VEC PDstandardNth23gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth11phi; - CCTK_REAL_VEC PDstandardNth22phi; - CCTK_REAL_VEC PDstandardNth33phi; - CCTK_REAL_VEC PDstandardNth12phi; - CCTK_REAL_VEC PDstandardNth13phi; - CCTK_REAL_VEC PDstandardNth23phi; - CCTK_REAL_VEC PDstandardNth1Xt1; - CCTK_REAL_VEC PDstandardNth2Xt1; - CCTK_REAL_VEC PDstandardNth3Xt1; - CCTK_REAL_VEC PDstandardNth1Xt2; - CCTK_REAL_VEC PDstandardNth2Xt2; - CCTK_REAL_VEC PDstandardNth3Xt2; - CCTK_REAL_VEC PDstandardNth1Xt3; - CCTK_REAL_VEC PDstandardNth2Xt3; - CCTK_REAL_VEC PDstandardNth3Xt3; + 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 PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -761,120 +761,120 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); - - ptrdiff_t dir2 = kisgn(beta2L); - - ptrdiff_t dir3 = kisgn(beta3L); - - CCTK_REAL_VEC JacPDstandardNth11alpha; - CCTK_REAL_VEC JacPDstandardNth11gt11; - CCTK_REAL_VEC JacPDstandardNth11gt12; - CCTK_REAL_VEC JacPDstandardNth11gt13; - CCTK_REAL_VEC JacPDstandardNth11gt22; - CCTK_REAL_VEC JacPDstandardNth11gt23; - CCTK_REAL_VEC JacPDstandardNth11gt33; - CCTK_REAL_VEC JacPDstandardNth11phi; - CCTK_REAL_VEC JacPDstandardNth12alpha; - CCTK_REAL_VEC JacPDstandardNth12gt11; - CCTK_REAL_VEC JacPDstandardNth12gt12; - CCTK_REAL_VEC JacPDstandardNth12gt13; - CCTK_REAL_VEC JacPDstandardNth12gt22; - CCTK_REAL_VEC JacPDstandardNth12gt23; - CCTK_REAL_VEC JacPDstandardNth12gt33; - CCTK_REAL_VEC JacPDstandardNth12phi; - CCTK_REAL_VEC JacPDstandardNth13alpha; - CCTK_REAL_VEC JacPDstandardNth13gt11; - CCTK_REAL_VEC JacPDstandardNth13gt12; - CCTK_REAL_VEC JacPDstandardNth13gt13; - CCTK_REAL_VEC JacPDstandardNth13gt22; - CCTK_REAL_VEC JacPDstandardNth13gt23; - CCTK_REAL_VEC JacPDstandardNth13gt33; - CCTK_REAL_VEC JacPDstandardNth13phi; - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1beta1; - CCTK_REAL_VEC JacPDstandardNth1beta2; - CCTK_REAL_VEC JacPDstandardNth1beta3; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1Xt1; - CCTK_REAL_VEC JacPDstandardNth1Xt2; - CCTK_REAL_VEC JacPDstandardNth1Xt3; - CCTK_REAL_VEC JacPDstandardNth21gt11; - CCTK_REAL_VEC JacPDstandardNth21gt12; - CCTK_REAL_VEC JacPDstandardNth21gt13; - CCTK_REAL_VEC JacPDstandardNth21gt22; - CCTK_REAL_VEC JacPDstandardNth21gt23; - CCTK_REAL_VEC JacPDstandardNth21gt33; - CCTK_REAL_VEC JacPDstandardNth22alpha; - CCTK_REAL_VEC JacPDstandardNth22gt11; - CCTK_REAL_VEC JacPDstandardNth22gt12; - CCTK_REAL_VEC JacPDstandardNth22gt13; - CCTK_REAL_VEC JacPDstandardNth22gt22; - CCTK_REAL_VEC JacPDstandardNth22gt23; - CCTK_REAL_VEC JacPDstandardNth22gt33; - CCTK_REAL_VEC JacPDstandardNth22phi; - CCTK_REAL_VEC JacPDstandardNth23alpha; - CCTK_REAL_VEC JacPDstandardNth23gt11; - CCTK_REAL_VEC JacPDstandardNth23gt12; - CCTK_REAL_VEC JacPDstandardNth23gt13; - CCTK_REAL_VEC JacPDstandardNth23gt22; - CCTK_REAL_VEC JacPDstandardNth23gt23; - CCTK_REAL_VEC JacPDstandardNth23gt33; - CCTK_REAL_VEC JacPDstandardNth23phi; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2beta1; - CCTK_REAL_VEC JacPDstandardNth2beta2; - CCTK_REAL_VEC JacPDstandardNth2beta3; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2Xt1; - CCTK_REAL_VEC JacPDstandardNth2Xt2; - CCTK_REAL_VEC JacPDstandardNth2Xt3; - CCTK_REAL_VEC JacPDstandardNth31gt11; - CCTK_REAL_VEC JacPDstandardNth31gt12; - CCTK_REAL_VEC JacPDstandardNth31gt13; - CCTK_REAL_VEC JacPDstandardNth31gt22; - CCTK_REAL_VEC JacPDstandardNth31gt23; - CCTK_REAL_VEC JacPDstandardNth31gt33; - CCTK_REAL_VEC JacPDstandardNth32gt11; - CCTK_REAL_VEC JacPDstandardNth32gt12; - CCTK_REAL_VEC JacPDstandardNth32gt13; - CCTK_REAL_VEC JacPDstandardNth32gt22; - CCTK_REAL_VEC JacPDstandardNth32gt23; - CCTK_REAL_VEC JacPDstandardNth32gt33; - CCTK_REAL_VEC JacPDstandardNth33alpha; - CCTK_REAL_VEC JacPDstandardNth33gt11; - CCTK_REAL_VEC JacPDstandardNth33gt12; - CCTK_REAL_VEC JacPDstandardNth33gt13; - CCTK_REAL_VEC JacPDstandardNth33gt22; - CCTK_REAL_VEC JacPDstandardNth33gt23; - CCTK_REAL_VEC JacPDstandardNth33gt33; - CCTK_REAL_VEC JacPDstandardNth33phi; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3beta1; - CCTK_REAL_VEC JacPDstandardNth3beta2; - CCTK_REAL_VEC JacPDstandardNth3beta3; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3Xt1; - CCTK_REAL_VEC JacPDstandardNth3Xt2; - CCTK_REAL_VEC JacPDstandardNth3Xt3; + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + + CCTK_REAL_VEC JacPDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13phi 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 JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23phi 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 JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33phi 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 JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1421,389 +1421,401 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtlu111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu111 = kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13))); - CCTK_REAL_VEC Gtlu112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu112 = kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23))); - CCTK_REAL_VEC Gtlu113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu113 = kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33))); - CCTK_REAL_VEC Gtlu121 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu121 = kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13))); - CCTK_REAL_VEC Gtlu122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu122 = kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23))); - CCTK_REAL_VEC Gtlu123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu123 = kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33))); - CCTK_REAL_VEC Gtlu131 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu131 = kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13))); - CCTK_REAL_VEC Gtlu132 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu132 = kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23))); - CCTK_REAL_VEC Gtlu133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu133 = kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33))); - CCTK_REAL_VEC Gtlu211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu211 = kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13))); - CCTK_REAL_VEC Gtlu212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu212 = kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23))); - CCTK_REAL_VEC Gtlu213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu213 = kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33))); - CCTK_REAL_VEC Gtlu221 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu221 = kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13))); - CCTK_REAL_VEC Gtlu222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu222 = kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23))); - CCTK_REAL_VEC Gtlu223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu223 = kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33))); - CCTK_REAL_VEC Gtlu231 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu231 = kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13))); - CCTK_REAL_VEC Gtlu232 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu232 = kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23))); - CCTK_REAL_VEC Gtlu233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu233 = kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33))); - CCTK_REAL_VEC Gtlu311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu311 = kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gtlu312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu312 = kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gtlu313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu313 = kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gtlu321 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu321 = kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gtlu322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu322 = kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gtlu323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu323 = kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gtlu331 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu331 = kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gtlu332 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu332 = kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gtlu333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu333 = kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Xtn1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC g11 = kmul(gt11L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = kmul(gt11L,e4phi); - CCTK_REAL_VEC g12 = kmul(gt12L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = kmul(gt12L,e4phi); - CCTK_REAL_VEC g13 = kmul(gt13L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = kmul(gt13L,e4phi); - CCTK_REAL_VEC g22 = kmul(gt22L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = kmul(gt22L,e4phi); - CCTK_REAL_VEC g23 = kmul(gt23L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = kmul(gt23L,e4phi); - CCTK_REAL_VEC g33 = kmul(gt33L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = kmul(gt33L,e4phi); - CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kmul(em4phi,gtu11); - CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kmul(em4phi,gtu12); - CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kmul(em4phi,gtu13); - CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kmul(em4phi,gtu22); - CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kmul(em4phi,gtu23); - CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kmul(em4phi,gtu33); - CCTK_REAL_VEC Rt11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt11 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt12 = 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 Rt13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt13 = 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 Rt22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt22 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt23 = 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 Rt33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt33 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC fac2 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac2 = IfThen(conformalMethod == 1,kdiv(ToReal(0.5),kmul(phiL,phiL)),ToReal(0)); - CCTK_REAL_VEC cdphi211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi211 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi212 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi213 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi222 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi))))); - CCTK_REAL_VEC cdphi223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi223 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi))))); - CCTK_REAL_VEC cdphi233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi233 = kmsub(fac2,kmul(JacPDstandardNth3phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi))))); - CCTK_REAL_VEC Rphi11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi11 = 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 Rphi12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi12 = 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 Rphi13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi13 = 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 Rphi22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi22 = 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 Rphi23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi23 = 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 Rphi33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi33 = 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 Atm11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC Atm21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC Atm31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC Atm12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC Atm22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC Atm32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC Atm13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC Atm23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC Atm33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kadd(Rphi11,Rt11); - CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kadd(Rphi12,Rt12); - CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kadd(Rphi13,Rt13); - CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kadd(Rphi22,Rt22); - CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kadd(Rphi23,Rt23); - CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = kadd(Rphi33,Rt33); - CCTK_REAL_VEC trS = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trS = 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 Ats11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats11 = kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha)))); - CCTK_REAL_VEC Ats12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats12 = 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 Ats13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats13 = 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 Ats22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats22 = kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha)))); - CCTK_REAL_VEC Ats23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats23 = 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 Ats33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats33 = kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha)))); - CCTK_REAL_VEC trAts = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trAts = kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2))))); - CCTK_REAL_VEC At11rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = 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(At12L,Atm21,kmul(At13L,Atm31)),ToReal(-2),kmadd(At11L,kmadd(Atm11,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g11,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxxL),ToReal(Pi)))))))))); - CCTK_REAL_VEC At12rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = 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,kmul(At13L,Atm32)),ToReal(-2),kmadd(At12L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g12,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxyL),ToReal(Pi))))))))))))); - CCTK_REAL_VEC At13rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = 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,kmul(At12L,Atm23)),ToReal(-2),kmadd(At13L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g13,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxzL),ToReal(Pi))))))))))))); - CCTK_REAL_VEC At22rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = 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,kmul(At23L,Atm32)),ToReal(-2),kmadd(At22L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g22,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyyL),ToReal(Pi)))))))))); - CCTK_REAL_VEC At23rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = 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,kmul(At22L,Atm23)),ToReal(-2),kmadd(At23L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g23,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyzL),ToReal(Pi))))))))))))); - CCTK_REAL_VEC At33rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = 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,kmul(At23L,Atm23)),ToReal(-2),kmadd(At33L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g33,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTzzL),ToReal(Pi)))))))))); /* 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 9362b22..0bd6630 100644 --- a/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc +++ b/ML_BSSN/src/ML_BSSN_RHSStaticBoundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_RHSStaticBoundary_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_BSSN::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_curvrhs."); @@ -72,108 +72,108 @@ static void ML_BSSN_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -187,38 +187,38 @@ static void ML_BSSN_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, 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 */ @@ -235,7 +235,7 @@ static void ML_BSSN_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, 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 */ @@ -262,55 +262,55 @@ static void ML_BSSN_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, in } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phirhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); - CCTK_REAL_VEC gt11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); - CCTK_REAL_VEC gt12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); - CCTK_REAL_VEC gt13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); - CCTK_REAL_VEC gt22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); - CCTK_REAL_VEC gt23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); - CCTK_REAL_VEC gt33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); - CCTK_REAL_VEC trKrhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); - CCTK_REAL_VEC At11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); - CCTK_REAL_VEC At12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); - CCTK_REAL_VEC At13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); - CCTK_REAL_VEC At22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); - CCTK_REAL_VEC At23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); - CCTK_REAL_VEC At33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); - CCTK_REAL_VEC Xt1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); - CCTK_REAL_VEC Xt2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); - CCTK_REAL_VEC Xt3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); - CCTK_REAL_VEC alpharhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); - CCTK_REAL_VEC ArhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = 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); - CCTK_REAL_VEC B1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); - CCTK_REAL_VEC B2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); - CCTK_REAL_VEC B3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_boundary.cc b/ML_BSSN/src/ML_BSSN_boundary.cc index aba6000..9e376aa 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.cc +++ b/ML_BSSN/src/ML_BSSN_boundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_boundary_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_BSSN::ML_curv","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_curv."); @@ -72,108 +72,108 @@ static void ML_BSSN_boundary_Body(cGH const * restrict const cctkGH, int const d /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -187,38 +187,38 @@ static void ML_BSSN_boundary_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -235,7 +235,7 @@ static void ML_BSSN_boundary_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -262,55 +262,56 @@ static void ML_BSSN_boundary_Body(cGH const * restrict const cctkGH, int const d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC gt11L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); - CCTK_REAL_VEC gt12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); - CCTK_REAL_VEC gt13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); - CCTK_REAL_VEC gt22L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); - CCTK_REAL_VEC gt23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); - CCTK_REAL_VEC gt33L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); - CCTK_REAL_VEC trKL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); - CCTK_REAL_VEC At11L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); - CCTK_REAL_VEC At12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); - CCTK_REAL_VEC At13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); - CCTK_REAL_VEC At22L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); - CCTK_REAL_VEC At23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); - CCTK_REAL_VEC At33L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); - CCTK_REAL_VEC Xt1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); - CCTK_REAL_VEC Xt2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); - CCTK_REAL_VEC Xt3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); - CCTK_REAL_VEC alphaL = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); - CCTK_REAL_VEC AL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); - CCTK_REAL_VEC beta1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); - CCTK_REAL_VEC beta2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); - CCTK_REAL_VEC beta3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); - CCTK_REAL_VEC B1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); - CCTK_REAL_VEC B2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); - CCTK_REAL_VEC B3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_constraints1.cc b/ML_BSSN/src/ML_BSSN_constraints1.cc index 6b53b52..0dcd4a3 100644 --- a/ML_BSSN/src/ML_BSSN_constraints1.cc +++ b/ML_BSSN/src/ML_BSSN_constraints1.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_constraints1_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_BSSN::ML_Ham","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_Ham."); @@ -48,108 +48,108 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -163,38 +163,38 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con 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 */ @@ -211,33 +211,33 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -266,7 +266,7 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con eTzzL = ToReal(0.0); } - 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 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) { @@ -302,78 +302,78 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth11gt11; - CCTK_REAL_VEC PDstandardNth22gt11; - CCTK_REAL_VEC PDstandardNth33gt11; - CCTK_REAL_VEC PDstandardNth12gt11; - CCTK_REAL_VEC PDstandardNth13gt11; - CCTK_REAL_VEC PDstandardNth23gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth11gt12; - CCTK_REAL_VEC PDstandardNth22gt12; - CCTK_REAL_VEC PDstandardNth33gt12; - CCTK_REAL_VEC PDstandardNth12gt12; - CCTK_REAL_VEC PDstandardNth13gt12; - CCTK_REAL_VEC PDstandardNth23gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth11gt13; - CCTK_REAL_VEC PDstandardNth22gt13; - CCTK_REAL_VEC PDstandardNth33gt13; - CCTK_REAL_VEC PDstandardNth12gt13; - CCTK_REAL_VEC PDstandardNth13gt13; - CCTK_REAL_VEC PDstandardNth23gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth11gt22; - CCTK_REAL_VEC PDstandardNth22gt22; - CCTK_REAL_VEC PDstandardNth33gt22; - CCTK_REAL_VEC PDstandardNth12gt22; - CCTK_REAL_VEC PDstandardNth13gt22; - CCTK_REAL_VEC PDstandardNth23gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth11gt23; - CCTK_REAL_VEC PDstandardNth22gt23; - CCTK_REAL_VEC PDstandardNth33gt23; - CCTK_REAL_VEC PDstandardNth12gt23; - CCTK_REAL_VEC PDstandardNth13gt23; - CCTK_REAL_VEC PDstandardNth23gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth11gt33; - CCTK_REAL_VEC PDstandardNth22gt33; - CCTK_REAL_VEC PDstandardNth33gt33; - CCTK_REAL_VEC PDstandardNth12gt33; - CCTK_REAL_VEC PDstandardNth13gt33; - CCTK_REAL_VEC PDstandardNth23gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth11phi; - CCTK_REAL_VEC PDstandardNth22phi; - CCTK_REAL_VEC PDstandardNth33phi; - CCTK_REAL_VEC PDstandardNth12phi; - CCTK_REAL_VEC PDstandardNth13phi; - CCTK_REAL_VEC PDstandardNth23phi; - CCTK_REAL_VEC PDstandardNth1Xt1; - CCTK_REAL_VEC PDstandardNth2Xt1; - CCTK_REAL_VEC PDstandardNth3Xt1; - CCTK_REAL_VEC PDstandardNth1Xt2; - CCTK_REAL_VEC PDstandardNth2Xt2; - CCTK_REAL_VEC PDstandardNth3Xt2; - CCTK_REAL_VEC PDstandardNth1Xt3; - CCTK_REAL_VEC PDstandardNth2Xt3; - CCTK_REAL_VEC PDstandardNth3Xt3; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -679,96 +679,96 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDstandardNth11gt11; - CCTK_REAL_VEC JacPDstandardNth11gt12; - CCTK_REAL_VEC JacPDstandardNth11gt13; - CCTK_REAL_VEC JacPDstandardNth11gt22; - CCTK_REAL_VEC JacPDstandardNth11gt23; - CCTK_REAL_VEC JacPDstandardNth11gt33; - CCTK_REAL_VEC JacPDstandardNth11phi; - CCTK_REAL_VEC JacPDstandardNth12gt11; - CCTK_REAL_VEC JacPDstandardNth12gt12; - CCTK_REAL_VEC JacPDstandardNth12gt13; - CCTK_REAL_VEC JacPDstandardNth12gt22; - CCTK_REAL_VEC JacPDstandardNth12gt23; - CCTK_REAL_VEC JacPDstandardNth12gt33; - CCTK_REAL_VEC JacPDstandardNth12phi; - CCTK_REAL_VEC JacPDstandardNth13gt11; - CCTK_REAL_VEC JacPDstandardNth13gt12; - CCTK_REAL_VEC JacPDstandardNth13gt13; - CCTK_REAL_VEC JacPDstandardNth13gt22; - CCTK_REAL_VEC JacPDstandardNth13gt23; - CCTK_REAL_VEC JacPDstandardNth13gt33; - CCTK_REAL_VEC JacPDstandardNth13phi; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1Xt1; - CCTK_REAL_VEC JacPDstandardNth1Xt2; - CCTK_REAL_VEC JacPDstandardNth1Xt3; - CCTK_REAL_VEC JacPDstandardNth21gt11; - CCTK_REAL_VEC JacPDstandardNth21gt12; - CCTK_REAL_VEC JacPDstandardNth21gt13; - CCTK_REAL_VEC JacPDstandardNth21gt22; - CCTK_REAL_VEC JacPDstandardNth21gt23; - CCTK_REAL_VEC JacPDstandardNth21gt33; - CCTK_REAL_VEC JacPDstandardNth22gt11; - CCTK_REAL_VEC JacPDstandardNth22gt12; - CCTK_REAL_VEC JacPDstandardNth22gt13; - CCTK_REAL_VEC JacPDstandardNth22gt22; - CCTK_REAL_VEC JacPDstandardNth22gt23; - CCTK_REAL_VEC JacPDstandardNth22gt33; - CCTK_REAL_VEC JacPDstandardNth22phi; - CCTK_REAL_VEC JacPDstandardNth23gt11; - CCTK_REAL_VEC JacPDstandardNth23gt12; - CCTK_REAL_VEC JacPDstandardNth23gt13; - CCTK_REAL_VEC JacPDstandardNth23gt22; - CCTK_REAL_VEC JacPDstandardNth23gt23; - CCTK_REAL_VEC JacPDstandardNth23gt33; - CCTK_REAL_VEC JacPDstandardNth23phi; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2Xt1; - CCTK_REAL_VEC JacPDstandardNth2Xt2; - CCTK_REAL_VEC JacPDstandardNth2Xt3; - CCTK_REAL_VEC JacPDstandardNth31gt11; - CCTK_REAL_VEC JacPDstandardNth31gt12; - CCTK_REAL_VEC JacPDstandardNth31gt13; - CCTK_REAL_VEC JacPDstandardNth31gt22; - CCTK_REAL_VEC JacPDstandardNth31gt23; - CCTK_REAL_VEC JacPDstandardNth31gt33; - CCTK_REAL_VEC JacPDstandardNth32gt11; - CCTK_REAL_VEC JacPDstandardNth32gt12; - CCTK_REAL_VEC JacPDstandardNth32gt13; - CCTK_REAL_VEC JacPDstandardNth32gt22; - CCTK_REAL_VEC JacPDstandardNth32gt23; - CCTK_REAL_VEC JacPDstandardNth32gt33; - CCTK_REAL_VEC JacPDstandardNth33gt11; - CCTK_REAL_VEC JacPDstandardNth33gt12; - CCTK_REAL_VEC JacPDstandardNth33gt13; - CCTK_REAL_VEC JacPDstandardNth33gt22; - CCTK_REAL_VEC JacPDstandardNth33gt23; - CCTK_REAL_VEC JacPDstandardNth33gt33; - CCTK_REAL_VEC JacPDstandardNth33phi; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3Xt1; - CCTK_REAL_VEC JacPDstandardNth3Xt2; - CCTK_REAL_VEC JacPDstandardNth3Xt3; + CCTK_REAL_VEC JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1225,344 +1225,356 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtlu111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu111 = kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13))); - CCTK_REAL_VEC Gtlu112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu112 = kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23))); - CCTK_REAL_VEC Gtlu113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu113 = kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33))); - CCTK_REAL_VEC Gtlu121 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu121 = kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13))); - CCTK_REAL_VEC Gtlu122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu122 = kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23))); - CCTK_REAL_VEC Gtlu123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu123 = kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33))); - CCTK_REAL_VEC Gtlu131 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu131 = kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13))); - CCTK_REAL_VEC Gtlu132 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu132 = kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23))); - CCTK_REAL_VEC Gtlu133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu133 = kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33))); - CCTK_REAL_VEC Gtlu211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu211 = kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13))); - CCTK_REAL_VEC Gtlu212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu212 = kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23))); - CCTK_REAL_VEC Gtlu213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu213 = kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33))); - CCTK_REAL_VEC Gtlu221 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu221 = kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13))); - CCTK_REAL_VEC Gtlu222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu222 = kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23))); - CCTK_REAL_VEC Gtlu223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu223 = kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33))); - CCTK_REAL_VEC Gtlu231 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu231 = kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13))); - CCTK_REAL_VEC Gtlu232 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu232 = kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23))); - CCTK_REAL_VEC Gtlu233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu233 = kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33))); - CCTK_REAL_VEC Gtlu311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu311 = kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gtlu312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu312 = kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gtlu313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu313 = kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gtlu321 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu321 = kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gtlu322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu322 = kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gtlu323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu323 = kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gtlu331 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu331 = kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gtlu332 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu332 = kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gtlu333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu333 = kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Xtn1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kmul(em4phi,gtu11); - CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kmul(em4phi,gtu12); - CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kmul(em4phi,gtu13); - CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kmul(em4phi,gtu22); - CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kmul(em4phi,gtu23); - CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kmul(em4phi,gtu33); - CCTK_REAL_VEC Rt11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt11 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt12 = 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 Rt13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt13 = 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 Rt22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt22 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt23 = 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 Rt33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt33 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC fac2 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac2 = IfThen(conformalMethod == 1,kdiv(ToReal(0.5),kmul(phiL,phiL)),ToReal(0)); - CCTK_REAL_VEC cdphi211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi211 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi212 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi213 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi222 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi))))); - CCTK_REAL_VEC cdphi223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi223 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi))))); - CCTK_REAL_VEC cdphi233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi233 = kmsub(fac2,kmul(JacPDstandardNth3phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi))))); - CCTK_REAL_VEC Rphi11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi11 = 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 Rphi12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi12 = 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 Rphi13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi13 = 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 Rphi22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi22 = 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 Rphi23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi23 = 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 Rphi33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi33 = 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 R11 = kadd(Rphi11,Rt11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kadd(Rphi11,Rt11); - CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kadd(Rphi12,Rt12); - CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kadd(Rphi13,Rt13); - CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kadd(Rphi22,Rt22); - CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kadd(Rphi23,Rt23); - CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = kadd(Rphi33,Rt33); - CCTK_REAL_VEC trR = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trR = kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2))))); - CCTK_REAL_VEC Atm11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC Atm21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC Atm31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC Atm12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC Atm22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC Atm32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC Atm13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC Atm23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC Atm33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC rho = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rho = 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 HL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED HL = 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(-16*Pi)))))))); /* 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 c787fcd..56ef4d4 100644 --- a/ML_BSSN/src/ML_BSSN_constraints2.cc +++ b/ML_BSSN/src/ML_BSSN_constraints2.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_constraints2_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_BSSN::ML_cons_detg","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_cons_detg."); @@ -57,108 +57,108 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -172,38 +172,38 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con 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 */ @@ -220,33 +220,33 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -273,7 +273,7 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con eTzzL = ToReal(0.0); } - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -291,48 +291,48 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1At11; - CCTK_REAL_VEC PDstandardNth2At11; - CCTK_REAL_VEC PDstandardNth3At11; - CCTK_REAL_VEC PDstandardNth1At12; - CCTK_REAL_VEC PDstandardNth2At12; - CCTK_REAL_VEC PDstandardNth3At12; - CCTK_REAL_VEC PDstandardNth1At13; - CCTK_REAL_VEC PDstandardNth2At13; - CCTK_REAL_VEC PDstandardNth3At13; - CCTK_REAL_VEC PDstandardNth1At22; - CCTK_REAL_VEC PDstandardNth2At22; - CCTK_REAL_VEC PDstandardNth3At22; - CCTK_REAL_VEC PDstandardNth1At23; - CCTK_REAL_VEC PDstandardNth2At23; - CCTK_REAL_VEC PDstandardNth3At23; - CCTK_REAL_VEC PDstandardNth1At33; - CCTK_REAL_VEC PDstandardNth2At33; - CCTK_REAL_VEC PDstandardNth3At33; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth1trK; - CCTK_REAL_VEC PDstandardNth2trK; - CCTK_REAL_VEC PDstandardNth3trK; + CCTK_REAL_VEC PDstandardNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -518,48 +518,48 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDstandardNth1At11; - CCTK_REAL_VEC JacPDstandardNth1At12; - CCTK_REAL_VEC JacPDstandardNth1At13; - CCTK_REAL_VEC JacPDstandardNth1At22; - CCTK_REAL_VEC JacPDstandardNth1At23; - CCTK_REAL_VEC JacPDstandardNth1At33; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1trK; - CCTK_REAL_VEC JacPDstandardNth2At11; - CCTK_REAL_VEC JacPDstandardNth2At12; - CCTK_REAL_VEC JacPDstandardNth2At13; - CCTK_REAL_VEC JacPDstandardNth2At22; - CCTK_REAL_VEC JacPDstandardNth2At23; - CCTK_REAL_VEC JacPDstandardNth2At33; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2trK; - CCTK_REAL_VEC JacPDstandardNth3At11; - CCTK_REAL_VEC JacPDstandardNth3At12; - CCTK_REAL_VEC JacPDstandardNth3At13; - CCTK_REAL_VEC JacPDstandardNth3At22; - CCTK_REAL_VEC JacPDstandardNth3At23; - CCTK_REAL_VEC JacPDstandardNth3At33; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3trK; + CCTK_REAL_VEC JacPDstandardNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -776,164 +776,176 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con JacPDstandardNth3trK = PDstandardNth3trK; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC S1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S1 = kdiv(kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))),alphaL); - CCTK_REAL_VEC S2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S2 = kdiv(kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))),alphaL); - CCTK_REAL_VEC S3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S3 = kdiv(kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))),alphaL); - CCTK_REAL_VEC M1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M1L = 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(-8*Pi)))))))))))))))))))); - CCTK_REAL_VEC M2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = 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(-8*Pi))))))))))))))))))))))))))))); - CCTK_REAL_VEC M3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = 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(-8*Pi))))))))))))))))))))))))))))); - CCTK_REAL_VEC cSL = klog(detgt); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cSL = klog(detgt); - CCTK_REAL_VEC cXt1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt1L = 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 cXt2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt2L = 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 cXt3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt3L = 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 cAL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cAL = 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 453f34e..4c1a288 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBase.cc @@ -36,108 +36,108 @@ static void ML_BSSN_convertFromADMBase_Body(cGH const * restrict const cctkGH, i /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_convertFromADMBase_Body(cGH const * restrict const cctkGH, i 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 */ @@ -199,28 +199,28 @@ static void ML_BSSN_convertFromADMBase_Body(cGH const * restrict const cctkGH, i 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 alpL = vec_load(alp[index]); - CCTK_REAL_VEC betaxL = vec_load(betax[index]); - CCTK_REAL_VEC betayL = vec_load(betay[index]); - CCTK_REAL_VEC betazL = vec_load(betaz[index]); - CCTK_REAL_VEC gxxL = vec_load(gxx[index]); - CCTK_REAL_VEC gxyL = vec_load(gxy[index]); - CCTK_REAL_VEC gxzL = vec_load(gxz[index]); - CCTK_REAL_VEC gyyL = vec_load(gyy[index]); - CCTK_REAL_VEC gyzL = vec_load(gyz[index]); - CCTK_REAL_VEC gzzL = vec_load(gzz[index]); - CCTK_REAL_VEC kxxL = vec_load(kxx[index]); - CCTK_REAL_VEC kxyL = vec_load(kxy[index]); - CCTK_REAL_VEC kxzL = vec_load(kxz[index]); - CCTK_REAL_VEC kyyL = vec_load(kyy[index]); - CCTK_REAL_VEC kyzL = vec_load(kyz[index]); - CCTK_REAL_VEC kzzL = vec_load(kzz[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); + CCTK_REAL_VEC alpL CCTK_ATTRIBUTE_UNUSED = vec_load(alp[index]); + CCTK_REAL_VEC betaxL CCTK_ATTRIBUTE_UNUSED = vec_load(betax[index]); + CCTK_REAL_VEC betayL CCTK_ATTRIBUTE_UNUSED = vec_load(betay[index]); + CCTK_REAL_VEC betazL CCTK_ATTRIBUTE_UNUSED = vec_load(betaz[index]); + CCTK_REAL_VEC gxxL CCTK_ATTRIBUTE_UNUSED = vec_load(gxx[index]); + CCTK_REAL_VEC gxyL CCTK_ATTRIBUTE_UNUSED = vec_load(gxy[index]); + CCTK_REAL_VEC gxzL CCTK_ATTRIBUTE_UNUSED = vec_load(gxz[index]); + CCTK_REAL_VEC gyyL CCTK_ATTRIBUTE_UNUSED = vec_load(gyy[index]); + CCTK_REAL_VEC gyzL CCTK_ATTRIBUTE_UNUSED = vec_load(gyz[index]); + CCTK_REAL_VEC gzzL CCTK_ATTRIBUTE_UNUSED = vec_load(gzz[index]); + CCTK_REAL_VEC kxxL CCTK_ATTRIBUTE_UNUSED = vec_load(kxx[index]); + CCTK_REAL_VEC kxyL CCTK_ATTRIBUTE_UNUSED = vec_load(kxy[index]); + CCTK_REAL_VEC kxzL CCTK_ATTRIBUTE_UNUSED = vec_load(kxz[index]); + CCTK_REAL_VEC kyyL CCTK_ATTRIBUTE_UNUSED = vec_load(kyy[index]); + CCTK_REAL_VEC kyzL CCTK_ATTRIBUTE_UNUSED = vec_load(kyz[index]); + CCTK_REAL_VEC kzzL CCTK_ATTRIBUTE_UNUSED = vec_load(kzz[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); @@ -244,34 +244,40 @@ static void ML_BSSN_convertFromADMBase_Body(cGH const * restrict const cctkGH, i } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC g11 = gxxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = gxxL; - CCTK_REAL_VEC g12 = gxyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = gxyL; - CCTK_REAL_VEC g13 = gxzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = gxzL; - CCTK_REAL_VEC g22 = gyyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = gyyL; - CCTK_REAL_VEC g23 = gyzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = gyzL; - CCTK_REAL_VEC g33 = gzzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = gzzL; - CCTK_REAL_VEC detg = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detg = 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 gu11 = kdiv(kmsub(g22,g33,kmul(g23,g23)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = + kdiv(kmsub(g22,g33,kmul(g23,g23)),detg); - CCTK_REAL_VEC gu12 = kdiv(kmsub(g13,g23,kmul(g12,g33)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = + kdiv(kmsub(g13,g23,kmul(g12,g33)),detg); - CCTK_REAL_VEC gu13 = kdiv(kmsub(g12,g23,kmul(g13,g22)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = + kdiv(kmsub(g12,g23,kmul(g13,g22)),detg); - CCTK_REAL_VEC gu22 = kdiv(kmsub(g11,g33,kmul(g13,g13)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = + kdiv(kmsub(g11,g33,kmul(g13,g13)),detg); - CCTK_REAL_VEC gu23 = kdiv(kmsub(g12,g13,kmul(g11,g23)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = + kdiv(kmsub(g12,g13,kmul(g11,g23)),detg); - CCTK_REAL_VEC gu33 = kdiv(kmsub(g11,g22,kmul(g12,g12)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = + kdiv(kmsub(g11,g22,kmul(g12,g12)),detg); - CCTK_REAL_VEC em4phi; + CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED ; if (conformalMethod == 1) { @@ -286,46 +292,46 @@ static void ML_BSSN_convertFromADMBase_Body(cGH const * restrict const cctkGH, i em4phi = kexp(kmul(phiL,ToReal(-4))); } - CCTK_REAL_VEC gt11L = kmul(em4phi,g11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = kmul(em4phi,g11); - CCTK_REAL_VEC gt12L = kmul(em4phi,g12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = kmul(em4phi,g12); - CCTK_REAL_VEC gt13L = kmul(em4phi,g13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = kmul(em4phi,g13); - CCTK_REAL_VEC gt22L = kmul(em4phi,g22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = kmul(em4phi,g22); - CCTK_REAL_VEC gt23L = kmul(em4phi,g23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = kmul(em4phi,g23); - CCTK_REAL_VEC gt33L = kmul(em4phi,g33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = 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 At11L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL)); - CCTK_REAL_VEC At12L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL)); - CCTK_REAL_VEC At13L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL)); - CCTK_REAL_VEC At22L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL)); - CCTK_REAL_VEC At23L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL)); - CCTK_REAL_VEC At33L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL)); - CCTK_REAL_VEC alphaL = alpL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = alpL; - CCTK_REAL_VEC beta1L = betaxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = betaxL; - CCTK_REAL_VEC beta2L = betayL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = betayL; - CCTK_REAL_VEC beta3L = betazL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = betazL; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc index 8c39ef8..6ac084d 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_convertFromADMBaseGamma_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_BSSN::ML_dtlapse","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_BSSN::ML_dtlapse."); @@ -54,108 +54,108 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -169,38 +169,38 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk 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 */ @@ -217,28 +217,28 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk 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 dtalpL = vec_load(dtalp[index]); - CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]); - CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]); - CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC rL = vec_load(r[index]); - - - CCTK_REAL_VEC 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 dtalpL CCTK_ATTRIBUTE_UNUSED = vec_load(dtalp[index]); + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED = vec_load(dtbetax[index]); + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED = vec_load(dtbetay[index]); + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED = vec_load(dtbetaz[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + + + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -256,48 +256,48 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDupwindNthAnti1alpha; - CCTK_REAL_VEC PDupwindNthSymm1alpha; - CCTK_REAL_VEC PDupwindNthAnti2alpha; - CCTK_REAL_VEC PDupwindNthSymm2alpha; - CCTK_REAL_VEC PDupwindNthAnti3alpha; - CCTK_REAL_VEC PDupwindNthSymm3alpha; - CCTK_REAL_VEC PDupwindNthAnti1beta1; - CCTK_REAL_VEC PDupwindNthSymm1beta1; - CCTK_REAL_VEC PDupwindNthAnti2beta1; - CCTK_REAL_VEC PDupwindNthSymm2beta1; - CCTK_REAL_VEC PDupwindNthAnti3beta1; - CCTK_REAL_VEC PDupwindNthSymm3beta1; - CCTK_REAL_VEC PDupwindNthAnti1beta2; - CCTK_REAL_VEC PDupwindNthSymm1beta2; - CCTK_REAL_VEC PDupwindNthAnti2beta2; - CCTK_REAL_VEC PDupwindNthSymm2beta2; - CCTK_REAL_VEC PDupwindNthAnti3beta2; - CCTK_REAL_VEC PDupwindNthSymm3beta2; - CCTK_REAL_VEC PDupwindNthAnti1beta3; - CCTK_REAL_VEC PDupwindNthSymm1beta3; - CCTK_REAL_VEC PDupwindNthAnti2beta3; - CCTK_REAL_VEC PDupwindNthSymm2beta3; - CCTK_REAL_VEC PDupwindNthAnti3beta3; - CCTK_REAL_VEC PDupwindNthSymm3beta3; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; + CCTK_REAL_VEC PDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -483,54 +483,54 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); - - ptrdiff_t dir2 = kisgn(beta2L); - - ptrdiff_t dir3 = kisgn(beta3L); - - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDupwindNthAnti1alpha; - CCTK_REAL_VEC JacPDupwindNthAnti1beta1; - CCTK_REAL_VEC JacPDupwindNthAnti1beta2; - CCTK_REAL_VEC JacPDupwindNthAnti1beta3; - CCTK_REAL_VEC JacPDupwindNthAnti2alpha; - CCTK_REAL_VEC JacPDupwindNthAnti2beta1; - CCTK_REAL_VEC JacPDupwindNthAnti2beta2; - CCTK_REAL_VEC JacPDupwindNthAnti2beta3; - CCTK_REAL_VEC JacPDupwindNthAnti3alpha; - CCTK_REAL_VEC JacPDupwindNthAnti3beta1; - CCTK_REAL_VEC JacPDupwindNthAnti3beta2; - CCTK_REAL_VEC JacPDupwindNthAnti3beta3; - CCTK_REAL_VEC JacPDupwindNthSymm1alpha; - CCTK_REAL_VEC JacPDupwindNthSymm1beta1; - CCTK_REAL_VEC JacPDupwindNthSymm1beta2; - CCTK_REAL_VEC JacPDupwindNthSymm1beta3; - CCTK_REAL_VEC JacPDupwindNthSymm2alpha; - CCTK_REAL_VEC JacPDupwindNthSymm2beta1; - CCTK_REAL_VEC JacPDupwindNthSymm2beta2; - CCTK_REAL_VEC JacPDupwindNthSymm2beta3; - CCTK_REAL_VEC JacPDupwindNthSymm3alpha; - CCTK_REAL_VEC JacPDupwindNthSymm3beta1; - CCTK_REAL_VEC JacPDupwindNthSymm3beta2; - CCTK_REAL_VEC JacPDupwindNthSymm3beta3; + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -747,98 +747,98 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = 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 Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = 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 Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = 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 Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC Xt1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xt2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xt3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC AL = IfThen(LapseACoeff != + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = 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 theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC B1L; - CCTK_REAL_VEC B2L; - CCTK_REAL_VEC B3L; + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED ; if (ShiftBCoeff*ShiftGammaCoeff != 0) { diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc index 5710afb..b064719 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc @@ -36,108 +36,108 @@ static void ML_BSSN_convertToADMBase_Body(cGH const * restrict const cctkGH, int /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_convertToADMBase_Body(cGH const * restrict const cctkGH, int 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 */ @@ -199,34 +199,34 @@ static void ML_BSSN_convertToADMBase_Body(cGH const * restrict const cctkGH, int 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC gxxL = vec_load(gxx[index]); - CCTK_REAL_VEC gxyL = vec_load(gxy[index]); - CCTK_REAL_VEC gxzL = vec_load(gxz[index]); - CCTK_REAL_VEC gyyL = vec_load(gyy[index]); - CCTK_REAL_VEC gyzL = vec_load(gyz[index]); - CCTK_REAL_VEC gzzL = vec_load(gzz[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC gxxL CCTK_ATTRIBUTE_UNUSED = vec_load(gxx[index]); + CCTK_REAL_VEC gxyL CCTK_ATTRIBUTE_UNUSED = vec_load(gxy[index]); + CCTK_REAL_VEC gxzL CCTK_ATTRIBUTE_UNUSED = vec_load(gxz[index]); + CCTK_REAL_VEC gyyL CCTK_ATTRIBUTE_UNUSED = vec_load(gyy[index]); + CCTK_REAL_VEC gyzL CCTK_ATTRIBUTE_UNUSED = vec_load(gyz[index]); + CCTK_REAL_VEC gzzL CCTK_ATTRIBUTE_UNUSED = vec_load(gzz[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); @@ -250,7 +250,7 @@ static void ML_BSSN_convertToADMBase_Body(cGH const * restrict const cctkGH, int } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); gxxL = kmul(gt11L,e4phi); @@ -265,31 +265,31 @@ static void ML_BSSN_convertToADMBase_Body(cGH const * restrict const cctkGH, int gzzL = kmul(gt33L,e4phi); - CCTK_REAL_VEC kxxL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxxL = kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kxyL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxyL = kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kxzL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxzL = kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kyyL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyyL = kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kyzL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyzL = kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kzzL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kzzL = kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC alpL = alphaL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpL = alphaL; - CCTK_REAL_VEC betaxL = beta1L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betaxL = beta1L; - CCTK_REAL_VEC betayL = beta2L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betayL = beta2L; - CCTK_REAL_VEC betazL = beta3L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betazL = beta3L; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc index 9d343a8..ad5aaf0 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShift.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_convertToADMBaseDtLapseShift_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 */, "ADMBase::dtlapse","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse."); @@ -51,108 +51,108 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(cGH const * restrict const /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -166,38 +166,38 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(cGH const * restrict const 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 */ @@ -214,33 +214,33 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(cGH const * restrict const 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC rL = vec_load(r[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -258,54 +258,54 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(cGH const * restrict const /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1alpha; - CCTK_REAL_VEC PDstandardNth2alpha; - CCTK_REAL_VEC PDstandardNth3alpha; - CCTK_REAL_VEC PDupwindNthAnti1alpha; - CCTK_REAL_VEC PDupwindNthSymm1alpha; - CCTK_REAL_VEC PDupwindNthAnti2alpha; - CCTK_REAL_VEC PDupwindNthSymm2alpha; - CCTK_REAL_VEC PDupwindNthAnti3alpha; - CCTK_REAL_VEC PDupwindNthSymm3alpha; - CCTK_REAL_VEC PDupwindNthAnti1beta1; - CCTK_REAL_VEC PDupwindNthSymm1beta1; - CCTK_REAL_VEC PDupwindNthAnti2beta1; - CCTK_REAL_VEC PDupwindNthSymm2beta1; - CCTK_REAL_VEC PDupwindNthAnti3beta1; - CCTK_REAL_VEC PDupwindNthSymm3beta1; - CCTK_REAL_VEC PDupwindNthAnti1beta2; - CCTK_REAL_VEC PDupwindNthSymm1beta2; - CCTK_REAL_VEC PDupwindNthAnti2beta2; - CCTK_REAL_VEC PDupwindNthSymm2beta2; - CCTK_REAL_VEC PDupwindNthAnti3beta2; - CCTK_REAL_VEC PDupwindNthSymm3beta2; - CCTK_REAL_VEC PDupwindNthAnti1beta3; - CCTK_REAL_VEC PDupwindNthSymm1beta3; - CCTK_REAL_VEC PDupwindNthAnti2beta3; - CCTK_REAL_VEC PDupwindNthSymm2beta3; - CCTK_REAL_VEC PDupwindNthAnti3beta3; - CCTK_REAL_VEC PDupwindNthSymm3beta3; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; + CCTK_REAL_VEC PDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -515,60 +515,60 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(cGH const * restrict const } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); - ptrdiff_t dir2 = kisgn(beta2L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); - ptrdiff_t dir3 = kisgn(beta3L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDupwindNthAnti1alpha; - CCTK_REAL_VEC JacPDupwindNthAnti1beta1; - CCTK_REAL_VEC JacPDupwindNthAnti1beta2; - CCTK_REAL_VEC JacPDupwindNthAnti1beta3; - CCTK_REAL_VEC JacPDupwindNthAnti2alpha; - CCTK_REAL_VEC JacPDupwindNthAnti2beta1; - CCTK_REAL_VEC JacPDupwindNthAnti2beta2; - CCTK_REAL_VEC JacPDupwindNthAnti2beta3; - CCTK_REAL_VEC JacPDupwindNthAnti3alpha; - CCTK_REAL_VEC JacPDupwindNthAnti3beta1; - CCTK_REAL_VEC JacPDupwindNthAnti3beta2; - CCTK_REAL_VEC JacPDupwindNthAnti3beta3; - CCTK_REAL_VEC JacPDupwindNthSymm1alpha; - CCTK_REAL_VEC JacPDupwindNthSymm1beta1; - CCTK_REAL_VEC JacPDupwindNthSymm1beta2; - CCTK_REAL_VEC JacPDupwindNthSymm1beta3; - CCTK_REAL_VEC JacPDupwindNthSymm2alpha; - CCTK_REAL_VEC JacPDupwindNthSymm2beta1; - CCTK_REAL_VEC JacPDupwindNthSymm2beta2; - CCTK_REAL_VEC JacPDupwindNthSymm2beta3; - CCTK_REAL_VEC JacPDupwindNthSymm3alpha; - CCTK_REAL_VEC JacPDupwindNthSymm3beta1; - CCTK_REAL_VEC JacPDupwindNthSymm3beta2; - CCTK_REAL_VEC JacPDupwindNthSymm3beta3; + CCTK_REAL_VEC JacPDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -815,44 +815,44 @@ static void ML_BSSN_convertToADMBaseDtLapseShift_Body(cGH const * restrict const JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC dtalpL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = 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 dtbetaxL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetaxL = 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(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,kmul(gtu11,gtu11),kmul(JacPDstandardNth1gt22,kmul(kmul(gtu12,gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC dtbetayL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetayL = 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(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,kmul(gtu22,gtu22),kmul(JacPDstandardNth2gt11,kmul(kmul(gtu12,gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC dtbetazL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetazL = 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(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,kmul(gtu13,gtu13),kmul(JacPDstandardNth3gt22,kmul(gtu23,gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc index b200b7c..3708574 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseDtLapseShiftBoundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGU 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 */, "ADMBase::dtlapse","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse."); @@ -51,108 +51,108 @@ static void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -166,38 +166,38 @@ static void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri 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 */ @@ -214,23 +214,23 @@ static void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 rL = vec_load(r[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); @@ -254,18 +254,18 @@ static void ML_BSSN_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC dtalpL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL)))); - CCTK_REAL_VEC dtbetaxL; - CCTK_REAL_VEC dtbetayL; - CCTK_REAL_VEC dtbetazL; + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED ; if (harmonicShift) { diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc index f64b4b0..43226d7 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBaseFakeDtLapseShift.cc @@ -36,108 +36,108 @@ static void ML_BSSN_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c 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 */ @@ -199,23 +199,23 @@ static void ML_BSSN_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 rL = vec_load(r[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); @@ -239,18 +239,18 @@ static void ML_BSSN_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC dtalpL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL)))); - CCTK_REAL_VEC dtbetaxL; - CCTK_REAL_VEC dtbetayL; - CCTK_REAL_VEC dtbetazL; + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED ; if (harmonicShift) { diff --git a/ML_BSSN/src/ML_BSSN_enforce.cc b/ML_BSSN/src/ML_BSSN_enforce.cc index 3e46718..c9d0f7f 100644 --- a/ML_BSSN/src/ML_BSSN_enforce.cc +++ b/ML_BSSN/src/ML_BSSN_enforce.cc @@ -36,108 +36,108 @@ static void ML_BSSN_enforce_Body(cGH const * restrict const cctkGH, int const di /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_BSSN_enforce_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -199,23 +199,23 @@ static void ML_BSSN_enforce_Body(cGH const * restrict const cctkGH, int const di 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); @@ -239,27 +239,27 @@ static void ML_BSSN_enforce_Body(cGH const * restrict const cctkGH, int const di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC trAt = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trAt = 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_BSSN/src/RegisterMoL.cc b/ML_BSSN/src/RegisterMoL.cc index 30ae282..5a2d09a 100644 --- a/ML_BSSN/src/RegisterMoL.cc +++ b/ML_BSSN/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_BSSN_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN::At11"), CCTK_VarIndex("ML_BSSN::At11rhs")); diff --git a/ML_BSSN/src/Startup.cc b/ML_BSSN/src/Startup.cc index 3faa6b4..8dddecf 100644 --- a/ML_BSSN/src/Startup.cc +++ b/ML_BSSN/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_BSSN_Startup(void) { - const char * banner = "ML_BSSN"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_BSSN"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_CCZ4/src/Boundaries.cc b/ML_CCZ4/src/Boundaries.cc index 09657a1..fabca51 100644 --- a/ML_CCZ4/src/Boundaries.cc +++ b/ML_CCZ4/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; if (CCTK_EQUALS(ML_curv_bound, "none" ) || CCTK_EQUALS(ML_curv_bound, "static") || @@ -431,7 +431,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_curv_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_curv_bound = -1; + static CCTK_INT handle_ML_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0) @@ -450,7 +450,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtlapse_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_dtlapse_bound = -1; + static CCTK_INT handle_ML_dtlapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0) @@ -469,7 +469,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtshift_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_dtshift_bound = -1; + static CCTK_INT handle_ML_dtshift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0) @@ -488,7 +488,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_Gamma_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_Gamma_bound = -1; + static CCTK_INT handle_ML_Gamma_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0) @@ -507,7 +507,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_lapse_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_lapse_bound = -1; + static CCTK_INT handle_ML_lapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0) @@ -526,7 +526,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_log_confac_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_log_confac_bound = -1; + static CCTK_INT handle_ML_log_confac_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0) @@ -545,7 +545,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_metric_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_metric_bound = -1; + static CCTK_INT handle_ML_metric_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0) @@ -564,7 +564,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_shift_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_shift_bound = -1; + static CCTK_INT handle_ML_shift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0) @@ -583,7 +583,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_Theta_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_Theta_bound = -1; + static CCTK_INT handle_ML_Theta_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_Theta_bound < 0) handle_ML_Theta_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_Theta_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_Theta_bound , ML_Theta_bound_limit, "LIMIT") < 0) @@ -602,7 +602,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_trace_curv_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_ML_trace_curv_bound = -1; + static CCTK_INT handle_ML_trace_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0) @@ -621,7 +621,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At11_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At11_bound = -1; + static CCTK_INT handle_At11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0) @@ -640,7 +640,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At12_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At12_bound = -1; + static CCTK_INT handle_At12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0) @@ -659,7 +659,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At13_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At13_bound = -1; + static CCTK_INT handle_At13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0) @@ -678,7 +678,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At22_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At22_bound = -1; + static CCTK_INT handle_At22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0) @@ -697,7 +697,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At23_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At23_bound = -1; + static CCTK_INT handle_At23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0) @@ -716,7 +716,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At33_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_At33_bound = -1; + static CCTK_INT handle_At33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0) @@ -735,7 +735,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(A_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_A_bound = -1; + static CCTK_INT handle_A_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0) @@ -754,7 +754,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_B1_bound = -1; + static CCTK_INT handle_B1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0) @@ -773,7 +773,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_B2_bound = -1; + static CCTK_INT handle_B2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0) @@ -792,7 +792,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_B3_bound = -1; + static CCTK_INT handle_B3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0) @@ -811,7 +811,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Xt1_bound = -1; + static CCTK_INT handle_Xt1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0) @@ -830,7 +830,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Xt2_bound = -1; + static CCTK_INT handle_Xt2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0) @@ -849,7 +849,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Xt3_bound = -1; + static CCTK_INT handle_Xt3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0) @@ -868,7 +868,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(alpha_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_alpha_bound = -1; + static CCTK_INT handle_alpha_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0) @@ -887,7 +887,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(phi_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_phi_bound = -1; + static CCTK_INT handle_phi_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0) @@ -906,7 +906,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt11_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt11_bound = -1; + static CCTK_INT handle_gt11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0) @@ -925,7 +925,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt12_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt12_bound = -1; + static CCTK_INT handle_gt12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0) @@ -944,7 +944,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt13_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt13_bound = -1; + static CCTK_INT handle_gt13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0) @@ -963,7 +963,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt22_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt22_bound = -1; + static CCTK_INT handle_gt22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0) @@ -982,7 +982,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt23_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt23_bound = -1; + static CCTK_INT handle_gt23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0) @@ -1001,7 +1001,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt33_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_gt33_bound = -1; + static CCTK_INT handle_gt33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0) @@ -1020,7 +1020,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta1_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta1_bound = -1; + static CCTK_INT handle_beta1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0) @@ -1039,7 +1039,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta2_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta2_bound = -1; + static CCTK_INT handle_beta2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0) @@ -1058,7 +1058,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta3_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_beta3_bound = -1; + static CCTK_INT handle_beta3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0) @@ -1077,7 +1077,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Theta_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_Theta_bound = -1; + static CCTK_INT handle_Theta_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Theta_bound < 0) handle_Theta_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Theta_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Theta_bound , Theta_bound_limit, "LIMIT") < 0) @@ -1096,7 +1096,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(trK_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_trK_bound = -1; + static CCTK_INT handle_trK_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0) @@ -1115,7 +1115,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_curv_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_curv_bound = -1; + static CCTK_INT handle_ML_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0) @@ -1132,7 +1132,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtlapse_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_dtlapse_bound = -1; + static CCTK_INT handle_ML_dtlapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0) @@ -1149,7 +1149,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_dtshift_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_dtshift_bound = -1; + static CCTK_INT handle_ML_dtshift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0) @@ -1166,7 +1166,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_Gamma_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_Gamma_bound = -1; + static CCTK_INT handle_ML_Gamma_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0) @@ -1183,7 +1183,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_lapse_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_lapse_bound = -1; + static CCTK_INT handle_ML_lapse_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0) @@ -1200,7 +1200,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_log_confac_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_log_confac_bound = -1; + static CCTK_INT handle_ML_log_confac_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0) @@ -1217,7 +1217,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_metric_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_metric_bound = -1; + static CCTK_INT handle_ML_metric_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0) @@ -1234,7 +1234,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_shift_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_shift_bound = -1; + static CCTK_INT handle_ML_shift_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0) @@ -1251,7 +1251,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_Theta_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_Theta_bound = -1; + static CCTK_INT handle_ML_Theta_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_Theta_bound < 0) handle_ML_Theta_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_Theta_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_Theta_bound ,ML_Theta_bound_scalar, "SCALAR") < 0) @@ -1268,7 +1268,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(ML_trace_curv_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_ML_trace_curv_bound = -1; + static CCTK_INT handle_ML_trace_curv_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0) @@ -1285,7 +1285,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At11_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At11_bound = -1; + static CCTK_INT handle_At11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0) @@ -1302,7 +1302,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At12_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At12_bound = -1; + static CCTK_INT handle_At12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0) @@ -1319,7 +1319,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At13_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At13_bound = -1; + static CCTK_INT handle_At13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0) @@ -1336,7 +1336,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At22_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At22_bound = -1; + static CCTK_INT handle_At22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0) @@ -1353,7 +1353,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At23_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At23_bound = -1; + static CCTK_INT handle_At23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0) @@ -1370,7 +1370,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(At33_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_At33_bound = -1; + static CCTK_INT handle_At33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0) @@ -1387,7 +1387,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(A_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_A_bound = -1; + static CCTK_INT handle_A_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0) @@ -1404,7 +1404,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_B1_bound = -1; + static CCTK_INT handle_B1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0) @@ -1421,7 +1421,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_B2_bound = -1; + static CCTK_INT handle_B2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0) @@ -1438,7 +1438,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(B3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_B3_bound = -1; + static CCTK_INT handle_B3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0) @@ -1455,7 +1455,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Xt1_bound = -1; + static CCTK_INT handle_Xt1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0) @@ -1472,7 +1472,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Xt2_bound = -1; + static CCTK_INT handle_Xt2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0) @@ -1489,7 +1489,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Xt3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Xt3_bound = -1; + static CCTK_INT handle_Xt3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0) @@ -1506,7 +1506,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(alpha_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_alpha_bound = -1; + static CCTK_INT handle_alpha_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0) @@ -1523,7 +1523,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(phi_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_phi_bound = -1; + static CCTK_INT handle_phi_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0) @@ -1540,7 +1540,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt11_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt11_bound = -1; + static CCTK_INT handle_gt11_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0) @@ -1557,7 +1557,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt12_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt12_bound = -1; + static CCTK_INT handle_gt12_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0) @@ -1574,7 +1574,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt13_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt13_bound = -1; + static CCTK_INT handle_gt13_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0) @@ -1591,7 +1591,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt22_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt22_bound = -1; + static CCTK_INT handle_gt22_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0) @@ -1608,7 +1608,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt23_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt23_bound = -1; + static CCTK_INT handle_gt23_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0) @@ -1625,7 +1625,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(gt33_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_gt33_bound = -1; + static CCTK_INT handle_gt33_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0) @@ -1642,7 +1642,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta1_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta1_bound = -1; + static CCTK_INT handle_beta1_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0) @@ -1659,7 +1659,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta2_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta2_bound = -1; + static CCTK_INT handle_beta2_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0) @@ -1676,7 +1676,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(beta3_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_beta3_bound = -1; + static CCTK_INT handle_beta3_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0) @@ -1693,7 +1693,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(Theta_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_Theta_bound = -1; + static CCTK_INT handle_Theta_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_Theta_bound < 0) handle_Theta_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_Theta_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_Theta_bound ,Theta_bound_scalar, "SCALAR") < 0) @@ -1710,7 +1710,7 @@ extern "C" void ML_CCZ4_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(trK_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_trK_bound = -1; + static CCTK_INT handle_trK_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0) diff --git a/ML_CCZ4/src/ML_CCZ4_Advect.cc b/ML_CCZ4/src/ML_CCZ4_Advect.cc index 3ca843f..ae6f772 100644 --- a/ML_CCZ4/src/ML_CCZ4_Advect.cc +++ b/ML_CCZ4/src/ML_CCZ4_Advect.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_Advect_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_CCZ4::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_curvrhs."); @@ -75,108 +75,108 @@ static void ML_CCZ4_Advect_Body(cGH const * restrict const cctkGH, int const dir /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -190,38 +190,38 @@ static void ML_CCZ4_Advect_Body(cGH const * restrict const cctkGH, int const dir 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 */ @@ -238,65 +238,65 @@ static void ML_CCZ4_Advect_Body(cGH const * restrict const cctkGH, int const dir 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]); - CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]); - CCTK_REAL_VEC At11L = vec_load(At11[index]); - CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]); - CCTK_REAL_VEC B3L = vec_load(B3[index]); - CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]); - CCTK_REAL_VEC beta1L = vec_load(beta1[index]); - CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]); - CCTK_REAL_VEC beta2L = vec_load(beta2[index]); - CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]); - CCTK_REAL_VEC beta3L = vec_load(beta3[index]); - CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC ThetarhsL = vec_load(Thetarhs[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = vec_load(alpharhs[index]); + CCTK_REAL_VEC ArhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Arhs[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At11rhs[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At12rhs[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At13rhs[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At22rhs[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At23rhs[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At33rhs[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B1rhs[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B2rhs[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[index]); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B3rhs[index]); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = vec_load(beta1[index]); + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta1rhs[index]); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = vec_load(beta2[index]); + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta2rhs[index]); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = vec_load(beta3[index]); + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta3rhs[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt11rhs[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt12rhs[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt13rhs[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt22rhs[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt23rhs[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt33rhs[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = vec_load(phirhs[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC ThetarhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Thetarhs[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = vec_load(trKrhs[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1rhs[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2rhs[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3rhs[index]); - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -314,162 +314,162 @@ static void ML_CCZ4_Advect_Body(cGH const * restrict const cctkGH, int const dir /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDupwindNthAnti1A; - CCTK_REAL_VEC PDupwindNthSymm1A; - CCTK_REAL_VEC PDupwindNthAnti2A; - CCTK_REAL_VEC PDupwindNthSymm2A; - CCTK_REAL_VEC PDupwindNthAnti3A; - CCTK_REAL_VEC PDupwindNthSymm3A; - CCTK_REAL_VEC PDupwindNthAnti1alpha; - CCTK_REAL_VEC PDupwindNthSymm1alpha; - CCTK_REAL_VEC PDupwindNthAnti2alpha; - CCTK_REAL_VEC PDupwindNthSymm2alpha; - CCTK_REAL_VEC PDupwindNthAnti3alpha; - CCTK_REAL_VEC PDupwindNthSymm3alpha; - CCTK_REAL_VEC PDupwindNthAnti1At11; - CCTK_REAL_VEC PDupwindNthSymm1At11; - CCTK_REAL_VEC PDupwindNthAnti2At11; - CCTK_REAL_VEC PDupwindNthSymm2At11; - CCTK_REAL_VEC PDupwindNthAnti3At11; - CCTK_REAL_VEC PDupwindNthSymm3At11; - CCTK_REAL_VEC PDupwindNthAnti1At12; - CCTK_REAL_VEC PDupwindNthSymm1At12; - CCTK_REAL_VEC PDupwindNthAnti2At12; - CCTK_REAL_VEC PDupwindNthSymm2At12; - CCTK_REAL_VEC PDupwindNthAnti3At12; - CCTK_REAL_VEC PDupwindNthSymm3At12; - CCTK_REAL_VEC PDupwindNthAnti1At13; - CCTK_REAL_VEC PDupwindNthSymm1At13; - CCTK_REAL_VEC PDupwindNthAnti2At13; - CCTK_REAL_VEC PDupwindNthSymm2At13; - CCTK_REAL_VEC PDupwindNthAnti3At13; - CCTK_REAL_VEC PDupwindNthSymm3At13; - CCTK_REAL_VEC PDupwindNthAnti1At22; - CCTK_REAL_VEC PDupwindNthSymm1At22; - CCTK_REAL_VEC PDupwindNthAnti2At22; - CCTK_REAL_VEC PDupwindNthSymm2At22; - CCTK_REAL_VEC PDupwindNthAnti3At22; - CCTK_REAL_VEC PDupwindNthSymm3At22; - CCTK_REAL_VEC PDupwindNthAnti1At23; - CCTK_REAL_VEC PDupwindNthSymm1At23; - CCTK_REAL_VEC PDupwindNthAnti2At23; - CCTK_REAL_VEC PDupwindNthSymm2At23; - CCTK_REAL_VEC PDupwindNthAnti3At23; - CCTK_REAL_VEC PDupwindNthSymm3At23; - CCTK_REAL_VEC PDupwindNthAnti1At33; - CCTK_REAL_VEC PDupwindNthSymm1At33; - CCTK_REAL_VEC PDupwindNthAnti2At33; - CCTK_REAL_VEC PDupwindNthSymm2At33; - CCTK_REAL_VEC PDupwindNthAnti3At33; - CCTK_REAL_VEC PDupwindNthSymm3At33; - CCTK_REAL_VEC PDupwindNthAnti1B1; - CCTK_REAL_VEC PDupwindNthSymm1B1; - CCTK_REAL_VEC PDupwindNthAnti2B1; - CCTK_REAL_VEC PDupwindNthSymm2B1; - CCTK_REAL_VEC PDupwindNthAnti3B1; - CCTK_REAL_VEC PDupwindNthSymm3B1; - CCTK_REAL_VEC PDupwindNthAnti1B2; - CCTK_REAL_VEC PDupwindNthSymm1B2; - CCTK_REAL_VEC PDupwindNthAnti2B2; - CCTK_REAL_VEC PDupwindNthSymm2B2; - CCTK_REAL_VEC PDupwindNthAnti3B2; - CCTK_REAL_VEC PDupwindNthSymm3B2; - CCTK_REAL_VEC PDupwindNthAnti1B3; - CCTK_REAL_VEC PDupwindNthSymm1B3; - CCTK_REAL_VEC PDupwindNthAnti2B3; - CCTK_REAL_VEC PDupwindNthSymm2B3; - CCTK_REAL_VEC PDupwindNthAnti3B3; - CCTK_REAL_VEC PDupwindNthSymm3B3; - CCTK_REAL_VEC PDupwindNthAnti1beta1; - CCTK_REAL_VEC PDupwindNthSymm1beta1; - CCTK_REAL_VEC PDupwindNthAnti2beta1; - CCTK_REAL_VEC PDupwindNthSymm2beta1; - CCTK_REAL_VEC PDupwindNthAnti3beta1; - CCTK_REAL_VEC PDupwindNthSymm3beta1; - CCTK_REAL_VEC PDupwindNthAnti1beta2; - CCTK_REAL_VEC PDupwindNthSymm1beta2; - CCTK_REAL_VEC PDupwindNthAnti2beta2; - CCTK_REAL_VEC PDupwindNthSymm2beta2; - CCTK_REAL_VEC PDupwindNthAnti3beta2; - CCTK_REAL_VEC PDupwindNthSymm3beta2; - CCTK_REAL_VEC PDupwindNthAnti1beta3; - CCTK_REAL_VEC PDupwindNthSymm1beta3; - CCTK_REAL_VEC PDupwindNthAnti2beta3; - CCTK_REAL_VEC PDupwindNthSymm2beta3; - CCTK_REAL_VEC PDupwindNthAnti3beta3; - CCTK_REAL_VEC PDupwindNthSymm3beta3; - CCTK_REAL_VEC PDupwindNthAnti1gt11; - CCTK_REAL_VEC PDupwindNthSymm1gt11; - CCTK_REAL_VEC PDupwindNthAnti2gt11; - CCTK_REAL_VEC PDupwindNthSymm2gt11; - CCTK_REAL_VEC PDupwindNthAnti3gt11; - CCTK_REAL_VEC PDupwindNthSymm3gt11; - CCTK_REAL_VEC PDupwindNthAnti1gt12; - CCTK_REAL_VEC PDupwindNthSymm1gt12; - CCTK_REAL_VEC PDupwindNthAnti2gt12; - CCTK_REAL_VEC PDupwindNthSymm2gt12; - CCTK_REAL_VEC PDupwindNthAnti3gt12; - CCTK_REAL_VEC PDupwindNthSymm3gt12; - CCTK_REAL_VEC PDupwindNthAnti1gt13; - CCTK_REAL_VEC PDupwindNthSymm1gt13; - CCTK_REAL_VEC PDupwindNthAnti2gt13; - CCTK_REAL_VEC PDupwindNthSymm2gt13; - CCTK_REAL_VEC PDupwindNthAnti3gt13; - CCTK_REAL_VEC PDupwindNthSymm3gt13; - CCTK_REAL_VEC PDupwindNthAnti1gt22; - CCTK_REAL_VEC PDupwindNthSymm1gt22; - CCTK_REAL_VEC PDupwindNthAnti2gt22; - CCTK_REAL_VEC PDupwindNthSymm2gt22; - CCTK_REAL_VEC PDupwindNthAnti3gt22; - CCTK_REAL_VEC PDupwindNthSymm3gt22; - CCTK_REAL_VEC PDupwindNthAnti1gt23; - CCTK_REAL_VEC PDupwindNthSymm1gt23; - CCTK_REAL_VEC PDupwindNthAnti2gt23; - CCTK_REAL_VEC PDupwindNthSymm2gt23; - CCTK_REAL_VEC PDupwindNthAnti3gt23; - CCTK_REAL_VEC PDupwindNthSymm3gt23; - CCTK_REAL_VEC PDupwindNthAnti1gt33; - CCTK_REAL_VEC PDupwindNthSymm1gt33; - CCTK_REAL_VEC PDupwindNthAnti2gt33; - CCTK_REAL_VEC PDupwindNthSymm2gt33; - CCTK_REAL_VEC PDupwindNthAnti3gt33; - CCTK_REAL_VEC PDupwindNthSymm3gt33; - CCTK_REAL_VEC PDupwindNthAnti1phi; - CCTK_REAL_VEC PDupwindNthSymm1phi; - CCTK_REAL_VEC PDupwindNthAnti2phi; - CCTK_REAL_VEC PDupwindNthSymm2phi; - CCTK_REAL_VEC PDupwindNthAnti3phi; - CCTK_REAL_VEC PDupwindNthSymm3phi; - CCTK_REAL_VEC PDupwindNthAnti1Theta; - CCTK_REAL_VEC PDupwindNthSymm1Theta; - CCTK_REAL_VEC PDupwindNthAnti2Theta; - CCTK_REAL_VEC PDupwindNthSymm2Theta; - CCTK_REAL_VEC PDupwindNthAnti3Theta; - CCTK_REAL_VEC PDupwindNthSymm3Theta; - CCTK_REAL_VEC PDupwindNthAnti1trK; - CCTK_REAL_VEC PDupwindNthSymm1trK; - CCTK_REAL_VEC PDupwindNthAnti2trK; - CCTK_REAL_VEC PDupwindNthSymm2trK; - CCTK_REAL_VEC PDupwindNthAnti3trK; - CCTK_REAL_VEC PDupwindNthSymm3trK; - CCTK_REAL_VEC PDupwindNthAnti1Xt1; - CCTK_REAL_VEC PDupwindNthSymm1Xt1; - CCTK_REAL_VEC PDupwindNthAnti2Xt1; - CCTK_REAL_VEC PDupwindNthSymm2Xt1; - CCTK_REAL_VEC PDupwindNthAnti3Xt1; - CCTK_REAL_VEC PDupwindNthSymm3Xt1; - CCTK_REAL_VEC PDupwindNthAnti1Xt2; - CCTK_REAL_VEC PDupwindNthSymm1Xt2; - CCTK_REAL_VEC PDupwindNthAnti2Xt2; - CCTK_REAL_VEC PDupwindNthSymm2Xt2; - CCTK_REAL_VEC PDupwindNthAnti3Xt2; - CCTK_REAL_VEC PDupwindNthSymm3Xt2; - CCTK_REAL_VEC PDupwindNthAnti1Xt3; - CCTK_REAL_VEC PDupwindNthSymm1Xt3; - CCTK_REAL_VEC PDupwindNthAnti2Xt3; - CCTK_REAL_VEC PDupwindNthSymm2Xt3; - CCTK_REAL_VEC PDupwindNthAnti3Xt3; - CCTK_REAL_VEC PDupwindNthSymm3Xt3; + CCTK_REAL_VEC PDupwindNthAnti1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -1111,168 +1111,168 @@ static void ML_CCZ4_Advect_Body(cGH const * restrict const cctkGH, int const dir } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); - ptrdiff_t dir2 = kisgn(beta2L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); - ptrdiff_t dir3 = kisgn(beta3L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); - CCTK_REAL_VEC JacPDupwindNthAnti1A; - CCTK_REAL_VEC JacPDupwindNthAnti1alpha; - CCTK_REAL_VEC JacPDupwindNthAnti1At11; - CCTK_REAL_VEC JacPDupwindNthAnti1At12; - CCTK_REAL_VEC JacPDupwindNthAnti1At13; - CCTK_REAL_VEC JacPDupwindNthAnti1At22; - CCTK_REAL_VEC JacPDupwindNthAnti1At23; - CCTK_REAL_VEC JacPDupwindNthAnti1At33; - CCTK_REAL_VEC JacPDupwindNthAnti1B1; - CCTK_REAL_VEC JacPDupwindNthAnti1B2; - CCTK_REAL_VEC JacPDupwindNthAnti1B3; - CCTK_REAL_VEC JacPDupwindNthAnti1beta1; - CCTK_REAL_VEC JacPDupwindNthAnti1beta2; - CCTK_REAL_VEC JacPDupwindNthAnti1beta3; - CCTK_REAL_VEC JacPDupwindNthAnti1gt11; - CCTK_REAL_VEC JacPDupwindNthAnti1gt12; - CCTK_REAL_VEC JacPDupwindNthAnti1gt13; - CCTK_REAL_VEC JacPDupwindNthAnti1gt22; - CCTK_REAL_VEC JacPDupwindNthAnti1gt23; - CCTK_REAL_VEC JacPDupwindNthAnti1gt33; - CCTK_REAL_VEC JacPDupwindNthAnti1phi; - CCTK_REAL_VEC JacPDupwindNthAnti1Theta; - CCTK_REAL_VEC JacPDupwindNthAnti1trK; - CCTK_REAL_VEC JacPDupwindNthAnti1Xt1; - CCTK_REAL_VEC JacPDupwindNthAnti1Xt2; - CCTK_REAL_VEC JacPDupwindNthAnti1Xt3; - CCTK_REAL_VEC JacPDupwindNthAnti2A; - CCTK_REAL_VEC JacPDupwindNthAnti2alpha; - CCTK_REAL_VEC JacPDupwindNthAnti2At11; - CCTK_REAL_VEC JacPDupwindNthAnti2At12; - CCTK_REAL_VEC JacPDupwindNthAnti2At13; - CCTK_REAL_VEC JacPDupwindNthAnti2At22; - CCTK_REAL_VEC JacPDupwindNthAnti2At23; - CCTK_REAL_VEC JacPDupwindNthAnti2At33; - CCTK_REAL_VEC JacPDupwindNthAnti2B1; - CCTK_REAL_VEC JacPDupwindNthAnti2B2; - CCTK_REAL_VEC JacPDupwindNthAnti2B3; - CCTK_REAL_VEC JacPDupwindNthAnti2beta1; - CCTK_REAL_VEC JacPDupwindNthAnti2beta2; - CCTK_REAL_VEC JacPDupwindNthAnti2beta3; - CCTK_REAL_VEC JacPDupwindNthAnti2gt11; - CCTK_REAL_VEC JacPDupwindNthAnti2gt12; - CCTK_REAL_VEC JacPDupwindNthAnti2gt13; - CCTK_REAL_VEC JacPDupwindNthAnti2gt22; - CCTK_REAL_VEC JacPDupwindNthAnti2gt23; - CCTK_REAL_VEC JacPDupwindNthAnti2gt33; - CCTK_REAL_VEC JacPDupwindNthAnti2phi; - CCTK_REAL_VEC JacPDupwindNthAnti2Theta; - CCTK_REAL_VEC JacPDupwindNthAnti2trK; - CCTK_REAL_VEC JacPDupwindNthAnti2Xt1; - CCTK_REAL_VEC JacPDupwindNthAnti2Xt2; - CCTK_REAL_VEC JacPDupwindNthAnti2Xt3; - CCTK_REAL_VEC JacPDupwindNthAnti3A; - CCTK_REAL_VEC JacPDupwindNthAnti3alpha; - CCTK_REAL_VEC JacPDupwindNthAnti3At11; - CCTK_REAL_VEC JacPDupwindNthAnti3At12; - CCTK_REAL_VEC JacPDupwindNthAnti3At13; - CCTK_REAL_VEC JacPDupwindNthAnti3At22; - CCTK_REAL_VEC JacPDupwindNthAnti3At23; - CCTK_REAL_VEC JacPDupwindNthAnti3At33; - CCTK_REAL_VEC JacPDupwindNthAnti3B1; - CCTK_REAL_VEC JacPDupwindNthAnti3B2; - CCTK_REAL_VEC JacPDupwindNthAnti3B3; - CCTK_REAL_VEC JacPDupwindNthAnti3beta1; - CCTK_REAL_VEC JacPDupwindNthAnti3beta2; - CCTK_REAL_VEC JacPDupwindNthAnti3beta3; - CCTK_REAL_VEC JacPDupwindNthAnti3gt11; - CCTK_REAL_VEC JacPDupwindNthAnti3gt12; - CCTK_REAL_VEC JacPDupwindNthAnti3gt13; - CCTK_REAL_VEC JacPDupwindNthAnti3gt22; - CCTK_REAL_VEC JacPDupwindNthAnti3gt23; - CCTK_REAL_VEC JacPDupwindNthAnti3gt33; - CCTK_REAL_VEC JacPDupwindNthAnti3phi; - CCTK_REAL_VEC JacPDupwindNthAnti3Theta; - CCTK_REAL_VEC JacPDupwindNthAnti3trK; - CCTK_REAL_VEC JacPDupwindNthAnti3Xt1; - CCTK_REAL_VEC JacPDupwindNthAnti3Xt2; - CCTK_REAL_VEC JacPDupwindNthAnti3Xt3; - CCTK_REAL_VEC JacPDupwindNthSymm1A; - CCTK_REAL_VEC JacPDupwindNthSymm1alpha; - CCTK_REAL_VEC JacPDupwindNthSymm1At11; - CCTK_REAL_VEC JacPDupwindNthSymm1At12; - CCTK_REAL_VEC JacPDupwindNthSymm1At13; - CCTK_REAL_VEC JacPDupwindNthSymm1At22; - CCTK_REAL_VEC JacPDupwindNthSymm1At23; - CCTK_REAL_VEC JacPDupwindNthSymm1At33; - CCTK_REAL_VEC JacPDupwindNthSymm1B1; - CCTK_REAL_VEC JacPDupwindNthSymm1B2; - CCTK_REAL_VEC JacPDupwindNthSymm1B3; - CCTK_REAL_VEC JacPDupwindNthSymm1beta1; - CCTK_REAL_VEC JacPDupwindNthSymm1beta2; - CCTK_REAL_VEC JacPDupwindNthSymm1beta3; - CCTK_REAL_VEC JacPDupwindNthSymm1gt11; - CCTK_REAL_VEC JacPDupwindNthSymm1gt12; - CCTK_REAL_VEC JacPDupwindNthSymm1gt13; - CCTK_REAL_VEC JacPDupwindNthSymm1gt22; - CCTK_REAL_VEC JacPDupwindNthSymm1gt23; - CCTK_REAL_VEC JacPDupwindNthSymm1gt33; - CCTK_REAL_VEC JacPDupwindNthSymm1phi; - CCTK_REAL_VEC JacPDupwindNthSymm1Theta; - CCTK_REAL_VEC JacPDupwindNthSymm1trK; - CCTK_REAL_VEC JacPDupwindNthSymm1Xt1; - CCTK_REAL_VEC JacPDupwindNthSymm1Xt2; - CCTK_REAL_VEC JacPDupwindNthSymm1Xt3; - CCTK_REAL_VEC JacPDupwindNthSymm2A; - CCTK_REAL_VEC JacPDupwindNthSymm2alpha; - CCTK_REAL_VEC JacPDupwindNthSymm2At11; - CCTK_REAL_VEC JacPDupwindNthSymm2At12; - CCTK_REAL_VEC JacPDupwindNthSymm2At13; - CCTK_REAL_VEC JacPDupwindNthSymm2At22; - CCTK_REAL_VEC JacPDupwindNthSymm2At23; - CCTK_REAL_VEC JacPDupwindNthSymm2At33; - CCTK_REAL_VEC JacPDupwindNthSymm2B1; - CCTK_REAL_VEC JacPDupwindNthSymm2B2; - CCTK_REAL_VEC JacPDupwindNthSymm2B3; - CCTK_REAL_VEC JacPDupwindNthSymm2beta1; - CCTK_REAL_VEC JacPDupwindNthSymm2beta2; - CCTK_REAL_VEC JacPDupwindNthSymm2beta3; - CCTK_REAL_VEC JacPDupwindNthSymm2gt11; - CCTK_REAL_VEC JacPDupwindNthSymm2gt12; - CCTK_REAL_VEC JacPDupwindNthSymm2gt13; - CCTK_REAL_VEC JacPDupwindNthSymm2gt22; - CCTK_REAL_VEC JacPDupwindNthSymm2gt23; - CCTK_REAL_VEC JacPDupwindNthSymm2gt33; - CCTK_REAL_VEC JacPDupwindNthSymm2phi; - CCTK_REAL_VEC JacPDupwindNthSymm2Theta; - CCTK_REAL_VEC JacPDupwindNthSymm2trK; - CCTK_REAL_VEC JacPDupwindNthSymm2Xt1; - CCTK_REAL_VEC JacPDupwindNthSymm2Xt2; - CCTK_REAL_VEC JacPDupwindNthSymm2Xt3; - CCTK_REAL_VEC JacPDupwindNthSymm3A; - CCTK_REAL_VEC JacPDupwindNthSymm3alpha; - CCTK_REAL_VEC JacPDupwindNthSymm3At11; - CCTK_REAL_VEC JacPDupwindNthSymm3At12; - CCTK_REAL_VEC JacPDupwindNthSymm3At13; - CCTK_REAL_VEC JacPDupwindNthSymm3At22; - CCTK_REAL_VEC JacPDupwindNthSymm3At23; - CCTK_REAL_VEC JacPDupwindNthSymm3At33; - CCTK_REAL_VEC JacPDupwindNthSymm3B1; - CCTK_REAL_VEC JacPDupwindNthSymm3B2; - CCTK_REAL_VEC JacPDupwindNthSymm3B3; - CCTK_REAL_VEC JacPDupwindNthSymm3beta1; - CCTK_REAL_VEC JacPDupwindNthSymm3beta2; - CCTK_REAL_VEC JacPDupwindNthSymm3beta3; - CCTK_REAL_VEC JacPDupwindNthSymm3gt11; - CCTK_REAL_VEC JacPDupwindNthSymm3gt12; - CCTK_REAL_VEC JacPDupwindNthSymm3gt13; - CCTK_REAL_VEC JacPDupwindNthSymm3gt22; - CCTK_REAL_VEC JacPDupwindNthSymm3gt23; - CCTK_REAL_VEC JacPDupwindNthSymm3gt33; - CCTK_REAL_VEC JacPDupwindNthSymm3phi; - CCTK_REAL_VEC JacPDupwindNthSymm3Theta; - CCTK_REAL_VEC JacPDupwindNthSymm3trK; - CCTK_REAL_VEC JacPDupwindNthSymm3Xt1; - CCTK_REAL_VEC JacPDupwindNthSymm3Xt2; - CCTK_REAL_VEC JacPDupwindNthSymm3Xt3; + CCTK_REAL_VEC JacPDupwindNthAnti1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { diff --git a/ML_CCZ4/src/ML_CCZ4_Dissipation.cc b/ML_CCZ4/src/ML_CCZ4_Dissipation.cc index 59fc7bb..0ba5ee4 100644 --- a/ML_CCZ4/src/ML_CCZ4_Dissipation.cc +++ b/ML_CCZ4/src/ML_CCZ4_Dissipation.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_Dissipation_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_CCZ4::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_curvrhs."); @@ -75,108 +75,108 @@ static void ML_CCZ4_Dissipation_Body(cGH const * restrict const cctkGH, int cons /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -190,38 +190,38 @@ static void ML_CCZ4_Dissipation_Body(cGH const * restrict const cctkGH, int cons 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 */ @@ -238,65 +238,65 @@ static void ML_CCZ4_Dissipation_Body(cGH const * restrict const cctkGH, int cons 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]); - CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]); - CCTK_REAL_VEC At11L = vec_load(At11[index]); - CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]); - CCTK_REAL_VEC B3L = vec_load(B3[index]); - CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]); - CCTK_REAL_VEC beta1L = vec_load(beta1[index]); - CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]); - CCTK_REAL_VEC beta2L = vec_load(beta2[index]); - CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]); - CCTK_REAL_VEC beta3L = vec_load(beta3[index]); - CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC ThetarhsL = vec_load(Thetarhs[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC alpharhsL CCTK_ATTRIBUTE_UNUSED = vec_load(alpharhs[index]); + CCTK_REAL_VEC ArhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Arhs[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At11rhs[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At12rhs[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At13rhs[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At22rhs[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At23rhs[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC At33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(At33rhs[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B1rhs[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B2rhs[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[index]); + CCTK_REAL_VEC B3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(B3rhs[index]); + CCTK_REAL_VEC beta1L CCTK_ATTRIBUTE_UNUSED = vec_load(beta1[index]); + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta1rhs[index]); + CCTK_REAL_VEC beta2L CCTK_ATTRIBUTE_UNUSED = vec_load(beta2[index]); + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta2rhs[index]); + CCTK_REAL_VEC beta3L CCTK_ATTRIBUTE_UNUSED = vec_load(beta3[index]); + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(beta3rhs[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt11rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt11rhs[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt12rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt12rhs[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt13rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt13rhs[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt22rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt22rhs[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt23rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt23rhs[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC gt33rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(gt33rhs[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC phirhsL CCTK_ATTRIBUTE_UNUSED = vec_load(phirhs[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC ThetarhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Thetarhs[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC trKrhsL CCTK_ATTRIBUTE_UNUSED = vec_load(trKrhs[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt1rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1rhs[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt2rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2rhs[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + CCTK_REAL_VEC Xt3rhsL CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3rhs[index]); - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -314,84 +314,84 @@ static void ML_CCZ4_Dissipation_Body(cGH const * restrict const cctkGH, int cons /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDdissipationNth1A; - CCTK_REAL_VEC PDdissipationNth2A; - CCTK_REAL_VEC PDdissipationNth3A; - CCTK_REAL_VEC PDdissipationNth1alpha; - CCTK_REAL_VEC PDdissipationNth2alpha; - CCTK_REAL_VEC PDdissipationNth3alpha; - CCTK_REAL_VEC PDdissipationNth1At11; - CCTK_REAL_VEC PDdissipationNth2At11; - CCTK_REAL_VEC PDdissipationNth3At11; - CCTK_REAL_VEC PDdissipationNth1At12; - CCTK_REAL_VEC PDdissipationNth2At12; - CCTK_REAL_VEC PDdissipationNth3At12; - CCTK_REAL_VEC PDdissipationNth1At13; - CCTK_REAL_VEC PDdissipationNth2At13; - CCTK_REAL_VEC PDdissipationNth3At13; - CCTK_REAL_VEC PDdissipationNth1At22; - CCTK_REAL_VEC PDdissipationNth2At22; - CCTK_REAL_VEC PDdissipationNth3At22; - CCTK_REAL_VEC PDdissipationNth1At23; - CCTK_REAL_VEC PDdissipationNth2At23; - CCTK_REAL_VEC PDdissipationNth3At23; - CCTK_REAL_VEC PDdissipationNth1At33; - CCTK_REAL_VEC PDdissipationNth2At33; - CCTK_REAL_VEC PDdissipationNth3At33; - CCTK_REAL_VEC PDdissipationNth1B1; - CCTK_REAL_VEC PDdissipationNth2B1; - CCTK_REAL_VEC PDdissipationNth3B1; - CCTK_REAL_VEC PDdissipationNth1B2; - CCTK_REAL_VEC PDdissipationNth2B2; - CCTK_REAL_VEC PDdissipationNth3B2; - CCTK_REAL_VEC PDdissipationNth1B3; - CCTK_REAL_VEC PDdissipationNth2B3; - CCTK_REAL_VEC PDdissipationNth3B3; - CCTK_REAL_VEC PDdissipationNth1beta1; - CCTK_REAL_VEC PDdissipationNth2beta1; - CCTK_REAL_VEC PDdissipationNth3beta1; - CCTK_REAL_VEC PDdissipationNth1beta2; - CCTK_REAL_VEC PDdissipationNth2beta2; - CCTK_REAL_VEC PDdissipationNth3beta2; - CCTK_REAL_VEC PDdissipationNth1beta3; - CCTK_REAL_VEC PDdissipationNth2beta3; - CCTK_REAL_VEC PDdissipationNth3beta3; - CCTK_REAL_VEC PDdissipationNth1gt11; - CCTK_REAL_VEC PDdissipationNth2gt11; - CCTK_REAL_VEC PDdissipationNth3gt11; - CCTK_REAL_VEC PDdissipationNth1gt12; - CCTK_REAL_VEC PDdissipationNth2gt12; - CCTK_REAL_VEC PDdissipationNth3gt12; - CCTK_REAL_VEC PDdissipationNth1gt13; - CCTK_REAL_VEC PDdissipationNth2gt13; - CCTK_REAL_VEC PDdissipationNth3gt13; - CCTK_REAL_VEC PDdissipationNth1gt22; - CCTK_REAL_VEC PDdissipationNth2gt22; - CCTK_REAL_VEC PDdissipationNth3gt22; - CCTK_REAL_VEC PDdissipationNth1gt23; - CCTK_REAL_VEC PDdissipationNth2gt23; - CCTK_REAL_VEC PDdissipationNth3gt23; - CCTK_REAL_VEC PDdissipationNth1gt33; - CCTK_REAL_VEC PDdissipationNth2gt33; - CCTK_REAL_VEC PDdissipationNth3gt33; - CCTK_REAL_VEC PDdissipationNth1phi; - CCTK_REAL_VEC PDdissipationNth2phi; - CCTK_REAL_VEC PDdissipationNth3phi; - CCTK_REAL_VEC PDdissipationNth1Theta; - CCTK_REAL_VEC PDdissipationNth2Theta; - CCTK_REAL_VEC PDdissipationNth3Theta; - CCTK_REAL_VEC PDdissipationNth1trK; - CCTK_REAL_VEC PDdissipationNth2trK; - CCTK_REAL_VEC PDdissipationNth3trK; - CCTK_REAL_VEC PDdissipationNth1Xt1; - CCTK_REAL_VEC PDdissipationNth2Xt1; - CCTK_REAL_VEC PDdissipationNth3Xt1; - CCTK_REAL_VEC PDdissipationNth1Xt2; - CCTK_REAL_VEC PDdissipationNth2Xt2; - CCTK_REAL_VEC PDdissipationNth3Xt2; - CCTK_REAL_VEC PDdissipationNth1Xt3; - CCTK_REAL_VEC PDdissipationNth2Xt3; - CCTK_REAL_VEC PDdissipationNth3Xt3; + CCTK_REAL_VEC PDdissipationNth1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDdissipationNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -721,84 +721,84 @@ static void ML_CCZ4_Dissipation_Body(cGH const * restrict const cctkGH, int cons } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDdissipationNth1A; - CCTK_REAL_VEC JacPDdissipationNth1alpha; - CCTK_REAL_VEC JacPDdissipationNth1At11; - CCTK_REAL_VEC JacPDdissipationNth1At12; - CCTK_REAL_VEC JacPDdissipationNth1At13; - CCTK_REAL_VEC JacPDdissipationNth1At22; - CCTK_REAL_VEC JacPDdissipationNth1At23; - CCTK_REAL_VEC JacPDdissipationNth1At33; - CCTK_REAL_VEC JacPDdissipationNth1B1; - CCTK_REAL_VEC JacPDdissipationNth1B2; - CCTK_REAL_VEC JacPDdissipationNth1B3; - CCTK_REAL_VEC JacPDdissipationNth1beta1; - CCTK_REAL_VEC JacPDdissipationNth1beta2; - CCTK_REAL_VEC JacPDdissipationNth1beta3; - CCTK_REAL_VEC JacPDdissipationNth1gt11; - CCTK_REAL_VEC JacPDdissipationNth1gt12; - CCTK_REAL_VEC JacPDdissipationNth1gt13; - CCTK_REAL_VEC JacPDdissipationNth1gt22; - CCTK_REAL_VEC JacPDdissipationNth1gt23; - CCTK_REAL_VEC JacPDdissipationNth1gt33; - CCTK_REAL_VEC JacPDdissipationNth1phi; - CCTK_REAL_VEC JacPDdissipationNth1Theta; - CCTK_REAL_VEC JacPDdissipationNth1trK; - CCTK_REAL_VEC JacPDdissipationNth1Xt1; - CCTK_REAL_VEC JacPDdissipationNth1Xt2; - CCTK_REAL_VEC JacPDdissipationNth1Xt3; - CCTK_REAL_VEC JacPDdissipationNth2A; - CCTK_REAL_VEC JacPDdissipationNth2alpha; - CCTK_REAL_VEC JacPDdissipationNth2At11; - CCTK_REAL_VEC JacPDdissipationNth2At12; - CCTK_REAL_VEC JacPDdissipationNth2At13; - CCTK_REAL_VEC JacPDdissipationNth2At22; - CCTK_REAL_VEC JacPDdissipationNth2At23; - CCTK_REAL_VEC JacPDdissipationNth2At33; - CCTK_REAL_VEC JacPDdissipationNth2B1; - CCTK_REAL_VEC JacPDdissipationNth2B2; - CCTK_REAL_VEC JacPDdissipationNth2B3; - CCTK_REAL_VEC JacPDdissipationNth2beta1; - CCTK_REAL_VEC JacPDdissipationNth2beta2; - CCTK_REAL_VEC JacPDdissipationNth2beta3; - CCTK_REAL_VEC JacPDdissipationNth2gt11; - CCTK_REAL_VEC JacPDdissipationNth2gt12; - CCTK_REAL_VEC JacPDdissipationNth2gt13; - CCTK_REAL_VEC JacPDdissipationNth2gt22; - CCTK_REAL_VEC JacPDdissipationNth2gt23; - CCTK_REAL_VEC JacPDdissipationNth2gt33; - CCTK_REAL_VEC JacPDdissipationNth2phi; - CCTK_REAL_VEC JacPDdissipationNth2Theta; - CCTK_REAL_VEC JacPDdissipationNth2trK; - CCTK_REAL_VEC JacPDdissipationNth2Xt1; - CCTK_REAL_VEC JacPDdissipationNth2Xt2; - CCTK_REAL_VEC JacPDdissipationNth2Xt3; - CCTK_REAL_VEC JacPDdissipationNth3A; - CCTK_REAL_VEC JacPDdissipationNth3alpha; - CCTK_REAL_VEC JacPDdissipationNth3At11; - CCTK_REAL_VEC JacPDdissipationNth3At12; - CCTK_REAL_VEC JacPDdissipationNth3At13; - CCTK_REAL_VEC JacPDdissipationNth3At22; - CCTK_REAL_VEC JacPDdissipationNth3At23; - CCTK_REAL_VEC JacPDdissipationNth3At33; - CCTK_REAL_VEC JacPDdissipationNth3B1; - CCTK_REAL_VEC JacPDdissipationNth3B2; - CCTK_REAL_VEC JacPDdissipationNth3B3; - CCTK_REAL_VEC JacPDdissipationNth3beta1; - CCTK_REAL_VEC JacPDdissipationNth3beta2; - CCTK_REAL_VEC JacPDdissipationNth3beta3; - CCTK_REAL_VEC JacPDdissipationNth3gt11; - CCTK_REAL_VEC JacPDdissipationNth3gt12; - CCTK_REAL_VEC JacPDdissipationNth3gt13; - CCTK_REAL_VEC JacPDdissipationNth3gt22; - CCTK_REAL_VEC JacPDdissipationNth3gt23; - CCTK_REAL_VEC JacPDdissipationNth3gt33; - CCTK_REAL_VEC JacPDdissipationNth3phi; - CCTK_REAL_VEC JacPDdissipationNth3Theta; - CCTK_REAL_VEC JacPDdissipationNth3trK; - CCTK_REAL_VEC JacPDdissipationNth3Xt1; - CCTK_REAL_VEC JacPDdissipationNth3Xt2; - CCTK_REAL_VEC JacPDdissipationNth3Xt3; + CCTK_REAL_VEC JacPDdissipationNth1A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3A CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3B1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3B2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3B3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDdissipationNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1195,11 +1195,11 @@ static void ML_CCZ4_Dissipation_Body(cGH const * restrict const cctkGH, int cons JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3; } - CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss1 = ToReal(EpsDiss); - CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss2 = ToReal(EpsDiss); - CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsdiss3 = 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 ec3a2cd..4875c04 100644 --- a/ML_CCZ4/src/ML_CCZ4_InitGamma.cc +++ b/ML_CCZ4/src/ML_CCZ4_InitGamma.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_InitGamma_Body(cGH const * restrict const cctkGH, int const /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_InitGamma_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -199,7 +199,7 @@ static void ML_CCZ4_InitGamma_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -226,19 +226,19 @@ static void ML_CCZ4_InitGamma_Body(cGH const * restrict const cctkGH, int const } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC Xt1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); - CCTK_REAL_VEC Xt2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); - CCTK_REAL_VEC Xt3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); - CCTK_REAL_VEC AL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); - CCTK_REAL_VEC B1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); - CCTK_REAL_VEC B2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); - CCTK_REAL_VEC B3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_InitRHS.cc b/ML_CCZ4/src/ML_CCZ4_InitRHS.cc index 5880e3c..9152768 100644 --- a/ML_CCZ4/src/ML_CCZ4_InitRHS.cc +++ b/ML_CCZ4/src/ML_CCZ4_InitRHS.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_InitRHS_Body(cGH const * restrict const cctkGH, int const di /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_InitRHS_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -199,7 +199,7 @@ static void ML_CCZ4_InitRHS_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -226,57 +226,57 @@ static void ML_CCZ4_InitRHS_Body(cGH const * restrict const cctkGH, int const di } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phirhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); - CCTK_REAL_VEC gt11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); - CCTK_REAL_VEC gt12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); - CCTK_REAL_VEC gt13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); - CCTK_REAL_VEC gt22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); - CCTK_REAL_VEC gt23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); - CCTK_REAL_VEC gt33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); - CCTK_REAL_VEC trKrhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); - CCTK_REAL_VEC At11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); - CCTK_REAL_VEC At12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); - CCTK_REAL_VEC At13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); - CCTK_REAL_VEC At22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); - CCTK_REAL_VEC At23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); - CCTK_REAL_VEC At33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); - CCTK_REAL_VEC Xt1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); - CCTK_REAL_VEC Xt2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); - CCTK_REAL_VEC Xt3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); - CCTK_REAL_VEC alpharhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); - CCTK_REAL_VEC ArhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = 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); - CCTK_REAL_VEC B1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); - CCTK_REAL_VEC B2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); - CCTK_REAL_VEC B3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); - CCTK_REAL_VEC ThetarhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetarhsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_Minkowski.cc b/ML_CCZ4/src/ML_CCZ4_Minkowski.cc index 6c1e349..0a68a2f 100644 --- a/ML_CCZ4/src/ML_CCZ4_Minkowski.cc +++ b/ML_CCZ4/src/ML_CCZ4_Minkowski.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_Minkowski_Body(cGH const * restrict const cctkGH, int const /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_Minkowski_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -199,7 +199,7 @@ static void ML_CCZ4_Minkowski_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -226,57 +226,58 @@ static void ML_CCZ4_Minkowski_Body(cGH const * restrict const cctkGH, int const } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC gt11L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); - CCTK_REAL_VEC gt12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); - CCTK_REAL_VEC gt13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); - CCTK_REAL_VEC gt22L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); - CCTK_REAL_VEC gt23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); - CCTK_REAL_VEC gt33L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); - CCTK_REAL_VEC trKL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); - CCTK_REAL_VEC At11L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); - CCTK_REAL_VEC At12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); - CCTK_REAL_VEC At13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); - CCTK_REAL_VEC At22L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); - CCTK_REAL_VEC At23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); - CCTK_REAL_VEC At33L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); - CCTK_REAL_VEC Xt1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); - CCTK_REAL_VEC Xt2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); - CCTK_REAL_VEC Xt3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); - CCTK_REAL_VEC alphaL = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); - CCTK_REAL_VEC AL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); - CCTK_REAL_VEC beta1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); - CCTK_REAL_VEC beta2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); - CCTK_REAL_VEC beta3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); - CCTK_REAL_VEC B1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); - CCTK_REAL_VEC B2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); - CCTK_REAL_VEC B3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); - CCTK_REAL_VEC ThetaL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetaL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_RHS1.cc b/ML_CCZ4/src/ML_CCZ4_RHS1.cc index 0bf0277..d43b872 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHS1.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHS1.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_RHS1_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_CCZ4::ML_dtlapserhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_dtlapserhs."); @@ -72,108 +72,108 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -187,38 +187,38 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, 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 */ @@ -235,39 +235,39 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC rL = vec_load(r[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -296,7 +296,7 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, eTzzL = ToReal(0.0); } - 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 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) { @@ -332,120 +332,120 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, /* 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 PDstandardNth11beta1; - CCTK_REAL_VEC PDstandardNth22beta1; - CCTK_REAL_VEC PDstandardNth33beta1; - CCTK_REAL_VEC PDstandardNth12beta1; - CCTK_REAL_VEC PDstandardNth13beta1; - CCTK_REAL_VEC PDstandardNth23beta1; - CCTK_REAL_VEC PDstandardNth1beta2; - CCTK_REAL_VEC PDstandardNth2beta2; - CCTK_REAL_VEC PDstandardNth3beta2; - CCTK_REAL_VEC PDstandardNth11beta2; - CCTK_REAL_VEC PDstandardNth22beta2; - CCTK_REAL_VEC PDstandardNth33beta2; - CCTK_REAL_VEC PDstandardNth12beta2; - CCTK_REAL_VEC PDstandardNth13beta2; - CCTK_REAL_VEC PDstandardNth23beta2; - CCTK_REAL_VEC PDstandardNth1beta3; - CCTK_REAL_VEC PDstandardNth2beta3; - CCTK_REAL_VEC PDstandardNth3beta3; - CCTK_REAL_VEC PDstandardNth11beta3; - CCTK_REAL_VEC PDstandardNth22beta3; - CCTK_REAL_VEC PDstandardNth33beta3; - CCTK_REAL_VEC PDstandardNth12beta3; - CCTK_REAL_VEC PDstandardNth13beta3; - CCTK_REAL_VEC PDstandardNth23beta3; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth11gt11; - CCTK_REAL_VEC PDstandardNth22gt11; - CCTK_REAL_VEC PDstandardNth33gt11; - CCTK_REAL_VEC PDstandardNth12gt11; - CCTK_REAL_VEC PDstandardNth13gt11; - CCTK_REAL_VEC PDstandardNth23gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth11gt12; - CCTK_REAL_VEC PDstandardNth22gt12; - CCTK_REAL_VEC PDstandardNth33gt12; - CCTK_REAL_VEC PDstandardNth12gt12; - CCTK_REAL_VEC PDstandardNth13gt12; - CCTK_REAL_VEC PDstandardNth23gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth11gt13; - CCTK_REAL_VEC PDstandardNth22gt13; - CCTK_REAL_VEC PDstandardNth33gt13; - CCTK_REAL_VEC PDstandardNth12gt13; - CCTK_REAL_VEC PDstandardNth13gt13; - CCTK_REAL_VEC PDstandardNth23gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth11gt22; - CCTK_REAL_VEC PDstandardNth22gt22; - CCTK_REAL_VEC PDstandardNth33gt22; - CCTK_REAL_VEC PDstandardNth12gt22; - CCTK_REAL_VEC PDstandardNth13gt22; - CCTK_REAL_VEC PDstandardNth23gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth11gt23; - CCTK_REAL_VEC PDstandardNth22gt23; - CCTK_REAL_VEC PDstandardNth33gt23; - CCTK_REAL_VEC PDstandardNth12gt23; - CCTK_REAL_VEC PDstandardNth13gt23; - CCTK_REAL_VEC PDstandardNth23gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth11gt33; - CCTK_REAL_VEC PDstandardNth22gt33; - CCTK_REAL_VEC PDstandardNth33gt33; - CCTK_REAL_VEC PDstandardNth12gt33; - CCTK_REAL_VEC PDstandardNth13gt33; - CCTK_REAL_VEC PDstandardNth23gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth11phi; - CCTK_REAL_VEC PDstandardNth22phi; - CCTK_REAL_VEC PDstandardNth33phi; - CCTK_REAL_VEC PDstandardNth12phi; - CCTK_REAL_VEC PDstandardNth13phi; - CCTK_REAL_VEC PDstandardNth23phi; - CCTK_REAL_VEC PDstandardNth1Theta; - CCTK_REAL_VEC PDstandardNth2Theta; - CCTK_REAL_VEC PDstandardNth3Theta; - CCTK_REAL_VEC PDstandardNth1trK; - CCTK_REAL_VEC PDstandardNth2trK; - CCTK_REAL_VEC PDstandardNth3trK; - CCTK_REAL_VEC PDstandardNth1Xt1; - CCTK_REAL_VEC PDstandardNth2Xt1; - CCTK_REAL_VEC PDstandardNth3Xt1; - CCTK_REAL_VEC PDstandardNth1Xt2; - CCTK_REAL_VEC PDstandardNth2Xt2; - CCTK_REAL_VEC PDstandardNth3Xt2; - CCTK_REAL_VEC PDstandardNth1Xt3; - CCTK_REAL_VEC PDstandardNth2Xt3; - CCTK_REAL_VEC PDstandardNth3Xt3; + 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 PDstandardNth11beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23beta1 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 PDstandardNth11beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23beta2 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 PDstandardNth11beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -919,156 +919,156 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); - - ptrdiff_t dir2 = kisgn(beta2L); - - ptrdiff_t dir3 = kisgn(beta3L); - - CCTK_REAL_VEC JacPDstandardNth11alpha; - CCTK_REAL_VEC JacPDstandardNth11beta1; - CCTK_REAL_VEC JacPDstandardNth11beta2; - CCTK_REAL_VEC JacPDstandardNth11beta3; - CCTK_REAL_VEC JacPDstandardNth11gt11; - CCTK_REAL_VEC JacPDstandardNth11gt12; - CCTK_REAL_VEC JacPDstandardNth11gt13; - CCTK_REAL_VEC JacPDstandardNth11gt22; - CCTK_REAL_VEC JacPDstandardNth11gt23; - CCTK_REAL_VEC JacPDstandardNth11gt33; - CCTK_REAL_VEC JacPDstandardNth11phi; - CCTK_REAL_VEC JacPDstandardNth12alpha; - CCTK_REAL_VEC JacPDstandardNth12beta1; - CCTK_REAL_VEC JacPDstandardNth12beta2; - CCTK_REAL_VEC JacPDstandardNth12beta3; - CCTK_REAL_VEC JacPDstandardNth12gt11; - CCTK_REAL_VEC JacPDstandardNth12gt12; - CCTK_REAL_VEC JacPDstandardNth12gt13; - CCTK_REAL_VEC JacPDstandardNth12gt22; - CCTK_REAL_VEC JacPDstandardNth12gt23; - CCTK_REAL_VEC JacPDstandardNth12gt33; - CCTK_REAL_VEC JacPDstandardNth12phi; - CCTK_REAL_VEC JacPDstandardNth13alpha; - CCTK_REAL_VEC JacPDstandardNth13beta1; - CCTK_REAL_VEC JacPDstandardNth13beta2; - CCTK_REAL_VEC JacPDstandardNth13beta3; - CCTK_REAL_VEC JacPDstandardNth13gt11; - CCTK_REAL_VEC JacPDstandardNth13gt12; - CCTK_REAL_VEC JacPDstandardNth13gt13; - CCTK_REAL_VEC JacPDstandardNth13gt22; - CCTK_REAL_VEC JacPDstandardNth13gt23; - CCTK_REAL_VEC JacPDstandardNth13gt33; - CCTK_REAL_VEC JacPDstandardNth13phi; - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1beta1; - CCTK_REAL_VEC JacPDstandardNth1beta2; - CCTK_REAL_VEC JacPDstandardNth1beta3; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1Theta; - CCTK_REAL_VEC JacPDstandardNth1trK; - CCTK_REAL_VEC JacPDstandardNth1Xt1; - CCTK_REAL_VEC JacPDstandardNth1Xt2; - CCTK_REAL_VEC JacPDstandardNth1Xt3; - CCTK_REAL_VEC JacPDstandardNth21alpha; - CCTK_REAL_VEC JacPDstandardNth21beta1; - CCTK_REAL_VEC JacPDstandardNth21beta2; - CCTK_REAL_VEC JacPDstandardNth21beta3; - CCTK_REAL_VEC JacPDstandardNth21gt11; - CCTK_REAL_VEC JacPDstandardNth21gt12; - CCTK_REAL_VEC JacPDstandardNth21gt13; - CCTK_REAL_VEC JacPDstandardNth21gt22; - CCTK_REAL_VEC JacPDstandardNth21gt23; - CCTK_REAL_VEC JacPDstandardNth21gt33; - CCTK_REAL_VEC JacPDstandardNth22alpha; - CCTK_REAL_VEC JacPDstandardNth22beta1; - CCTK_REAL_VEC JacPDstandardNth22beta2; - CCTK_REAL_VEC JacPDstandardNth22beta3; - CCTK_REAL_VEC JacPDstandardNth22gt11; - CCTK_REAL_VEC JacPDstandardNth22gt12; - CCTK_REAL_VEC JacPDstandardNth22gt13; - CCTK_REAL_VEC JacPDstandardNth22gt22; - CCTK_REAL_VEC JacPDstandardNth22gt23; - CCTK_REAL_VEC JacPDstandardNth22gt33; - CCTK_REAL_VEC JacPDstandardNth22phi; - CCTK_REAL_VEC JacPDstandardNth23alpha; - CCTK_REAL_VEC JacPDstandardNth23beta1; - CCTK_REAL_VEC JacPDstandardNth23beta2; - CCTK_REAL_VEC JacPDstandardNth23beta3; - CCTK_REAL_VEC JacPDstandardNth23gt11; - CCTK_REAL_VEC JacPDstandardNth23gt12; - CCTK_REAL_VEC JacPDstandardNth23gt13; - CCTK_REAL_VEC JacPDstandardNth23gt22; - CCTK_REAL_VEC JacPDstandardNth23gt23; - CCTK_REAL_VEC JacPDstandardNth23gt33; - CCTK_REAL_VEC JacPDstandardNth23phi; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2beta1; - CCTK_REAL_VEC JacPDstandardNth2beta2; - CCTK_REAL_VEC JacPDstandardNth2beta3; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2Theta; - CCTK_REAL_VEC JacPDstandardNth2trK; - CCTK_REAL_VEC JacPDstandardNth2Xt1; - CCTK_REAL_VEC JacPDstandardNth2Xt2; - CCTK_REAL_VEC JacPDstandardNth2Xt3; - CCTK_REAL_VEC JacPDstandardNth31alpha; - CCTK_REAL_VEC JacPDstandardNth31beta1; - CCTK_REAL_VEC JacPDstandardNth31beta2; - CCTK_REAL_VEC JacPDstandardNth31beta3; - CCTK_REAL_VEC JacPDstandardNth31gt11; - CCTK_REAL_VEC JacPDstandardNth31gt12; - CCTK_REAL_VEC JacPDstandardNth31gt13; - CCTK_REAL_VEC JacPDstandardNth31gt22; - CCTK_REAL_VEC JacPDstandardNth31gt23; - CCTK_REAL_VEC JacPDstandardNth31gt33; - CCTK_REAL_VEC JacPDstandardNth32alpha; - CCTK_REAL_VEC JacPDstandardNth32beta1; - CCTK_REAL_VEC JacPDstandardNth32beta2; - CCTK_REAL_VEC JacPDstandardNth32beta3; - CCTK_REAL_VEC JacPDstandardNth32gt11; - CCTK_REAL_VEC JacPDstandardNth32gt12; - CCTK_REAL_VEC JacPDstandardNth32gt13; - CCTK_REAL_VEC JacPDstandardNth32gt22; - CCTK_REAL_VEC JacPDstandardNth32gt23; - CCTK_REAL_VEC JacPDstandardNth32gt33; - CCTK_REAL_VEC JacPDstandardNth33alpha; - CCTK_REAL_VEC JacPDstandardNth33beta1; - CCTK_REAL_VEC JacPDstandardNth33beta2; - CCTK_REAL_VEC JacPDstandardNth33beta3; - CCTK_REAL_VEC JacPDstandardNth33gt11; - CCTK_REAL_VEC JacPDstandardNth33gt12; - CCTK_REAL_VEC JacPDstandardNth33gt13; - CCTK_REAL_VEC JacPDstandardNth33gt22; - CCTK_REAL_VEC JacPDstandardNth33gt23; - CCTK_REAL_VEC JacPDstandardNth33gt33; - CCTK_REAL_VEC JacPDstandardNth33phi; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3beta1; - CCTK_REAL_VEC JacPDstandardNth3beta2; - CCTK_REAL_VEC JacPDstandardNth3beta3; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3Theta; - CCTK_REAL_VEC JacPDstandardNth3trK; - CCTK_REAL_VEC JacPDstandardNth3Xt1; - CCTK_REAL_VEC JacPDstandardNth3Xt2; - CCTK_REAL_VEC JacPDstandardNth3Xt3; + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + + CCTK_REAL_VEC JacPDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13phi 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 JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23phi 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 JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33phi 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 JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Theta CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1795,375 +1795,387 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtlu111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu111 = kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13))); - CCTK_REAL_VEC Gtlu112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu112 = kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23))); - CCTK_REAL_VEC Gtlu113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu113 = kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33))); - CCTK_REAL_VEC Gtlu121 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu121 = kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13))); - CCTK_REAL_VEC Gtlu122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu122 = kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23))); - CCTK_REAL_VEC Gtlu123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu123 = kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33))); - CCTK_REAL_VEC Gtlu131 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu131 = kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13))); - CCTK_REAL_VEC Gtlu132 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu132 = kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23))); - CCTK_REAL_VEC Gtlu133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu133 = kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33))); - CCTK_REAL_VEC Gtlu211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu211 = kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13))); - CCTK_REAL_VEC Gtlu212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu212 = kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23))); - CCTK_REAL_VEC Gtlu213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu213 = kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33))); - CCTK_REAL_VEC Gtlu221 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu221 = kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13))); - CCTK_REAL_VEC Gtlu222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu222 = kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23))); - CCTK_REAL_VEC Gtlu223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu223 = kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33))); - CCTK_REAL_VEC Gtlu231 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu231 = kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13))); - CCTK_REAL_VEC Gtlu232 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu232 = kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23))); - CCTK_REAL_VEC Gtlu233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu233 = kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33))); - CCTK_REAL_VEC Gtlu311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu311 = kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gtlu312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu312 = kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gtlu313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu313 = kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gtlu321 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu321 = kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gtlu322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu322 = kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gtlu323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu323 = kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gtlu331 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu331 = kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gtlu332 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu332 = kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gtlu333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu333 = kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Xtn1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC g11 = kmul(gt11L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = kmul(gt11L,e4phi); - CCTK_REAL_VEC g12 = kmul(gt12L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = kmul(gt12L,e4phi); - CCTK_REAL_VEC g13 = kmul(gt13L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = kmul(gt13L,e4phi); - CCTK_REAL_VEC g22 = kmul(gt22L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = kmul(gt22L,e4phi); - CCTK_REAL_VEC g23 = kmul(gt23L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = kmul(gt23L,e4phi); - CCTK_REAL_VEC g33 = kmul(gt33L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = kmul(gt33L,e4phi); - CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kmul(em4phi,gtu11); - CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kmul(em4phi,gtu12); - CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kmul(em4phi,gtu13); - CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kmul(em4phi,gtu22); - CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kmul(em4phi,gtu23); - CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kmul(em4phi,gtu33); - CCTK_REAL_VEC Z1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z1 = 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 Z2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z2 = 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 Z3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z3 = 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 Rt11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt11 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt12 = 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 Rt13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt13 = 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 Rt22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt22 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt23 = 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 Rt33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt33 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC fac2 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac2 = IfThen(conformalMethod == 1,kdiv(ToReal(0.5),kmul(phiL,phiL)),ToReal(0)); - CCTK_REAL_VEC cdphi211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi211 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi212 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi213 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi222 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi))))); - CCTK_REAL_VEC cdphi223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi223 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi))))); - CCTK_REAL_VEC cdphi233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi233 = kmsub(fac2,kmul(JacPDstandardNth3phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi))))); - CCTK_REAL_VEC Rphi11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi11 = 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 Rphi12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi12 = 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 Rphi13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi13 = 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 Rphi22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi22 = 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 Rphi23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi23 = 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 Rphi33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi33 = 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 Atm11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC Atm21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC Atm31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC Atm12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC Atm22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC Atm32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC Atm13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC Atm23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC Atm33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC Atu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu11 = kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13))); - CCTK_REAL_VEC Atu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu12 = kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23))); - CCTK_REAL_VEC Atu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu13 = kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33))); - CCTK_REAL_VEC Atu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu22 = kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23))); - CCTK_REAL_VEC Atu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu23 = kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33))); - CCTK_REAL_VEC Atu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atu33 = kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33))); - CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kadd(Rphi11,Rt11); - CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kadd(Rphi12,Rt12); - CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kadd(Rphi13,Rt13); - CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kadd(Rphi22,Rt22); - CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kadd(Rphi23,Rt23); - CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = 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))); @@ -2183,86 +2195,87 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, 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 rho = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rho = 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 S1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S1 = kdiv(kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))),alphaL); - CCTK_REAL_VEC S2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S2 = kdiv(kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))),alphaL); - CCTK_REAL_VEC S3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S3 = kdiv(kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))),alphaL); - CCTK_REAL_VEC trS = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trS = 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 phirhsL = kneg(kmul(IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = + kneg(kmul(IfThen(conformalMethod == 1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3))))); - CCTK_REAL_VEC gt11rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = kmul(ToReal(0.666666666666666666666666666667),kmadd(gt11L,ksub(kmsub(JacPDstandardNth1beta1,ToReal(2),JacPDstandardNth3beta3),JacPDstandardNth2beta2),kmadd(alphaL,kmadd(At11L,kmadd(gt11L,gtu11,ToReal(-3)),kmul(gt11L,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),kmul(kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3)),ToReal(3))))); - CCTK_REAL_VEC gt12rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = kmul(ToReal(0.333333333333333333333333333333),kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmadd(alphaL,kmul(ToReal(2),kmadd(At12L,kmadd(gt12L,kmul(gtu12,ToReal(2)),ToReal(-3)),kmul(gt12L,kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At13L,gtu13,kmul(At23L,gtu23)),ToReal(2)))))))),kmul(kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmul(gt13L,JacPDstandardNth2beta3)))),ToReal(3))))); - CCTK_REAL_VEC gt13rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = kmul(ToReal(0.333333333333333333333333333333),kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmadd(alphaL,kmul(ToReal(2),kmadd(At13L,kmadd(gt13L,kmul(gtu13,ToReal(2)),ToReal(-3)),kmul(gt13L,kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmul(At23L,gtu23)),ToReal(2)))))))),kmul(kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmul(gt12L,JacPDstandardNth3beta2)))),ToReal(3))))); - CCTK_REAL_VEC gt22rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = kmul(ToReal(0.666666666666666666666666666667),knmsub(gt22L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmadd(alphaL,kmadd(At22L,kmadd(gt22L,gtu22,ToReal(-3)),kmul(gt22L,kmadd(At11L,gtu11,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),kmul(kmadd(gt12L,JacPDstandardNth2beta1,kmul(gt23L,JacPDstandardNth2beta3)),ToReal(3))))); - CCTK_REAL_VEC gt23rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = kmul(ToReal(0.333333333333333333333333333333),kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmadd(alphaL,kmul(ToReal(2),kmadd(gt23L,kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmul(At13L,gtu13)),ToReal(2))))),kmul(At23L,kmadd(gt23L,kmul(gtu23,ToReal(2)),ToReal(-3))))),kmul(kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmul(gt22L,JacPDstandardNth3beta2)))),ToReal(3))))); - CCTK_REAL_VEC gt33rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = kmul(ToReal(0.666666666666666666666666666667),knmsub(gt33L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmadd(alphaL,kmadd(At33L,kmadd(gt33L,gtu33,ToReal(-3)),kmul(gt33L,kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))))),kmul(kmadd(gt13L,JacPDstandardNth3beta1,kmul(gt23L,JacPDstandardNth3beta2)),ToReal(3))))); - CCTK_REAL_VEC dotXt1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt1 = kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kadd(JacPDstandardNth13beta3,kmadd(ThetaL,kmul(JacPDstandardNth1alpha,ToReal(-6)),kmul(JacPDstandardNth11beta1,ToReal(4))))),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kadd(JacPDstandardNth23beta3,kmadd(ThetaL,kmul(JacPDstandardNth2alpha,ToReal(-6)),kmul(JacPDstandardNth21beta1,ToReal(4))))),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kadd(JacPDstandardNth33beta3,kmadd(ThetaL,kmul(JacPDstandardNth3alpha,ToReal(-6)),kmul(JacPDstandardNth31beta1,ToReal(4))))),kmadd(e4phi,kmul(kmadd(JacPDstandardNth3beta1,kmul(Z3,ToReal(-6)),kmul(Z1,kmadd(JacPDstandardNth1beta1,ToReal(-2),kmul(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(4))))),ToReal(GammaShift)),kmadd(ToReal(-6),kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmadd(Atu13,JacPDstandardNth3alpha,kmul(e4phi,kmul(JacPDstandardNth2beta1,kmul(Z2,ToReal(GammaShift))))))),kmul(alphaL,kmul(ToReal(2),kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmadd(gtu13,JacPDstandardNth3trK,kmul(trKL,kmul(e4phi,Z1))))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmadd(gtu11,JacPDstandardNth1Theta,kmadd(gtu12,JacPDstandardNth2Theta,kmadd(gtu13,JacPDstandardNth3Theta,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111))))))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmadd(e4phi,kmul(Z1,ToReal(-3*dampk1)),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),ToReal(-24*Pi)))))))))))))))))); - CCTK_REAL_VEC dotXt2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt2 = kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(ThetaL,kmul(JacPDstandardNth1alpha,ToReal(-6)),kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4)))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kadd(JacPDstandardNth23beta3,kmadd(ThetaL,kmul(JacPDstandardNth2alpha,ToReal(-6)),kmul(JacPDstandardNth22beta2,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kadd(JacPDstandardNth33beta3,kmadd(ThetaL,kmul(JacPDstandardNth3alpha,ToReal(-6)),kmul(JacPDstandardNth32beta2,ToReal(4))))),kmadd(e4phi,kmul(kmadd(JacPDstandardNth3beta2,kmul(Z3,ToReal(-6)),kmul(Z2,kmadd(JacPDstandardNth2beta2,ToReal(-2),kmul(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(4))))),ToReal(GammaShift)),kmadd(ToReal(-6),kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmadd(Atu23,JacPDstandardNth3alpha,kmul(e4phi,kmul(JacPDstandardNth1beta2,kmul(Z1,ToReal(GammaShift))))))),kmul(alphaL,kmul(ToReal(2),kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmadd(gtu23,JacPDstandardNth3trK,kmul(trKL,kmul(e4phi,Z2))))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmadd(gtu12,JacPDstandardNth1Theta,kmadd(gtu22,JacPDstandardNth2Theta,kmadd(gtu23,JacPDstandardNth3Theta,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222))))))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmadd(e4phi,kmul(Z2,ToReal(-3*dampk1)),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),ToReal(-24*Pi)))))))))))))))))); - CCTK_REAL_VEC dotXt3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotXt3 = kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(ThetaL,kmul(JacPDstandardNth1alpha,ToReal(-6)),kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4)))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kadd(JacPDstandardNth22beta2,kmadd(ThetaL,kmul(JacPDstandardNth2alpha,ToReal(-6)),kmul(JacPDstandardNth23beta3,ToReal(4))))),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kadd(JacPDstandardNth32beta2,kmadd(ThetaL,kmul(JacPDstandardNth3alpha,ToReal(-6)),kmul(JacPDstandardNth33beta3,ToReal(4))))),kmadd(e4phi,kmul(kmadd(JacPDstandardNth2beta3,kmul(Z2,ToReal(-6)),kmul(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),kmul(Z3,ToReal(4)))),ToReal(GammaShift)),kmadd(ToReal(-6),kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmadd(Atu33,JacPDstandardNth3alpha,kmul(e4phi,kmul(JacPDstandardNth1beta3,kmul(Z1,ToReal(GammaShift))))))),kmadd(JacPDstandardNth3beta3,kmsub(e4phi,kmul(Z3,ToReal(-2*GammaShift)),Xtn3),kmul(ToReal(2),kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmadd(gtu33,JacPDstandardNth3trK,kmul(trKL,kmul(e4phi,Z3))))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmadd(Atu22,Gt322,kmadd(gtu13,JacPDstandardNth1Theta,kmadd(gtu23,JacPDstandardNth2Theta,kmul(gtu33,JacPDstandardNth3Theta))))),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmadd(e4phi,kmul(Z3,ToReal(-3*dampk1)),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),ToReal(-24*Pi))))))))))))))))))); - CCTK_REAL_VEC Xt1rhsL = dotXt1; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = dotXt1; - CCTK_REAL_VEC Xt2rhsL = dotXt2; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = dotXt2; - CCTK_REAL_VEC Xt3rhsL = dotXt3; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = dotXt3; - CCTK_REAL_VEC dotTheta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dotTheta = 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(-8*Pi),kmul(ThetaL,ToReal(dampk1*(2 + dampk2))))),kmul(JacPDstandardNth3alpha,Z3)))); - CCTK_REAL_VEC ThetarhsL = dotTheta; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetarhsL = dotTheta; - CCTK_REAL_VEC dottrK = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dottrK = kmadd(kmadd(JacPDstandardNth1alpha,Z1,dotTheta),ToReal(2),kmadd(JacPDstandardNth2alpha,kmul(Z2,ToReal(2)),kmadd(JacPDstandardNth3alpha,kmul(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(4*Pi),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 trKrhsL = dottrK; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = dottrK; - CCTK_REAL_VEC alpharhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = 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 ArhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = kmul(kadd(dottrK,kmsub(dotTheta,ToReal(-2),kmul(AL,ToReal(AlphaDriver)))),ToReal(LapseACoeff)); - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC beta1rhsL; - CCTK_REAL_VEC beta2rhsL; - CCTK_REAL_VEC beta3rhsL; + CCTK_REAL_VEC beta1rhsL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC beta2rhsL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC beta3rhsL CCTK_ATTRIBUTE_UNUSED ; if (harmonicShift) { @@ -2290,13 +2303,13 @@ static void ML_CCZ4_RHS1_Body(cGH const * restrict const cctkGH, int const dir, + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))); } - CCTK_REAL_VEC B1rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff)); - CCTK_REAL_VEC B2rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff)); - CCTK_REAL_VEC B3rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = 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 3ae9222..8d042f7 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHS2.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHS2.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_RHS2_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_CCZ4::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_curvrhs."); @@ -48,108 +48,108 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -163,38 +163,38 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, 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 */ @@ -211,34 +211,34 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -259,7 +259,7 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, eTzzL = ToReal(0.0); } - 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 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) { @@ -295,96 +295,96 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, /* 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 PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth11gt11; - CCTK_REAL_VEC PDstandardNth22gt11; - CCTK_REAL_VEC PDstandardNth33gt11; - CCTK_REAL_VEC PDstandardNth12gt11; - CCTK_REAL_VEC PDstandardNth13gt11; - CCTK_REAL_VEC PDstandardNth23gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth11gt12; - CCTK_REAL_VEC PDstandardNth22gt12; - CCTK_REAL_VEC PDstandardNth33gt12; - CCTK_REAL_VEC PDstandardNth12gt12; - CCTK_REAL_VEC PDstandardNth13gt12; - CCTK_REAL_VEC PDstandardNth23gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth11gt13; - CCTK_REAL_VEC PDstandardNth22gt13; - CCTK_REAL_VEC PDstandardNth33gt13; - CCTK_REAL_VEC PDstandardNth12gt13; - CCTK_REAL_VEC PDstandardNth13gt13; - CCTK_REAL_VEC PDstandardNth23gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth11gt22; - CCTK_REAL_VEC PDstandardNth22gt22; - CCTK_REAL_VEC PDstandardNth33gt22; - CCTK_REAL_VEC PDstandardNth12gt22; - CCTK_REAL_VEC PDstandardNth13gt22; - CCTK_REAL_VEC PDstandardNth23gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth11gt23; - CCTK_REAL_VEC PDstandardNth22gt23; - CCTK_REAL_VEC PDstandardNth33gt23; - CCTK_REAL_VEC PDstandardNth12gt23; - CCTK_REAL_VEC PDstandardNth13gt23; - CCTK_REAL_VEC PDstandardNth23gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth11gt33; - CCTK_REAL_VEC PDstandardNth22gt33; - CCTK_REAL_VEC PDstandardNth33gt33; - CCTK_REAL_VEC PDstandardNth12gt33; - CCTK_REAL_VEC PDstandardNth13gt33; - CCTK_REAL_VEC PDstandardNth23gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth11phi; - CCTK_REAL_VEC PDstandardNth22phi; - CCTK_REAL_VEC PDstandardNth33phi; - CCTK_REAL_VEC PDstandardNth12phi; - CCTK_REAL_VEC PDstandardNth13phi; - CCTK_REAL_VEC PDstandardNth23phi; - CCTK_REAL_VEC PDstandardNth1Xt1; - CCTK_REAL_VEC PDstandardNth2Xt1; - CCTK_REAL_VEC PDstandardNth3Xt1; - CCTK_REAL_VEC PDstandardNth1Xt2; - CCTK_REAL_VEC PDstandardNth2Xt2; - CCTK_REAL_VEC PDstandardNth3Xt2; - CCTK_REAL_VEC PDstandardNth1Xt3; - CCTK_REAL_VEC PDstandardNth2Xt3; - CCTK_REAL_VEC PDstandardNth3Xt3; + 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 PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -762,120 +762,120 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); - - ptrdiff_t dir2 = kisgn(beta2L); - - ptrdiff_t dir3 = kisgn(beta3L); - - CCTK_REAL_VEC JacPDstandardNth11alpha; - CCTK_REAL_VEC JacPDstandardNth11gt11; - CCTK_REAL_VEC JacPDstandardNth11gt12; - CCTK_REAL_VEC JacPDstandardNth11gt13; - CCTK_REAL_VEC JacPDstandardNth11gt22; - CCTK_REAL_VEC JacPDstandardNth11gt23; - CCTK_REAL_VEC JacPDstandardNth11gt33; - CCTK_REAL_VEC JacPDstandardNth11phi; - CCTK_REAL_VEC JacPDstandardNth12alpha; - CCTK_REAL_VEC JacPDstandardNth12gt11; - CCTK_REAL_VEC JacPDstandardNth12gt12; - CCTK_REAL_VEC JacPDstandardNth12gt13; - CCTK_REAL_VEC JacPDstandardNth12gt22; - CCTK_REAL_VEC JacPDstandardNth12gt23; - CCTK_REAL_VEC JacPDstandardNth12gt33; - CCTK_REAL_VEC JacPDstandardNth12phi; - CCTK_REAL_VEC JacPDstandardNth13alpha; - CCTK_REAL_VEC JacPDstandardNth13gt11; - CCTK_REAL_VEC JacPDstandardNth13gt12; - CCTK_REAL_VEC JacPDstandardNth13gt13; - CCTK_REAL_VEC JacPDstandardNth13gt22; - CCTK_REAL_VEC JacPDstandardNth13gt23; - CCTK_REAL_VEC JacPDstandardNth13gt33; - CCTK_REAL_VEC JacPDstandardNth13phi; - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1beta1; - CCTK_REAL_VEC JacPDstandardNth1beta2; - CCTK_REAL_VEC JacPDstandardNth1beta3; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1Xt1; - CCTK_REAL_VEC JacPDstandardNth1Xt2; - CCTK_REAL_VEC JacPDstandardNth1Xt3; - CCTK_REAL_VEC JacPDstandardNth21gt11; - CCTK_REAL_VEC JacPDstandardNth21gt12; - CCTK_REAL_VEC JacPDstandardNth21gt13; - CCTK_REAL_VEC JacPDstandardNth21gt22; - CCTK_REAL_VEC JacPDstandardNth21gt23; - CCTK_REAL_VEC JacPDstandardNth21gt33; - CCTK_REAL_VEC JacPDstandardNth22alpha; - CCTK_REAL_VEC JacPDstandardNth22gt11; - CCTK_REAL_VEC JacPDstandardNth22gt12; - CCTK_REAL_VEC JacPDstandardNth22gt13; - CCTK_REAL_VEC JacPDstandardNth22gt22; - CCTK_REAL_VEC JacPDstandardNth22gt23; - CCTK_REAL_VEC JacPDstandardNth22gt33; - CCTK_REAL_VEC JacPDstandardNth22phi; - CCTK_REAL_VEC JacPDstandardNth23alpha; - CCTK_REAL_VEC JacPDstandardNth23gt11; - CCTK_REAL_VEC JacPDstandardNth23gt12; - CCTK_REAL_VEC JacPDstandardNth23gt13; - CCTK_REAL_VEC JacPDstandardNth23gt22; - CCTK_REAL_VEC JacPDstandardNth23gt23; - CCTK_REAL_VEC JacPDstandardNth23gt33; - CCTK_REAL_VEC JacPDstandardNth23phi; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2beta1; - CCTK_REAL_VEC JacPDstandardNth2beta2; - CCTK_REAL_VEC JacPDstandardNth2beta3; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2Xt1; - CCTK_REAL_VEC JacPDstandardNth2Xt2; - CCTK_REAL_VEC JacPDstandardNth2Xt3; - CCTK_REAL_VEC JacPDstandardNth31gt11; - CCTK_REAL_VEC JacPDstandardNth31gt12; - CCTK_REAL_VEC JacPDstandardNth31gt13; - CCTK_REAL_VEC JacPDstandardNth31gt22; - CCTK_REAL_VEC JacPDstandardNth31gt23; - CCTK_REAL_VEC JacPDstandardNth31gt33; - CCTK_REAL_VEC JacPDstandardNth32gt11; - CCTK_REAL_VEC JacPDstandardNth32gt12; - CCTK_REAL_VEC JacPDstandardNth32gt13; - CCTK_REAL_VEC JacPDstandardNth32gt22; - CCTK_REAL_VEC JacPDstandardNth32gt23; - CCTK_REAL_VEC JacPDstandardNth32gt33; - CCTK_REAL_VEC JacPDstandardNth33alpha; - CCTK_REAL_VEC JacPDstandardNth33gt11; - CCTK_REAL_VEC JacPDstandardNth33gt12; - CCTK_REAL_VEC JacPDstandardNth33gt13; - CCTK_REAL_VEC JacPDstandardNth33gt22; - CCTK_REAL_VEC JacPDstandardNth33gt23; - CCTK_REAL_VEC JacPDstandardNth33gt33; - CCTK_REAL_VEC JacPDstandardNth33phi; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3beta1; - CCTK_REAL_VEC JacPDstandardNth3beta2; - CCTK_REAL_VEC JacPDstandardNth3beta3; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3Xt1; - CCTK_REAL_VEC JacPDstandardNth3Xt2; - CCTK_REAL_VEC JacPDstandardNth3Xt3; + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + + CCTK_REAL_VEC JacPDstandardNth11alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13phi 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 JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23phi 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 JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33phi 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 JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1422,357 +1422,369 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtlu111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu111 = kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13))); - CCTK_REAL_VEC Gtlu112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu112 = kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23))); - CCTK_REAL_VEC Gtlu113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu113 = kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33))); - CCTK_REAL_VEC Gtlu121 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu121 = kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13))); - CCTK_REAL_VEC Gtlu122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu122 = kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23))); - CCTK_REAL_VEC Gtlu123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu123 = kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33))); - CCTK_REAL_VEC Gtlu131 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu131 = kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13))); - CCTK_REAL_VEC Gtlu132 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu132 = kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23))); - CCTK_REAL_VEC Gtlu133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu133 = kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33))); - CCTK_REAL_VEC Gtlu211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu211 = kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13))); - CCTK_REAL_VEC Gtlu212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu212 = kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23))); - CCTK_REAL_VEC Gtlu213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu213 = kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33))); - CCTK_REAL_VEC Gtlu221 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu221 = kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13))); - CCTK_REAL_VEC Gtlu222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu222 = kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23))); - CCTK_REAL_VEC Gtlu223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu223 = kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33))); - CCTK_REAL_VEC Gtlu231 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu231 = kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13))); - CCTK_REAL_VEC Gtlu232 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu232 = kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23))); - CCTK_REAL_VEC Gtlu233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu233 = kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33))); - CCTK_REAL_VEC Gtlu311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu311 = kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gtlu312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu312 = kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gtlu313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu313 = kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gtlu321 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu321 = kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gtlu322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu322 = kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gtlu323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu323 = kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gtlu331 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu331 = kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gtlu332 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu332 = kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gtlu333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu333 = kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Xtn1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC g11 = kmul(gt11L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = kmul(gt11L,e4phi); - CCTK_REAL_VEC g12 = kmul(gt12L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = kmul(gt12L,e4phi); - CCTK_REAL_VEC g13 = kmul(gt13L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = kmul(gt13L,e4phi); - CCTK_REAL_VEC g22 = kmul(gt22L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = kmul(gt22L,e4phi); - CCTK_REAL_VEC g23 = kmul(gt23L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = kmul(gt23L,e4phi); - CCTK_REAL_VEC g33 = kmul(gt33L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = kmul(gt33L,e4phi); - CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kmul(em4phi,gtu11); - CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kmul(em4phi,gtu12); - CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kmul(em4phi,gtu13); - CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kmul(em4phi,gtu22); - CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kmul(em4phi,gtu23); - CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kmul(em4phi,gtu33); - CCTK_REAL_VEC Z1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z1 = 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 Z2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z2 = 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 Z3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z3 = 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 Rt11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt11 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt12 = 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 Rt13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt13 = 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 Rt22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt22 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt23 = 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 Rt33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt33 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC fac2 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac2 = IfThen(conformalMethod == 1,kdiv(ToReal(0.5),kmul(phiL,phiL)),ToReal(0)); - CCTK_REAL_VEC cdphi211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi211 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi212 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi213 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi222 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi))))); - CCTK_REAL_VEC cdphi223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi223 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi))))); - CCTK_REAL_VEC cdphi233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi233 = kmsub(fac2,kmul(JacPDstandardNth3phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi))))); - CCTK_REAL_VEC Rphi11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi11 = 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 Rphi12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi12 = 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 Rphi13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi13 = 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 Rphi22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi22 = 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 Rphi23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi23 = 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 Rphi33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi33 = 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 Atm11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC Atm21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC Atm31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC Atm12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC Atm22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC Atm32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC Atm13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC Atm23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC Atm33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kadd(Rphi11,Rt11); - CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kadd(Rphi12,Rt12); - CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kadd(Rphi13,Rt13); - CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kadd(Rphi22,Rt22); - CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kadd(Rphi23,Rt23); - CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = 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))); @@ -1792,46 +1804,46 @@ static void ML_CCZ4_RHS2_Body(cGH const * restrict const cctkGH, int const dir, 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 trS = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trS = 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 Ats11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats11 = kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha)))); - CCTK_REAL_VEC Ats12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats12 = 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 Ats13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats13 = 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 Ats22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats22 = kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha)))); - CCTK_REAL_VEC Ats23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats23 = 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 Ats33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Ats33 = kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha)))); - CCTK_REAL_VEC trAts = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trAts = kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2))))); - CCTK_REAL_VEC At11rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = 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(At12L,Atm21,kmul(At13L,Atm31)),ToReal(-2),kmadd(At11L,kmadd(kadd(ThetaL,Atm11),ToReal(-2),trKL),kmul(em4phi,kmul(ToReal(-8),kmul(kmadd(g11,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxxL),ToReal(Pi)))))))))); - CCTK_REAL_VEC At12rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = 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,kmul(At13L,Atm32)),ToReal(-2),kmsub(em4phi,kmul(ToReal(-8),kmul(kmadd(g12,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxyL),ToReal(Pi))),kmul(At12L,kmsub(kadd(ThetaL,Atm22),ToReal(2),trKL))))))))))); - CCTK_REAL_VEC At13rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = 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,kmul(At12L,Atm23)),ToReal(-2),kmsub(em4phi,kmul(ToReal(-8),kmul(kmadd(g13,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTxzL),ToReal(Pi))),kmul(At13L,kmsub(kadd(ThetaL,Atm33),ToReal(2),trKL))))))))))); - CCTK_REAL_VEC At22rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = 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,kmul(At23L,Atm32)),ToReal(-2),kmsub(em4phi,kmul(ToReal(-8),kmul(kmadd(g22,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyyL),ToReal(Pi))),kmul(At22L,kmsub(kadd(ThetaL,Atm22),ToReal(2),trKL)))))))); - CCTK_REAL_VEC At23rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = 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,kmul(At22L,Atm23)),ToReal(-2),kmsub(em4phi,kmul(ToReal(-8),kmul(kmadd(g23,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTyzL),ToReal(Pi))),kmul(At23L,kmsub(kadd(ThetaL,Atm33),ToReal(2),trKL))))))))))); - CCTK_REAL_VEC At33rhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = 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,kmul(At23L,Atm23)),ToReal(-2),kmsub(em4phi,kmul(ToReal(-8),kmul(kmadd(g33,kmul(trS,ToReal(-0.333333333333333333333333333333)),eTzzL),ToReal(Pi))),kmul(At33L,kmsub(kadd(ThetaL,Atm33),ToReal(2),trKL)))))))); /* 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 8afd097..007eae3 100644 --- a/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_RHSStaticBoundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_RHSStaticBoundary_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_CCZ4::ML_curvrhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_curvrhs."); @@ -75,108 +75,108 @@ static void ML_CCZ4_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -190,38 +190,38 @@ static void ML_CCZ4_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, 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 */ @@ -238,7 +238,7 @@ static void ML_CCZ4_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, 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 */ @@ -265,57 +265,57 @@ static void ML_CCZ4_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, in } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phirhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phirhsL = ToReal(0); - CCTK_REAL_VEC gt11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11rhsL = ToReal(0); - CCTK_REAL_VEC gt12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12rhsL = ToReal(0); - CCTK_REAL_VEC gt13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13rhsL = ToReal(0); - CCTK_REAL_VEC gt22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22rhsL = ToReal(0); - CCTK_REAL_VEC gt23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23rhsL = ToReal(0); - CCTK_REAL_VEC gt33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33rhsL = ToReal(0); - CCTK_REAL_VEC trKrhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKrhsL = ToReal(0); - CCTK_REAL_VEC At11rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11rhsL = ToReal(0); - CCTK_REAL_VEC At12rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12rhsL = ToReal(0); - CCTK_REAL_VEC At13rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13rhsL = ToReal(0); - CCTK_REAL_VEC At22rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22rhsL = ToReal(0); - CCTK_REAL_VEC At23rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23rhsL = ToReal(0); - CCTK_REAL_VEC At33rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33rhsL = ToReal(0); - CCTK_REAL_VEC Xt1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1rhsL = ToReal(0); - CCTK_REAL_VEC Xt2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2rhsL = ToReal(0); - CCTK_REAL_VEC Xt3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3rhsL = ToReal(0); - CCTK_REAL_VEC alpharhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpharhsL = ToReal(0); - CCTK_REAL_VEC ArhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ArhsL = 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); - CCTK_REAL_VEC B1rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1rhsL = ToReal(0); - CCTK_REAL_VEC B2rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2rhsL = ToReal(0); - CCTK_REAL_VEC B3rhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3rhsL = ToReal(0); - CCTK_REAL_VEC ThetarhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetarhsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_boundary.cc b/ML_CCZ4/src/ML_CCZ4_boundary.cc index 0e1a583..3fb5fdf 100644 --- a/ML_CCZ4/src/ML_CCZ4_boundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_boundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_boundary_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_CCZ4::ML_curv","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_curv."); @@ -75,108 +75,108 @@ static void ML_CCZ4_boundary_Body(cGH const * restrict const cctkGH, int const d /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -190,38 +190,38 @@ static void ML_CCZ4_boundary_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -238,7 +238,7 @@ static void ML_CCZ4_boundary_Body(cGH const * restrict const cctkGH, int const d 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 */ @@ -265,57 +265,58 @@ static void ML_CCZ4_boundary_Body(cGH const * restrict const cctkGH, int const d } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED phiL = IfThen(conformalMethod == + 1,ToReal(1),ToReal(0)); - CCTK_REAL_VEC gt11L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = ToReal(1); - CCTK_REAL_VEC gt12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = ToReal(0); - CCTK_REAL_VEC gt13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = ToReal(0); - CCTK_REAL_VEC gt22L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = ToReal(1); - CCTK_REAL_VEC gt23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = ToReal(0); - CCTK_REAL_VEC gt33L = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = ToReal(1); - CCTK_REAL_VEC trKL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trKL = ToReal(0); - CCTK_REAL_VEC At11L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = ToReal(0); - CCTK_REAL_VEC At12L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = ToReal(0); - CCTK_REAL_VEC At13L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = ToReal(0); - CCTK_REAL_VEC At22L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = ToReal(0); - CCTK_REAL_VEC At23L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = ToReal(0); - CCTK_REAL_VEC At33L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = ToReal(0); - CCTK_REAL_VEC Xt1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = ToReal(0); - CCTK_REAL_VEC Xt2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = ToReal(0); - CCTK_REAL_VEC Xt3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = ToReal(0); - CCTK_REAL_VEC alphaL = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = ToReal(1); - CCTK_REAL_VEC AL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = ToReal(0); - CCTK_REAL_VEC beta1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = ToReal(0); - CCTK_REAL_VEC beta2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = ToReal(0); - CCTK_REAL_VEC beta3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = ToReal(0); - CCTK_REAL_VEC B1L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B1L = ToReal(0); - CCTK_REAL_VEC B2L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B2L = ToReal(0); - CCTK_REAL_VEC B3L = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED B3L = ToReal(0); - CCTK_REAL_VEC ThetaL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetaL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_constraints1.cc b/ML_CCZ4/src/ML_CCZ4_constraints1.cc index 9791001..ca1512d 100644 --- a/ML_CCZ4/src/ML_CCZ4_constraints1.cc +++ b/ML_CCZ4/src/ML_CCZ4_constraints1.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_constraints1_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_CCZ4::ML_Ham","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_Ham."); @@ -48,108 +48,108 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -163,38 +163,38 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con 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 */ @@ -211,33 +211,33 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -266,7 +266,7 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con eTzzL = ToReal(0.0); } - 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 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) { @@ -302,78 +302,78 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth11gt11; - CCTK_REAL_VEC PDstandardNth22gt11; - CCTK_REAL_VEC PDstandardNth33gt11; - CCTK_REAL_VEC PDstandardNth12gt11; - CCTK_REAL_VEC PDstandardNth13gt11; - CCTK_REAL_VEC PDstandardNth23gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth11gt12; - CCTK_REAL_VEC PDstandardNth22gt12; - CCTK_REAL_VEC PDstandardNth33gt12; - CCTK_REAL_VEC PDstandardNth12gt12; - CCTK_REAL_VEC PDstandardNth13gt12; - CCTK_REAL_VEC PDstandardNth23gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth11gt13; - CCTK_REAL_VEC PDstandardNth22gt13; - CCTK_REAL_VEC PDstandardNth33gt13; - CCTK_REAL_VEC PDstandardNth12gt13; - CCTK_REAL_VEC PDstandardNth13gt13; - CCTK_REAL_VEC PDstandardNth23gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth11gt22; - CCTK_REAL_VEC PDstandardNth22gt22; - CCTK_REAL_VEC PDstandardNth33gt22; - CCTK_REAL_VEC PDstandardNth12gt22; - CCTK_REAL_VEC PDstandardNth13gt22; - CCTK_REAL_VEC PDstandardNth23gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth11gt23; - CCTK_REAL_VEC PDstandardNth22gt23; - CCTK_REAL_VEC PDstandardNth33gt23; - CCTK_REAL_VEC PDstandardNth12gt23; - CCTK_REAL_VEC PDstandardNth13gt23; - CCTK_REAL_VEC PDstandardNth23gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth11gt33; - CCTK_REAL_VEC PDstandardNth22gt33; - CCTK_REAL_VEC PDstandardNth33gt33; - CCTK_REAL_VEC PDstandardNth12gt33; - CCTK_REAL_VEC PDstandardNth13gt33; - CCTK_REAL_VEC PDstandardNth23gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth11phi; - CCTK_REAL_VEC PDstandardNth22phi; - CCTK_REAL_VEC PDstandardNth33phi; - CCTK_REAL_VEC PDstandardNth12phi; - CCTK_REAL_VEC PDstandardNth13phi; - CCTK_REAL_VEC PDstandardNth23phi; - CCTK_REAL_VEC PDstandardNth1Xt1; - CCTK_REAL_VEC PDstandardNth2Xt1; - CCTK_REAL_VEC PDstandardNth3Xt1; - CCTK_REAL_VEC PDstandardNth1Xt2; - CCTK_REAL_VEC PDstandardNth2Xt2; - CCTK_REAL_VEC PDstandardNth3Xt2; - CCTK_REAL_VEC PDstandardNth1Xt3; - CCTK_REAL_VEC PDstandardNth2Xt3; - CCTK_REAL_VEC PDstandardNth3Xt3; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -679,96 +679,96 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDstandardNth11gt11; - CCTK_REAL_VEC JacPDstandardNth11gt12; - CCTK_REAL_VEC JacPDstandardNth11gt13; - CCTK_REAL_VEC JacPDstandardNth11gt22; - CCTK_REAL_VEC JacPDstandardNth11gt23; - CCTK_REAL_VEC JacPDstandardNth11gt33; - CCTK_REAL_VEC JacPDstandardNth11phi; - CCTK_REAL_VEC JacPDstandardNth12gt11; - CCTK_REAL_VEC JacPDstandardNth12gt12; - CCTK_REAL_VEC JacPDstandardNth12gt13; - CCTK_REAL_VEC JacPDstandardNth12gt22; - CCTK_REAL_VEC JacPDstandardNth12gt23; - CCTK_REAL_VEC JacPDstandardNth12gt33; - CCTK_REAL_VEC JacPDstandardNth12phi; - CCTK_REAL_VEC JacPDstandardNth13gt11; - CCTK_REAL_VEC JacPDstandardNth13gt12; - CCTK_REAL_VEC JacPDstandardNth13gt13; - CCTK_REAL_VEC JacPDstandardNth13gt22; - CCTK_REAL_VEC JacPDstandardNth13gt23; - CCTK_REAL_VEC JacPDstandardNth13gt33; - CCTK_REAL_VEC JacPDstandardNth13phi; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1Xt1; - CCTK_REAL_VEC JacPDstandardNth1Xt2; - CCTK_REAL_VEC JacPDstandardNth1Xt3; - CCTK_REAL_VEC JacPDstandardNth21gt11; - CCTK_REAL_VEC JacPDstandardNth21gt12; - CCTK_REAL_VEC JacPDstandardNth21gt13; - CCTK_REAL_VEC JacPDstandardNth21gt22; - CCTK_REAL_VEC JacPDstandardNth21gt23; - CCTK_REAL_VEC JacPDstandardNth21gt33; - CCTK_REAL_VEC JacPDstandardNth22gt11; - CCTK_REAL_VEC JacPDstandardNth22gt12; - CCTK_REAL_VEC JacPDstandardNth22gt13; - CCTK_REAL_VEC JacPDstandardNth22gt22; - CCTK_REAL_VEC JacPDstandardNth22gt23; - CCTK_REAL_VEC JacPDstandardNth22gt33; - CCTK_REAL_VEC JacPDstandardNth22phi; - CCTK_REAL_VEC JacPDstandardNth23gt11; - CCTK_REAL_VEC JacPDstandardNth23gt12; - CCTK_REAL_VEC JacPDstandardNth23gt13; - CCTK_REAL_VEC JacPDstandardNth23gt22; - CCTK_REAL_VEC JacPDstandardNth23gt23; - CCTK_REAL_VEC JacPDstandardNth23gt33; - CCTK_REAL_VEC JacPDstandardNth23phi; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2Xt1; - CCTK_REAL_VEC JacPDstandardNth2Xt2; - CCTK_REAL_VEC JacPDstandardNth2Xt3; - CCTK_REAL_VEC JacPDstandardNth31gt11; - CCTK_REAL_VEC JacPDstandardNth31gt12; - CCTK_REAL_VEC JacPDstandardNth31gt13; - CCTK_REAL_VEC JacPDstandardNth31gt22; - CCTK_REAL_VEC JacPDstandardNth31gt23; - CCTK_REAL_VEC JacPDstandardNth31gt33; - CCTK_REAL_VEC JacPDstandardNth32gt11; - CCTK_REAL_VEC JacPDstandardNth32gt12; - CCTK_REAL_VEC JacPDstandardNth32gt13; - CCTK_REAL_VEC JacPDstandardNth32gt22; - CCTK_REAL_VEC JacPDstandardNth32gt23; - CCTK_REAL_VEC JacPDstandardNth32gt33; - CCTK_REAL_VEC JacPDstandardNth33gt11; - CCTK_REAL_VEC JacPDstandardNth33gt12; - CCTK_REAL_VEC JacPDstandardNth33gt13; - CCTK_REAL_VEC JacPDstandardNth33gt22; - CCTK_REAL_VEC JacPDstandardNth33gt23; - CCTK_REAL_VEC JacPDstandardNth33gt33; - CCTK_REAL_VEC JacPDstandardNth33phi; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3Xt1; - CCTK_REAL_VEC JacPDstandardNth3Xt2; - CCTK_REAL_VEC JacPDstandardNth3Xt3; + CCTK_REAL_VEC JacPDstandardNth11gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth11phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth12phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth13phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth21gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth22phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth23phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2Xt3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth31gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth32gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth33phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3Xt3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -1225,330 +1225,342 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con JacPDstandardNth32gt33 = PDstandardNth23gt33; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtlu111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu111 = kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13))); - CCTK_REAL_VEC Gtlu112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu112 = kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23))); - CCTK_REAL_VEC Gtlu113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu113 = kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33))); - CCTK_REAL_VEC Gtlu121 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu121 = kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13))); - CCTK_REAL_VEC Gtlu122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu122 = kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23))); - CCTK_REAL_VEC Gtlu123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu123 = kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33))); - CCTK_REAL_VEC Gtlu131 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu131 = kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13))); - CCTK_REAL_VEC Gtlu132 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu132 = kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23))); - CCTK_REAL_VEC Gtlu133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu133 = kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33))); - CCTK_REAL_VEC Gtlu211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu211 = kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13))); - CCTK_REAL_VEC Gtlu212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu212 = kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23))); - CCTK_REAL_VEC Gtlu213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu213 = kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33))); - CCTK_REAL_VEC Gtlu221 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu221 = kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13))); - CCTK_REAL_VEC Gtlu222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu222 = kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23))); - CCTK_REAL_VEC Gtlu223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu223 = kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33))); - CCTK_REAL_VEC Gtlu231 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu231 = kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13))); - CCTK_REAL_VEC Gtlu232 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu232 = kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23))); - CCTK_REAL_VEC Gtlu233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu233 = kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33))); - CCTK_REAL_VEC Gtlu311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu311 = kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gtlu312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu312 = kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gtlu313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu313 = kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gtlu321 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu321 = kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gtlu322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu322 = kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gtlu323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu323 = kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gtlu331 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu331 = kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gtlu332 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu332 = kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gtlu333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtlu333 = kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC Xtn1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn1 = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn2 = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xtn3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xtn3 = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); - CCTK_REAL_VEC em4phi = kdiv(ToReal(1),e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED em4phi = kdiv(ToReal(1),e4phi); - CCTK_REAL_VEC g11 = kmul(gt11L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = kmul(gt11L,e4phi); - CCTK_REAL_VEC g12 = kmul(gt12L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = kmul(gt12L,e4phi); - CCTK_REAL_VEC g13 = kmul(gt13L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = kmul(gt13L,e4phi); - CCTK_REAL_VEC g22 = kmul(gt22L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = kmul(gt22L,e4phi); - CCTK_REAL_VEC g23 = kmul(gt23L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = kmul(gt23L,e4phi); - CCTK_REAL_VEC g33 = kmul(gt33L,e4phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = kmul(gt33L,e4phi); - CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = kmul(em4phi,gtu11); - CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = kmul(em4phi,gtu12); - CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = kmul(em4phi,gtu13); - CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = kmul(em4phi,gtu22); - CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = kmul(em4phi,gtu23); - CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = kmul(em4phi,gtu33); - CCTK_REAL_VEC Z1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z1 = 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 Z2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z2 = 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 Z3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Z3 = 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 Rt11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt11 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt12 = 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 Rt13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt13 = 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 Rt22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt22 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC Rt23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt23 = 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 Rt33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rt33 = kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6)))))))))))))))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC fac2 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac2 = IfThen(conformalMethod == 1,kdiv(ToReal(0.5),kmul(phiL,phiL)),ToReal(0)); - CCTK_REAL_VEC cdphi211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi211 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi212 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi213 = kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi)))))); - CCTK_REAL_VEC cdphi222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi222 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi))))); - CCTK_REAL_VEC cdphi223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi223 = kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi))))); - CCTK_REAL_VEC cdphi233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi233 = kmsub(fac2,kmul(JacPDstandardNth3phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi))))); - CCTK_REAL_VEC Rphi11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi11 = 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 Rphi12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi12 = 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 Rphi13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi13 = 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 Rphi22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi22 = 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 Rphi23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi23 = 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 Rphi33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Rphi33 = 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 R11 = kadd(Rphi11,Rt11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R11 = kadd(Rphi11,Rt11); - CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R12 = kadd(Rphi12,Rt12); - CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R13 = kadd(Rphi13,Rt13); - CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R22 = kadd(Rphi22,Rt22); - CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R23 = kadd(Rphi23,Rt23); - CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED R33 = kadd(Rphi33,Rt33); 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)); @@ -1568,40 +1580,40 @@ static void ML_CCZ4_constraints1_Body(cGH const * restrict const cctkGH, int con 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 trR = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trR = kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2))))); - CCTK_REAL_VEC Atm11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm11 = kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13))); - CCTK_REAL_VEC Atm21 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm21 = kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23))); - CCTK_REAL_VEC Atm31 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm31 = kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33))); - CCTK_REAL_VEC Atm12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm12 = kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13))); - CCTK_REAL_VEC Atm22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm22 = kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23))); - CCTK_REAL_VEC Atm32 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm32 = kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33))); - CCTK_REAL_VEC Atm13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm13 = kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13))); - CCTK_REAL_VEC Atm23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm23 = kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23))); - CCTK_REAL_VEC Atm33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Atm33 = kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33))); - CCTK_REAL_VEC rho = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rho = 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 HL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED HL = 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(-16*Pi)))))))); /* 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 d543718..6a5d0b0 100644 --- a/ML_CCZ4/src/ML_CCZ4_constraints2.cc +++ b/ML_CCZ4/src/ML_CCZ4_constraints2.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_constraints2_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_CCZ4::ML_cons_detg","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_cons_detg."); @@ -57,108 +57,108 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -172,38 +172,38 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con 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 */ @@ -220,33 +220,33 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); - - CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL; + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); + + CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL CCTK_ATTRIBUTE_UNUSED ; if (*stress_energy_state) { @@ -273,7 +273,7 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con eTzzL = ToReal(0.0); } - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -291,48 +291,48 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1At11; - CCTK_REAL_VEC PDstandardNth2At11; - CCTK_REAL_VEC PDstandardNth3At11; - CCTK_REAL_VEC PDstandardNth1At12; - CCTK_REAL_VEC PDstandardNth2At12; - CCTK_REAL_VEC PDstandardNth3At12; - CCTK_REAL_VEC PDstandardNth1At13; - CCTK_REAL_VEC PDstandardNth2At13; - CCTK_REAL_VEC PDstandardNth3At13; - CCTK_REAL_VEC PDstandardNth1At22; - CCTK_REAL_VEC PDstandardNth2At22; - CCTK_REAL_VEC PDstandardNth3At22; - CCTK_REAL_VEC PDstandardNth1At23; - CCTK_REAL_VEC PDstandardNth2At23; - CCTK_REAL_VEC PDstandardNth3At23; - CCTK_REAL_VEC PDstandardNth1At33; - CCTK_REAL_VEC PDstandardNth2At33; - CCTK_REAL_VEC PDstandardNth3At33; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; - CCTK_REAL_VEC PDstandardNth1trK; - CCTK_REAL_VEC PDstandardNth2trK; - CCTK_REAL_VEC PDstandardNth3trK; + CCTK_REAL_VEC PDstandardNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -518,48 +518,48 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC JacPDstandardNth1At11; - CCTK_REAL_VEC JacPDstandardNth1At12; - CCTK_REAL_VEC JacPDstandardNth1At13; - CCTK_REAL_VEC JacPDstandardNth1At22; - CCTK_REAL_VEC JacPDstandardNth1At23; - CCTK_REAL_VEC JacPDstandardNth1At33; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth1trK; - CCTK_REAL_VEC JacPDstandardNth2At11; - CCTK_REAL_VEC JacPDstandardNth2At12; - CCTK_REAL_VEC JacPDstandardNth2At13; - CCTK_REAL_VEC JacPDstandardNth2At22; - CCTK_REAL_VEC JacPDstandardNth2At23; - CCTK_REAL_VEC JacPDstandardNth2At33; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth2trK; - CCTK_REAL_VEC JacPDstandardNth3At11; - CCTK_REAL_VEC JacPDstandardNth3At12; - CCTK_REAL_VEC JacPDstandardNth3At13; - CCTK_REAL_VEC JacPDstandardNth3At22; - CCTK_REAL_VEC JacPDstandardNth3At23; - CCTK_REAL_VEC JacPDstandardNth3At33; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDstandardNth3trK; + CCTK_REAL_VEC JacPDstandardNth1At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2trK CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3At33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3trK CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -776,164 +776,176 @@ static void ML_CCZ4_constraints2_Body(cGH const * restrict const cctkGH, int con JacPDstandardNth3trK = PDstandardNth3trK; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl111 = + kmul(JacPDstandardNth1gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl112 = + kmul(JacPDstandardNth2gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl113 = + kmul(JacPDstandardNth3gt11,ToReal(0.5)); - CCTK_REAL_VEC Gtl122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl122 = kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12); - CCTK_REAL_VEC Gtl123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl123 = kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5)); - CCTK_REAL_VEC Gtl133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl133 = kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13); - CCTK_REAL_VEC Gtl211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl211 = kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12); - CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl212 = + kmul(JacPDstandardNth1gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl213 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5)); - CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl222 = + kmul(JacPDstandardNth2gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl223 = + kmul(JacPDstandardNth3gt22,ToReal(0.5)); - CCTK_REAL_VEC Gtl233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl233 = kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23); - CCTK_REAL_VEC Gtl311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl311 = kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13); - CCTK_REAL_VEC Gtl312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl312 = kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5)); - CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl313 = + kmul(JacPDstandardNth1gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl322 = kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23); - CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl323 = + kmul(JacPDstandardNth2gt33,ToReal(0.5)); - CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gtl333 = + kmul(JacPDstandardNth3gt33,ToReal(0.5)); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13))); - CCTK_REAL_VEC Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23))); - CCTK_REAL_VEC Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33))); - CCTK_REAL_VEC Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13))); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23))); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33))); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13))); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23))); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33))); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13))); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23))); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33))); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33))); - CCTK_REAL_VEC fac1 = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED fac1 = IfThen(conformalMethod == 1,kdiv(ToReal(-0.5),phiL),ToReal(1)); - CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi1 = + kmul(fac1,JacPDstandardNth1phi); - CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi2 = + kmul(fac1,JacPDstandardNth2phi); - CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cdphi3 = + kmul(fac1,JacPDstandardNth3phi); - CCTK_REAL_VEC S1 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S1 = kdiv(kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))),alphaL); - CCTK_REAL_VEC S2 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S2 = kdiv(kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))),alphaL); - CCTK_REAL_VEC S3 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED S3 = kdiv(kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))),alphaL); - CCTK_REAL_VEC M1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M1L = 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(-8*Pi)))))))))))))))))))); - CCTK_REAL_VEC M2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M2L = 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(-8*Pi))))))))))))))))))))))))))))); - CCTK_REAL_VEC M3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED M3L = 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(-8*Pi))))))))))))))))))))))))))))); - CCTK_REAL_VEC cSL = klog(detgt); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cSL = klog(detgt); - CCTK_REAL_VEC cXt1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt1L = 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 cXt2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt2L = 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 cXt3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cXt3L = 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 cAL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED cAL = 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 1e0e4c3..29914ba 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertFromADMBase.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_convertFromADMBase_Body(cGH const * restrict const cctkGH, i /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_convertFromADMBase_Body(cGH const * restrict const cctkGH, i 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 */ @@ -199,28 +199,28 @@ static void ML_CCZ4_convertFromADMBase_Body(cGH const * restrict const cctkGH, i 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 alpL = vec_load(alp[index]); - CCTK_REAL_VEC betaxL = vec_load(betax[index]); - CCTK_REAL_VEC betayL = vec_load(betay[index]); - CCTK_REAL_VEC betazL = vec_load(betaz[index]); - CCTK_REAL_VEC gxxL = vec_load(gxx[index]); - CCTK_REAL_VEC gxyL = vec_load(gxy[index]); - CCTK_REAL_VEC gxzL = vec_load(gxz[index]); - CCTK_REAL_VEC gyyL = vec_load(gyy[index]); - CCTK_REAL_VEC gyzL = vec_load(gyz[index]); - CCTK_REAL_VEC gzzL = vec_load(gzz[index]); - CCTK_REAL_VEC kxxL = vec_load(kxx[index]); - CCTK_REAL_VEC kxyL = vec_load(kxy[index]); - CCTK_REAL_VEC kxzL = vec_load(kxz[index]); - CCTK_REAL_VEC kyyL = vec_load(kyy[index]); - CCTK_REAL_VEC kyzL = vec_load(kyz[index]); - CCTK_REAL_VEC kzzL = vec_load(kzz[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); + CCTK_REAL_VEC alpL CCTK_ATTRIBUTE_UNUSED = vec_load(alp[index]); + CCTK_REAL_VEC betaxL CCTK_ATTRIBUTE_UNUSED = vec_load(betax[index]); + CCTK_REAL_VEC betayL CCTK_ATTRIBUTE_UNUSED = vec_load(betay[index]); + CCTK_REAL_VEC betazL CCTK_ATTRIBUTE_UNUSED = vec_load(betaz[index]); + CCTK_REAL_VEC gxxL CCTK_ATTRIBUTE_UNUSED = vec_load(gxx[index]); + CCTK_REAL_VEC gxyL CCTK_ATTRIBUTE_UNUSED = vec_load(gxy[index]); + CCTK_REAL_VEC gxzL CCTK_ATTRIBUTE_UNUSED = vec_load(gxz[index]); + CCTK_REAL_VEC gyyL CCTK_ATTRIBUTE_UNUSED = vec_load(gyy[index]); + CCTK_REAL_VEC gyzL CCTK_ATTRIBUTE_UNUSED = vec_load(gyz[index]); + CCTK_REAL_VEC gzzL CCTK_ATTRIBUTE_UNUSED = vec_load(gzz[index]); + CCTK_REAL_VEC kxxL CCTK_ATTRIBUTE_UNUSED = vec_load(kxx[index]); + CCTK_REAL_VEC kxyL CCTK_ATTRIBUTE_UNUSED = vec_load(kxy[index]); + CCTK_REAL_VEC kxzL CCTK_ATTRIBUTE_UNUSED = vec_load(kxz[index]); + CCTK_REAL_VEC kyyL CCTK_ATTRIBUTE_UNUSED = vec_load(kyy[index]); + CCTK_REAL_VEC kyzL CCTK_ATTRIBUTE_UNUSED = vec_load(kyz[index]); + CCTK_REAL_VEC kzzL CCTK_ATTRIBUTE_UNUSED = vec_load(kzz[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); @@ -244,34 +244,40 @@ static void ML_CCZ4_convertFromADMBase_Body(cGH const * restrict const cctkGH, i } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC g11 = gxxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g11 = gxxL; - CCTK_REAL_VEC g12 = gxyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g12 = gxyL; - CCTK_REAL_VEC g13 = gxzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g13 = gxzL; - CCTK_REAL_VEC g22 = gyyL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g22 = gyyL; - CCTK_REAL_VEC g23 = gyzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g23 = gyzL; - CCTK_REAL_VEC g33 = gzzL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED g33 = gzzL; - CCTK_REAL_VEC detg = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detg = 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 gu11 = kdiv(kmsub(g22,g33,kmul(g23,g23)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu11 = + kdiv(kmsub(g22,g33,kmul(g23,g23)),detg); - CCTK_REAL_VEC gu12 = kdiv(kmsub(g13,g23,kmul(g12,g33)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu12 = + kdiv(kmsub(g13,g23,kmul(g12,g33)),detg); - CCTK_REAL_VEC gu13 = kdiv(kmsub(g12,g23,kmul(g13,g22)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu13 = + kdiv(kmsub(g12,g23,kmul(g13,g22)),detg); - CCTK_REAL_VEC gu22 = kdiv(kmsub(g11,g33,kmul(g13,g13)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu22 = + kdiv(kmsub(g11,g33,kmul(g13,g13)),detg); - CCTK_REAL_VEC gu23 = kdiv(kmsub(g12,g13,kmul(g11,g23)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu23 = + kdiv(kmsub(g12,g13,kmul(g11,g23)),detg); - CCTK_REAL_VEC gu33 = kdiv(kmsub(g11,g22,kmul(g12,g12)),detg); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gu33 = + kdiv(kmsub(g11,g22,kmul(g12,g12)),detg); - CCTK_REAL_VEC em4phi; + CCTK_REAL_VEC em4phi CCTK_ATTRIBUTE_UNUSED ; if (conformalMethod == 1) { @@ -286,48 +292,48 @@ static void ML_CCZ4_convertFromADMBase_Body(cGH const * restrict const cctkGH, i em4phi = kexp(kmul(phiL,ToReal(-4))); } - CCTK_REAL_VEC gt11L = kmul(em4phi,g11); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt11L = kmul(em4phi,g11); - CCTK_REAL_VEC gt12L = kmul(em4phi,g12); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt12L = kmul(em4phi,g12); - CCTK_REAL_VEC gt13L = kmul(em4phi,g13); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt13L = kmul(em4phi,g13); - CCTK_REAL_VEC gt22L = kmul(em4phi,g22); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt22L = kmul(em4phi,g22); - CCTK_REAL_VEC gt23L = kmul(em4phi,g23); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt23L = kmul(em4phi,g23); - CCTK_REAL_VEC gt33L = kmul(em4phi,g33); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gt33L = 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 At11L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At11L = kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL)); - CCTK_REAL_VEC At12L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At12L = kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL)); - CCTK_REAL_VEC At13L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At13L = kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL)); - CCTK_REAL_VEC At22L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At22L = kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL)); - CCTK_REAL_VEC At23L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At23L = kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL)); - CCTK_REAL_VEC At33L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED At33L = kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL)); - CCTK_REAL_VEC alphaL = alpL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alphaL = alpL; - CCTK_REAL_VEC beta1L = betaxL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta1L = betaxL; - CCTK_REAL_VEC beta2L = betayL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta2L = betayL; - CCTK_REAL_VEC beta3L = betazL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED beta3L = betazL; - CCTK_REAL_VEC ThetaL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED ThetaL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc b/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc index 5c1af61..b51c704 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertFromADMBaseGamma.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_convertFromADMBaseGamma_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_CCZ4::ML_dtlapse","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_CCZ4::ML_dtlapse."); @@ -54,108 +54,108 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(cGH const * restrict const cctk /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -169,38 +169,38 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(cGH const * restrict const cctk 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 */ @@ -217,28 +217,28 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(cGH const * restrict const cctk 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 dtalpL = vec_load(dtalp[index]); - CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]); - CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]); - CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC rL = vec_load(r[index]); - - - CCTK_REAL_VEC 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 dtalpL CCTK_ATTRIBUTE_UNUSED = vec_load(dtalp[index]); + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED = vec_load(dtbetax[index]); + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED = vec_load(dtbetay[index]); + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED = vec_load(dtbetaz[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + + + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -256,48 +256,48 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(cGH const * restrict const cctk /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDupwindNthAnti1alpha; - CCTK_REAL_VEC PDupwindNthSymm1alpha; - CCTK_REAL_VEC PDupwindNthAnti2alpha; - CCTK_REAL_VEC PDupwindNthSymm2alpha; - CCTK_REAL_VEC PDupwindNthAnti3alpha; - CCTK_REAL_VEC PDupwindNthSymm3alpha; - CCTK_REAL_VEC PDupwindNthAnti1beta1; - CCTK_REAL_VEC PDupwindNthSymm1beta1; - CCTK_REAL_VEC PDupwindNthAnti2beta1; - CCTK_REAL_VEC PDupwindNthSymm2beta1; - CCTK_REAL_VEC PDupwindNthAnti3beta1; - CCTK_REAL_VEC PDupwindNthSymm3beta1; - CCTK_REAL_VEC PDupwindNthAnti1beta2; - CCTK_REAL_VEC PDupwindNthSymm1beta2; - CCTK_REAL_VEC PDupwindNthAnti2beta2; - CCTK_REAL_VEC PDupwindNthSymm2beta2; - CCTK_REAL_VEC PDupwindNthAnti3beta2; - CCTK_REAL_VEC PDupwindNthSymm3beta2; - CCTK_REAL_VEC PDupwindNthAnti1beta3; - CCTK_REAL_VEC PDupwindNthSymm1beta3; - CCTK_REAL_VEC PDupwindNthAnti2beta3; - CCTK_REAL_VEC PDupwindNthSymm2beta3; - CCTK_REAL_VEC PDupwindNthAnti3beta3; - CCTK_REAL_VEC PDupwindNthSymm3beta3; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; + CCTK_REAL_VEC PDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -483,54 +483,54 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(cGH const * restrict const cctk } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); - - ptrdiff_t dir2 = kisgn(beta2L); - - ptrdiff_t dir3 = kisgn(beta3L); - - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDupwindNthAnti1alpha; - CCTK_REAL_VEC JacPDupwindNthAnti1beta1; - CCTK_REAL_VEC JacPDupwindNthAnti1beta2; - CCTK_REAL_VEC JacPDupwindNthAnti1beta3; - CCTK_REAL_VEC JacPDupwindNthAnti2alpha; - CCTK_REAL_VEC JacPDupwindNthAnti2beta1; - CCTK_REAL_VEC JacPDupwindNthAnti2beta2; - CCTK_REAL_VEC JacPDupwindNthAnti2beta3; - CCTK_REAL_VEC JacPDupwindNthAnti3alpha; - CCTK_REAL_VEC JacPDupwindNthAnti3beta1; - CCTK_REAL_VEC JacPDupwindNthAnti3beta2; - CCTK_REAL_VEC JacPDupwindNthAnti3beta3; - CCTK_REAL_VEC JacPDupwindNthSymm1alpha; - CCTK_REAL_VEC JacPDupwindNthSymm1beta1; - CCTK_REAL_VEC JacPDupwindNthSymm1beta2; - CCTK_REAL_VEC JacPDupwindNthSymm1beta3; - CCTK_REAL_VEC JacPDupwindNthSymm2alpha; - CCTK_REAL_VEC JacPDupwindNthSymm2beta1; - CCTK_REAL_VEC JacPDupwindNthSymm2beta2; - CCTK_REAL_VEC JacPDupwindNthSymm2beta3; - CCTK_REAL_VEC JacPDupwindNthSymm3alpha; - CCTK_REAL_VEC JacPDupwindNthSymm3beta1; - CCTK_REAL_VEC JacPDupwindNthSymm3beta2; - CCTK_REAL_VEC JacPDupwindNthSymm3beta3; + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); + + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); + + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -747,98 +747,98 @@ static void ML_CCZ4_convertFromADMBaseGamma_Body(cGH const * restrict const cctk JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC Gt111 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt111 = 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 Gt211 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt211 = 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 Gt311 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt311 = 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 Gt112 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt112 = kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC Gt212 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt212 = kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC Gt312 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt312 = kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5)); - CCTK_REAL_VEC Gt113 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt113 = kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC Gt213 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt213 = kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC Gt313 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt313 = kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5)); - CCTK_REAL_VEC Gt122 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt122 = kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC Gt222 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt222 = kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC Gt322 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt322 = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22))))); - CCTK_REAL_VEC Gt123 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt123 = kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC Gt223 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt223 = kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC Gt323 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt323 = kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5)); - CCTK_REAL_VEC Gt133 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt133 = kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC Gt233 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt233 = kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC Gt333 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Gt333 = kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))); - CCTK_REAL_VEC Xt1L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt1L = kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xt2L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt2L = kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2))))); - CCTK_REAL_VEC Xt3L = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED Xt3L = kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2))))); - CCTK_REAL_VEC AL = IfThen(LapseACoeff != + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED AL = 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 theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC B1L; - CCTK_REAL_VEC B2L; - CCTK_REAL_VEC B3L; + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED ; if (ShiftBCoeff*ShiftGammaCoeff != 0) { diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc index c50a732..00d3b3f 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBase.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_convertToADMBase_Body(cGH const * restrict const cctkGH, int /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_convertToADMBase_Body(cGH const * restrict const cctkGH, int 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 */ @@ -199,34 +199,34 @@ static void ML_CCZ4_convertToADMBase_Body(cGH const * restrict const cctkGH, int 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC gxxL = vec_load(gxx[index]); - CCTK_REAL_VEC gxyL = vec_load(gxy[index]); - CCTK_REAL_VEC gxzL = vec_load(gxz[index]); - CCTK_REAL_VEC gyyL = vec_load(gyy[index]); - CCTK_REAL_VEC gyzL = vec_load(gyz[index]); - CCTK_REAL_VEC gzzL = vec_load(gzz[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC gxxL CCTK_ATTRIBUTE_UNUSED = vec_load(gxx[index]); + CCTK_REAL_VEC gxyL CCTK_ATTRIBUTE_UNUSED = vec_load(gxy[index]); + CCTK_REAL_VEC gxzL CCTK_ATTRIBUTE_UNUSED = vec_load(gxz[index]); + CCTK_REAL_VEC gyyL CCTK_ATTRIBUTE_UNUSED = vec_load(gyy[index]); + CCTK_REAL_VEC gyzL CCTK_ATTRIBUTE_UNUSED = vec_load(gyz[index]); + CCTK_REAL_VEC gzzL CCTK_ATTRIBUTE_UNUSED = vec_load(gzz[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); @@ -250,7 +250,7 @@ static void ML_CCZ4_convertToADMBase_Body(cGH const * restrict const cctkGH, int } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC e4phi = IfThen(conformalMethod == + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED e4phi = IfThen(conformalMethod == 1,kdiv(ToReal(1),kmul(phiL,phiL)),kexp(kmul(phiL,ToReal(4)))); gxxL = kmul(gt11L,e4phi); @@ -265,31 +265,31 @@ static void ML_CCZ4_convertToADMBase_Body(cGH const * restrict const cctkGH, int gzzL = kmul(gt33L,e4phi); - CCTK_REAL_VEC kxxL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxxL = kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kxyL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxyL = kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kxzL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kxzL = kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kyyL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyyL = kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kyzL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kyzL = kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC kzzL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kzzL = kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333)))); - CCTK_REAL_VEC alpL = alphaL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED alpL = alphaL; - CCTK_REAL_VEC betaxL = beta1L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betaxL = beta1L; - CCTK_REAL_VEC betayL = beta2L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betayL = beta2L; - CCTK_REAL_VEC betazL = beta3L; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED betazL = beta3L; /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc index 85f0bbd..05c24c9 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShift.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_convertToADMBaseDtLapseShift_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 */, "ADMBase::dtlapse","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse."); @@ -51,108 +51,108 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(cGH const * restrict const /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -166,38 +166,38 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(cGH const * restrict const 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 */ @@ -214,34 +214,34 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(cGH const * restrict const 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); - CCTK_REAL_VEC phiL = vec_load(phi[index]); - CCTK_REAL_VEC rL = vec_load(r[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); + CCTK_REAL_VEC phiL CCTK_ATTRIBUTE_UNUSED = vec_load(phi[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); - CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L; + CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -259,54 +259,54 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(cGH const * restrict const /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC PDstandardNth1alpha; - CCTK_REAL_VEC PDstandardNth2alpha; - CCTK_REAL_VEC PDstandardNth3alpha; - CCTK_REAL_VEC PDupwindNthAnti1alpha; - CCTK_REAL_VEC PDupwindNthSymm1alpha; - CCTK_REAL_VEC PDupwindNthAnti2alpha; - CCTK_REAL_VEC PDupwindNthSymm2alpha; - CCTK_REAL_VEC PDupwindNthAnti3alpha; - CCTK_REAL_VEC PDupwindNthSymm3alpha; - CCTK_REAL_VEC PDupwindNthAnti1beta1; - CCTK_REAL_VEC PDupwindNthSymm1beta1; - CCTK_REAL_VEC PDupwindNthAnti2beta1; - CCTK_REAL_VEC PDupwindNthSymm2beta1; - CCTK_REAL_VEC PDupwindNthAnti3beta1; - CCTK_REAL_VEC PDupwindNthSymm3beta1; - CCTK_REAL_VEC PDupwindNthAnti1beta2; - CCTK_REAL_VEC PDupwindNthSymm1beta2; - CCTK_REAL_VEC PDupwindNthAnti2beta2; - CCTK_REAL_VEC PDupwindNthSymm2beta2; - CCTK_REAL_VEC PDupwindNthAnti3beta2; - CCTK_REAL_VEC PDupwindNthSymm3beta2; - CCTK_REAL_VEC PDupwindNthAnti1beta3; - CCTK_REAL_VEC PDupwindNthSymm1beta3; - CCTK_REAL_VEC PDupwindNthAnti2beta3; - CCTK_REAL_VEC PDupwindNthSymm2beta3; - CCTK_REAL_VEC PDupwindNthAnti3beta3; - CCTK_REAL_VEC PDupwindNthSymm3beta3; - CCTK_REAL_VEC PDstandardNth1gt11; - CCTK_REAL_VEC PDstandardNth2gt11; - CCTK_REAL_VEC PDstandardNth3gt11; - CCTK_REAL_VEC PDstandardNth1gt12; - CCTK_REAL_VEC PDstandardNth2gt12; - CCTK_REAL_VEC PDstandardNth3gt12; - CCTK_REAL_VEC PDstandardNth1gt13; - CCTK_REAL_VEC PDstandardNth2gt13; - CCTK_REAL_VEC PDstandardNth3gt13; - CCTK_REAL_VEC PDstandardNth1gt22; - CCTK_REAL_VEC PDstandardNth2gt22; - CCTK_REAL_VEC PDstandardNth3gt22; - CCTK_REAL_VEC PDstandardNth1gt23; - CCTK_REAL_VEC PDstandardNth2gt23; - CCTK_REAL_VEC PDstandardNth3gt23; - CCTK_REAL_VEC PDstandardNth1gt33; - CCTK_REAL_VEC PDstandardNth2gt33; - CCTK_REAL_VEC PDstandardNth3gt33; - CCTK_REAL_VEC PDstandardNth1phi; - CCTK_REAL_VEC PDstandardNth2phi; - CCTK_REAL_VEC PDstandardNth3phi; + CCTK_REAL_VEC PDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC PDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; switch(fdOrder) { @@ -516,60 +516,60 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(cGH const * restrict const } /* Calculate temporaries and grid functions */ - ptrdiff_t dir1 = kisgn(beta1L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir1 = kisgn(beta1L); - ptrdiff_t dir2 = kisgn(beta2L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir2 = kisgn(beta2L); - ptrdiff_t dir3 = kisgn(beta3L); + ptrdiff_t CCTK_ATTRIBUTE_UNUSED dir3 = kisgn(beta3L); - CCTK_REAL_VEC JacPDstandardNth1alpha; - CCTK_REAL_VEC JacPDstandardNth1gt11; - CCTK_REAL_VEC JacPDstandardNth1gt12; - CCTK_REAL_VEC JacPDstandardNth1gt13; - CCTK_REAL_VEC JacPDstandardNth1gt22; - CCTK_REAL_VEC JacPDstandardNth1gt23; - CCTK_REAL_VEC JacPDstandardNth1gt33; - CCTK_REAL_VEC JacPDstandardNth1phi; - CCTK_REAL_VEC JacPDstandardNth2alpha; - CCTK_REAL_VEC JacPDstandardNth2gt11; - CCTK_REAL_VEC JacPDstandardNth2gt12; - CCTK_REAL_VEC JacPDstandardNth2gt13; - CCTK_REAL_VEC JacPDstandardNth2gt22; - CCTK_REAL_VEC JacPDstandardNth2gt23; - CCTK_REAL_VEC JacPDstandardNth2gt33; - CCTK_REAL_VEC JacPDstandardNth2phi; - CCTK_REAL_VEC JacPDstandardNth3alpha; - CCTK_REAL_VEC JacPDstandardNth3gt11; - CCTK_REAL_VEC JacPDstandardNth3gt12; - CCTK_REAL_VEC JacPDstandardNth3gt13; - CCTK_REAL_VEC JacPDstandardNth3gt22; - CCTK_REAL_VEC JacPDstandardNth3gt23; - CCTK_REAL_VEC JacPDstandardNth3gt33; - CCTK_REAL_VEC JacPDstandardNth3phi; - CCTK_REAL_VEC JacPDupwindNthAnti1alpha; - CCTK_REAL_VEC JacPDupwindNthAnti1beta1; - CCTK_REAL_VEC JacPDupwindNthAnti1beta2; - CCTK_REAL_VEC JacPDupwindNthAnti1beta3; - CCTK_REAL_VEC JacPDupwindNthAnti2alpha; - CCTK_REAL_VEC JacPDupwindNthAnti2beta1; - CCTK_REAL_VEC JacPDupwindNthAnti2beta2; - CCTK_REAL_VEC JacPDupwindNthAnti2beta3; - CCTK_REAL_VEC JacPDupwindNthAnti3alpha; - CCTK_REAL_VEC JacPDupwindNthAnti3beta1; - CCTK_REAL_VEC JacPDupwindNthAnti3beta2; - CCTK_REAL_VEC JacPDupwindNthAnti3beta3; - CCTK_REAL_VEC JacPDupwindNthSymm1alpha; - CCTK_REAL_VEC JacPDupwindNthSymm1beta1; - CCTK_REAL_VEC JacPDupwindNthSymm1beta2; - CCTK_REAL_VEC JacPDupwindNthSymm1beta3; - CCTK_REAL_VEC JacPDupwindNthSymm2alpha; - CCTK_REAL_VEC JacPDupwindNthSymm2beta1; - CCTK_REAL_VEC JacPDupwindNthSymm2beta2; - CCTK_REAL_VEC JacPDupwindNthSymm2beta3; - CCTK_REAL_VEC JacPDupwindNthSymm3alpha; - CCTK_REAL_VEC JacPDupwindNthSymm3beta1; - CCTK_REAL_VEC JacPDupwindNthSymm3beta2; - CCTK_REAL_VEC JacPDupwindNthSymm3beta3; + CCTK_REAL_VEC JacPDstandardNth1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth1phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth2phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt11 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt12 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt13 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt22 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt23 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3gt33 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDstandardNth3phi CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthAnti3beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm1beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm2beta3 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3alpha CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta1 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta2 CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC JacPDupwindNthSymm3beta3 CCTK_ATTRIBUTE_UNUSED ; if (use_jacobian) { @@ -816,45 +816,45 @@ static void ML_CCZ4_convertToADMBaseDtLapseShift_Body(cGH const * restrict const JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3; } - CCTK_REAL_VEC detgt = ToReal(1); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC dtalpL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = 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 dtbetaxL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetaxL = 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(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,kmul(gtu11,gtu11),kmul(JacPDstandardNth1gt22,kmul(kmul(gtu12,gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC dtbetayL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetayL = 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(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,kmul(gtu22,gtu22),kmul(JacPDstandardNth2gt11,kmul(kmul(gtu12,gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); - CCTK_REAL_VEC dtbetazL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtbetazL = 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(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,kmul(gtu13,gtu13),kmul(JacPDstandardNth3gt22,kmul(gtu23,gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,ToReal(BetaDriver*(-1 + ShiftBCoeff)))))),ToReal(ShiftGammaCoeff))))); diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc index 61b8fb2..7407ea3 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseDtLapseShiftBoundary.cc @@ -32,7 +32,7 @@ extern "C" void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGU 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 */, "ADMBase::dtlapse","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse."); @@ -51,108 +51,108 @@ static void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -166,38 +166,38 @@ static void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri 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 */ @@ -214,24 +214,24 @@ static void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 rL = vec_load(r[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); @@ -255,19 +255,19 @@ static void ML_CCZ4_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restri } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC dtalpL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmsub(ThetaL,ToReal(2),trKL),ToReal(-1 + LapseACoeff)))))); - CCTK_REAL_VEC dtbetaxL; - CCTK_REAL_VEC dtbetayL; - CCTK_REAL_VEC dtbetazL; + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED ; if (harmonicShift) { diff --git a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc index 252a1ec..ca68eb9 100644 --- a/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc +++ b/ML_CCZ4/src/ML_CCZ4_convertToADMBaseFakeDtLapseShift.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c 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 */ @@ -199,24 +199,24 @@ static void ML_CCZ4_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c 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 AL = vec_load(A[index]); - CCTK_REAL_VEC alphaL = vec_load(alpha[index]); - CCTK_REAL_VEC B1L = vec_load(B1[index]); - CCTK_REAL_VEC B2L = vec_load(B2[index]); - CCTK_REAL_VEC B3L = vec_load(B3[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 rL = vec_load(r[index]); - CCTK_REAL_VEC ThetaL = vec_load(Theta[index]); - CCTK_REAL_VEC trKL = vec_load(trK[index]); - CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]); - CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]); - CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]); + CCTK_REAL_VEC AL CCTK_ATTRIBUTE_UNUSED = vec_load(A[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC B1L CCTK_ATTRIBUTE_UNUSED = vec_load(B1[index]); + CCTK_REAL_VEC B2L CCTK_ATTRIBUTE_UNUSED = vec_load(B2[index]); + CCTK_REAL_VEC B3L CCTK_ATTRIBUTE_UNUSED = vec_load(B3[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 rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); + CCTK_REAL_VEC ThetaL CCTK_ATTRIBUTE_UNUSED = vec_load(Theta[index]); + CCTK_REAL_VEC trKL CCTK_ATTRIBUTE_UNUSED = vec_load(trK[index]); + CCTK_REAL_VEC Xt1L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt1[index]); + CCTK_REAL_VEC Xt2L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt2[index]); + CCTK_REAL_VEC Xt3L CCTK_ATTRIBUTE_UNUSED = vec_load(Xt3[index]); @@ -240,19 +240,19 @@ static void ML_CCZ4_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict c } /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC eta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED eta = kdiv(ToReal(SpatialBetaDriverRadius),kfmax(rL,ToReal(SpatialBetaDriverRadius))); - CCTK_REAL_VEC theta = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED theta = kfmin(ToReal(1),kexp(knmsub(rL,ToReal(ScalarINV(SpatialShiftGammaCoeffRadius)),ToReal(1)))); - CCTK_REAL_VEC dtalpL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED dtalpL = kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmsub(ThetaL,ToReal(2),trKL),ToReal(-1 + LapseACoeff)))))); - CCTK_REAL_VEC dtbetaxL; - CCTK_REAL_VEC dtbetayL; - CCTK_REAL_VEC dtbetazL; + CCTK_REAL_VEC dtbetaxL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetayL CCTK_ATTRIBUTE_UNUSED ; + CCTK_REAL_VEC dtbetazL CCTK_ATTRIBUTE_UNUSED ; if (harmonicShift) { diff --git a/ML_CCZ4/src/ML_CCZ4_enforce.cc b/ML_CCZ4/src/ML_CCZ4_enforce.cc index ff8141b..21dfe23 100644 --- a/ML_CCZ4/src/ML_CCZ4_enforce.cc +++ b/ML_CCZ4/src/ML_CCZ4_enforce.cc @@ -36,108 +36,108 @@ static void ML_CCZ4_enforce_Body(cGH const * restrict const cctkGH, int const di /* 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 p1o1024dx = kdiv(ToReal(0.0009765625),dx); - CCTK_REAL_VEC const p1o1024dy = kdiv(ToReal(0.0009765625),dy); - CCTK_REAL_VEC const p1o1024dz = kdiv(ToReal(0.0009765625),dz); - CCTK_REAL_VEC const p1o120dx = kdiv(ToReal(0.00833333333333333333333333333333),dx); - CCTK_REAL_VEC const p1o120dy = kdiv(ToReal(0.00833333333333333333333333333333),dy); - CCTK_REAL_VEC const p1o120dz = kdiv(ToReal(0.00833333333333333333333333333333),dz); - 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 p1o1680dx = kdiv(ToReal(0.000595238095238095238095238095238),dx); - CCTK_REAL_VEC const p1o1680dy = kdiv(ToReal(0.000595238095238095238095238095238),dy); - CCTK_REAL_VEC const p1o1680dz = kdiv(ToReal(0.000595238095238095238095238095238),dz); - CCTK_REAL_VEC const p1o16dx = kdiv(ToReal(0.0625),dx); - CCTK_REAL_VEC const p1o16dy = kdiv(ToReal(0.0625),dy); - CCTK_REAL_VEC const p1o16dz = kdiv(ToReal(0.0625),dz); - 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 p1o24dx = kdiv(ToReal(0.0416666666666666666666666666667),dx); - CCTK_REAL_VEC const p1o24dy = kdiv(ToReal(0.0416666666666666666666666666667),dy); - CCTK_REAL_VEC const p1o24dz = kdiv(ToReal(0.0416666666666666666666666666667),dz); - CCTK_REAL_VEC const p1o256dx = kdiv(ToReal(0.00390625),dx); - CCTK_REAL_VEC const p1o256dy = kdiv(ToReal(0.00390625),dy); - CCTK_REAL_VEC const p1o256dz = kdiv(ToReal(0.00390625),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 p1o4dx = kdiv(ToReal(0.25),dx); - 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 p1o4dy = kdiv(ToReal(0.25),dy); - CCTK_REAL_VEC const p1o4dydz = kdiv(ToReal(0.25),kmul(dz,dy)); - CCTK_REAL_VEC const p1o4dz = kdiv(ToReal(0.25),dz); - 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 p1o560dx = kdiv(ToReal(0.00178571428571428571428571428571),dx); - CCTK_REAL_VEC const p1o560dy = kdiv(ToReal(0.00178571428571428571428571428571),dy); - CCTK_REAL_VEC const p1o560dz = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx = kdiv(ToReal(0.015625),dx); - CCTK_REAL_VEC const p1o64dy = kdiv(ToReal(0.015625),dy); - CCTK_REAL_VEC const p1o64dz = kdiv(ToReal(0.015625),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 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); - 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 pm1o2dx = kdiv(ToReal(-0.5),dx); - CCTK_REAL_VEC const pm1o2dy = kdiv(ToReal(-0.5),dy); - CCTK_REAL_VEC const pm1o2dz = kdiv(ToReal(-0.5),dz); - CCTK_REAL_VEC const pm1o4dx = kdiv(ToReal(-0.25),dx); - CCTK_REAL_VEC const pm1o4dy = kdiv(ToReal(-0.25),dy); - CCTK_REAL_VEC const pm1o4dz = kdiv(ToReal(-0.25),dz); - CCTK_REAL_VEC const pm1o60dx = kdiv(ToReal(-0.0166666666666666666666666666667),dx); - CCTK_REAL_VEC const pm1o60dy = kdiv(ToReal(-0.0166666666666666666666666666667),dy); - CCTK_REAL_VEC const pm1o60dz = kdiv(ToReal(-0.0166666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o1024dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dx); + CCTK_REAL_VEC const p1o1024dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dy); + CCTK_REAL_VEC const p1o1024dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0009765625),dz); + CCTK_REAL_VEC const p1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const p1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const p1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00833333333333333333333333333333),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 p1o1680dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dx); + CCTK_REAL_VEC const p1o1680dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dy); + CCTK_REAL_VEC const p1o1680dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.000595238095238095238095238095238),dz); + CCTK_REAL_VEC const p1o16dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dx); + CCTK_REAL_VEC const p1o16dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dy); + CCTK_REAL_VEC const p1o16dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0625),dz); + 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 p1o24dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dx); + CCTK_REAL_VEC const p1o24dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dy); + CCTK_REAL_VEC const p1o24dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0416666666666666666666666666667),dz); + CCTK_REAL_VEC const p1o256dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dx); + CCTK_REAL_VEC const p1o256dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),dy); + CCTK_REAL_VEC const p1o256dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00390625),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 p1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dx); + 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 p1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dy); + CCTK_REAL_VEC const p1o4dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),kmul(dz,dy)); + CCTK_REAL_VEC const p1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.25),dz); + 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 p1o560dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dx); + CCTK_REAL_VEC const p1o560dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),dy); + CCTK_REAL_VEC const p1o560dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00178571428571428571428571428571),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 p1o64dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dx); + CCTK_REAL_VEC const p1o64dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),dy); + CCTK_REAL_VEC const p1o64dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.015625),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 p1odx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dx); + CCTK_REAL_VEC const p1odx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dx,dx)); + CCTK_REAL_VEC const p1ody CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dy); + CCTK_REAL_VEC const p1ody2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dy,dy)); + CCTK_REAL_VEC const p1odz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),dz); + CCTK_REAL_VEC const p1odz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(1),kmul(dz,dz)); + CCTK_REAL_VEC const pm1o120dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dx); + CCTK_REAL_VEC const pm1o120dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),dy); + CCTK_REAL_VEC const pm1o120dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.00833333333333333333333333333333),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)); + CCTK_REAL_VEC const pm1o2dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dx); + CCTK_REAL_VEC const pm1o2dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dy); + CCTK_REAL_VEC const pm1o2dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.5),dz); + CCTK_REAL_VEC const pm1o4dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dx); + CCTK_REAL_VEC const pm1o4dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dy); + CCTK_REAL_VEC const pm1o4dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.25),dz); + CCTK_REAL_VEC const pm1o60dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dx); + CCTK_REAL_VEC const pm1o60dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dy); + CCTK_REAL_VEC const pm1o60dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0166666666666666666666666666667),dz); /* Jacobian variable pointers */ bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map) @@ -151,38 +151,38 @@ static void ML_CCZ4_enforce_Body(cGH const * restrict const cctkGH, int const di 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 */ @@ -199,23 +199,23 @@ static void ML_CCZ4_enforce_Body(cGH const * restrict const cctkGH, int const di 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 At11L = vec_load(At11[index]); - CCTK_REAL_VEC At12L = vec_load(At12[index]); - CCTK_REAL_VEC At13L = vec_load(At13[index]); - CCTK_REAL_VEC At22L = vec_load(At22[index]); - CCTK_REAL_VEC At23L = vec_load(At23[index]); - CCTK_REAL_VEC At33L = vec_load(At33[index]); - CCTK_REAL_VEC gt11L = vec_load(gt11[index]); - CCTK_REAL_VEC gt12L = vec_load(gt12[index]); - CCTK_REAL_VEC gt13L = vec_load(gt13[index]); - CCTK_REAL_VEC gt22L = vec_load(gt22[index]); - CCTK_REAL_VEC gt23L = vec_load(gt23[index]); - CCTK_REAL_VEC gt33L = vec_load(gt33[index]); + CCTK_REAL_VEC alphaL CCTK_ATTRIBUTE_UNUSED = vec_load(alpha[index]); + CCTK_REAL_VEC At11L CCTK_ATTRIBUTE_UNUSED = vec_load(At11[index]); + CCTK_REAL_VEC At12L CCTK_ATTRIBUTE_UNUSED = vec_load(At12[index]); + CCTK_REAL_VEC At13L CCTK_ATTRIBUTE_UNUSED = vec_load(At13[index]); + CCTK_REAL_VEC At22L CCTK_ATTRIBUTE_UNUSED = vec_load(At22[index]); + CCTK_REAL_VEC At23L CCTK_ATTRIBUTE_UNUSED = vec_load(At23[index]); + CCTK_REAL_VEC At33L CCTK_ATTRIBUTE_UNUSED = vec_load(At33[index]); + CCTK_REAL_VEC gt11L CCTK_ATTRIBUTE_UNUSED = vec_load(gt11[index]); + CCTK_REAL_VEC gt12L CCTK_ATTRIBUTE_UNUSED = vec_load(gt12[index]); + CCTK_REAL_VEC gt13L CCTK_ATTRIBUTE_UNUSED = vec_load(gt13[index]); + CCTK_REAL_VEC gt22L CCTK_ATTRIBUTE_UNUSED = vec_load(gt22[index]); + CCTK_REAL_VEC gt23L CCTK_ATTRIBUTE_UNUSED = vec_load(gt23[index]); + CCTK_REAL_VEC gt33L CCTK_ATTRIBUTE_UNUSED = vec_load(gt33[index]); @@ -239,27 +239,27 @@ 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 CCTK_ATTRIBUTE_UNUSED detgt = ToReal(1); - CCTK_REAL_VEC gtu11 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu11 = kdiv(kmsub(gt22L,gt33L,kmul(gt23L,gt23L)),detgt); - CCTK_REAL_VEC gtu12 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu12 = kdiv(kmsub(gt13L,gt23L,kmul(gt12L,gt33L)),detgt); - CCTK_REAL_VEC gtu13 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu13 = kdiv(kmsub(gt12L,gt23L,kmul(gt13L,gt22L)),detgt); - CCTK_REAL_VEC gtu22 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu22 = kdiv(kmsub(gt11L,gt33L,kmul(gt13L,gt13L)),detgt); - CCTK_REAL_VEC gtu23 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu23 = kdiv(kmsub(gt12L,gt13L,kmul(gt11L,gt23L)),detgt); - CCTK_REAL_VEC gtu33 = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED gtu33 = kdiv(kmsub(gt11L,gt22L,kmul(gt12L,gt12L)),detgt); - CCTK_REAL_VEC trAt = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED trAt = 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/RegisterMoL.cc b/ML_CCZ4/src/RegisterMoL.cc index 27e74a3..6977934 100644 --- a/ML_CCZ4/src/RegisterMoL.cc +++ b/ML_CCZ4/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_CCZ4_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_CCZ4::At11"), CCTK_VarIndex("ML_CCZ4::At11rhs")); diff --git a/ML_CCZ4/src/Startup.cc b/ML_CCZ4/src/Startup.cc index 094d242..d377180 100644 --- a/ML_CCZ4/src/Startup.cc +++ b/ML_CCZ4/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_CCZ4_Startup(void) { - const char * banner = "ML_CCZ4"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_CCZ4"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_WaveToy/src/Boundaries.cc b/ML_WaveToy/src/Boundaries.cc index 1e5f99e..97cc0ff 100644 --- a/ML_WaveToy/src/Boundaries.cc +++ b/ML_WaveToy/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; if (CCTK_EQUALS(WT_rho_bound, "none" ) || CCTK_EQUALS(WT_rho_bound, "static") || @@ -79,7 +79,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_rho_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; + static CCTK_INT handle_WT_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0) @@ -98,7 +98,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_u_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; + static CCTK_INT handle_WT_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0) @@ -117,7 +117,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(rho_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_rho_bound = -1; + static CCTK_INT handle_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0) @@ -136,7 +136,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(u_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_u_bound = -1; + static CCTK_INT handle_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0) @@ -155,7 +155,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_rho_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; + static CCTK_INT handle_WT_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0) @@ -172,7 +172,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_u_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; + static CCTK_INT handle_WT_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0) @@ -189,7 +189,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(rho_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_rho_bound = -1; + static CCTK_INT handle_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0) @@ -206,7 +206,7 @@ extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(u_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_u_bound = -1; + static CCTK_INT handle_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0) diff --git a/ML_WaveToy/src/RegisterMoL.cc b/ML_WaveToy/src/RegisterMoL.cc index 8881277..b81354f 100644 --- a/ML_WaveToy/src/RegisterMoL.cc +++ b/ML_WaveToy/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_WaveToy_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToy::rho"), CCTK_VarIndex("ML_WaveToy::rhorhs")); diff --git a/ML_WaveToy/src/Startup.cc b/ML_WaveToy/src/Startup.cc index 5f3d2bd..04fd1e1 100644 --- a/ML_WaveToy/src/Startup.cc +++ b/ML_WaveToy/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_WaveToy_Startup(void) { - const char * banner = "ML_WaveToy"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_WaveToy"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_WaveToy/src/WT_Dirichlet.cc b/ML_WaveToy/src/WT_Dirichlet.cc index 4629fda..aa6f40f 100644 --- a/ML_WaveToy/src/WT_Dirichlet.cc +++ b/ML_WaveToy/src/WT_Dirichlet.cc @@ -32,7 +32,7 @@ extern "C" void WT_Dirichlet_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_WaveToy::WT_rhorhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_rhorhs."); @@ -51,39 +51,39 @@ static void WT_Dirichlet_Body(cGH const * restrict const cctkGH, int const dir, /* 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 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 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)); /* Assign local copies of arrays functions */ @@ -100,7 +100,7 @@ static void WT_Dirichlet_Body(cGH const * restrict const cctkGH, int const dir, 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 */ @@ -111,9 +111,9 @@ static void WT_Dirichlet_Body(cGH const * restrict const cctkGH, int const dir, /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC urhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = ToReal(0); - CCTK_REAL_VEC rhorhsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_WaveToy/src/WT_Energy.cc b/ML_WaveToy/src/WT_Energy.cc index 96355af..f8b9e2e 100644 --- a/ML_WaveToy/src/WT_Energy.cc +++ b/ML_WaveToy/src/WT_Energy.cc @@ -32,7 +32,7 @@ extern "C" void WT_Energy_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_WaveToy::WT_eps","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_eps."); @@ -48,39 +48,39 @@ static void WT_Energy_Body(cGH const * restrict const cctkGH, int const dir, int /* 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 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 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)); /* Assign local copies of arrays functions */ @@ -97,23 +97,23 @@ static void WT_Energy_Body(cGH const * restrict const cctkGH, int const dir, int 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 rhoL = vec_load(rho[index]); - CCTK_REAL_VEC uL = vec_load(u[index]); + CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = vec_load(rho[index]); + CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = vec_load(u[index]); /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC const PDstandardNth1u = PDstandardNth1(&u[index]); - CCTK_REAL_VEC const PDstandardNth2u = PDstandardNth2(&u[index]); - CCTK_REAL_VEC const PDstandardNth3u = PDstandardNth3(&u[index]); + CCTK_REAL_VEC const PDstandardNth1u CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&u[index]); + CCTK_REAL_VEC const PDstandardNth2u CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&u[index]); + CCTK_REAL_VEC const PDstandardNth3u CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&u[index]); /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC epsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = kmul(kmadd(rhoL,rhoL,kmadd(PDstandardNth1u,PDstandardNth1u,kmadd(PDstandardNth2u,PDstandardNth2u,kmul(PDstandardNth3u,PDstandardNth3u)))),ToReal(0.5)); /* Copy local copies back to grid functions */ diff --git a/ML_WaveToy/src/WT_EnergyBoundary.cc b/ML_WaveToy/src/WT_EnergyBoundary.cc index a1672f4..06386bb 100644 --- a/ML_WaveToy/src/WT_EnergyBoundary.cc +++ b/ML_WaveToy/src/WT_EnergyBoundary.cc @@ -32,7 +32,7 @@ extern "C" void WT_EnergyBoundary_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_WaveToy::WT_eps","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_eps."); @@ -48,39 +48,39 @@ static void WT_EnergyBoundary_Body(cGH const * restrict const cctkGH, int const /* 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 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 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)); /* Assign local copies of arrays functions */ @@ -97,7 +97,7 @@ static void WT_EnergyBoundary_Body(cGH const * restrict const cctkGH, int const 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 */ @@ -108,7 +108,7 @@ static void WT_EnergyBoundary_Body(cGH const * restrict const cctkGH, int const /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC epsL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_WaveToy/src/WT_Gaussian.cc b/ML_WaveToy/src/WT_Gaussian.cc index 2c8f46a..5faa131 100644 --- a/ML_WaveToy/src/WT_Gaussian.cc +++ b/ML_WaveToy/src/WT_Gaussian.cc @@ -36,39 +36,39 @@ static void WT_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, i /* 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 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 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)); /* Assign local copies of arrays functions */ @@ -85,11 +85,11 @@ static void WT_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, i 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 rL = vec_load(r[index]); + CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]); /* Include user supplied include files */ @@ -97,10 +97,10 @@ static void WT_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, i /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC uL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = kmul(kexp(kmul(kmul(kmul(rL,rL),ToReal(-0.5)),ToReal(ScalarINV(ScalarSQR(width))))),ToReal(amplitude)); - CCTK_REAL_VEC rhoL = ToReal(0); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = ToReal(0); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_WaveToy/src/WT_RHS.cc b/ML_WaveToy/src/WT_RHS.cc index bddf28f..ce529d6 100644 --- a/ML_WaveToy/src/WT_RHS.cc +++ b/ML_WaveToy/src/WT_RHS.cc @@ -32,7 +32,7 @@ extern "C" void WT_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_WaveToy::WT_rhorhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_rhorhs."); @@ -51,39 +51,39 @@ static void WT_RHS_Body(cGH const * restrict const cctkGH, int const dir, int co /* 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 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 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)); /* Assign local copies of arrays functions */ @@ -100,25 +100,25 @@ static void WT_RHS_Body(cGH const * restrict const cctkGH, int const dir, int co 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 rhoL = vec_load(rho[index]); - CCTK_REAL_VEC uL = vec_load(u[index]); + CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = vec_load(rho[index]); + CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = vec_load(u[index]); /* Include user supplied include files */ /* Precompute derivatives */ - CCTK_REAL_VEC const PDstandardNth11u = PDstandardNth11(&u[index]); - CCTK_REAL_VEC const PDstandardNth22u = PDstandardNth22(&u[index]); - CCTK_REAL_VEC const PDstandardNth33u = PDstandardNth33(&u[index]); + CCTK_REAL_VEC const PDstandardNth11u CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&u[index]); + CCTK_REAL_VEC const PDstandardNth22u CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&u[index]); + CCTK_REAL_VEC const PDstandardNth33u CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&u[index]); /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC urhsL = rhoL; + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = rhoL; - CCTK_REAL_VEC rhorhsL = + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = kadd(PDstandardNth11u,kadd(PDstandardNth22u,PDstandardNth33u)); /* Copy local copies back to grid functions */ diff --git a/ML_WaveToy/src/WT_Standing.cc b/ML_WaveToy/src/WT_Standing.cc index a3d0fa6..b1a640a 100644 --- a/ML_WaveToy/src/WT_Standing.cc +++ b/ML_WaveToy/src/WT_Standing.cc @@ -36,39 +36,39 @@ static void WT_Standing_Body(cGH const * restrict const cctkGH, int const dir, i /* 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 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 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)); /* Assign local copies of arrays functions */ @@ -85,13 +85,13 @@ static void WT_Standing_Body(cGH const * restrict const cctkGH, int const dir, i 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 xL = vec_load(x[index]); - CCTK_REAL_VEC yL = vec_load(y[index]); - CCTK_REAL_VEC zL = vec_load(z[index]); + CCTK_REAL_VEC xL CCTK_ATTRIBUTE_UNUSED = vec_load(x[index]); + CCTK_REAL_VEC yL CCTK_ATTRIBUTE_UNUSED = vec_load(y[index]); + CCTK_REAL_VEC zL CCTK_ATTRIBUTE_UNUSED = vec_load(z[index]); /* Include user supplied include files */ @@ -99,15 +99,17 @@ static void WT_Standing_Body(cGH const * restrict const cctkGH, int const dir, i /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL_VEC k = ToReal(Pi*ScalarINV(width)); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kvec = + ToReal(Pi*ScalarINV(width)); - CCTK_REAL_VEC omega = ksqrt(kmul(kmul(k,k),ToReal(3))); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED omega = + ksqrt(kmul(kmul(kvec,kvec),ToReal(3))); - CCTK_REAL_VEC uL = - kmul(kcos(kmul(xL,k)),kmul(kcos(kmul(yL,k)),kmul(kcos(kmul(zL,k)),kmul(kcos(kmul(omega,t)),ToReal(amplitude))))); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = + kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(kcos(kmul(omega,t)),ToReal(amplitude))))); - CCTK_REAL_VEC rhoL = - kneg(kmul(omega,kmul(kcos(kmul(xL,k)),kmul(kcos(kmul(yL,k)),kmul(kcos(kmul(zL,k)),kmul(ksin(kmul(omega,t)),ToReal(amplitude))))))); + CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = + kneg(kmul(omega,kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(ksin(kmul(omega,t)),ToReal(amplitude))))))); /* Copy local copies back to grid functions */ vec_store_partial_prepare(i,lc_imin,lc_imax); diff --git a/ML_WaveToy_CL/src/Boundaries.cc b/ML_WaveToy_CL/src/Boundaries.cc index d9beb11..274144c 100644 --- a/ML_WaveToy_CL/src/Boundaries.cc +++ b/ML_WaveToy_CL/src/Boundaries.cc @@ -30,7 +30,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; if (CCTK_EQUALS(WT_rho_bound, "none" ) || CCTK_EQUALS(WT_rho_bound, "static") || @@ -79,7 +79,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_rho_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; + static CCTK_INT handle_WT_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0) @@ -98,7 +98,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_u_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; + static CCTK_INT handle_WT_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0) @@ -117,7 +117,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(rho_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_rho_bound = -1; + static CCTK_INT handle_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0) @@ -136,7 +136,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(u_bound, "radiative")) { /* select radiation boundary condition */ - static CCTK_INT handle_u_bound = -1; + static CCTK_INT handle_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0) @@ -155,7 +155,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_rho_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; + static CCTK_INT handle_WT_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0) @@ -172,7 +172,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(WT_u_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; + static CCTK_INT handle_WT_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0) @@ -189,7 +189,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(rho_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_rho_bound = -1; + static CCTK_INT handle_rho_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0) @@ -206,7 +206,7 @@ extern "C" void ML_WaveToy_CL_SelectBoundConds(CCTK_ARGUMENTS) if (CCTK_EQUALS(u_bound, "scalar")) { /* select scalar boundary condition */ - static CCTK_INT handle_u_bound = -1; + static CCTK_INT handle_u_bound CCTK_ATTRIBUTE_UNUSED = -1; if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0) diff --git a/ML_WaveToy_CL/src/RegisterMoL.cc b/ML_WaveToy_CL/src/RegisterMoL.cc index b6409b5..472f9f7 100644 --- a/ML_WaveToy_CL/src/RegisterMoL.cc +++ b/ML_WaveToy_CL/src/RegisterMoL.cc @@ -9,7 +9,7 @@ extern "C" void ML_WaveToy_CL_RegisterVars(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - CCTK_INT ierr = 0; + CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0; /* Register all the evolved grid functions with MoL */ ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToy_CL::rho"), CCTK_VarIndex("ML_WaveToy_CL::rhorhs")); diff --git a/ML_WaveToy_CL/src/Startup.cc b/ML_WaveToy_CL/src/Startup.cc index 257d808..5d1cd87 100644 --- a/ML_WaveToy_CL/src/Startup.cc +++ b/ML_WaveToy_CL/src/Startup.cc @@ -4,7 +4,7 @@ extern "C" int ML_WaveToy_CL_Startup(void) { - const char * banner = "ML_WaveToy_CL"; + const char * banner CCTK_ATTRIBUTE_UNUSED = "ML_WaveToy_CL"; CCTK_RegisterBanner(banner); return 0; } diff --git a/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc b/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc index 9697f7e..139e692 100644 --- a/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc +++ b/ML_WaveToy_CL/src/WT_CL_Dirichlet.cc @@ -33,7 +33,7 @@ extern "C" void WT_CL_Dirichlet_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_WaveToy_CL::WT_rhorhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy_CL::WT_rhorhs."); @@ -53,39 +53,39 @@ static void WT_CL_Dirichlet_Body(cGH const * restrict const cctkGH, int const di "/* Include user-supplied include files */\n" "\n" "/* Initialise finite differencing variables */\n" - "ptrdiff_t const di = 1;\n" - "ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;\n" - "ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;\n" - "ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;\n" - "CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));\n" - "CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));\n" - "CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));\n" - "CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);\n" - "CCTK_REAL_VEC const t = ToReal(cctk_time);\n" - "CCTK_REAL_VEC const dxi = INV(dx);\n" - "CCTK_REAL_VEC const dyi = INV(dy);\n" - "CCTK_REAL_VEC const dzi = INV(dz);\n" - "CCTK_REAL_VEC const khalf = ToReal(0.5);\n" - "CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);\n" - "CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);\n" - "CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);\n" - "CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);\n" - "CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);\n" - "CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);\n" - "CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);\n" + "ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1;\n" + "ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;\n" + "ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;\n" + "ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;\n" + "CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));\n" + "CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));\n" + "CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));\n" + "CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);\n" + "CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);\n" + "CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);\n" + "CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" + "CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" + "CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" + "CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" + "CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" + "CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" + "CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" + "CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" + "CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" + "CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" "\n" "/* Initialize predefined quantities */\n" - "CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" - "CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" - "CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" - "CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" - "CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" - "CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" - "CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" - "CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" - "CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" + "CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" + "CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" + "CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" + "CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" + "CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" + "CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" + "CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" + "CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" + "CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" "\n" "/* Assign local copies of arrays functions */\n" "\n" @@ -102,7 +102,7 @@ static void WT_CL_Dirichlet_Body(cGH const * restrict const cctkGH, int const di " cctk_ash[0],cctk_ash[1],cctk_ash[2],\n" " CCTK_REAL_VEC_SIZE)\n" "{\n" - " ptrdiff_t const index = di*i + dj*j + dk*k;\n" + " ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;\n" " \n" " /* Assign local copies of grid functions */\n" " \n" @@ -113,9 +113,9 @@ static void WT_CL_Dirichlet_Body(cGH const * restrict const cctkGH, int const di " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC urhsL = ToReal(0);\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = ToReal(0);\n" " \n" - " CCTK_REAL_VEC rhorhsL = ToReal(0);\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = ToReal(0);\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" diff --git a/ML_WaveToy_CL/src/WT_CL_Energy.cc b/ML_WaveToy_CL/src/WT_CL_Energy.cc index d0b5667..51a9190 100644 --- a/ML_WaveToy_CL/src/WT_CL_Energy.cc +++ b/ML_WaveToy_CL/src/WT_CL_Energy.cc @@ -33,7 +33,7 @@ extern "C" void WT_CL_Energy_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_WaveToy_CL::WT_eps","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy_CL::WT_eps."); @@ -50,39 +50,39 @@ static void WT_CL_Energy_Body(cGH const * restrict const cctkGH, int const dir, "/* Include user-supplied include files */\n" "\n" "/* Initialise finite differencing variables */\n" - "ptrdiff_t const di = 1;\n" - "ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;\n" - "ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;\n" - "ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;\n" - "CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));\n" - "CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));\n" - "CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));\n" - "CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);\n" - "CCTK_REAL_VEC const t = ToReal(cctk_time);\n" - "CCTK_REAL_VEC const dxi = INV(dx);\n" - "CCTK_REAL_VEC const dyi = INV(dy);\n" - "CCTK_REAL_VEC const dzi = INV(dz);\n" - "CCTK_REAL_VEC const khalf = ToReal(0.5);\n" - "CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);\n" - "CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);\n" - "CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);\n" - "CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);\n" - "CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);\n" - "CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);\n" - "CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);\n" + "ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1;\n" + "ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;\n" + "ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;\n" + "ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;\n" + "CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));\n" + "CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));\n" + "CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));\n" + "CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);\n" + "CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);\n" + "CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);\n" + "CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" + "CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" + "CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" + "CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" + "CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" + "CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" + "CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" + "CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" + "CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" + "CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" "\n" "/* Initialize predefined quantities */\n" - "CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" - "CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" - "CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" - "CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" - "CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" - "CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" - "CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" - "CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" - "CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" + "CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" + "CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" + "CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" + "CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" + "CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" + "CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" + "CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" + "CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" + "CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" "\n" "/* Assign local copies of arrays functions */\n" "\n" @@ -99,23 +99,23 @@ static void WT_CL_Energy_Body(cGH const * restrict const cctkGH, int const dir, " cctk_ash[0],cctk_ash[1],cctk_ash[2],\n" " CCTK_REAL_VEC_SIZE)\n" "{\n" - " ptrdiff_t const index = di*i + dj*j + dk*k;\n" + " ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;\n" " \n" " /* Assign local copies of grid functions */\n" " \n" - " CCTK_REAL_VEC rhoL = vec_load(rho[index]);\n" - " CCTK_REAL_VEC uL = vec_load(u[index]);\n" + " CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = vec_load(rho[index]);\n" + " CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = vec_load(u[index]);\n" " \n" " \n" " /* Include user supplied include files */\n" " \n" " /* Precompute derivatives */\n" - " CCTK_REAL_VEC const PDstandardNth1u = PDstandardNth1(&u[index]);\n" - " CCTK_REAL_VEC const PDstandardNth2u = PDstandardNth2(&u[index]);\n" - " CCTK_REAL_VEC const PDstandardNth3u = PDstandardNth3(&u[index]);\n" + " CCTK_REAL_VEC const PDstandardNth1u CCTK_ATTRIBUTE_UNUSED = PDstandardNth1(&u[index]);\n" + " CCTK_REAL_VEC const PDstandardNth2u CCTK_ATTRIBUTE_UNUSED = PDstandardNth2(&u[index]);\n" + " CCTK_REAL_VEC const PDstandardNth3u CCTK_ATTRIBUTE_UNUSED = PDstandardNth3(&u[index]);\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC epsL = \n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = \n" " kmul(kmadd(rhoL,rhoL,kmadd(PDstandardNth1u,PDstandardNth1u,kmadd(PDstandardNth2u,PDstandardNth2u,kmul(PDstandardNth3u,PDstandardNth3u)))),ToReal(0.5));\n" " \n" " /* Copy local copies back to grid functions */\n" diff --git a/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc b/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc index 4633e90..097750b 100644 --- a/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc +++ b/ML_WaveToy_CL/src/WT_CL_EnergyBoundary.cc @@ -33,7 +33,7 @@ extern "C" void WT_CL_EnergyBoundary_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_WaveToy_CL::WT_eps","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy_CL::WT_eps."); @@ -50,39 +50,39 @@ static void WT_CL_EnergyBoundary_Body(cGH const * restrict const cctkGH, int con "/* Include user-supplied include files */\n" "\n" "/* Initialise finite differencing variables */\n" - "ptrdiff_t const di = 1;\n" - "ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;\n" - "ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;\n" - "ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;\n" - "CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));\n" - "CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));\n" - "CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));\n" - "CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);\n" - "CCTK_REAL_VEC const t = ToReal(cctk_time);\n" - "CCTK_REAL_VEC const dxi = INV(dx);\n" - "CCTK_REAL_VEC const dyi = INV(dy);\n" - "CCTK_REAL_VEC const dzi = INV(dz);\n" - "CCTK_REAL_VEC const khalf = ToReal(0.5);\n" - "CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);\n" - "CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);\n" - "CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);\n" - "CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);\n" - "CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);\n" - "CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);\n" - "CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);\n" + "ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1;\n" + "ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;\n" + "ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;\n" + "ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;\n" + "CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));\n" + "CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));\n" + "CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));\n" + "CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);\n" + "CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);\n" + "CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);\n" + "CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" + "CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" + "CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" + "CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" + "CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" + "CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" + "CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" + "CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" + "CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" + "CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" "\n" "/* Initialize predefined quantities */\n" - "CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" - "CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" - "CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" - "CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" - "CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" - "CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" - "CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" - "CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" - "CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" + "CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" + "CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" + "CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" + "CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" + "CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" + "CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" + "CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" + "CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" + "CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" "\n" "/* Assign local copies of arrays functions */\n" "\n" @@ -99,7 +99,7 @@ static void WT_CL_EnergyBoundary_Body(cGH const * restrict const cctkGH, int con " cctk_ash[0],cctk_ash[1],cctk_ash[2],\n" " CCTK_REAL_VEC_SIZE)\n" "{\n" - " ptrdiff_t const index = di*i + dj*j + dk*k;\n" + " ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;\n" " \n" " /* Assign local copies of grid functions */\n" " \n" @@ -110,7 +110,7 @@ static void WT_CL_EnergyBoundary_Body(cGH const * restrict const cctkGH, int con " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC epsL = ToReal(0);\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED epsL = ToReal(0);\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" diff --git a/ML_WaveToy_CL/src/WT_CL_Gaussian.cc b/ML_WaveToy_CL/src/WT_CL_Gaussian.cc index 5c95c8f..6fa615a 100644 --- a/ML_WaveToy_CL/src/WT_CL_Gaussian.cc +++ b/ML_WaveToy_CL/src/WT_CL_Gaussian.cc @@ -38,39 +38,39 @@ static void WT_CL_Gaussian_Body(cGH const * restrict const cctkGH, int const dir "/* Include user-supplied include files */\n" "\n" "/* Initialise finite differencing variables */\n" - "ptrdiff_t const di = 1;\n" - "ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;\n" - "ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;\n" - "ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;\n" - "CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));\n" - "CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));\n" - "CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));\n" - "CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);\n" - "CCTK_REAL_VEC const t = ToReal(cctk_time);\n" - "CCTK_REAL_VEC const dxi = INV(dx);\n" - "CCTK_REAL_VEC const dyi = INV(dy);\n" - "CCTK_REAL_VEC const dzi = INV(dz);\n" - "CCTK_REAL_VEC const khalf = ToReal(0.5);\n" - "CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);\n" - "CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);\n" - "CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);\n" - "CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);\n" - "CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);\n" - "CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);\n" - "CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);\n" + "ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1;\n" + "ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;\n" + "ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;\n" + "ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;\n" + "CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));\n" + "CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));\n" + "CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));\n" + "CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);\n" + "CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);\n" + "CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);\n" + "CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" + "CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" + "CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" + "CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" + "CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" + "CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" + "CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" + "CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" + "CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" + "CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" "\n" "/* Initialize predefined quantities */\n" - "CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" - "CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" - "CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" - "CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" - "CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" - "CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" - "CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" - "CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" - "CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" + "CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" + "CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" + "CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" + "CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" + "CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" + "CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" + "CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" + "CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" + "CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" "\n" "/* Assign local copies of arrays functions */\n" "\n" @@ -87,11 +87,11 @@ static void WT_CL_Gaussian_Body(cGH const * restrict const cctkGH, int const dir " cctk_ash[0],cctk_ash[1],cctk_ash[2],\n" " CCTK_REAL_VEC_SIZE)\n" "{\n" - " ptrdiff_t const index = di*i + dj*j + dk*k;\n" + " ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;\n" " \n" " /* Assign local copies of grid functions */\n" " \n" - " CCTK_REAL_VEC rL = vec_load(r[index]);\n" + " CCTK_REAL_VEC rL CCTK_ATTRIBUTE_UNUSED = vec_load(r[index]);\n" " \n" " \n" " /* Include user supplied include files */\n" @@ -99,10 +99,10 @@ static void WT_CL_Gaussian_Body(cGH const * restrict const cctkGH, int const dir " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC uL = \n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = \n" " kmul(kexp(kmul(kmul(kmul(rL,rL),ToReal(-0.5)),ToReal(ScalarINV(ScalarSQR(width))))),ToReal(amplitude));\n" " \n" - " CCTK_REAL_VEC rhoL = ToReal(0);\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = ToReal(0);\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" diff --git a/ML_WaveToy_CL/src/WT_CL_RHS.cc b/ML_WaveToy_CL/src/WT_CL_RHS.cc index 5e4c9a0..d7345af 100644 --- a/ML_WaveToy_CL/src/WT_CL_RHS.cc +++ b/ML_WaveToy_CL/src/WT_CL_RHS.cc @@ -33,7 +33,7 @@ extern "C" void WT_CL_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_WaveToy_CL::WT_rhorhs","flat"); if (ierr < 0) CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy_CL::WT_rhorhs."); @@ -53,39 +53,39 @@ static void WT_CL_RHS_Body(cGH const * restrict const cctkGH, int const dir, int "/* Include user-supplied include files */\n" "\n" "/* Initialise finite differencing variables */\n" - "ptrdiff_t const di = 1;\n" - "ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;\n" - "ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;\n" - "ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;\n" - "CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));\n" - "CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));\n" - "CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));\n" - "CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);\n" - "CCTK_REAL_VEC const t = ToReal(cctk_time);\n" - "CCTK_REAL_VEC const dxi = INV(dx);\n" - "CCTK_REAL_VEC const dyi = INV(dy);\n" - "CCTK_REAL_VEC const dzi = INV(dz);\n" - "CCTK_REAL_VEC const khalf = ToReal(0.5);\n" - "CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);\n" - "CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);\n" - "CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);\n" - "CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);\n" - "CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);\n" - "CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);\n" - "CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);\n" + "ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1;\n" + "ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;\n" + "ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;\n" + "ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;\n" + "CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));\n" + "CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));\n" + "CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));\n" + "CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);\n" + "CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);\n" + "CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);\n" + "CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" + "CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" + "CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" + "CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" + "CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" + "CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" + "CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" + "CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" + "CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" + "CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" "\n" "/* Initialize predefined quantities */\n" - "CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" - "CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" - "CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" - "CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" - "CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" - "CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" - "CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" - "CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" - "CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" + "CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" + "CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" + "CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" + "CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" + "CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" + "CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" + "CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" + "CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" + "CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" "\n" "/* Assign local copies of arrays functions */\n" "\n" @@ -102,25 +102,25 @@ static void WT_CL_RHS_Body(cGH const * restrict const cctkGH, int const dir, int " cctk_ash[0],cctk_ash[1],cctk_ash[2],\n" " CCTK_REAL_VEC_SIZE)\n" "{\n" - " ptrdiff_t const index = di*i + dj*j + dk*k;\n" + " ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;\n" " \n" " /* Assign local copies of grid functions */\n" " \n" - " CCTK_REAL_VEC rhoL = vec_load(rho[index]);\n" - " CCTK_REAL_VEC uL = vec_load(u[index]);\n" + " CCTK_REAL_VEC rhoL CCTK_ATTRIBUTE_UNUSED = vec_load(rho[index]);\n" + " CCTK_REAL_VEC uL CCTK_ATTRIBUTE_UNUSED = vec_load(u[index]);\n" " \n" " \n" " /* Include user supplied include files */\n" " \n" " /* Precompute derivatives */\n" - " CCTK_REAL_VEC const PDstandardNth11u = PDstandardNth11(&u[index]);\n" - " CCTK_REAL_VEC const PDstandardNth22u = PDstandardNth22(&u[index]);\n" - " CCTK_REAL_VEC const PDstandardNth33u = PDstandardNth33(&u[index]);\n" + " CCTK_REAL_VEC const PDstandardNth11u CCTK_ATTRIBUTE_UNUSED = PDstandardNth11(&u[index]);\n" + " CCTK_REAL_VEC const PDstandardNth22u CCTK_ATTRIBUTE_UNUSED = PDstandardNth22(&u[index]);\n" + " CCTK_REAL_VEC const PDstandardNth33u CCTK_ATTRIBUTE_UNUSED = PDstandardNth33(&u[index]);\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC urhsL = rhoL;\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED urhsL = rhoL;\n" " \n" - " CCTK_REAL_VEC rhorhsL = \n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhorhsL = \n" " kadd(PDstandardNth11u,kadd(PDstandardNth22u,PDstandardNth33u));\n" " \n" " /* Copy local copies back to grid functions */\n" diff --git a/ML_WaveToy_CL/src/WT_CL_Standing.cc b/ML_WaveToy_CL/src/WT_CL_Standing.cc index dc487d9..1d84d1c 100644 --- a/ML_WaveToy_CL/src/WT_CL_Standing.cc +++ b/ML_WaveToy_CL/src/WT_CL_Standing.cc @@ -38,39 +38,39 @@ static void WT_CL_Standing_Body(cGH const * restrict const cctkGH, int const dir "/* Include user-supplied include files */\n" "\n" "/* Initialise finite differencing variables */\n" - "ptrdiff_t const di = 1;\n" - "ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" - "ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;\n" - "ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;\n" - "ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;\n" - "CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));\n" - "CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));\n" - "CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));\n" - "CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);\n" - "CCTK_REAL_VEC const t = ToReal(cctk_time);\n" - "CCTK_REAL_VEC const dxi = INV(dx);\n" - "CCTK_REAL_VEC const dyi = INV(dy);\n" - "CCTK_REAL_VEC const dzi = INV(dz);\n" - "CCTK_REAL_VEC const khalf = ToReal(0.5);\n" - "CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);\n" - "CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);\n" - "CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);\n" - "CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);\n" - "CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);\n" - "CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);\n" - "CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);\n" + "ptrdiff_t const di CCTK_ATTRIBUTE_UNUSED = 1;\n" + "ptrdiff_t const dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);\n" + "ptrdiff_t const cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;\n" + "ptrdiff_t const cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;\n" + "ptrdiff_t const cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;\n" + "CCTK_REAL_VEC const dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));\n" + "CCTK_REAL_VEC const dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));\n" + "CCTK_REAL_VEC const dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));\n" + "CCTK_REAL_VEC const dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);\n" + "CCTK_REAL_VEC const t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);\n" + "CCTK_REAL_VEC const dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);\n" + "CCTK_REAL_VEC const dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);\n" + "CCTK_REAL_VEC const dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);\n" + "CCTK_REAL_VEC const khalf CCTK_ATTRIBUTE_UNUSED = ToReal(0.5);\n" + "CCTK_REAL_VEC const kthird CCTK_ATTRIBUTE_UNUSED = ToReal(1.0/3.0);\n" + "CCTK_REAL_VEC const ktwothird CCTK_ATTRIBUTE_UNUSED = ToReal(2.0/3.0);\n" + "CCTK_REAL_VEC const kfourthird CCTK_ATTRIBUTE_UNUSED = ToReal(4.0/3.0);\n" + "CCTK_REAL_VEC const keightthird CCTK_ATTRIBUTE_UNUSED = ToReal(8.0/3.0);\n" + "CCTK_REAL_VEC const hdxi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dxi);\n" + "CCTK_REAL_VEC const hdyi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dyi);\n" + "CCTK_REAL_VEC const hdzi CCTK_ATTRIBUTE_UNUSED = kmul(ToReal(0.5), dzi);\n" "\n" "/* Initialize predefined quantities */\n" - "CCTK_REAL_VEC const p1o12dx = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" - "CCTK_REAL_VEC const p1o12dy = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" - "CCTK_REAL_VEC const p1o12dz = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" - "CCTK_REAL_VEC const p1o144dxdy = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" - "CCTK_REAL_VEC const p1o144dxdz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" - "CCTK_REAL_VEC const p1o144dydz = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" - "CCTK_REAL_VEC const pm1o12dx2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" - "CCTK_REAL_VEC const pm1o12dy2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" - "CCTK_REAL_VEC const pm1o12dz2 = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" + "CCTK_REAL_VEC const p1o12dx CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dx);\n" + "CCTK_REAL_VEC const p1o12dy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dy);\n" + "CCTK_REAL_VEC const p1o12dz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.0833333333333333333333333333333),dz);\n" + "CCTK_REAL_VEC const p1o144dxdy CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dy,dx));\n" + "CCTK_REAL_VEC const p1o144dxdz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dx));\n" + "CCTK_REAL_VEC const p1o144dydz CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(0.00694444444444444444444444444444),kmul(dz,dy));\n" + "CCTK_REAL_VEC const pm1o12dx2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dx,dx));\n" + "CCTK_REAL_VEC const pm1o12dy2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dy,dy));\n" + "CCTK_REAL_VEC const pm1o12dz2 CCTK_ATTRIBUTE_UNUSED = kdiv(ToReal(-0.0833333333333333333333333333333),kmul(dz,dz));\n" "\n" "/* Assign local copies of arrays functions */\n" "\n" @@ -87,13 +87,13 @@ static void WT_CL_Standing_Body(cGH const * restrict const cctkGH, int const dir " cctk_ash[0],cctk_ash[1],cctk_ash[2],\n" " CCTK_REAL_VEC_SIZE)\n" "{\n" - " ptrdiff_t const index = di*i + dj*j + dk*k;\n" + " ptrdiff_t const index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;\n" " \n" " /* Assign local copies of grid functions */\n" " \n" - " CCTK_REAL_VEC xL = vec_load(x[index]);\n" - " CCTK_REAL_VEC yL = vec_load(y[index]);\n" - " CCTK_REAL_VEC zL = vec_load(z[index]);\n" + " CCTK_REAL_VEC xL CCTK_ATTRIBUTE_UNUSED = vec_load(x[index]);\n" + " CCTK_REAL_VEC yL CCTK_ATTRIBUTE_UNUSED = vec_load(y[index]);\n" + " CCTK_REAL_VEC zL CCTK_ATTRIBUTE_UNUSED = vec_load(z[index]);\n" " \n" " \n" " /* Include user supplied include files */\n" @@ -101,15 +101,17 @@ static void WT_CL_Standing_Body(cGH const * restrict const cctkGH, int const dir " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC k = ToReal(Pi*ScalarINV(width));\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED kvec = \n" + " ToReal(Pi*ScalarINV(width));\n" " \n" - " CCTK_REAL_VEC omega = ksqrt(kmul(kmul(k,k),ToReal(3)));\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED omega = \n" + " ksqrt(kmul(kmul(kvec,kvec),ToReal(3)));\n" " \n" - " CCTK_REAL_VEC uL = \n" - " kmul(kcos(kmul(xL,k)),kmul(kcos(kmul(yL,k)),kmul(kcos(kmul(zL,k)),kmul(kcos(kmul(omega,t)),ToReal(amplitude)))));\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED uL = \n" + " kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(kcos(kmul(omega,t)),ToReal(amplitude)))));\n" " \n" - " CCTK_REAL_VEC rhoL = \n" - " kneg(kmul(omega,kmul(kcos(kmul(xL,k)),kmul(kcos(kmul(yL,k)),kmul(kcos(kmul(zL,k)),kmul(ksin(kmul(omega,t)),ToReal(amplitude)))))));\n" + " CCTK_REAL_VEC CCTK_ATTRIBUTE_UNUSED rhoL = \n" + " kneg(kmul(omega,kmul(kcos(kmul(xL,kvec)),kmul(kcos(kmul(yL,kvec)),kmul(kcos(kmul(zL,kvec)),kmul(ksin(kmul(omega,t)),ToReal(amplitude)))))));\n" " \n" " /* Copy local copies back to grid functions */\n" " vec_store_partial_prepare(i,lc_imin,lc_imax);\n" -- cgit v1.2.3