--- trunk/OOPSE/libBASS/interface.c 2004/01/19 16:08:21 957 +++ trunk/OOPSE/libBASS/interface.c 2004/01/27 19:37:48 988 @@ -130,6 +130,23 @@ void init_torsion( int torsion_index ){ free( the_event ); } +void init_member( int member_index ){ + event* the_event; + + the_event = (event* )malloc( sizeof( event ) ); + + the_event->event_type = MEMBER; + the_event->err_msg = NULL; + the_event->evt.blk_index = member_index; + + if( !event_handler( the_event ) ) interface_error( the_event ); +#ifdef IS_MPI + throwMPIEvent(the_event); +#endif + + free( the_event ); +} + void init_zconstraint( int zconstraint_index ){ event* the_event; @@ -158,12 +175,12 @@ void init_members( struct node_tag* the_node, the_event = (event* )malloc( sizeof( event ) ); - the_event->event_type = MEMBER; + the_event->event_type = MEMBERS; the_event->err_msg = NULL; - the_event->evt.mbr.a = the_node->the_data.mbr.a; - the_event->evt.mbr.b = the_node->the_data.mbr.b; - the_event->evt.mbr.c = the_node->the_data.mbr.c; - the_event->evt.mbr.d = the_node->the_data.mbr.d; + the_event->evt.mbrs.a = the_node->the_data.mbrs.a; + the_event->evt.mbrs.b = the_node->the_data.mbrs.b; + the_event->evt.mbrs.c = the_node->the_data.mbrs.c; + the_event->evt.mbrs.d = the_node->the_data.mbrs.d; if( !event_handler( the_event ) ) interface_error( the_event ); #ifdef IS_MPI