diff options
Diffstat (limited to 'src/Startup.c')
-rw-r--r-- | src/Startup.c | 31 |
1 files changed, 9 insertions, 22 deletions
diff --git a/src/Startup.c b/src/Startup.c index 84c8b9c..24306df 100644 --- a/src/Startup.c +++ b/src/Startup.c @@ -9,38 +9,25 @@ static const char *rcsid = "$Header$"; CCTK_FILEVERSION(CactusElliptic_EllPETSc_Startup_c) +void petsc_confmetric(cGH *GH, int *MetricPsiI, int *FieldI, int *MI, + 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); + /* Registration of the petsc solvers with the Elliptic solver registry. This routine registers petsc_confmetric under the name "petsc" for the class of elliptic equations "LinConfMetric" */ int EllPETSc_Register(cGH *GH) { - void petsc_confmetric(cGH *GH, int *MetricPsiI, int *FieldI, int *MI, - 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); 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; |