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

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

  Example 1.2	  : hello_world_master.c	MPMD programme

   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. 

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

   Created             : August-2013

   E-mail              : hpcfte@cdac.in     

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


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

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

#define BUFFER_SIZE 200

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

     /*  char Message[BUFFER_SIZE]; */

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

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


    for(iproc = 1 ; iproc < Numprocs ; iproc++) 
    {
     Source = iproc;
	   Source_tag = 0;
           MPI_Get_processor_name(proc_name_root, &len_name);
           MPI_Recv(Message, BUFFER_SIZE, MPI_CHAR, Source, Source_tag, 
		    MPI_COMM_WORLD, &status);
	   printf("\n MPMD : Process with Rank %d [Node : %s] Received MESSAGE \"%s \"  from Process with Rank %d\n\n",Root,proc_name_root,Message,iproc);
    }
    
/*  ....Finalizing the MPI....*/
    MPI_Finalize();
}