misc

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

2 files changed, 14 insertions, 7 deletions

diff --git a/param.ccl b/param.ccl
index 7066256..5aab8d4 100644
--- a/param.ccl
+++ b/param.ccl
@@ -7,6 +7,12 @@ USES KEYWORD domain ""
 {
 } 
 
+shares: ellbase
+
+USES KEYWORD elliptic_verbose ""
+{
+}
+
 private:
 
 KEYWORD petsc_verbose "PETSc verbose output"
diff --git a/src/Startup.c b/src/Startup.c
index 7b6542c..c02b533 100644
--- a/src/Startup.c
+++ b/src/Startup.c
@@ -19,17 +19,18 @@ int EllPETSc_Register(cGH *GH) {
 
   void petsc_flat(cGH *GH, int *FieldIndex, int *MIndex, int *NIndex, 
 			 int *AbsTol, int *RelTol);
-
-  printf("PETSc: Registering petsc_confmetric...");
+  DECLARE_CCTK_PARAMETERS 
+  
+  if (CCTK_Equals(elliptic_verbose,"yes"))
+      printf("PETSc: Registering petsc for Ell_LinConfMetric...\n");
   Ell_RegisterSolver(petsc_confmetric,"petsc","Ell_LinConfMetric");
-  printf("... done \n ");
 
-  printf("PETSc: Registering petsc_metric...");
+  if (CCTK_Equals(elliptic_verbose,"yes"))
+    printf("PETSc: Registering petsc for Ell_LinMetric...\n");
   Ell_RegisterSolver(petsc_metric,"petsc","Ell_LinMetric");
-  printf("... done \n ");
 
-  printf("PETSc: Registering petsc_flat ...");
+  if (CCTK_Equals(elliptic_verbose,"yes"))
+    printf("PETSc: Registering petsc for Ell_LinFlat...\n");
   Ell_RegisterSolver(petsc_flat,"petsc","Ell_LinFlat");
-  printf("... done \n ");
 
 }