43 lines
1.0 KiB
C++
43 lines
1.0 KiB
C++
#include <mpi.h>
|
|
#include <cstdio>
|
|
#include <cstdlib>
|
|
#include "errorlib.h"
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
ErrorLib::ErrorLib(MPI_Comm caller)
|
|
{
|
|
comm = caller;
|
|
MPI_Comm_rank(comm,&me);
|
|
}
|
|
|
|
/* ----------------------------------------------------------------------
|
|
called by all procs
|
|
------------------------------------------------------------------------- */
|
|
|
|
void ErrorLib::all(const char *str)
|
|
{
|
|
if (me == 0) printf("ERROR: %s\n",str);
|
|
MPI_Finalize();
|
|
exit(1);
|
|
}
|
|
|
|
/* ----------------------------------------------------------------------
|
|
called by one proc
|
|
------------------------------------------------------------------------- */
|
|
|
|
void ErrorLib::one(const char *str)
|
|
{
|
|
printf("ERROR on proc %d: %s\n",me,str);
|
|
MPI_Abort(comm,1);
|
|
}
|
|
|
|
/* ----------------------------------------------------------------------
|
|
called by one proc
|
|
------------------------------------------------------------------------- */
|
|
|
|
void ErrorLib::warning(const char *str)
|
|
{
|
|
printf("WARNING: %s\n",str);
|
|
}
|