Added a check against scheduling items with the same name in a schedule bin

or group.

Tom


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

1 files changed, 14 insertions, 0 deletions

diff --git a/src/main/ScheduleInterface.c b/src/main/ScheduleInterface.c
index b7607dc2..1f9ced64 100644
--- a/src/main/ScheduleInterface.c
+++ b/src/main/ScheduleInterface.c
@@ -415,6 +415,12 @@ int CCTKi_ScheduleFunction(void *function,
 
     retcode = CCTKi_DoScheduleFunction(where, name, function, modifier, (void *)attribute);
 
+    if(retcode == -2)
+    {
+      CCTK_VWarn (0, __LINE__, __FILE__, "Cactus",
+                  "Tried to schedule duplicate item '%s' from thorn '%s' in '%s'",
+                  name, thorn, where);
+    }
 #ifdef DEBUG
     fprintf(stderr, "Scheduled %s at %s\n", name, where);
 #endif
@@ -560,6 +566,14 @@ int CCTKi_ScheduleGroup(const char *realname,
   if(attribute && (modifier || (n_before == 0 && n_after == 0 && n_while == 0)))
   {
     retcode = CCTKi_DoScheduleGroup(where, name, realname, modifier, (void *)attribute);
+
+    if(retcode == -2)
+    {
+      CCTK_VWarn (0, __LINE__, __FILE__, "Cactus",
+                  "Tried to schedule duplicate item '%s' from thorn '%s' in '%s'",
+                  name, thorn, where);
+    }
+
 #ifdef DEBUG
     fprintf(stderr, "Scheduled %s at %s\n", name, where);
 #endif