Changes to CCTK_MainLoopIndex and CCTK_SetMainLoopIndex (which now returns what the index is set to)

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

3 files changed, 52 insertions, 1 deletions

diff --git a/src/main/CactusDefaultEvolve.c b/src/main/CactusDefaultEvolve.c
index 056549b8..ed009925 100644
--- a/src/main/CactusDefaultEvolve.c
+++ b/src/main/CactusDefaultEvolve.c
@@ -67,7 +67,7 @@ static int iteration = 0;
 int CCTK_SetMainLoopIndex (int main_loop_index)
 {
   iteration = main_loop_index;
-  return 0;
+  return iteration;
 }
 
 
diff --git a/src/main/MainUtils.c b/src/main/MainUtils.c
new file mode 100644
index 00000000..524ddbca
--- /dev/null
+++ b/src/main/MainUtils.c
@@ -0,0 +1,50 @@
+ /*@@
+   @file      MainUtils.c
+   @date      Sep 22 1999
+   @author    Thomas Radke, Gabrielle Allen
+   @desc 
+   Utility Flesh routines
+   @enddesc 
+   @version $Header$
+ @@*/
+
+/* the iteration counter used in the evolution loop */
+static int iteration = 0;
+
+
+ /*@@
+   @routine    CCTK_SetMainLoopIndex
+   @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 CCTK_SetMainLoopIndex (int main_loop_index)
+{
+  iteration = main_loop_index;
+  return iteration;
+}
+
+
+ /*@@
+   @routine    CCTK_MainLoopIndex
+   @date       Sep 22 1999
+   @author     Thomas Radke
+   @desc 
+               Returns the iteration counter variable of the evolution loop.
+               This is used for checkpointing.
+   @enddesc 
+   @calls     
+   @calledby   
+
+@@*/
+int CCTK_MainLoopIndex (void)
+{
+  return (iteration);
+}
+
diff --git a/src/main/make.code.defn b/src/main/make.code.defn
index 00b11e89..0b4d7c59 100644
--- a/src/main/make.code.defn
+++ b/src/main/make.code.defn
@@ -22,6 +22,7 @@ Groups.c\
 GroupsOnGH.c\
 InitialiseCactus.c\
 InitialiseDataStructures.c\
+MainUtils.c\
 Names.c\
 OverloadMain.c\
 Parameters.c\