00238 {
00239 char dummy;
00240 MPI_Status stat;
00241
00242
00243
00244 if (PxMyUpCPU() != -1) {
00245 MPI_Send(&dummy, 1, MPI_BYTE,
00246 PxMyUpCPU(), INIT_TAG, MPI_COMM_WORLD);
00247 }
00248 if (PxMyDownCPU() != -1) {
00249 MPI_Recv(&dummy, 1, MPI_BYTE,
00250 PxMyDownCPU(), INIT_TAG, MPI_COMM_WORLD, &stat);
00251
00252
00253
00254 MPI_Send(&dummy, 1, MPI_BYTE,
00255 PxMyDownCPU(), INIT_TAG, MPI_COMM_WORLD);
00256 }
00257 if (PxMyUpCPU() != -1) {
00258 MPI_Recv(&dummy, 1, MPI_BYTE,
00259 PxMyUpCPU(), INIT_TAG, MPI_COMM_WORLD, &stat);
00260 }
00261 }