adding function: int CCTK_GroupDimFromVarI(int vi)

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

1 files changed, 22 insertions, 0 deletions

diff --git a/src/main/Groups.c b/src/main/Groups.c
index 8fbb85f3..ab16d974 100644
--- a/src/main/Groups.c
+++ b/src/main/Groups.c
@@ -1844,3 +1844,25 @@ void  FMODIFIER FORTRAN_NAME(CCTK_GroupDimI)(int *dim, int *group)
   *dim = CCTK_GroupDimI(*group);
 }
 
+int CCTK_GroupDimFromVarI(int vi)
+{
+  int retval,group;
+  
+  group = CCTK_GroupIndexFromVarI(vi);
+
+  if (0 <= group && group<n_groups)
+  {
+    retval = groups[group].dim;
+  }
+  else
+  {
+    retval = -1;
+  }
+
+  return retval;
+}
+
+void  FMODIFIER FORTRAN_NAME(CCTK_GroupDimFromVarI)(int *dim, int *vi)
+{
+  *dim = CCTK_GroupDimFromVarI(*vi);
+}