Compiler warnings from origin

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@45 1d96b42b-98df-4a6a-9d84-1b24288d4588

2 files changed, 10 insertions, 2 deletions

diff --git a/src/Startup.c b/src/Startup.c
index 4e6ca71..320674c 100644
--- a/src/Startup.c
+++ b/src/Startup.c
@@ -10,7 +10,8 @@
    This routine registers petsc_confmetric under the name "petsc" for 
    the class of elliptic equations "LinConfMetric" */
    
-int EllPETSc_Register(cGH *GH) {
+int EllPETSc_Register(cGH *GH) 
+{
   void petsc_confmetric(cGH *GH, int *MetricPsiI, int *FieldI, int *MI,
 			int *NI, int *AbsTol, int *RelTol);
   
@@ -22,15 +23,22 @@ int EllPETSc_Register(cGH *GH) {
   DECLARE_CCTK_PARAMETERS 
   
   if (CCTK_Equals(elliptic_verbose,"yes"))
+  {
       printf("PETSc: Registering petsc for Ell_LinConfMetric...\n");
+  }
   Ell_RegisterSolver(petsc_confmetric,"petsc","Ell_LinConfMetric");
 
   if (CCTK_Equals(elliptic_verbose,"yes"))
+  {
     printf("PETSc: Registering petsc for Ell_LinMetric...\n");
+  }
   Ell_RegisterSolver(petsc_metric,"petsc","Ell_LinMetric");
 
   if (CCTK_Equals(elliptic_verbose,"yes"))
+  {
     printf("PETSc: Registering petsc for Ell_LinFlat...\n");
+  }
   Ell_RegisterSolver(petsc_flat,"petsc","Ell_LinFlat");
 
+  return 0;
 }
diff --git a/src/petsc_confmetric_solver.c b/src/petsc_confmetric_solver.c
index 3bab3b4..08f0d1b 100644
--- a/src/petsc_confmetric_solver.c
+++ b/src/petsc_confmetric_solver.c
@@ -53,7 +53,7 @@ static SLES    sles;         /* linear solver context */
 
 
 void *GetDataPtr_NextTL(cGH *GH, const char *field) {
-  int index, tlevel;
+  int index;
   char *err;
 
   index = CCTK_VarIndex(field);