diff options
author | tradke <tradke@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2001-05-19 18:07:25 +0000 |
---|---|---|
committer | tradke <tradke@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2001-05-19 18:07:25 +0000 |
commit | aa053d5cefbff13267865d01330c49135273904c (patch) | |
tree | 449d9d22ddd26d88170fd5c1dbf86ceb1f84b110 | |
parent | b0e4eff508d829f16a5069e17d34323ab2f602e6 (diff) |
Fixed compiler warnings with non-const pointers.
This closes PR CactusBase 692.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@146 6a38eb6e-646e-4a02-a296-d141613ad6c4
-rw-r--r-- | src/Boundary.h | 164 | ||||
-rw-r--r-- | src/CopyBoundary.c | 202 | ||||
-rw-r--r-- | src/FlatBoundary.c | 114 | ||||
-rw-r--r-- | src/RadiationBoundary.c | 202 | ||||
-rw-r--r-- | src/RobinBoundary.c | 100 | ||||
-rw-r--r-- | src/ScalarBoundary.c | 162 |
6 files changed, 472 insertions, 472 deletions
diff --git a/src/Boundary.h b/src/Boundary.h index c3662f8..9767637 100644 --- a/src/Boundary.h +++ b/src/Boundary.h @@ -19,194 +19,194 @@ extern "C" /* Scalar boundaries */ -int BndScalarDirGI (cGH *GH, +int BndScalarDirGI (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, int gi); -int BndScalarDirGN (cGH *GH, +int BndScalarDirGN (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, - char impgn[]); -int BndScalarDirVI (cGH *GH, + const char *gname); +int BndScalarDirVI (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, int vi); -int BndScalarDirVN (cGH *GH, +int BndScalarDirVN (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, - char impvn[]); + const char *vname); -int BndScalarGI (cGH *GH, - int stencil[], +int BndScalarGI (const cGH *GH, + const int *stencil, CCTK_REAL var0, int gi); -int BndScalarGN (cGH *GH, - int stencil[], +int BndScalarGN (const cGH *GH, + const int *stencil, CCTK_REAL var0, - char impgn[]); -int BndScalarVI (cGH *GH, - int stencil[], + const char *gname); +int BndScalarVI (const cGH *GH, + const int *stencil, CCTK_REAL var0, int vi); -int BndScalarVN (cGH *GH, - int stencil[], +int BndScalarVN (const cGH *GH, + const int *stencil, CCTK_REAL var0, - char impvn[]); + const char *vname); /* Copying boundaries */ -int BndCopyDirGI (cGH *GH, +int BndCopyDirGI (const cGH *GH, int stencil_size, int dir, int gi_to, int gi_from); -int BndCopyDirGN (cGH *GH, +int BndCopyDirGN (const cGH *GH, int stencil_size, int dir, - char gn_to[], - char gn_from[]); -int BndCopyDirVI (cGH *GH, + const char *gname_to, + const char *gname_from); +int BndCopyDirVI (const cGH *GH, int stencil_size, int dir, int vi_to, int vi_from); -int BndCopyDirVN (cGH *GH, +int BndCopyDirVN (const cGH *GH, int stencil_size, int dir, - char vn_to[], - char vn_from[]); + const char *vname_to, + const char *vname_from); -int BndCopyGI (cGH *GH, - int stencil[], +int BndCopyGI (const cGH *GH, + const int *stencil, int gi_to, int gi_from); -int BndCopyGN (cGH *GH, - int stencil[], - char gn_to[], - char gn_from[]); -int BndCopyVI (cGH *GH, - int stencil[], +int BndCopyGN (const cGH *GH, + const int *stencil, + const char *gname_to, + const char *gname_from); +int BndCopyVI (const cGH *GH, + const int *stencil, int vi_to, int vi_from); -int BndCopyVN (cGH *GH, - int stencil[], - char vn_to[], - char vn_from[]); +int BndCopyVN (const cGH *GH, + const int *stencil, + const char *vname_to, + const char *vname_from); /* Radiative boundaries */ -int BndRadiativeDirGI (cGH *GH, +int BndRadiativeDirGI (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, CCTK_REAL v0, int gi, int gi_p); -int BndRadiativeDirGN (cGH *GH, +int BndRadiativeDirGN (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, CCTK_REAL v0, - char gn_to[], - char gn_from[]); -int BndRadiativeDirVI (cGH *GH, + const char *gname_to, + const char *gname_from); +int BndRadiativeDirVI (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, CCTK_REAL v0, int vi, int vi_p); -int BndRadiativeDirVN (cGH *GH, +int BndRadiativeDirVN (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, CCTK_REAL v0, - char vn_to[], - char vn_from[]); + const char *vname_to, + const char *vname_from); -int BndRadiativeGI (cGH *GH, - int stencil[], +int BndRadiativeGI (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL v0, int gi, int gi_p); -int BndRadiativeGN (cGH *GH, - int stencil[], +int BndRadiativeGN (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL v0, - char gn_to[], - char gn_from[]); -int BndRadiativeVI (cGH *GH, - int stencil[], + const char *gname_to, + const char *gname_from); +int BndRadiativeVI (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL v0, int vi, int vi_p); -int BndRadiativeVN (cGH *GH, - int stencil[], +int BndRadiativeVN (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL v0, - char vn_to[], - char vn_from[]); + const char *vname_to, + const char *vname_from); /* Robin boundaries */ -int BndRobinGI (cGH *GH, - int stencil[], +int BndRobinGI (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, int gi); -int BndRobinGN (cGH *GH, - int stencil[], +int BndRobinGN (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, - char gn[]); -int BndRobinVI (cGH *GH, - int stencil[], + const char *gname); +int BndRobinVI (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, int vi); -int BndRobinVN (cGH *GH, - int stencil[], +int BndRobinVN (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, - char vn[]); + const char *vname); /* Flat boundaries */ -int BndFlatDirGI (cGH *GH, +int BndFlatDirGI (const cGH *GH, int stencil_size, int dir, int gi); -int BndFlatDirGN (cGH *GH, +int BndFlatDirGN (const cGH *GH, int stencil_size, int dir, - char gn[]); -int BndFlatDirVI (cGH *GH, + const char *gname); +int BndFlatDirVI (const cGH *GH, int stencil_size, int dir, int vi); -int BndFlatDirVN (cGH *GH, +int BndFlatDirVN (const cGH *GH, int stencil_size, int dir, - char vn[]); + const char *vname); -int BndFlatGI (cGH *GH, - int stencil[], +int BndFlatGI (const cGH *GH, + const int *stencil, int gi); -int BndFlatGN (cGH *GH, - int stencil[], - char gn[]); -int BndFlatVI (cGH *GH, - int stencil[], +int BndFlatGN (const cGH *GH, + const int *stencil, + const char *gname); +int BndFlatVI (const cGH *GH, + const int *stencil, int vi); -int BndFlatVN (cGH *GH, - int stencil[], - char vn[]); +int BndFlatVN (const cGH *GH, + const int *stencil, + const char *vname); #ifdef __cplusplus diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c index bff9a6d..b18d34b 100644 --- a/src/CopyBoundary.c +++ b/src/CopyBoundary.c @@ -34,60 +34,60 @@ CCTK_FILEVERSION(CactusBase_Boundary_CopyBoundary_c) here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndCopyDirVI) (int *ierr, - 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, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *vi_to, const int *vi_from); void CCTK_FCALL CCTK_FNAME (BndCopyDirGI) (int *ierr, - 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, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *gi_to, const int *gi_from); void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, TWO_FORTSTRINGS_ARGS); void CCTK_FCALL CCTK_FNAME (BndCopyVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, TWO_FORTSTRINGS_ARGS); void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, TWO_FORTSTRINGS_ARGS); void CCTK_FCALL CCTK_FNAME (BndCopyGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, TWO_FORTSTRINGS_ARGS); /******************************************************************** ******************** Internal Routines ************************ ********************************************************************/ -static int ApplyBndCopy (cGH *GH, +static int ApplyBndCopy (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, int first_var_to, int first_var_from, @@ -105,7 +105,7 @@ static int ApplyBndCopy (cGH *GH, @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -135,7 +135,7 @@ static int ApplyBndCopy (cGH *GH, -1 if invalid variable indices are given @endreturndesc @@*/ -int BndCopyDirVI (cGH *GH, +int BndCopyDirVI (const cGH *GH, int stencil_size, int dir, int vi_to, @@ -162,7 +162,7 @@ int BndCopyDirVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirVI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const int *vi_to, @@ -183,7 +183,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -208,8 +208,8 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVI) -1 if invalid variable indices are given @endreturndesc @@*/ -int BndCopyVI (cGH *GH, - int stencil[], +int BndCopyVI (const cGH *GH, + const int *stencil, int vi_to, int vi_from) { @@ -234,8 +234,8 @@ int BndCopyVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *vi_to, const int *vi_from) { @@ -256,7 +256,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -286,7 +286,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyVI) -1 if invalid group indices are given @endreturndesc @@*/ -int BndCopyDirGI (cGH *GH, +int BndCopyDirGI (const cGH *GH, int stencil_size, int dir, int gi_to, @@ -315,7 +315,7 @@ int BndCopyDirGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirGI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const int *gi_to, @@ -336,7 +336,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -361,8 +361,8 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirGI) -1 if invalid group indices are given @endreturndesc @@*/ -int BndCopyGI (cGH *GH, - int stencil[], +int BndCopyGI (const cGH *GH, + const int *stencil, int gi_to, int gi_from) { @@ -389,8 +389,8 @@ int BndCopyGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *gi_to, const int *gi_from) { @@ -411,7 +411,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -424,14 +424,14 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGI) @vtype int @vio in @endvar - @var gn_to + @var gname_to @vdesc name of group to copy boundaries to - @vtype char [] + @vtype const char * @vio in @endvar - @var gn_from + @var gname_from @vdesc name of group to copy boundaries from - @vtype char [] + @vtype const char * @vio in @endvar @@ -441,17 +441,17 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGI) -1 if invalid group names are given @endreturndesc @@*/ -int BndCopyDirGN (cGH *GH, +int BndCopyDirGN (const cGH *GH, int stencil_size, int dir, - char gn_to[], - char gn_from[]) + const char *gname_to, + const char *gname_from) { int gi_to, gi_from, num_groups, retval; - gi_to = CCTK_GroupIndex (gn_to); - gi_from = CCTK_GroupIndex (gn_from); + gi_to = CCTK_GroupIndex (gname_to); + gi_from = CCTK_GroupIndex (gname_from); num_groups = CCTK_NumGroups (); if (gi_to >= 0 && gi_to < num_groups && gi_from >= 0 && gi_from < num_groups) @@ -462,7 +462,7 @@ int BndCopyDirGN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid group names '%s' and/or '%s' in BndCopyDirGN", - gn_to, gn_from); + gname_to, gname_from); retval = -1; } @@ -471,15 +471,15 @@ int BndCopyDirGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (gn_to, gn_from) - *ierr = BndCopyDirGN (GH, *stencil_size, *dir, gn_to, gn_from); - free (gn_to); - free (gn_from); + TWO_FORTSTRINGS_CREATE (gname_to, gname_from) + *ierr = BndCopyDirGN (GH, *stencil_size, *dir, gname_to, gname_from); + free (gname_to); + free (gname_from); } @@ -494,7 +494,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -502,14 +502,14 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) @vtype int [ dimension of group ] @vio in @endvar - @var gn_to + @var gname_to @vdesc name of group to copy boundaries to - @vtype char [] + @vtype const char * @vio in @endvar - @var gn_from + @var gname_from @vdesc name of group to copy boundaries from - @vtype char [] + @vtype const char * @vio in @endvar @@ -519,16 +519,16 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirGN) -1 if invalid group names are given @endreturndesc @@*/ -int BndCopyGN (cGH *GH, - int stencil[], - char gn_to[], - char gn_from[]) +int BndCopyGN (const cGH *GH, + const int *stencil, + const char *gname_to, + const char *gname_from) { int gi_to, gi_from, num_groups, retval; - gi_to = CCTK_GroupIndex (gn_to); - gi_from = CCTK_GroupIndex (gn_from); + gi_to = CCTK_GroupIndex (gname_to); + gi_from = CCTK_GroupIndex (gname_from); num_groups = CCTK_NumGroups (); if (gi_to >= 0 && gi_to < num_groups && gi_from >= 0 && gi_from < num_groups) @@ -539,7 +539,7 @@ int BndCopyGN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid group names '%s' and/or '%s' in BndCopyGN", - gn_to, gn_from); + gname_to, gname_from); retval = -1; } @@ -548,14 +548,14 @@ int BndCopyGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (gn_to, gn_from) - *ierr = BndCopyGN (GH, stencil, gn_to, gn_from); - free (gn_to); - free (gn_from); + TWO_FORTSTRINGS_CREATE (gname_to, gname_from) + *ierr = BndCopyGN (GH, stencil, gname_to, gname_from); + free (gname_to); + free (gname_from); } @@ -572,7 +572,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -585,14 +585,14 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGN) @vtype int @vio in @endvar - @var vn_to + @var vname_to @vdesc name of variable to copy boundaries to - @vtype char [] + @vtype const char * @vio in @endvar - @var vn_from + @var vname_from @vdesc name of variable to copy boundaries from - @vtype char [] + @vtype const char * @vio in @endvar @@ -602,17 +602,17 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGN) -1 if invalid variable names are given @endreturndesc @@*/ -int BndCopyDirVN (cGH *GH, +int BndCopyDirVN (const cGH *GH, int stencil_size, int dir, - char vn_to[], - char vn_from[]) + const char *vname_to, + const char *vname_from) { int vi_to, vi_from, num_vars, retval; - vi_to = CCTK_VarIndex (vn_to); - vi_from = CCTK_VarIndex (vn_from); + vi_to = CCTK_VarIndex (vname_to); + vi_from = CCTK_VarIndex (vname_from); num_vars = CCTK_NumVars (); if (vi_to >= 0 && vi_to < num_vars && vi_from >= 0 && vi_from < num_vars) @@ -623,7 +623,7 @@ int BndCopyDirVN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid variable names '%s' and/or '%s' in BndCopyDirVN", - vn_to, vn_from); + vname_to, vname_from); retval = -1; } @@ -632,15 +632,15 @@ int BndCopyDirVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (vn_to, vn_from) - *ierr = BndCopyDirVN (GH, *stencil_size, *dir, vn_to, vn_from); - free (vn_to); - free (vn_from); + TWO_FORTSTRINGS_CREATE (vname_to, vname_from) + *ierr = BndCopyDirVN (GH, *stencil_size, *dir, vname_to, vname_from); + free (vname_to); + free (vname_from); } @@ -655,7 +655,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -663,14 +663,14 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) @vtype int [ dimension of variable ] @vio in @endvar - @var vn_to + @var vname_to @vdesc name of variable to copy boundaries to - @vtype char [] + @vtype const char * @vio in @endvar - @var vn_from + @var vname_from @vdesc name of variable to copy boundaries from - @vtype char [] + @vtype const char * @vio in @endvar @@ -680,16 +680,16 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVN) -1 if invalid variable names are given @endreturndesc @@*/ -int BndCopyVN (cGH *GH, - int stencil[], - char vn_to[], - char vn_from[]) +int BndCopyVN (const cGH *GH, + const int *stencil, + const char *vname_to, + const char *vname_from) { int vi_to, vi_from, num_vars, retval; - vi_to = CCTK_VarIndex (vn_to); - vi_from = CCTK_VarIndex (vn_from); + vi_to = CCTK_VarIndex (vname_to); + vi_from = CCTK_VarIndex (vname_from); num_vars = CCTK_NumVars (); if (vi_to >= 0 && vi_to < num_vars && vi_from >= 0 && vi_from < num_vars) @@ -700,7 +700,7 @@ int BndCopyVN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid variable names '%s' and/or '%s' in BndCopyVN", - vn_to, vn_from); + vname_to, vname_from); retval = -1; } @@ -709,14 +709,14 @@ int BndCopyVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndCopyVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (vn_to, vn_from) - *ierr = BndCopyVN (GH, stencil, vn_to, vn_from); - free (vn_to); - free (vn_from); + TWO_FORTSTRINGS_CREATE (vname_to, vname_from) + *ierr = BndCopyVN (GH, stencil, vname_to, vname_from); + free (vname_to); + free (vname_from); } @@ -797,7 +797,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_dir @@ -851,9 +851,9 @@ void CCTK_FCALL CCTK_FNAME (BndCopyVN) -3 if stencil width array parameter is NULL @endreturndesc @@*/ -static int ApplyBndCopy (cGH *GH, +static int ApplyBndCopy (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, int first_var_to, int first_var_from, diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c index f3036ef..504bf51 100644 --- a/src/FlatBoundary.c +++ b/src/FlatBoundary.c @@ -35,56 +35,56 @@ CCTK_FILEVERSION(CactusBase_Boundary_FlatBoundary_c) here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndFlatDirGI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const int *gi); void CCTK_FCALL CCTK_FNAME (BndFlatGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *gi); void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndFlatGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndFlatDirVI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const int *vi); void CCTK_FCALL CCTK_FNAME (BndFlatVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *vi); void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndFlatVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, ONE_FORTSTRING_ARG); /******************************************************************** ******************** Internal Routines ************************ ********************************************************************/ -static int ApplyBndFlat (cGH *GH, +static int ApplyBndFlat (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, int first_var, int num_vars); @@ -101,7 +101,7 @@ static int ApplyBndFlat (cGH *GH, @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -126,7 +126,7 @@ static int ApplyBndFlat (cGH *GH, -1 if invalid group index was given @endreturndesc @@*/ -int BndFlatDirGI (cGH *GH, +int BndFlatDirGI (const cGH *GH, int stencil_size, int dir, int gi) @@ -152,7 +152,7 @@ int BndFlatDirGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirGI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const int *gi) @@ -172,7 +172,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -192,8 +192,8 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirGI) -1 if invalid group index was given @endreturndesc @@*/ -int BndFlatGI (cGH *GH, - int stencil[], +int BndFlatGI (const cGH *GH, + const int *stencil, int gi) { int first_vi, retval; @@ -217,8 +217,8 @@ int BndFlatGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *gi) { *ierr = BndFlatGI (GH, stencil, *gi); @@ -238,7 +238,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -253,7 +253,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatGI) @endvar @var gn @vdesc name of group to apply boundaries to - @vtype int + @vtype const char * @vio in @endvar @@ -263,10 +263,10 @@ void CCTK_FCALL CCTK_FNAME (BndFlatGI) -1 if invalid group name was given @endreturndesc @@*/ -int BndFlatDirGN (cGH *GH, +int BndFlatDirGN (const cGH *GH, int stencil_size, int dir, - char gn[]) + const char *gn) { int gi, retval; @@ -288,7 +288,7 @@ int BndFlatDirGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG) @@ -310,7 +310,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -320,7 +320,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) @endvar @var gn @vdesc name of group to apply boundaries to - @vtype int + @vtype const char * @vio in @endvar @@ -330,9 +330,9 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirGN) -1 if invalid group name was given @endreturndesc @@*/ -int BndFlatGN (cGH *GH, - int stencil[], - char gn[]) +int BndFlatGN (const cGH *GH, + const int *stencil, + const char *gn) { int gi, retval; @@ -354,8 +354,8 @@ int BndFlatGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (gn) @@ -378,7 +378,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -403,7 +403,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatGN) -1 if invalid variable index was given @endreturndesc @@*/ -int BndFlatDirVI (cGH *GH, +int BndFlatDirVI (const cGH *GH, int stencil_size, int dir, int vi) @@ -427,7 +427,7 @@ int BndFlatDirVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirVI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const int *vi) @@ -447,7 +447,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -467,8 +467,8 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirVI) -1 if invalid variable index was given @endreturndesc @@*/ -int BndFlatVI (cGH *GH, - int stencil[], +int BndFlatVI (const cGH *GH, + const int *stencil, int vi) { int retval; @@ -490,8 +490,8 @@ int BndFlatVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const int *vi) { *ierr = BndFlatVI (GH, stencil, *vi); @@ -512,7 +512,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -527,7 +527,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatVI) @endvar @var vn @vdesc name of variable to apply boundaries to - @vtype int + @vtype const char * @vio in @endvar @@ -537,10 +537,10 @@ void CCTK_FCALL CCTK_FNAME (BndFlatVI) -1 if invalid variable name was given @endreturndesc @@*/ -int BndFlatDirVN (cGH *GH, +int BndFlatDirVN (const cGH *GH, int stencil_size, int dir, - char vn[]) + const char *vn) { int vi, retval; @@ -562,7 +562,7 @@ int BndFlatDirVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, ONE_FORTSTRING_ARG) @@ -584,7 +584,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -594,7 +594,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) @endvar @var vn @vdesc name of variable to apply boundaries to - @vtype int + @vtype const char * @vio in @endvar @@ -604,9 +604,9 @@ void CCTK_FCALL CCTK_FNAME (BndFlatDirVN) -1 if invalid variable name was given @endreturndesc @@*/ -int BndFlatVN (cGH *GH, - int stencil[], - char vn[]) +int BndFlatVN (const cGH *GH, + const int *stencil, + const char *vn) { int vi, retval; @@ -628,8 +628,8 @@ int BndFlatVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndFlatVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vn) @@ -722,7 +722,7 @@ void CCTK_FCALL CCTK_FNAME (BndFlatVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_dir @@ -771,9 +771,9 @@ void CCTK_FCALL CCTK_FNAME (BndFlatVN) -3 if stencil width array parameter is NULL @endreturndesc @@*/ -static int ApplyBndFlat (cGH *GH, +static int ApplyBndFlat (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, int first_var, int num_vars) diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c index efbbcfc..d4efd47 100644 --- a/src/RadiationBoundary.c +++ b/src/RadiationBoundary.c @@ -89,7 +89,7 @@ CCTK_FILEVERSION(CactusBase_Boundary_RadiationBoundary_c) here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, @@ -98,15 +98,15 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI) const int *gi_from); void CCTK_FCALL CCTK_FNAME (BndRadiativeGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, const int *gi_to, const int *gi_from); void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, @@ -114,14 +114,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN) TWO_FORTSTRINGS_ARGS); void CCTK_FCALL CCTK_FNAME (BndRadiativeGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, TWO_FORTSTRINGS_ARGS); void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, @@ -130,15 +130,15 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI) const int *vi_from); void CCTK_FCALL CCTK_FNAME (BndRadiativeVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, const int *vi_to, const int *vi_from); void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, @@ -146,8 +146,8 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN) TWO_FORTSTRINGS_ARGS); void CCTK_FCALL CCTK_FNAME (BndRadiativeVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, TWO_FORTSTRINGS_ARGS); @@ -156,9 +156,9 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVN) /******************************************************************** ******************** Internal Routines ************************ ********************************************************************/ -static int ApplyBndRadiative (cGH *GH, +static int ApplyBndRadiative (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, CCTK_REAL var0, CCTK_REAL speed, @@ -178,7 +178,7 @@ static int ApplyBndRadiative (cGH *GH, @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -218,7 +218,7 @@ static int ApplyBndRadiative (cGH *GH, -1 if invalid group indices are given @endreturndesc @@*/ -int BndRadiativeDirGI (cGH *GH, +int BndRadiativeDirGI (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, @@ -250,7 +250,7 @@ int BndRadiativeDirGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, @@ -274,7 +274,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -309,8 +309,8 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI) -1 if invalid group indices are given @endreturndesc @@*/ -int BndRadiativeGI (cGH *GH, - int stencil[], +int BndRadiativeGI (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL speed, int gi_to, @@ -340,8 +340,8 @@ int BndRadiativeGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, const int *gi_to, @@ -364,7 +364,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -387,14 +387,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGI) @vtype CCTK_REAL @vio in @endvar - @var gn_to + @var gname_to @vdesc name of group to apply BC to - @vtype char [] + @vtype const char * @vio in @endvar - @var gn_from + @var gname_from @vdesc name of group to apply BC from - @vtype char [] + @vtype const char * @vio in @endvar @@ -404,19 +404,19 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGI) -1 if invalid group names are given @endreturndesc @@*/ -int BndRadiativeDirGN (cGH *GH, +int BndRadiativeDirGN (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, CCTK_REAL speed, - char gn_to[], - char gn_from[]) + const char *gname_to, + const char *gname_from) { int gi_to, gi_from, retval; - gi_to = CCTK_GroupIndex (gn_to); - gi_from = CCTK_GroupIndex (gn_from); + gi_to = CCTK_GroupIndex (gname_to); + gi_from = CCTK_GroupIndex (gname_from); if (gi_to >= 0 && gi_from >= 0) { retval = BndRadiativeDirGI (GH, stencil_size, dir, var0, speed, @@ -426,7 +426,7 @@ int BndRadiativeDirGN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid group names '%s' and/or '%s' in BndRadiativeDirGN", - gn_to, gn_from); + gname_to, gname_from); retval = -1; } @@ -435,18 +435,18 @@ int BndRadiativeDirGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, const CCTK_REAL *speed, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (gn_to, gn_from) + TWO_FORTSTRINGS_CREATE (gname_to, gname_from) *ierr = BndRadiativeDirGN (GH, *stencil_size, *dir, *var0, *speed, - gn_to, gn_from); - free (gn_to); - free (gn_from); + gname_to, gname_from); + free (gname_to); + free (gname_from); } @@ -461,7 +461,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -479,14 +479,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN) @vtype CCTK_REAL @vio in @endvar - @var gn_to + @var gname_to @vdesc name of group to apply BC to - @vtype int + @vtype const char * @vio in @endvar - @var gn_from + @var gname_from @vdesc name of group to apply BC from - @vtype int + @vtype const char * @vio in @endvar @@ -496,18 +496,18 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN) -1 if invalid group names are given @endreturndesc @@*/ -int BndRadiativeGN (cGH *GH, - int stencil[], +int BndRadiativeGN (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL speed, - char gn_to[], - char gn_from[]) + const char *gname_to, + const char *gname_from) { int gi_to, gi_from, retval; - gi_to = CCTK_GroupIndex (gn_to); - gi_from = CCTK_GroupIndex (gn_from); + gi_to = CCTK_GroupIndex (gname_to); + gi_from = CCTK_GroupIndex (gname_from); if (gi_to >= 0 && gi_from >= 0) { retval = BndRadiativeGI (GH, stencil, var0, speed, gi_to, gi_from); @@ -516,7 +516,7 @@ int BndRadiativeGN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid group names '%s' and/or '%s' in BndRadiativeGN", - gn_to, gn_from); + gname_to, gname_from); retval = -1; } @@ -525,16 +525,16 @@ int BndRadiativeGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (gn_to, gn_from) - *ierr = BndRadiativeGN (GH, stencil, *var0, *speed, gn_to, gn_from); - free (gn_to); - free (gn_from); + TWO_FORTSTRINGS_CREATE (gname_to, gname_from) + *ierr = BndRadiativeGN (GH, stencil, *var0, *speed, gname_to, gname_from); + free (gname_to); + free (gname_from); } @@ -551,7 +551,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -591,7 +591,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGN) -1 if invalid variable indices are given @endreturndesc @@*/ -int BndRadiativeDirVI (cGH *GH, +int BndRadiativeDirVI (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, @@ -621,7 +621,7 @@ int BndRadiativeDirVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, @@ -645,7 +645,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -680,8 +680,8 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI) -1 if invalid variable indices are given @endreturndesc @@*/ -int BndRadiativeVI (cGH *GH, - int stencil[], +int BndRadiativeVI (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL speed, int vi_to, @@ -709,8 +709,8 @@ int BndRadiativeVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, const int *vi_to, @@ -733,7 +733,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -756,14 +756,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVI) @vtype CCTK_REAL @vio in @endvar - @var vn_to + @var vname_to @vdesc name of variable to apply BC to - @vtype char [] + @vtype const char * @vio in @endvar - @var vn_from + @var vname_from @vdesc name of variable to apply BC from - @vtype char [] + @vtype const char * @vio in @endvar @@ -773,19 +773,19 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVI) -1 if invalid variable names are given @endreturndesc @@*/ -int BndRadiativeDirVN (cGH *GH, +int BndRadiativeDirVN (const cGH *GH, int stencil_size, int dir, CCTK_REAL var0, CCTK_REAL speed, - char vn_to[], - char vn_from[]) + const char *vname_to, + const char *vname_from) { int vi_to, vi_from, num_vars, retval; - vi_to = CCTK_VarIndex (vn_to); - vi_from = CCTK_VarIndex (vn_from); + vi_to = CCTK_VarIndex (vname_to); + vi_from = CCTK_VarIndex (vname_from); num_vars = CCTK_NumVars (); if (vi_to >= 0 && vi_to < num_vars && vi_from >= 0 && vi_from < num_vars) @@ -797,7 +797,7 @@ int BndRadiativeDirVN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid variable names '%s' and/or '%s' in BndRadiativeDirVN", - vn_to, vn_from); + vname_to, vname_from); retval = -1; } @@ -806,18 +806,18 @@ int BndRadiativeDirVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *var0, const CCTK_REAL *speed, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (vn_to, vn_from) + TWO_FORTSTRINGS_CREATE (vname_to, vname_from) *ierr = BndRadiativeDirVN (GH, *stencil_size, *dir, *var0, *speed, - vn_to, vn_from); - free (vn_to); - free (vn_from); + vname_to, vname_from); + free (vname_to); + free (vname_from); } @@ -832,7 +832,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -850,14 +850,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN) @vtype CCTK_REAL @vio in @endvar - @var vn_to + @var vname_to @vdesc name of variable to apply BC to - @vtype int + @vtype const char * @vio in @endvar - @var vn_from + @var vname_from @vdesc name of variable to apply BC from - @vtype int + @vtype const char * @vio in @endvar @@ -867,18 +867,18 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN) -1 if invalid variable names are given @endreturndesc @@*/ -int BndRadiativeVN (cGH *GH, - int stencil[], +int BndRadiativeVN (const cGH *GH, + const int *stencil, CCTK_REAL var0, CCTK_REAL speed, - char vn_to[], - char vn_from[]) + const char *vname_to, + const char *vname_from) { int vi_to, vi_from, num_vars, retval; - vi_to = CCTK_VarIndex (vn_to); - vi_from = CCTK_VarIndex (vn_from); + vi_to = CCTK_VarIndex (vname_to); + vi_from = CCTK_VarIndex (vname_from); num_vars = CCTK_NumVars (); if (vi_to >= 0 && vi_to < num_vars && vi_from >= 0 && vi_from < num_vars) @@ -889,7 +889,7 @@ int BndRadiativeVN (cGH *GH, { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, "Invalid variable names '%s' and/or '%s' in BndRadiativeVN", - vn_to, vn_from); + vname_to, vname_from); retval = -1; } @@ -898,16 +898,16 @@ int BndRadiativeVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRadiativeVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *var0, const CCTK_REAL *speed, TWO_FORTSTRINGS_ARGS) { - TWO_FORTSTRINGS_CREATE (vn_to, vn_from) - *ierr = BndRadiativeVN (GH, stencil, *var0, *speed, vn_to, vn_from); - free (vn_to); - free (vn_from); + TWO_FORTSTRINGS_CREATE (vname_to, vname_from) + *ierr = BndRadiativeVN (GH, stencil, *var0, *speed, vname_to, vname_from); + free (vname_to); + free (vname_from); } @@ -1288,7 +1288,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_dir @@ -1351,9 +1351,9 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVN) -5 if variable dimension is other than 3D @endreturndesc @@*/ -static int ApplyBndRadiative (cGH *GH, +static int ApplyBndRadiative (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, CCTK_REAL var0, CCTK_REAL speed, diff --git a/src/RobinBoundary.c b/src/RobinBoundary.c index 9a3a2ae..fe8427f 100644 --- a/src/RobinBoundary.c +++ b/src/RobinBoundary.c @@ -36,29 +36,29 @@ CCTK_FILEVERSION(CactusBase_Boundary_RobinBoundary_c) here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndRobinGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, const int *gi); void CCTK_FCALL CCTK_FNAME (BndRobinGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndRobinVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, const int *vi); void CCTK_FCALL CCTK_FNAME (BndRobinVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG); @@ -67,8 +67,8 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVN) /******************************************************************** ******************** Internal Routines ************************ ********************************************************************/ -static int ApplyBndRobin (cGH *GH, - int stencil[], +static int ApplyBndRobin (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, int first_var, @@ -86,7 +86,7 @@ static int ApplyBndRobin (cGH *GH, @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -116,8 +116,8 @@ static int ApplyBndRobin (cGH *GH, -1 if invalid group index was given @endreturndesc @@*/ -int BndRobinGI (cGH *GH, - int stencil[], +int BndRobinGI (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, int gi) @@ -143,8 +143,8 @@ int BndRobinGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, const int *gi) @@ -164,7 +164,7 @@ void CCTK_FCALL CCTK_FNAME (BndRobinGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -182,9 +182,9 @@ void CCTK_FCALL CCTK_FNAME (BndRobinGI) @vtype int @vio in @endvar - @var gn + @var gname @vdesc name of group to apply boundary conditions to - @vtype char [] + @vtype const char * @vio in @endvar @@ -194,16 +194,16 @@ void CCTK_FCALL CCTK_FNAME (BndRobinGI) -1 if invalid group index was given @endreturndesc @@*/ -int BndRobinGN (cGH *GH, - int stencil[], +int BndRobinGN (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, - char gn[]) + const char *gname) { int gi, retval; - gi = CCTK_GroupIndex (gn); + gi = CCTK_GroupIndex (gname); if (gi >= 0) { retval = BndRobinGI (GH, stencil, finf, npow, gi); @@ -211,7 +211,7 @@ int BndRobinGN (cGH *GH, else { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, - "Invalid group name '%s' in BndRobinGN", gn); + "Invalid group name '%s' in BndRobinGN", gname); retval = -1; } @@ -220,15 +220,15 @@ int BndRobinGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG) { - ONE_FORTSTRING_CREATE (gn) - *ierr = BndRobinVN (GH, stencil, *finf, *npow, gn); - free (gn); + ONE_FORTSTRING_CREATE (gname) + *ierr = BndRobinVN (GH, stencil, *finf, *npow, gname); + free (gname); } @@ -243,7 +243,7 @@ void CCTK_FCALL CCTK_FNAME (BndRobinGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -263,7 +263,7 @@ void CCTK_FCALL CCTK_FNAME (BndRobinGN) @endvar @var vi @vdesc index of variable to apply boundary conditions to - @vtype char [] + @vtype const char * @vio in @endvar @@ -273,8 +273,8 @@ void CCTK_FCALL CCTK_FNAME (BndRobinGN) -1 if invalid group index was given @endreturndesc @@*/ -int BndRobinVI (cGH *GH, - int stencil[], +int BndRobinVI (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, int vi) @@ -298,8 +298,8 @@ int BndRobinVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, const int *vi) @@ -319,7 +319,7 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -337,9 +337,9 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVI) @vtype int @vio in @endvar - @var vn + @var vname @vdesc name of variable to apply boundary conditions to - @vtype char [] + @vtype const char * @vio in @endvar @@ -349,16 +349,16 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVI) -1 if invalid group index was given @endreturndesc @@*/ -int BndRobinVN (cGH *GH, - int stencil[], +int BndRobinVN (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, - char vn[]) + const char *vname) { int vi, retval; - vi = CCTK_VarIndex (vn); + vi = CCTK_VarIndex (vname); if (vi >= 0) { retval = BndRobinVI (GH, stencil, finf, npow, vi); @@ -366,7 +366,7 @@ int BndRobinVN (cGH *GH, else { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, - "Invalid variable name '%s' in BndRobinVN", vn); + "Invalid variable name '%s' in BndRobinVN", vname); retval = -1; } @@ -375,15 +375,15 @@ int BndRobinVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndRobinVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *finf, const int *npow, ONE_FORTSTRING_ARG) { - ONE_FORTSTRING_CREATE (vn) - *ierr = BndRobinVN (GH, stencil, *finf, *npow, vn); - free (vn); + ONE_FORTSTRING_CREATE (vname) + *ierr = BndRobinVN (GH, stencil, *finf, *npow, vname); + free (vname); } @@ -529,7 +529,7 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -578,8 +578,8 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVN) -5 if variable dimension is other than 3D @endreturndesc @@*/ -static int ApplyBndRobin (cGH *GH, - int stencil[], +static int ApplyBndRobin (const cGH *GH, + const int *stencil, CCTK_REAL finf, int npow, int first_var, diff --git a/src/ScalarBoundary.c b/src/ScalarBoundary.c index 815578c..776d0c7 100644 --- a/src/ScalarBoundary.c +++ b/src/ScalarBoundary.c @@ -35,63 +35,63 @@ CCTK_FILEVERSION(CactusBase_Boundary_ScalarBoundary_c) here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (BndScalarDirVI) (int *ierr, - 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, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, const int *vi); void CCTK_FCALL CCTK_FNAME (BndScalarDirGI) (int *ierr, - 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, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, const int *gi); void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) (int *ierr, - 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, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) (int *ierr, - 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, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG); /******************************************************************** ******************** Internal Routines ************************ ********************************************************************/ -static int ApplyBndScalar (cGH *GH, +static int ApplyBndScalar (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, CCTK_REAL scalar, int first_var, @@ -110,7 +110,7 @@ static int ApplyBndScalar (cGH *GH, @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -140,7 +140,7 @@ static int ApplyBndScalar (cGH *GH, -1 if invalid variable index was given @endreturndesc @@*/ -int BndScalarDirVI (cGH *GH, +int BndScalarDirVI (const cGH *GH, int stencil_size, int dir, CCTK_REAL scalar, @@ -165,7 +165,7 @@ int BndScalarDirVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirVI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, @@ -186,7 +186,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -211,8 +211,8 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirVI) -1 if invalid variable index was given @endreturndesc @@*/ -int BndScalarVI (cGH *GH, - int stencil[], +int BndScalarVI (const cGH *GH, + const int *stencil, CCTK_REAL scalar, int vi) { @@ -235,8 +235,8 @@ int BndScalarVI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarVI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, const int *vi) { @@ -258,7 +258,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarVI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -288,7 +288,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarVI) -1 if invalid group index was given @endreturndesc @@*/ -int BndScalarDirGI (cGH *GH, +int BndScalarDirGI (const cGH *GH, int stencil_size, int dir, CCTK_REAL scalar, @@ -315,7 +315,7 @@ int BndScalarDirGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirGI) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, @@ -336,7 +336,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -361,8 +361,8 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirGI) -1 if invalid group index was given @endreturndesc @@*/ -int BndScalarGI (cGH *GH, - int stencil[], +int BndScalarGI (const cGH *GH, + const int *stencil, CCTK_REAL scalar, int gi) { @@ -387,8 +387,8 @@ int BndScalarGI (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarGI) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, const int *gi) { @@ -409,7 +409,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarGI) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -427,9 +427,9 @@ void CCTK_FCALL CCTK_FNAME (BndScalarGI) @vtype CCTK_REAL @vio in @endvar - @var gn + @var gname @vdesc name of group to apply BC to - @vtype char [] + @vtype const char * @vio in @endvar @@ -439,16 +439,16 @@ void CCTK_FCALL CCTK_FNAME (BndScalarGI) -1 if invalid group name was given @endreturndesc @@*/ -int BndScalarDirGN (cGH *GH, +int BndScalarDirGN (const cGH *GH, int stencil_size, int dir, CCTK_REAL scalar, - char gn[]) + const char *gname) { int gi, retval; - gi = CCTK_GroupIndex (gn); + gi = CCTK_GroupIndex (gname); if (gi >= 0) { retval = BndScalarDirGI (GH, stencil_size, dir, gi, scalar); @@ -456,7 +456,7 @@ int BndScalarDirGN (cGH *GH, else { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, - "Invalid group name '%s' in BndScalarDirGN", gn); + "Invalid group name '%s' in BndScalarDirGN", gname); retval = -1; } @@ -465,15 +465,15 @@ int BndScalarDirGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { - ONE_FORTSTRING_CREATE (gn) - *ierr = BndScalarDirGN (GH, *stencil_size, *dir, *scalar, gn); - free (gn); + ONE_FORTSTRING_CREATE (gname) + *ierr = BndScalarDirGN (GH, *stencil_size, *dir, *scalar, gname); + free (gname); } @@ -488,7 +488,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -501,9 +501,9 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) @vtype CCTK_REAL @vio in @endvar - @var gn + @var gname @vdesc name of group to apply BC to - @vtype char [] + @vtype const char * @vio in @endvar @@ -513,15 +513,15 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirGN) -1 if invalid group name was given @endreturndesc @@*/ -int BndScalarGN (cGH *GH, - int stencil[], +int BndScalarGN (const cGH *GH, + const int *stencil, CCTK_REAL scalar, - char gn[]) + const char *gname) { int gi, retval; - gi = CCTK_GroupIndex (gn); + gi = CCTK_GroupIndex (gname); if (gi >= 0) { retval = BndScalarGI (GH, stencil, scalar, gi); @@ -529,7 +529,7 @@ int BndScalarGN (cGH *GH, else { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, - "Invalid group name '%s' in BndScalarGN", gn); + "Invalid group name '%s' in BndScalarGN", gname); retval = -1; } @@ -538,14 +538,14 @@ int BndScalarGN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarGN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { - ONE_FORTSTRING_CREATE (gn) - *ierr = BndScalarGN (GH, stencil, *scalar, gn); - free (gn); + ONE_FORTSTRING_CREATE (gname) + *ierr = BndScalarGN (GH, stencil, *scalar, gname); + free (gname); } @@ -560,7 +560,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarGN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_size @@ -578,9 +578,9 @@ void CCTK_FCALL CCTK_FNAME (BndScalarGN) @vtype CCTK_REAL @vio in @endvar - @var vn + @var vname @vdesc name of variable to apply BC to - @vtype char [] + @vtype const char * @vio in @endvar @@ -590,16 +590,16 @@ void CCTK_FCALL CCTK_FNAME (BndScalarGN) -1 if invalid variable name was given @endreturndesc @@*/ -int BndScalarDirVN (cGH *GH, +int BndScalarDirVN (const cGH *GH, int stencil_size, int dir, CCTK_REAL scalar, - char vn[]) + const char *vname) { int vi, retval; - vi = CCTK_VarIndex (vn); + vi = CCTK_VarIndex (vname); if (vi >= 0) { retval = BndScalarDirVI (GH, stencil_size, dir, scalar, vi); @@ -607,7 +607,7 @@ int BndScalarDirVN (cGH *GH, else { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, - "Invalid variable name '%s' in BndScalarDirVN", vn); + "Invalid variable name '%s' in BndScalarDirVN", vname); retval = -1; } @@ -616,15 +616,15 @@ int BndScalarDirVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) (int *ierr, - cGH *GH, + const cGH *GH, const int *stencil_size, const int *dir, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { - ONE_FORTSTRING_CREATE (vn) - *ierr = BndScalarDirVN (GH, *stencil_size, *dir, *scalar, vn); - free (vn); + ONE_FORTSTRING_CREATE (vname) + *ierr = BndScalarDirVN (GH, *stencil_size, *dir, *scalar, vname); + free (vname); } @@ -639,7 +639,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil @@ -652,9 +652,9 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) @vtype CCTK_REAL @vio in @endvar - @var vn + @var vname @vdesc name of variable to apply BC to - @vtype char [] + @vtype const char * @vio in @endvar @@ -664,15 +664,15 @@ void CCTK_FCALL CCTK_FNAME (BndScalarDirVN) -1 if invalid variable name was given @endreturndesc @@*/ -int BndScalarVN (cGH *GH, - int stencil[], +int BndScalarVN (const cGH *GH, + const int *stencil, CCTK_REAL scalar, - char vn[]) + const char *vname) { int vi, retval; - vi = CCTK_VarIndex (vn); + vi = CCTK_VarIndex (vname); if (vi >= 0) { retval = BndScalarVI (GH, stencil, scalar, vi); @@ -680,7 +680,7 @@ int BndScalarVN (cGH *GH, else { CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, - "Invalid variable name '%s' in BndScalarVN", vn); + "Invalid variable name '%s' in BndScalarVN", vname); retval = -1; } @@ -689,14 +689,14 @@ int BndScalarVN (cGH *GH, void CCTK_FCALL CCTK_FNAME (BndScalarVN) (int *ierr, - cGH *GH, - int stencil[], + const cGH *GH, + const int *stencil, const CCTK_REAL *scalar, ONE_FORTSTRING_ARG) { - ONE_FORTSTRING_CREATE (vn) - *ierr = BndScalarVN (GH, stencil, *scalar, vn); - free (vn); + ONE_FORTSTRING_CREATE (vname) + *ierr = BndScalarVN (GH, stencil, *scalar, vname); + free (vname); } @@ -835,7 +835,7 @@ void CCTK_FCALL CCTK_FNAME (BndScalarVN) @var GH @vdesc Pointer to CCTK grid hierarchy - @vtype cGH * + @vtype const cGH * @vio in @endvar @var stencil_dir @@ -885,9 +885,9 @@ void CCTK_FCALL CCTK_FNAME (BndScalarVN) -4 if variable type is not supported @endreturndesc @@*/ -static int ApplyBndScalar (cGH *GH, +static int ApplyBndScalar (const cGH *GH, int stencil_dir, - int stencil_alldirs[], + const int *stencil_alldirs, int dir, CCTK_REAL scalar, int first_var, |