Made CCTK_MainLoopIndex and CCTK_SetMainLoopIndex overloadable, and added

routines that were originally there as defaults


git-svn-id: http://svn.cactuscode.org/flesh/trunk@1852 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 55 insertions, 0 deletions

diff --git a/src/main/CactusDefaultMainLoopIndex.c b/src/main/CactusDefaultMainLoopIndex.c
new file mode 100644
index 00000000..5855d3ab
--- /dev/null
+++ b/src/main/CactusDefaultMainLoopIndex.c
@@ -0,0 +1,55 @@
+ /*@@
+   @file      CactusDefaultMainLoopIndex.c
+   @date      Wed Oct 04 16:53:58 2000
+   @author    Gabrielle Allen
+   @desc 
+   The default main loop index routines
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+
+static char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(main_CactusDefaultMainLoopIndex_c)
+
+static int iteration = 0;
+
+ /*@@
+   @routine    CactusDefaultMainLoopIndex
+   @date       Wed Oct 04 16:53:58 2000
+   @author     Gabrielle Allen
+   @desc 
+   Default main loop index routine
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CactusDefaultMainLoopIndex(void)
+{
+  return (iteration);
+}
+
+
+ /*@@
+   @routine    CactusDefaultSetMainLoopIndex
+   @date       Sep 22 1999
+   @author     Thomas Radke
+   @desc 
+               Sets the iteration counter variable of the evolution loop.
+               This is used for recovery.
+   @enddesc 
+   @calls     
+   @calledby   
+
+@@*/
+int CactusDefaultSetMainLoopIndex (int main_loop_index)
+{
+  iteration = main_loop_index;
+  return iteration;
+}
+