Give a warning in PUGH_SyncGroup() if an invalid groupname was passed.

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

1 files changed, 20 insertions, 11 deletions

diff --git a/src/Comm.c b/src/Comm.c
index 5b177e7..02338aa 100644
--- a/src/Comm.c
+++ b/src/Comm.c
@@ -80,21 +80,30 @@ int PUGH_SyncGroup(cGH *GH, const char *groupname)
 
   /* get the group info from its index */
   group = CCTK_GroupIndex(groupname);
-  CCTK_GroupData(group, &pgroup);
-
-  if (pgroup.grouptype == CCTK_SCALAR)
+  if (group < 0)
   {
-    rc = 0;
-    CCTK_WARN(4, "Synchronising a scalar in PUGH");
-  }
-  else if (pgroup.grouptype == CCTK_GF || pgroup.grouptype == CCTK_ARRAY)
-  {
-    rc = PUGH_SyncGArrayGroup(PUGH_pGH(GH), CCTK_FirstVarIndexI(group));
+    CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
+                "Unknown group '%s' in PUGH_SyncGroup", groupname);
+    rc = -1;
   }
   else
   {
-    CCTK_WARN(1, "Unknown group type in PUGH_SyncGroup");
-    rc = 0;
+    CCTK_GroupData(group, &pgroup);
+
+    if (pgroup.grouptype == CCTK_SCALAR)
+    {
+      rc = 0;
+      CCTK_WARN(4, "Synchronising a scalar in PUGH");
+    }
+    else if (pgroup.grouptype == CCTK_GF || pgroup.grouptype == CCTK_ARRAY)
+    {
+      rc = PUGH_SyncGArrayGroup(PUGH_pGH(GH), CCTK_FirstVarIndexI(group));
+    }
+    else
+    {
+      CCTK_WARN(1, "Unknown group type in PUGH_SyncGroup");
+      rc = 0;
+    }
   }
 
   return (rc);