| 327 |
|
simError(); |
| 328 |
|
} |
| 329 |
|
|
| 330 |
< |
for (i=0 ; i < mpiSim->getTotNmol(); i++) { |
| 330 |
> |
for (i=0 ; i < mpiSim->getNMolGlobal(); i++) { |
| 331 |
|
which_node = MolToProcMap[i]; |
| 332 |
|
if(which_node == 0){ |
| 333 |
|
//molecules belong to master node |
| 368 |
|
MPI_Recv(&nCurObj, 1, MPI_INT, which_node, |
| 369 |
|
TAKE_THIS_TAG_INT, MPI_COMM_WORLD, &istatus); |
| 370 |
|
|
| 371 |
< |
for(j=0; j < integrableObjects.size(); j++){ |
| 371 |
> |
for(j=0; j < nCurObj; j++){ |
| 372 |
|
|
| 373 |
|
eof_test = fgets(read_buffer, sizeof(read_buffer), inFile); |
| 374 |
|
if(eof_test == NULL){ |
| 405 |
|
simError(); |
| 406 |
|
} |
| 407 |
|
|
| 408 |
< |
for (i=0 ; i < mpiSim->getTotNmol(); i++) { |
| 408 |
> |
for (i=0 ; i < mpiSim->getNMolGlobal(); i++) { |
| 409 |
|
which_node = MolToProcMap[i]; |
| 410 |
|
|
| 411 |
|
if(which_node == worldRank){ |
| 744 |
|
int j, myStatus; |
| 745 |
|
|
| 746 |
|
myStatus = 0; |
| 747 |
< |
for (j = 0; j < mpiSim->getNumberProcessors(); j++) { |
| 747 |
> |
for (j = 0; j < mpiSim->getNProcessors(); j++) { |
| 748 |
|
MPI_Send( &myStatus, 1, MPI_INT, j, |
| 749 |
|
TAKE_THIS_TAG_INT, MPI_COMM_WORLD); |
| 750 |
|
} |
| 760 |
|
MPI_Finalize(); |
| 761 |
|
exit (0); |
| 762 |
|
} |
| 763 |
< |
#endif |
| 763 |
> |
#endif |
