diff options
| author | schnetter <schnetter@eec4d7dc-71c2-46d6-addf-10296150bf52> | 2003-10-28 13:48:23 +0000 |
|---|---|---|
| committer | schnetter <schnetter@eec4d7dc-71c2-46d6-addf-10296150bf52> | 2003-10-28 13:48:23 +0000 |
| commit | dcce007f3824009b46e8da2947247df64fc77bb0 (patch) | |
| tree | 5ff0bac73ffffd59b6a9d7d536197f1feaf0d804 /src | |
| parent | 207477a5c68dbf484f790e45cab63bc2e8539ae4 (diff) | |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Cartoon2D/trunk@73 eec4d7dc-71c2-46d6-addf-10296150bf52
Diffstat (limited to 'src')
| -rw-r--r-- | src/Cartoon2DBC.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/Cartoon2DBC.c b/src/Cartoon2DBC.c index 8eb0453..840c042 100644 --- a/src/Cartoon2DBC.c +++ b/src/Cartoon2DBC.c @@ -35,12 +35,12 @@ static CCTK_REAL Cartoon2DInterp(const cGH *GH, CCTK_REAL *f, int i, int di, int ijk, CCTK_REAL x); CCTK_REAL interpolate_local(int order, CCTK_REAL x0, CCTK_REAL dx, CCTK_REAL y[], CCTK_REAL x); -void CCTK_FCALL CCTK_FNAME(BndCartoon2DVI)(int *retval, const cGH *GH, +void CCTK_FCALL CCTK_FNAME(BndCartoon2DVI)(int *retval, const cGH **GH, int *tensortype, int *vi); -void CCTK_FCALL CCTK_FNAME(BndCartoon2DVN)(int *retval, const cGH *GH, +void CCTK_FCALL CCTK_FNAME(BndCartoon2DVN)(int *retval, const cGH **GH, int *tensortype, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME(BndCartoon2DGN) - (int *retval, const cGH *GH, int *tensortype, ONE_FORTSTRING_ARG); + (int *retval, const cGH **GH, int *tensortype, ONE_FORTSTRING_ARG); /* set boundaries of a grid tensor assuming axisymmetry @@ -242,9 +242,9 @@ int BndCartoon2DVI(const cGH *GH, int tensortype, int vi) } void CCTK_FCALL CCTK_FNAME(BndCartoon2DVI) - (int *retval, const cGH *GH, int *tensortype, int *vi) + (int *retval, const cGH **GH, int *tensortype, int *vi) { - *retval = BndCartoon2DVI(GH, *tensortype, *vi); + *retval = BndCartoon2DVI(*GH, *tensortype, *vi); } int BndCartoon2DVN(const cGH *GH, int tensortype, const char *inpvarname) @@ -260,10 +260,10 @@ int BndCartoon2DVN(const cGH *GH, int tensortype, const char *inpvarname) } void CCTK_FCALL CCTK_FNAME(BndCartoon2DVN) - (int *retval, const cGH *GH, int *tensortype, ONE_FORTSTRING_ARG) + (int *retval, const cGH **GH, int *tensortype, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(impvarname) - *retval = BndCartoon2DVN(GH, *tensortype, impvarname); + *retval = BndCartoon2DVN(*GH, *tensortype, impvarname); free(impvarname); } @@ -303,10 +303,10 @@ int BndCartoon2DGN(const cGH *GH, int tensortype, const char *group) } void CCTK_FCALL CCTK_FNAME(BndCartoon2DGN) - (int *retval, const cGH *GH, int *tensortype, ONE_FORTSTRING_ARG) + (int *retval, const cGH **GH, int *tensortype, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(group) - *retval = BndCartoon2DGN(GH, *tensortype, group); + *retval = BndCartoon2DGN(*GH, *tensortype, group); free(group); } |