From 3a9787ddeef6047fd9694c98e9a5f04bb230ff6c Mon Sep 17 00:00:00 2001 From: allen Date: Thu, 20 Jul 2000 08:48:11 +0000 Subject: Compiler warnings from origin git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@45 1d96b42b-98df-4a6a-9d84-1b24288d4588 --- src/Startup.c | 10 +++++++++- src/petsc_confmetric_solver.c | 2 +- 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); -- cgit v1.2.3