1 files changed, 71 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl
new file mode 100644
index 0000000..ace52c1
--- /dev/null
+++ b/interface.ccl
@@ -0,0 +1,71 @@
+# Interface definition for thorn MoL2
+# $Header$
+
+implements: MethodOfLines
+
+inherits: nanchecker
+
+INCLUDE HEADER: MoLFunctions.h IN MoLFunctions.h
+INCLUDE HEADER: MoL.h IN MoL.h
+USES INCLUDE: NaNChecker.h
+
+CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
+CCTK_INT FUNCTION MoLRegisterConstrained(CCTK_INT ConstrainedIndex)
+CCTK_INT FUNCTION MoLRegisterSaveAndRestore(CCTK_INT SandRIndex)
+CCTK_INT FUNCTION MoLRegisterEvolvedGroup(CCTK_INT EvolvedIndex, \
+                                          CCTK_INT RHSIndex)
+CCTK_INT FUNCTION MoLRegisterConstrainedGroup(CCTK_INT ConstrainedIndex)
+CCTK_INT FUNCTION MoLRegisterSaveAndRestoreGroup(CCTK_INT SandRIndex)
+CCTK_INT FUNCTION MoLChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
+CCTK_INT FUNCTION MoLChangeToConstrained(CCTK_INT ConstrainedIndex)
+CCTK_INT FUNCTION MoLChangeToSaveAndRestore(CCTK_INT SandRIndex)
+CCTK_INT FUNCTION MoLChangeToNone(CCTK_INT RemoveIndex)
+
+PROVIDES FUNCTION MoLRegisterEvolved WITH MoL_RegisterEvolved LANGUAGE C
+PROVIDES FUNCTION MoLRegisterConstrained WITH MoL_RegisterConstrained \
+                  LANGUAGE C
+PROVIDES FUNCTION MoLRegisterSaveAndRestore WITH MoL_RegisterSaveAndRestore \
+                  LANGUAGE C
+PROVIDES FUNCTION MoLRegisterEvolvedGroup WITH MoL_RegisterEvolvedGroup \
+                  LANGUAGE C
+PROVIDES FUNCTION MoLRegisterConstrainedGroup WITH \
+                  MoL_RegisterConstrainedGroup LANGUAGE C
+PROVIDES FUNCTION MoLRegisterSaveAndRestoreGroup WITH \
+                  MoL_RegisterSaveAndRestoreGroup LANGUAGE C
+PROVIDES FUNCTION MoLChangeToEvolved WITH MoL_ChangeToEvolved LANGUAGE C
+PROVIDES FUNCTION MoLChangeToConstrained WITH MoL_ChangeToConstrained \
+                  LANGUAGE C
+PROVIDES FUNCTION MoLChangeToSaveAndRestore WITH MoL_ChangeToSaveAndRestore \
+                  LANGUAGE C
+PROVIDES FUNCTION MoLChangeToNone WITH MoL_ChangeToNone LANGUAGE C
+
+private:
+
+CCTK_REAL RKAlphaCoefficients TYPE=ARRAY DIM=2 SIZE=MoL_Intermediate_Steps,MoL_Num_Scratch_Levels+1 DISTRIB=CONSTANT
+{
+  RKAlphaCoefficients
+} "The alpha coefficients used by the generic Runge-Kutta integrators"
+
+CCTK_REAL RKBetaCoefficients TYPE=ARRAY DIM=1 SIZE=MoL_Intermediate_Steps DISTRIB=CONSTANT
+{
+  RKBetaCoefficients
+} "The beta coefficients used by the generic Runge-Kutta integrators"
+
+CCTK_INT MoL_Counters TYPE = SCALAR
+{
+  MoL_Intermediate_Step
+} "The counter for the time integration method"
+
+CCTK_REAL MoL_Original_Time TYPE = SCALAR
+{
+  Original_Time
+  Original_Delta_Time
+} "The original time and delta time which are reset by MoL during evolution"
+
+# This is extremely unforgiving - it doesn't allow whitespace in the
+# arithmetic expressions.
+
+CCTK_REAL ScratchSpace[MoL_Num_Evolved_Vars*MoL_Num_Scratch_Levels+1] TYPE = GF Timelevels = 1
+
+CCTK_REAL SandRScratchSpace[MoL_Num_SaveAndRestore_Vars+1] TYPE = GF Timelevels = 1
+