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

1 files changed, 24 insertions, 1 deletions

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   ************************
  ********************************************************************/