--- branches/mmeineke/OOPSE/libBASS/interface.c	2003/03/21 17:42:12	377
+++ trunk/OOPSE/libBASS/interface.c	2003/08/11 19:38:44	675
@@ -113,7 +113,24 @@ void init_torsion( int torsion_index ){
   free( the_event );
 }
 
+void init_zconstraint( int zconstraint_index ){
+  event* the_event;
 
+  the_event = (event* )malloc( sizeof( event ) );
+  
+  the_event->event_type = ZCONSTRAINT;
+  the_event->err_msg = NULL;
+  the_event->evt.blk_index = zconstraint_index;
+
+  if( !event_handler( the_event ) ) interface_error( the_event );
+#ifdef IS_MPI
+  throwMPIEvent(the_event);
+#endif
+  
+  free( the_event );
+}
+
+
 /*
  * the next few deal with the statement initializations 
  */