Commit de9035f4 authored by THIBAULT Samuel's avatar THIBAULT Samuel
Browse files

constify desc parameter in task functions

parent a651c05f
......@@ -29,8 +29,8 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_LANTR;
......
......@@ -70,7 +70,7 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_LASET;
......
......@@ -67,7 +67,7 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_LASET;
......
......@@ -39,7 +39,7 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_LAUUM;
......
......@@ -180,10 +180,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)
{
QUARK_Insert_Task(opt->quark, CORE_zpamm_quark, (Quark_Task_Flags*)opt,
sizeof(int), &op, VALUE,
......
......@@ -33,7 +33,7 @@
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 )
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
......
......@@ -33,7 +33,7 @@
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 )
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
......
......@@ -33,7 +33,7 @@
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 )
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
......
......@@ -59,8 +59,8 @@
*
*/
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 )
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
QUARK_Insert_Task(opt->quark, CORE_zplssq_quark, (Quark_Task_Flags*)opt,
......@@ -86,7 +86,7 @@ void CORE_zplssq_quark(Quark *quark)
}
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 )
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
QUARK_Insert_Task(opt->quark, CORE_zplssq2_quark, (Quark_Task_Flags*)opt,
......
......@@ -39,7 +39,7 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
......
......@@ -104,10 +104,10 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
......
......@@ -39,9 +39,9 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_SYMM;
......
......@@ -39,9 +39,9 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_SYR2K;
......
......@@ -39,8 +39,8 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_SYRK;
......
......@@ -28,8 +28,8 @@
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 )
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
QUARK_Insert_Task(opt->quark, CORE_zsyssq_quark, (Quark_Task_Flags*)opt,
......
......@@ -33,7 +33,7 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
......
......@@ -31,7 +31,7 @@
**/
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
QUARK_Insert_Task(opt->quark, CORE_ztile_zero_quark, (Quark_Task_Flags*)opt,
......
......@@ -106,8 +106,8 @@ void CORE_ztradd_quark(Quark *quark)
******************************************************************************/
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_GEADD;
......
......@@ -28,8 +28,8 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
int szeW = uplo == MorseRowwise ? M : N ;
......
......@@ -39,8 +39,8 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_TRMM;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment