commit 5361dea833df76fc0af1275e708940377dfc0851
author Antonio Sánchez <cantonios@google.com> Wed Feb 14 19:51:36 2024 +0000
committer Antonio Sánchez <cantonios@google.com> Wed Feb 14 19:51:36 2024 +0000
tree 88a2fed0cfbcc4c6fe0d264d79966e22178b6a9e
parent 7e655c9a5d3f172e06f0ee0380b52cedc583c24f

Remove return int types from BLAS/LAPACK functions.

lapack/eigenvalues.inc

diff --git a/lapack/eigenvalues.inc b/lapack/eigenvalues.inc
index 62192f4..6f168de 100644
--- a/lapack/eigenvalues.inc
+++ b/lapack/eigenvalues.inc
@@ -11,8 +11,8 @@
 #include <Eigen/Eigenvalues>
 
 // computes eigen values and vectors of a general N-by-N matrix A
-EIGEN_LAPACK_FUNC(syev, (char* jobz, char* uplo, int* n, Scalar* a, int* lda, Scalar* w, Scalar* /*work*/, int* lwork,
-                         int* info)) {
+EIGEN_LAPACK_FUNC(syev)
+(char* jobz, char* uplo, int* n, Scalar* a, int* lda, Scalar* w, Scalar* /*work*/, int* lwork, int* info) {
   // TODO exploit the work buffer
   bool query_size = *lwork == -1;
 
@@ -30,15 +30,15 @@
 
   if (*info != 0) {
     int e = -*info;
-    return xerbla_(SCALAR_SUFFIX_UP "SYEV ", &e, 6);
+    return xerbla_(SCALAR_SUFFIX_UP "SYEV ", &e);
   }
 
   if (query_size) {
     *lwork = 0;
-    return 0;
+    return;
   }
 
-  if (*n == 0) return 0;
+  if (*n == 0) return;
 
   PlainMatrixType mat(*n, *n);
   if (UPLO(*uplo) == UP)
@@ -53,11 +53,9 @@
     make_vector(w, *n).setZero();
     if (computeVectors) matrix(a, *n, *n, *lda).setIdentity();
     //*info = 1;
-    return 0;
+    return;
   }
 
   make_vector(w, *n) = eig.eigenvalues();
   if (computeVectors) matrix(a, *n, *n, *lda) = eig.eigenvectors();
-
-  return 0;
 }