Commit b7ab8c09 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Merge branch 'flush' into 'master'

Integrate dataflush in QR/LQ algorithms

See merge request !86
parents 33c2aae5 3eb8a86a
......@@ -127,6 +127,9 @@ void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
T(k, k), T->mb,
A(m, k), ldam);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
for (n = k+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
......@@ -156,6 +159,8 @@ void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
A(m, k), ldam,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
/* Restore the original location of the tiles */
......
......@@ -135,6 +135,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
T(k, p), T->mb,
A(m, p), ldam);
}
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
/* Setting the order of the tiles */
......@@ -188,6 +190,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
A(m, p), ldam,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
/* Restore the original location of the tiles */
......
......@@ -127,6 +127,8 @@ void morse_pzgelqfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
T(k, N), T->mb,
A(m, N), ldam);
}
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
for (n = N+1; n < chameleon_min(N+BS, A->nt); n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
......@@ -158,6 +160,8 @@ void morse_pzgelqfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
A(m, N), ldam,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
}
for (RD = BS; RD < A->nt-k; RD *= 2) {
......@@ -195,6 +199,8 @@ void morse_pzgelqfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
A (m, N ), ldam,
A (m, N+RD), ldam);
}
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
......
......@@ -121,6 +121,8 @@ void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
T(k, k), T->mb,
A(k, n), ldak);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
for (m = k+1; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
......@@ -153,6 +155,8 @@ void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
A(k, n), ldak,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Restore the original location of the tiles */
......
......@@ -132,6 +132,8 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
T(m, k), T->mb,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, D(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Setting the order of the tiles */
......@@ -185,6 +187,8 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
A(p, n), ldap,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Restore the original location of the tiles */
......
......@@ -125,6 +125,8 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
T(M, k), T->mb,
A(M, n), ldaM);
}
RUNTIME_data_flush( sequence, D(M, k) );
RUNTIME_data_flush( sequence, T(M, k) );
for (m = M+1; m < chameleon_min(M+BS, A->mt); m++) {
tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
......@@ -156,6 +158,8 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
A(M, n), ldaM,
A(m, n), ldam);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
}
for (RD = BS; RD < A->mt-k; RD *= 2) {
......@@ -194,6 +198,8 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
A (M, n), ldaM,
A (M+RD, n), ldaMRD);
}
RUNTIME_data_flush( sequence, A (M+RD, k) );
RUNTIME_data_flush( sequence, T2(M+RD, k) );
}
}
......
......@@ -116,6 +116,8 @@ void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc
Q(m, k), ldqm,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -146,6 +148,8 @@ void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc
T(k, k), T->mb,
Q(m, k), ldqm);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
......
......@@ -127,6 +127,8 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
Q(m, p), ldqm,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
T = TS;
......@@ -165,7 +167,10 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
T(k, p), T->mb,
Q(m, p), ldqm);
}
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
RUNTIME_iteration_pop(morse);
}
......
......@@ -113,6 +113,9 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q (m, N ), ldqm,
Q (m, N+RD), ldqm);
}
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
for (N = k; N < A->nt; N += BS) {
......@@ -140,6 +143,9 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q(m, N), ldqm,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -171,6 +177,8 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
T(k, N), T->mb,
Q(m, N), ldqm);
}
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
RUNTIME_iteration_pop(morse);
}
......
......@@ -118,6 +118,8 @@ void morse_pzungqr(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc
Q(k, n), ldqk,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
......@@ -149,6 +151,9 @@ void morse_pzungqr(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc
T(k, k), T->mb,
Q(k, n), ldqk);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
......
......@@ -133,6 +133,8 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
Q(p, n), ldqp,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
T = TS;
......@@ -174,7 +176,10 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
T(m, k), T->mb,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, D(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
RUNTIME_iteration_pop(morse);
}
......
......@@ -116,6 +116,9 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q (M, n), ldqM,
Q (M+RD, n), ldqMRD);
}
RUNTIME_data_flush( sequence, A (M+RD, k) );
RUNTIME_data_flush( sequence, T2(M+RD, k) );
}
}
for (M = k; M < A->mt; M += BS) {
......@@ -146,6 +149,8 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q(M, n), ldqM,
Q(m, n), ldqm);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
......@@ -178,6 +183,8 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
T(M, k), T->mb,
Q(M, n), ldqM);
}
RUNTIME_data_flush( sequence, D(M, k) );
RUNTIME_data_flush( sequence, T(M, k) );
}
RUNTIME_iteration_pop(morse);
}
......
......@@ -127,6 +127,10 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(k, n), ldbk);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
for (m = k+1; m < B->mt; m++) {
tempmm = m == B->mt-1 ? B->m-m*B->mb : B->mb;
ldbm = BLKLDD(B, m);
......@@ -146,6 +150,9 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
/* Restore the original location of the tiles */
......@@ -187,6 +194,9 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -216,6 +226,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(k, n), ldbk);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
}
......@@ -250,6 +262,9 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -281,6 +296,9 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
}
......@@ -319,6 +337,10 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(m, k), ldbm);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
for (n = k+1; n < B->nt; n++) {
tempnn = n == B->nt-1 ? B->n-n*B->nb : B->nb;
for (m = 0; m < B->mt; m++) {
......@@ -338,6 +360,9 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
/* Restore the original location of the tiles */
......
......@@ -127,6 +127,9 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
T(k, p), T->mb,
B(p, n), ldbp);
}
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
/* Setting the order of the tiles*/
......@@ -167,6 +170,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(p, n), ldbp,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
/* Restore the original location of the tiles */
......@@ -226,6 +231,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(p, n), ldbp,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
T = TS;
......@@ -264,7 +271,11 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
T(k, p), T->mb,
B(p, n), ldbp);
}
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
RUNTIME_iteration_pop(morse);
}
}
......@@ -318,6 +329,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(m, p), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
T = TS;
......@@ -356,7 +369,11 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
T(k, p), T->mb,
B(m, p), ldbm);
}
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
RUNTIME_iteration_pop(morse);
}
}
......@@ -403,7 +420,11 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
T(k, p), TS->mb,
B(m, p), ldbm);
}
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
/* Setting the order of tiles */
libhqr_walk_stepk(qrtree, k, tiles + (k+1));
......@@ -443,6 +464,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(m, p), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
RUNTIME_iteration_pop(morse);
......
......@@ -123,6 +123,9 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(N, n), ldbN);
}
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
for (m = N+1; m < chameleon_min(N+BS, A->nt); m++) {
tempmm = m == B->mt-1 ? B->m-m*B->mb : B->mb;
ldbm = BLKLDD(B, m);
......@@ -143,6 +146,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(N, n), ldbN,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
}
for (RD = BS; RD < A->nt-k; RD *= 2) {
......@@ -168,6 +173,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (N, n), ldbN,
B (N+RD, n), ldbNRD);
}
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
......@@ -214,6 +221,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (N, n), ldbN,
B (N+RD, n), ldbNRD);
}
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
for (N = k; N < A->nt; N += BS) {
......@@ -241,6 +250,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(N, n), ldbN,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -271,6 +282,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(N, n), ldbN);
}
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
RUNTIME_iteration_pop(morse);
}
......@@ -311,6 +324,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (m, N ), ldbm,
B (m, N+RD), ldbm);
}
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
for (N = k; N < A->nt; N += BS) {
......@@ -337,6 +352,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(m, N), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -368,6 +385,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(m, N), ldbm);
}
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
RUNTIME_iteration_pop(morse);
......@@ -410,6 +429,9 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(m, N), ldbm);
}
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
for (n = N+1; n < chameleon_min(N+BS, A->nt); n++) {
tempnn = n == B->nt-1 ? B->n-n*B->nb : B->nb;
for (m = 0; m < B->mt; m++) {
......@@ -431,6 +453,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(m, N), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
}
for (RD = BS; RD < A->nt-k; RD *= 2) {
......@@ -455,6 +479,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (m, N ), ldbm,
B (m, N+RD), ldbm);
}
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
......
......@@ -127,6 +127,10 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(k, n), ldbk);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
for (m = k+1; m < B->mt; m++) {
tempmm = m == B->mt-1 ? B->m-m*B->mb : B->mb;
ldam = BLKLDD(A, m);
......@@ -147,6 +151,9 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Restore the original location of the tiles */
......@@ -189,7 +196,10 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
&options,
......@@ -218,6 +228,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(k, n), ldbk);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
}
......@@ -254,6 +266,9 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(n, k) );
RUNTIME_data_flush( sequence, T(n, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -285,6 +300,9 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
}
......@@ -323,6 +341,10 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(m, k), ldbm);
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
for (n = k+1; n < B->nt; n++) {
tempnn = n == B->nt-1 ? B->n-n*B->nb : B->nb;
ldan = BLKLDD(A, n);
......@@ -343,6 +365,9 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, A(n, k) );
RUNTIME_data_flush( sequence, T(n, k) );
}
/* Restore the original location of the tiles */
......
......@@ -127,6 +127,8 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
T(m, k), T->mb,
B(m, n), ldbm);
}
RUNTIME_data_flush( sequence, D(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}