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

int main(int argc, char ** argv) 
{
  int rank, ntag = 100;
  char message[14];
  MPI_Status status;

  /*----------------*/
  /* Initialize MPI */
  /*----------------*/

  MPI_Init(&argc, &argv);

  /*------------------------------------------------------*/
  /* Get my rank in the MPI_COMM_WORLD communicator group */
  /*------------------------------------------------------*/

  MPI_Comm_rank(MPI_COMM_WORLD, &rank);

  /*---------------------------------------*/
  /* Process 0 sends a message to process 1*/
  /*---------------------------------------*/
	
  if (rank == 0) {
    strcpy(message, "Hello,World!");
    MPI_Send(&message, 14, MPI_CHAR, 1, ntag, MPI_COMM_WORLD);
  }

  /*--------------------------------------------*/
  /* Process 1 receives a message from process 0*/
  /* and outputs the result                     */
  /*--------------------------------------------*/

  if (rank == 1 ) {
    MPI_Recv(&message, 14, MPI_CHAR, 0, ntag, MPI_COMM_WORLD, &status);
    printf("Process %d : %s\n", rank, message);
  }

  /*--------------*/
  /* Finalize MPI */
  /*--------------*/

  MPI_Finalize();

}