diff options
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); } |