diff options
| -rw-r--r-- | interface.ccl | 3 | ||||
| -rw-r--r-- | src/Registration.c | 28 |
2 files changed, 31 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index d6ba960..56f4681 100644 --- a/interface.ccl +++ b/interface.ccl @@ -35,6 +35,7 @@ CCTK_INT FUNCTION MoLChangeToConstrained(CCTK_INT IN ConstrainedIndex) CCTK_INT FUNCTION MoLChangeToSaveAndRestore(CCTK_INT IN SandRIndex) CCTK_INT FUNCTION MoLChangeToNone(CCTK_INT IN RemoveIndex) CCTK_INT FUNCTION MoLQueryEvolvedRHS(CCTK_INT IN EvolvedIndex) +CCTK_INT FUNCTION MoLNumIntegratorSubsteps() PROVIDES FUNCTION MoLRegisterEvolved WITH MoL_RegisterEvolved LANGUAGE C PROVIDES FUNCTION MoLRegisterConstrained WITH MoL_RegisterConstrained \ @@ -54,6 +55,8 @@ PROVIDES FUNCTION MoLChangeToSaveAndRestore WITH MoL_ChangeToSaveAndRestore \ LANGUAGE C PROVIDES FUNCTION MoLChangeToNone WITH MoL_ChangeToNone LANGUAGE C PROVIDES FUNCTION MoLQueryEvolvedRHS WITH MoL_QueryEvolvedRHS LANGUAGE C +PROVIDES FUNCTION MoLNumIntegratorSubsteps WITH MoL_NumIntegratorSubsteps \ + LANGUAGE C ################################################################ ### Aliased registration and type changing functions for the ### diff --git a/src/Registration.c b/src/Registration.c index 8dd4a16..c63fbb2 100644 --- a/src/Registration.c +++ b/src/Registration.c @@ -110,6 +110,8 @@ CCTK_INT MoL_RegisterConstrainedComplexArrayGroup(CCTK_INT ConstrainedGroupIndex CCTK_INT MoL_RegisterSaveAndRestoreComplexArrayGroup(CCTK_INT SandRGroupIndex); CCTK_INT MoL_QueryEvolvedRHS(CCTK_INT EvolvedIndex); + +CCTK_INT MoL_NumIntegratorSubsteps(void); /******************************************************************** ********************* Local Data ***************************** @@ -2771,6 +2773,32 @@ CCTK_INT MoL_QueryEvolvedRHS(CCTK_INT EvolvedIndex) } + + + /*@@ + @routine MoL_NumIntegratorSubsteps + @date 2007-05-23 + @author Erik Schnetter + @desc + Return how many time integrator substeps there are. + @enddesc + @calls + @calledby + @history + + @endhistory + +@@*/ + +CCTK_INT MoL_NumIntegratorSubsteps (void) +{ + DECLARE_CCTK_PARAMETERS; + + return MoL_Intermediate_Steps; +} + + + /* Old function names. Just calls the new version. Included for compatibility |