diff options
Diffstat (limited to 'src/CopyBoundary.c')
| -rw-r--r-- | src/CopyBoundary.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c index 97e022a..b87ffc3 100644 --- a/src/CopyBoundary.c +++ b/src/CopyBoundary.c @@ -232,50 +232,50 @@ CCTK_INT BndCopy(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars, here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndCopyDirVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *vi_to, const int *vi_from); void CCTK_FCALL CCTK_FNAME (BndCopyVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *vi_to, const int *vi_from); void CCTK_FCALL CCTK_FNAME (BndCopyDirGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *gi_to, const int *gi_from); void CCTK_FCALL CCTK_FNAME (BndCopyGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *gi_to, const int *gi_from); void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndCopyVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndCopyGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, TWO_FORTSTRING_ARG); @@ -352,13 +352,13 @@ int BndCopyDirVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *vi_to, const int *vi_from) { - *ierr = BndCopyDirVI (GH, *stencil_size, *dir, *vi_to, *vi_from); + *ierr = BndCopyDirVI (*GH, *stencil_size, *dir, *vi_to, *vi_from); } @@ -434,12 +434,12 @@ int BndCopyVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *vi_to, const int *vi_from) { - *ierr = BndCopyVI (GH, stencil, *vi_to, *vi_from); + *ierr = BndCopyVI (*GH, stencil, *vi_to, *vi_from); } @@ -515,13 +515,13 @@ int BndCopyDirGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, const int *gi_to, const int *gi_from) { - *ierr = BndCopyDirGI (GH, *stencil_size, *dir, *gi_to, *gi_from); + *ierr = BndCopyDirGI (*GH, *stencil_size, *dir, *gi_to, *gi_from); } @@ -600,12 +600,12 @@ int BndCopyGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const int *gi_to, const int *gi_from) { - *ierr = BndCopyGI (GH, stencil, *gi_to, *gi_from); + *ierr = BndCopyGI (*GH, stencil, *gi_to, *gi_from); } @@ -682,13 +682,13 @@ int BndCopyDirGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRINGS_CREATE (gname_to, gname_from) - *ierr = BndCopyDirGN (GH, *stencil_size, *dir, gname_to, gname_from); + *ierr = BndCopyDirGN (*GH, *stencil_size, *dir, gname_to, gname_from); free (gname_to); free (gname_from); } @@ -769,12 +769,12 @@ int BndCopyGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, TWO_FORTSTRING_ARG) { TWO_FORTSTRING_CREATE (gname_to, gname_from) - *ierr = BndCopyGN (GH, stencil, gname_to, gname_from); + *ierr = BndCopyGN (*GH, stencil, gname_to, gname_from); free (gname_to); free (gname_from); } @@ -853,13 +853,13 @@ int BndCopyDirVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil_size, const int *dir, TWO_FORTSTRING_ARG) { TWO_FORTSTRINGS_CREATE (vname_to, vname_from) - *ierr = BndCopyDirVN (GH, *stencil_size, *dir, vname_to, vname_from); + *ierr = BndCopyDirVN (*GH, *stencil_size, *dir, vname_to, vname_from); free (vname_to); free (vname_from); } @@ -941,12 +941,12 @@ int BndCopyVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, TWO_FORTSTRINGS_ARGS) { TWO_FORTSTRINGS_CREATE (vname_to, vname_from) - *ierr = BndCopyVN (GH, stencil, vname_to, vname_from); + *ierr = BndCopyVN (*GH, stencil, vname_to, vname_from); free (vname_to); free (vname_from); } |