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/dtrtrs.cpp
+++ b/lib/linalg/dtrtrs.cpp
@ -56,8 +56,8 @@ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doub
        }
    }
    *info = 0;
-    dtrsm_((char *)"Left", uplo, trans, diag, n, nrhs, &c_b12, &a[a_offset], lda, &b[b_offset], ldb,
-           (ftnlen)4, (ftnlen)1, (ftnlen)1, (ftnlen)1);
+    dtrsm_((char *)"L", uplo, trans, diag, n, nrhs, &c_b12, &a[a_offset], lda, &b[b_offset], ldb, (ftnlen)1,
+           (ftnlen)1, (ftnlen)1, (ftnlen)1);
    return 0;
 }
 #ifdef __cplusplus