From d931efa0b0dff5204d1816273e04e5e4fdde707b Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 3 May 2000 12:09:55 +0000
Subject: adding function: int CCTK_GroupDimFromVarI(int vi)

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1624 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/main/Groups.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'src/main/Groups.c')

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);
+}
-- 
cgit v1.2.3