New specification for CCTK_GroupData

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

1 files changed, 6 insertions, 6 deletions

diff --git a/src/SetupPGH.c b/src/SetupPGH.c
index a760b54..c07cfa0 100644
--- a/src/SetupPGH.c
+++ b/src/SetupPGH.c
@@ -699,7 +699,7 @@ void DestroyPGH(pGH **GHin)
 {
   /* First remove me from the list. */
   pGH    *GH;
-  cGroup *pgroup;
+  cGroup pgroup;
   int i;
   int didit;
   int variable;
@@ -725,20 +725,20 @@ void DestroyPGH(pGH **GHin)
     printf("Calling Destroying Group %s \n",CCTK_GroupName(group));
 #endif 
 
-    pgroup=CCTK_GroupData(group);
+    CCTK_GroupData(group,&pgroup);
 
-    for (this_var = 0; this_var < pgroup->numvariables; this_var++, variable++) 
+    for (this_var = 0; this_var < pgroup.numvars; this_var++, variable++) 
     {
-      switch(pgroup->grouptype)
+      switch(pgroup.grouptype)
       {
         case GROUP_GF:
-          for(i = 0; i < pgroup->numtimelevels; i++)
+          for(i = 0; i < pgroup.numtimelevels; i++)
           {
             DestroyPGF(GH, &(((pGF ***)GH->variables)[variable][i]));
           }
           break;
         case GROUP_SCALAR:
-          for(i = 0; i < pgroup->numtimelevels; i++)
+          for(i = 0; i < pgroup.numtimelevels; i++)
           {
             free(GH->variables[variable][i]);
           }