blas/f2c/datatypes.h

/* This contains a limited subset of the typedefs exposed by f2c
   for use by the Eigen BLAS C-only implementation.
*/

#ifndef __EIGEN_DATATYPES_H__
#define __EIGEN_DATATYPES_H__

typedef int integer;
typedef unsigned int uinteger;
typedef float real;
typedef double doublereal;
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
typedef int ftnlen;
typedef int logical;

#define abs(x) ((x) >= 0 ? (x) : -(x))
#define dabs(x) (doublereal)abs(x)
#define min(a,b) ((a) <= (b) ? (a) : (b))
#define max(a,b) ((a) >= (b) ? (a) : (b))
#define dmin(a,b) (doublereal)min(a,b)
#define dmax(a,b) (doublereal)max(a,b)

#endif