/* Demo program from Bao Lin to test MPI and OpenMP functionality. */

/*******************************************************************
[jones1@master mpihello]$ pgcc -mp -o baolin_demo bao_lin_demo.c -lmpich -lm
[jones1@master mpihello]$ mpirun -np 3 baolin_demo
Hello world! I'm 0 of 3
Hello world! I'm 0 of 3
Hello world! I'm 1 of 3
Hello world! I'm 1 of 3
Hello world! I'm 2 of 3
Hello world! I'm 2 of 3
********************************************************************/

#include "mpi.h"
#include "omp.h"
#include "stdio.h"
 
int main( argc, argv )
int argc;
char **argv;
{
        int rank, size;
        MPI_Status Status;
 
        MPI_Init( &argc, &argv );
        MPI_Comm_rank( MPI_COMM_WORLD, &rank );
        MPI_Comm_size( MPI_COMM_WORLD, &size );
 
        omp_set_num_threads(2);

#pragma omp parallel
        printf( "Hello world! I'm %d of %d\n", rank, size );
 
        MPI_Finalize();
        return 0;
}