diff options
| author | Pauli Virtanen <pav@iki.fi> | 2020-01-01 21:28:48 +0200 |
|---|---|---|
| committer | Pauli Virtanen <pav@iki.fi> | 2020-01-01 21:43:12 +0200 |
| commit | 0159b84141a827e9e96df7ddf25c32c6df8dfb6d (patch) | |
| tree | f69a2574d612a2c9661215b4734ee4e7af66e29d /numpy/linalg/lapack_lite/f2c.h | |
| parent | daa63afdbaf59a281b680668c2fdbaac1ca49f04 (diff) | |
| download | numpy-0159b84141a827e9e96df7ddf25c32c6df8dfb6d.tar.gz | |
ENH: build fallback lapack_lite with 64-bit integers on 64-bit platforms
Build the lapack fallback library (used when no LAPACK installed) with
64-bit integer size when building on a 64-bit platform.
Diffstat (limited to 'numpy/linalg/lapack_lite/f2c.h')
| -rw-r--r-- | numpy/linalg/lapack_lite/f2c.h | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/numpy/linalg/lapack_lite/f2c.h b/numpy/linalg/lapack_lite/f2c.h index 80f1a12b1..4462eaa74 100644 --- a/numpy/linalg/lapack_lite/f2c.h +++ b/numpy/linalg/lapack_lite/f2c.h @@ -8,15 +8,17 @@ #define F2C_INCLUDE #include <math.h> +#include "numpy/npy_common.h" +#include "npy_cblas.h" -typedef int integer; +typedef CBLAS_INT integer; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; -typedef int logical; +typedef CBLAS_INT logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -37,9 +39,9 @@ typedef short flag; typedef short ftnlen; typedef short ftnint; #else -typedef int flag; -typedef int ftnlen; -typedef int ftnint; +typedef CBLAS_INT flag; +typedef CBLAS_INT ftnlen; +typedef CBLAS_INT ftnint; #endif /*external read, write*/ @@ -352,7 +354,7 @@ extern void s_copy(char *, char *, ftnlen, ftnlen); extern int s_paus(char *, ftnlen); extern integer s_rdfe(cilist *); extern integer s_rdue(cilist *); -extern integer s_rnge(char *, integer, char *, integer); +extern int s_rnge(char *, int, char *, int); extern integer s_rsfe(cilist *); extern integer s_rsfi(icilist *); extern integer s_rsle(cilist *); |