--- trunk/OOPSE/libBASS/Globals.cpp	2003/08/15 19:24:13	699
+++ trunk/OOPSE/libBASS/Globals.cpp	2003/08/20 19:11:51	704
@@ -50,6 +50,7 @@
 #define G_NZCONSTRAINTS  29
 #define G_ZCONSTOL 30
 #define G_ZCONSFORCEPOLICY 31
+#define G_SEED                        32
 
 Globals::Globals(){
   
@@ -93,6 +94,7 @@ Globals::Globals(){
   addHash( "nZconstraints",                        G_NZCONSTRAINTS);
   addHash( "zconsTol",                               G_ZCONSTOL);
   addHash( "zconsForcePolicy",                    G_ZCONSFORCEPOLICY);
+  addHash( "seed",                                     G_SEED);
 	
 	
   // define some default values 
@@ -132,6 +134,7 @@ Globals::Globals(){
   have_n_zConstraints = 0;
   have_zConstraints   = 0;
   have_zcons_tol = 0;
+  have_seed = 0;
 
 }
 
@@ -1073,6 +1076,36 @@ int Globals::globalAssign( event* the_event ){
       }
       break;
       // add more token cases here.
+    case G_SEED:
+      switch( the_type ){
+	
+      case STRING:
+   the_event->err_msg = 
+	  strdup( "Global error. seed is not a string.\n" );
+	return 0;
+   return 0;
+	break;
+	
+      case DOUBLE:
+   have_seed = 1;
+   seed = (int)the_event->evt.asmt.rhs.dval;
+	return 1;
+	break;
+	
+      case INT:
+   have_seed = 1;
+   seed =  the_event->evt.asmt.rhs.ival ;
+	return 1;
+	break;
+	
+      default:
+	the_event->err_msg = 
+	  strdup( "Global error. seed unrecognized.\n" );
+	return 0;
+	break;
+      }
+      break;
+      // add more token cases here.
 
     }
   }