diff options
author | schnetter <schnetter@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-10-28 13:48:24 +0000 |
---|---|---|
committer | schnetter <schnetter@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-10-28 13:48:24 +0000 |
commit | 7a482a1c19a72539660dda168d80b2251fb7e92d (patch) | |
tree | c9cd4fbfab28992f5954711a29441bbe180af6e4 /src/FlatBoundary.c | |
parent | 684109a78a3cee23a2e59cba6205e3cc33ae3a90 (diff) |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@252 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src/FlatBoundary.c')
-rw-r--r-- | src/FlatBoundary.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c index 5743110..05508bf 100644 --- a/src/FlatBoundary.c +++ b/src/FlatBoundary.c @@ -186,46 +186,46 @@ CCTK_INT BndFlat(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars, here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndFlatDirGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *gi); void CCTK_FCALL CCTK_FNAME (BndFlatGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *gi); void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndFlatGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndFlatDirVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *vi); void CCTK_FCALL CCTK_FNAME (BndFlatVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *vi); void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndFlatVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, ONE_FORTSTRING_ARG); @@ -296,12 +296,12 @@ int BndFlatDirGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *gi) { - *ierr = BndFlatDirGI (GH, *stencil_size, *dir, *gi); + *ierr = BndFlatDirGI (*GH, *stencil_size, *dir, *gi); } @@ -361,11 +361,11 @@ int BndFlatGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *gi) { - *ierr = BndFlatGI (GH, stencil, *gi); + *ierr = BndFlatGI (*GH, stencil, *gi); } @@ -432,13 +432,13 @@ int BndFlatDirGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (gn) - *ierr = BndFlatDirGN (GH, *stencil_size, *dir, gn); + *ierr = BndFlatDirGN (*GH, *stencil_size, *dir, gn); free (gn); } @@ -498,12 +498,12 @@ int BndFlatGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (gn) - *ierr = BndFlatGN (GH, stencil, gn); + *ierr = BndFlatGN (*GH, stencil, gn); free (gn); } @@ -571,12 +571,12 @@ int BndFlatDirVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *vi) { - *ierr = BndFlatDirVI (GH, *stencil_size, *dir, *vi); + *ierr = BndFlatDirVI (*GH, *stencil_size, *dir, *vi); } @@ -634,11 +634,11 @@ int BndFlatVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *vi) { - *ierr = BndFlatVI (GH, stencil, *vi); + *ierr = BndFlatVI (*GH, stencil, *vi); } @@ -706,13 +706,13 @@ int BndFlatDirVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vn) - *ierr = BndFlatDirVN (GH, *stencil_size, *dir, vn); + *ierr = BndFlatDirVN (*GH, *stencil_size, *dir, vn); free (vn); } @@ -772,12 +772,12 @@ int BndFlatVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vn) - *ierr = BndFlatVN (GH, stencil, vn); + *ierr = BndFlatVN (*GH, stencil, vn); free (vn); } |