diff options
Diffstat (limited to 'src/ScalarBoundary.c')
| -rw-r--r-- | src/ScalarBoundary.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/ScalarBoundary.c b/src/ScalarBoundary.c index 3b70270..2753cc6 100644 --- a/src/ScalarBoundary.c +++ b/src/ScalarBoundary.c @@ -207,53 +207,53 @@ CCTK_INT BndScalar(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars, CCTK_INT *f here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndScalarDirVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, const int *vi); void CCTK_FCALL CCTK_FNAME (BndScalarVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, const int *vi); void CCTK_FCALL CCTK_FNAME (BndScalarDirGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, const int *gi); void CCTK_FCALL CCTK_FNAME (BndScalarGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, const int *gi); void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndScalarGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndScalarVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG); @@ -328,13 +328,13 @@ int BndScalarDirVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, const int *vi) { - *ierr = BndScalarDirVI (GH, *stencil_size, *dir, *scalar, *vi); + *ierr = BndScalarDirVI (*GH, *stencil_size, *dir, *scalar, *vi); } @@ -398,12 +398,12 @@ int BndScalarVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, const int *vi) { - *ierr = BndScalarVI (GH, stencil, *scalar, *vi); + *ierr = BndScalarVI (*GH, stencil, *scalar, *vi); } @@ -478,13 +478,13 @@ int BndScalarDirGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, const int *gi) { - *ierr = BndScalarDirGI (GH, *stencil_size, *dir, *scalar, *gi); + *ierr = BndScalarDirGI (*GH, *stencil_size, *dir, *scalar, *gi); } @@ -550,12 +550,12 @@ int BndScalarGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, const int *gi) { - *ierr = BndScalarGI (GH, stencil, *scalar, *gi); + *ierr = BndScalarGI (*GH, stencil, *scalar, *gi); } @@ -628,14 +628,14 @@ int BndScalarDirGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (gname) - *ierr = BndScalarDirGN (GH, *stencil_size, *dir, *scalar, gname); + *ierr = BndScalarDirGN (*GH, *stencil_size, *dir, *scalar, gname); free (gname); } @@ -701,13 +701,13 @@ int BndScalarGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (gname) - *ierr = BndScalarGN (GH, stencil, *scalar, gname); + *ierr = BndScalarGN (*GH, stencil, *scalar, gname); free (gname); } @@ -779,14 +779,14 @@ int BndScalarDirVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vname) - *ierr = BndScalarDirVN (GH, *stencil_size, *dir, *scalar, vname); + *ierr = BndScalarDirVN (*GH, *stencil_size, *dir, *scalar, vname); free (vname); } @@ -851,13 +851,13 @@ int BndScalarVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vname) - *ierr = BndScalarVN (GH, stencil, *scalar, vname); + *ierr = BndScalarVN (*GH, stencil, *scalar, vname); free (vname); } |