Go to the documentation of this file.
30 typedef long long longint;
31 typedef unsigned long long ulongint;
32 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
33 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
173 #define abs(x) ((x) >= 0 ? (x) : -(x))
174 #define dabs(x) (doublereal)abs(x)
175 #define min(a,b) ((a) <= (b) ? (a) : (b))
176 #define max(a,b) ((a) >= (b) ? (a) : (b))
177 #define dmin(a,b) (doublereal)min(a,b)
178 #define dmax(a,b) (doublereal)max(a,b)
179 #define bit_test(a,b) ((a) >> (b) & 1)
180 #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
181 #define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
185 #define F2C_proc_par_types 1
187 typedef int (*U_fp)(...);
197 typedef int (*
S_fp)(...);
199 typedef int (*U_fp)();
219 #ifndef Skip_f2c_Undefs