update linalg to version 1.4 corresponding to LAPACK 3.12.1

2025-01-08 15:52:30 -05:00
parent 0abb371fbe
commit 8ec9f37611
100 changed files with 1424 additions and 2031 deletions
--- a/lib/linalg/zhetrf.cpp
+++ b/lib/linalg/zhetrf.cpp
@ -40,7 +40,8 @@ int zhetrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipi
    }
    if (*info == 0) {
        nb = ilaenv_(&c__1, (char *)"ZHETRF", uplo, n, &c_n1, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1);
-        lwkopt = *n * nb;
+        i__1 = 1, i__2 = *n * nb;
+        lwkopt = max(i__1, i__2);
        work[1].r = (doublereal)lwkopt, work[1].i = 0.;
    }
    if (*info != 0) {