error.cpp
65bcbb90734blammm-master

error.cpp
View Options

			#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);
			}