Added CCTK_GetNumVarsInGroup

git-svn-id: http://svn.cactuscode.org/flesh/trunk@411 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 13 insertions, 0 deletions

diff --git a/src/main/Groups.c b/src/main/Groups.c
index 4b1434b8..f77e7101 100644
--- a/src/main/Groups.c
+++ b/src/main/Groups.c
@@ -752,6 +752,19 @@ int CCTK_GetFirstVarNum(int group)
   }
 }
 
+
+int CCTK_GetNumVarsInGroup(int group)
+{
+  if (0 <= group && group<n_groups)
+  {
+    return groups[group].n_variables;
+  }
+  else
+  {
+    return -1;
+  }
+}
+
 int CCTK_GetVarGType(int var)
 {
   int gtype;