mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-07-08 03:07:03 +00:00
26 lines
949 B
C
26 lines
949 B
C
/*****************************************************************************
|
|
* CVS File Information :
|
|
* $RCSfile$
|
|
* Author: patmiller $
|
|
* Date: 2007/06/11 14:12:49 $
|
|
* Revision: 1.2 $
|
|
****************************************************************************/
|
|
/******************************************************************/
|
|
/* FILE *********** MPI_ERRORS_ARE_FATAL.c ********************/
|
|
/******************************************************************/
|
|
/* Author : Lisa Alano June 24 2002 */
|
|
/* Copyright (c) 2002 University of California Regents */
|
|
/******************************************************************/
|
|
|
|
#include <stdio.h>
|
|
#include "mpi.h"
|
|
|
|
void MPI_ERRORS_ARE_FATAL (MPI_Comm* comm, int* error_code, ...)
|
|
{
|
|
_MPI_COVERAGE();
|
|
MPI_ERRORS_RETURN(comm, error_code);
|
|
if (comm == (MPI_Comm)0) MPI_Abort(0, *error_code);
|
|
MPI_Abort(*comm, *error_code);
|
|
}
|
|
|