New file rfrInterface.c which contains the stuff the flesh needs

when dealing with the rfr.

Tom


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

2 files changed, 40 insertions, 1 deletions

diff --git a/src/main/make.code.defn b/src/main/make.code.defn
index f4923aff..7e85d542 100644
--- a/src/main/make.code.defn
+++ b/src/main/make.code.defn
@@ -21,5 +21,7 @@ StoreVariableData.c\
 flesh.cc\
 Groups.c\
 Variables.c\
-Dummies.c
+Dummies.c\
+rfrInterface.c
+
 
diff --git a/src/main/rfrInterface.c b/src/main/rfrInterface.c
new file mode 100644
index 00000000..cac52f42
--- /dev/null
+++ b/src/main/rfrInterface.c
@@ -0,0 +1,37 @@
+ /*@@
+   @file      rfrInterface.c
+   @date      Wed Feb  3 14:42:24 1999
+   @author    Tom Goodale
+   @desc 
+   Routine used by cactus to talk to the rfr.
+   @enddesc 
+ @@*/
+
+#include "flesh.h"
+#include "GHExtensions.h"
+
+static char *rcsid = "$Id$";
+
+
+ /*@@
+   @routine    CCTK_rfrTraverse
+   @date       Wed Feb  3 14:45:57 1999
+   @author     Tom Goodale
+   @desc 
+   Calls the rfrTraverse, then deals with extensions.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_rfrTraverse(cGH *GH, int rfrpoint)
+{
+  rfrTraverse(GH->rfr_top, GH, rfrpoint);
+  
+  CCTK_rfrTraverseGHExtensions(GH, rfrpoint);
+
+  return 0;
+}