source: CIVL/examples/mpi-omp/mpi-omp-hello-world.c

/**********************************************************************
                 C-DAC Tech Workshop : HeGaPa-2012
                        July 16-20,2012

   Example 1    :           Mpi-Omp_Hello_World.c

   Objective    : MPI-OpenMP program to print "Hello World"
                  This example demonstrates the use of
                  MPI LIBRARY CALLS and OPENMP Directives

   Input        : No Input is Required 

   Output       : Each thread created by each processor prints
                  Hello World along with its threadid and procesor rank.

  Created         : MAY-2012    

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

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

/* Main Program */

int main(int argc, char **argv)
{
  int             Numprocs, MyRank, iam;

  /* MPI - Initialization */

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

  /* OpenMP Parallel Directive */
  omp_set_num_threads(4); 
#pragma omp parallel private(iam)
  {
    iam = omp_get_thread_num();
    printf("Hello World is Printed By Process %d and Threadid %d\n", MyRank, iam);
  }

  /* MPI - Termination */
  MPI_Finalize();
}