fix for net-win64
[charm.git] / src / libs / ck-libs / parmetis / METISLib / macros.h
1 /*
2  * Copyright 1997, Regents of the University of Minnesota
3  *
4  * macros.h
5  *
6  * This file contains macros used in multilevel
7  *
8  * Started 9/25/94
9  * George
10  *
11  * $Id$
12  *
13  */
14
15
16 /*************************************************************************
17 * The following macro returns a random number in the specified range
18 **************************************************************************/
19 #if defined(__VC__) || defined(__CYGWIN__) || defined(WIN32) || defined(_WINDOWS)
20 #define RandomInRange(u) ((rand()>>3)%(u))
21 #else
22 #define RandomInRange(u) ((int)(1.0*(u)*rand()/(RAND_MAX+1.0)))
23 #endif
24
25 #define amax(a, b) ((a) >= (b) ? (a) : (b))
26 #define amin(a, b) ((a) >= (b) ? (b) : (a))
27
28 #define AND(a, b) ((a) < 0 ? ((-(a))&(b)) : ((a)&(b)))
29 #define OR(a, b) ((a) < 0 ? -((-(a))|(b)) : ((a)|(b)))
30 #define XOR(a, b) ((a) < 0 ? -((-(a))^(b)) : ((a)^(b)))
31
32 #define SWAP(a, b, tmp)  \
33                  do {(tmp) = (a); (a) = (b); (b) = (tmp);} while(0) 
34
35 #define INC_DEC(a, b, val) \
36                  do {(a) += (val); (b) -= (val);} while(0)
37
38
39 #define scopy(n, a, b) (floattype *)memcpy((void *)(b), (void *)(a), sizeof(floattype)*(n))
40 #define idxcopy(n, a, b) (idxtype *)memcpy((void *)(b), (void *)(a), sizeof(idxtype)*(n)) 
41
42 #define HASHFCT(key, size) ((key)%(size))
43
44
45 /*************************************************************************
46 * Timer macros
47 **************************************************************************/
48 #define cleartimer(tmr) (tmr = 0.0)
49 #define starttimer(tmr) (tmr -= seconds())
50 #define stoptimer(tmr) (tmr += seconds())
51 #define gettimer(tmr) (tmr)
52
53
54 /*************************************************************************
55 * This macro is used to handle dbglvl
56 **************************************************************************/
57 #define IFSET(a, flag, cmd) if ((a)&(flag)) (cmd);
58
59 /*************************************************************************
60 * These macros are used for debuging memory leaks
61 **************************************************************************/
62 #ifdef DMALLOC
63 #define imalloc(n, msg) (malloc(sizeof(int)*(n)))
64 #define fmalloc(n, msg) (malloc(sizeof(floattype)*(n)))
65 #define idxmalloc(n, msg) (malloc(sizeof(idxtype)*(n)))
66 #define ismalloc(n, val, msg) (iset((n), (val), malloc(sizeof(int)*(n))))
67 #define idxsmalloc(n, val, msg) (idxset((n), (val), malloc(sizeof(idxtype)*(n))))
68 #define GKmalloc(a, b) (malloc((a)))
69 #endif
70
71 #ifdef DMALLOC
72 #   define MALLOC_CHECK(ptr);
73 /*
74 #   define MALLOC_CHECK(ptr)                                          \
75     if (malloc_verify((ptr)) == DMALLOC_VERIFY_ERROR) {  \
76         printf("***MALLOC_CHECK failed on line %d of file %s: " #ptr "\n", \
77               __LINE__, __FILE__);                               \
78         abort();                                                \
79     }
80 */
81 #else
82 #   define MALLOC_CHECK(ptr) ;
83 #endif 
84
85
86
87 /*************************************************************************
88 * This macro converts a length array in a CSR one
89 **************************************************************************/
90 #define MAKECSR(i, n, a) \
91    do { \
92      for (i=1; i<n; i++) a[i] += a[i-1]; \
93      for (i=n; i>0; i--) a[i] = a[i-1]; \
94      a[0] = 0; \
95    } while(0) 
96
97
98 /*************************************************************************
99 * These macros insert and remove nodes from the boundary list
100 **************************************************************************/
101 #define BNDInsert(nbnd, bndind, bndptr, vtx) \
102    do { \
103      ASSERT(bndptr[vtx] == -1); \
104      bndind[nbnd] = vtx; \
105      bndptr[vtx] = nbnd++;\
106    } while(0) 
107
108 #define BNDDelete(nbnd, bndind, bndptr, vtx) \
109    do { \
110      ASSERT(bndptr[vtx] != -1); \
111      bndind[bndptr[vtx]] = bndind[--nbnd]; \
112      bndptr[bndind[nbnd]] = bndptr[vtx]; \
113      bndptr[vtx] = -1; \
114    } while(0) 
115
116
117
118 /*************************************************************************
119 * These are debugging macros
120 **************************************************************************/
121 #ifdef DEBUG
122 #   define ASSERT(expr)                                          \
123     if (!(expr)) {                                               \
124         printf("***ASSERTION failed on line %d of file %s: " #expr "\n", \
125               __LINE__, __FILE__);                               \
126         abort();                                                \
127     }
128 #else
129 #   define ASSERT(expr) ;
130 #endif 
131
132 #ifdef DEBUG
133 #   define ASSERTP(expr, msg)                                          \
134     if (!(expr)) {                                               \
135         printf("***ASSERTION failed on line %d of file %s: " #expr "\n", \
136               __LINE__, __FILE__);                               \
137         printf msg ; \
138         abort();                                                \
139     }
140 #else
141 #   define ASSERTP(expr, msg) ;
142 #endif