Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 7cd326d1 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

codelet_zgemm: coding style

parent b2f35b56
No related branches found
No related tags found
1 merge request!336Add the A-stationnary symm and hemm (Works only for side == ChamLeft for now)
...@@ -23,11 +23,6 @@ ...@@ -23,11 +23,6 @@
#include "chameleon/tasks_z.h" #include "chameleon/tasks_z.h"
#include "coreblas/coreblas_z.h" #include "coreblas/coreblas_z.h"
/**
*
* @ingroup INSERT_TASK_Complex64_t
*
*/
static inline int static inline int
CORE_zgemm_parsec( parsec_execution_stream_t *context, CORE_zgemm_parsec( parsec_execution_stream_t *context,
parsec_task_t *this_task ) parsec_task_t *this_task )
...@@ -50,20 +45,21 @@ CORE_zgemm_parsec( parsec_execution_stream_t *context, ...@@ -50,20 +45,21 @@ CORE_zgemm_parsec( parsec_execution_stream_t *context,
this_task, &transA, &transB, &m, &n, &k, &alpha, &A, &lda, &B, &ldb, &beta, &C, &ldc ); this_task, &transA, &transB, &m, &n, &k, &alpha, &A, &lda, &B, &ldb, &beta, &C, &ldc );
CORE_zgemm( transA, transB, m, n, k, CORE_zgemm( transA, transB, m, n, k,
alpha, A, lda, alpha, A, lda,
B, ldb, B, ldb,
beta, C, ldc); beta, C, ldc );
(void)context; (void)context;
return PARSEC_HOOK_RETURN_DONE; return PARSEC_HOOK_RETURN_DONE;
} }
void INSERT_TASK_zgemm( const RUNTIME_option_t *options, void
cham_trans_t transA, cham_trans_t transB, INSERT_TASK_zgemm( const RUNTIME_option_t *options,
int m, int n, int k, int nb, cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An, int m, int n, int k, int nb,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn, const CHAM_desc_t *B, int Bm, int Bn,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn ) CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn )
{ {
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt); parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
CHAM_tile_t *tileA = A->get_blktile( A, Am, An ); CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
...@@ -71,7 +67,7 @@ void INSERT_TASK_zgemm( const RUNTIME_option_t *options, ...@@ -71,7 +67,7 @@ void INSERT_TASK_zgemm( const RUNTIME_option_t *options,
CHAM_tile_t *tileC = C->get_blktile( C, Cm, Cn ); CHAM_tile_t *tileC = C->get_blktile( C, Cm, Cn );
parsec_dtd_taskpool_insert_task( parsec_dtd_taskpool_insert_task(
PARSEC_dtd_taskpool, CORE_zgemm_parsec, options->priority, "Gemm", PARSEC_dtd_taskpool, CORE_zgemm_parsec, options->priority, "gemm",
sizeof(cham_trans_t), &transA, VALUE, sizeof(cham_trans_t), &transA, VALUE,
sizeof(cham_trans_t), &transB, VALUE, sizeof(cham_trans_t), &transB, VALUE,
sizeof(int), &m, VALUE, sizeof(int), &m, VALUE,
...@@ -95,7 +91,7 @@ INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options, ...@@ -95,7 +91,7 @@ INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options,
cham_trans_t transA, cham_trans_t transB, cham_trans_t transA, cham_trans_t transB,
int m, int n, int k, int nb, int m, int n, int k, int nb,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An, CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn, const CHAM_desc_t *B, int Bm, int Bn,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn ) CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn )
{ {
INSERT_TASK_zgemm( options, transA, transB, m, n, k, nb, INSERT_TASK_zgemm( options, transA, transB, m, n, k, nb,
......
...@@ -46,12 +46,13 @@ void CORE_zgemm_quark(Quark *quark) ...@@ -46,12 +46,13 @@ void CORE_zgemm_quark(Quark *quark)
beta, tileC ); beta, tileC );
} }
void INSERT_TASK_zgemm(const RUNTIME_option_t *options, void
cham_trans_t transA, cham_trans_t transB, INSERT_TASK_zgemm( const RUNTIME_option_t *options,
int m, int n, int k, int nb, cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An, int m, int n, int k, int nb,
const CHAM_desc_t *B, int Bm, int Bn, CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn) const CHAM_desc_t *B, int Bm, int Bn,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn )
{ {
if ( alpha == 0. ) { if ( alpha == 0. ) {
return INSERT_TASK_zlascal( options, ChamUpperLower, m, n, nb, return INSERT_TASK_zlascal( options, ChamUpperLower, m, n, nb,
...@@ -81,7 +82,7 @@ INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options, ...@@ -81,7 +82,7 @@ INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options,
cham_trans_t transA, cham_trans_t transB, cham_trans_t transA, cham_trans_t transB,
int m, int n, int k, int nb, int m, int n, int k, int nb,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An, CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn, const CHAM_desc_t *B, int Bm, int Bn,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn ) CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn )
{ {
INSERT_TASK_zgemm( options, transA, transB, m, n, k, nb, INSERT_TASK_zgemm( options, transA, transB, m, n, k, nb,
......
...@@ -87,8 +87,6 @@ cl_zgemm_cuda_func( void *descr[], void *cl_arg ) ...@@ -87,8 +87,6 @@ cl_zgemm_cuda_func( void *descr[], void *cl_arg )
(cuDoubleComplex*)&(clargs->beta), (cuDoubleComplex*)&(clargs->beta),
tileC->mat, tileC->ld, tileC->mat, tileC->ld,
handle ); handle );
return;
} }
#endif /* defined(CHAMELEON_USE_CUDA) */ #endif /* defined(CHAMELEON_USE_CUDA) */
#endif /* !defined(CHAMELEON_SIMULATION) */ #endif /* !defined(CHAMELEON_SIMULATION) */
...@@ -182,10 +180,7 @@ void INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options, ...@@ -182,10 +180,7 @@ void INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options,
#if defined(CHAMELEON_CODELETS_HAVE_NAME) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, cl_name, STARPU_NAME, cl_name,
#endif #endif
0 ); 0 );
(void)nb;
} }
void INSERT_TASK_zgemm( const RUNTIME_option_t *options, void INSERT_TASK_zgemm( const RUNTIME_option_t *options,
...@@ -260,8 +255,5 @@ void INSERT_TASK_zgemm( const RUNTIME_option_t *options, ...@@ -260,8 +255,5 @@ void INSERT_TASK_zgemm( const RUNTIME_option_t *options,
#if defined(CHAMELEON_CODELETS_HAVE_NAME) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, cl_name, STARPU_NAME, cl_name,
#endif #endif
0 ); 0 );
(void)nb;
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment