Commit ef41ba4e authored by Mathieu Faverge's avatar Mathieu Faverge

Merge branch 'parsec/naming' into 'master'

Update PaRSEC naming to the last version

See merge request !74
parents 9ada5c5a f8b229e3
Pipeline #72827 canceled with stages
in 1 minute and 22 seconds
......@@ -20,28 +20,24 @@
*
**/
#include "chameleon_parsec.h"
#include "chameleon/chameleon_tasks.h"
#include "chameleon/morse_tasks.h"
void MORSE_TASK_flush_data( const MORSE_option_t *options,
const MORSE_desc_t *A, int Am, int An )
const MORSE_desc_t *A, int Am, int An )
{
(void)options; (void)A; (void)Am; (void)An;
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
/*
* This is useful for StarPU and PaRSEC MPI implementation, if it happens in
* Quark, it will need to be done carefuly to not break other runtimes.
*/
parsec_dtd_data_flush( PARSEC_dtd_taskpool, RTBLKADDR( A, MORSE_Complex64_t, Am, An ) );
}
void MORSE_TASK_flush_desc( const MORSE_option_t *options,
MORSE_enum uplo, const MORSE_desc_t *A )
MORSE_enum uplo, const MORSE_desc_t *A )
{
(void)options; (void)uplo; (void)A;
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
/*
* This is useful for StarPU and PaRSEC MPI implementation, if it happens in
* Quark, it will need to be done carefuly to not break other runtimes.
*/
parsec_dtd_data_flush_all( PARSEC_dtd_taskpool, (parsec_data_collection_t*)(A->schedopt) );
(void)uplo;
}
void MORSE_TASK_flush_all()
......
......@@ -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,16 +56,16 @@ 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,
sizeof(int), &N, 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,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT,
0);
}
......@@ -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,15 +53,15 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT,
sizeof(int), &incA, VALUE,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT,
sizeof(int), &incB, VALUE,
0);
}
......@@ -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,20 +56,20 @@ 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,
sizeof(int), &col_max, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT,
sizeof(int), &lda, VALUE,
sizeof(void*), &user_data, VALUE,
sizeof(void*), &user_build_callback, 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,18 +118,18 @@ 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,
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,
sizeof(int), &lda, VALUE,
sizeof(MORSE_Complex64_t), &beta, VALUE,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT,
sizeof(int), &ldb, VALUE,
0);
}
......@@ -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,16 +120,16 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
......
......@@ -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,
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,
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 | 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,16 +121,16 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
......
......@@ -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,20 +110,20 @@ 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,
sizeof(int), &ib, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), INPUT,
sizeof(int), &ldl, VALUE,
PASSED_BY_REF, RTBLKADDR( D, MORSE_Complex64_t, Dm, Dn ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( D, MORSE_Complex64_t, Dm, Dn ), INPUT,
sizeof(int), &ldd, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
0);
}
......@@ -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,14 +51,14 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT,
0);
}
......@@ -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,13 +57,13 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(MORSE_bool), &check_info, VALUE,
......
......@@ -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,14 +115,14 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(int), &check_info, 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,14 +101,14 @@ 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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
sizeof(int), &iinfo, VALUE,
0);
......
......@@ -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,16 +61,16 @@ 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,
PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR(A, MORSE_Complex64_t, Am, An), INPUT ,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR(B, MORSE_Complex64_t, Bm, Bn), OUTPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR(B, MORSE_Complex64_t, Bm, Bn), OUTPUT,
sizeof(int), &ldb, VALUE,
0);
}
......@@ -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,21 +75,21 @@ 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,
sizeof(int), &n, 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,
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,
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,
sizeof(int), &ldc, VALUE,
0);
}
......@@ -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,
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,
sizeof(int), &ldb, VALUE,
sizeof(double), &beta, VALUE,
PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT | REGION_FULL,