Things picked up by purify.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@246 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 16 insertions, 11 deletions

diff --git a/src/SetupGroup.c b/src/SetupGroup.c
index dbbd419..a57841d 100644
--- a/src/SetupGroup.c
+++ b/src/SetupGroup.c
@@ -190,7 +190,7 @@ int PUGH_SetupArrayGroup(pGH *newGH,
                              staggercode);
 
 	  /* FIXME: workaround */
-	  if(variable == 0)
+	  if(variable == 0 && level == 0)
 	  {
 	    ((pGA *)newGH->variables[newGH->nvariables][level])->first_array_in_group = 1;
 	  }
@@ -268,16 +268,21 @@ int PUGH_SetupGFGroup(pGH *newGH,
       {
         for(level = 0; level < n_timelevels; level++)
         {
-            newGH->variables[newGH->nvariables][level] = 
-              PUGH_SetupGArray(newGH,
-                               newGH->GFExtras[dim-1],
-                               newGH->Connectivity[dim-1],
-                               groupcomm,
-                               CCTK_VarName(newGH->nvariables), 
-                               newGH->nvariables,
-                               var_size,
-                               vtype,
-                               staggercode);
+	  newGH->variables[newGH->nvariables][level] = 
+	    PUGH_SetupGArray(newGH,
+			     newGH->GFExtras[dim-1],
+			     newGH->Connectivity[dim-1],
+			     groupcomm,
+			     CCTK_VarName(newGH->nvariables), 
+			     newGH->nvariables,
+			     var_size,
+			     vtype,
+			     staggercode);
+   	  /* FIXME: workaround */
+	  if(variable == 0 && level == 0)
+	  {
+	    ((pGA *)newGH->variables[newGH->nvariables][level])->first_array_in_group = 1;
+	  }
         }
         newGH->nvariables++;
       }