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

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOUtil/trunk@195 b32723a9-ab3a-4a60-88e2-2e5d99d7c17a

1 files changed, 3 insertions, 3 deletions

diff --git a/src/CheckpointRecovery.c b/src/CheckpointRecovery.c
index 790b5ba..3055940 100644
--- a/src/CheckpointRecovery.c
+++ b/src/CheckpointRecovery.c
@@ -34,7 +34,7 @@ CCTK_FILEVERSION(CactusBase_IOUtil_CheckpointRecovery_c)
 void IOUtil_RecoverGH (cGH *GH);
 void IOUtil_RecoverIDFromDatafiles (cGH *GH);
 void CCTK_FCALL CCTK_FNAME (IOUtil_RecoverVarsFromDatafiles)
-                           (int *result, cGH *GH, TWO_FORTSTRING_ARG);
+                           (int *result, cGH **GH, TWO_FORTSTRING_ARG);
 
 
 /********************************************************************
@@ -461,10 +461,10 @@ int IOUtil_RecoverVarsFromDatafiles (cGH *GH,
 }
 
 void CCTK_FCALL CCTK_FNAME (IOUtil_RecoverVarsFromDatafiles)
-                           (int *result, cGH *GH, TWO_FORTSTRING_ARG)
+                           (int *result, cGH **GH, TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRING_CREATE (in_files, in_vars)
-  *result = IOUtil_RecoverVarsFromDatafiles (GH, in_files, in_vars);
+  *result = IOUtil_RecoverVarsFromDatafiles (*GH, in_files, in_vars);
   free (in_files);
   free (in_vars);
 }