From e47d949fa44f76d004a28327b8a4af008f46cbf5 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 12 Mar 2022 20:59:28 +0100
Subject: [PATCH] Support INTERFACE64

---
 lapack-netlib/SRC/ssytrs_3.c         | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/ssytrs_aa.c        | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/ssytrs_aa_2stage.c | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/ssytrs_rook.c      | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stbcon.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stbrfs.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stbtrs.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stfsm.c            | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stftri.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stfttp.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stfttr.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgevc.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgex2.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgexc.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgsen.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgsja.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgsna.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgsy2.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stgsyl.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpcon.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stplqt.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stplqt2.c          | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpmlqt.c          | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpmqrt.c          | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpqrt.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpqrt2.c          | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stprfb.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stprfs.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stptri.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stptrs.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpttf.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stpttr.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strcon.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strevc.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strevc3.c          | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strexc.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strrfs.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strsen.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strsna.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strsyl.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strti2.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strtri.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strtrs.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strttf.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/strttp.c           | 23 ++++++++++++++++++++++-
 lapack-netlib/SRC/stzrzf.c           | 23 ++++++++++++++++++++++-
 46 files changed, 1012 insertions(+), 46 deletions(-)

diff --git a/lapack-netlib/SRC/ssytrs_3.c b/lapack-netlib/SRC/ssytrs_3.c
index 7ba267ac7..6b759059c 100644
--- a/lapack-netlib/SRC/ssytrs_3.c
+++ b/lapack-netlib/SRC/ssytrs_3.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/ssytrs_aa.c b/lapack-netlib/SRC/ssytrs_aa.c
index 6f68deea0..e61fc6c92 100644
--- a/lapack-netlib/SRC/ssytrs_aa.c
+++ b/lapack-netlib/SRC/ssytrs_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/ssytrs_aa_2stage.c b/lapack-netlib/SRC/ssytrs_aa_2stage.c
index c3b6da070..b23d75a55 100644
--- a/lapack-netlib/SRC/ssytrs_aa_2stage.c
+++ b/lapack-netlib/SRC/ssytrs_aa_2stage.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/ssytrs_rook.c b/lapack-netlib/SRC/ssytrs_rook.c
index e121b0309..f47d80d76 100644
--- a/lapack-netlib/SRC/ssytrs_rook.c
+++ b/lapack-netlib/SRC/ssytrs_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/stbcon.c b/lapack-netlib/SRC/stbcon.c
index 90be89dd3..83ca0b49a 100644
--- a/lapack-netlib/SRC/stbcon.c
+++ b/lapack-netlib/SRC/stbcon.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/stbrfs.c b/lapack-netlib/SRC/stbrfs.c
index dce4ba195..9dc5744b1 100644
--- a/lapack-netlib/SRC/stbrfs.c
+++ b/lapack-netlib/SRC/stbrfs.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/stbtrs.c b/lapack-netlib/SRC/stbtrs.c
index dab88d673..403e84590 100644
--- a/lapack-netlib/SRC/stbtrs.c
+++ b/lapack-netlib/SRC/stbtrs.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/stfsm.c b/lapack-netlib/SRC/stfsm.c
index 0bf8cbbb8..fed8163b9 100644
--- a/lapack-netlib/SRC/stfsm.c
+++ b/lapack-netlib/SRC/stfsm.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/stftri.c b/lapack-netlib/SRC/stftri.c
index 0fe3bcb3c..62f81acd0 100644
--- a/lapack-netlib/SRC/stftri.c
+++ b/lapack-netlib/SRC/stftri.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/stfttp.c b/lapack-netlib/SRC/stfttp.c
index 8a247b4bc..71ed6e6f7 100644
--- a/lapack-netlib/SRC/stfttp.c
+++ b/lapack-netlib/SRC/stfttp.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/stfttr.c b/lapack-netlib/SRC/stfttr.c
index 297fec618..f8fc1674f 100644
--- a/lapack-netlib/SRC/stfttr.c
+++ b/lapack-netlib/SRC/stfttr.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/stgevc.c b/lapack-netlib/SRC/stgevc.c
index cdb75b148..bddf0c047 100644
--- a/lapack-netlib/SRC/stgevc.c
+++ b/lapack-netlib/SRC/stgevc.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/stgex2.c b/lapack-netlib/SRC/stgex2.c
index 7a3969bb9..f5459671c 100644
--- a/lapack-netlib/SRC/stgex2.c
+++ b/lapack-netlib/SRC/stgex2.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/stgexc.c b/lapack-netlib/SRC/stgexc.c
index 0a37d455a..1048d44ee 100644
--- a/lapack-netlib/SRC/stgexc.c
+++ b/lapack-netlib/SRC/stgexc.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/stgsen.c b/lapack-netlib/SRC/stgsen.c
index c1d526b7b..3c918b4df 100644
--- a/lapack-netlib/SRC/stgsen.c
+++ b/lapack-netlib/SRC/stgsen.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/stgsja.c b/lapack-netlib/SRC/stgsja.c
index 479ecc7b7..b230bfaed 100644
--- a/lapack-netlib/SRC/stgsja.c
+++ b/lapack-netlib/SRC/stgsja.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/stgsna.c b/lapack-netlib/SRC/stgsna.c
index 39604033c..539fe1e1a 100644
--- a/lapack-netlib/SRC/stgsna.c
+++ b/lapack-netlib/SRC/stgsna.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/stgsy2.c b/lapack-netlib/SRC/stgsy2.c
index 0edc8603d..ae02b2c0a 100644
--- a/lapack-netlib/SRC/stgsy2.c
+++ b/lapack-netlib/SRC/stgsy2.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/stgsyl.c b/lapack-netlib/SRC/stgsyl.c
index 90bab1067..ebf612e99 100644
--- a/lapack-netlib/SRC/stgsyl.c
+++ b/lapack-netlib/SRC/stgsyl.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/stpcon.c b/lapack-netlib/SRC/stpcon.c
index ffe6739e2..f949744e1 100644
--- a/lapack-netlib/SRC/stpcon.c
+++ b/lapack-netlib/SRC/stpcon.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/stplqt.c b/lapack-netlib/SRC/stplqt.c
index f660e670d..b791f27fa 100644
--- a/lapack-netlib/SRC/stplqt.c
+++ b/lapack-netlib/SRC/stplqt.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/stplqt2.c b/lapack-netlib/SRC/stplqt2.c
index 1789eeb48..922db80c0 100644
--- a/lapack-netlib/SRC/stplqt2.c
+++ b/lapack-netlib/SRC/stplqt2.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/stpmlqt.c b/lapack-netlib/SRC/stpmlqt.c
index f2ef0f0e5..aed5e230a 100644
--- a/lapack-netlib/SRC/stpmlqt.c
+++ b/lapack-netlib/SRC/stpmlqt.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/stpmqrt.c b/lapack-netlib/SRC/stpmqrt.c
index 9b48bac79..4f3eaf402 100644
--- a/lapack-netlib/SRC/stpmqrt.c
+++ b/lapack-netlib/SRC/stpmqrt.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/stpqrt.c b/lapack-netlib/SRC/stpqrt.c
index 0611a8ba9..13f659ab5 100644
--- a/lapack-netlib/SRC/stpqrt.c
+++ b/lapack-netlib/SRC/stpqrt.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/stpqrt2.c b/lapack-netlib/SRC/stpqrt2.c
index f17660085..40bd557e6 100644
--- a/lapack-netlib/SRC/stpqrt2.c
+++ b/lapack-netlib/SRC/stpqrt2.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/stprfb.c b/lapack-netlib/SRC/stprfb.c
index 76176ea4b..7931eb343 100644
--- a/lapack-netlib/SRC/stprfb.c
+++ b/lapack-netlib/SRC/stprfb.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/stprfs.c b/lapack-netlib/SRC/stprfs.c
index 9fecf134c..a138d2c4c 100644
--- a/lapack-netlib/SRC/stprfs.c
+++ b/lapack-netlib/SRC/stprfs.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/stptri.c b/lapack-netlib/SRC/stptri.c
index 10ff0f4ca..f50bcf0c3 100644
--- a/lapack-netlib/SRC/stptri.c
+++ b/lapack-netlib/SRC/stptri.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/stptrs.c b/lapack-netlib/SRC/stptrs.c
index d59e81f81..07f74af6c 100644
--- a/lapack-netlib/SRC/stptrs.c
+++ b/lapack-netlib/SRC/stptrs.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/stpttf.c b/lapack-netlib/SRC/stpttf.c
index d2cea0463..2e8859fcd 100644
--- a/lapack-netlib/SRC/stpttf.c
+++ b/lapack-netlib/SRC/stpttf.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/stpttr.c b/lapack-netlib/SRC/stpttr.c
index 7c2567aad..be05dd594 100644
--- a/lapack-netlib/SRC/stpttr.c
+++ b/lapack-netlib/SRC/stpttr.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/strcon.c b/lapack-netlib/SRC/strcon.c
index 855482bfd..13cc89438 100644
--- a/lapack-netlib/SRC/strcon.c
+++ b/lapack-netlib/SRC/strcon.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/strevc.c b/lapack-netlib/SRC/strevc.c
index b754f1822..407456465 100644
--- a/lapack-netlib/SRC/strevc.c
+++ b/lapack-netlib/SRC/strevc.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/strevc3.c b/lapack-netlib/SRC/strevc3.c
index 2b422d613..881f0d5eb 100644
--- a/lapack-netlib/SRC/strevc3.c
+++ b/lapack-netlib/SRC/strevc3.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/strexc.c b/lapack-netlib/SRC/strexc.c
index 93285a11f..407e5b1f5 100644
--- a/lapack-netlib/SRC/strexc.c
+++ b/lapack-netlib/SRC/strexc.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/strrfs.c b/lapack-netlib/SRC/strrfs.c
index 1d0a1897f..027dc0c5b 100644
--- a/lapack-netlib/SRC/strrfs.c
+++ b/lapack-netlib/SRC/strrfs.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/strsen.c b/lapack-netlib/SRC/strsen.c
index a27dff38f..c96266e68 100644
--- a/lapack-netlib/SRC/strsen.c
+++ b/lapack-netlib/SRC/strsen.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/strsna.c b/lapack-netlib/SRC/strsna.c
index 1f8ef2b6b..91b498683 100644
--- a/lapack-netlib/SRC/strsna.c
+++ b/lapack-netlib/SRC/strsna.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/strsyl.c b/lapack-netlib/SRC/strsyl.c
index 97f647ece..90de38491 100644
--- a/lapack-netlib/SRC/strsyl.c
+++ b/lapack-netlib/SRC/strsyl.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/strti2.c b/lapack-netlib/SRC/strti2.c
index cbc00389f..25a7fb87d 100644
--- a/lapack-netlib/SRC/strti2.c
+++ b/lapack-netlib/SRC/strti2.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/strtri.c b/lapack-netlib/SRC/strtri.c
index 404c6914c..59ea6dc27 100644
--- a/lapack-netlib/SRC/strtri.c
+++ b/lapack-netlib/SRC/strtri.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/strtrs.c b/lapack-netlib/SRC/strtrs.c
index a1535d9f0..fd6954845 100644
--- a/lapack-netlib/SRC/strtrs.c
+++ b/lapack-netlib/SRC/strtrs.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/strttf.c b/lapack-netlib/SRC/strttf.c
index 27897ef7c..bcc4d7f6b 100644
--- a/lapack-netlib/SRC/strttf.c
+++ b/lapack-netlib/SRC/strttf.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/strttp.c b/lapack-netlib/SRC/strttp.c
index 79aa67e45..40ed37f5a 100644
--- a/lapack-netlib/SRC/strttp.c
+++ b/lapack-netlib/SRC/strttp.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/stzrzf.c b/lapack-netlib/SRC/stzrzf.c
index 9f97012e6..4b5f83cf2 100644
--- a/lapack-netlib/SRC/stzrzf.c
+++ b/lapack-netlib/SRC/stzrzf.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;