int rank, size, tag, rc, i; MPI_Status status; char message[20]; rc = MPI_Init(&argc, &argv); rc = MPI_Comm_size(MPI_COMM_WORLD, &size); rc = MPI_Comm_rank(MPI_COMM_WORLD, &rank); tag=7;
if (rank==0) { strcpy(message, "Hello, world"); for (int i=1;i<size;++i)
rc = MPI_SEND(message, 13, MPI_CHAR, i, tag, MPI_COMM_WORLD);
} else
rc = MPI_RECV(message, 13, MPI_CHAR, 0, tag, MPI_COMM_WORLD, &status);
std::cout<<"node "<<rank<<": "<<message<<std::endl; rc = MPI_Finalize();