e3181f26b1
Changed MPI routines to hypre_MPI routines. Added hypre_printf, etc. routines. Added AUTOTEST tests to look for 'int' and 'MPI_' calls. Added a new approach for the Fortran interface (not implemented everywhere yet).
60 lines
1.6 KiB
C
60 lines
1.6 KiB
C
/*BHEADER**********************************************************************
|
|
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
|
|
* Produced at the Lawrence Livermore National Laboratory.
|
|
* This file is part of HYPRE. See file COPYRIGHT for details.
|
|
*
|
|
* HYPRE is free software; you can redistribute it and/or modify it under the
|
|
* terms of the GNU Lesser General Public License (as published by the Free
|
|
* Software Foundation) version 2.1 dated February 1999.
|
|
*
|
|
* $Revision$
|
|
***********************************************************************EHEADER*/
|
|
|
|
|
|
|
|
|
|
/******************************************************************************
|
|
*
|
|
* Common.h header file - common definitions and parameters; also hides
|
|
* HYPRE-specific definitions
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#include <stdio.h>
|
|
|
|
#if 1 /* HYPRE */
|
|
#include "HYPRE_config.h"
|
|
#include "_hypre_utilities.h"
|
|
#include "fortran.h"
|
|
#ifdef HYPRE_USING_ESSL
|
|
#define ESSL
|
|
#endif
|
|
#else /* not HYPRE */
|
|
#include "mpi.h"
|
|
#endif
|
|
|
|
#ifndef _COMMON_H
|
|
#define _COMMON_H
|
|
|
|
#define PARASAILS_MAXLEN 300000 /* maximum nz in a pattern - can grow */
|
|
#define PARASAILS_NROWS 300000 /* maximum rows stored per proc - can grow */
|
|
|
|
#ifndef ABS
|
|
#define ABS(x) (((x)<0)?(-(x)):(x))
|
|
#endif
|
|
#ifndef MAX
|
|
#define MAX(a,b) ((a)>(b)?(a):(b))
|
|
#endif
|
|
#ifndef MIN
|
|
#define MIN(a,b) ((a)<(b)?(a):(b))
|
|
#endif
|
|
|
|
#define PARASAILS_EXIT \
|
|
{ \
|
|
hypre_fprintf(stderr, "Exiting...\n"); \
|
|
fflush(NULL); \
|
|
hypre_MPI_Abort(hypre_MPI_COMM_WORLD, -1); \
|
|
}
|
|
|
|
#endif /* _COMMON_H */
|