Skip to content

Commit e664639

Browse files
author
managalv
committed
CPUPL-908: LAPACK 3.9.0 - Netlib Test Suite runs
Right usage of f2c_abs and f2c_dabs Netlib Failures seen in: s,d - QR(), c,z - CH2/ZH2() Change-Id: I5b26793eb885a2f3ab6f7a7e32e33efc0a11ae24
1 parent febbf70 commit e664639

23 files changed

+76
-76
lines changed

‎src/map/lapack2flamec/f2c/c/cbdsqr.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -434,7 +434,7 @@ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * nru, integer *ncc,
434434
if (tol >= 0.f)
435435
{
436436
/* Relative accuracy desired */
437-
sminoa = f2c_abs(d__[1]);
437+
sminoa = f2c_dabs(d__[1]);
438438
if (sminoa == 0.f)
439439
{
440440
goto L50;

‎src/map/lapack2flamec/f2c/c/chetrf_rk.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -383,7 +383,7 @@
383383
for (i__ = k;
384384
i__ >= i__1;
385385
--i__) {
386-
ip = (i__2 = ipiv[i__], abs(i__2));
386+
ip = (i__2 = ipiv[i__], f2c_abs(i__2));
387387
if (ip != i__) {
388388
i__2 = *n - k;
389389
cswap_(&i__2, &a[i__ + (k + 1) * a_dim1], lda, &a[ip + (k + 1) * a_dim1], lda);
@@ -448,7 +448,7 @@
448448
for (i__ = k;
449449
i__ <= i__1;
450450
++i__) {
451-
ip = (i__2 = ipiv[i__], abs(i__2));
451+
ip = (i__2 = ipiv[i__], f2c_abs(i__2));
452452
if (ip != i__) {
453453
i__2 = k - 1;
454454
cswap_(&i__2, &a[i__ + a_dim1], lda, &a[ip + a_dim1], lda) ;
@@ -468,4 +468,4 @@
468468
/* End of CHETRF_RK */
469469
}
470470
/* chetrf_rk__ */
471-
471+

‎src/map/lapack2flamec/f2c/c/chetri_3x.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -548,7 +548,7 @@
548548
for (i__ = 1;
549549
i__ <= i__1;
550550
++i__) {
551-
ip = (i__2 = ipiv[i__], abs(i__2));
551+
ip = (i__2 = ipiv[i__], f2c_abs(i__2));
552552
if (ip != i__) {
553553
if (i__ < ip) {
554554
cheswapr_(uplo, n, &a[a_offset], lda, &i__, &ip);
@@ -844,7 +844,7 @@
844844
for (i__ = *n;
845845
i__ >= 1;
846846
--i__) {
847-
ip = (i__1 = ipiv[i__], abs(i__1));
847+
ip = (i__1 = ipiv[i__], f2c_abs(i__1));
848848
if (ip != i__) {
849849
if (i__ < ip) {
850850
cheswapr_(uplo, n, &a[a_offset], lda, &i__, &ip);
@@ -859,4 +859,4 @@
859859
/* End of CHETRI_3X */
860860
}
861861
/* chetri_3x__ */
862-
862+

‎src/map/lapack2flamec/f2c/c/chetrs_3.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -243,7 +243,7 @@
243243
for (k = *n;
244244
k >= 1;
245245
--k) {
246-
kp = (i__1 = ipiv[k], abs(i__1));
246+
kp = (i__1 = ipiv[k], f2c_abs(i__1));
247247
if (kp != k) {
248248
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
249249
}
@@ -305,7 +305,7 @@
305305
for (k = 1;
306306
k <= i__1;
307307
++k) {
308-
kp = (i__2 = ipiv[k], abs(i__2));
308+
kp = (i__2 = ipiv[k], f2c_abs(i__2));
309309
if (kp != k) {
310310
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
311311
}
@@ -324,7 +324,7 @@
324324
for (k = 1;
325325
k <= i__1;
326326
++k) {
327-
kp = (i__2 = ipiv[k], abs(i__2));
327+
kp = (i__2 = ipiv[k], f2c_abs(i__2));
328328
if (kp != k) {
329329
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
330330
}
@@ -385,7 +385,7 @@
385385
for (k = *n;
386386
k >= 1;
387387
--k) {
388-
kp = (i__1 = ipiv[k], abs(i__1));
388+
kp = (i__1 = ipiv[k], f2c_abs(i__1));
389389
if (kp != k) {
390390
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
391391
}
@@ -396,4 +396,4 @@
396396
/* End of CHETRS_3 */
397397
}
398398
/* chetrs_3__ */
399-
399+

‎src/map/lapack2flamec/f2c/c/clalsd.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -303,7 +303,7 @@ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, real *d__, r
303303
{
304304
*rank = 1;
305305
clascl_("G", &c__0, &c__0, &d__[1], &c_b10, &c__1, nrhs, &b[ b_offset], ldb, info);
306-
d__[1] = f2c_abs(d__[1]);
306+
d__[1] = f2c_dabs(d__[1]);
307307
}
308308
return 0;
309309
}

‎src/map/lapack2flamec/f2c/c/clanht.c‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -160,11 +160,11 @@ real clanht_(char *norm, integer *n, real *d__, complex *e)
160160
/* Find norm1(A). */
161161
if (*n == 1)
162162
{
163-
anorm = f2c_abs(d__[1]);
163+
anorm = f2c_dabs(d__[1]);
164164
}
165165
else
166166
{
167-
anorm = f2c_abs(d__[1]) + c_abs(&e[1]);
167+
anorm = f2c_dabs(d__[1]) + c_abs(&e[1]);
168168
sum = c_abs(&e[*n - 1]) + (r__1 = d__[*n], f2c_abs(r__1));
169169
if (anorm < sum || sisnan_(&sum))
170170
{

‎src/map/lapack2flamec/f2c/c/csytrf_rk.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -381,7 +381,7 @@
381381
for (i__ = k;
382382
i__ >= i__1;
383383
--i__) {
384-
ip = (i__2 = ipiv[i__], abs(i__2));
384+
ip = (i__2 = ipiv[i__], f2c_abs(i__2));
385385
if (ip != i__) {
386386
i__2 = *n - k;
387387
cswap_(&i__2, &a[i__ + (k + 1) * a_dim1], lda, &a[ip + (k + 1) * a_dim1], lda);
@@ -446,7 +446,7 @@
446446
for (i__ = k;
447447
i__ <= i__1;
448448
++i__) {
449-
ip = (i__2 = ipiv[i__], abs(i__2));
449+
ip = (i__2 = ipiv[i__], f2c_abs(i__2));
450450
if (ip != i__) {
451451
i__2 = k - 1;
452452
cswap_(&i__2, &a[i__ + a_dim1], lda, &a[ip + a_dim1], lda) ;
@@ -466,4 +466,4 @@
466466
/* End of CSYTRF_RK */
467467
}
468468
/* csytrf_rk__ */
469-
469+

‎src/map/lapack2flamec/f2c/c/csytri_3x.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -543,7 +543,7 @@
543543
for (i__ = 1;
544544
i__ <= i__1;
545545
++i__) {
546-
ip = (i__2 = ipiv[i__], abs(i__2));
546+
ip = (i__2 = ipiv[i__], f2c_abs(i__2));
547547
if (ip != i__) {
548548
if (i__ < ip) {
549549
csyswapr_(uplo, n, &a[a_offset], lda, &i__, &ip);
@@ -836,7 +836,7 @@
836836
for (i__ = *n;
837837
i__ >= 1;
838838
--i__) {
839-
ip = (i__1 = ipiv[i__], abs(i__1));
839+
ip = (i__1 = ipiv[i__], f2c_abs(i__1));
840840
if (ip != i__) {
841841
if (i__ < ip) {
842842
csyswapr_(uplo, n, &a[a_offset], lda, &i__, &ip);
@@ -851,4 +851,4 @@
851851
/* End of CSYTRI_3X */
852852
}
853853
/* csytri_3x__ */
854-
854+

‎src/map/lapack2flamec/f2c/c/csytrs_3.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -244,7 +244,7 @@
244244
for (k = *n;
245245
k >= 1;
246246
--k) {
247-
kp = (i__1 = ipiv[k], abs(i__1));
247+
kp = (i__1 = ipiv[k], f2c_abs(i__1));
248248
if (kp != k) {
249249
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
250250
}
@@ -303,7 +303,7 @@
303303
for (k = 1;
304304
k <= i__1;
305305
++k) {
306-
kp = (i__2 = ipiv[k], abs(i__2));
306+
kp = (i__2 = ipiv[k], f2c_abs(i__2));
307307
if (kp != k) {
308308
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
309309
}
@@ -322,7 +322,7 @@
322322
for (k = 1;
323323
k <= i__1;
324324
++k) {
325-
kp = (i__2 = ipiv[k], abs(i__2));
325+
kp = (i__2 = ipiv[k], f2c_abs(i__2));
326326
if (kp != k) {
327327
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
328328
}
@@ -380,7 +380,7 @@
380380
for (k = *n;
381381
k >= 1;
382382
--k) {
383-
kp = (i__1 = ipiv[k], abs(i__1));
383+
kp = (i__1 = ipiv[k], f2c_abs(i__1));
384384
if (kp != k) {
385385
cswap_(nrhs, &b[k + b_dim1], ldb, &b[kp + b_dim1], ldb);
386386
}
@@ -391,4 +391,4 @@
391391
/* End of CSYTRS_3 */
392392
}
393393
/* csytrs_3__ */
394-
394+

‎src/map/lapack2flamec/f2c/c/dsytrf_rk.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -381,7 +381,7 @@
381381
for (i__ = k;
382382
i__ >= i__1;
383383
--i__) {
384-
ip = (i__2 = ipiv[i__], abs(i__2));
384+
ip = (i__2 = ipiv[i__], f2c_dabs(i__2));
385385
if (ip != i__) {
386386
i__2 = *n - k;
387387
dswap_(&i__2, &a[i__ + (k + 1) * a_dim1], lda, &a[ip + (k + 1) * a_dim1], lda);
@@ -446,7 +446,7 @@
446446
for (i__ = k;
447447
i__ <= i__1;
448448
++i__) {
449-
ip = (i__2 = ipiv[i__], abs(i__2));
449+
ip = (i__2 = ipiv[i__], f2c_dabs(i__2));
450450
if (ip != i__) {
451451
i__2 = k - 1;
452452
dswap_(&i__2, &a[i__ + a_dim1], lda, &a[ip + a_dim1], lda) ;
@@ -466,4 +466,4 @@
466466
/* End of DSYTRF_RK */
467467
}
468468
/* dsytrf_rk__ */
469-
469+

0 commit comments

Comments
 (0)