From db4d8b3a10e85d14cd0302a34cd4c1f14bc451e6 Mon Sep 17 00:00:00 2001
From: goodale <goodale@906471b6-c639-44d1-9ea0-3e3d6879f074>
Date: Fri, 26 Mar 2004 20:07:25 +0000
Subject: Fixing grdoc header. Making indentation adhere to guidelines. Making
 error messages more useful.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/SymBase/trunk@5 906471b6-c639-44d1-9ea0-3e3d6879f074
---
 src/Startup.c | 105 ++++++++++++++++++++++++++++++----------------------------
 1 file changed, 54 insertions(+), 51 deletions(-)

diff --git a/src/Startup.c b/src/Startup.c
index b09c7e3..48f0732 100644
--- a/src/Startup.c
+++ b/src/Startup.c
@@ -1,7 +1,7 @@
 /*@@
-  @file      $RCSfile$
-  @author    $Author$
-  @date      $Date$
+  @file      Startup.c
+  @author    Erik Schnetter
+  @date      2004-03-06
   @desc
              Thorn startup
   @version   $Header$
@@ -47,13 +47,13 @@ SymBase_Startup (void)
   handle = CCTK_RegisterGHExtension ("SymBase");
   if (handle < 0)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Failed to create GH extension for symmetry data");
   }
 
   ierr = CCTK_RegisterGHExtensionSetupGH (handle, SymBase_Setup);
   if (ierr != 1)
   {				/* strange error code convention */
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Could not register GH Extension setup routine");
   }
 
   SymBase_num_symmetries = 0;
@@ -103,7 +103,7 @@ SymBase_Setup (tFleshConfig * const config,
   symdata = malloc (sizeof *symdata);
   if (!symdata)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Failed to allocate memory for symmetry data");
   }
 
   /* Initialise handle and zone width arrays */
@@ -115,28 +115,29 @@ SymBase_Setup (tFleshConfig * const config,
 
   /* Create grid symmetry table */
   symdata->sym_table = Util_TableCreate (UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
+
   if (symdata->sym_table < 0)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Failed to create symmetry table.");
   }
 
   if (2 * cctkGH->cctk_dim > 100)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Can currently only handle a hundred faces.");
   }
   ierr = Util_TableSetIntArray
     (symdata->sym_table,
      2 * cctkGH->cctk_dim, symmetry_handle, "symmetry_handle");
   if (ierr)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Failed to create symmetry_handle array");
   }
   ierr = Util_TableSetIntArray
     (symdata->sym_table,
      2 * cctkGH->cctk_dim, symmetry_zone_width, "symmetry_zone_width");
   if (ierr)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Failed to create symmetry_zone_width array");
   }
 
   /* Create grid array symmetry tables */
@@ -144,53 +145,55 @@ SymBase_Setup (tFleshConfig * const config,
     = malloc (CCTK_NumGroups () * sizeof *symdata->array_sym_tables);
   if (!symdata->array_sym_tables)
   {
-    CCTK_WARN (0, "internal error");
+    CCTK_WARN (0, "Internal Error: Failed to create array for symmetry tables for GAs");
   }
 
   for (group = 0; group < CCTK_NumGroups (); ++group)
   {
     switch (CCTK_GroupTypeI (group))
     {
-    case CCTK_GF:
-
-      /* No table */
-      symdata->array_sym_tables[group] = -1;
-      break;
-
-    case CCTK_SCALAR:
-    case CCTK_ARRAY:
-
-      /* Create array symmetry table */
-      symdata->array_sym_tables[group]
-	= Util_TableCreate (UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-      if (symdata->array_sym_tables[group] < 0)
-      {
-	CCTK_WARN (0, "internal error");
-      }
-
-      if (2 * CCTK_GroupDimI (group) > 100)
-      {
-	CCTK_WARN (0, "internal error");
-      }
-      ierr = Util_TableSetIntArray
-	(symdata->array_sym_tables[group],
-	 2 * CCTK_GroupDimI (group), symmetry_handle, "symmetry_handle");
-      if (ierr)
-      {
-	CCTK_WARN (0, "internal error");
-      }
-      ierr = Util_TableSetIntArray
-	(symdata->array_sym_tables[group],
-	 2 * CCTK_GroupDimI (group), symmetry_zone_width,
-         "symmetry_zone_width");
-      if (ierr)
-      {
-	CCTK_WARN (0, "internal error");
-      }
-      break;
-
-    default:
-      CCTK_WARN (0, "internal error");
+      case CCTK_GF:
+
+        /* No table */
+        symdata->array_sym_tables[group] = -1;
+        break;
+
+      case CCTK_SCALAR:
+        /* FALL_THROUGH */
+
+      case CCTK_ARRAY:
+
+        /* Create array symmetry table */
+        symdata->array_sym_tables[group]
+            = Util_TableCreate (UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
+        if (symdata->array_sym_tables[group] < 0)
+        {
+          CCTK_WARN (0, "Internal Error: Failed to create symmetry table for GA");
+        }
+        
+        if (2 * CCTK_GroupDimI (group) > 100)
+        {
+          CCTK_WARN (0, "Internal Error: Can only handle 100 faces");
+        }
+        ierr = Util_TableSetIntArray
+            (symdata->array_sym_tables[group],
+             2 * CCTK_GroupDimI (group), symmetry_handle, "symmetry_handle");
+        if (ierr)
+        {
+          CCTK_WARN (0, "Internal Error: Failed to create symmetry_handle array");
+        }
+        ierr = Util_TableSetIntArray
+            (symdata->array_sym_tables[group],
+             2 * CCTK_GroupDimI (group), symmetry_zone_width,
+             "symmetry_zone_width");
+        if (ierr)
+        {
+          CCTK_WARN (0, "Internal Error: Failed to create symmetry_zone_width array");
+        }
+        break;
+        
+      default:
+        CCTK_WARN (0, "Internal Error: Unknown GV type");
     }
   }
 
-- 
cgit v1.2.3