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
8typedef int integer;
9typedef unsigned int uinteger;
10typedef float real;
11typedef double doublereal;
12typedef struct { real r, i; } complex;
13typedef struct { doublereal r, i; } doublecomplex;
14typedef int ftnlen;
15typedef 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