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