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

12
lib/linalg/dorm2l.cpp
View File

@ -9,13 +9,12 @@ int dorm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doubler
{
integer a_dim1, a_offset, c_dim1, c_offset, i__1, i__2;
integer i__, i1, i2, i3, mi, ni, nq;
doublereal aii;
logical left;
extern int dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *,
doublereal *, integer *, doublereal *, ftnlen);
extern logical lsame_(char *, char *, ftnlen, ftnlen);
extern int xerbla_(char *, integer *, ftnlen);
logical notran;
extern int dlarf1l_(char *, integer *, integer *, doublereal *, integer *, doublereal *,
doublereal *, integer *, doublereal *, ftnlen);
a_dim1 = *lda;
a_offset = 1 + a_dim1;
a -= a_offset;
@ -77,11 +76,8 @@ int dorm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doubler
} else {
ni = *n - *k + i__;
}
aii = a[nq - *k + i__ + i__ * a_dim1];
a[nq - *k + i__ + i__ * a_dim1] = 1.;
dlarf_(side, &mi, &ni, &a[i__ * a_dim1 + 1], &c__1, &tau[i__], &c__[c_offset], ldc,
&work[1], (ftnlen)1);
a[nq - *k + i__ + i__ * a_dim1] = aii;
dlarf1l_(side, &mi, &ni, &a[i__ * a_dim1 + 1], &c__1, &tau[i__], &c__[c_offset], ldc,
&work[1], (ftnlen)1);
}
return 0;
}