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

constify desc parameter in task functions

parent a651c05f
......@@ -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
void MORSE_TASK_ztrssq( const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum diag,
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);
......
......@@ -51,7 +51,7 @@ CORE_ztrtri_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztrtri(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum diag,
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);
......
......@@ -59,9 +59,9 @@ CORE_ztslqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztslqt(const MORSE_option_t *options,
int m, int n, 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 *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -77,10 +77,10 @@ CORE_ztsmlq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztsmlq(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
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 *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
int ldwork = side == MorseLeft ? ib : nb;
......
......@@ -75,10 +75,10 @@ CORE_ztsmqr_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztsmqr(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
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 *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
int ldwork = side == MorseLeft ? ib : nb;
......
......@@ -59,9 +59,9 @@ CORE_ztsqrt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztsqrt(const MORSE_option_t *options,
int m, int n, 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 *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -69,9 +69,9 @@ CORE_ztstrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_ztstrf(const MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *U, int Um, int Un, int ldu,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *L, int Lm, int Ln, int ldl,
const MORSE_desc_t *U, int Um, int Un, int ldu,
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)
{
......
......@@ -59,9 +59,9 @@ CORE_zttlqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zttlqt(const MORSE_option_t *options,
int m, int n, 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 *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -74,10 +74,10 @@ CORE_zttmlq_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zttmlq(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
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 *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
int ldwork = side == MorseLeft ? ib : nb;
......
......@@ -77,10 +77,10 @@ CORE_zttmqr_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zttmqr(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
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 *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
int ldwork = side == MorseLeft ? ib : nb;
......
......@@ -60,9 +60,9 @@ CORE_zttqrt_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zttqrt(const MORSE_option_t *options,
int m, int n, 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 *T, int Tm, int Tn, int ldt)
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 *T, int Tm, int Tn, int ldt)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
......@@ -67,9 +67,9 @@ CORE_zunmlq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zunmlq(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m, int n, int k, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt,
MORSE_desc_t *C, int Cm, int Cn, int ldc)
const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -67,9 +67,9 @@ CORE_zunmqr_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zunmqr(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m, int n, int k, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt,
MORSE_desc_t *C, int Cm, int Cn, int ldc)
const MORSE_desc_t *A, int Am, int An, int lda,
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);
......
......@@ -27,7 +27,7 @@
#include "runtime/quark/include/morse_quark.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;
......
......@@ -28,8 +28,8 @@
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)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_ASUM;
......
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