Changed to use CCTK_rfrTraverse which deals with extensions too.

Tom


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

2 files changed, 14 insertions, 14 deletions

diff --git a/src/main/CactusDefaultEvolve.c b/src/main/CactusDefaultEvolve.c
index c057a451..a15856c8 100644
--- a/src/main/CactusDefaultEvolve.c
+++ b/src/main/CactusDefaultEvolve.c
@@ -83,7 +83,7 @@ int CactusDefaultEvolve(tFleshConfig *config)
     /* Dump out checkpoint data on all levels */
     ForallConvLevels(iteration, convergence_level)
     {
-      rfrTraverse(config->GH[convergence_level]->rfr_top,config->GH[convergence_level],CACTUS_CHECKPOINT);
+      CCTK_rfrTraverse(config->GH[convergence_level],CACTUS_CHECKPOINT);
     }
     EndForallConvLevels;
 
@@ -170,7 +170,7 @@ void PreStepper(cGH *GH) {
 
   /* Call the rfr with CACTUS_PRESTEP */
   for (Rstep = CACTUS_PRESTEP;Rstep <= CACTUS_PRESTEP5; Rstep++)
-    rfrTraverse(GH->rfr_top,GH, Rstep);
+    CCTK_rfrTraverse(GH, Rstep);
 }
  /*@@
    @routine    EvolStepper
@@ -189,7 +189,7 @@ void PreStepper(cGH *GH) {
 
 void EvolStepper(cGH *GH) {
   /* Call the rfr with Evolution */
-  rfrTraverse(GH->rfr_top,GH, CACTUS_EVOL);
+  CCTK_rfrTraverse(GH, CACTUS_EVOL);
   /* after Evolution check for NANs */
 
 #ifdef 0
@@ -217,7 +217,7 @@ void EvolStepper(cGH *GH) {
 @@*/
 
 void BoundStepper(cGH *GH) {
-  rfrTraverse(GH->rfr_top,GH,CACTUS_BOUND);
+  CCTK_rfrTraverse(GH,CACTUS_BOUND);
 }
 
  /*@@
@@ -238,7 +238,7 @@ void PostStepper(cGH *GH) {
   int Rstep;  
    /* Call the rfr with post step */
   for (Rstep = CACTUS_POSTSTEP; Rstep <= CACTUS_POSTSTEP10; Rstep++)
-    rfrTraverse(GH->rfr_top,GH, Rstep); 
+    CCTK_rfrTraverse(GH, Rstep); 
 }
  /*@@
    @routine    TerminationStepper
@@ -274,5 +274,5 @@ void TerminationStepper(cGH *GH) {
     cactus_terminate=TERMINATION_RAISED_BRDCAST;
     printf("RECEIVED GLOBAL TERMINATION SIGNAL \n");
   }
-  rfrTraverse(GH->rfr_top,GH,CACTUS_TERMINATE);
+  CCTK_rfrTraverse(GH,CACTUS_TERMINATE);
 }
diff --git a/src/main/CactusDefaultInitialise.c b/src/main/CactusDefaultInitialise.c
index ee3d7088..5f223cfe 100644
--- a/src/main/CactusDefaultInitialise.c
+++ b/src/main/CactusDefaultInitialise.c
@@ -125,29 +125,29 @@ int Cactus_InitialiseGH(cGH *GH)
   CCTK_BindingsScheduleRegister("RFRINIT", (void *)GH);
 
 
-  /* Traverse all the extensions. */
-  CCTK_TraverseGHExtensions(GH, "INITIALISE");
+  /* Initialise all the extensions. */
+  CCTK_InitGHExtensions(GH);
 
 
   /* Do various rfr traversals.  Will tidy up later. */
 
-  rfrTraverse(GH->rfr_top,GH, CACTUS_BASEGRID); 
-  rfrTraverse(GH->rfr_top,GH,CACTUS_INITIAL0);
+  CCTK_rfrTraverse(GH, CACTUS_BASEGRID); 
+  CCTK_rfrTraverse(GH,CACTUS_INITIAL0);
 
   /* Loops like this should go eventually... */
   for (Rstep = CACTUS_INITIAL; Rstep <= CACTUS_INITIAL9; Rstep++)
   {
-    rfrTraverse(GH->rfr_top,GH,Rstep);
+    CCTK_rfrTraverse(GH,Rstep);
   }
 
   /* Ignore checkpointing for now.
-   * rfrTraverse(GH->rfr_top,GH,CACTUS_RECOVER);
-   * rfrTraverse(GH->rfr_top,GH,CACTUS_CPINITIAL);
+   * CCTK_rfrTraverse(GH,CACTUS_RECOVER);
+   * CCTK_rfrTraverse(GH,CACTUS_CPINITIAL);
    */
 
   for (Rstep = CACTUS_POSTSTEP; Rstep <= CACTUS_POSTSTEP10; Rstep++)
   {
-    rfrTraverse(GH->rfr_top,GH,Rstep);
+    CCTK_rfrTraverse(GH,Rstep);
   }
 
 }