/*
***************************************************************

		C-DAC Tech Workshop : hyPACK-2013
                           October 15-18, 2013

                  Example 1 (Tools_Hello_World.c)	

   Objective           : MPI Program to print "Hello World"
                         This example demonstrates the use of 
                         MPI_Init
                         MPI_Comm_rank
                         MPI_Comm_size
                         MPI_Send
                         MPI_Recv
                         MPI_Finalize

   Input               : Message = "Hello World" 

   Output              : Message and Rank of the process. 

   Created             : August-2013

   E-mail              : hpcfte@cdac.in     


   Necessary Condition : Number of processes should be 
                         less than or equal to 8. 
***************************************************************
*/


/* ....Standard Includes.... */

#include <stdio.h>
#include "mpi.h"

#define BUFFER_SIZE 12

int main(argc,argv)
int argc;
char *argv[];
{
    int  MyRank,Numprocs, Destination, Source, iproc;
    int  Destination_tag, Source_tag; 
    int  Root = 0;
    char Message[BUFFER_SIZE]; 
	 MPI_Status status;

    /*....MPI initialization.... */

    MPI_Init(&argc,&argv);
    MPI_Comm_rank(MPI_COMM_WORLD,&MyRank);
    MPI_Comm_size(MPI_COMM_WORLD,&Numprocs); 

    if(MyRank != 0)
    {
       sprintf(Message, "Hello World");
       Destination = Root;
       Destination_tag = 0;
       MPI_Send(Message, BUFFER_SIZE, MPI_CHAR, Destination, Destination_tag, 
		MPI_COMM_WORLD);
    }
    else 
    {

       for(iproc = 1 ; iproc < Numprocs ; iproc++) {
	   Source = iproc;
	   Source_tag = 0;
           MPI_Recv(Message, BUFFER_SIZE, MPI_CHAR, Source, Source_tag, 
		    MPI_COMM_WORLD, &status);
	   printf("\n %s From Processor %d \n ", Message,iproc);
       }
    }

/*  ....Finalizing the MPI....*/
    MPI_Finalize();
}