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

int main (int argc, char *argv[])
{
    int id, np, j, slen;
    char processor_name[MPI_MAX_PROCESSOR_NAME];
    int processor_name_len;
    char message[100];
    MPI_Status status;

    MPI_Init(&argc, &argv);

    MPI_Comm_size(MPI_COMM_WORLD, &np);
    MPI_Comm_rank(MPI_COMM_WORLD, &id);
    MPI_Get_processor_name(processor_name, &processor_name_len);

    sprintf(message, "Hello from process %03d out of %03d, processor name %s", 
        id, np, processor_name);

    if (id == 0) {
      printf("%s\n",message);
      for(j=1; j<np; j++) {
        MPI_Recv(message,100,MPI_CHAR,j,0,MPI_COMM_WORLD,&status);
        /* Notice C error on p. 49 Pacheco: status->MPI_SOURCE, etc.
           This should be status.MPI_SOURCE, etc. */
        printf("%s\n",message);
      }
    } else {
      slen = 1 + strlen(message);
      MPI_Send(message,slen,MPI_CHAR,0,0,MPI_COMM_WORLD);
    }
    
    MPI_Finalize();
    return 0;
}