Mesh Oriented datABase  (version 5.5.1)
An array-based unstructured mesh library
ErrorHandlingSimulation.cpp

Description: This example simulates MOAB's enhanced error handling in parallel.
All of the errors are contrived, used for simulation purpose only.
Note: We do not need a moab instance for this example

To run: mpiexec -np 4 ./ErrorHandlingSimulation <test_case_num(1 to 4)>

/** @example ErrorHandlingSimulation.cpp
* Description: This example simulates MOAB's enhanced error handling in parallel. \n
* All of the errors are contrived, used for simulation purpose only. \n
*
* Note: We do not need a moab instance for this example
*
* <b>To run</b>: mpiexec -np 4 ./ErrorHandlingSimulation <test_case_num(1 to 4)> \n
*/
#ifdef MOAB_HAVE_MPI
#include "moab_mpi.h"
#endif
#include <iostream>
#include <cstdlib>
using namespace moab;
using namespace std;
// Functions that create and handle contrived errors
// Call hierarchy: A calls B, and B calls C
ErrorCode FunctionC( int test_case_num, int rank )
{
switch( test_case_num )
{
case 1:
// Simulate a global fatal error MB_NOT_IMPLEMENTED on all processors
// Note, it is printed by root processor 0 only
MB_SET_GLB_ERR( MB_NOT_IMPLEMENTED, "A contrived global error MB_NOT_IMPLEMENTED" );
break;
case 2:
// Simulate a per-processor relevant error MB_INDEX_OUT_OF_RANGE on all processors
// Note, it is printed by all processors
MB_SET_ERR( MB_INDEX_OUT_OF_RANGE, "A contrived error MB_INDEX_OUT_OF_RANGE on processor " << rank );
break;
case 3:
// Simulate a per-processor relevant error MB_TYPE_OUT_OF_RANGE on all processors except
// root Note, it is printed by all non-root processors
if( 0 != rank )
MB_SET_ERR( MB_TYPE_OUT_OF_RANGE, "A contrived error MB_TYPE_OUT_OF_RANGE on processor " << rank );
break;
case 4:
// Simulate a per-processor relevant error MB_INDEX_OUT_OF_RANGE on processor 1
// Note, it is printed by processor 1 only
if( 1 == rank )
MB_SET_ERR( MB_INDEX_OUT_OF_RANGE, "A contrived error MB_INDEX_OUT_OF_RANGE on processor 1" );
// Simulate a per-processor relevant error MB_TYPE_OUT_OF_RANGE on processor 3
// Note, it is printed by processor 3 only
if( 3 == rank ) MB_SET_ERR( MB_TYPE_OUT_OF_RANGE, "A contrived error MB_TYPE_OUT_OF_RANGE on processor 3" );
break;
default:
break;
}
return MB_SUCCESS;
}
ErrorCode FunctionB( int test_case_num, int rank )
{
ErrorCode err_code = FunctionC( test_case_num, rank );MB_CHK_ERR( err_code );
return MB_SUCCESS;
}
ErrorCode FunctionA( int test_case_num, int rank )
{
ErrorCode err_code = FunctionB( test_case_num, rank );MB_CHK_ERR( err_code );
return MB_SUCCESS;
}
int main( int argc, char** argv )
{
if( argc < 2 )
{
cout << "Usage: " << argv[0] << " <test_case_num(1 to 4)>" << endl;
return 0;
}
#ifdef MOAB_HAVE_MPI
MPI_Init( &argc, &argv );
#endif
// Initialize error handler, required for this example (not using a moab instance)
int test_case_num = atoi( argv[1] );
int rank = 0;
#ifdef MOAB_HAVE_MPI
MPI_Comm_rank( MPI_COMM_WORLD, &rank );
#endif
ErrorCode rval = FunctionA( test_case_num, rank );MB_CHK_ERR( rval );
// Finalize error handler, required for this example (not using a moab instance)
#ifdef MOAB_HAVE_MPI
MPI_Finalize();
#endif
return 0;
}