ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update linalg to version 1.4 corresponding to LAPACK 3.12.1

Browse Source
This commit is contained in:
Axel Kohlmeyer
2025-01-08 15:52:30 -05:00
parent 0abb371fbe
commit 8ec9f37611
100 changed files with 1424 additions and 2031 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/linalg/dsygvd.cpp
View File

@ -106,16 +106,16 @@ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *n, doublereal *a, i
} else {
*(unsigned char *)trans = 'T';
}
dtrsm_((char *)"Left", uplo, trans, (char *)"Non-unit", n, n, &c_b11, &b[b_offset], ldb, &a[a_offset],
lda, (ftnlen)4, (ftnlen)1, (ftnlen)1, (ftnlen)8);
dtrsm_((char *)"L", uplo, trans, (char *)"N", n, n, &c_b11, &b[b_offset], ldb, &a[a_offset], lda,
(ftnlen)1, (ftnlen)1, (ftnlen)1, (ftnlen)1);
} else if (*itype == 3) {
if (upper) {
*(unsigned char *)trans = 'T';
} else {
*(unsigned char *)trans = 'N';
}
dtrmm_((char *)"Left", uplo, trans, (char *)"Non-unit", n, n, &c_b11, &b[b_offset], ldb, &a[a_offset],
lda, (ftnlen)4, (ftnlen)1, (ftnlen)1, (ftnlen)8);
dtrmm_((char *)"L", uplo, trans, (char *)"N", n, n, &c_b11, &b[b_offset], ldb, &a[a_offset], lda,
(ftnlen)1, (ftnlen)1, (ftnlen)1, (ftnlen)1);
}
}
work[1] = (doublereal)lopt;