Commit f7161267 authored by BOUCHERIE Raphael's avatar BOUCHERIE Raphael

fixed incoherence

parent 1521ba0d
...@@ -295,7 +295,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree, ...@@ -295,7 +295,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
&options, &options,
side, trans, side, trans,
tempmm, B->nb, tempmm, tempnn, tempkn, ib, TS->nb, tempmm, B->nb, tempmm, tempnn, tempkn, ib, TS->nb,
B( m, p), ldbp, B( m, p), ldbm,
B( m, n), ldbm, B( m, n), ldbm,
A( n, k), ldan, A( n, k), ldan,
TS(n, k), TS->mb); TS(n, k), TS->mb);
...@@ -309,7 +309,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree, ...@@ -309,7 +309,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
&options, &options,
side, trans, side, trans,
tempmm, B->nb, tempmm, tempnn, tempkn, ib, TT->nb, tempmm, B->nb, tempmm, tempnn, tempkn, ib, TT->nb,
B( m, p), ldbp, B( m, p), ldbm,
B( m, n), ldbm, B( m, n), ldbm,
A( n, k), ldan, A( n, k), ldan,
TT(n, k), TT->mb); TT(n, k), TT->mb);
...@@ -397,7 +397,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree, ...@@ -397,7 +397,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
/* Setting the order of tiles */ /* Setting the order of tiles */
libhqr_treewalk(qrtree, k, tiles); libhqr_treewalk(qrtree, k, tiles);
for (i = k; i < B->nt-1; n++) { for (i = k; i < B->nt-1; i++) {
n = tiles[i]; n = tiles[i];
p = qrtree->currpiv(qrtree, k, n); p = qrtree->currpiv(qrtree, k, n);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment