diff options
Diffstat (limited to 'src/Wrapper.c')
-rw-r--r-- | src/Wrapper.c | 33 |
1 files changed, 32 insertions, 1 deletions
diff --git a/src/Wrapper.c b/src/Wrapper.c index b3ca1c5..cbbca49 100644 --- a/src/Wrapper.c +++ b/src/Wrapper.c @@ -72,7 +72,7 @@ int SORFlat(cGH *GH, @@*/ int SORConfMetric(cGH *GH, - int *MetricPsiI, + int *MetricPsiI, int FieldIndex, int MIndex, int NIndex, @@ -102,6 +102,37 @@ int SORConfMetric(cGH *GH, return retval; } +int SORMetric(cGH *GH, + int *MetricI, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol) +{ + int retval = ELL_NOSOLVER; + + switch (CCTK_GroupDimFromVarI(FieldIndex)) + { + case 1: + CCTK_WARN(0,"SORMetric: No 1D SOR solver implemented"); + break; + case 2: + CCTK_WARN(0,"SORMetric: No 2D SOR solver implemented"); + break; + case 3: + retval = SORConfMetric3D(GH, MetricI, 0, + FieldIndex, MIndex, NIndex, + AbsTol, RelTol); + break; + default: + CCTK_WARN(1,"SORMetric: Solver only implemented for 3D"); + break; + } + + return retval; +} + /*@@ @routine SORFlat @date Tue Sep 26 11:31:42 2000 |