Changed LAPACK bindings so that really small matrices don't use LAPACK

for eigenvalue_decomposition or the triangular solver.

dlib/matrix/matrix_eigenvalue.h

@@ -18,6 +18,8 @@
 #include "lapack/syevr.h"
 #endif
 
+#define DLIB_LAPACK_EIGENVALUE_DECOMP_SIZE_THRESH 4
+
 namespace dlib 
 {
 
@@ -178,6 +180,8 @@ namespace dlib
             V = A;
 
 #ifdef DLIB_USE_LAPACK
+            if (A.nr() > DLIB_LAPACK_EIGENVALUE_DECOMP_SIZE_THRESH)
+            {
                 e = 0;
 
                 // We could compute the result using syev()
@@ -189,24 +193,28 @@ namespace dlib
 
                 lapack::integer temp;
                 lapack::syevr('V','A','L',tempA,0,0,0,0,-1,temp,d,V,isupz);
-#else
+            }
+#endif
             // Tridiagonalize.
             tred2();
 
             // Diagonalize.
             tql2();
-#endif
 
         } 
         else 
         {
 
 #ifdef DLIB_USE_LAPACK
+            if (A.nr() > DLIB_LAPACK_EIGENVALUE_DECOMP_SIZE_THRESH)
+            {
                 matrix<type,0,0,mem_manager_type, column_major_layout> temp, vl, vr;
                 temp = A;
                 lapack::geev('N', 'V', temp, d, e, vl, vr);
                 V = vr;
-#else
+                return;
+            }
+#endif
             H = A;
 
             ort.set_size(n);
@@ -216,7 +224,6 @@ namespace dlib
 
             // Reduce Hessenberg to real Schur form.
             hqr2();
-#endif
         }
     }
 
@@ -252,6 +259,8 @@ namespace dlib
         V = A;
 
 #ifdef DLIB_USE_LAPACK
+        if (A.nr() > DLIB_LAPACK_EIGENVALUE_DECOMP_SIZE_THRESH)
+        {
             e = 0;
 
             // We could compute the result using syev()
@@ -263,14 +272,14 @@ namespace dlib
 
             lapack::integer temp;
             lapack::syevr('V','A','L',tempA,0,0,0,0,-1,temp,d,V,isupz);
-
-#else
+            return;
+        }
+#endif
         // Tridiagonalize.
         tred2();
 
         // Diagonalize.
         tql2();
-#endif
 
     }
 

dlib/matrix/matrix_trsm.h

@@ -519,10 +519,13 @@ namespace dlib
                                float *B, const int ldb)
         {
 #ifdef DLIB_USE_BLAS
+            if (M > 4)
+            {
                 cblas_strsm(Order, Side, Uplo, TransA, Diag, M, N, alpha, A, lda, B, ldb);
-#else
-            local_trsm(Order, Side, Uplo, TransA, Diag, M, N, alpha, A, lda, B, ldb);
+                return;
+            }
 #endif
+            local_trsm(Order, Side, Uplo, TransA, Diag, M, N, alpha, A, lda, B, ldb);
         }
 
         inline void cblas_trsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
@@ -532,10 +535,13 @@ namespace dlib
                                double *B, const int ldb)
         {
 #ifdef DLIB_USE_BLAS
+            if (M > 4)
+            {
                 cblas_dtrsm(Order, Side, Uplo, TransA, Diag, M, N, alpha, A, lda, B, ldb);
-#else
-            local_trsm(Order, Side, Uplo, TransA, Diag, M, N, alpha, A, lda, B, ldb);
+                return;
+            }
 #endif
+            local_trsm(Order, Side, Uplo, TransA, Diag, M, N, alpha, A, lda, B, ldb);
         }
 
         inline void cblas_trsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,