Skip to content

GitLab

Attention une mise à jour du serveur va être effectuée le vendredi 16 avril entre 12h et 12h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 8c7df755 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files
Options

Keep cleaning the flushing methods

parent 522ed2ef
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 395 additions and 632 deletions
compute/pzbuild.c
View file @ 8c7df755
......@@ -86,6 +86,5 @@ void morse_pzbuild( MORSE_enum uplo, MORSE_desc_t *A, void *user_data, void* use
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize( &options, morse);
}
compute/pzgelqf.c
View file @ 8c7df755
......@@ -153,10 +153,7 @@ void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpper, T );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
(void)D;
}
compute/pzgelqf_param.c
View file @ 8c7df755
......@@ -196,12 +196,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpper, TS );
MORSE_TASK_flush_desc( &options, MorseUpper, TT );
free(tiles);
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
(void)D;
}
compute/pzgelqfrh.c
View file @ 8c7df755
......@@ -181,10 +181,7 @@ void morse_pzgelqfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpper, T );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
(void)D;
}
compute/pzgemm.c
View file @ 8c7df755
......@@ -134,19 +134,17 @@ void morse_pzgemm(MORSE_enum transA, MORSE_enum transB,
}
}
}
MORSE_TASK_flush_data( &options, C(m, n) );
RUNTIME_data_flush( sequence, C(m, n) );
}
if (transA == MorseNoTrans) {
for (k = 0; k < A->nt; k++) {
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
}
} else {
for (k = 0; k < A->mt; k++) {
MORSE_TASK_flush_data( &options, A(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, B );
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzgeqrf.c
View file @ 8c7df755
......@@ -147,10 +147,7 @@ void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseLower, T );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
(void)D;
}
compute/pzgeqrf_param.c
View file @ 8c7df755
......@@ -195,12 +195,8 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseLower, TS );
MORSE_TASK_flush_desc( &options, MorseLower, TT );
free(tiles);
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
(void)D;
}
compute/pzgeqrfrh.c
View file @ 8c7df755
......@@ -180,10 +180,7 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseLower, T );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
(void)D;
}
compute/pzgetrf_incpiv.c
View file @ 8c7df755
......@@ -136,11 +136,8 @@ void morse_pzgetrf_incpiv(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseLower, L );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
morse_desc_mat_free(DIAG);
free(DIAG);
......
compute/pzgetrf_nopiv.c
View file @ 8c7df755
......@@ -104,7 +104,5 @@ void morse_pzgetrf_nopiv(MORSE_desc_t *A,
RUNTIME_iteration_pop(morse);
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzhemm.c
View file @ 8c7df755
......@@ -226,9 +226,5 @@ void morse_pzhemm(MORSE_enum side, MORSE_enum uplo,
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpperLower, B );
MORSE_TASK_flush_desc( &options, MorseUpperLower, C );
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzher2k.c
View file @ 8c7df755
......@@ -214,9 +214,5 @@ void morse_pzher2k(MORSE_enum uplo, MORSE_enum trans,
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpperLower, B );
MORSE_TASK_flush_desc( &options, MorseUpperLower, C );
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzherk.c
View file @ 8c7df755
......@@ -173,7 +173,5 @@ void morse_pzherk(MORSE_enum uplo, MORSE_enum trans,
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, uplo, C );
RUNTIME_options_finalize(&options, morse);
}
compute/pzhetrd_he2hb.c
View file @ 8c7df755
......@@ -436,10 +436,8 @@ void morse_pzhetrd_he2hb(MORSE_enum uplo,
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
MORSE_Sequence_Wait(sequence);
morse_desc_mat_free(D);
......
compute/pzlacpy.c
View file @ 8c7df755
......@@ -129,7 +129,5 @@ void morse_pzlacpy(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpperLower, B );
RUNTIME_options_finalize(&options, morse);
}
compute/pzlag2c.c
View file @ 8c7df755
......@@ -67,7 +67,5 @@ void morse_pclag2z(MORSE_desc_t *SA, MORSE_desc_t *B,
B(m, n), ldbm);
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, SA );
MORSE_TASK_flush_desc( &options, MorseUpperLower, B );
RUNTIME_options_finalize(&options, morse);
}
compute/pzlange.c
View file @ 8c7df755
......@@ -412,5 +412,4 @@ void morse_pzlange(MORSE_enum norm, MORSE_desc_t *A, double *result,
MORSE_Desc_Destroy( &(RESULT) );
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzlanhe.c
View file @ 8c7df755
......@@ -456,5 +456,4 @@ void morse_pzlanhe(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re
}
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzlansy.c
View file @ 8c7df755
......@@ -465,5 +465,4 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re
}
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzlantr.c
View file @ 8c7df755
......@@ -665,5 +665,4 @@ void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
}
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzlascal.c
View file @ 8c7df755
......@@ -97,6 +97,5 @@ void morse_pzlascal(MORSE_enum uplo, MORSE_Complex64_t alpha, MORSE_desc_t *A,
}
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzlaset.c
View file @ 8c7df755
......@@ -118,6 +118,5 @@ void morse_pzlaset(MORSE_enum uplo,
A(j, j), ldaj);
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzlaset2.c
View file @ 8c7df755
......@@ -108,6 +108,5 @@ void morse_pzlaset2(MORSE_enum uplo, MORSE_Complex64_t alpha,
}
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzlauum.c
View file @ 8c7df755
......@@ -76,7 +76,7 @@ void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A,
}
}
for (n = 0; n < k; n++) {
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
MORSE_TASK_ztrmm(
&options,
MorseLeft, uplo, MorseConjTrans, MorseNonUnit,
......@@ -84,7 +84,7 @@ void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A,
1.0, A(k, k), ldak,
A(k, n), ldak);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
MORSE_TASK_zlauum(
&options,
uplo, tempkm, A->mb,
......@@ -121,7 +121,7 @@ void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A,
}
for (m = 0; m < k; m++) {
ldam = BLKLDD(A, m);
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
MORSE_TASK_ztrmm(
&options,
MorseRight, uplo, MorseConjTrans, MorseNonUnit,
......@@ -129,13 +129,12 @@ void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A,
1.0, A(k, k), ldak,
A(m, k), ldam);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
MORSE_TASK_zlauum(
&options,
uplo, tempkn, A->mb,
A(k, k), ldak);
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzplghe.c
View file @ 8c7df755
......@@ -97,6 +97,5 @@ void morse_pzplghe( double bump, MORSE_enum uplo, MORSE_desc_t *A,
}
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzplgsy.c
View file @ 8c7df755
......@@ -97,6 +97,5 @@ void morse_pzplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, MORSE_desc_t *A,
}
}
}
MORSE_TASK_flush_desc( &options, uplo, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzplrnt.c
View file @ 8c7df755
......@@ -60,6 +60,5 @@ void morse_pzplrnt( MORSE_desc_t *A, unsigned long long int seed,
A->m, m*A->mb, n*A->nb, seed );
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
RUNTIME_options_finalize(&options, morse);
}
compute/pzpotrf.c
View file @ 8c7df755
......@@ -84,7 +84,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
zone, A(k, k), ldak,
A(m, k), ldam);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
for (n = k+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
......@@ -111,7 +111,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
A(n, k), ldan,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(n, k) );
RUNTIME_data_flush( sequence, A(n, k) );
}
RUNTIME_iteration_pop(morse);
}
......@@ -144,7 +144,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
zone, A(k, k), ldak,
A(k, n), ldak);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
for (m = k+1; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m - m*A->mb : A->mb;
......@@ -170,7 +170,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
A(k, n), ldak,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
}
RUNTIME_iteration_pop(morse);
......
compute/pzpotrimm.c
View file @ 8c7df755
......@@ -85,7 +85,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
zone, A(k, k), ldak,
A(m, k), ldam);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
for (n = k+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
......@@ -108,7 +108,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
A(n, k), ldan,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(n, k) );
RUNTIME_data_flush( sequence, A(n, k) );
}
RUNTIME_iteration_pop(morse);
......@@ -143,10 +143,10 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
A(k, n), ldak,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
}
for (n = 0; n < k; n++) {
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
MORSE_TASK_ztrsm(
&options,
MorseLeft, uplo, MorseNoTrans, MorseNonUnit,
......@@ -154,7 +154,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
zone, A(k, k), ldak,
A(k, n), ldak);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
MORSE_TASK_ztrtri(
&options,
uplo, MorseNonUnit,
......@@ -192,7 +192,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
}
}
for (n = 0; n < k; n++) {
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
MORSE_TASK_ztrmm(
&options,
MorseLeft, uplo, MorseConjTrans, MorseNonUnit,
......@@ -200,7 +200,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
1.0, A(k, k), ldak,
A(k, n), ldak);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
MORSE_TASK_zlauum(
&options,
uplo, tempkm, A->mb,
......@@ -257,10 +257,10 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
}
}
}
MORSE_TASK_flush_data( &options, B(m, k) );
RUNTIME_data_flush( sequence, B(m, k) );
}
for (n = 0; n <= k; n++) {
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
}
RUNTIME_iteration_pop(morse);
......@@ -293,7 +293,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
zone, A(k, k), ldak,
A(k, n), ldak);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
for (m = k+1; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m - m*A->mb : A->mb;
......@@ -317,7 +317,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
A(k, n), ldak,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(k, m) );
RUNTIME_data_flush( sequence, A(k, m) );
}
RUNTIME_iteration_pop(morse);
......@@ -351,11 +351,11 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
A(k, n), ldak,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
}
for (m = 0; m < k; m++) {
ldam = BLKLDD(A, m);
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
MORSE_TASK_ztrsm(
&options,
MorseRight, uplo, MorseNoTrans, MorseNonUnit,
......@@ -363,7 +363,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
zone, A(k, k), ldak,
A(m, k), ldam);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
MORSE_TASK_ztrtri(
&options,
uplo, MorseNonUnit,
......@@ -403,7 +403,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
}
for (m = 0; m < k; m++) {
ldam = BLKLDD(A, m);
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
MORSE_TASK_ztrmm(
&options,
MorseRight, uplo, MorseConjTrans, MorseNonUnit,
......@@ -411,7 +411,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
1.0, A(k, k), ldak,
A(m, k), ldam);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
MORSE_TASK_zlauum(
&options,
uplo, tempkn, A->mb,
......@@ -468,10 +468,10 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
}
}
}
MORSE_TASK_flush_data( &options, B(m, k) );
RUNTIME_data_flush( sequence, B(m, k) );
}
for (m = 0; m <= k; m++) {
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
}
RUNTIME_iteration_pop(morse);
......@@ -479,5 +479,4 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
}
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzsymm.c
View file @ 8c7df755
......@@ -141,16 +141,16 @@ void morse_pzsymm(MORSE_enum side, MORSE_enum uplo,
}
}
}
MORSE_TASK_flush_data( &options, B(k, n) );
RUNTIME_data_flush( sequence, B(k, n) );
}
if (uplo == MorseLower) {
for (n = 0; n <= k; n++) {
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
}
}
else {
for (m = 0; m <= k; m++) {
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
}
}
}
......@@ -242,20 +242,19 @@ void morse_pzsymm(MORSE_enum side, MORSE_enum uplo,
}
}
}
MORSE_TASK_flush_data( &options, B(m, k) );
RUNTIME_data_flush( sequence, B(m, k) );
}
if (uplo == MorseLower) {
for (n = 0; n <= k; n++) {
MORSE_TASK_flush_data( &options, A(k, n) );
RUNTIME_data_flush( sequence, A(k, n) );
}
}
else {
for (m = 0; m <= k; m++) {
MORSE_TASK_flush_data( &options, A(m, k) );
RUNTIME_data_flush( sequence, A(m, k) );
}
}
}
}
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzsyr2k.c
View file @ 8c7df755
......@@ -213,9 +213,5 @@ void morse_pzsyr2k(MORSE_enum uplo, MORSE_enum trans,
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, MorseUpperLower, B );
MORSE_TASK_flush_desc( &options, uplo, C );
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_flush_all();
}
compute/pzsyrk.c
View file @ 8c7df755
......@@ -172,7 +172,5 @@ void morse_pzsyrk(MORSE_enum uplo, MORSE_enum trans,
}
}
}
MORSE_TASK_flush_desc( &options, MorseUpperLower, A );
MORSE_TASK_flush_desc( &options, uplo, C );
RUNTIME_options_finalize(&options, morse);
}
compute/pzsytrf.c
View file @ 8c7df755
......@@ -80,7 +80,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
zone, A(k, k), ldak,
A(m, k), ldam);
}
MORSE_TASK_flush_data( &options, A(k, k) );
RUNTIME_data_flush( sequence, A(k, k) );
for (n = k+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
......@@ -103,7 +103,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
A(n, k), ldan,
zone, A(m, n), ldam);
}
MORSE_TASK_flush_data( &options, A(n, k) );
RUNTIME_data_flush( sequence, A(n, k) );
}
RUNTIME_iteration_pop(morse);
......@@ -133,7 +133,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
zone, A(k, k), ldak,
A(k, n), ldak);
}
MORSE_TASK_flush_data( &options, A(k, k) );