| 45 |
|
strcpy( c_in_name, in_name); |
| 46 |
|
#ifdef IS_MPI |
| 47 |
|
} |
| 48 |
< |
strcpy( checkPointMsg, "Infile opened for reading successfully." ); |
| 48 |
> |
else{ |
| 49 |
> |
sprintf( c_in_name, "mpiNodeParser_%d", worldRank ); |
| 50 |
> |
} |
| 51 |
> |
|
| 52 |
> |
strcpy( checkPointMsg, "Infile opened for reading successfully." ); |
| 53 |
|
MPIcheckPoint(); |
| 54 |
|
#endif |
| 55 |
|
return; |
| 265 |
|
} |
| 266 |
|
} |
| 267 |
|
myStatus = -1; |
| 268 |
< |
for (j = 0; j < mpiSim->getNumberProcessors(); j++) { |
| 268 |
> |
for (j = 1; j < mpiSim->getNumberProcessors(); j++) { |
| 269 |
|
MPI_Send( &myStatus, 1, MPI_INT, j, |
| 270 |
|
TAKE_THIS_TAG_INT, MPI_COMM_WORLD); |
| 271 |
|
} |