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, 101 insertions, 101 deletions

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,