diff options
-rw-r--r-- | src/Startup.c | 69 |
1 files changed, 48 insertions, 21 deletions
diff --git a/src/Startup.c b/src/Startup.c index 4576c16..1500179 100644 --- a/src/Startup.c +++ b/src/Startup.c @@ -1,3 +1,12 @@ + /*@@ + @file Startup.c + @date Wed Apr 19 20:35:04 2000 + @author Gerd Lanfermann + @desc + Startup.c + @enddesc + @@*/ + #include <stdio.h> #include <stdlib.h> #include <string.h> @@ -6,9 +15,25 @@ #include "Ell_DBstructure.h" -/* At Startup, EllBase registers the elliptic equation classes for which - it provides solvers. Other routines, which may come up with new classes, - can registers the classes in their own thorns. */ + + + /*@@ + @routine Ell_RegisterBaseEqTypes + @date Wed Apr 19 20:36:08 2000 + @author Gerd Lanfermann + @desc + At Startup, EllBase registers the elliptic equation classes for which + it provides solvers. Other routines, which may come up with new classes, + can registers the classes in their own thorns. + @enddesc + @calls + @calledby + @history + + @endhistory + +@@*/ + void Ell_RegisterBaseEqTypes(cGH *GH) { @@ -20,43 +45,45 @@ void Ell_RegisterBaseEqTypes(cGH *GH) void Ell_BrBrConfMetricRegistry(void (*function),const char *); void Ell_PolyConfMetricRegistry(void (*function),const char *); - int err; + int err=0; - err = Ell_RegisterEq(Ell_LinConfMetricRegistry, "Ell_LinConfMetric"); - err = Ell_RegisterEq(Ell_BrBrConfMetricRegistry,"Ell_BrBrConfMetric"); - err = Ell_RegisterEq(Ell_PolyConfMetricRegistry,"Ell_PolyConfMetric"); - err = Ell_RegisterEq(Ell_LinMetricRegistry, "Ell_LinMetric"); - err = Ell_RegisterEq(Ell_LinFlatRegistry, "Ell_LinFlat"); + err += Ell_RegisterEq(Ell_LinConfMetricRegistry, "Ell_LinConfMetric"); + err += Ell_RegisterEq(Ell_BrBrConfMetricRegistry,"Ell_BrBrConfMetric"); + err += Ell_RegisterEq(Ell_PolyConfMetricRegistry,"Ell_PolyConfMetric"); + err += Ell_RegisterEq(Ell_LinMetricRegistry, "Ell_LinMetric"); + err += Ell_RegisterEq(Ell_LinFlatRegistry, "Ell_LinFlat"); - err = Ell_CreateKey(CCTK_VARIABLE_STRING, + err += Ell_CreateKey(CCTK_VARIABLE_STRING, "EllLinFlat::Bnd"); - err = Ell_CreateKey(CCTK_VARIABLE_STRING, + err += Ell_CreateKey(CCTK_VARIABLE_STRING, "EllLinConfMetric::Bnd"); - err = Ell_CreateKey(CCTK_VARIABLE_STRING, + err += Ell_CreateKey(CCTK_VARIABLE_STRING, "EllLinMetric::Bnd"); /* Register the variables needed to use these boundaries */ - err = Ell_CreateKey(CCTK_VARIABLE_REAL, + err += Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinConfMetric::Bnd::Robin::inf"); - err = Ell_CreateKey(CCTK_VARIABLE_INT, + err += Ell_CreateKey(CCTK_VARIABLE_INT, "EllLinConfMetric::Bnd::Robin::falloff"); - err = Ell_CreateKey(CCTK_VARIABLE_REAL, + err += Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinConfMetric::Bnd::Const::V0"); /* Register the variables needed to use these boundaries */ - err = Ell_CreateKey(CCTK_VARIABLE_REAL, + err += Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinMetric::Bnd::Robin::inf"); - err = Ell_CreateKey(CCTK_VARIABLE_INT, + err += Ell_CreateKey(CCTK_VARIABLE_INT, "EllLinMetric::Bnd::Robin::falloff"); - err = Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinMetric::Bnd::Const::V0"); + err += Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinMetric::Bnd::Const::V0"); /* Register the variables needed to use these boundaries */ - err = Ell_CreateKey(CCTK_VARIABLE_REAL, + err += Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinFlat::Bnd::Robin::inf"); - err = Ell_CreateKey(CCTK_VARIABLE_INT, + err += Ell_CreateKey(CCTK_VARIABLE_INT, "EllLinFlat::Bnd::Robin::falloff"); - err = Ell_CreateKey(CCTK_VARIABLE_REAL, + err += Ell_CreateKey(CCTK_VARIABLE_REAL, "EllLinFlat::Bnd::Const::V0"); + + if (err<0) CCTK_WARN(1,"Error registering the basic elliptic classes"); } |