forked from fmihpc/vlasiator
-
Notifications
You must be signed in to change notification settings - Fork 0
/
common.cpp
87 lines (84 loc) · 3 KB
/
common.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
/*
* This file is part of Vlasiator.
* Copyright 2010-2016 Finnish Meteorological Institute
*
* For details of usage, see the COPYING file and read the "Rules of the Road"
* at http://www.physics.helsinki.fi/vlasiator/
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License along
* with this program; if not, write to the Free Software Foundation, Inc.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
#include <mpi.h>
#include <iostream>
#include <string.h>
#include <stdio.h>
#include "common.h"
/*! \brief A function to stop the simulation if the boolean condition is true.
* Raises a flag which gets MPI_Reduced and initiates bailout.
* [bailout] parameters set details.
* \param condition if true, bailout is initiated
* \param message information message printed to cerr
* \param file code file where bailout was called (use __FILE__ in the call)
* \param line code line where bailout was called (use __LINE__ in the call)
*/
void bailout(
const bool condition,
const std::string message,
const char * const file,
const int line
) {
#pragma omp critical
{
if (condition && (globalflags::bailingOut == 0)) {
int myRank;
MPI_Comm_rank(MPI_COMM_WORLD,&myRank);
std::cerr << "Process " << myRank << " bailing out";
if((strcmp(file, "") != 0) && (line != 0)) {
std::cerr << " at " << file << ":" << line;
}
std::cerr << ".";
if(strcmp(message.c_str(), "") != 0) {
std::cerr << " " << message;
}
std::cerr << std::endl;
globalflags::bailingOut = 1;
}
}
}
/*! \brief A function to stop the simulation if the boolean condition is true.
* Raises a flag which gets MPI_Reduced and initiates bailout.
* [bailout] parameters set details.
* \param condition if true, bailout is initiated
* \param file code file where bailout was called (use __FILE__ in the call)
* \param line code line where bailout was called (use __LINE__ in the call)
*/
void bailout(
const bool condition,
const char * const file,
const int line
) {
bailout(condition, "", file, line);
}
/*! \brief A function to stop the simulation if the boolean condition is true.
* Raises a flag which gets MPI_Reduced and initiates bailout.
* [bailout] parameters set details.
* \param condition if true, bailout is initiated
* \param message information message printed to cerr
*/
void bailout(
const bool condition,
const std::string message
) {
bailout(condition, message, "", 0);
}