diff options
Diffstat (limited to 'src/Wrapper.c')
-rw-r--r-- | src/Wrapper.c | 71 |
1 files changed, 35 insertions, 36 deletions
diff --git a/src/Wrapper.c b/src/Wrapper.c index cbbca49..251b21e 100644 --- a/src/Wrapper.c +++ b/src/Wrapper.c @@ -29,23 +29,23 @@ static const char *rcsid = "$Header$"; CCTK_FILEVERSION(CactusElliptic_EllSOR_Wrapper_c) int SORFlat3D(cGH *GH, int FieldIndex, int MIndex, int NIndex, - CCTK_REAL *AbsTol, CCTK_REAL *RelTol); + CCTK_REAL *AbsTol, CCTK_REAL *RelTol); int SORConfMetric3D(cGH *GH, int *MetricPsiI, int conformal, - int FieldIndex, int MIndex, int NIndex, - CCTK_REAL *AbsTol, CCTK_REAL *RelTol); + int FieldIndex, int MIndex, int NIndex, + CCTK_REAL *AbsTol, CCTK_REAL *RelTol); int SORConfMetric(cGH *GH, - int *MetricPsiI, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol); + int *MetricPsiI, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol); int SORFlat(cGH *GH, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol); + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol); /*@@ @routine SORConfMetric @@ -72,12 +72,12 @@ int SORFlat(cGH *GH, @@*/ int SORConfMetric(cGH *GH, - int *MetricPsiI, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol) + int *MetricPsiI, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol) { int retval = ELL_NOSOLVER; @@ -91,8 +91,8 @@ int SORConfMetric(cGH *GH, break; case 3: retval = SORConfMetric3D(GH, MetricPsiI, 1, - FieldIndex, MIndex, NIndex, - AbsTol, RelTol); + FieldIndex, MIndex, NIndex, + AbsTol, RelTol); break; default: CCTK_WARN(1,"SORConfMetric: Solver only implemented for 3D"); @@ -103,12 +103,12 @@ int SORConfMetric(cGH *GH, } int SORMetric(cGH *GH, - int *MetricI, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol) + int *MetricI, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol) { int retval = ELL_NOSOLVER; @@ -122,8 +122,8 @@ int SORMetric(cGH *GH, break; case 3: retval = SORConfMetric3D(GH, MetricI, 0, - FieldIndex, MIndex, NIndex, - AbsTol, RelTol); + FieldIndex, MIndex, NIndex, + AbsTol, RelTol); break; default: CCTK_WARN(1,"SORMetric: Solver only implemented for 3D"); @@ -158,11 +158,11 @@ int SORMetric(cGH *GH, @@*/ int SORFlat(cGH *GH, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol) + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol) { int retval; @@ -187,4 +187,3 @@ int SORFlat(cGH *GH, return retval; } - |