#include <stdio.h>
#include <mpi.h>
#include <string.h>
#define BUFFER_SIZE 32
int main(int argc,char *argv[])
{
int MyRank,Numprocs, Destination, iproc;
int tag = 0;
int Root = 0, temp = 1;
char Message[BUFFER_SIZE];
 MPI_Init(&argc,&argv);
 MPI_Status status;
 MPI_Comm_rank(MPI_COMM_WORLD,&MyRank);
 MPI_Comm_size(MPI_COMM_WORLD,&Numprocs);
/* print host name, and send message from process with rank 0 to all other processes */
if(MyRank == 0) {
 system("hostname");
 strcpy(Message, "Hello India");
 for (temp=1; temp<Numprocs;temp++)
 {
 MPI_Send(Message, BUFFER_SIZE, MPI_CHAR, temp,
tag,MPI_COMM_WORLD);
 }
 }
 else
{
 system("hostname");
 MPI_Recv(Message, BUFFER_SIZE, MPI_CHAR, Root,
tag,MPI_COMM_WORLD, &status);
 printf("\n%s in process with rank %d from Process with rank %d\n",
Message,MyRank,Root);
 }
 MPI_Finalize();
}

I2luY2x1ZGUgPHN0ZGlvLmg+CiNpbmNsdWRlIDxtcGkuaD4KI2luY2x1ZGUgPHN0cmluZy5oPgojZGVmaW5lIEJVRkZFUl9TSVpFIDMyCmludCBtYWluKGludCBhcmdjLGNoYXIgKmFyZ3ZbXSkKewppbnQgTXlSYW5rLE51bXByb2NzLCBEZXN0aW5hdGlvbiwgaXByb2M7CmludCB0YWcgPSAwOwppbnQgUm9vdCA9IDAsIHRlbXAgPSAxOwpjaGFyIE1lc3NhZ2VbQlVGRkVSX1NJWkVdOwogTVBJX0luaXQoJmFyZ2MsJmFyZ3YpOwogTVBJX1N0YXR1cyBzdGF0dXM7CiBNUElfQ29tbV9yYW5rKE1QSV9DT01NX1dPUkxELCZNeVJhbmspOwogTVBJX0NvbW1fc2l6ZShNUElfQ09NTV9XT1JMRCwmTnVtcHJvY3MpOwovKiBwcmludCBob3N0IG5hbWUsIGFuZCBzZW5kIG1lc3NhZ2UgZnJvbSBwcm9jZXNzIHdpdGggcmFuayAwIHRvIGFsbCBvdGhlciBwcm9jZXNzZXMgKi8KaWYoTXlSYW5rID09IDApIHsKIHN5c3RlbSgiaG9zdG5hbWUiKTsKIHN0cmNweShNZXNzYWdlLCAiSGVsbG8gSW5kaWEiKTsKIGZvciAodGVtcD0xOyB0ZW1wPE51bXByb2NzO3RlbXArKykKIHsKIE1QSV9TZW5kKE1lc3NhZ2UsIEJVRkZFUl9TSVpFLCBNUElfQ0hBUiwgdGVtcCwKdGFnLE1QSV9DT01NX1dPUkxEKTsKIH0KIH0KIGVsc2UKewogc3lzdGVtKCJob3N0bmFtZSIpOwogTVBJX1JlY3YoTWVzc2FnZSwgQlVGRkVSX1NJWkUsIE1QSV9DSEFSLCBSb290LAp0YWcsTVBJX0NPTU1fV09STEQsICZzdGF0dXMpOwogcHJpbnRmKCJcbiVzIGluIHByb2Nlc3Mgd2l0aCByYW5rICVkIGZyb20gUHJvY2VzcyB3aXRoIHJhbmsgJWRcbiIsCk1lc3NhZ2UsTXlSYW5rLFJvb3QpOwogfQogTVBJX0ZpbmFsaXplKCk7Cn0=