From 6cf68a185d83fa46d438fcef65258ace78e24b13 Mon Sep 17 00:00:00 2001
From: Devin Matthews <dmatthews@utexas.edu>
Date: Mon, 31 Jul 2017 15:19:51 -0500
Subject: [PATCH] Change lsame_ signature to match lapacke.

---
 frame/compat/f2c/bla_lsame.c | 11 ++++++++---
 frame/compat/f2c/bla_lsame.h |  6 +++++-
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/frame/compat/f2c/bla_lsame.c b/frame/compat/f2c/bla_lsame.c
index 04f8caad0..7b109ab43 100644
--- a/frame/compat/f2c/bla_lsame.c
+++ b/frame/compat/f2c/bla_lsame.c
@@ -41,7 +41,12 @@
 	-lf2c -lm   (in that order)
 */
 
-bla_logical PASTEF770(lsame)(const bla_character *ca, const bla_character *cb, ftnlen ca_len, ftnlen cb_len)
+
+#ifdef LAPACK_ILP64
+long PASTEF770(lsame)(char *ca, char *cb, long ca_len, long cb_len)
+#else
+int PASTEF770(lsame)(char *ca, char *cb, int ca_len, int cb_len)
+#endif
 {
     /* System generated locals */
     bla_logical ret_val;
@@ -115,11 +120,11 @@ bla_logical PASTEF770(lsame)(const bla_character *ca, const bla_character *cb, f
 /*        EBCDIC is assumed - ZCODE is the EBCDIC code of either lower or */
 /*        upper case 'Z'. */
 
-	if ((inta >= 129 && inta <= 137) || (inta >= 145 && inta <= 153) || (inta 
+	if ((inta >= 129 && inta <= 137) || (inta >= 145 && inta <= 153) || (inta
 		>= 162 && inta <= 169)) {
 	    inta += 64;
 	}
-	if ((intb >= 129 && intb <= 137) || (intb >= 145 && intb <= 153) || (intb 
+	if ((intb >= 129 && intb <= 137) || (intb >= 145 && intb <= 153) || (intb
 		>= 162 && intb <= 169)) {
 	    intb += 64;
 	}
diff --git a/frame/compat/f2c/bla_lsame.h b/frame/compat/f2c/bla_lsame.h
index 7e2f92389..e8f63f488 100644
--- a/frame/compat/f2c/bla_lsame.h
+++ b/frame/compat/f2c/bla_lsame.h
@@ -34,6 +34,10 @@
 
 #ifdef BLIS_ENABLE_BLAS2BLIS
 
-bla_logical PASTEF770(lsame)(const bla_character *ca, const bla_character *cb, ftnlen ca_len, ftnlen cb_len);
+#ifdef LAPACK_ILP64
+long PASTEF770(lsame)(char *ca, char *cb, long ca_len, long cb_len);
+#else
+int PASTEF770(lsame)(char *ca, char *cb, int ca_len, int cb_len);
+#endif
 
 #endif