Regenerate code after correcting error in Kranc.

5 files changed, 39 insertions, 45 deletions

diff --git a/ML_BSSN/param.ccl b/ML_BSSN/param.ccl
index d105c58..2a90c6a 100644
--- a/ML_BSSN/param.ccl
+++ b/ML_BSSN/param.ccl
@@ -120,12 +120,6 @@ CCTK_INT conformalMethod "Treatment of conformal factor"
   *:* :: ""
 } 0
 
-restricted:
-CCTK_INT useMatter "Add matter terms"
-{
-  *:* :: ""
-} 1
-
 private:
 KEYWORD my_initial_data "my_initial_data"
 {
diff --git a/ML_BSSN/src/ML_BSSN_RHS.c b/ML_BSSN/src/ML_BSSN_RHS.c
index ad6e249..241c214 100644
--- a/ML_BSSN/src/ML_BSSN_RHS.c
+++ b/ML_BSSN/src/ML_BSSN_RHS.c
@@ -291,16 +291,16 @@ void ML_BSSN_RHS_Body(cGH const * restrict const cctkGH, int const dir, int cons
     CCTK_REAL const beta2L = beta2[index];
     CCTK_REAL const beta3L = beta3[index];
     CCTK_REAL const etaL = eta[index];
-    CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0;
-    CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0;
-    CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0;
-    CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0;
-    CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0;
-    CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0;
-    CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0;
-    CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0;
-    CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0;
-    CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0;
+    CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0;
+    CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0;
+    CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0;
+    CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0;
+    CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0;
+    CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0;
+    CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0;
+    CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0;
+    CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0;
+    CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0;
     CCTK_REAL const gt11L = gt11[index];
     CCTK_REAL const gt12L = gt12[index];
     CCTK_REAL const gt13L = gt13[index];
diff --git a/ML_BSSN/src/ML_BSSN_RHS1.c b/ML_BSSN/src/ML_BSSN_RHS1.c
index 63d25bb..d0ded82 100644
--- a/ML_BSSN/src/ML_BSSN_RHS1.c
+++ b/ML_BSSN/src/ML_BSSN_RHS1.c
@@ -206,15 +206,15 @@ void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int con
     CCTK_REAL const beta2L = beta2[index];
     CCTK_REAL const beta3L = beta3[index];
     CCTK_REAL const etaL = eta[index];
-    CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0;
-    CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0;
-    CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0;
-    CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0;
-    CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0;
-    CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0;
-    CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0;
-    CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0;
-    CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0;
+    CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0;
+    CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0;
+    CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0;
+    CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0;
+    CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0;
+    CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0;
+    CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0;
+    CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0;
+    CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0;
     CCTK_REAL const gt11L = gt11[index];
     CCTK_REAL const gt12L = gt12[index];
     CCTK_REAL const gt13L = gt13[index];
diff --git a/ML_BSSN/src/ML_BSSN_RHS2.c b/ML_BSSN/src/ML_BSSN_RHS2.c
index 3c6b439..36e48b4 100644
--- a/ML_BSSN/src/ML_BSSN_RHS2.c
+++ b/ML_BSSN/src/ML_BSSN_RHS2.c
@@ -269,16 +269,16 @@ void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int con
     CCTK_REAL const beta1L = beta1[index];
     CCTK_REAL const beta2L = beta2[index];
     CCTK_REAL const beta3L = beta3[index];
-    CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0;
-    CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0;
-    CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0;
-    CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0;
-    CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0;
-    CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0;
-    CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0;
-    CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0;
-    CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0;
-    CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0;
+    CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0;
+    CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0;
+    CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0;
+    CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0;
+    CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0;
+    CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0;
+    CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0;
+    CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0;
+    CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0;
+    CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0;
     CCTK_REAL const gt11L = gt11[index];
     CCTK_REAL const gt12L = gt12[index];
     CCTK_REAL const gt13L = gt13[index];
diff --git a/ML_BSSN/src/ML_BSSN_constraints.c b/ML_BSSN/src/ML_BSSN_constraints.c
index 48db1b3..6dadf1e 100644
--- a/ML_BSSN/src/ML_BSSN_constraints.c
+++ b/ML_BSSN/src/ML_BSSN_constraints.c
@@ -250,16 +250,16 @@ void ML_BSSN_constraints_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL const beta1L = beta1[index];
     CCTK_REAL const beta2L = beta2[index];
     CCTK_REAL const beta3L = beta3[index];
-    CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0;
-    CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0;
-    CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0;
-    CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0;
-    CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0;
-    CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0;
-    CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0;
-    CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0;
-    CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0;
-    CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0;
+    CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0;
+    CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0;
+    CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0;
+    CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0;
+    CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0;
+    CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0;
+    CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0;
+    CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0;
+    CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0;
+    CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0;
     CCTK_REAL const gt11L = gt11[index];
     CCTK_REAL const gt12L = gt12[index];
     CCTK_REAL const gt13L = gt13[index];