Untabified. Please try to adhere to the Cactus coding guidelines when

modifying or adding files.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/SymBase/trunk@9 906471b6-c639-44d1-9ea0-3e3d6879f074

4 files changed, 41 insertions, 41 deletions

diff --git a/src/Faces.c b/src/Faces.c
index 7965429..c1a668f 100644
--- a/src/Faces.c
+++ b/src/Faces.c
@@ -69,10 +69,10 @@ CCTK_FILEVERSION (CactusBase_SymBase_Faces_c);
 
 CCTK_INT
 SymBase_SymmetryRegisterFaces (CCTK_INT const sym_table,
-			       CCTK_INT const group_dim,
-			       CCTK_INT const sym_handle,
-			       CCTK_INT const *const which_faces,
-			       CCTK_INT const *const new_symmetry_zone_width)
+                               CCTK_INT const group_dim,
+                               CCTK_INT const sym_handle,
+                               CCTK_INT const *const which_faces,
+                               CCTK_INT const *const new_symmetry_zone_width)
 {
   CCTK_INT symmetry_handle[100];
   CCTK_INT symmetry_zone_width[100];
@@ -82,23 +82,23 @@ SymBase_SymmetryRegisterFaces (CCTK_INT const sym_table,
   /* Check arguments */
   if (sym_table < 0)
   {
-    return -1;			/* illegal argument */
+    return -1;                  /* illegal argument */
   }
   if (group_dim < 0)
   {
-    return -9;			/* illegal argument */
+    return -9;                  /* illegal argument */
   }
   if (sym_handle < 0 || sym_handle >= SymBase_num_symmetries)
   {
-    return -2;			/* illegal argument */
+    return -2;                  /* illegal argument */
   }
   if (!which_faces)
   {
-    return -3;			/* illegal argument */
+    return -3;                  /* illegal argument */
   }
   if (!symmetry_zone_width)
   {
-    return -4;			/* illegal argument */
+    return -4;                  /* illegal argument */
   }
 
   /* Get table entries */
@@ -126,7 +126,7 @@ SymBase_SymmetryRegisterFaces (CCTK_INT const sym_table,
     {
       if (symmetry_handle[face] != -1)
       {
-	return -5;		/* The face is already taken */
+        return -5;              /* The face is already taken */
       }
       symmetry_handle[face] = sym_handle;
       symmetry_zone_width[face] = new_symmetry_zone_width[face];
@@ -189,9 +189,9 @@ SymBase_SymmetryRegisterFaces (CCTK_INT const sym_table,
 
 CCTK_INT
 SymBase_SymmetryRegisterGrid (CCTK_POINTER const cctkGH_,
-			      CCTK_INT const sym_handle,
-			      CCTK_INT const *const which_faces,
-			      CCTK_INT const *const new_symmetry_zone_width)
+                              CCTK_INT const sym_handle,
+                              CCTK_INT const *const which_faces,
+                              CCTK_INT const *const new_symmetry_zone_width)
 {
   cGH const *const cctkGH = cctkGH_;
   struct SymBase const *symdata;
@@ -259,10 +259,10 @@ SymBase_SymmetryRegisterGrid (CCTK_POINTER const cctkGH_,
 
 CCTK_INT
 SymBase_SymmetryRegisterGI (CCTK_POINTER const cctkGH_,
-			    CCTK_INT const sym_handle,
-			    CCTK_INT const *const which_faces,
-			    CCTK_INT const *const new_symmetry_zone_width,
-			    CCTK_INT const group_index)
+                            CCTK_INT const sym_handle,
+                            CCTK_INT const *const which_faces,
+                            CCTK_INT const *const new_symmetry_zone_width,
+                            CCTK_INT const group_index)
 {
   cGH const *const cctkGH = cctkGH_;
   struct SymBase const *symdata;
@@ -280,13 +280,13 @@ SymBase_SymmetryRegisterGI (CCTK_POINTER const cctkGH_,
 
   if (group_index < 0 || group_index >= CCTK_NumGroups ())
   {
-    return -6;			/* illegal argument */
+    return -6;                  /* illegal argument */
   }
 
   switch (CCTK_GroupTypeI (group_index))
   {
   case CCTK_GF:
-    return -7;			/* illegal group type */
+    return -7;                  /* illegal group type */
   case CCTK_SCALAR:
   case CCTK_ARRAY:
     return SymBase_SymmetryRegisterFaces
@@ -296,7 +296,7 @@ SymBase_SymmetryRegisterGI (CCTK_POINTER const cctkGH_,
     CCTK_WARN (0, "internal error");
   }
 
-  return -8;			/* internal error */
+  return -8;                    /* internal error */
 }
 
 
@@ -344,17 +344,17 @@ SymBase_SymmetryRegisterGI (CCTK_POINTER const cctkGH_,
 
 CCTK_INT
 SymBase_SymmetryRegisterGN (CCTK_POINTER const cctkGH_,
-			    CCTK_INT const sym_handle,
-			    CCTK_INT const *const which_faces,
-			    CCTK_INT const *const new_symmetry_zone_width,
-			    CCTK_STRING const group_name)
+                            CCTK_INT const sym_handle,
+                            CCTK_INT const *const which_faces,
+                            CCTK_INT const *const new_symmetry_zone_width,
+                            CCTK_STRING const group_name)
 {
   int group_index;
 
   group_index = CCTK_GroupIndex (group_name);
   if (group_index < 0)
   {
-    return group_index;		/* illegal argument */
+    return group_index;         /* illegal argument */
   }
 
   return SymBase_SymmetryRegisterGI
diff --git a/src/Handles.c b/src/Handles.c
index 01f7e37..92bd103 100644
--- a/src/Handles.c
+++ b/src/Handles.c
@@ -58,20 +58,20 @@ SymBase_SymmetryRegister (CCTK_STRING const sym_name)
 
   if (!sym_name)
   {
-    return -1;			/* illegal argument */
+    return -1;                  /* illegal argument */
   }
 
   for (n = 0; n < SymBase_num_symmetries; ++n)
   {
     if (strcmp (sym_name, SymBase_symmetry_names[n]) == 0)
     {
-      return -2;		/* symmetry exists already */
+      return -2;                /* symmetry exists already */
     }
   }
 
   SymBase_symmetry_names
     = realloc (SymBase_symmetry_names,
-	       (SymBase_num_symmetries + 1) * sizeof *SymBase_symmetry_names);
+               (SymBase_num_symmetries + 1) * sizeof *SymBase_symmetry_names);
   if (!SymBase_symmetry_names)
   {
     CCTK_WARN (0, "internal error");
@@ -117,18 +117,18 @@ SymBase_SymmetryHandleOfName (CCTK_STRING const sym_name)
 
   if (!sym_name)
   {
-    return -1;			/* illegal argument */
+    return -1;                  /* illegal argument */
   }
 
   for (n = 0; n < SymBase_num_symmetries; ++n)
   {
     if (strcmp (sym_name, SymBase_symmetry_names[n]) == 0)
     {
-      return n;			/* found */
+      return n;                 /* found */
     }
   }
 
-  return -2;			/* not found */
+  return -2;                    /* not found */
 }
 
 
@@ -157,7 +157,7 @@ SymBase_SymmetryNameOfHandle (CCTK_INT const sym_handle)
 {
   if (sym_handle < 0 || sym_handle >= SymBase_num_symmetries)
   {
-    return NULL;		/* illegal argument */
+    return NULL;                /* illegal argument */
   }
 
   return SymBase_symmetry_names[sym_handle];
diff --git a/src/Startup.c b/src/Startup.c
index 48f0732..298d0ee 100644
--- a/src/Startup.c
+++ b/src/Startup.c
@@ -52,14 +52,14 @@ SymBase_Startup (void)
 
   ierr = CCTK_RegisterGHExtensionSetupGH (handle, SymBase_Setup);
   if (ierr != 1)
-  {				/* strange error code convention */
+  {                             /* strange error code convention */
     CCTK_WARN (0, "Internal Error: Could not register GH Extension setup routine");
   }
 
   SymBase_num_symmetries = 0;
   SymBase_symmetry_names = NULL;
 
-  return 0;			/* no error */
+  return 0;                     /* no error */
 }
 
 
@@ -90,7 +90,7 @@ SymBase_Startup (void)
 
 void *
 SymBase_Setup (tFleshConfig * const config,
-	       int const convlev, cGH * const cctkGH)
+               int const convlev, cGH * const cctkGH)
 {
   struct SymBase *symdata;
   CCTK_INT symmetry_handle[100];
diff --git a/src/Table.c b/src/Table.c
index 6d90c45..78990e1 100644
--- a/src/Table.c
+++ b/src/Table.c
@@ -88,7 +88,7 @@ SymBase_SymmetryTableHandleForGrid (CCTK_POINTER_TO_CONST const cctkGH_)
 
 CCTK_INT
 SymBase_SymmetryTableHandleForGI (CCTK_POINTER_TO_CONST const cctkGH_,
-				  CCTK_INT const group_index)
+                                  CCTK_INT const group_index)
 {
   cGH const *const cctkGH = cctkGH_;
   struct SymBase const *symdata;
@@ -106,13 +106,13 @@ SymBase_SymmetryTableHandleForGI (CCTK_POINTER_TO_CONST const cctkGH_,
 
   if (group_index < 0 || group_index >= CCTK_NumGroups ())
   {
-    return -6;			/* illegal argument */
+    return -6;                  /* illegal argument */
   }
 
   switch (CCTK_GroupTypeI (group_index))
   {
   case CCTK_GF:
-    return -7;			/* illegal group type */
+    return -7;                  /* illegal group type */
   case CCTK_SCALAR:
   case CCTK_ARRAY:
     return symdata->array_sym_tables[group_index];
@@ -120,7 +120,7 @@ SymBase_SymmetryTableHandleForGI (CCTK_POINTER_TO_CONST const cctkGH_,
     CCTK_WARN (0, "internal error");
   }
 
-  return -8;			/* internal error */
+  return -8;                    /* internal error */
 }
 
 
@@ -151,14 +151,14 @@ SymBase_SymmetryTableHandleForGI (CCTK_POINTER_TO_CONST const cctkGH_,
 @@*/
 CCTK_INT
 SymBase_SymmetryTableHandleForGN (CCTK_POINTER_TO_CONST const cctkGH_,
-				  CCTK_STRING const group_name)
+                                  CCTK_STRING const group_name)
 {
   int group_index;
 
   group_index = CCTK_GroupIndex (group_name);
   if (group_index < 0)
   {
-    return group_index;		/* illegal argument */
+    return group_index;         /* illegal argument */
   }
 
   return SymBase_SymmetryTableHandleForGI (cctkGH_, group_index);