From 9384d5ead61eeb13ff4be9f182d328081e3af018 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 28 Oct 2003 13:48:26 +0000 Subject: 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 --- src/IO/FortranBindingsIO.c | 6 +++--- src/IO/IOMethods.c | 24 ++++++++++++------------ 2 files changed, 15 insertions(+), 15 deletions(-) (limited to 'src/IO') diff --git a/src/IO/FortranBindingsIO.c b/src/IO/FortranBindingsIO.c index e3e72426..bf644ea9 100644 --- a/src/IO/FortranBindingsIO.c +++ b/src/IO/FortranBindingsIO.c @@ -27,7 +27,7 @@ CCTK_FILEVERSION(IO_FortranBindingsIO_c); ********************************************************************/ void CCTK_FCALL CCTK_FNAME (CCTK_OutputGH) - (int *istat, const cGH *GH); + (int *istat, const cGH **GH); void CCTK_FCALL CCTK_FNAME (CCTKi_RegisterIOMethod) (int *handle, TWO_FORTSTRING_ARG); @@ -63,9 +63,9 @@ void CCTK_FCALL CCTK_FNAME (CCTKi_RegisterIOMethod) @endreturndesc @@*/ void CCTK_FCALL CCTK_FNAME (CCTK_OutputGH) - (int *istat, const cGH *GH) + (int *istat, const cGH **GH) { - *istat = CCTK_OutputGH (GH); + *istat = CCTK_OutputGH (*GH); } /*@@ diff --git a/src/IO/IOMethods.c b/src/IO/IOMethods.c index e4a4462e..9eb91bb4 100644 --- a/src/IO/IOMethods.c +++ b/src/IO/IOMethods.c @@ -49,13 +49,13 @@ int CactusDefaultOutputVarAsByMethod (const cGH *GH, const char *alias); void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAsByMethod) - (int *ierr, const cGH *GH, THREE_FORTSTRING_ARG); + (int *ierr, const cGH **GH, THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarByMethod) - (int *ierr, const cGH *GH, TWO_FORTSTRING_ARG); + (int *ierr, const cGH **GH, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_OutputVar) - (int *istat, const cGH *GH, ONE_FORTSTRING_ARG); + (int *istat, const cGH **GH, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAs) - (int *istat, const cGH *GH, TWO_FORTSTRING_ARG); + (int *istat, const cGH **GH, TWO_FORTSTRING_ARG); int CCTKi_TriggerSaysGo (const cGH *GH, int variable); @@ -391,10 +391,10 @@ int CCTK_OutputVarAs (const cGH *GH, const char *var, const char *alias) } void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAs) - (int *istat, const cGH *GH, TWO_FORTSTRING_ARG) + (int *istat, const cGH **GH, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (var,as); - *istat = CCTK_OutputVarAs (GH, var,as); + *istat = CCTK_OutputVarAs (*GH, var,as); free (var); free (as); } @@ -436,10 +436,10 @@ int CCTK_OutputVar (const cGH *GH, const char *var) } void CCTK_FCALL CCTK_FNAME (CCTK_OutputVar) - (int *istat, const cGH *GH, ONE_FORTSTRING_ARG) + (int *istat, const cGH **GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (var); - *istat = CCTK_OutputVar (GH, var); + *istat = CCTK_OutputVar (*GH, var); free (var); } @@ -487,10 +487,10 @@ int CCTK_OutputVarByMethod (const cGH *GH, const char *var, const char *method) } void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarByMethod) - (int *ierr, const cGH *GH, TWO_FORTSTRING_ARG) + (int *ierr, const cGH **GH, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (var, method); - *ierr = CCTK_OutputVarByMethod (GH, var, method); + *ierr = CCTK_OutputVarByMethod (*GH, var, method); free (var); free (method); } @@ -758,11 +758,11 @@ int CactusDefaultOutputVarAsByMethod (const cGH *GH, } void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAsByMethod) - (int *ierr, const cGH *GH, THREE_FORTSTRING_ARG) + (int *ierr, const cGH **GH, THREE_FORTSTRING_ARG) { THREE_FORTSTRING_CREATE (var, methodname, alias); - *ierr = CCTK_OutputVarAsByMethod (GH, var, methodname, alias); + *ierr = CCTK_OutputVarAsByMethod (*GH, var, methodname, alias); free (var); free (methodname); -- cgit v1.2.3