Commit c9714ea1 authored by Mathieu Faverge's avatar Mathieu Faverge

Merge back parsec branch

parent e7aa4554
......@@ -76,7 +76,7 @@ void morse_pzlange(MORSE_enum norm, MORSE_desc_t *A, double *result,
workm, workn, 0, 0, workm, workn, A->p, A->q);
MORSE_Desc_Create(&(VECNORMS_STEP2), NULL, MorseRealDouble, 1, A->nb, A->nb,
1, workn, 0, 0, 1, workn, A->p, A->q);
1, workn, 0, 0, 1, workn, A->p, A->q);
MORSE_Desc_Create(&(RESULT), NULL, MorseRealDouble, 1, 1, 1,
1, 1, 0, 0, 1, 1, 1, 1);
......
......@@ -251,7 +251,7 @@ int MORSE_zplrnt_Tile_Async( MORSE_desc_t *A,
if (min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
morse_pzplrnt(A, seed, sequence, request);
morse_pzplrnt(A, seed, sequence, request);
return MORSE_SUCCESS;
}
......@@ -497,23 +497,24 @@ int MORSE_Desc_Create(MORSE_desc_t **desc, void *mat, MORSE_enum dtyp, int mb, i
if (mat == NULL) {
#if defined(CHAMELEON_SIMULATION) && !defined(CHAMELEON_USE_MPI)
(**desc).mat = (void*) 1;
(*desc)->mat = (void*) 1;
#else
/* TODO: a call to morse_desc_mat_alloc should be made, but require to
move the call to RUNTIME_desc_create within the function */
size_t size = (size_t)((*desc)->llm) * (size_t)((*desc)->lln)
* (size_t)MORSE_Element_Size((*desc)->dtyp);
if (((**desc).mat = malloc(size)) == NULL) {
if (((*desc)->mat = malloc(size)) == NULL) {
morse_error("MORSE_Desc_Create", "malloc() failed");
return MORSE_ERR_OUT_OF_RESOURCES;
}
(*desc)->alloc_mat = 1;
#endif
} else {
(**desc).mat = mat;
(*desc)->mat = mat;
/* memory of the matrix is handle by users */
(**desc).alloc_mat = 0;
(*desc)->alloc_mat = 0;
}
/* Create scheduler structure like registering data */
......
......@@ -29,23 +29,20 @@ CORE_dzasum_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_enum *uplo;
int *M;
int *N;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gwork;
double *work;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &storev,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &M,
UNPACK_VALUE, &N,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gwork
UNPACK_DATA, &work
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *work = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gwork);
CORE_dzasum(*storev, *uplo, *M, *N, A, *lda, work);
return 0;
......@@ -65,6 +62,6 @@ void MORSE_TASK_dzasum(MORSE_option_t *options,
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 ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | REGION_FULL,
0);
}
......@@ -27,22 +27,20 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
{
int *M;
MORSE_Complex64_t *alpha;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *incA;
dague_data_copy_t *gB;
MORSE_Complex64_t *B;
int *incB;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &M,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &incA,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &incB
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *B = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gB);
CORE_zaxpy(*M, *alpha, A, *incA, B, *incB);
......
......@@ -34,10 +34,10 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *M;
int *N;
MORSE_Complex64_t *alpha;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *LDA;
MORSE_Complex64_t *beta;
dague_data_copy_t *gB;
MORSE_Complex64_t *B;
int *LDB;
dague_dtd_unpack_args(this_task,
......@@ -45,17 +45,13 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
UNPACK_VALUE, &M,
UNPACK_VALUE, &N,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &LDA,
UNPACK_VALUE, &beta,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &LDB
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *B = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gB);
CORE_zgeadd(*trans, *M, *N, *alpha, A, *LDA, *beta, B, *LDB);
return 0;
......
......@@ -84,14 +84,14 @@
*
******************************************************************************/
static int
CORE_zgelqt_quark(dague_execution_unit_t *context, dague_execution_context_t *this_task)
CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
{
int *m;
int *n;
int *ib;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gT;
MORSE_Complex64_t *T;
int *ldt;
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
......@@ -100,16 +100,14 @@ CORE_zgelqt_quark(dague_execution_unit_t *context, dague_execution_context_t *th
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
UNPACK_VALUE, &ib,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gT,
UNPACK_DATA, &T,
UNPACK_VALUE, &ldt,
UNPACK_SCRATCH, &TAU,
UNPACK_SCRATCH, &WORK
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *T = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gT);
CORE_zgelqt(*m, *n, *ib, A, *lda, T, *ldt, TAU, WORK);
......@@ -123,7 +121,7 @@ void MORSE_TASK_zgelqt(MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zgelqt_quark, "gelqt",
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zgelqt_parsec, "gelqt",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
......
......@@ -36,12 +36,12 @@ CORE_zgemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
int *n;
int *k;
MORSE_Complex64_t *alpha;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gB;
MORSE_Complex64_t *B;
int *ldb;
MORSE_Complex64_t *beta;
dague_data_copy_t *gC;
MORSE_Complex64_t *C;
int *ldc;
dague_dtd_unpack_args(this_task,
......@@ -51,19 +51,15 @@ CORE_zgemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
UNPACK_VALUE, &n,
UNPACK_VALUE, &k,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &ldb,
UNPACK_VALUE, &beta,
UNPACK_DATA, &gC,
UNPACK_DATA, &C,
UNPACK_VALUE, &ldc
);
MORSE_Complex64_t *A = DAGUE_DATA_COPY_GET_PTR(gA);
MORSE_Complex64_t *B = DAGUE_DATA_COPY_GET_PTR(gB);
MORSE_Complex64_t *C = DAGUE_DATA_COPY_GET_PTR(gC);
CORE_zgemm(*transA, *transB, *m, *n, *k,
*alpha, A, *lda,
B, *ldb,
......
......@@ -90,9 +90,9 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
int *m;
int *n;
int *ib;
dague_data_copy_t *A;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *T;
MORSE_Complex64_t *T;
int *ldt;
MORSE_Complex64_t *TAU;
MORSE_Complex64_t *WORK;
......@@ -109,10 +109,8 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
UNPACK_SCRATCH, &WORK
);
void *AA = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)A);
void *TT = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)T);
CORE_zgeqrt(*m, *n, *ib, AA, *lda, TT, *ldt, TAU, WORK);
CORE_zgeqrt(*m, *n, *ib, A, *lda, T, *ldt, TAU, WORK);
return 0;
}
......
......@@ -75,11 +75,11 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *k;
int *ib;
int *IPIV;
dague_data_copy_t *gL;
MORSE_Complex64_t *L;
int *ldl;
dague_data_copy_t *gD;
MORSE_Complex64_t *D;
int *ldd;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_dtd_unpack_args(this_task,
......@@ -88,17 +88,14 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
UNPACK_VALUE, &k,
UNPACK_VALUE, &ib,
UNPACK_SCRATCH, &IPIV,
UNPACK_DATA, &gL,
UNPACK_DATA, &L,
UNPACK_VALUE, &ldl,
UNPACK_DATA, &gD,
UNPACK_DATA, &D,
UNPACK_VALUE, &ldd,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda
);
//MORSE_Complex64_t *L = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gL);
MORSE_Complex64_t *D = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gD);
MORSE_Complex64_t *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
CORE_zgessm(*m, *n, *k, *ib, IPIV, D, *ldd, A, *lda);
......
......@@ -27,21 +27,18 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
{
int *m;
int *n;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gSCALESUMSQ;
double *SCALESUMSQ;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gSCALESUMSQ
UNPACK_DATA, &SCALESUMSQ
);
MORSE_Complex64_t *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
double *SCALESUMSQ = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gSCALESUMSQ);
CORE_zgessq( *m, *n, A, *lda, SCALESUMSQ, SCALESUMSQ+1);
return 0;
......@@ -59,6 +56,6 @@ void MORSE_TASK_zgessq( MORSE_option_t *options,
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, MORSE_Complex64_t, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
0);
}
......@@ -27,11 +27,9 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
{
int *m;
int *n;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
int *IPIV;
MORSE_sequence_t *sequence;
MORSE_request_t *request;
MORSE_bool *check_info;
int *iinfo;
int info;
......@@ -39,16 +37,13 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_SCRATCH, &IPIV,
UNPACK_VALUE, &sequence,
UNPACK_VALUE, &request,
UNPACK_VALUE, &check_info,
UNPACK_VALUE, &iinfo
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
CORE_zgetrf( *m, *n, A, *lda, IPIV, &info );
......@@ -69,8 +64,6 @@ void MORSE_TASK_zgetrf(MORSE_option_t *options,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
sizeof(int), &lda, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(MORSE_sequence_t*), &(options->sequence), VALUE,
sizeof(MORSE_request_t*), &(options->request), VALUE,
sizeof(MORSE_bool), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
0);
......
......@@ -82,7 +82,7 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
int *m;
int *n;
int *ib;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
int *IPIV;
MORSE_bool *check_info;
......@@ -94,7 +94,7 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
UNPACK_VALUE, &ib,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_SCRATCH, &IPIV,
UNPACK_VALUE, &check_info,
......@@ -102,7 +102,6 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
CORE_zgetrf_incpiv(*m, *n, *ib, A, *lda, IPIV, &info);
......
......@@ -75,10 +75,8 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
int *m;
int *n;
int *ib;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
MORSE_sequence_t *sequence;
MORSE_request_t *request;
int *iinfo;
int info;
......@@ -86,14 +84,11 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
UNPACK_VALUE, &ib,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_VALUE, &sequence,
UNPACK_VALUE, &request,
UNPACK_VALUE, &iinfo
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
CORE_zgetrf_nopiv(*m, *n, *ib, A, *lda, &info);
......@@ -111,10 +106,8 @@ void MORSE_TASK_zgetrf_nopiv(MORSE_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
sizeof(int), &lda, VALUE,
sizeof(MORSE_sequence_t*), &(options->sequence), VALUE,
sizeof(MORSE_request_t*), &(options->request), VALUE,
sizeof(int), &iinfo, VALUE,
0);
}
......@@ -35,12 +35,12 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
int *M;
int *N;
MORSE_Complex64_t *alpha;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *LDA;
dague_data_copy_t *gB;
MORSE_Complex64_t *B;
int *LDB;
MORSE_Complex64_t *beta;
dague_data_copy_t *gC;
MORSE_Complex64_t *C;
int *LDC;
dague_dtd_unpack_args(this_task,
......@@ -49,18 +49,15 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
UNPACK_VALUE, &M,
UNPACK_VALUE, &N,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &LDA,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &LDB,
UNPACK_VALUE, &beta,
UNPACK_DATA, &gC,
UNPACK_DATA, &C,
UNPACK_VALUE, &LDC
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *B = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gB);
void *C = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gC);
CORE_zhemm(*side, *uplo, *M, *N,
*alpha, A, *LDA,
......
......@@ -35,12 +35,12 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int *n;
int *k;
MORSE_Complex64_t *alpha;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gB;
MORSE_Complex64_t *B;
int *ldb;
double *beta;
dague_data_copy_t *gC;
MORSE_Complex64_t *C;
int *ldc;
dague_dtd_unpack_args(this_task,
......@@ -49,18 +49,15 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
UNPACK_VALUE, &n,
UNPACK_VALUE, &k,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &ldb,
UNPACK_VALUE, &beta,
UNPACK_DATA, &gC,
UNPACK_DATA, &C,
UNPACK_VALUE, &ldc
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *B = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gB);
void *C = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gC);
CORE_zher2k(*uplo, *trans, *n, *k,
*alpha, A, *lda,
......@@ -94,4 +91,3 @@ void MORSE_TASK_zher2k(MORSE_option_t *options,
sizeof(int), &ldc, VALUE,
0);
}
......@@ -36,10 +36,10 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
int *n;
int *k;
double *alpha;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
double *beta;
dague_data_copy_t *gC;
MORSE_Complex64_t *C;
int *ldc;
dague_dtd_unpack_args(this_task,
......@@ -48,15 +48,13 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
UNPACK_VALUE, &n,
UNPACK_VALUE, &k,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_VALUE, &beta,
UNPACK_DATA, &gC,
UNPACK_DATA, &C,
UNPACK_VALUE, &ldc
);
void *A = DAGUE_DATA_COPY_GET_PTR(gA);
void *C = DAGUE_DATA_COPY_GET_PTR(gC);
CORE_zherk(*uplo, *trans, *n, *k,
*alpha, A, *lda,
......
......@@ -27,21 +27,18 @@ CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
{
MORSE_enum *uplo;
int *n;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gSCALESUMSQ;
double *SCALESUMSQ;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &n,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gSCALESUMSQ
UNPACK_DATA, &SCALESUMSQ
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *SCALESUMSQ = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gSCALESUMSQ);
CORE_zhessq( *uplo, *n, A, *lda, &SCALESUMSQ[0], &SCALESUMSQ[1]);
return 0;
......@@ -57,8 +54,8 @@ void MORSE_TASK_zhessq( MORSE_option_t *options,
insert_task_generic_fptr(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,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, MORSE_Complex64_t, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | REGION_FULL,
0);
}
......@@ -33,23 +33,21 @@ CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *
MORSE_enum *uplo;
int *M;
int *N;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *LDA;
dague_data_copy_t *gB;
MORSE_Complex64_t *B;
int *LDB;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &M,
UNPACK_VALUE, &N,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &LDA,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &LDB
);
MORSE_Complex64_t *A = (MORSE_Complex64_t *)DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
MORSE_Complex64_t *B = (MORSE_Complex64_t *)DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gB);
CORE_zlacpy(*uplo, *M, *N, A, *LDA, B, *LDB);
......
......@@ -32,24 +32,21 @@ CORE_zlag2c_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
{
int *m;
int *n;
dague_data_copy_t *gA;
MORSE_Complex64_t *A;
int *lda;
dague_data_copy_t *gB;
MORSE_Complex32_t *B;
int *ldb;
int info;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &m,
UNPACK_VALUE, &n,
UNPACK_DATA, &gA,
UNPACK_DATA, &A,
UNPACK_VALUE, &lda,
UNPACK_DATA, &gB,
UNPACK_DATA, &B,
UNPACK_VALUE, &ldb,
);
void *A = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gA);
void *B = DAGUE_DATA_COPY_GET_PTR((dague_data_copy_t *)gB);
CORE_zlag2c( *m, *n, A, *lda, B, *ldb);
return 0;
......@@ -67,7 +64,7 @@ void MORSE_TASK_zlag2c(MORSE_option_t *options,
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,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex32_t, Bm, Bn ), OUTPUT | REGION_FULL