removing warnings; adding grdoc

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllBase/trunk@42 57bc7290-fb3d-4efd-a9b1-28e84cce6043

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");
   
 }