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

git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@420 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 3 insertions, 3 deletions

diff --git a/src/PughUtils.c b/src/PughUtils.c
index 0687b1f..975f197 100644
--- a/src/PughUtils.c
+++ b/src/PughUtils.c
@@ -40,7 +40,7 @@ void PUGHi_PrintStorageReport (void);
 void PUGH_PrintFinalStorageReport (const cGH *GH);
 void PUGH_PrintStorage(const cGH *GH);
 void CCTK_FCALL CCTK_FNAME (PUGH_PrintStorage)
-                           (const cGH *GH);
+                           (const cGH **GH);
 
  /*@@
    @routine    PUGH_Topology
@@ -416,7 +416,7 @@ void PUGH_PrintStorage (const cGH *GH)
 }
 
 void CCTK_FCALL CCTK_FNAME (PUGH_PrintStorage)
-                           (const cGH *GH)
+                           (const cGH **GH)
 {
-  PUGH_PrintStorage (GH);
+  PUGH_PrintStorage (*GH);
 }