Commit 6e2d7fca authored by Mathieu Faverge's avatar Mathieu Faverge

Fix naming in codelets

parent 9ada5c5a
......@@ -25,8 +25,8 @@
#include "coreblas/coreblas_z.h"
static int
CORE_dzasum_parsec(dague_execution_unit_t *context,
dague_execution_context_t *this_task)
CORE_dzasum_parsec(parsec_execution_stream_t *context,
parsec_task_t *this_task)
{
MORSE_enum *storev;
MORSE_enum *uplo;
......@@ -36,7 +36,7 @@ CORE_dzasum_parsec(dague_execution_unit_t *context,
int *lda;
double *work;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &storev,
UNPACK_VALUE, &uplo,
......@@ -56,10 +56,10 @@ void MORSE_TASK_dzasum(const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *B, int Bm, int Bn)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_dzasum_parsec, "zasum",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_dzasum_parsec, options->priority, "zasum",
sizeof(MORSE_enum), &storev, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &M, VALUE,
......
......@@ -25,7 +25,7 @@
#include "coreblas/coreblas_z.h"
static int
CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zaxpy_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *M;
MORSE_Complex64_t *alpha;
......@@ -34,7 +34,7 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *B;
int *incB;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &M,
UNPACK_VALUE, &alpha,
......@@ -53,10 +53,10 @@ void MORSE_TASK_zaxpy(const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int incA,
const MORSE_desc_t *B, int Bm, int Bn, int incB)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zaxpy_parsec, "axpy",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zaxpy_parsec, options->priority, "axpy",
sizeof(int), &M, VALUE,
sizeof(MORSE_Complex64_t), &alpha, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
......
......@@ -27,8 +27,8 @@
#include "coreblas/coreblas_z.h"
static inline int
CORE_zbuild_parsec(dague_execution_unit_t *context,
dague_execution_context_t *this_task)
CORE_zbuild_parsec(parsec_execution_stream_t *context,
parsec_task_t *this_task)
{
MORSE_Complex64_t *A;
int lda;
......@@ -36,7 +36,7 @@ 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(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &row_min,
UNPACK_VALUE, &row_max,
......@@ -56,15 +56,15 @@ void MORSE_TASK_zbuild( const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
void *user_data, void* user_build_callback )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
int row_min, row_max, col_min, col_max;
row_min = Am*A->mb ;
row_max = Am == A->mt-1 ? A->m-1 : row_min+A->mb-1 ;
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",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zbuild_parsec, options->priority, "zbuild",
sizeof(int), &row_min, VALUE,
sizeof(int), &row_max, VALUE,
sizeof(int), &col_min, VALUE,
......
......@@ -30,7 +30,7 @@
#include "coreblas/coreblas_z.h"
static int
CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgeadd_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
MORSE_enum *trans;
int *M;
......@@ -42,7 +42,7 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *B;
int *LDB;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &trans,
UNPACK_VALUE, &M,
......@@ -118,10 +118,10 @@ void MORSE_TASK_zgeadd(const MORSE_option_t *options,
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, const MORSE_desc_t *B, int Bm, int Bn, int ldb)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgeadd_parsec, "geadd",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgeadd_parsec, options->priority, "geadd",
sizeof(MORSE_enum), &trans, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
......
......@@ -86,7 +86,7 @@
*
******************************************************************************/
static int
CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgelqt_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -98,7 +98,7 @@ 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(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -120,10 +120,10 @@ void MORSE_TASK_zgelqt(const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *T, int Tm, int Tn, int ldt)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgelqt_parsec, "gelqt",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgelqt_parsec, options->priority, "gelqt",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
......
......@@ -30,8 +30,8 @@
*
**/
static int
CORE_zgemm_parsec(dague_execution_unit_t *context,
dague_execution_context_t *this_task)
CORE_zgemm_parsec(parsec_execution_stream_t *context,
parsec_task_t *this_task)
{
MORSE_enum *transA;
MORSE_enum *transB;
......@@ -47,7 +47,7 @@ CORE_zgemm_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *C;
int *ldc;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &transA,
UNPACK_VALUE, &transB,
......@@ -78,22 +78,22 @@ void MORSE_TASK_zgemm(const MORSE_option_t *options,
const MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgemm_parsec, "Gemm",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgemm_parsec, options->priority, "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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | morse_parsec_get_arena_index(A),
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | morse_parsec_get_arena_index(B),
sizeof(int), &ldb, VALUE,
sizeof(MORSE_Complex64_t), &beta, VALUE,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | morse_parsec_get_arena_index(C) | AFFINITY,
sizeof(int), &ldc, VALUE,
0);
}
......@@ -87,7 +87,7 @@
*
******************************************************************************/
static int
CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgeqrt_parsec (parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -99,7 +99,7 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -121,10 +121,10 @@ void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *T, int Tm, int Tn, int ldt)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgeqrt_parsec, "geqrt",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgeqrt_parsec, options->priority, "geqrt",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
......
......@@ -70,7 +70,7 @@
*
******************************************************************************/
static int
CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgessm_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -84,7 +84,7 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *A;
int *lda;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -110,10 +110,10 @@ void MORSE_TASK_zgessm(const MORSE_option_t *options,
const MORSE_desc_t *D, int Dm, int Dn, int ldd,
const MORSE_desc_t *A, int Am, int An, int lda)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgessm_parsec, "gessm",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgessm_parsec, options->priority, "gessm",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
......
......@@ -25,7 +25,7 @@
#include "coreblas/coreblas_z.h"
static int
CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgessq_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -33,7 +33,7 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *SCALESUMSQ;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -51,10 +51,10 @@ void MORSE_TASK_zgessq( const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgessq_parsec, "gessq",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgessq_parsec, options->priority, "gessq",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
......
......@@ -25,7 +25,7 @@
#include "coreblas/coreblas_z.h"
static int
CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgetrf_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -36,7 +36,7 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *iinfo;
int info;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -57,10 +57,10 @@ void MORSE_TASK_zgetrf(const MORSE_option_t *options,
int *IPIV,
MORSE_bool check_info, int iinfo)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgetrf_parsec, "getrf",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgetrf_parsec, options->priority, "getrf",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
......
......@@ -79,7 +79,7 @@
*
******************************************************************************/
static int
CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgetrf_incpiv_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -92,7 +92,7 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
int info;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -115,10 +115,10 @@ void MORSE_TASK_zgetrf_incpiv(const MORSE_option_t *options,
int *IPIV,
MORSE_bool check_info, int iinfo)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgetrf_incpiv_parsec, "getrf_inc",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgetrf_incpiv_parsec, options->priority, "getrf_inc",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
......
......@@ -72,7 +72,7 @@
*
******************************************************************************/
static int
CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgetrf_nopiv_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
int *m;
int *n;
......@@ -82,7 +82,7 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
int *iinfo;
int info;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
......@@ -101,10 +101,10 @@ void MORSE_TASK_zgetrf_nopiv(const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
int iinfo)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zgetrf_nopiv_parsec, "getrf_nopiv",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgetrf_nopiv_parsec, options->priority, "getrf_nopiv",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
......
......@@ -30,8 +30,8 @@
*
**/
static inline int
CORE_zhe2ge_parsec(dague_execution_unit_t *context,
dague_execution_context_t *this_task)
CORE_zhe2ge_parsec(parsec_execution_stream_t *context,
parsec_task_t *this_task)
{
MORSE_enum *uplo;
int *M;
......@@ -41,7 +41,7 @@ CORE_zhe2ge_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *B;
int *LDB;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &M,
......@@ -61,10 +61,10 @@ void MORSE_TASK_zhe2ge(const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *B, int Bm, int Bn, int ldb)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zhe2ge_parsec, "he2ge",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zhe2ge_parsec, options->priority, "he2ge",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
......
......@@ -30,7 +30,7 @@
*
**/
static int
CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zhemm_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
MORSE_enum *side;
MORSE_enum *uplo;
......@@ -45,7 +45,7 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t *C;
int *LDC;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &side,
UNPACK_VALUE, &uplo,
......@@ -75,10 +75,10 @@ void MORSE_TASK_zhemm(const MORSE_option_t *options,
const MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zhemm_parsec, "hemm",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zhemm_parsec, options->priority, "hemm",
sizeof(MORSE_enum), &side, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &m, VALUE,
......
......@@ -30,7 +30,7 @@
*
**/
static int
CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zher2k_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
MORSE_enum *uplo;
MORSE_enum *trans;
......@@ -45,7 +45,7 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t *C;
int *ldc;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &trans,
......@@ -75,21 +75,21 @@ void MORSE_TASK_zher2k(const MORSE_option_t *options,
const MORSE_desc_t *B, int Bm, int Bn, int ldb,
double beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zher2k_parsec, "her2k",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zher2k_parsec, options->priority, "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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | morse_parsec_get_arena_index(A),
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INPUT | morse_parsec_get_arena_index(B),
sizeof(int), &ldb, VALUE,
sizeof(double), &beta, VALUE,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | morse_parsec_get_arena_index(C) | AFFINITY,
sizeof(int), &ldc, VALUE,
0);
}
......@@ -27,8 +27,8 @@
#include "coreblas/coreblas_z.h"
static inline int
CORE_zherfb_parsec(dague_execution_unit_t *context,
dague_execution_context_t *this_task)
CORE_zherfb_parsec(parsec_execution_stream_t *context,
parsec_task_t *this_task)
{
MORSE_enum *uplo;
int *n;
......@@ -44,7 +44,7 @@ CORE_zherfb_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t *WORK;
int *ldwork;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &n,
......@@ -72,20 +72,20 @@ void MORSE_TASK_zherfb(const MORSE_option_t *options,
const MORSE_desc_t *T, int Tm, int Tn, int ldt,
const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zherfb_parsec, "herfb",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zherfb_parsec, options->priority, "herfb",
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,
PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), (uplo == MorseUpper) ? INOUT | REGION_FULL : INOUT | 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), (uplo == MorseUpper) ? INOUT | REGION_D | REGION_U : INOUT | REGION_D | REGION_L,
PASSED_BY_REF, RTBLKADDR(C, MORSE_Complex64_t, Cm, Cn), (uplo == MorseUpper) ? INOUT | REGION_FULL : INOUT | REGION_FULL,
sizeof(int), &ldc, VALUE,
sizeof(MORSE_Complex64_t)*2*nb*nb, NULL, SCRATCH,
sizeof(int), &nb, VALUE,
......
......@@ -31,7 +31,7 @@
**/
static int
CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * this_task)
CORE_zherk_parsec(parsec_execution_stream_t *context, parsec_task_t * this_task)
{
MORSE_enum *uplo;
MORSE_enum *trans;
......@@ -44,7 +44,7 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
MORSE_Complex64_t *C;
int *ldc;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &trans,
......@@ -70,19 +70,19 @@ void MORSE_TASK_zherk(const MORSE_option_t *options,
double alpha, const MORSE_desc_t *A, int Am, int An, int lda,
double beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zherk_parsec, "herk",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zherk_parsec, options->priority, "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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | morse_parsec_get_arena_index(A),
sizeof(int), &lda, VALUE,
sizeof(double), &beta, VALUE,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | morse_parsec_get_arena_index(C) | AFFINITY,
sizeof(int), &ldc, VALUE,
0);
}
......
......@@ -25,7 +25,7 @@
#include "coreblas/coreblas_z.h"
static int
CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zhessq_parsec(parsec_execution_stream_t *context, parsec_task_t *this_task)
{
MORSE_enum *uplo;
int *n;
......@@ -33,7 +33,7 @@ CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *lda;
double *SCALESUMSQ;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &n,
......@@ -51,10 +51,10 @@ void MORSE_TASK_zhessq( const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zhessq_parsec, "hessq",
parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zhessq_parsec, options->priority, "hessq",
sizeof(int), &uplo, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
......
......@@ -30,7 +30,7 @@
*
**/
static int
CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t * this_task)
CORE_zlacpy_parsec(parsec_execution_stream_t *context, parsec_task_t * this_task)
{
MORSE_enum *uplo;
int *M;
......@@ -40,7 +40,7 @@ CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t *B;
int *LDB;
dague_dtd_unpack_args(
parsec_dtd_unpack_args(
this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &M,
......@@ -61,10 +61,10 @@ void MORSE_TASK_zlacpy(const MORSE_option_t *options,
const MORSE_desc_t *B, int Bm, int Bn, int ldb)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
dague_insert_task(
DAGUE_dtd_handle, CORE_zlacpy_parsec, "lacpy",
parsec_dtd_taskpool_insert_task(