Display group indices in selected vars database output (for debugging).

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@227 6a38eb6e-646e-4a02-a296-d141613ad6c4

1 files changed, 6 insertions, 4 deletions

diff --git a/src/Boundary.c b/src/Boundary.c
index 99ec619..0091942 100644
--- a/src/Boundary.c
+++ b/src/Boundary.c
@@ -1119,13 +1119,15 @@ static void print_selections_database(void)
   for (current_bcdata = bcdata_list; current_bcdata; 
        current_bcdata = current_bcdata->next)
   {
-    printf("%d entries for %s:\n", current_bcdata->num, current_bcdata->bc_name);
-    printf(" vi      var name  table handle\n");
+    printf("%d entries for %s:\n", current_bcdata->num, 
+	   current_bcdata->bc_name);
+    printf(" vi  gi      var name  table handle\n");
     for (current = current_bcdata->var_list; current; 
 	 current = current->next) 
     {
-      printf("%3d  %12s  %2d\n", current->var, 
-	     CCTK_VarName(current->var), current->table);
+      printf("%3d  %2d  %12s  %2d\n", current->var, 
+	     CCTK_GroupIndexFromVarI(current->var), CCTK_VarName(current->var),
+	     current->table);
     }
   }
 }