From f309591c537df47f10c80ab4799e247e424963a2 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 28 Oct 2003 13:48:24 +0000 Subject: 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 --- src/CheckpointRecovery.c | 6 +++--- 1 file 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); } -- cgit v1.2.3