MPI_util.hpp

/*
 * MPI_util.hpp
 *
 *  Created on: Jul 7, 2015
 *      Author: Pietro Incardona
 */
 
#ifndef MPI_UTIL_HPP_
#define MPI_UTIL_HPP_
 
#include <iostream>
 
static void error_handler(int error_code)
{
   int rank;
   char error_string[BUFSIZ];
   int length_of_error_string, error_class;
 
   MPI_Comm_rank(MPI_COMM_WORLD,&rank);
 
   MPI_Error_class(error_code, &error_class);
   MPI_Error_string(error_class, error_string, &length_of_error_string);
   std::cerr << rank << ": " << error_string;
   MPI_Error_string(error_code, error_string, &length_of_error_string);
   std::cerr << rank << ": " << error_string;
}
 
#define MPI_SAFE_CALL(call) {\
    int err = call;\
    if (MPI_SUCCESS != err) {\
        std::cerr << "MPI error: "<< __FILE__ << " " << __LINE__ << "\n";\
        error_handler(err);\
        MPI_Abort(MPI_COMM_WORLD,-1);\
    }\
}
 
 
#endif /* MPI_UTIL_HPP_ */