diff options
Diffstat (limited to 'src/RobinBoundary.c')
-rw-r--r-- | src/RobinBoundary.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/RobinBoundary.c b/src/RobinBoundary.c index 005c3b0..3bd2946 100644 --- a/src/RobinBoundary.c +++ b/src/RobinBoundary.c @@ -215,28 +215,28 @@ CCTK_INT BndRobin(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars, here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndRobinGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, const int *gi); void CCTK_FCALL CCTK_FNAME (BndRobinGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndRobinVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, const int *vi); void CCTK_FCALL CCTK_FNAME (BndRobinVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, @@ -315,13 +315,13 @@ int BndRobinGI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinGI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, const int *gi) { - *ierr = BndRobinGI (GH, stencil, *finf, *npow, *gi); + *ierr = BndRobinGI (*GH, stencil, *finf, *npow, *gi); } @@ -392,14 +392,14 @@ int BndRobinGN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinGN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (gname) - *ierr = BndRobinGN (GH, stencil, *finf, *npow, gname); + *ierr = BndRobinGN (*GH, stencil, *finf, *npow, gname); free (gname); } @@ -470,13 +470,13 @@ int BndRobinVI (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinVI) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, const int *vi) { - *ierr = BndRobinVI (GH, stencil, *finf, *npow, *vi); + *ierr = BndRobinVI (*GH, stencil, *finf, *npow, *vi); } @@ -547,14 +547,14 @@ int BndRobinVN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinVN) (int *ierr, - const cGH *GH, + const cGH **GH, const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vname) - *ierr = BndRobinVN (GH, stencil, *finf, *npow, vname); + *ierr = BndRobinVN (*GH, stencil, *finf, *npow, vname); free (vname); } |