1 files changed, 35 insertions, 0 deletions
diff --git a/ML_ADM/src/RegisterMoL.c b/ML_ADM/src/RegisterMoL.c
new file mode 100644
index 0000000..a87e176
--- /dev/null
+++ b/ML_ADM/src/RegisterMoL.c
@@ -0,0 +1,35 @@
+/*  File produced by user eschnett */
+/*  Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */
+
+/*  Mathematica script written by Ian Hinder and Sascha Husa */
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+void ML_ADM_RegisterVars(CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_PARAMETERS
+  
+  CCTK_INT ierr = 0;
+  
+  /* Register all the evolved grid functions with MoL */
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K11"),  CCTK_VarIndex("ML_ADM::K11rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K21"),  CCTK_VarIndex("ML_ADM::K21rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K31"),  CCTK_VarIndex("ML_ADM::K31rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K22"),  CCTK_VarIndex("ML_ADM::K22rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K32"),  CCTK_VarIndex("ML_ADM::K32rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::K33"),  CCTK_VarIndex("ML_ADM::K33rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::alpha"),  CCTK_VarIndex("ML_ADM::alpharhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::g11"),  CCTK_VarIndex("ML_ADM::g11rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::g21"),  CCTK_VarIndex("ML_ADM::g21rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::g31"),  CCTK_VarIndex("ML_ADM::g31rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::g22"),  CCTK_VarIndex("ML_ADM::g22rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::g32"),  CCTK_VarIndex("ML_ADM::g32rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::g33"),  CCTK_VarIndex("ML_ADM::g33rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::beta1"),  CCTK_VarIndex("ML_ADM::beta1rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::beta2"),  CCTK_VarIndex("ML_ADM::beta2rhs"));
+  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_ADM::beta3"),  CCTK_VarIndex("ML_ADM::beta3rhs"));
+  return;
+}