Commit 781d2217 authored by Mathieu Faverge's avatar Mathieu Faverge

Fix issue with ztpqrt calls

parent f14b1e77
......@@ -166,7 +166,7 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
MORSE_TASK_ztpqrt(
&options,
tempmm, tempkn, L, ib, T->nb,
tempmm, tempkn, chameleon_min(L, tempkn), ib, T->nb,
A(p, k), ldap,
A(m, k), ldam,
T(m, k), T->mb);
......
......@@ -175,7 +175,7 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
MORSE_TASK_ztpqrt(
&options,
tempMRDm, tempkn, tempMRDm, ib, T->nb,
tempMRDm, tempkn, chameleon_min( tempMRDm, tempkn ), ib, T->nb,
A (M , k), ldaM,
A (M+RD, k), ldaMRD,
T2(M+RD, k), T->mb);
......
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