mirror of
https://develop.openfoam.com/Development/openfoam.git
synced 2025-11-28 03:28:01 +00:00
164 lines
5.4 KiB
C
164 lines
5.4 KiB
C
/*
|
|
* Copyright 1997, Regents of the University of Minnesota
|
|
*
|
|
* macros.h
|
|
*
|
|
* This file contains macros used in multilevel
|
|
*
|
|
* Started 9/25/94
|
|
* George
|
|
*
|
|
* $Id: macros.h,v 1.8 2003/07/21 19:11:46 karypis Exp $
|
|
*
|
|
*/
|
|
|
|
|
|
/*************************************************************************
|
|
* The following macro returns a random number in the specified range
|
|
**************************************************************************/
|
|
#define RandomInRange(u) ((int)(1.0*(u)*rand()/(RAND_MAX+1.0)))
|
|
|
|
#define amax(a, b) ((a) >= (b) ? (a) : (b))
|
|
#define amin(a, b) ((a) >= (b) ? (b) : (a))
|
|
|
|
#define AND(a, b) ((a) < 0 ? ((-(a))&(b)) : ((a)&(b)))
|
|
#define OR(a, b) ((a) < 0 ? -((-(a))|(b)) : ((a)|(b)))
|
|
#define XOR(a, b) ((a) < 0 ? -((-(a))^(b)) : ((a)^(b)))
|
|
|
|
#define SWAP(a, b, tmp) \
|
|
do {(tmp) = (a); (a) = (b); (b) = (tmp);} while(0)
|
|
|
|
#define INC_DEC(a, b, val) \
|
|
do {(a) += (val); (b) -= (val);} while(0)
|
|
|
|
|
|
#define icopy(n, a, b) memcpy((b), (a), sizeof(int)*(n))
|
|
#define scopy(n, a, b) memcpy((b), (a), sizeof(float)*(n))
|
|
#define idxcopy(n, a, b) memcpy((b), (a), sizeof(idxtype)*(n))
|
|
|
|
#define HASHFCT(key, size) ((key)%(size))
|
|
|
|
|
|
/*************************************************************************
|
|
* Timer macros
|
|
**************************************************************************/
|
|
#define cleartimer(tmr) (tmr = 0.0)
|
|
#define starttimer(tmr) (tmr -= MPI_Wtime())
|
|
#define stoptimer(tmr) (tmr += MPI_Wtime())
|
|
#define gettimer(tmr) (tmr)
|
|
|
|
|
|
/*************************************************************************
|
|
* This macro is used to handle dbglvl
|
|
**************************************************************************/
|
|
#define IFSET(a, flag, cmd) if ((a)&(flag)) (cmd);
|
|
|
|
/*************************************************************************
|
|
* These macros are used for debuging memory leaks
|
|
**************************************************************************/
|
|
#ifdef DMALLOC
|
|
#define imalloc(n, msg) (malloc(sizeof(int)*(n)))
|
|
#define fmalloc(n, msg) (malloc(sizeof(float)*(n)))
|
|
#define idxmalloc(n, msg) (malloc(sizeof(idxtype)*(n)))
|
|
#define ismalloc(n, val, msg) (iset((n), (val), malloc(sizeof(int)*(n))))
|
|
#define idxsmalloc(n, val, msg) (idxset((n), (val), malloc(sizeof(idxtype)*(n))))
|
|
#define GKmalloc(a, b) (malloc(a))
|
|
#endif
|
|
|
|
#ifdef DMALLOC
|
|
# define MALLOC_CHECK(ptr);
|
|
/*
|
|
# define MALLOC_CHECK(ptr) \
|
|
if (malloc_verify((ptr)) == DMALLOC_VERIFY_ERROR) { \
|
|
printf("***MALLOC_CHECK failed on line %d of file %s: " #ptr "\n", \
|
|
__LINE__, __FILE__); \
|
|
abort(); \
|
|
}
|
|
*/
|
|
#else
|
|
# define MALLOC_CHECK(ptr) ;
|
|
#endif
|
|
|
|
/*************************************************************************
|
|
* This macro converts a length array in a CSR one
|
|
**************************************************************************/
|
|
#define MAKECSR(i, n, a) \
|
|
do { \
|
|
for (i=1; i<n; i++) a[i] += a[i-1]; \
|
|
for (i=n; i>0; i--) a[i] = a[i-1]; \
|
|
a[0] = 0; \
|
|
} while(0)
|
|
|
|
|
|
#define SHIFTCSR(i, n, a) \
|
|
do { \
|
|
for (i=n; i>0; i--) a[i] = a[i-1]; \
|
|
a[0] = 0; \
|
|
} while(0)
|
|
|
|
|
|
|
|
#ifdef DEBUG
|
|
# define ASSERT(ctrl, expr) \
|
|
if (!(expr)) { \
|
|
myprintf(ctrl, "***ASSERTION failed on line %d of file %s: " #expr "\n", \
|
|
__LINE__, __FILE__); \
|
|
abort(); \
|
|
}
|
|
#else
|
|
# define ASSERT(ctrl, expr) ;
|
|
#endif
|
|
|
|
#ifdef DEBUG
|
|
# define ASSERTP(ctrl, expr, msg) \
|
|
if (!(expr)) { \
|
|
myprintf(ctrl, "***ASSERTION failed on line %d of file %s:" #expr "\n", \
|
|
__LINE__, __FILE__); \
|
|
myprintf msg ; \
|
|
abort(); \
|
|
}
|
|
#else
|
|
# define ASSERTP(ctrl, expr,msg) ;
|
|
#endif
|
|
|
|
#ifdef DEBUGS
|
|
# define ASSERTS(expr) \
|
|
if (!(expr)) { \
|
|
printf("***ASSERTION failed on line %d of file %s: " #expr "\n", \
|
|
__LINE__, __FILE__); \
|
|
abort(); \
|
|
}
|
|
#else
|
|
# define ASSERTS(expr) ;
|
|
#endif
|
|
|
|
#ifdef DEBUGS
|
|
# define ASSERTSP(expr, msg) \
|
|
if (!(expr)) { \
|
|
printf("***ASSERTION failed on line %d of file %s: " #expr "\n", \
|
|
__LINE__, __FILE__); \
|
|
printf msg ; \
|
|
abort(); \
|
|
}
|
|
#else
|
|
# define ASSERTSP(expr, msg) ;
|
|
#endif
|
|
|
|
/*************************************************************************
|
|
* * These macros insert and remove nodes from the boundary list
|
|
* **************************************************************************/
|
|
#define BNDInsert(nbnd, bndind, bndptr, vtx) \
|
|
do { \
|
|
bndind[nbnd] = vtx; \
|
|
bndptr[vtx] = nbnd++;\
|
|
} while(0)
|
|
|
|
#define BNDDelete(nbnd, bndind, bndptr, vtx) \
|
|
do { \
|
|
bndind[bndptr[vtx]] = bndind[--nbnd]; \
|
|
bndptr[bndind[nbnd]] = bndptr[vtx]; \
|
|
bndptr[vtx] = -1; \
|
|
} while(0)
|
|
|
|
|