diff --git a/frame/compat/check/bla_gemm_check.c b/frame/compat/check/bla_gemm_check.c
index f5cb309b8..4791cdafe 100644
--- a/frame/compat/check/bla_gemm_check.c
+++ b/frame/compat/check/bla_gemm_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_gemm_check( char*     dt_str,
                      char*     op_str,
@@ -52,7 +52,6 @@ void bla_gemm_check( char*     dt_str,
 	f77_int conja, conjb;
 	f77_int ta,    tb;
 	f77_int nrowa, nrowb;
-	f77_int ncola;
 
 	nota  = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 );
 	notb  = PASTEF770(lsame)( transb, "N", (ftnlen)1, (ftnlen)1 );
@@ -61,10 +60,10 @@ void bla_gemm_check( char*     dt_str,
 	ta    = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 );
 	tb    = PASTEF770(lsame)( transb, "T", (ftnlen)1, (ftnlen)1 );
 
-	if ( nota ) { nrowa = *m; ncola = *k; }
-	else        { nrowa = *k; ncola = *m; }
-	if ( notb ) { nrowb = *k;             }
-	else        { nrowb = *n;             }
+	if ( nota ) { nrowa = *m; }
+	else        { nrowa = *k; }
+	if ( notb ) { nrowb = *k; }
+	else        { nrowb = *n; }
 
 	if      ( !nota && !conja && !ta )
 		info = 1;
diff --git a/frame/compat/check/bla_gemv_check.c b/frame/compat/check/bla_gemv_check.c
index 711074d36..7603754ee 100644
--- a/frame/compat/check/bla_gemv_check.c
+++ b/frame/compat/check/bla_gemv_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_gemv_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_ger_check.c b/frame/compat/check/bla_ger_check.c
index 0000e4902..1f0f5c7c2 100644
--- a/frame/compat/check/bla_ger_check.c
+++ b/frame/compat/check/bla_ger_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_ger_check( char*     dt_str,
                     char*     op_str,
diff --git a/frame/compat/check/bla_hemm_check.c b/frame/compat/check/bla_hemm_check.c
index ad99e7ce0..d796d8247 100644
--- a/frame/compat/check/bla_hemm_check.c
+++ b/frame/compat/check/bla_hemm_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_hemm_check( char*     dt_str,
                      char*     op_str,
@@ -56,8 +56,8 @@ void bla_hemm_check( char*     dt_str,
 	lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
 	upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );
 
-	if ( left ) { nrowa = *m }
-	else        { nrowa = *n }
+	if ( left ) { nrowa = *m; }
+	else        { nrowa = *n; }
 
 	if      ( !left && !right )
 		info = 1;
diff --git a/frame/compat/check/bla_hemv_check.c b/frame/compat/check/bla_hemv_check.c
index dbff9ce8d..644e67c23 100644
--- a/frame/compat/check/bla_hemv_check.c
+++ b/frame/compat/check/bla_hemv_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_hemv_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_her2_check.c b/frame/compat/check/bla_her2_check.c
index beff198f1..06f8cb178 100644
--- a/frame/compat/check/bla_her2_check.c
+++ b/frame/compat/check/bla_her2_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_her2_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_her2k_check.c b/frame/compat/check/bla_her2k_check.c
index 9d783c4cb..4ecaa1ae5 100644
--- a/frame/compat/check/bla_her2k_check.c
+++ b/frame/compat/check/bla_her2k_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_her2k_check( char*     dt_str,
                       char*     op_str,
@@ -56,8 +56,8 @@ void bla_her2k_check( char*     dt_str,
 	lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
 	upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );
 
-	if ( nota ) { nrowa = *m }
-	else        { nrowa = *k }
+	if ( nota ) { nrowa = *m; }
+	else        { nrowa = *k; }
 
 	if      ( !lower && !upper )
 		info = 1;
diff --git a/frame/compat/check/bla_her_check.c b/frame/compat/check/bla_her_check.c
index 60812a69d..020accdd3 100644
--- a/frame/compat/check/bla_her_check.c
+++ b/frame/compat/check/bla_her_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_her_check( char*     dt_str,
                     char*     op_str,
diff --git a/frame/compat/check/bla_herk_check.c b/frame/compat/check/bla_herk_check.c
index 45f2c46d4..029f4d3bc 100644
--- a/frame/compat/check/bla_herk_check.c
+++ b/frame/compat/check/bla_herk_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_herk_check( char*     dt_str,
                      char*     op_str,
@@ -55,8 +55,8 @@ void bla_herk_check( char*     dt_str,
 	lower = PASTEF770(lsame)( uploc,  "L", (ftnlen)1, (ftnlen)1 );
 	upper = PASTEF770(lsame)( uploc,  "U", (ftnlen)1, (ftnlen)1 );
 
-	if ( nota ) { nrowa = *m }
-	else        { nrowa = *k }
+	if ( nota ) { nrowa = *m; }
+	else        { nrowa = *k; }
 
 	if      ( !lower && !upper )
 		info = 1;
diff --git a/frame/compat/check/bla_symm_check.c b/frame/compat/check/bla_symm_check.c
index 29e63a6ae..60db8def8 100644
--- a/frame/compat/check/bla_symm_check.c
+++ b/frame/compat/check/bla_symm_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_symm_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_symv_check.c b/frame/compat/check/bla_symv_check.c
index c5f6ad6ee..64976ac25 100644
--- a/frame/compat/check/bla_symv_check.c
+++ b/frame/compat/check/bla_symv_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_symv_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_syr2_check.c b/frame/compat/check/bla_syr2_check.c
index a547a14f3..89158eabf 100644
--- a/frame/compat/check/bla_syr2_check.c
+++ b/frame/compat/check/bla_syr2_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_syr2_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_syr2k_check.c b/frame/compat/check/bla_syr2k_check.c
index bad0f6cb0..80c8fd405 100644
--- a/frame/compat/check/bla_syr2k_check.c
+++ b/frame/compat/check/bla_syr2k_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_syr2k_check( char*     dt_str,
                       char*     op_str,
@@ -56,8 +56,8 @@ void bla_syr2k_check( char*     dt_str,
 	lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
 	upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );
 
-	if ( nota ) { nrowa = *m }
-	else        { nrowa = *k }
+	if ( nota ) { nrowa = *m; }
+	else        { nrowa = *k; }
 
 	if      ( !lower && !upper )
 		info = 1;
diff --git a/frame/compat/check/bla_syr_check.c b/frame/compat/check/bla_syr_check.c
index 4cca2b685..d6b6c21e4 100644
--- a/frame/compat/check/bla_syr_check.c
+++ b/frame/compat/check/bla_syr_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_syr_check( char*     dt_str,
                     char*     op_str,
diff --git a/frame/compat/check/bla_syrk_check.c b/frame/compat/check/bla_syrk_check.c
index ca6da5c77..fe57241a5 100644
--- a/frame/compat/check/bla_syrk_check.c
+++ b/frame/compat/check/bla_syrk_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_syrk_check( char*     dt_str,
                      char*     op_str,
@@ -55,8 +55,8 @@ void bla_syrk_check( char*     dt_str,
 	lower = PASTEF770(lsame)( uploc,  "L", (ftnlen)1, (ftnlen)1 );
 	upper = PASTEF770(lsame)( uploc,  "U", (ftnlen)1, (ftnlen)1 );
 
-	if ( nota ) { nrowa = *m }
-	else        { nrowa = *k }
+	if ( nota ) { nrowa = *m; }
+	else        { nrowa = *k; }
 
 	if      ( !lower && !upper )
 		info = 1;
diff --git a/frame/compat/check/bla_trmm_check.c b/frame/compat/check/bla_trmm_check.c
index 3a051a2a1..0e8df9664 100644
--- a/frame/compat/check/bla_trmm_check.c
+++ b/frame/compat/check/bla_trmm_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_trmm_check( char*     dt_str,
                      char*     op_str,
@@ -64,8 +64,8 @@ void bla_trmm_check( char*     dt_str,
 	unita = PASTEF770(lsame)( diaga,  "U", (ftnlen)1, (ftnlen)1 );
 	nonua = PASTEF770(lsame)( diaga,  "N", (ftnlen)1, (ftnlen)1 );
 
-	if ( left ) { nrowa = *m }
-	else        { nrowa = *n }
+	if ( left ) { nrowa = *m; }
+	else        { nrowa = *n; }
 
 	if      ( !left && !right )
 		info = 1;
diff --git a/frame/compat/check/bla_trmv_check.c b/frame/compat/check/bla_trmv_check.c
index cd23dfd01..7ed7c5e20 100644
--- a/frame/compat/check/bla_trmv_check.c
+++ b/frame/compat/check/bla_trmv_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_trmv_check( char*     dt_str,
                      char*     op_str,
@@ -47,6 +47,8 @@ void bla_trmv_check( char*     dt_str,
 {
 	f77_int info = 0;
 	f77_int lower, upper;
+	f77_int nota, ta, conja;
+	f77_int unita, nonua;
 
 	lower = PASTEF770(lsame)( uploa,  "L", (ftnlen)1, (ftnlen)1 );
 	upper = PASTEF770(lsame)( uploa,  "U", (ftnlen)1, (ftnlen)1 );
diff --git a/frame/compat/check/bla_trsm_check.c b/frame/compat/check/bla_trsm_check.c
index 8b6efc401..bde88ef2f 100644
--- a/frame/compat/check/bla_trsm_check.c
+++ b/frame/compat/check/bla_trsm_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_trsm_check( char*     dt_str,
                      char*     op_str,
diff --git a/frame/compat/check/bla_trsv_check.c b/frame/compat/check/bla_trsv_check.c
index 42ac1d7b0..fda4f273d 100644
--- a/frame/compat/check/bla_trsv_check.c
+++ b/frame/compat/check/bla_trsv_check.c
@@ -34,7 +34,7 @@
 
 #include "blis.h"
 
-#ifdef BLIS_ENABLE_BLIS2BLAS
+#ifdef BLIS_ENABLE_BLAS2BLIS
 
 void bla_trsv_check( char*     dt_str,
                      char*     op_str,