Alsvinn  0.5.3
The fast FVM simulator with UQ support
safe_call.hpp
Go to the documentation of this file.
1 /* Copyright (c) 2018 ETH Zurich, Kjetil Olsen Lye
2  * This program is free software: you can redistribute it and/or modify
3  * it under the terms of the GNU General Public License as published by
4  * the Free Software Foundation, either version 3 of the License, or
5  * (at your option) any later version.
6  *
7  * This program is distributed in the hope that it will be useful,
8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10  * GNU General Public License for more details.
11  *
12  * You should have received a copy of the GNU General Public License
13  * along with this program. If not, see <http://www.gnu.org/licenses/>.
14  */
15 
16 #pragma once
18 #define MPI_SAFE_CALL(X) { \
19  int error = X; \
20  if (error != MPI_SUCCESS) { \
21  std::cerr << "Noticed MPI Error in " << __FILE__ << ":" << __LINE__ << std::endl; \
22  std::cerr << "\tLine was:\"" << #X << "\"" << std::endl; \
23  THROW("MPI error" << std::endl << "Line was: " << std::endl <<"\t" << #X << "\nError code: " << error); \
24  } \
25 }