Commit c406ad3d authored by BOUCHERIE Raphael's avatar BOUCHERIE Raphael

minor

parent b7d689d1
......@@ -118,7 +118,7 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
MORSE_TASK_zttmqr(
&options,
MorseLeft, MorseNoTrans,
A->nb, tempnn, tempMRDm, tempnn,
Q->mb, tempnn, tempMRDm, tempnn,
tempkn, ib, T->nb,
Q (M, n), ldqM,
Q (M+RD, n), ldqMRD,
......@@ -142,7 +142,7 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
MORSE_TASK_ztsmqr(
&options,
MorseLeft, MorseNoTrans,
A->nb, tempnn, tempmm, tempnn,
Q->mb, tempnn, tempmm, tempnn,
tempkn, ib, T->nb,
Q(M, n), ldqM,
Q(m, n), ldqm,
......
......@@ -134,8 +134,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
MORSE_TASK_zunmqr(
&options,
side, trans,
tempMm, tempnn,
tempkmin, ib, T->nb,
tempMm, tempnn, tempkmin, ib, T->nb,
DIAG(M, k), ldaM,
T(M, k), T->mb,
B(M, n), ldbM);
......@@ -260,7 +259,6 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
B(M, n), ldbM);
}
}
RUNTIME_iteration_pop(morse);
}
}
......@@ -337,8 +335,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
MORSE_TASK_zunmqr(
&options,
side, trans,
tempmm, tempMm,
tempkmin, ib, T->nb,
tempmm, tempMm, tempkmin, ib, T->nb,
DIAG(M, k), ldaM,
T(M, k), T->mb,
B(m, M), ldbm);
......@@ -379,8 +376,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
MORSE_TASK_zunmqr(
&options,
side, trans,
tempmm, tempMm,
tempkmin, ib, T->nb,
tempmm, tempMm, tempkmin, ib, T->nb,
DIAG(M, k), ldaM,
T(M, k), T->mb,
B(m, M), ldbm);
......
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