Mentions légales du service

Skip to content
Snippets Groups Projects
Commit f825d482 authored by LUCAS Gwenole's avatar LUCAS Gwenole
Browse files

Remove potrf priorities with bubbles [wart commit for papers/heteropar22 tag, to ignore]

parent 30058dff
No related branches found
No related merge requests found
...@@ -62,7 +62,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -62,7 +62,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->mt - 2*k; options.priority = 2*A->mt - 2*k;
#endif
INSERT_TASK_zpotrf( INSERT_TASK_zpotrf(
&options, &options,
ChamLower, tempkm, A->mb, ChamLower, tempkm, A->mb,
...@@ -71,7 +73,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -71,7 +73,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
for (m = k+1; m < A->mt; m++) { for (m = k+1; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb; tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->mt - 2*k - m; options.priority = 2*A->mt - 2*k - m;
#endif
INSERT_TASK_ztrsm( INSERT_TASK_ztrsm(
&options, &options,
ChamRight, ChamLower, ChamConjTrans, ChamNonUnit, ChamRight, ChamLower, ChamConjTrans, ChamNonUnit,
...@@ -84,7 +88,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -84,7 +88,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
for (n = k+1; n < A->nt; n++) { for (n = k+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb; tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->mt - 2*k - n; options.priority = 2*A->mt - 2*k - n;
#endif
INSERT_TASK_zherk( INSERT_TASK_zherk(
&options, &options,
ChamLower, ChamNoTrans, ChamLower, ChamNoTrans,
...@@ -95,7 +101,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -95,7 +101,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
for (m = n+1; m < A->mt; m++) { for (m = n+1; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m - m*A->mb : A->mb; tempmm = m == A->mt-1 ? A->m - m*A->mb : A->mb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->mt - 2*k - n - m; options.priority = 2*A->mt - 2*k - n - m;
#endif
INSERT_TASK_zgemm( INSERT_TASK_zgemm(
&options, &options,
ChamNoTrans, ChamConjTrans, ChamNoTrans, ChamConjTrans,
...@@ -118,7 +126,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -118,7 +126,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->nt - 2*k; options.priority = 2*A->nt - 2*k;
#endif
INSERT_TASK_zpotrf( INSERT_TASK_zpotrf(
&options, &options,
ChamUpper, ChamUpper,
...@@ -128,7 +138,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -128,7 +138,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
for (n = k+1; n < A->nt; n++) { for (n = k+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n - n*A->nb : A->nb; tempnn = n == A->nt-1 ? A->n - n*A->nb : A->nb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->nt - 2*k - n; options.priority = 2*A->nt - 2*k - n;
#endif
INSERT_TASK_ztrsm( INSERT_TASK_ztrsm(
&options, &options,
ChamLeft, ChamUpper, ChamConjTrans, ChamNonUnit, ChamLeft, ChamUpper, ChamConjTrans, ChamNonUnit,
...@@ -141,7 +153,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -141,7 +153,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
for (m = k+1; m < A->mt; m++) { for (m = k+1; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m - m*A->mb : A->mb; tempmm = m == A->mt-1 ? A->m - m*A->mb : A->mb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->nt - 2*k - m; options.priority = 2*A->nt - 2*k - m;
#endif
INSERT_TASK_zherk( INSERT_TASK_zherk(
&options, &options,
ChamUpper, ChamConjTrans, ChamUpper, ChamConjTrans,
...@@ -152,7 +166,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -152,7 +166,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
for (n = m+1; n < A->nt; n++) { for (n = m+1; n < A->nt; n++) {
tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb; tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
#if !defined(CHAMELEON_USE_BUBBLE)
options.priority = 2*A->nt - 2*k - n - m; options.priority = 2*A->nt - 2*k - n - m;
#endif
INSERT_TASK_zgemm( INSERT_TASK_zgemm(
&options, &options,
ChamConjTrans, ChamNoTrans, ChamConjTrans, ChamNoTrans,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment