diff options
| author | schnetter <schnetter@c78560ca-4b45-4335-b268-5f3340f3cb52> | 2003-10-28 13:48:24 +0000 |
|---|---|---|
| committer | schnetter <schnetter@c78560ca-4b45-4335-b268-5f3340f3cb52> | 2003-10-28 13:48:24 +0000 |
| commit | ce865934c54a2b7e2fc4ed7e6b0ed737c258234b (patch) | |
| tree | 684c6d1a0cad7541131d8d3f39db22a7e3d79b84 /src/GetSymmetry.c | |
| parent | 56beba407910ceb3d9af6372b0a84d7b133bea75 (diff) | |
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
Diffstat (limited to 'src/GetSymmetry.c')
| -rw-r--r-- | src/GetSymmetry.c | 12 |
1 files changed, 6 insertions, 6 deletions
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); } |