Commit de9035f4 authored by THIBAULT Samuel's avatar THIBAULT Samuel

constify desc parameter in task functions

parent a651c05f
......@@ -150,22 +150,22 @@ void RUNTIME_sdisplay_oneprofile (MORSE_kernel_t);
void MORSE_TASK_ztile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda);
const MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_dtile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda);
const MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_ctile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda);
const MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_stile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda);
const MORSE_desc_t *A, int Am, int An, int lda);
/*
* Mark a data as unused after this call
*/
void MORSE_TASK_dataflush(const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An);
const MORSE_desc_t *A, int Am, int An);
void MORSE_TASK_dataflush_all();
#endif
This diff is collapsed.
......@@ -23,7 +23,7 @@
#include "runtime/parsec/include/morse_parsec.h"
void MORSE_TASK_dataflush(const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An)
const MORSE_desc_t *A, int Am, int An)
{
(void)options; (void)A;
......
......@@ -50,8 +50,8 @@ CORE_dzasum_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_dzasum(const MORSE_option_t *options,
MORSE_enum storev, MORSE_enum uplo, int M, int N,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn)
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);
......
......@@ -49,8 +49,8 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zaxpy(const MORSE_option_t *options,
int M, MORSE_Complex64_t *alpha,
MORSE_desc_t *A, int Am, int An, int incA,
MORSE_desc_t *B, int Bm, int Bn, int incB)
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);
......
......@@ -51,7 +51,7 @@ CORE_zbuild_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
}
void MORSE_TASK_zbuild( const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -113,8 +113,8 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
******************************************************************************/
void MORSE_TASK_zgeadd(const MORSE_option_t *options,
MORSE_enum trans, int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *B, int Bm, int Bn, int ldb)
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);
......
......@@ -116,8 +116,8 @@ CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgelqt(const MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt)
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);
......
......@@ -71,9 +71,9 @@ CORE_zgemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zgemm(const MORSE_option_t *options,
MORSE_enum transA, int transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -117,8 +117,8 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt)
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);
......
......@@ -105,9 +105,9 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgessm(const MORSE_option_t *options,
int m, int n, int k, int ib, int nb,
int *IPIV,
MORSE_desc_t *L, int Lm, int Ln, int ldl,
MORSE_desc_t *D, int Dm, int Dn, int ldd,
MORSE_desc_t *A, int Am, int An, int lda)
const MORSE_desc_t *L, int Lm, int Ln, int ldl,
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);
......
......@@ -46,8 +46,8 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgessq( const MORSE_option_t *options,
int m, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
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);
......
......@@ -52,7 +52,7 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgetrf(const MORSE_option_t *options,
int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *A, int Am, int An, int lda,
int *IPIV,
MORSE_bool check_info, int iinfo)
{
......
......@@ -110,8 +110,8 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
void MORSE_TASK_zgetrf_incpiv(const MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *L, int Lm, int Ln, int ldl,
const MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
MORSE_bool check_info, int iinfo)
{
......
......@@ -97,7 +97,7 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
void MORSE_TASK_zgetrf_nopiv(const MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -70,9 +70,9 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zhemm(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -70,9 +70,9 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zher2k(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
double beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -66,8 +66,8 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
void MORSE_TASK_zherk(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
double alpha, MORSE_desc_t *A, int Am, int An, int lda,
double beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
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);
......
......@@ -46,8 +46,8 @@ CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zhessq( const MORSE_option_t *options,
MORSE_enum uplo, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
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);
......
......@@ -56,8 +56,8 @@ CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zlacpy(const MORSE_option_t *options,
MORSE_enum uplo, int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb)
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);
......
......@@ -54,8 +54,8 @@ CORE_zlag2c_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zlag2c(const MORSE_option_t *options,
int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb)
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);
......@@ -101,8 +101,8 @@ CORE_clag2z_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_clag2z(const MORSE_option_t *options,
int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb)
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);
......
......@@ -51,8 +51,8 @@ CORE_zlange_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zlange(const MORSE_option_t *options,
MORSE_enum norm, int M, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn)
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);
......@@ -89,8 +89,8 @@ CORE_zlange_max_parsec(dague_execution_unit_t *context, dague_execution_context_
}
void MORSE_TASK_zlange_max(const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An,
MORSE_desc_t *B, int Bm, int Bn)
const MORSE_desc_t *A, int Am, int An,
const MORSE_desc_t *B, int Bm, int Bn)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -50,8 +50,8 @@ CORE_zlanhe_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zlanhe(const MORSE_option_t *options,
MORSE_enum norm, MORSE_enum uplo, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn)
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);
......
......@@ -51,8 +51,8 @@ CORE_zlansy_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zlansy(const MORSE_option_t *options,
MORSE_enum norm, MORSE_enum uplo, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn)
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);
......
......@@ -53,8 +53,8 @@ CORE_zlantr_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zlantr(const MORSE_option_t *options,
MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
int M, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn)
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);
......
......@@ -88,7 +88,7 @@ CORE_zlaset_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zlaset(const MORSE_option_t *options,
MORSE_enum uplo, int M, int N,
MORSE_Complex64_t alpha, MORSE_Complex64_t beta,
MORSE_desc_t *A, int Am, int An, int LDA)
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);
......
......@@ -81,7 +81,7 @@ CORE_zlaset2_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zlaset2(const MORSE_option_t *options,
MORSE_enum uplo, int M, int N,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int LDA)
MORSE_Complex64_t alpha, 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);
......
......@@ -50,7 +50,7 @@ CORE_zlauum_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zlauum(const MORSE_option_t *options,
MORSE_enum uplo, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda)
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);
......
......@@ -212,10 +212,10 @@ void
MORSE_TASK_zpamm(const MORSE_option_t *options,
int op, MORSE_enum side, int storev,
int m, int n, int k, int l,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *W, int Wm, int Wn, int ldw)
const MORSE_desc_t *A1, int A1m, int A1n, int lda1,
const MORSE_desc_t *A2, int A2m, int A2n, int lda2,
const MORSE_desc_t *V, int Vm, int Vn, int ldv,
const MORSE_desc_t *W, int Wm, int Wn, int ldw)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -54,7 +54,7 @@ CORE_zplghe_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
}
void MORSE_TASK_zplghe( const MORSE_option_t *options,
double bump, int m, int n, MORSE_desc_t *A, int Am, int An, int lda,
double bump, int m, int n, const MORSE_desc_t *A, int Am, int An, int lda,
int bigM, int m0, int n0, unsigned long long int seed )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -53,7 +53,7 @@ CORE_zplgsy_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
}
void MORSE_TASK_zplgsy( const MORSE_option_t *options,
MORSE_Complex64_t bump, int m, int n, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t bump, int m, int n, const MORSE_desc_t *A, int Am, int An, int lda,
int bigM, int m0, int n0, unsigned long long int seed )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -52,7 +52,7 @@ CORE_zplrnt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
}
void MORSE_TASK_zplrnt( const MORSE_option_t *options,
int m, int n, MORSE_desc_t *A, int Am, int An, int lda,
int m, int n, const MORSE_desc_t *A, int Am, int An, int lda,
int bigM, int m0, int n0, unsigned long long int seed )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -76,8 +76,8 @@ CORE_zplssq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
}
void MORSE_TASK_zplssq( const MORSE_option_t *options,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn,
MORSE_desc_t *SCLSSQ, int SCLSSQm, int SCLSSQn )
const MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn,
const MORSE_desc_t *SCLSSQ, int SCLSSQm, int SCLSSQn )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......@@ -103,7 +103,7 @@ CORE_zplssq2_parsec(dague_execution_unit_t *context, dague_execution_context_t *
}
void MORSE_TASK_zplssq2( const MORSE_option_t *options,
MORSE_desc_t *RESULT, int RESULTm, int RESULTn )
const MORSE_desc_t *RESULT, int RESULTm, int RESULTn )
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -50,7 +50,7 @@ CORE_zpotrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zpotrf(const MORSE_option_t *options,
MORSE_enum uplo, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -67,10 +67,10 @@ CORE_zssssm_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zssssm(const MORSE_option_t *options,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *L1, int L1m, int L1n, int ldl1,
MORSE_desc_t *L2, int L2m, int L2n, int ldl2,
const MORSE_desc_t *A1, int A1m, int A1n, int lda1,
const MORSE_desc_t *A2, int A2m, int A2n, int lda2,
const MORSE_desc_t *L1, int L1m, int L1n, int ldl1,
const MORSE_desc_t *L2, int L2m, int L2n, int ldl2,
const int *IPIV)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -66,9 +66,9 @@ CORE_zsymm_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
void MORSE_TASK_zsymm(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -65,9 +65,9 @@ CORE_zsyr2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zsyr2k(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -60,8 +60,8 @@ CORE_zsyrk_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zsyrk(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc)
MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -47,8 +47,8 @@ CORE_zsyssq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zsyssq( const MORSE_option_t *options,
MORSE_enum uplo, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
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);
......
......@@ -48,7 +48,7 @@ CORE_zsytrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
void MORSE_TASK_zsytrf_nopiv(const MORSE_option_t *options,
MORSE_enum uplo, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -51,7 +51,7 @@ CORE_ztile_zero_parsec(dague_execution_unit_t *context, dague_execution_context_
void MORSE_TASK_ztile_zero(const const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda)
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);
......
......@@ -122,8 +122,8 @@ CORE_ztradd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
******************************************************************************/
void MORSE_TASK_ztradd(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans, int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *B, int Bm, int Bn, int ldb)
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);
......
......@@ -52,8 +52,8 @@ CORE_ztrasm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztrasm(const MORSE_option_t *options,
MORSE_enum storev, MORSE_enum uplo, MORSE_enum diag, int M, int N,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn)
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);
......
......@@ -64,8 +64,8 @@ CORE_ztrmm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_ztrmm(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum transA, MORSE_enum diag,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb)
MORSE_Complex64_t alpha, 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);
......
......@@ -55,8 +55,8 @@ CORE_ztrsm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_ztrsm(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum transA, MORSE_enum diag,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb)
MORSE_Complex64_t alpha, 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);
......
......@@ -52,8 +52,8 @@ CORE_ztrssq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t