From 614c116c48d4bdf6fc0e0bc2bcc19f0b8e9b7562 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@1d96b42b-98df-4a6a-9d84-1b24288d4588>
Date: Wed, 15 Sep 1999 09:53:32 +0000
Subject: misc.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@11 1d96b42b-98df-4a6a-9d84-1b24288d4588
---
 src/Startup.c       | 17 ++++++++++++++++-
 src/petsc_wrapper.c |  8 +++-----
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/src/Startup.c b/src/Startup.c
index 569bcba..7b6542c 100644
--- a/src/Startup.c
+++ b/src/Startup.c
@@ -12,9 +12,24 @@
    
 int EllPETSc_Register(cGH *GH) {
   void petsc_confmetric(cGH *GH, int *MetricPsiI, int *FieldI, int *MI,
-			int *NI, int *TolArray);
+			int *NI, int *AbsTol, int *RelTol);
+  
+  void petsc_metric(cGH *GH, int *MetricI, int *FieldI, int *MI,
+		    int *NI, int *AbsTol, int *RelTol);
+
+  void petsc_flat(cGH *GH, int *FieldIndex, int *MIndex, int *NIndex, 
+			 int *AbsTol, int *RelTol);
 
   printf("PETSc: Registering petsc_confmetric...");
   Ell_RegisterSolver(petsc_confmetric,"petsc","Ell_LinConfMetric");
   printf("... done \n ");
+
+  printf("PETSc: Registering petsc_metric...");
+  Ell_RegisterSolver(petsc_metric,"petsc","Ell_LinMetric");
+  printf("... done \n ");
+
+  printf("PETSc: Registering petsc_flat ...");
+  Ell_RegisterSolver(petsc_flat,"petsc","Ell_LinFlat");
+  printf("... done \n ");
+
 }
diff --git a/src/petsc_wrapper.c b/src/petsc_wrapper.c
index 15407c6..1ef706f 100644
--- a/src/petsc_wrapper.c
+++ b/src/petsc_wrapper.c
@@ -3,13 +3,11 @@
 #include "cctk_parameters.h"
 #include "cctk_Flesh.h"
 
-/* The wrapper functions for the core PETSc solver, that performs the 
-   actual solve. 
-   One wrapper fucntion for each class, because these functions are registered 
+/* The wrapper functions for the core PETSc solver, that performs the  actual solve. 
+   One wrapper function for each class, because these functions are registered 
    with a fixed set up arguments. Still, they all call petsc_confmetric_solver
    as the core solver. */
 
-
 /* Wrapper function for the class of ellitpic equations that needs a metric */
 void petsc_metric(cGH *GH, int *MetricI, int *FieldIndex, 
 		  int *MIndex, int *NIndex, 
@@ -30,7 +28,7 @@ void petsc_metric(cGH *GH, int *MetricI, int *FieldIndex,
 			  AbsTol, RelTol);
 }
   
-/* wrapper function for the class of ellitpic equations, that needs a conf.
+/* wrapper function for the class of elliptic equations, that needs a conf.
    factor */
 void petsc_confmetric(cGH *GH, int *MetricPsiI, int *FieldIndex, 
 		      int *MIndex, int *NIndex, 
-- 
cgit v1.2.3