From 78a3c3779a431adb02e238099ed0970f9bd44dcd Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 15 Dec 2016 16:01:07 +0100
Subject: [PATCH] Bunch of cleaning and fixing some parameters
---
runtime/parsec/codelets/codelet_zasum.c | 37 ++++----
runtime/parsec/codelets/codelet_zaxpy.c | 34 ++++----
runtime/parsec/codelets/codelet_zbuild.c | 41 ++++-----
runtime/parsec/codelets/codelet_zgeadd.c | 22 ++---
runtime/parsec/codelets/codelet_zgelqt.c | 46 +++++-----
runtime/parsec/codelets/codelet_zgemm.c | 61 +++++++-------
runtime/parsec/codelets/codelet_zgeqrt.c | 46 +++++-----
runtime/parsec/codelets/codelet_zgessm.c | 54 ++++++------
runtime/parsec/codelets/codelet_zgessq.c | 29 +++----
runtime/parsec/codelets/codelet_zgetrf.c | 38 ++++-----
.../parsec/codelets/codelet_zgetrf_incpiv.c | 43 +++++-----
.../parsec/codelets/codelet_zgetrf_nopiv.c | 34 ++++----
runtime/parsec/codelets/codelet_zhe2ge.c | 31 +++----
runtime/parsec/codelets/codelet_zhemm.c | 58 ++++++-------
runtime/parsec/codelets/codelet_zher2k.c | 58 ++++++-------
runtime/parsec/codelets/codelet_zherfb.c | 53 ++++++------
runtime/parsec/codelets/codelet_zherk.c | 50 +++++------
runtime/parsec/codelets/codelet_zhessq.c | 29 +++----
runtime/parsec/codelets/codelet_zlacpy.c | 38 ++++-----
runtime/parsec/codelets/codelet_zlag2c.c | 38 ++++-----
runtime/parsec/codelets/codelet_zlange.c | 56 ++++++-------
runtime/parsec/codelets/codelet_zlanhe.c | 37 ++++----
runtime/parsec/codelets/codelet_zlansy.c | 38 ++++-----
runtime/parsec/codelets/codelet_zlantr.c | 45 +++++-----
runtime/parsec/codelets/codelet_zlascal.c | 27 +++---
runtime/parsec/codelets/codelet_zlaset.c | 39 +++++----
runtime/parsec/codelets/codelet_zlaset2.c | 33 ++++----
runtime/parsec/codelets/codelet_zlatro.c | 35 ++++----
runtime/parsec/codelets/codelet_zlauum.c | 26 +++---
runtime/parsec/codelets/codelet_zpamm.c | 69 +++++++--------
runtime/parsec/codelets/codelet_zplghe.c | 46 +++++-----
runtime/parsec/codelets/codelet_zplgsy.c | 45 +++++-----
runtime/parsec/codelets/codelet_zplrnt.c | 42 +++++-----
runtime/parsec/codelets/codelet_zplssq.c | 31 +++----
runtime/parsec/codelets/codelet_zpotrf.c | 30 +++----
runtime/parsec/codelets/codelet_zssssm.c | 70 ++++++++--------
runtime/parsec/codelets/codelet_zsymm.c | 60 +++++++------
runtime/parsec/codelets/codelet_zsyr2k.c | 58 ++++++-------
runtime/parsec/codelets/codelet_zsyrk.c | 50 +++++------
runtime/parsec/codelets/codelet_zsyssq.c | 30 +++----
.../parsec/codelets/codelet_zsytrf_nopiv.c | 18 ++--
runtime/parsec/codelets/codelet_ztile_zero.c | 33 ++++----
runtime/parsec/codelets/codelet_ztradd.c | 26 +++---
runtime/parsec/codelets/codelet_ztrasm.c | 41 ++++-----
runtime/parsec/codelets/codelet_ztrmm.c | 54 ++++++------
runtime/parsec/codelets/codelet_ztrsm.c | 53 ++++++------
runtime/parsec/codelets/codelet_ztrssq.c | 38 ++++-----
runtime/parsec/codelets/codelet_ztrtri.c | 34 ++++----
runtime/parsec/codelets/codelet_ztslqt.c | 55 ++++++------
runtime/parsec/codelets/codelet_ztsmlq.c | 84 +++++++++----------
.../parsec/codelets/codelet_ztsmlq_hetra1.c | 75 +++++++++--------
runtime/parsec/codelets/codelet_ztsmqr.c | 83 +++++++++---------
.../parsec/codelets/codelet_ztsmqr_hetra1.c | 75 +++++++++--------
runtime/parsec/codelets/codelet_ztsqrt.c | 55 ++++++------
runtime/parsec/codelets/codelet_ztstrf.c | 70 ++++++++--------
runtime/parsec/codelets/codelet_zttlqt.c | 54 ++++++------
runtime/parsec/codelets/codelet_zttmlq.c | 81 +++++++++---------
runtime/parsec/codelets/codelet_zttmqr.c | 83 +++++++++---------
runtime/parsec/codelets/codelet_zttqrt.c | 55 ++++++------
runtime/parsec/codelets/codelet_zunmlq.c | 67 ++++++++-------
runtime/parsec/codelets/codelet_zunmqr.c | 66 +++++++--------
61 files changed, 1457 insertions(+), 1450 deletions(-)
diff --git a/runtime/parsec/codelets/codelet_zasum.c b/runtime/parsec/codelets/codelet_zasum.c
index 86e48d822..401bede89 100644
--- a/runtime/parsec/codelets/codelet_zasum.c
+++ b/runtime/parsec/codelets/codelet_zasum.c
@@ -34,15 +34,15 @@ CORE_dzasum_parsec(dague_execution_unit_t *context,
int *lda;
double *work;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &storev,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &work
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &storev,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &work );
CORE_dzasum(*storev, *uplo, *M, *N, A, *lda, work);
@@ -56,13 +56,14 @@ void MORSE_TASK_dzasum(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_dzasum_parsec, "zasum",
- sizeof(MORSE_enum), &storev, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &M, VALUE,
- sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_dzasum_parsec, "zasum",
+ sizeof(MORSE_enum), &storev, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &M, VALUE,
+ sizeof(int), &N, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zaxpy.c b/runtime/parsec/codelets/codelet_zaxpy.c
index b54ad014d..ef3e8983f 100644
--- a/runtime/parsec/codelets/codelet_zaxpy.c
+++ b/runtime/parsec/codelets/codelet_zaxpy.c
@@ -32,15 +32,14 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *B;
int *incB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &incA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &incB
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &incA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &incB );
CORE_zaxpy(*M, *alpha, A, *incA, B, *incB);
@@ -54,12 +53,13 @@ void MORSE_TASK_zaxpy(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zaxpy_parsec, "axpy",
- sizeof(int), &M, VALUE,
- sizeof(MORSE_Complex64_t), alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &incA, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
- sizeof(int), &incB, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zaxpy_parsec, "axpy",
+ sizeof(int), &M, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &incA, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
+ sizeof(int), &incB, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zbuild.c b/runtime/parsec/codelets/codelet_zbuild.c
index 806433bd9..0adbbe29c 100644
--- a/runtime/parsec/codelets/codelet_zbuild.c
+++ b/runtime/parsec/codelets/codelet_zbuild.c
@@ -34,16 +34,16 @@ CORE_zbuild_parsec(dague_execution_unit_t *context,
void (*user_build_callback)(int row_min, int row_max, int col_min, int col_max, void *buffer, int ld, void *user_data) ;
int row_min, row_max, col_min, col_max;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &row_min,
- UNPACK_VALUE, &row_max,
- UNPACK_VALUE, &col_min,
- UNPACK_VALUE, &col_max,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &user_data,
- UNPACK_VALUE, &user_build_callback );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &row_min,
+ UNPACK_VALUE, &row_max,
+ UNPACK_VALUE, &col_min,
+ UNPACK_VALUE, &col_max,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &user_data,
+ UNPACK_VALUE, &user_build_callback );
user_build_callback(row_min, row_max, col_min, col_max, A, lda, user_data);
@@ -61,14 +61,15 @@ void MORSE_TASK_zbuild( const MORSE_option_t *options,
col_min = An*A->nb ;
col_max = An == A->nt-1 ? A->n-1 : col_min+A->nb-1 ;
- dague_insert_task(DAGUE_dtd_handle, CORE_zbuild_parsec, "zbuild",
- sizeof(int), &row_min, VALUE,
- sizeof(int), &row_max, VALUE,
- sizeof(int), &col_min, VALUE,
- sizeof(int), &col_max, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(void*), &user_data, VALUE,
- sizeof(void*), &user_build_callback, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zbuild_parsec, "zbuild",
+ sizeof(int), &row_min, VALUE,
+ sizeof(int), &row_max, VALUE,
+ sizeof(int), &col_min, VALUE,
+ sizeof(int), &col_max, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(void*), &user_data, VALUE,
+ sizeof(void*), &user_build_callback, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgeadd.c b/runtime/parsec/codelets/codelet_zgeadd.c
index 962eb5ef8..3f3fcbad8 100644
--- a/runtime/parsec/codelets/codelet_zgeadd.c
+++ b/runtime/parsec/codelets/codelet_zgeadd.c
@@ -40,17 +40,17 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *B;
int *LDB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB );
CORE_zgeadd(*trans, *M, *N, *alpha, A, *LDA, *beta, B, *LDB);
diff --git a/runtime/parsec/codelets/codelet_zgelqt.c b/runtime/parsec/codelets/codelet_zgelqt.c
index 62787e093..eebd02cc0 100644
--- a/runtime/parsec/codelets/codelet_zgelqt.c
+++ b/runtime/parsec/codelets/codelet_zgelqt.c
@@ -96,18 +96,17 @@ CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &TAU,
- UNPACK_SCRATCH, &WORK
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &TAU,
+ UNPACK_SCRATCH, &WORK );
CORE_zgelqt(*m, *n, *ib, A, *lda, T, *ldt, TAU, WORK);
@@ -121,15 +120,16 @@ void MORSE_TASK_zgelqt(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgelqt_parsec, "gelqt",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgelqt_parsec, "gelqt",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgemm.c b/runtime/parsec/codelets/codelet_zgemm.c
index ae5fe1745..5d100cf5d 100644
--- a/runtime/parsec/codelets/codelet_zgemm.c
+++ b/runtime/parsec/codelets/codelet_zgemm.c
@@ -45,21 +45,21 @@ CORE_zgemm_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *C;
int *ldc;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &transA,
- UNPACK_VALUE, &transB,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &ldb,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &transA,
+ UNPACK_VALUE, &transB,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &ldb,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc );
CORE_zgemm(*transA, *transB, *m, *n, *k,
*alpha, A, *lda,
@@ -78,19 +78,20 @@ void MORSE_TASK_zgemm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgemm_parsec, "Gemm",
- sizeof(MORSE_enum), &transA, VALUE,
- sizeof(MORSE_enum), &transB, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- sizeof(MORSE_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgemm_parsec, "Gemm",
+ sizeof(MORSE_enum), &transA, VALUE,
+ sizeof(MORSE_enum), &transB, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ sizeof(MORSE_Complex64_t), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgeqrt.c b/runtime/parsec/codelets/codelet_zgeqrt.c
index 347d89730..f9d9b5588 100644
--- a/runtime/parsec/codelets/codelet_zgeqrt.c
+++ b/runtime/parsec/codelets/codelet_zgeqrt.c
@@ -97,18 +97,17 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &TAU,
- UNPACK_SCRATCH, &WORK
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &TAU,
+ UNPACK_SCRATCH, &WORK );
CORE_zgeqrt(*m, *n, *ib, A, *lda, T, *ldt, TAU, WORK);
@@ -122,15 +121,16 @@ void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgeqrt_parsec, "geqrt",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgeqrt_parsec, "geqrt",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgessm.c b/runtime/parsec/codelets/codelet_zgessm.c
index 36605cafd..d06acae87 100644
--- a/runtime/parsec/codelets/codelet_zgessm.c
+++ b/runtime/parsec/codelets/codelet_zgessm.c
@@ -82,20 +82,19 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *A;
int *lda;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_SCRATCH, &IPIV,
- UNPACK_DATA, &L,
- UNPACK_VALUE, &ldl,
- UNPACK_DATA, &D,
- UNPACK_VALUE, &ldd,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_SCRATCH, &IPIV,
+ UNPACK_DATA, &L,
+ UNPACK_VALUE, &ldl,
+ UNPACK_DATA, &D,
+ UNPACK_VALUE, &ldd,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda );
CORE_zgessm(*m, *n, *k, *ib, IPIV, D, *ldd, A, *lda);
@@ -111,17 +110,18 @@ void MORSE_TASK_zgessm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgessm_parsec, "gessm",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- sizeof(int)*nb, IPIV, SCRATCH,
- PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), INPUT | REGION_FULL,
- sizeof(int), &ldl, VALUE,
- PASSED_BY_REF, RTBLKADDR( D, MORSE_Complex64_t, Dm, Dn ), INPUT | REGION_FULL,
- sizeof(int), &ldd, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgessm_parsec, "gessm",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ sizeof(int)*nb, IPIV, SCRATCH,
+ PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), INPUT | REGION_FULL,
+ sizeof(int), &ldl, VALUE,
+ PASSED_BY_REF, RTBLKADDR( D, MORSE_Complex64_t, Dm, Dn ), INPUT | REGION_FULL,
+ sizeof(int), &ldd, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgessq.c b/runtime/parsec/codelets/codelet_zgessq.c
index a61a5ac40..7f5784c0f 100644
--- a/runtime/parsec/codelets/codelet_zgessq.c
+++ b/runtime/parsec/codelets/codelet_zgessq.c
@@ -31,13 +31,13 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *SCALESUMSQ;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &SCALESUMSQ
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &SCALESUMSQ );
CORE_zgessq( *m, *n, A, *lda, SCALESUMSQ, SCALESUMSQ+1);
@@ -51,11 +51,12 @@ void MORSE_TASK_zgessq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgessq_parsec, "gessq",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgessq_parsec, "gessq",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgetrf.c b/runtime/parsec/codelets/codelet_zgetrf.c
index bcdf6f71a..c5a5d2028 100644
--- a/runtime/parsec/codelets/codelet_zgetrf.c
+++ b/runtime/parsec/codelets/codelet_zgetrf.c
@@ -34,16 +34,15 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *iinfo;
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_SCRATCH, &IPIV,
- UNPACK_VALUE, &check_info,
- UNPACK_VALUE, &iinfo
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_SCRATCH, &IPIV,
+ UNPACK_VALUE, &check_info,
+ UNPACK_VALUE, &iinfo );
CORE_zgetrf( *m, *n, A, *lda, IPIV, &info );
@@ -58,13 +57,14 @@ void MORSE_TASK_zgetrf(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgetrf_parsec, "getrf",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int)*nb, IPIV, SCRATCH,
- sizeof(MORSE_bool), &check_info, VALUE,
- sizeof(int), &iinfo, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgetrf_parsec, "getrf",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int)*nb, IPIV, SCRATCH,
+ sizeof(MORSE_bool), &check_info, VALUE,
+ sizeof(int), &iinfo, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgetrf_incpiv.c b/runtime/parsec/codelets/codelet_zgetrf_incpiv.c
index afd98b69e..775fbc0ab 100644
--- a/runtime/parsec/codelets/codelet_zgetrf_incpiv.c
+++ b/runtime/parsec/codelets/codelet_zgetrf_incpiv.c
@@ -90,18 +90,16 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_SCRATCH, &IPIV,
- UNPACK_VALUE, &check_info,
- UNPACK_VALUE, &iinfo
- );
-
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_SCRATCH, &IPIV,
+ UNPACK_VALUE, &check_info,
+ UNPACK_VALUE, &iinfo );
CORE_zgetrf_incpiv(*m, *n, *ib, A, *lda, IPIV, &info);
@@ -117,14 +115,15 @@ void MORSE_TASK_zgetrf_incpiv(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgetrf_incpiv_parsec, "getrf_inc",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int)*nb, IPIV, SCRATCH,
- sizeof(int), &check_info, VALUE,
- sizeof(int), &iinfo, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgetrf_incpiv_parsec, "getrf_inc",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int)*nb, IPIV, SCRATCH,
+ sizeof(int), &check_info, VALUE,
+ sizeof(int), &iinfo, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zgetrf_nopiv.c b/runtime/parsec/codelets/codelet_zgetrf_nopiv.c
index 08b6a07b4..3b6b7ddc7 100644
--- a/runtime/parsec/codelets/codelet_zgetrf_nopiv.c
+++ b/runtime/parsec/codelets/codelet_zgetrf_nopiv.c
@@ -80,15 +80,14 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
int *iinfo;
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &iinfo
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &iinfo );
CORE_zgetrf_nopiv(*m, *n, *ib, A, *lda, &info);
@@ -102,12 +101,13 @@ void MORSE_TASK_zgetrf_nopiv(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zgetrf_nopiv_parsec, "getrf_nopiv",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int), &iinfo, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zgetrf_nopiv_parsec, "getrf_nopiv",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int), &iinfo, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zhe2ge.c b/runtime/parsec/codelets/codelet_zhe2ge.c
index 600f75d55..8e16a10e4 100644
--- a/runtime/parsec/codelets/codelet_zhe2ge.c
+++ b/runtime/parsec/codelets/codelet_zhe2ge.c
@@ -39,14 +39,15 @@ CORE_zhe2ge_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *B;
int *LDB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB);
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB);
CORE_zhe2ge(*uplo, *M, *N, A, *LDA, B, *LDB);
}
@@ -62,12 +63,12 @@ void MORSE_TASK_zhe2ge(const MORSE_option_t *options,
dague_insert_task(
DAGUE_dtd_handle, CORE_zhe2ge_parsec, "he2ge",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t)*mb*mb, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(MORSE_Complex64_t)*mb*mb, RTBLKADDR(B, MORSE_Complex64_t, Bm, Bn), OUTPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR(B, MORSE_Complex64_t, Bm, Bn), OUTPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
0);
}
diff --git a/runtime/parsec/codelets/codelet_zhemm.c b/runtime/parsec/codelets/codelet_zhemm.c
index 2b2a4bed4..628849093 100644
--- a/runtime/parsec/codelets/codelet_zhemm.c
+++ b/runtime/parsec/codelets/codelet_zhemm.c
@@ -43,21 +43,20 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *C;
int *LDC;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &LDC
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &LDC );
CORE_zhemm(*side, *uplo, *M, *N,
*alpha, A, *LDA,
@@ -76,18 +75,19 @@ void MORSE_TASK_zhemm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zhemm_parsec, "hemm",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- sizeof(MORSE_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zhemm_parsec, "hemm",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ sizeof(MORSE_Complex64_t), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zher2k.c b/runtime/parsec/codelets/codelet_zher2k.c
index a2fd88ef4..ffef4285d 100644
--- a/runtime/parsec/codelets/codelet_zher2k.c
+++ b/runtime/parsec/codelets/codelet_zher2k.c
@@ -43,21 +43,20 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *C;
int *ldc;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &ldb,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &ldb,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc );
CORE_zher2k(*uplo, *trans, *n, *k,
*alpha, A, *lda,
@@ -76,18 +75,19 @@ void MORSE_TASK_zher2k(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zher2k_parsec, "her2k",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- sizeof(double), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zher2k_parsec, "her2k",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ sizeof(double), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zherfb.c b/runtime/parsec/codelets/codelet_zherfb.c
index 0af3cbb08..4071608ad 100644
--- a/runtime/parsec/codelets/codelet_zherfb.c
+++ b/runtime/parsec/codelets/codelet_zherfb.c
@@ -42,20 +42,21 @@ CORE_zherfb_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_VALUE, &nb,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork);
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_VALUE, &nb,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork);
CORE_zherfb(*uplo, *n, *k, *ib, *nb,
A, *lda, T, *ldt,
@@ -73,18 +74,18 @@ void MORSE_TASK_zherfb(const MORSE_option_t *options,
dague_insert_task(
DAGUE_dtd_handle, CORE_zherfb_parsec, "herfb",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- sizeof(int), &nb, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(A, MORSE_Complex64_t, Am, An), (uplo == MorseUpper) ? INOUT | REGION_U : INOUT | REGION_L,
- sizeof(int), &lda, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, RTBLKADDR(T, MORSE_Complex64_t, Tm, Tn), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(C, MORSE_Complex64_t, Cm, Cn), (uplo == MorseUpper) ? INOUT | REGION_D | REGION_U : INOUT | REGION_D | REGION_L,
- sizeof(int), &ldc, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ sizeof(int), &nb, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), (uplo == MorseUpper) ? INOUT | REGION_U : INOUT | REGION_L,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR(T, MORSE_Complex64_t, Tm, Tn), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ PASSED_BY_REF, RTBLKADDR(C, MORSE_Complex64_t, Cm, Cn), (uplo == MorseUpper) ? INOUT | REGION_D | REGION_U : INOUT | REGION_D | REGION_L,
+ sizeof(int), &ldc, VALUE,
sizeof(MORSE_Complex64_t)*2*nb*nb, NULL, SCRATCH,
- sizeof(int), &nb, VALUE,
+ sizeof(int), &nb, VALUE,
0);
}
diff --git a/runtime/parsec/codelets/codelet_zherk.c b/runtime/parsec/codelets/codelet_zherk.c
index 5c220476c..e97808c90 100644
--- a/runtime/parsec/codelets/codelet_zherk.c
+++ b/runtime/parsec/codelets/codelet_zherk.c
@@ -42,19 +42,18 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
MORSE_Complex64_t *C;
int *ldc;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc );
CORE_zherk(*uplo, *trans, *n, *k,
*alpha, A, *lda,
@@ -71,17 +70,18 @@ void MORSE_TASK_zherk(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zherk_parsec, "herk",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(double), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(double), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zherk_parsec, "herk",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(double), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(double), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zhessq.c b/runtime/parsec/codelets/codelet_zhessq.c
index 71a449910..6e39d8099 100644
--- a/runtime/parsec/codelets/codelet_zhessq.c
+++ b/runtime/parsec/codelets/codelet_zhessq.c
@@ -31,13 +31,13 @@ CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *SCALESUMSQ;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &SCALESUMSQ
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &SCALESUMSQ );
CORE_zhessq( *uplo, *n, A, *lda, &SCALESUMSQ[0], &SCALESUMSQ[1]);
@@ -51,11 +51,12 @@ void MORSE_TASK_zhessq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zhessq_parsec, "hessq",
- sizeof(int), &uplo, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zhessq_parsec, "hessq",
+ sizeof(int), &uplo, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlacpy.c b/runtime/parsec/codelets/codelet_zlacpy.c
index abf5c8391..7f287535b 100644
--- a/runtime/parsec/codelets/codelet_zlacpy.c
+++ b/runtime/parsec/codelets/codelet_zlacpy.c
@@ -38,16 +38,15 @@ CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *B;
int *LDB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB );
CORE_zlacpy(*uplo, *M, *N, A, *LDA, B, *LDB);
@@ -62,13 +61,14 @@ void MORSE_TASK_zlacpy(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zlacpy_parsec, "lacpy",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlacpy_parsec, "lacpy",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlag2c.c b/runtime/parsec/codelets/codelet_zlag2c.c
index 3a2e79059..7b5c30af3 100644
--- a/runtime/parsec/codelets/codelet_zlag2c.c
+++ b/runtime/parsec/codelets/codelet_zlag2c.c
@@ -38,14 +38,14 @@ CORE_zlag2c_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *ldb;
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &ldb,
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &ldb );
CORE_zlag2c( *m, *n, A, *lda, B, *ldb);
@@ -59,7 +59,7 @@ void MORSE_TASK_zlag2c(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zlag2c_parsec, "lag2c",
+ dague_insert_task(DAGUE_dtd_handle, CORE_zlag2c_parsec, "lag2c",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
@@ -84,15 +84,14 @@ CORE_clag2z_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *B;
int *ldb;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &ldb,
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &ldb );
CORE_clag2z( *m, *n, A, *lda, B, *ldb );
@@ -106,7 +105,8 @@ void MORSE_TASK_clag2z(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_clag2z_parsec, "lag2z",
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_clag2z_parsec, "lag2z",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex32_t, Am, An ), INPUT | REGION_FULL,
diff --git a/runtime/parsec/codelets/codelet_zlange.c b/runtime/parsec/codelets/codelet_zlange.c
index 3467d9f7c..77f1f039c 100644
--- a/runtime/parsec/codelets/codelet_zlange.c
+++ b/runtime/parsec/codelets/codelet_zlange.c
@@ -33,16 +33,15 @@ CORE_zlange_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
double *work;
double *normA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &norm,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_SCRATCH, &work,
- UNPACK_DATA, &normA
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &norm,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_SCRATCH, &work,
+ UNPACK_DATA, &normA );
CORE_zlange( *norm, *M, *N, A, *LDA, work, normA );
@@ -58,15 +57,16 @@ void MORSE_TASK_zlange(const MORSE_option_t *options,
int szeW = max( M, N );
- dague_insert_task(DAGUE_dtd_handle, CORE_zlange_parsec, "lange",
- sizeof(MORSE_enum), &norm, VALUE,
- sizeof(int), &M, VALUE,
- sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &LDA, VALUE,
- sizeof(double)*szeW, NULL, SCRATCH,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlange_parsec, "lange",
+ sizeof(MORSE_enum), &norm, VALUE,
+ sizeof(int), &M, VALUE,
+ sizeof(int), &N, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &LDA, VALUE,
+ sizeof(double)*szeW, NULL, SCRATCH,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
+ 0);
}
#if defined(PRECISION_d) || defined(PRECISION_s)
@@ -76,11 +76,10 @@ CORE_zlange_max_parsec(dague_execution_unit_t *context, dague_execution_context_
double *A;
double *normA;
- dague_dtd_unpack_args(this_task,
- UNPACK_DATA, &A,
- UNPACK_DATA, &normA
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_DATA, &A,
+ UNPACK_DATA, &normA );
if ( *A > *normA )
*normA = *A;
@@ -94,10 +93,11 @@ void MORSE_TASK_zlange_max(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zlange_max_parsec, "lange_max",
- PASSED_BY_REF, RTBLKADDR( A, double, Am, An ), INPUT | REGION_FULL,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlange_max_parsec, "lange_max",
+ PASSED_BY_REF, RTBLKADDR( A, double, Am, An ), INPUT | REGION_FULL,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
+ 0);
}
#endif /* defined(PRECISION_d) || defined(PRECISION_s) */
diff --git a/runtime/parsec/codelets/codelet_zlanhe.c b/runtime/parsec/codelets/codelet_zlanhe.c
index 4f958cff5..fffdb4bec 100644
--- a/runtime/parsec/codelets/codelet_zlanhe.c
+++ b/runtime/parsec/codelets/codelet_zlanhe.c
@@ -33,15 +33,15 @@ CORE_zlanhe_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
double *work;
double *normA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &norm,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_SCRATCH, &work,
- UNPACK_DATA, &normA
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &norm,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_SCRATCH, &work,
+ UNPACK_DATA, &normA );
CORE_zlanhe( *norm, *uplo, *N, A, *LDA, work, normA);
@@ -57,13 +57,14 @@ void MORSE_TASK_zlanhe(const MORSE_option_t *options,
int szeW = max( 1, N );
- dague_insert_task(DAGUE_dtd_handle, CORE_zlanhe_parsec, "LANHE",
- sizeof(MORSE_enum), &norm, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &LDA, VALUE,
- sizeof(double)*szeW, NULL, SCRATCH,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlanhe_parsec, "LANHE",
+ sizeof(MORSE_enum), &norm, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &N, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &LDA, VALUE,
+ sizeof(double)*szeW, NULL, SCRATCH,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlansy.c b/runtime/parsec/codelets/codelet_zlansy.c
index fd4617288..113d06c44 100644
--- a/runtime/parsec/codelets/codelet_zlansy.c
+++ b/runtime/parsec/codelets/codelet_zlansy.c
@@ -33,16 +33,15 @@ CORE_zlansy_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
double *work;
double *normA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &norm,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_SCRATCH, &work,
- UNPACK_DATA, &normA
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &norm,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_SCRATCH, &work,
+ UNPACK_DATA, &normA );
CORE_zlansy( *norm, *uplo, *N, A, *LDA, work, normA);
@@ -58,13 +57,14 @@ void MORSE_TASK_zlansy(const MORSE_option_t *options,
int szeW = max( 1, N );
- dague_insert_task(DAGUE_dtd_handle, CORE_zlansy_parsec, "lansy",
- sizeof(MORSE_enum), &norm, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &LDA, VALUE,
- sizeof(double)*szeW, NULL, SCRATCH,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlansy_parsec, "lansy",
+ sizeof(MORSE_enum), &norm, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &N, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &LDA, VALUE,
+ sizeof(double)*szeW, NULL, SCRATCH,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlantr.c b/runtime/parsec/codelets/codelet_zlantr.c
index 1b08e0582..ef290a2a6 100644
--- a/runtime/parsec/codelets/codelet_zlantr.c
+++ b/runtime/parsec/codelets/codelet_zlantr.c
@@ -33,17 +33,17 @@ CORE_zlantr_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
double *work;
double *normA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &norm,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &diag,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_SCRATCH, &work,
- UNPACK_DATA, &normA
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &norm,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &diag,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_SCRATCH, &work,
+ UNPACK_DATA, &normA );
CORE_zlantr( *norm, *uplo, *diag, *M, *N, A, *LDA, work, normA);
@@ -60,15 +60,16 @@ void MORSE_TASK_zlantr(const MORSE_option_t *options,
int szeW = max( 1, N );
- dague_insert_task(DAGUE_dtd_handle, CORE_zlantr_parsec, "lantr",
- sizeof(MORSE_enum), &norm, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &diag, VALUE,
- sizeof(int), &M, VALUE,
- sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &LDA, VALUE,
- sizeof(double)*szeW, NULL, SCRATCH,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlantr_parsec, "lantr",
+ sizeof(MORSE_enum), &norm, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &diag, VALUE,
+ sizeof(int), &M, VALUE,
+ sizeof(int), &N, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &LDA, VALUE,
+ sizeof(double)*szeW, NULL, SCRATCH,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlascal.c b/runtime/parsec/codelets/codelet_zlascal.c
index 11afa143e..eb373c70d 100644
--- a/runtime/parsec/codelets/codelet_zlascal.c
+++ b/runtime/parsec/codelets/codelet_zlascal.c
@@ -47,13 +47,14 @@ CORE_zlascal_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *A;
int *LDA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA);
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA);
CORE_zlascal(*uplo, *M, *N, *alpha, A, *LDA);
}
@@ -68,12 +69,12 @@ void MORSE_TASK_zlascal(const MORSE_option_t *options,
dague_insert_task(
DAGUE_dtd_handle, CORE_zlascal_parsec, "lascal",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
0);
}
diff --git a/runtime/parsec/codelets/codelet_zlaset.c b/runtime/parsec/codelets/codelet_zlaset.c
index d8fb1673a..8f81ee9a3 100644
--- a/runtime/parsec/codelets/codelet_zlaset.c
+++ b/runtime/parsec/codelets/codelet_zlaset.c
@@ -68,17 +68,15 @@ CORE_zlaset_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *A;
int *LDA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA
- );
-
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA );
CORE_zlaset(*uplo, *M, *N, *alpha, *beta, A, *LDA);
@@ -92,13 +90,14 @@ void MORSE_TASK_zlaset(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zlaset_parsec, "laset",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &M, VALUE,
- sizeof(int), &N, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- sizeof(MORSE_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &LDA, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlaset_parsec, "laset",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &M, VALUE,
+ sizeof(int), &N, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ sizeof(MORSE_Complex64_t), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &LDA, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlaset2.c b/runtime/parsec/codelets/codelet_zlaset2.c
index 01eeacd59..00986ce77 100644
--- a/runtime/parsec/codelets/codelet_zlaset2.c
+++ b/runtime/parsec/codelets/codelet_zlaset2.c
@@ -65,14 +65,14 @@ CORE_zlaset2_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *A;
int *LDA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA );
CORE_zlaset2(*uplo, *M, *N, *alpha, A, *LDA);
@@ -85,12 +85,13 @@ void MORSE_TASK_zlaset2(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zlaset2_parsec, "laset2",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &M, VALUE,
- sizeof(int), &N, VALUE,
- sizeof(MORSE_enum), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &LDA, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlaset2_parsec, "laset2",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &M, VALUE,
+ sizeof(int), &N, VALUE,
+ sizeof(MORSE_enum), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &LDA, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zlatro.c b/runtime/parsec/codelets/codelet_zlatro.c
index e67e808d0..290b8be17 100644
--- a/runtime/parsec/codelets/codelet_zlatro.c
+++ b/runtime/parsec/codelets/codelet_zlatro.c
@@ -36,15 +36,16 @@ CORE_zlatro_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *B;
int *LDB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB);
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB);
CORE_zlatro(*uplo, *trans, *M, *N,
A, *LDA, B, *LDB);
@@ -63,13 +64,13 @@ void MORSE_TASK_zlatro(const MORSE_option_t *options,
dague_insert_task(
DAGUE_dtd_handle, CORE_zlatro_parsec, "latro",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t)*mb*mb, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(MORSE_Complex64_t)*mb*mb, RTBLKADDR(B, MORSE_Complex64_t, Bm, Bn), OUTPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR(B, MORSE_Complex64_t, Bm, Bn), OUTPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
0);
}
diff --git a/runtime/parsec/codelets/codelet_zlauum.c b/runtime/parsec/codelets/codelet_zlauum.c
index 0e1c974d0..d11bd483f 100644
--- a/runtime/parsec/codelets/codelet_zlauum.c
+++ b/runtime/parsec/codelets/codelet_zlauum.c
@@ -35,13 +35,12 @@ CORE_zlauum_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *A;
int *LDA;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA );
CORE_zlauum(*uplo, *N, A, *LDA);
@@ -54,10 +53,11 @@ void MORSE_TASK_zlauum(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zlauum_parsec, "lauum",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zlauum_parsec, "lauum",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zpamm.c b/runtime/parsec/codelets/codelet_zpamm.c
index f0520af59..f8f86af48 100644
--- a/runtime/parsec/codelets/codelet_zpamm.c
+++ b/runtime/parsec/codelets/codelet_zpamm.c
@@ -185,23 +185,23 @@ CORE_zpamm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *W;
int *LDW;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &op,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &storev,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &K,
- UNPACK_VALUE, &L,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &LDA1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &LDA2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &LDV,
- UNPACK_DATA, &W,
- UNPACK_VALUE, &LDW
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &op,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &storev,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &K,
+ UNPACK_VALUE, &L,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &LDA1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &LDA2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &LDV,
+ UNPACK_DATA, &W,
+ UNPACK_VALUE, &LDW );
CORE_zpamm( *op, *side, *storev, *M, *N, *K, *L, A1, *LDA1, A2, *LDA2, V, *LDV, W, *LDW);
@@ -219,21 +219,22 @@ MORSE_TASK_zpamm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zpamm_parsec, "pamm",
- sizeof(int), &op, VALUE,
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &storev, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &l, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INPUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( W, MORSE_Complex64_t, Wm, Wn ), INOUT | REGION_FULL,
- sizeof(int), &ldw, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zpamm_parsec, "pamm",
+ sizeof(int), &op, VALUE,
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &storev, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &l, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INPUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR( W, MORSE_Complex64_t, Wm, Wn ), INOUT | REGION_FULL,
+ sizeof(int), &ldw, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zplghe.c b/runtime/parsec/codelets/codelet_zplghe.c
index 561daa7fb..00bc531a3 100644
--- a/runtime/parsec/codelets/codelet_zplghe.c
+++ b/runtime/parsec/codelets/codelet_zplghe.c
@@ -35,18 +35,17 @@ CORE_zplghe_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *n0;
unsigned long long int *seed;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &bump,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &bigM,
- UNPACK_VALUE, &m0,
- UNPACK_VALUE, &n0,
- UNPACK_VALUE, &seed
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &bump,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &bigM,
+ UNPACK_VALUE, &m0,
+ UNPACK_VALUE, &n0,
+ UNPACK_VALUE, &seed );
CORE_zplghe( *bump, *m, *n, A, *lda, *bigM, *m0, *n0, *seed );
@@ -59,15 +58,16 @@ void MORSE_TASK_zplghe( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zplghe_parsec, "zplghe",
- sizeof(double), &bump, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int), &bigM, VALUE,
- sizeof(int), &m0, VALUE,
- sizeof(int), &n0, VALUE,
- sizeof(unsigned long long int), &seed, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zplghe_parsec, "zplghe",
+ sizeof(double), &bump, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int), &bigM, VALUE,
+ sizeof(int), &m0, VALUE,
+ sizeof(int), &n0, VALUE,
+ sizeof(unsigned long long int), &seed, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zplgsy.c b/runtime/parsec/codelets/codelet_zplgsy.c
index d70286146..fa4d61fc6 100644
--- a/runtime/parsec/codelets/codelet_zplgsy.c
+++ b/runtime/parsec/codelets/codelet_zplgsy.c
@@ -35,17 +35,17 @@ CORE_zplgsy_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *n0;
unsigned long long int *seed;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &bump,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &bigM,
- UNPACK_VALUE, &m0,
- UNPACK_VALUE, &n0,
- UNPACK_VALUE, &seed
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &bump,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &bigM,
+ UNPACK_VALUE, &m0,
+ UNPACK_VALUE, &n0,
+ UNPACK_VALUE, &seed );
CORE_zplgsy( *bump, *m, *n, A, *lda, *bigM, *m0, *n0, *seed );
@@ -58,15 +58,16 @@ void MORSE_TASK_zplgsy( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zplgsy_parsec, "zplgsy",
- sizeof(MORSE_Complex64_t), &bump, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int), &bigM, VALUE,
- sizeof(int), &m0, VALUE,
- sizeof(int), &n0, VALUE,
- sizeof(unsigned long long int), &seed, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zplgsy_parsec, "zplgsy",
+ sizeof(MORSE_Complex64_t), &bump, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int), &bigM, VALUE,
+ sizeof(int), &m0, VALUE,
+ sizeof(int), &n0, VALUE,
+ sizeof(unsigned long long int), &seed, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zplrnt.c b/runtime/parsec/codelets/codelet_zplrnt.c
index 1cfc25b1a..52cf2efb8 100644
--- a/runtime/parsec/codelets/codelet_zplrnt.c
+++ b/runtime/parsec/codelets/codelet_zplrnt.c
@@ -34,17 +34,16 @@ CORE_zplrnt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *n0;
unsigned long long int *seed;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &bigM,
- UNPACK_VALUE, &m0,
- UNPACK_VALUE, &n0,
- UNPACK_VALUE, &seed
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &bigM,
+ UNPACK_VALUE, &m0,
+ UNPACK_VALUE, &n0,
+ UNPACK_VALUE, &seed );
CORE_zplrnt( *m, *n, A, *lda, *bigM, *m0, *n0, *seed );
@@ -57,14 +56,15 @@ void MORSE_TASK_zplrnt( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zplrnt_parsec, "zplrnt",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int), &bigM, VALUE,
- sizeof(int), &m0, VALUE,
- sizeof(int), &n0, VALUE,
- sizeof(unsigned long long int), &seed, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zplrnt_parsec, "zplrnt",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int), &bigM, VALUE,
+ sizeof(int), &m0, VALUE,
+ sizeof(int), &n0, VALUE,
+ sizeof(unsigned long long int), &seed, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zplssq.c b/runtime/parsec/codelets/codelet_zplssq.c
index 3c570c4bb..935bb1528 100644
--- a/runtime/parsec/codelets/codelet_zplssq.c
+++ b/runtime/parsec/codelets/codelet_zplssq.c
@@ -60,10 +60,10 @@ CORE_zplssq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
double *SCALESUMSQ;
double *SCLSSQ;
- dague_dtd_unpack_args(this_task,
- UNPACK_DATA, &SCALESUMSQ,
- UNPACK_DATA, &SCLSSQ
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_DATA, &SCALESUMSQ,
+ UNPACK_DATA, &SCLSSQ );
if( SCLSSQ[0] < SCALESUMSQ[0] ) {
SCLSSQ[1] = SCALESUMSQ[1] + (SCLSSQ[1] * (( SCLSSQ[0] / SCALESUMSQ[0] ) * ( SCLSSQ[0] / SCALESUMSQ[0] )));
@@ -81,10 +81,11 @@ void MORSE_TASK_zplssq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zplssq_parsec, "plssq",
- PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INPUT | REGION_FULL,
- PASSED_BY_REF, RTBLKADDR( SCLSSQ, double, SCLSSQm, SCLSSQn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zplssq_parsec, "plssq",
+ PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INPUT | REGION_FULL,
+ PASSED_BY_REF, RTBLKADDR( SCLSSQ, double, SCLSSQm, SCLSSQn ), INOUT | REGION_FULL,
+ 0);
}
static int
@@ -92,10 +93,9 @@ CORE_zplssq2_parsec(dague_execution_unit_t *context, dague_execution_context_t *
{
double *RESULT;
- dague_dtd_unpack_args(this_task,
- UNPACK_DATA, &RESULT
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_DATA, &RESULT );
RESULT[0] = RESULT[0] * sqrt( RESULT[1] );
@@ -107,7 +107,8 @@ void MORSE_TASK_zplssq2( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zplssq2_parsec, "plssq2",
- PASSED_BY_REF, RTBLKADDR( RESULT, double, RESULTm, RESULTn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zplssq2_parsec, "plssq2",
+ PASSED_BY_REF, RTBLKADDR( RESULT, double, RESULTm, RESULTn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zpotrf.c b/runtime/parsec/codelets/codelet_zpotrf.c
index 9befe17ed..bd3f02642 100644
--- a/runtime/parsec/codelets/codelet_zpotrf.c
+++ b/runtime/parsec/codelets/codelet_zpotrf.c
@@ -34,14 +34,13 @@ CORE_zpotrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *tempkm, *ldak, *iinfo;
MORSE_Complex64_t *A;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &tempkm,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &ldak,
- UNPACK_VALUE, &iinfo
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &tempkm,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &ldak,
+ UNPACK_VALUE, &iinfo );
CORE_zpotrf(*uplo, *tempkm, A, *ldak, iinfo);
@@ -55,11 +54,12 @@ void MORSE_TASK_zpotrf(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zpotrf_parsec, "potrf",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int), &iinfo, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zpotrf_parsec, "potrf",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int), &iinfo, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zssssm.c b/runtime/parsec/codelets/codelet_zssssm.c
index 8a71222cf..0e44386e2 100644
--- a/runtime/parsec/codelets/codelet_zssssm.c
+++ b/runtime/parsec/codelets/codelet_zssssm.c
@@ -41,24 +41,23 @@ CORE_zssssm_parsec(dague_execution_unit_t *context, dague_execution_context_t *
int *ldl2;
int *IPIV;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &L1,
- UNPACK_VALUE, &ldl1,
- UNPACK_DATA, &L2,
- UNPACK_VALUE, &ldl2,
- UNPACK_SCRATCH, &IPIV
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &L1,
+ UNPACK_VALUE, &ldl1,
+ UNPACK_DATA, &L2,
+ UNPACK_VALUE, &ldl2,
+ UNPACK_SCRATCH, &IPIV );
CORE_zssssm(*m1, *n1, *m2, *n2, *k, *ib, A1, *lda1, A2, *lda2, L1, *ldl1, L2, *ldl2, IPIV);
@@ -75,21 +74,22 @@ void MORSE_TASK_zssssm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zssssm_parsec, "ssssm",
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( L1, MORSE_Complex64_t, L1m, L1n ), INPUT | REGION_FULL,
- sizeof(int), &ldl1, VALUE,
- PASSED_BY_REF, RTBLKADDR( L2, MORSE_Complex64_t, L2m, L2n ), INPUT | REGION_FULL,
- sizeof(int), &ldl2, VALUE,
- sizeof(int)*nb, IPIV, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zssssm_parsec, "ssssm",
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( L1, MORSE_Complex64_t, L1m, L1n ), INPUT | REGION_FULL,
+ sizeof(int), &ldl1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( L2, MORSE_Complex64_t, L2m, L2n ), INPUT | REGION_FULL,
+ sizeof(int), &ldl2, VALUE,
+ sizeof(int)*nb, IPIV, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zsymm.c b/runtime/parsec/codelets/codelet_zsymm.c
index 9d9659d19..63eeb6625 100644
--- a/runtime/parsec/codelets/codelet_zsymm.c
+++ b/runtime/parsec/codelets/codelet_zsymm.c
@@ -38,22 +38,20 @@ CORE_zsymm_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
MORSE_Complex64_t *C;
int *LDC;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &LDC
- );
-
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &LDC );
CORE_zsymm(*side, *uplo, *M, *N,
*alpha, A, *LDA,
@@ -72,19 +70,19 @@ void MORSE_TASK_zsymm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
-
- dague_insert_task(DAGUE_dtd_handle, CORE_zsymm_parsec, "symm",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- sizeof(MORSE_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zsymm_parsec, "symm",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ sizeof(MORSE_Complex64_t), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zsyr2k.c b/runtime/parsec/codelets/codelet_zsyr2k.c
index 95cc655d7..72fdbb1fc 100644
--- a/runtime/parsec/codelets/codelet_zsyr2k.c
+++ b/runtime/parsec/codelets/codelet_zsyr2k.c
@@ -38,21 +38,20 @@ CORE_zsyr2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *C;
int *ldc;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &ldb,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &ldb,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc );
CORE_zsyr2k(*uplo, *trans, *n, *k,
*alpha, A, *lda,
@@ -71,18 +70,19 @@ void MORSE_TASK_zsyr2k(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zsyr2k_parsec, "syr2k",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- sizeof(MORSE_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zsyr2k_parsec, "syr2k",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ sizeof(MORSE_Complex64_t), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zsyrk.c b/runtime/parsec/codelets/codelet_zsyrk.c
index 3161bd1c3..510e096f8 100644
--- a/runtime/parsec/codelets/codelet_zsyrk.c
+++ b/runtime/parsec/codelets/codelet_zsyrk.c
@@ -36,19 +36,18 @@ CORE_zsyrk_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *C;
int *ldc;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc );
CORE_zsyrk(*uplo, *trans, *n, *k,
*alpha, A, *lda,
@@ -65,16 +64,17 @@ void MORSE_TASK_zsyrk(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zsyrk_parsec, "syrk",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(MORSE_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zsyrk_parsec, "syrk",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(MORSE_Complex64_t), &beta, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zsyssq.c b/runtime/parsec/codelets/codelet_zsyssq.c
index 0fac3cddc..5db5be616 100644
--- a/runtime/parsec/codelets/codelet_zsyssq.c
+++ b/runtime/parsec/codelets/codelet_zsyssq.c
@@ -31,14 +31,13 @@ CORE_zsyssq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *SCALESUMSQ;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &SCALESUMSQ
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &SCALESUMSQ );
CORE_zsyssq( *uplo, *n, A, *lda, &SCALESUMSQ[0], &SCALESUMSQ[1]);
@@ -52,11 +51,12 @@ void MORSE_TASK_zsyssq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zsyssq_parsec, "syssq",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zsyssq_parsec, "syssq",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zsytrf_nopiv.c b/runtime/parsec/codelets/codelet_zsytrf_nopiv.c
index 4ab23fb22..1c70a7c1f 100644
--- a/runtime/parsec/codelets/codelet_zsytrf_nopiv.c
+++ b/runtime/parsec/codelets/codelet_zsytrf_nopiv.c
@@ -32,14 +32,13 @@ CORE_zsytrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
int *iinfo;
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_VALUE, &iinfo
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_VALUE, &iinfo );
CORE_zsytf2_nopiv(*uplo, *n, A, *lda);
@@ -53,7 +52,8 @@ void MORSE_TASK_zsytrf_nopiv(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zsytrf_nopiv_parsec, "sytrf_nopiv",
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zsytrf_nopiv_parsec, "sytrf_nopiv",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
diff --git a/runtime/parsec/codelets/codelet_ztile_zero.c b/runtime/parsec/codelets/codelet_ztile_zero.c
index f3b65ca9e..366777c23 100644
--- a/runtime/parsec/codelets/codelet_ztile_zero.c
+++ b/runtime/parsec/codelets/codelet_ztile_zero.c
@@ -33,14 +33,14 @@ CORE_ztile_zero_parsec(dague_execution_unit_t *context, dague_execution_context_
int *lda;
int x, y;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &X1,
- UNPACK_VALUE, &X2,
- UNPACK_VALUE, &Y1,
- UNPACK_VALUE, &Y2,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &X1,
+ UNPACK_VALUE, &X2,
+ UNPACK_VALUE, &Y1,
+ UNPACK_VALUE, &Y2,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda );
for (x = *X1; x < *X2; x++)
for (y = *Y1; y < *Y2; y++)
@@ -55,12 +55,13 @@ void MORSE_TASK_ztile_zero(const const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztile_zero_parsec, "tile zero",
- sizeof(int), &X1, VALUE,
- sizeof(int), &X2, VALUE,
- sizeof(int), &Y1, VALUE,
- sizeof(int), &Y2, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztile_zero_parsec, "tile zero",
+ sizeof(int), &X1, VALUE,
+ sizeof(int), &X2, VALUE,
+ sizeof(int), &Y1, VALUE,
+ sizeof(int), &Y2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztradd.c b/runtime/parsec/codelets/codelet_ztradd.c
index 7ab8db5c7..6cc12eaa1 100644
--- a/runtime/parsec/codelets/codelet_ztradd.c
+++ b/runtime/parsec/codelets/codelet_ztradd.c
@@ -40,20 +40,18 @@ CORE_ztradd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *B;
int *LDB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_VALUE, &beta,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB
- );
-
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_VALUE, &beta,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB );
CORE_ztradd(*uplo, *trans, *M, *N, *alpha, A, *LDA, *beta, B, *LDB);
diff --git a/runtime/parsec/codelets/codelet_ztrasm.c b/runtime/parsec/codelets/codelet_ztrasm.c
index 4e3d74c2b..91646d1df 100644
--- a/runtime/parsec/codelets/codelet_ztrasm.c
+++ b/runtime/parsec/codelets/codelet_ztrasm.c
@@ -34,16 +34,16 @@ CORE_ztrasm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *work;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &storev,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &diag,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &work
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &storev,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &diag,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &work );
CORE_ztrasm(*storev, *uplo, *diag, *M, *N, A, *lda, work);
@@ -57,14 +57,15 @@ void MORSE_TASK_ztrasm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztrasm_parsec, "trasm",
- sizeof(MORSE_enum), &storev, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &diag, VALUE,
- sizeof(int), &M, VALUE,
- sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztrasm_parsec, "trasm",
+ sizeof(MORSE_enum), &storev, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &diag, VALUE,
+ sizeof(int), &M, VALUE,
+ sizeof(int), &N, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztrmm.c b/runtime/parsec/codelets/codelet_ztrmm.c
index 436ad1ce9..8b67404ab 100644
--- a/runtime/parsec/codelets/codelet_ztrmm.c
+++ b/runtime/parsec/codelets/codelet_ztrmm.c
@@ -37,20 +37,19 @@ CORE_ztrmm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *B;
int *LDB;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &transA,
- UNPACK_VALUE, &diag,
- UNPACK_VALUE, &M,
- UNPACK_VALUE, &N,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_DATA, &B,
- UNPACK_VALUE, &LDB
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &transA,
+ UNPACK_VALUE, &diag,
+ UNPACK_VALUE, &M,
+ UNPACK_VALUE, &N,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_DATA, &B,
+ UNPACK_VALUE, &LDB );
CORE_ztrmm(*side, *uplo,
*transA, *diag,
@@ -69,17 +68,18 @@ void MORSE_TASK_ztrmm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztrmm_parsec, "trmm",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &transA, VALUE,
- sizeof(MORSE_enum), &diag, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztrmm_parsec, "trmm",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &transA, VALUE,
+ sizeof(MORSE_enum), &diag, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztrsm.c b/runtime/parsec/codelets/codelet_ztrsm.c
index 835714813..aadddb98c 100644
--- a/runtime/parsec/codelets/codelet_ztrsm.c
+++ b/runtime/parsec/codelets/codelet_ztrsm.c
@@ -31,19 +31,19 @@ CORE_ztrsm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *T;
MORSE_Complex64_t *C;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &diag,
- UNPACK_VALUE, &tempmm,
- UNPACK_VALUE, &nb,
- UNPACK_VALUE, &alpha,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldak,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldam
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &diag,
+ UNPACK_VALUE, &tempmm,
+ UNPACK_VALUE, &nb,
+ UNPACK_VALUE, &alpha,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldak,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldam );
CORE_ztrsm(*side, *uplo, *trans, *diag,
*tempmm, *nb, *alpha, T, *ldak,
@@ -60,17 +60,18 @@ void MORSE_TASK_ztrsm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztrsm_parsec, "Trsm",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &transA, VALUE,
- sizeof(MORSE_enum), &diag, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(MORSE_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
- sizeof(int), &ldb, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztrsm_parsec, "Trsm",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &transA, VALUE,
+ sizeof(MORSE_enum), &diag, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(MORSE_Complex64_t), &alpha, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
+ sizeof(int), &ldb, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztrssq.c b/runtime/parsec/codelets/codelet_ztrssq.c
index b1917044b..0dd120420 100644
--- a/runtime/parsec/codelets/codelet_ztrssq.c
+++ b/runtime/parsec/codelets/codelet_ztrssq.c
@@ -33,16 +33,15 @@ CORE_ztrssq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *SCALESUMSQ;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &diag,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &SCALESUMSQ
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &diag,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &SCALESUMSQ );
CORE_ztrssq( *uplo, *diag, *m, *n, A, *lda, &SCALESUMSQ[0], &SCALESUMSQ[1]);
@@ -57,13 +56,14 @@ void MORSE_TASK_ztrssq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztrssq_parsec, "trssq",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &diag, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztrssq_parsec, "trssq",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &diag, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztrtri.c b/runtime/parsec/codelets/codelet_ztrtri.c
index c1a424cc3..d296e2105 100644
--- a/runtime/parsec/codelets/codelet_ztrtri.c
+++ b/runtime/parsec/codelets/codelet_ztrtri.c
@@ -33,15 +33,14 @@ CORE_ztrtri_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *iinfo;
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &uplo,
- UNPACK_VALUE, &diag,
- UNPACK_VALUE, &N,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &LDA,
- UNPACK_VALUE, &iinfo
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &uplo,
+ UNPACK_VALUE, &diag,
+ UNPACK_VALUE, &N,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &LDA,
+ UNPACK_VALUE, &iinfo );
CORE_ztrtri(*uplo, *diag, *N, A, *LDA, &info);
@@ -56,12 +55,13 @@ void MORSE_TASK_ztrtri(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztrtri_parsec, "trtri",
- sizeof(MORSE_enum), &uplo, VALUE,
- sizeof(MORSE_enum), &diag, VALUE,
- sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- sizeof(int), &iinfo, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztrtri_parsec, "trtri",
+ sizeof(MORSE_enum), &uplo, VALUE,
+ sizeof(MORSE_enum), &diag, VALUE,
+ sizeof(int), &n, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ sizeof(int), &iinfo, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztslqt.c b/runtime/parsec/codelets/codelet_ztslqt.c
index 3d8ae0723..bebbb862f 100644
--- a/runtime/parsec/codelets/codelet_ztslqt.c
+++ b/runtime/parsec/codelets/codelet_ztslqt.c
@@ -37,20 +37,19 @@ CORE_ztslqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &TAU,
- UNPACK_SCRATCH, &WORK
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &TAU,
+ UNPACK_SCRATCH, &WORK );
CORE_ztslqt(*m, *n, *ib, A1, *lda1, A2, *lda2, T, *ldt, TAU, WORK);
@@ -65,18 +64,18 @@ void MORSE_TASK_ztslqt(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
-
- dague_insert_task(DAGUE_dtd_handle, CORE_ztslqt_parsec, "tslqt",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztslqt_parsec, "tslqt",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztsmlq.c b/runtime/parsec/codelets/codelet_ztsmlq.c
index 000442c2a..eaae120c5 100644
--- a/runtime/parsec/codelets/codelet_ztsmlq.c
+++ b/runtime/parsec/codelets/codelet_ztsmlq.c
@@ -44,29 +44,26 @@ CORE_ztsmlq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &ldv,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork
- );
-
-
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &ldv,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork );
CORE_ztsmlq(*side, *trans, *m1, *n1, *m2, *n2, *k, *ib,
A1, *lda1, A2, *lda2, V, *ldv, T, *ldt, WORK, *ldwork);
@@ -86,24 +83,25 @@ void MORSE_TASK_ztsmlq(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztsmlq_parsec, "tsmlq",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &ldwork, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztsmlq_parsec, "tsmlq",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &ldwork, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c b/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c
index b25f919c7..5ec643a18 100644
--- a/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c
+++ b/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c
@@ -50,25 +50,26 @@ CORE_ztsmlq_hetra1_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &ldv,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork);
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &ldv,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork);
CORE_ztsmlq_hetra1(*side, *trans, *m1, *n1, *m2, *n2, *k, *ib,
A1, *lda1, A2, *lda2,
@@ -89,23 +90,23 @@ void MORSE_TASK_ztsmlq_hetra1(const MORSE_option_t *options,
dague_insert_task(
DAGUE_dtd_handle, CORE_ztsmlq_hetra1_parsec, "tsmlq_hetra1",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(A1, MORSE_Complex64_t, A1m, A1n), INOUT | REGION_U | REGION_D,
- sizeof(int), &lda1, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(A2, MORSE_Complex64_t, A2m, A2n), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(V, MORSE_Complex64_t, Vm, Vn), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, RTBLKADDR(T, MORSE_Complex64_t, Tm, Tn), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &ldwork, VALUE,
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A1, MORSE_Complex64_t, A1m, A1n), INOUT | REGION_U | REGION_D,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A2, MORSE_Complex64_t, A2m, A2n), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR(V, MORSE_Complex64_t, Vm, Vn), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR(T, MORSE_Complex64_t, Tm, Tn), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &ldwork, VALUE,
0);
}
diff --git a/runtime/parsec/codelets/codelet_ztsmqr.c b/runtime/parsec/codelets/codelet_ztsmqr.c
index 0f8f3c5d0..7369c2002 100644
--- a/runtime/parsec/codelets/codelet_ztsmqr.c
+++ b/runtime/parsec/codelets/codelet_ztsmqr.c
@@ -44,27 +44,26 @@ CORE_ztsmqr_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &ldv,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &ldv,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork );
CORE_ztsmqr(*side, *trans, *m1, *n1, *m2, *n2, *k, *ib,
A1, *lda1, A2, *lda2, V, *ldv, T, *ldt, WORK, *ldwork);
@@ -84,25 +83,25 @@ void MORSE_TASK_ztsmqr(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
-
- dague_insert_task(DAGUE_dtd_handle, CORE_ztsmqr_parsec, "tsmqr",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &ldwork, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztsmqr_parsec, "tsmqr",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &ldwork, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c b/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c
index 7c022007d..72045d8f1 100644
--- a/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c
+++ b/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c
@@ -50,25 +50,26 @@ CORE_ztsmqr_hetra1_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &ldv,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork);
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &ldv,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork);
CORE_ztsmqr_hetra1(*side, *trans, *m1, *n1, *m2, *n2, *k, *ib,
A1, *lda1, A2, *lda2,
@@ -89,23 +90,23 @@ void MORSE_TASK_ztsmqr_hetra1(const MORSE_option_t *options,
dague_insert_task(
DAGUE_dtd_handle, CORE_ztsmqr_hetra1_parsec, "tsmqr_hetra1",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(A1, MORSE_Complex64_t, A1m, A1n), INOUT | REGION_L | REGION_D,
- sizeof(int), &lda1, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(A2, MORSE_Complex64_t, A2m, A2n), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- sizeof(MORSE_Complex64_t)*nb*nb, RTBLKADDR(V, MORSE_Complex64_t, Vm, Vn), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, RTBLKADDR(T, MORSE_Complex64_t, Tm, Tn), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &ldwork, VALUE,
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A1, MORSE_Complex64_t, A1m, A1n), INOUT | REGION_L | REGION_D,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR(A2, MORSE_Complex64_t, A2m, A2n), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR(V, MORSE_Complex64_t, Vm, Vn), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR(T, MORSE_Complex64_t, Tm, Tn), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &ldwork, VALUE,
0);
}
diff --git a/runtime/parsec/codelets/codelet_ztsqrt.c b/runtime/parsec/codelets/codelet_ztsqrt.c
index e209718ad..22a01de1f 100644
--- a/runtime/parsec/codelets/codelet_ztsqrt.c
+++ b/runtime/parsec/codelets/codelet_ztsqrt.c
@@ -37,20 +37,19 @@ CORE_ztsqrt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &TAU,
- UNPACK_SCRATCH, &WORK
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &TAU,
+ UNPACK_SCRATCH, &WORK );
CORE_ztsqrt(*m, *n, *ib, A1, *lda1, A2, *lda2, T, *ldt, TAU, WORK);
@@ -65,18 +64,18 @@ void MORSE_TASK_ztsqrt(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
-
- dague_insert_task(DAGUE_dtd_handle, CORE_ztsqrt_parsec, "tsqrt",
- sizeof(MORSE_enum), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_D | REGION_U,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztsqrt_parsec, "tsqrt",
+ sizeof(MORSE_enum), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_D | REGION_U,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_ztstrf.c b/runtime/parsec/codelets/codelet_ztstrf.c
index 9f1e6c159..fccfd0397 100644
--- a/runtime/parsec/codelets/codelet_ztstrf.c
+++ b/runtime/parsec/codelets/codelet_ztstrf.c
@@ -43,24 +43,23 @@ CORE_ztstrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int info;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_VALUE, &nb,
- UNPACK_DATA, &U,
- UNPACK_VALUE, &ldu,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &L,
- UNPACK_VALUE, &ldl,
- UNPACK_SCRATCH, &IPIV,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork,
- UNPACK_VALUE, &check_info,
- UNPACK_VALUE, &iinfo
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_VALUE, &nb,
+ UNPACK_DATA, &U,
+ UNPACK_VALUE, &ldu,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &L,
+ UNPACK_VALUE, &ldl,
+ UNPACK_SCRATCH, &IPIV,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork,
+ UNPACK_VALUE, &check_info,
+ UNPACK_VALUE, &iinfo );
CORE_ztstrf(*m, *n, *ib, *nb, U, *ldu, A, *lda, L, *ldl, IPIV, WORK, *ldwork, &info);
@@ -77,21 +76,22 @@ void MORSE_TASK_ztstrf(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_ztstrf_parsec, "tstrf",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- sizeof(int), &nb, VALUE,
- PASSED_BY_REF, RTBLKADDR( U, MORSE_Complex64_t, Um, Un ), INOUT | REGION_FULL,
- sizeof(int), &ldu, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), OUTPUT | REGION_FULL,
- sizeof(int), &ldl, VALUE,
- sizeof(int)*nb, IPIV, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &nb, VALUE,
- sizeof(int), &check_info, VALUE,
- sizeof(int), &iinfo, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_ztstrf_parsec, "tstrf",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ sizeof(int), &nb, VALUE,
+ PASSED_BY_REF, RTBLKADDR( U, MORSE_Complex64_t, Um, Un ), INOUT | REGION_FULL,
+ sizeof(int), &ldu, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldl, VALUE,
+ sizeof(int)*nb, IPIV, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &nb, VALUE,
+ sizeof(int), &check_info, VALUE,
+ sizeof(int), &iinfo, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zttlqt.c b/runtime/parsec/codelets/codelet_zttlqt.c
index 97e02753f..cbd733ded 100644
--- a/runtime/parsec/codelets/codelet_zttlqt.c
+++ b/runtime/parsec/codelets/codelet_zttlqt.c
@@ -37,20 +37,19 @@ CORE_zttlqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &TAU,
- UNPACK_SCRATCH, &WORK
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &TAU,
+ UNPACK_SCRATCH, &WORK );
CORE_zttlqt(*m, *n, *ib, A1, *lda1, A2, *lda2, T, *ldt, TAU, WORK);
@@ -66,17 +65,18 @@ void MORSE_TASK_zttlqt(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zttlqt_parsec, "ttlqt",
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zttlqt_parsec, "ttlqt",
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zttmlq.c b/runtime/parsec/codelets/codelet_zttmlq.c
index 8a8d03545..a12ed573b 100644
--- a/runtime/parsec/codelets/codelet_zttmlq.c
+++ b/runtime/parsec/codelets/codelet_zttmlq.c
@@ -44,26 +44,26 @@ CORE_zttmlq_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &ldv,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork
- );
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &ldv,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork );
CORE_zttmlq(*side, *trans, *m1, *n1, *m2, *n2, *k, *ib, A1, *lda1,
A2, *lda2, V, *ldv, T, *ldt, WORK, *ldwork);
@@ -83,24 +83,25 @@ void MORSE_TASK_zttmlq(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zttmlq_parsec, "ttmlq",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &ldwork, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zttmlq_parsec, "ttmlq",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &ldwork, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zttmqr.c b/runtime/parsec/codelets/codelet_zttmqr.c
index 75863f9a1..9d66160ef 100644
--- a/runtime/parsec/codelets/codelet_zttmqr.c
+++ b/runtime/parsec/codelets/codelet_zttmqr.c
@@ -44,32 +44,30 @@ CORE_zttmqr_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m1,
- UNPACK_VALUE, &n1,
- UNPACK_VALUE, &m2,
- UNPACK_VALUE, &n2,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &V,
- UNPACK_VALUE, &ldv,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m1,
+ UNPACK_VALUE, &n1,
+ UNPACK_VALUE, &m2,
+ UNPACK_VALUE, &n2,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &V,
+ UNPACK_VALUE, &ldv,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork );
CORE_zttmqr(*side, *trans, *m1, *n1, *m2, *n2, *k, *ib,
A1, *lda1, A2, *lda2, V, *ldv, T, *ldt, WORK, *ldwork);
-
return 0;
}
@@ -86,24 +84,25 @@ void MORSE_TASK_zttmqr(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zttmqr_parsec, "ttmqr",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m1, VALUE,
- sizeof(int), &n1, VALUE,
- sizeof(int), &m2, VALUE,
- sizeof(int), &n2, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
- sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &ldwork, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zttmqr_parsec, "ttmqr",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m1, VALUE,
+ sizeof(int), &n1, VALUE,
+ sizeof(int), &m2, VALUE,
+ sizeof(int), &n2, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT | REGION_FULL,
+ sizeof(int), &ldv, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &ldwork, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zttqrt.c b/runtime/parsec/codelets/codelet_zttqrt.c
index 5b831bf19..c6a706982 100644
--- a/runtime/parsec/codelets/codelet_zttqrt.c
+++ b/runtime/parsec/codelets/codelet_zttqrt.c
@@ -37,21 +37,19 @@ CORE_zttqrt_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A1,
- UNPACK_VALUE, &lda1,
- UNPACK_DATA, &A2,
- UNPACK_VALUE, &lda2,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_SCRATCH, &TAU,
- UNPACK_SCRATCH, &WORK
- );
-
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A1,
+ UNPACK_VALUE, &lda1,
+ UNPACK_DATA, &A2,
+ UNPACK_VALUE, &lda2,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_SCRATCH, &TAU,
+ UNPACK_SCRATCH, &WORK );
CORE_zttqrt(*m, *n, *ib, A1, *lda1, A2, *lda2, T, *ldt, TAU, WORK);
@@ -66,17 +64,18 @@ void MORSE_TASK_zttqrt(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zttqrt_parsec, "ttqrt",
- sizeof(MORSE_enum), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
- sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
- sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zttqrt_parsec, "ttqrt",
+ sizeof(MORSE_enum), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT | REGION_FULL,
+ sizeof(int), &lda1, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT | REGION_FULL,
+ sizeof(int), &lda2, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zunmlq.c b/runtime/parsec/codelets/codelet_zunmlq.c
index b30ccbdbb..8a9142db8 100644
--- a/runtime/parsec/codelets/codelet_zunmlq.c
+++ b/runtime/parsec/codelets/codelet_zunmlq.c
@@ -40,23 +40,22 @@ CORE_zunmlq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork );
CORE_zunmlq(*side, *trans, *m, *n, *k, *ib,
A, *lda, T, *ldt, C, *ldc, WORK, *ldwork);
@@ -73,21 +72,21 @@ void MORSE_TASK_zunmlq(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
-
- dague_insert_task(DAGUE_dtd_handle, CORE_zunmlq_parsec, "unmlq",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &nb, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zunmlq_parsec, "unmlq",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &nb, VALUE,
+ 0);
}
diff --git a/runtime/parsec/codelets/codelet_zunmqr.c b/runtime/parsec/codelets/codelet_zunmqr.c
index 5c08e10fd..c07e46c11 100644
--- a/runtime/parsec/codelets/codelet_zunmqr.c
+++ b/runtime/parsec/codelets/codelet_zunmqr.c
@@ -40,23 +40,22 @@ CORE_zunmqr_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *WORK;
int *ldwork;
- dague_dtd_unpack_args(this_task,
- UNPACK_VALUE, &side,
- UNPACK_VALUE, &trans,
- UNPACK_VALUE, &m,
- UNPACK_VALUE, &n,
- UNPACK_VALUE, &k,
- UNPACK_VALUE, &ib,
- UNPACK_DATA, &A,
- UNPACK_VALUE, &lda,
- UNPACK_DATA, &T,
- UNPACK_VALUE, &ldt,
- UNPACK_DATA, &C,
- UNPACK_VALUE, &ldc,
- UNPACK_SCRATCH, &WORK,
- UNPACK_VALUE, &ldwork
- );
-
+ dague_dtd_unpack_args(
+ this_task,
+ UNPACK_VALUE, &side,
+ UNPACK_VALUE, &trans,
+ UNPACK_VALUE, &m,
+ UNPACK_VALUE, &n,
+ UNPACK_VALUE, &k,
+ UNPACK_VALUE, &ib,
+ UNPACK_DATA, &A,
+ UNPACK_VALUE, &lda,
+ UNPACK_DATA, &T,
+ UNPACK_VALUE, &ldt,
+ UNPACK_DATA, &C,
+ UNPACK_VALUE, &ldc,
+ UNPACK_SCRATCH, &WORK,
+ UNPACK_VALUE, &ldwork );
CORE_zunmqr(*side, *trans, *m, *n, *k, *ib,
A, *lda, T, *ldt, C, *ldc, WORK, *ldwork);
@@ -73,20 +72,21 @@ void MORSE_TASK_zunmqr(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
- dague_insert_task(DAGUE_dtd_handle, CORE_zunmqr_parsec, "unmqr",
- sizeof(MORSE_enum), &side, VALUE,
- sizeof(MORSE_enum), &trans, VALUE,
- sizeof(int), &m, VALUE,
- sizeof(int), &n, VALUE,
- sizeof(int), &k, VALUE,
- sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_L,
- sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
- sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
- sizeof(int), &ldc, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
- sizeof(int), &nb, VALUE,
- 0);
+ dague_insert_task(
+ DAGUE_dtd_handle, CORE_zunmqr_parsec, "unmqr",
+ sizeof(MORSE_enum), &side, VALUE,
+ sizeof(MORSE_enum), &trans, VALUE,
+ sizeof(int), &m, VALUE,
+ sizeof(int), &n, VALUE,
+ sizeof(int), &k, VALUE,
+ sizeof(int), &ib, VALUE,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_L,
+ sizeof(int), &lda, VALUE,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT | REGION_FULL,
+ sizeof(int), &ldt, VALUE,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
+ sizeof(int), &ldc, VALUE,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(int), &nb, VALUE,
+ 0);
}
--
GitLab