Give an error is a schedule bin (e.g. schedule at <...>) is not a recognized

bin


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

1 files changed, 33 insertions, 0 deletions

diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl
index f43a35f7..3673e172 100644
--- a/lib/sbin/ScheduleParser.pl
+++ b/lib/sbin/ScheduleParser.pl
@@ -220,6 +220,11 @@ sub ParseScheduleBlock
           $where = "CCTK_\U$fields[$field]\E";
         }
       }
+      if (&CheckScheduleBin($where)< 0)
+      {
+        $message = "Schedule bin $fields[$field] not recognised in $thorn\n";
+        &CST_error(0,$message,"",__LINE__,__FILE__);	
+      }
       $field+=2;
     }
     elsif($fields[$field] =~ m:^IN$:i)
@@ -521,4 +526,32 @@ sub PrintScheduleStatistics
   return;
 }
 
+#/*@@
+#  @routine    CheckScheduleBin
+#  @date       Sun MAr 17 2002
+#  @author     Gabrielle Allen
+#  @desc 
+#  Check if routine scheduled at known schedule bin
+#  @enddesc 
+#  @calls     
+#  @calledby   
+#  @history 
+#
+#  @endhistory 
+#
+#@@*/
+sub CheckScheduleBin
+{
+  my($where) = @_;
+  my($retval)=-1;
+
+  if ($where =~ m:CCTK_(STARTUP|PARAMCHECK|BASEGRID|INITIAL|POSTINITIAL|RECOVER_VARIABLES|RECOVER_PARAMETERS|CHECKPOINT|CPINITIAL|PRESTEP|EVOL|POSTSTEP|TERMINATE|SHUTDOWN):)
+  {
+    $retval = 0;
+  }
+
+  return $retval;
+}
+
+
 1;