New function to provide the implementation which provided a group

 const char *CCTK_GroupImplementationI(int group)

Also reduced warning level to fix Cactus/812 in DecomposeName


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

2 files changed, 25 insertions, 1 deletions

diff --git a/src/include/cctk_Groups.h b/src/include/cctk_Groups.h
index 3fd94b31..a4947cb0 100644
--- a/src/include/cctk_Groups.h
+++ b/src/include/cctk_Groups.h
@@ -47,6 +47,7 @@ int         CCTK_GroupDimI(int group);
 int         CCTK_GroupDimFromVarI(int vi);
 int         CCTK_GroupDistribNumber(const char *dtype);
 CCTK_INT ** CCTK_GroupGhostsizesI(int group);
+const char *CCTK_GroupImplementationI(int group);
 int         CCTK_GroupIndex(const char *groupname);
 int         CCTK_GroupIndexFromVar(const char *var);
 int         CCTK_GroupIndexFromVarI(int var);
diff --git a/src/main/Groups.c b/src/main/Groups.c
index 1fc135e2..798eda15 100644
--- a/src/main/Groups.c
+++ b/src/main/Groups.c
@@ -1030,7 +1030,7 @@ int CCTK_DecomposeName (const char *fullname,
   {
     if (retval == 1)
     {
-      CCTK_VWarn (2, __LINE__, __FILE__, "Cactus",
+      CCTK_VWarn (8, __LINE__, __FILE__, "Cactus",
                   "CCTK_DecomposeName: Full name '%s' in wrong format",
                   fullname);
       retval = -3;
@@ -1978,6 +1978,29 @@ int CCTKi_CreateGroup (const char *gname,
 }
 
 
+ /*@@
+   @routine    CCTK_GroupImpI
+   @date       20 Oct 2001
+   @author     Gabrielle Allen
+   @desc
+   Return the implementation which created a group
+   @enddesc
+
+   @returntype const char *
+   @returndesc
+   Thorn name
+   @endreturndesc
+@@*/
+
+const char *CCTK_GroupImplementationI(int group)
+{
+  const char *imp;
+  
+  imp = groups[group].implementation;
+
+  return imp;
+}
+
 /********************************************************************
  ********************    Internal Routines   ************************
  ********************************************************************/