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/main/Coord.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/main/Coord.c')
-rw-r--r-- | src/main/Coord.c | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/src/main/Coord.c b/src/main/Coord.c index 1e9cc6f8..2dc4fded 100644 --- a/src/main/Coord.c +++ b/src/main/Coord.c @@ -87,14 +87,14 @@ void CCTK_FCALL CCTK_FNAME (CCTK_CoordRegisterData) (int *handle,const int *dir,THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_CoordRegisterRange) (int *ierr, - const cGH *GH, + const cGH **GH, const CCTK_REAL *lower, const CCTK_REAL *upper, const int *dir, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_CoordRegisterRangePhysIndex) (int *ierr, - const cGH *GH, + const cGH **GH, const int *lower, const int *upper, const int *dir, @@ -109,21 +109,21 @@ void CCTK_FCALL CCTK_FNAME (CCTK_CoordDir) (int *dir, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_CoordRange) (int *ierr, - const cGH *GH, + const cGH **GH, CCTK_REAL *lower, CCTK_REAL *upper, const int *dir, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_CoordRangePhysIndex) (int *ierr, - const cGH *GH, + const cGH **GH, int *lower, int *upper, const int *dir, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_CoordLocalRange) (int *ierr, - const cGH *GH, + const cGH **GH, CCTK_REAL *lower, CCTK_REAL *upper, const int *dir, @@ -494,14 +494,14 @@ int CCTK_CoordRegisterRange (const cGH *GH, void CCTK_FCALL CCTK_FNAME (CCTK_CoordRegisterRange) (int *ierr, - const cGH *GH, + const cGH **GH, const CCTK_REAL *lower, const CCTK_REAL *upper, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (name, systemname) - *ierr = CCTK_CoordRegisterRange (GH, *lower, *upper, *dir, name, systemname); + *ierr = CCTK_CoordRegisterRange (*GH, *lower, *upper, *dir, name, systemname); free (name); free (systemname); } @@ -667,14 +667,14 @@ int CCTK_CoordRegisterRangePhysIndex (const cGH *GH, void CCTK_FCALL CCTK_FNAME (CCTK_CoordRegisterRangePhysIndex) (int *ierr, - const cGH *GH, + const cGH **GH, const int *lower, const int *upper, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (name, systemname) - *ierr = CCTK_CoordRegisterRangePhysIndex (GH, *lower, *upper, *dir, name, systemname); + *ierr = CCTK_CoordRegisterRangePhysIndex (*GH, *lower, *upper, *dir, name, systemname); free (name); free (systemname); } @@ -1136,14 +1136,14 @@ int CCTK_CoordRange (const cGH *GH, void CCTK_FCALL CCTK_FNAME (CCTK_CoordRange) (int *ierr, - const cGH *GH, + const cGH **GH, CCTK_REAL *lower, CCTK_REAL *upper, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (name, systemname) - *ierr = CCTK_CoordRange (GH, lower, upper, *dir, name, systemname); + *ierr = CCTK_CoordRange (*GH, lower, upper, *dir, name, systemname); free (name); free (systemname); } @@ -1313,14 +1313,14 @@ int CCTK_CoordRangePhysIndex (const cGH *GH, void CCTK_FCALL CCTK_FNAME (CCTK_CoordRangePhysIndex) (int *ierr, - const cGH *GH, + const cGH **GH, int *lower, int *upper, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (name, systemname) - *ierr = CCTK_CoordRangePhysIndex (GH, lower, upper, *dir, name, systemname); + *ierr = CCTK_CoordRangePhysIndex (*GH, lower, upper, *dir, name, systemname); free (name); free (systemname); } @@ -1394,14 +1394,14 @@ int CCTK_CoordLocalRange(const cGH *GH, void CCTK_FCALL CCTK_FNAME (CCTK_CoordLocalRange) (int *ierr, - const cGH *GH, + const cGH **GH, CCTK_REAL *lower, CCTK_REAL *upper, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (name, systemname) - *ierr = CCTK_CoordLocalRange (GH, lower, upper, *dir, name, systemname); + *ierr = CCTK_CoordLocalRange (*GH, lower, upper, *dir, name, systemname); free (name); free (systemname); } |