diff --git a/lapack-netlib/SRC/slaqr5.c b/lapack-netlib/SRC/slaqr5.c index 24432efb7..63ceec3e9 100644 --- a/lapack-netlib/SRC/slaqr5.c +++ b/lapack-netlib/SRC/slaqr5.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaqsb.c b/lapack-netlib/SRC/slaqsb.c index f3c07db65..38fac6b71 100644 --- a/lapack-netlib/SRC/slaqsb.c +++ b/lapack-netlib/SRC/slaqsb.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaqsp.c b/lapack-netlib/SRC/slaqsp.c index 9cb58948c..787974935 100644 --- a/lapack-netlib/SRC/slaqsp.c +++ b/lapack-netlib/SRC/slaqsp.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaqsy.c b/lapack-netlib/SRC/slaqsy.c index 2cf28e3b8..10fdb7781 100644 --- a/lapack-netlib/SRC/slaqsy.c +++ b/lapack-netlib/SRC/slaqsy.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaqtr.c b/lapack-netlib/SRC/slaqtr.c index 5bb0d3e60..3435d0220 100644 --- a/lapack-netlib/SRC/slaqtr.c +++ b/lapack-netlib/SRC/slaqtr.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slar1v.c b/lapack-netlib/SRC/slar1v.c index e21bc99c0..4bd70d811 100644 --- a/lapack-netlib/SRC/slar1v.c +++ b/lapack-netlib/SRC/slar1v.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slar2v.c b/lapack-netlib/SRC/slar2v.c index 00f9c1853..4508f0b15 100644 --- a/lapack-netlib/SRC/slar2v.c +++ b/lapack-netlib/SRC/slar2v.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarf.c b/lapack-netlib/SRC/slarf.c index e3f87fef4..5d4c76021 100644 --- a/lapack-netlib/SRC/slarf.c +++ b/lapack-netlib/SRC/slarf.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarfb.c b/lapack-netlib/SRC/slarfb.c index 8c5a4f9f9..3da061eb7 100644 --- a/lapack-netlib/SRC/slarfb.c +++ b/lapack-netlib/SRC/slarfb.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarfb_gett.c b/lapack-netlib/SRC/slarfb_gett.c index dde1636f8..15a815e0b 100644 --- a/lapack-netlib/SRC/slarfb_gett.c +++ b/lapack-netlib/SRC/slarfb_gett.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarfg.c b/lapack-netlib/SRC/slarfg.c index 66d02f8a9..70eb117c7 100644 --- a/lapack-netlib/SRC/slarfg.c +++ b/lapack-netlib/SRC/slarfg.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarfgp.c b/lapack-netlib/SRC/slarfgp.c index 26a8a9ea9..0bdc4f777 100644 --- a/lapack-netlib/SRC/slarfgp.c +++ b/lapack-netlib/SRC/slarfgp.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarft.c b/lapack-netlib/SRC/slarft.c index 241fe57b5..80261ab41 100644 --- a/lapack-netlib/SRC/slarft.c +++ b/lapack-netlib/SRC/slarft.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarfx.c b/lapack-netlib/SRC/slarfx.c index d414f0b89..26cd06ea8 100644 --- a/lapack-netlib/SRC/slarfx.c +++ b/lapack-netlib/SRC/slarfx.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarfy.c b/lapack-netlib/SRC/slarfy.c index 170f89218..b895a40c7 100644 --- a/lapack-netlib/SRC/slarfy.c +++ b/lapack-netlib/SRC/slarfy.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slargv.c b/lapack-netlib/SRC/slargv.c index dd91fcb4b..4cf4f7924 100644 --- a/lapack-netlib/SRC/slargv.c +++ b/lapack-netlib/SRC/slargv.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarnv.c b/lapack-netlib/SRC/slarnv.c index 6dc8845e6..fff28f9d3 100644 --- a/lapack-netlib/SRC/slarnv.c +++ b/lapack-netlib/SRC/slarnv.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarra.c b/lapack-netlib/SRC/slarra.c index 6f744514a..aff805e3c 100644 --- a/lapack-netlib/SRC/slarra.c +++ b/lapack-netlib/SRC/slarra.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrb.c b/lapack-netlib/SRC/slarrb.c index 75e37312d..8a82f36be 100644 --- a/lapack-netlib/SRC/slarrb.c +++ b/lapack-netlib/SRC/slarrb.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrc.c b/lapack-netlib/SRC/slarrc.c index 30fce9ce3..9e5c04b5d 100644 --- a/lapack-netlib/SRC/slarrc.c +++ b/lapack-netlib/SRC/slarrc.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrd.c b/lapack-netlib/SRC/slarrd.c index 9611bb6ac..146cb13d3 100644 --- a/lapack-netlib/SRC/slarrd.c +++ b/lapack-netlib/SRC/slarrd.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarre.c b/lapack-netlib/SRC/slarre.c index dbf5de6b1..8651a865a 100644 --- a/lapack-netlib/SRC/slarre.c +++ b/lapack-netlib/SRC/slarre.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrf.c b/lapack-netlib/SRC/slarrf.c index fa0699fdf..a964f2460 100644 --- a/lapack-netlib/SRC/slarrf.c +++ b/lapack-netlib/SRC/slarrf.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrj.c b/lapack-netlib/SRC/slarrj.c index 6bd66f8b2..673b5a767 100644 --- a/lapack-netlib/SRC/slarrj.c +++ b/lapack-netlib/SRC/slarrj.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrk.c b/lapack-netlib/SRC/slarrk.c index 6c74dc5f7..0a5a889b0 100644 --- a/lapack-netlib/SRC/slarrk.c +++ b/lapack-netlib/SRC/slarrk.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrr.c b/lapack-netlib/SRC/slarrr.c index 86779335f..401f8e017 100644 --- a/lapack-netlib/SRC/slarrr.c +++ b/lapack-netlib/SRC/slarrr.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarrv.c b/lapack-netlib/SRC/slarrv.c index fff394e2a..43a295b2b 100644 --- a/lapack-netlib/SRC/slarrv.c +++ b/lapack-netlib/SRC/slarrv.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarscl2.c b/lapack-netlib/SRC/slarscl2.c index 38b8c885f..7a64a5490 100644 --- a/lapack-netlib/SRC/slarscl2.c +++ b/lapack-netlib/SRC/slarscl2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slartg.c b/lapack-netlib/SRC/slartg.c index c285be59f..8221e849f 100644 --- a/lapack-netlib/SRC/slartg.c +++ b/lapack-netlib/SRC/slartg.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slartgp.c b/lapack-netlib/SRC/slartgp.c index 4b449da86..16db5746b 100644 --- a/lapack-netlib/SRC/slartgp.c +++ b/lapack-netlib/SRC/slartgp.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slartgs.c b/lapack-netlib/SRC/slartgs.c index 014329bde..ea2c8f944 100644 --- a/lapack-netlib/SRC/slartgs.c +++ b/lapack-netlib/SRC/slartgs.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slartv.c b/lapack-netlib/SRC/slartv.c index b4b68cb9e..1801478e8 100644 --- a/lapack-netlib/SRC/slartv.c +++ b/lapack-netlib/SRC/slartv.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaruv.c b/lapack-netlib/SRC/slaruv.c index 98dc7d5dd..36af4b82a 100644 --- a/lapack-netlib/SRC/slaruv.c +++ b/lapack-netlib/SRC/slaruv.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarz.c b/lapack-netlib/SRC/slarz.c index e430de0fa..404ba702e 100644 --- a/lapack-netlib/SRC/slarz.c +++ b/lapack-netlib/SRC/slarz.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarzb.c b/lapack-netlib/SRC/slarzb.c index f2cc4a0c1..522ef7a59 100644 --- a/lapack-netlib/SRC/slarzb.c +++ b/lapack-netlib/SRC/slarzb.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slarzt.c b/lapack-netlib/SRC/slarzt.c index d5ea836a7..3fe0cc253 100644 --- a/lapack-netlib/SRC/slarzt.c +++ b/lapack-netlib/SRC/slarzt.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slas2.c b/lapack-netlib/SRC/slas2.c index b8e00b2f0..d8ae1ad8a 100644 --- a/lapack-netlib/SRC/slas2.c +++ b/lapack-netlib/SRC/slas2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slascl.c b/lapack-netlib/SRC/slascl.c index 897c50c30..9fa01365c 100644 --- a/lapack-netlib/SRC/slascl.c +++ b/lapack-netlib/SRC/slascl.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slascl2.c b/lapack-netlib/SRC/slascl2.c index 4e6aa377e..b237de1df 100644 --- a/lapack-netlib/SRC/slascl2.c +++ b/lapack-netlib/SRC/slascl2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd0.c b/lapack-netlib/SRC/slasd0.c index 714ee720c..559056150 100644 --- a/lapack-netlib/SRC/slasd0.c +++ b/lapack-netlib/SRC/slasd0.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd1.c b/lapack-netlib/SRC/slasd1.c index c5ea21509..f6d10bd70 100644 --- a/lapack-netlib/SRC/slasd1.c +++ b/lapack-netlib/SRC/slasd1.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd2.c b/lapack-netlib/SRC/slasd2.c index cb53e7d89..8b4140972 100644 --- a/lapack-netlib/SRC/slasd2.c +++ b/lapack-netlib/SRC/slasd2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd3.c b/lapack-netlib/SRC/slasd3.c index 6c726f8eb..ab8235f6b 100644 --- a/lapack-netlib/SRC/slasd3.c +++ b/lapack-netlib/SRC/slasd3.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd4.c b/lapack-netlib/SRC/slasd4.c index 895c95f35..c98194383 100644 --- a/lapack-netlib/SRC/slasd4.c +++ b/lapack-netlib/SRC/slasd4.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd5.c b/lapack-netlib/SRC/slasd5.c index 01ee9dc03..b1510122c 100644 --- a/lapack-netlib/SRC/slasd5.c +++ b/lapack-netlib/SRC/slasd5.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd6.c b/lapack-netlib/SRC/slasd6.c index 23d3c989a..b6f02ac10 100644 --- a/lapack-netlib/SRC/slasd6.c +++ b/lapack-netlib/SRC/slasd6.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd7.c b/lapack-netlib/SRC/slasd7.c index 99517e2d5..49f48b3e1 100644 --- a/lapack-netlib/SRC/slasd7.c +++ b/lapack-netlib/SRC/slasd7.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasd8.c b/lapack-netlib/SRC/slasd8.c index 5346c0fd1..a2a925277 100644 --- a/lapack-netlib/SRC/slasd8.c +++ b/lapack-netlib/SRC/slasd8.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasda.c b/lapack-netlib/SRC/slasda.c index 66fbb330e..a003ba585 100644 --- a/lapack-netlib/SRC/slasda.c +++ b/lapack-netlib/SRC/slasda.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasdq.c b/lapack-netlib/SRC/slasdq.c index f2a4b543c..eadf73c84 100644 --- a/lapack-netlib/SRC/slasdq.c +++ b/lapack-netlib/SRC/slasdq.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasdt.c b/lapack-netlib/SRC/slasdt.c index 824b2eaf9..7e2d522a9 100644 --- a/lapack-netlib/SRC/slasdt.c +++ b/lapack-netlib/SRC/slasdt.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaset.c b/lapack-netlib/SRC/slaset.c index d94373461..06d0dd7b9 100644 --- a/lapack-netlib/SRC/slaset.c +++ b/lapack-netlib/SRC/slaset.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasq1.c b/lapack-netlib/SRC/slasq1.c index ec6f32726..5e2923332 100644 --- a/lapack-netlib/SRC/slasq1.c +++ b/lapack-netlib/SRC/slasq1.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasq2.c b/lapack-netlib/SRC/slasq2.c index 5debac99c..9520fcbd1 100644 --- a/lapack-netlib/SRC/slasq2.c +++ b/lapack-netlib/SRC/slasq2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasq3.c b/lapack-netlib/SRC/slasq3.c index 7426a9b7b..c0570f0c1 100644 --- a/lapack-netlib/SRC/slasq3.c +++ b/lapack-netlib/SRC/slasq3.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasq4.c b/lapack-netlib/SRC/slasq4.c index 8351c72d8..d213524f2 100644 --- a/lapack-netlib/SRC/slasq4.c +++ b/lapack-netlib/SRC/slasq4.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasq5.c b/lapack-netlib/SRC/slasq5.c index 682d9b9a1..850ecf96f 100644 --- a/lapack-netlib/SRC/slasq5.c +++ b/lapack-netlib/SRC/slasq5.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasq6.c b/lapack-netlib/SRC/slasq6.c index 1508a1dde..1d7fcd228 100644 --- a/lapack-netlib/SRC/slasq6.c +++ b/lapack-netlib/SRC/slasq6.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasr.c b/lapack-netlib/SRC/slasr.c index a647866cc..f8641aa49 100644 --- a/lapack-netlib/SRC/slasr.c +++ b/lapack-netlib/SRC/slasr.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasrt.c b/lapack-netlib/SRC/slasrt.c index ff3cddc94..e44035565 100644 --- a/lapack-netlib/SRC/slasrt.c +++ b/lapack-netlib/SRC/slasrt.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slassq.c b/lapack-netlib/SRC/slassq.c index 7a178dafd..499edd9ef 100644 --- a/lapack-netlib/SRC/slassq.c +++ b/lapack-netlib/SRC/slassq.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasv2.c b/lapack-netlib/SRC/slasv2.c index b43638b4e..1215f1b0c 100644 --- a/lapack-netlib/SRC/slasv2.c +++ b/lapack-netlib/SRC/slasv2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaswlq.c b/lapack-netlib/SRC/slaswlq.c index c587c0b97..972f2a8fc 100644 --- a/lapack-netlib/SRC/slaswlq.c +++ b/lapack-netlib/SRC/slaswlq.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slaswp.c b/lapack-netlib/SRC/slaswp.c index 5866d7103..c807cf72f 100644 --- a/lapack-netlib/SRC/slaswp.c +++ b/lapack-netlib/SRC/slaswp.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasy2.c b/lapack-netlib/SRC/slasy2.c index a28609ed6..e28c8cc54 100644 --- a/lapack-netlib/SRC/slasy2.c +++ b/lapack-netlib/SRC/slasy2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasyf.c b/lapack-netlib/SRC/slasyf.c index 556ec5d84..139d81727 100644 --- a/lapack-netlib/SRC/slasyf.c +++ b/lapack-netlib/SRC/slasyf.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasyf_aa.c b/lapack-netlib/SRC/slasyf_aa.c index 32da69d61..caeba2d5f 100644 --- a/lapack-netlib/SRC/slasyf_aa.c +++ b/lapack-netlib/SRC/slasyf_aa.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasyf_rk.c b/lapack-netlib/SRC/slasyf_rk.c index 439f5b669..bd510a9c9 100644 --- a/lapack-netlib/SRC/slasyf_rk.c +++ b/lapack-netlib/SRC/slasyf_rk.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slasyf_rook.c b/lapack-netlib/SRC/slasyf_rook.c index d27d5fbae..71fd915a7 100644 --- a/lapack-netlib/SRC/slasyf_rook.c +++ b/lapack-netlib/SRC/slasyf_rook.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatbs.c b/lapack-netlib/SRC/slatbs.c index 66622989b..aabde718a 100644 --- a/lapack-netlib/SRC/slatbs.c +++ b/lapack-netlib/SRC/slatbs.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatdf.c b/lapack-netlib/SRC/slatdf.c index d17417fd3..50c2d1191 100644 --- a/lapack-netlib/SRC/slatdf.c +++ b/lapack-netlib/SRC/slatdf.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatps.c b/lapack-netlib/SRC/slatps.c index 6eed1a04d..f0f2471a6 100644 --- a/lapack-netlib/SRC/slatps.c +++ b/lapack-netlib/SRC/slatps.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatrd.c b/lapack-netlib/SRC/slatrd.c index 72ea452f8..bd1ac647e 100644 --- a/lapack-netlib/SRC/slatrd.c +++ b/lapack-netlib/SRC/slatrd.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatrs.c b/lapack-netlib/SRC/slatrs.c index 38cc78bdd..0f58d5ad7 100644 --- a/lapack-netlib/SRC/slatrs.c +++ b/lapack-netlib/SRC/slatrs.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatrz.c b/lapack-netlib/SRC/slatrz.c index bfc521dfd..4cee41007 100644 --- a/lapack-netlib/SRC/slatrz.c +++ b/lapack-netlib/SRC/slatrz.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slatsqr.c b/lapack-netlib/SRC/slatsqr.c index ab8c188b4..0f0b2613a 100644 --- a/lapack-netlib/SRC/slatsqr.c +++ b/lapack-netlib/SRC/slatsqr.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slauu2.c b/lapack-netlib/SRC/slauu2.c index 0dbcc0f78..f563d1985 100644 --- a/lapack-netlib/SRC/slauu2.c +++ b/lapack-netlib/SRC/slauu2.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint; diff --git a/lapack-netlib/SRC/slauum.c b/lapack-netlib/SRC/slauum.c index a68f7a13b..a250f3f5a 100644 --- a/lapack-netlib/SRC/slauum.c +++ b/lapack-netlib/SRC/slauum.c @@ -19,7 +19,28 @@ #undef I #endif -typedef int integer; +#if defined(OS_WINDOWS) && defined(__64BIT__) +typedef long long BLASLONG; +typedef unsigned long long BLASULONG; +#else +typedef long BLASLONG; +typedef unsigned long BLASULONG; +#endif + +#ifdef LAPACK_ILP64 +typedef BLASLONG blasint; +#if defined(OS_WINDOWS) && defined(__64BIT__) +#define blasabs(x) llabs(x) +#else +#define blasabs(x) labs(x) +#endif +#else +typedef int blasint; +#define blasabs(x) abs(x) +#endif + +typedef blasint integer; + typedef unsigned int uinteger; typedef char *address; typedef short int shortint;