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/zsteqr.cpp
+++ b/lib/linalg/zsteqr.cpp
@ -93,7 +93,7 @@ int zsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecompl
    ssfmax = sqrt(safmax) / 3.;
    ssfmin = sqrt(safmin) / eps2;
    if (icompz == 2) {
-        zlaset_((char *)"Full", n, n, &c_b1, &c_b2, &z__[z_offset], ldz, (ftnlen)4);
+        zlaset_((char *)"F", n, n, &c_b1, &c_b2, &z__[z_offset], ldz, (ftnlen)1);
    }
    nmaxit = *n * 30;
    jtot = 0;