diff options
| author | lanfer <lanfer@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 1999-09-15 09:53:32 +0000 |
|---|---|---|
| committer | lanfer <lanfer@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 1999-09-15 09:53:32 +0000 |
| commit | 614c116c48d4bdf6fc0e0bc2bcc19f0b8e9b7562 (patch) | |
| tree | 6181ab87a83a56353fcf9c81b64f512a7b8ad6d5 | |
| parent | fb99316260dcc0cc232927e8be09abaa1f319a8a (diff) | |
misc.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@11 1d96b42b-98df-4a6a-9d84-1b24288d4588
| -rw-r--r-- | src/Startup.c | 17 | ||||
| -rw-r--r-- | 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, |