Commit f5e4033f authored by Mathieu Faverge's avatar Mathieu Faverge

Fix change of names

parent 839bc76d
......@@ -127,8 +127,8 @@ void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
T(k, k), T->mb,
A(m, k), ldam);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
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;
......@@ -159,8 +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);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
/* Restore the original location of the tiles */
......
......@@ -135,8 +135,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
T(k, p), T->mb,
A(m, p), ldam);
}
MORSE_TASK_dataflush( &options, D(k, p) );
MORSE_TASK_dataflush( &options, T(k, p) );
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
/* Setting the order of the tiles */
......@@ -190,8 +190,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
A(m, p), ldam,
A(m, n), ldam);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
/* Restore the original location of the tiles */
......
......@@ -127,8 +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);
}
MORSE_TASK_dataflush( &options, D(k, N) );
MORSE_TASK_dataflush( &options, T(k, N) );
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;
......@@ -160,8 +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);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
}
for (RD = BS; RD < A->nt-k; RD *= 2) {
......@@ -199,8 +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);
}
MORSE_TASK_dataflush( &options, A (k, N+RD) );
MORSE_TASK_dataflush( &options, T2(k, N+RD) );
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
......
......@@ -121,8 +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);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
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;
......@@ -155,8 +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);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Restore the original location of the tiles */
......
......@@ -132,8 +132,8 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
T(m, k), T->mb,
A(m, n), ldam);
}
MORSE_TASK_dataflush( &options, D(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, D(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Setting the order of the tiles */
......@@ -187,8 +187,8 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
A(p, n), ldap,
A(m, n), ldam);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Restore the original location of the tiles */
......
......@@ -125,8 +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);
}
MORSE_TASK_dataflush( &options, D(M, k) );
MORSE_TASK_dataflush( &options, T(M, k) );
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;
......@@ -158,8 +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);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
}
for (RD = BS; RD < A->mt-k; RD *= 2) {
......@@ -198,8 +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);
}
MORSE_TASK_dataflush( &options, A (M+RD, k) );
MORSE_TASK_dataflush( &options, T2(M+RD, k) );
RUNTIME_data_flush( sequence, A (M+RD, k) );
RUNTIME_data_flush( sequence, T2(M+RD, k) );
}
}
......
......@@ -116,8 +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);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -148,8 +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);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
......
......@@ -127,8 +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);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
T = TS;
......@@ -167,8 +167,8 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
T(k, p), T->mb,
Q(m, p), ldqm);
}
MORSE_TASK_dataflush( &options, D(k, p) );
MORSE_TASK_dataflush( &options, T(k, p) );
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
RUNTIME_iteration_pop(morse);
......
......@@ -114,8 +114,8 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q (m, N+RD), ldqm);
}
MORSE_TASK_dataflush( &options, A (k, N+RD) );
MORSE_TASK_dataflush( &options, T2(k, N+RD) );
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
for (N = k; N < A->nt; N += BS) {
......@@ -144,8 +144,8 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q(m, n), ldqm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -177,8 +177,8 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
T(k, N), T->mb,
Q(m, N), ldqm);
}
MORSE_TASK_dataflush( &options, D(k, N) );
MORSE_TASK_dataflush( &options, T(k, N) );
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
RUNTIME_iteration_pop(morse);
}
......
......@@ -118,8 +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);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
......@@ -151,8 +151,8 @@ 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);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
......
......@@ -133,8 +133,8 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
Q(p, n), ldqp,
Q(m, n), ldqm);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
T = TS;
......@@ -176,8 +176,8 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
T(m, k), T->mb,
Q(m, n), ldqm);
}
MORSE_TASK_dataflush( &options, D(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, D(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
RUNTIME_iteration_pop(morse);
......
......@@ -117,8 +117,8 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q (M+RD, n), ldqMRD);
}
MORSE_TASK_dataflush( &options, A (M+RD, k) );
MORSE_TASK_dataflush( &options, T2(M+RD, k) );
RUNTIME_data_flush( sequence, A (M+RD, k) );
RUNTIME_data_flush( sequence, T2(M+RD, k) );
}
}
for (M = k; M < A->mt; M += BS) {
......@@ -149,8 +149,8 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
Q(M, n), ldqM,
Q(m, n), ldqm);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
......@@ -183,8 +183,8 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
T(M, k), T->mb,
Q(M, n), ldqM);
}
MORSE_TASK_dataflush( &options, D(M, k) );
MORSE_TASK_dataflush( &options, T(M, k) );
RUNTIME_data_flush( sequence, D(M, k) );
RUNTIME_data_flush( sequence, T(M, k) );
}
RUNTIME_iteration_pop(morse);
}
......
......@@ -128,8 +128,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
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;
......@@ -151,8 +151,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, m) );
MORSE_TASK_dataflush( &options, T(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
/* Restore the original location of the tiles */
......@@ -195,8 +195,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, m) );
MORSE_TASK_dataflush( &options, T(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -226,8 +226,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(k, n), ldbk);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
}
......@@ -263,8 +263,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -296,8 +296,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
......@@ -338,8 +338,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
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;
......@@ -361,8 +361,8 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
/* Restore the original location of the tiles */
......
......@@ -128,8 +128,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(p, n), ldbp);
}
MORSE_TASK_dataflush( &options, D(k, p) );
MORSE_TASK_dataflush( &options, T(k, p) );
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
/* Setting the order of the tiles*/
......@@ -170,8 +170,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(p, n), ldbp,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, m) );
MORSE_TASK_dataflush( &options, T(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
/* Restore the original location of the tiles */
......@@ -231,8 +231,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(p, n), ldbp,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, m) );
MORSE_TASK_dataflush( &options, T(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
T = TS;
......@@ -272,8 +272,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(p, n), ldbp);
}
MORSE_TASK_dataflush( &options, D(k, p) );
MORSE_TASK_dataflush( &options, T(k, p) );
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
RUNTIME_iteration_pop(morse);
......@@ -329,8 +329,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(m, p), ldbm,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
T = TS;
......@@ -370,8 +370,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(m, p), ldbm);
}
MORSE_TASK_dataflush( &options, D(k, p) );
MORSE_TASK_dataflush( &options, T(k, p) );
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
RUNTIME_iteration_pop(morse);
......@@ -421,8 +421,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(m, p), ldbm);
}
MORSE_TASK_dataflush( &options, D(k, p) );
MORSE_TASK_dataflush( &options, T(k, p) );
RUNTIME_data_flush( sequence, D(k, p) );
RUNTIME_data_flush( sequence, T(k, p) );
}
/* Setting the order of tiles */
......@@ -464,8 +464,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B(m, p), ldbm,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
RUNTIME_iteration_pop(morse);
......
......@@ -123,8 +123,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(N, n), ldbN);
}
MORSE_TASK_dataflush( &options, D(k, N) );
MORSE_TASK_dataflush( &options, T(k, N) );
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;
......@@ -146,8 +146,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(N, n), ldbN,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, m) );
MORSE_TASK_dataflush( &options, T(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
}
for (RD = BS; RD < A->nt-k; RD *= 2) {
......@@ -173,8 +173,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (N, n), ldbN,
B (N+RD, n), ldbNRD);
}
MORSE_TASK_dataflush( &options, A (k, N+RD) );
MORSE_TASK_dataflush( &options, T2(k, N+RD) );
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
......@@ -221,8 +221,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (N, n), ldbN,
B (N+RD, n), ldbNRD);
}
MORSE_TASK_dataflush( &options, A (k, N+RD) );
MORSE_TASK_dataflush( &options, T2(k, N+RD) );
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
for (N = k; N < A->nt; N += BS) {
......@@ -250,8 +250,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(N, n), ldbN,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, m) );
MORSE_TASK_dataflush( &options, T(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
RUNTIME_data_flush( sequence, T(k, m) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -282,8 +282,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(N, n), ldbN);
}
MORSE_TASK_dataflush( &options, D(k, N) );
MORSE_TASK_dataflush( &options, T(k, N) );
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
RUNTIME_iteration_pop(morse);
}
......@@ -324,8 +324,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (m, N ), ldbm,
B (m, N+RD), ldbm);
}
MORSE_TASK_dataflush( &options, A (k, N+RD) );
MORSE_TASK_dataflush( &options, T2(k, N+RD) );
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
for (N = k; N < A->nt; N += BS) {
......@@ -352,8 +352,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(m, N), ldbm,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -385,8 +385,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(m, N), ldbm);
}
MORSE_TASK_dataflush( &options, D(k, N) );
MORSE_TASK_dataflush( &options, T(k, N) );
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
RUNTIME_iteration_pop(morse);
......@@ -429,8 +429,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
T(k, N), T->mb,
B(m, N), ldbm);
}
MORSE_TASK_dataflush( &options, D(k, N) );
MORSE_TASK_dataflush( &options, T(k, N) );
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;
......@@ -453,8 +453,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B(m, N), ldbm,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(k, n) );
MORSE_TASK_dataflush( &options, T(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
RUNTIME_data_flush( sequence, T(k, n) );
}
}
for (RD = BS; RD < A->nt-k; RD *= 2) {
......@@ -479,8 +479,8 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
B (m, N ), ldbm,
B (m, N+RD), ldbm);
}
MORSE_TASK_dataflush( &options, A (k, N+RD) );
MORSE_TASK_dataflush( &options, T2(k, N+RD) );
RUNTIME_data_flush( sequence, A (k, N+RD) );
RUNTIME_data_flush( sequence, T2(k, N+RD) );
}
}
......
......@@ -128,8 +128,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
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;
......@@ -152,8 +152,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
/* Restore the original location of the tiles */
......@@ -196,8 +196,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(k, n), ldbk,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(m, k) );
MORSE_TASK_dataflush( &options, T(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
RUNTIME_data_flush( sequence, T(m, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
......@@ -228,8 +228,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
T(k, k), T->mb,
B(k, n), ldbk);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
}
......@@ -267,8 +267,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(n, k) );
MORSE_TASK_dataflush( &options, T(n, k) );
RUNTIME_data_flush( sequence, A(n, k) );
RUNTIME_data_flush( sequence, T(n, k) );
}
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy(
......@@ -300,8 +300,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
RUNTIME_iteration_pop(morse);
}
......@@ -342,8 +342,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, k), ldbm);
}
MORSE_TASK_dataflush( &options, D(k) );
MORSE_TASK_dataflush( &options, T(k, k) );
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;
......@@ -366,8 +366,8 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
B(m, n), ldbm);
}
MORSE_TASK_dataflush( &options, A(n, k) );
MORSE_TASK_dataflush( &options, T(n, k) );
RUNTIME_data_flush( sequence, A(n, k) );
RUNTIME_data_flush( sequence, T(n, k) );
}