1 /* This contains a limited subset of the typedefs exposed by f2c 2 for use by the Eigen BLAS C-only implementation. 3 */ 4 5 #ifndef __EIGEN_DATATYPES_H__ 6 #define __EIGEN_DATATYPES_H__ 7 8 typedef int integer; 9 typedef unsigned int uinteger; 10 typedef float real; 11 typedef double doublereal; 12 typedef struct { real r, i; } complex; 13 typedef struct { doublereal r, i; } doublecomplex; 14 typedef int ftnlen; 15 typedef int logical; 16 17 #define abs(x) ((x) >= 0 ? (x) : -(x)) 18 #define dabs(x) (doublereal)abs(x) 19 #define min(a,b) ((a) <= (b) ? (a) : (b)) 20 #define max(a,b) ((a) >= (b) ? (a) : (b)) 21 #define dmin(a,b) (doublereal)min(a,b) 22 #define dmax(a,b) (doublereal)max(a,b) 23 24 #endif 25