diff options
| -rw-r--r-- | src/include/Groups.h | 2 | ||||
| -rw-r--r-- | src/main/Groups.c | 24 |
2 files changed, 26 insertions, 0 deletions
diff --git a/src/include/Groups.h b/src/include/Groups.h index b9c193b1..a7904691 100644 --- a/src/include/Groups.h +++ b/src/include/Groups.h @@ -28,6 +28,8 @@ int CCTKi_CreateGroup(const char *gname, const char *thorn, const char *imp, int CCTK_GroupIndex(const char *groupname); +void CCTK_DumpGroupInfo(void); + int CCTK_VarIndex(const char *variablename); char *CCTK_GroupNameFromVarI(int var); diff --git a/src/main/Groups.c b/src/main/Groups.c index 901c7e2f..d01234c5 100644 --- a/src/main/Groups.c +++ b/src/main/Groups.c @@ -126,6 +126,30 @@ void FMODIFIER FORTRAN_NAME(CCTK_GroupIndex)(int *index,ONE_FORTSTRING_ARG) free(name); } +/*@@ + @routine CCTK_DumpGroupInfo + @date Thu Jan 14 15:25:54 1999 + @author Gerd Lanfermann + @desc + Debugging info on the Groups. + @enddesc + @calls + @calledby + @history + + @endhistory + +@@*/ + +void CCTK_DumpGroupInfo(void) { + int group_num; + + for(group_num = 0; group_num < n_groups; group_num++) { + printf("GROUP INFO: GrpNo./imp_name/name: %d >%s< >%s<\n", + group_num,groups[group_num].implementation,groups[group_num].name); + } +} + /*@@ |