From ce865934c54a2b7e2fc4ed7e6b0ed737c258234b 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/CartGrid3D/trunk@187 c78560ca-4b45-4335-b268-5f3340f3cb52 --- src/GetSymmetry.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/GetSymmetry.c') diff --git a/src/GetSymmetry.c b/src/GetSymmetry.c index 7c6767c..f21a3ee 100644 --- a/src/GetSymmetry.c +++ b/src/GetSymmetry.c @@ -33,9 +33,9 @@ CCTK_FILEVERSION(CactusBase_CartGrid3D_GetSymmetry_c) void DecodeSymParameters3D(int sym[6]); void CCTK_FCALL CCTK_FNAME(GetCartSymVI) - (int *ierr, const cGH *GH, int *sym, const int *vi); + (int *ierr, const cGH **GH, int *sym, const int *vi); void CCTK_FCALL CCTK_FNAME(GetCartSymVN) - (int *ierr, const cGH *GH, int *sym, ONE_FORTSTRING_ARG); + (int *ierr, const cGH **GH, int *sym, ONE_FORTSTRING_ARG); /******************************************************************** ********************* External Routines ********************** @@ -81,9 +81,9 @@ int GetCartSymVI(const cGH *GH, int *sym, int vi) } void CCTK_FCALL CCTK_FNAME(GetCartSymVI) - (int *ierr, const cGH *GH, int *sym, const int *vi) + (int *ierr, const cGH **GH, int *sym, const int *vi) { - *ierr = GetCartSymVI(GH, sym, *vi); + *ierr = GetCartSymVI(*GH, sym, *vi); } @@ -113,10 +113,10 @@ int GetCartSymVN(const cGH *GH, int *sym, const char *vn) } void CCTK_FCALL CCTK_FNAME(GetCartSymVN) - (int *ierr, const cGH *GH, int *sym, ONE_FORTSTRING_ARG) + (int *ierr, const cGH **GH, int *sym, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(vn) - *ierr = GetCartSymVN(GH, sym, vn); + *ierr = GetCartSymVN(*GH, sym, vn); free(vn); } -- cgit v1.2.3