|
@@ -1024,7 +1024,7 @@ void dqrlss(double a[], int lda, int m, int n, int kr, double b[], double x[],
|
1024
|
1024
|
|
1025
|
1025
|
if (kr != 0) {
|
1026
|
1026
|
job = 110;
|
1027
|
|
- info = dqrsl(a, lda, m, kr, qraux, b, rsd, rsd, x, rsd, rsd, job);
|
|
1027
|
+ info = dqrsl(a, lda, m, kr, qraux, b, rsd, rsd, x, rsd, rsd, job); UNUSED(info);
|
1028
|
1028
|
}
|
1029
|
1029
|
|
1030
|
1030
|
for (i = 0; i < n; i++)
|
|
@@ -1569,7 +1569,7 @@ void qr_solve(double x[], int m, int n, double a[], double b[])
|
1569
|
1569
|
tol = r8_epsilon() / r8mat_amax(m, n, a_qr);
|
1570
|
1570
|
itask = 1;
|
1571
|
1571
|
|
1572
|
|
- ind = dqrls(a_qr, lda, m, n, tol, &kr, b, x, r, jpvt, qraux, itask);
|
|
1572
|
+ ind = dqrls(a_qr, lda, m, n, tol, &kr, b, x, r, jpvt, qraux, itask); UNUSED(ind);
|
1573
|
1573
|
}
|
1574
|
1574
|
/******************************************************************************/
|
1575
|
1575
|
|