Merge pull request lammps#4430 from akohlmey/update-linalg

Update linalg to version 1.4.2 corresponding to LAPACK 3.12.1
stanmoore1 · Jan 9, 2025 · 50bda60 · 50bda60
2 parents 52d932d + 7480460
commit 50bda60
Show file tree

Hide file tree

Showing 104 changed files with 1,839 additions and 2,028 deletions.
diff --git a/lib/linalg/dbdsqr.cpp b/lib/linalg/dbdsqr.cpp
@@ -471,6 +471,9 @@ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru, integer *ncc, d
 L160:
     i__1 = *n;
     for (i__ = 1; i__ <= i__1; ++i__) {
+        if (d__[i__] == 0.) {
+            d__[i__] = 0.;
+        }
         if (d__[i__] < 0.) {
             d__[i__] = -d__[i__];
             if (*ncvt > 0) {