Skip to content

Commit 5aff62e

Browse files
martin-frbgmartin-frbg
authored
Merge pull request #5572 from martin-frbg/issue5562-2
Fix cut-n-paste error introduced into the f2c-converted LAPACK with PR 5567
2 parents e155bc0 + e1d2411 commit 5aff62e

File tree

500 files changed

+500
-500
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

500 files changed

+500
-500
lines changed

‎lapack-netlib/SRC/zbbcsd.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zbdsqr.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zcgesv.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zcposv.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zdrscl.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zgbbrd.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zgbcon.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zgbequ.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zgbequb.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

‎lapack-netlib/SRC/zgbrfs.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
421421
if (incx == 1 && incy == 1) {
422422
for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
423423
zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
424-
+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
424+
+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
425425
zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
426426
- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
427427
}

0 commit comments

Comments
 (0)