[mvapich-discuss] enabling thread support in mvapich2 v1.8.1

[Henderson, Brent]

Skipped content of type multipart/alternative-------------- next part --------------
#include <stdio.h>
#include <mpi.h>

int
main( int argc, char* argv[] )
{
   int myRank, maxRanks;
   int provided, rc;

   rc = MPI_Init_thread( &argc, &argv, MPI_THREAD_MULTIPLE, &provided );
   MPI_Comm_size( MPI_COMM_WORLD, &maxRanks );
   MPI_Comm_rank( MPI_COMM_WORLD, &myRank );

   if ( myRank == 0 ) {
   switch( provided ) {
      case MPI_THREAD_SINGLE:
         printf( "Thread support is single (%d)\n", provided );
         break;
      case MPI_THREAD_FUNNELED:
         printf( "Thread support is funneled (%d)\n", provided );
         break;
      case MPI_THREAD_SERIALIZED:
         printf( "Thread support is serialized (%d)\n", provided );
         break;
      case MPI_THREAD_MULTIPLE:
         printf( "Thread support is multiple (%d)\n", provided );
         break;
      default:
         printf( "Unknown thread support (%d) returned\n", provided );
         break;
   }}
   MPI_Finalize();
   return 0;
}