Fixed the bug about installation. f77blas.h works OK now.

This commit is contained in:
Xianyi Zhang
2011-08-31 18:21:37 +08:00
parent 19d2ab4853
commit b9d89f8aaa
3 changed files with 38 additions and 0 deletions
+20
View File
@@ -6,6 +6,16 @@
#define BLASFUNC(FUNC) FUNC
#endif
#ifdef QUAD_PRECISION
typedef struct {
unsigned long x[2];
} xdouble;
#elif defined EXPRECISION
#define xdouble long double
#else
#define xdouble double
#endif
#if defined(OS_WINDOWS) && defined(__64BIT__)
typedef long long BLASLONG;
typedef unsigned long long BLASULONG;
@@ -19,3 +29,13 @@ typedef BLASLONG blasint;
#else
typedef int blasint;
#endif
#if defined(XDOUBLE) || defined(DOUBLE)
#define FLOATRET FLOAT
#else
#ifdef NEED_F2CCONV
#define FLOATRET double
#else
#define FLOATRET float
#endif
#endif