#include <stdio.h> #include "mpi.h" main(int argc, char **argv) { 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 = 100; if(rank == 0) { strcpy(message, "Hello, world"); for (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); printf( "node %d : %.13s\n", rank,message); rc = MPI_Finalize(); }