diff --git a/compute/pzungqrrh.c b/compute/pzungqrrh.c index 7217488af320fa546ce314717c09127e618da554..c5d2d9c0a024f5cb9b6399c5c355f356e52499e4 100644 --- a/compute/pzungqrrh.c +++ b/compute/pzungqrrh.c @@ -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, diff --git a/compute/pzunmqrrh.c b/compute/pzunmqrrh.c index 1c6954f67911e9eec173bdaa6403060dff51ad71..777ec71ad5a96e12e3870131fdefa24611dec60a 100644 --- a/compute/pzunmqrrh.c +++ b/compute/pzunmqrrh.c @@ -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);