Change the way in which pointers are passed to and from Fortran.

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

1 files changed, 6 insertions, 1 deletions

diff --git a/src/include/cGH.h b/src/include/cGH.h
index 0fa98a9c..2ff557d6 100644
--- a/src/include/cGH.h
+++ b/src/include/cGH.h
@@ -21,8 +21,13 @@ typedef struct
   char comm;
 } cGHGroupData;
 
-typedef struct
+typedef struct _cGH
 {
+  /* Pointer to self.  This is a temporary measure to provide a safety
+     net while the passing of pointers to and from Fortran is
+     changed.  */
+  struct _cGH *self;
+
   int cctk_dim;
   int cctk_iteration;