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

1 files changed, 50 insertions, 50 deletions

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,