diff options
Diffstat (limited to 'src/Ell_Interface.c')
| -rw-r--r-- | src/Ell_Interface.c | 210 |
1 files changed, 105 insertions, 105 deletions
diff --git a/src/Ell_Interface.c b/src/Ell_Interface.c index 4b87ba8..170b943 100644 --- a/src/Ell_Interface.c +++ b/src/Ell_Interface.c @@ -45,44 +45,44 @@ int Ell_BrBrConfMetricRegistry(void (*function), const char *sname); int Ell_PolyConfMetricRegistry(void (*function), const char *sname); int Ell_LinConfMetricSolver(cGH *GH, - int *MetricPsi, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname); + int *MetricPsi, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname); int Ell_LinMetricSolver(cGH *GH, - int *Metric, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname); + int *Metric, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname); int Ell_BrBrConfMetricSolver(cGH *GH, - int *MetricPsi, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname); + int *MetricPsi, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname); int Ell_PolyConfMetricSolver(cGH *GH, - int *MetricPsi, - int FieldIndex, - int *PIndex, - int Pcount, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname); + int *MetricPsi, + int FieldIndex, + int *PIndex, + int Pcount, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname); int Ell_LinFlatSolver(cGH *GH, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname); + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname); void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver) @@ -161,20 +161,20 @@ int Ell_LinConfMetricRegistry(int (*function), const char *sname) } int Ell_LinConfMetricSolver(cGH *GH, - int *MetricPsi, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname) + int *MetricPsi, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname) { int retval=ELL_SUCCESS; int (*fn)(cGH *,int *,int,int,int,CCTK_REAL *,CCTK_REAL *); fn = (int(*)(cGH*,int*,int,int,int,CCTK_REAL*,CCTK_REAL*)) - (GetNamedData(LinConfMetricSolverDB,sname)); + (GetNamedData(LinConfMetricSolverDB,sname)); if (fn) { @@ -205,13 +205,13 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver) ONE_FORTSTRING_CREATE(sname); *ierr = Ell_LinConfMetricSolver(*GH, - MetricPsi, - *FieldIndex, - *MIndex, - *NIndex, - AbsTol, - RelTol, - sname); + MetricPsi, + *FieldIndex, + *MIndex, + *NIndex, + AbsTol, + RelTol, + sname); free(sname); } @@ -242,13 +242,13 @@ int Ell_LinMetricRegistry(void (*function), const char *sname) } int Ell_LinMetricSolver(cGH *GH, - int *Metric, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname) + int *Metric, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname) { int retval=ELL_SUCCESS; @@ -285,13 +285,13 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinMetricSolver) ONE_FORTSTRING_CREATE(sname); *ierr = Ell_LinMetricSolver(*GH, - Metric, - *FieldIndex, - *MIndex, - *NIndex, - AbsTol, - RelTol, - sname); + Metric, + *FieldIndex, + *MIndex, + *NIndex, + AbsTol, + RelTol, + sname); free(sname); } @@ -322,12 +322,12 @@ int Ell_LinFlatRegistry(void (*function), const char *sname) } int Ell_LinFlatSolver(cGH *GH, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname) + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname) { int retval=ELL_SUCCESS; @@ -362,12 +362,12 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinFlatSolver) ONE_FORTSTRING_CREATE(sname); *ierr = Ell_LinFlatSolver(*GH, - *FieldIndex, - *MIndex, - *NIndex, - AbsTol, - RelTol, - sname); + *FieldIndex, + *MIndex, + *NIndex, + AbsTol, + RelTol, + sname); free(sname); } @@ -399,20 +399,20 @@ int Ell_BrBrConfMetricRegistry(void (*function), const char *sname) } int Ell_BrBrConfMetricSolver(cGH *GH, - int *MetricPsi, - int FieldIndex, - int MIndex, - int NIndex, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname) + int *MetricPsi, + int FieldIndex, + int MIndex, + int NIndex, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname) { int retval=ELL_SUCCESS; int (*fn)(cGH *,int *,int,int,int,CCTK_REAL *,CCTK_REAL *); fn = (int(*)(cGH*,int*,int,int,int,CCTK_REAL*,CCTK_REAL*)) - (GetNamedData(BrBrConfMetricSolverDB,sname)); + (GetNamedData(BrBrConfMetricSolverDB,sname)); if (fn) { @@ -443,13 +443,13 @@ void CCTK_FCALL CCTK_FNAME(Ell_BrBrConfMetricSolver) ONE_FORTSTRING_CREATE(sname); *ierr = Ell_BrBrConfMetricSolver(*GH, - MetricPsi, - *FieldIndex, - *MIndex, - *NIndex, - AbsTol, - RelTol, - sname); + MetricPsi, + *FieldIndex, + *MIndex, + *NIndex, + AbsTol, + RelTol, + sname); free(sname); @@ -480,20 +480,20 @@ int Ell_PolyConfMetricRegistry(void (*function), const char *sname) } int Ell_PolyConfMetricSolver(cGH *GH, - int *MetricPsi, - int FieldIndex, - int *PIndex, - int Pcount, - CCTK_REAL *AbsTol, - CCTK_REAL *RelTol, - const char *sname) + int *MetricPsi, + int FieldIndex, + int *PIndex, + int Pcount, + CCTK_REAL *AbsTol, + CCTK_REAL *RelTol, + const char *sname) { int retval=ELL_SUCCESS; int (*fn)(cGH *,int *,int,int *,int,CCTK_REAL *,CCTK_REAL *); fn = (int(*)(cGH*,int*,int,int*,int,CCTK_REAL*,CCTK_REAL*)) - (GetNamedData(PolyConfMetricSolverDB,sname)); + (GetNamedData(PolyConfMetricSolverDB,sname)); if (fn) { @@ -523,13 +523,13 @@ void CCTK_FCALL CCTK_FNAME(Ell_PolyConfMetricSolver) ONE_FORTSTRING_CREATE(sname); *ierr = Ell_PolyConfMetricSolver(*GH, - MetricPsi, - *FieldIndex, - PIndex, - *Pcount, - AbsTol, - RelTol, - sname); + MetricPsi, + *FieldIndex, + PIndex, + *Pcount, + AbsTol, + RelTol, + sname); free(sname); } |