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

6
lib/linalg/zstedc.cpp
View File

@ -107,7 +107,7 @@ int zstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecompl
liwmin = *n * 5 + 3;
}
work[1].r = (doublereal)lwmin, work[1].i = 0.;
rwork[1] = (doublereal)lrwmin;
rwork[1] = (real)lrwmin;
iwork[1] = liwmin;
if (*lwork < lwmin && !lquery) {
*info = -8;
@ -142,7 +142,7 @@ int zstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecompl
zsteqr_(compz, n, &d__[1], &e[1], &z__[z_offset], ldz, &rwork[1], info, (ftnlen)1);
} else {
if (icompz == 2) {
dlaset_((char *)"Full", n, n, &c_b17, &c_b18, &rwork[1], n, (ftnlen)4);
dlaset_((char *)"F", n, n, &c_b17, &c_b18, &rwork[1], n, (ftnlen)1);
ll = *n * *n + 1;
i__1 = *lrwork - ll + 1;
dstedc_((char *)"I", n, &d__[1], &e[1], &rwork[1], n, &rwork[ll], &i__1, &iwork[1], liwork,
@ -228,7 +228,7 @@ int zstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecompl
}
L70:
work[1].r = (doublereal)lwmin, work[1].i = 0.;
rwork[1] = (doublereal)lrwmin;
rwork[1] = (real)lrwmin;
iwork[1] = liwmin;
return 0;
}