| 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); |