/********************************************************************
 Sharon Chambers
 username:  chambers
 program:  hello1.c
 11/04/1999
********************************************************************/
#include <stdio.h>
#include <mpi.h>

void
main(int argc, char *argv[])
{
  int i, rank, size;
  char buff[20], *msg="Hello World!";
  MPI_Status status;

  MPI_Init(&argc, &argv);                       /* initialize mpi */
  MPI_Comm_rank(MPI_COMM_WORLD, &rank);         /* set rank */
  MPI_Comm_size(MPI_COMM_WORLD, &size);         /* get size */

  if(rank == 0) {
    for(i=1; i<size; i++) {             /* send msg to workers */
        MPI_Send(msg,strlen(msg),MPI_CHAR,i,10,MPI_COMM_WORLD);
        printf("%s\nI am %d out of %d\n", msg, rank, size);
    }
  }
  else {                        /* recv msg and print info */
    MPI_Recv(buff,20,MPI_CHAR,0,MPI_ANY_TAG,MPI_COMM_WORLD,&status);
    printf("%s\nI am %d out of %d\n", buff, rank, size);
  }

  MPI_Finalize();                               /* finalize mpi */
}