47 |
|
{ |
48 |
|
mBEvent mpiEventContainer; |
49 |
|
int mpiStatus; |
50 |
– |
int mpiError; |
50 |
|
|
51 |
|
|
52 |
|
if (the_event == NULL) mpiStatus = MPI_INTERFACE_DONE; |
61 |
|
mpiEventContainer.i1 = the_event->evt.blk_index; // pack block index into first int |
62 |
|
break; |
63 |
|
|
64 |
+ |
case RIGIDBODY: |
65 |
+ |
mpiEventContainer.type = mpiRIGIDBODY; |
66 |
+ |
mpiEventContainer.i1 = the_event->evt.blk_index; // pack block index into first int |
67 |
+ |
break; |
68 |
+ |
|
69 |
|
case ATOM: |
70 |
|
mpiEventContainer.type = mpiATOM; |
71 |
|
mpiEventContainer.i1 = the_event->evt.blk_index; // pack block index into first int |
86 |
|
mpiEventContainer.i1 = the_event->evt.blk_index; // pack block index into first int |
87 |
|
break; |
88 |
|
|
89 |
+ |
case ZCONSTRAINT: |
90 |
+ |
mpiEventContainer.type = mpiZCONSTRAINT; |
91 |
+ |
mpiEventContainer.i1 = the_event->evt.blk_index; // pack block index into first int |
92 |
+ |
break; |
93 |
+ |
|
94 |
|
case COMPONENT: |
95 |
|
mpiEventContainer.type = mpiCOMPONENT; |
96 |
|
mpiEventContainer.i1 = the_event->evt.blk_index; // pack block index into first int |
173 |
|
// Everybody but node 0 runs this |
174 |
|
void mpiEventLoop(void) |
175 |
|
{ |
167 |
– |
int mpiError; |
176 |
|
int mpiContinue; |
177 |
|
|
178 |
|
#ifdef MPIBASS_VERBOSE |
189 |
|
" MEMBER %d\n" |
190 |
|
" CONSTRAINT %d\n" |
191 |
|
" ORIENTATION %d\n" |
192 |
< |
" START_INDEX %d\n" |
192 |
> |
" ZCONSTRAINT %d\n" |
193 |
> |
" RIGIDBODY %d\n" |
194 |
|
" BLOCK_END %d\n" |
195 |
|
"\n", |
196 |
|
worldRank, |
197 |
|
MOLECULE, ATOM, BOND, BEND, TORSION, COMPONENT, |
198 |
|
POSITION, ASSIGNMENT, MEMBER, CONSTRAINT, ORIENTATION, |
199 |
< |
START_INDEX, BLOCK_END ); |
199 |
> |
ZCONSTRAINT, RIGIDBODY, BLOCK_END ); |
200 |
|
#endif |
201 |
|
|
202 |
|
MPI_Bcast(&mpiContinue,1,MPI_INT,0,MPI_COMM_WORLD); |
218 |
|
{ |
219 |
|
event the_event; |
220 |
|
mBEvent mpiEventContainer; |
212 |
– |
int mpiError; |
221 |
|
|
214 |
– |
|
222 |
|
|
223 |
|
MPI_Bcast(&mpiEventContainer,1,mpiBASSEventType,0,MPI_COMM_WORLD); |
224 |
|
|
227 |
|
the_event.event_type = MOLECULE; |
228 |
|
the_event.evt.blk_index = mpiEventContainer.i1; |
229 |
|
break; |
230 |
+ |
|
231 |
+ |
case mpiRIGIDBODY: |
232 |
+ |
the_event.event_type = RIGIDBODY; |
233 |
+ |
the_event.evt.blk_index = mpiEventContainer.i1; |
234 |
+ |
break; |
235 |
|
|
236 |
|
case mpiATOM: |
237 |
|
the_event.event_type = ATOM; |
252 |
|
the_event.event_type = TORSION; |
253 |
|
the_event.evt.blk_index = mpiEventContainer.i1; |
254 |
|
break; |
255 |
+ |
|
256 |
+ |
case mpiZCONSTRAINT: |
257 |
+ |
the_event.event_type = ZCONSTRAINT; |
258 |
+ |
the_event.evt.blk_index = mpiEventContainer.i1; |
259 |
+ |
break; |
260 |
|
|
261 |
|
case mpiCOMPONENT: |
262 |
|
the_event.event_type = COMPONENT; |
361 |
|
|
362 |
|
|
363 |
|
void mpiInterfaceExit(void){ |
347 |
– |
int mpiError; |
364 |
|
int mpiStatus = MPI_INTERFACE_ABORT; |
365 |
|
|
366 |
|
MPI_Bcast(&mpiStatus,1,MPI_INT,0,MPI_COMM_WORLD); |