diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-28 13:48:26 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-28 13:48:26 +0000 |
| commit | 9384d5ead61eeb13ff4be9f182d328081e3af018 (patch) | |
| tree | d939345f7ba2f2ebd5038aab37c13e76e30aad19 /src/IO/FortranBindingsIO.c | |
| parent | a31931c369a680cc3abd31f75be611521718d815 (diff) | |
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
Diffstat (limited to 'src/IO/FortranBindingsIO.c')
| -rw-r--r-- | src/IO/FortranBindingsIO.c | 6 |
1 files changed, 3 insertions, 3 deletions
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); } /*@@ |