modernize a couple examples/COUPLE apps

examples/COUPLE/library/errorlib.cpp

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