release on 2014-07-04_09-37-38

src/lagrangian/cfdemParticle/subModels/dataExchangeModel/twoWayMany2Many/library/error.cpp

@@ -0,0 +1,42 @@
+#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);
+}