You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
657 B
25 lines
657 B
2 years ago
|
/* 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
|