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

17
lib/linalg/zunm2l.cpp
View File

@ -11,14 +11,13 @@ int zunm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doublec
doublecomplex z__1;
void d_lmp_cnjg(doublecomplex *, doublecomplex *);
integer i__, i1, i2, i3, mi, ni, nq;
doublecomplex aii;
logical left;
doublecomplex taui;
extern logical lsame_(char *, char *, ftnlen, ftnlen);
extern int zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, ftnlen),
xerbla_(char *, integer *, ftnlen);
extern int xerbla_(char *, integer *, ftnlen);
logical notran;
extern int zlarf1l_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, ftnlen);
a_dim1 = *lda;
a_offset = 1 + a_dim1;
a -= a_offset;
@ -87,14 +86,8 @@ int zunm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doublec
d_lmp_cnjg(&z__1, &tau[i__]);
taui.r = z__1.r, taui.i = z__1.i;
}
i__3 = nq - *k + i__ + i__ * a_dim1;
aii.r = a[i__3].r, aii.i = a[i__3].i;
i__3 = nq - *k + i__ + i__ * a_dim1;
a[i__3].r = 1., a[i__3].i = 0.;
zlarf_(side, &mi, &ni, &a[i__ * a_dim1 + 1], &c__1, &taui, &c__[c_offset], ldc, &work[1],
(ftnlen)1);
i__3 = nq - *k + i__ + i__ * a_dim1;
a[i__3].r = aii.r, a[i__3].i = aii.i;
zlarf1l_(side, &mi, &ni, &a[i__ * a_dim1 + 1], &c__1, &taui, &c__[c_offset], ldc, &work[1],
(ftnlen)1);
}
return 0;
}