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