if
(my_rank != 0)
{
sprintf(message,
Hello from process %d!", my_rank);
dest =
0;
/* Use
strlen(message)+1 to include endofline */
MPI_Send(message,
strlen(message)+1, MPI_CHAR, dest,
tag,
MPI_COMM_WORLD);
}
else /* my_rank == 0 */
{
for
(source = 1; source < p; source++)
{
MPI_Recv(message,
100, MPI_CHAR, source, tag,
MPI_COMM_WORLD,
&status);
printf("%s＼n", message);
}
}
MPI_Finalize();
} /* main
*/