Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
6e2d7fca
Commit
6e2d7fca
authored
Dec 12, 2017
by
Mathieu Faverge
Browse files
Fix naming in codelets
parent
9ada5c5a
Changes
63
Hide whitespace changes
Inline
Side-by-side
runtime/parsec/codelets/codelet_zasum.c
View file @
6e2d7fca
...
...
@@ -25,8 +25,8 @@
#include
"coreblas/coreblas_z.h"
static
int
CORE_dzasum_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_dzasum_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
storev
;
MORSE_enum
*
uplo
;
...
...
@@ -36,7 +36,7 @@ CORE_dzasum_parsec(dague_execution_unit_t *context,
int
*
lda
;
double
*
work
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
storev
,
UNPACK_VALUE
,
&
uplo
,
...
...
@@ -56,10 +56,10 @@ void MORSE_TASK_dzasum(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_dzasum_parsec
,
"zasum"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_dzasum_parsec
,
options
->
priority
,
"zasum"
,
sizeof
(
MORSE_enum
),
&
storev
,
VALUE
,
sizeof
(
MORSE_enum
),
&
uplo
,
VALUE
,
sizeof
(
int
),
&
M
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zaxpy.c
View file @
6e2d7fca
...
...
@@ -25,7 +25,7 @@
#include
"coreblas/coreblas_z.h"
static
int
CORE_zaxpy_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zaxpy_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
M
;
MORSE_Complex64_t
*
alpha
;
...
...
@@ -34,7 +34,7 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t
*
B
;
int
*
incB
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
M
,
UNPACK_VALUE
,
&
alpha
,
...
...
@@ -53,10 +53,10 @@ void MORSE_TASK_zaxpy(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zaxpy_parsec
,
"axpy"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zaxpy_parsec
,
options
->
priority
,
"axpy"
,
sizeof
(
int
),
&
M
,
VALUE
,
sizeof
(
MORSE_Complex64_t
),
&
alpha
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
A
,
MORSE_Complex64_t
,
Am
,
An
),
INPUT
|
REGION_FULL
,
...
...
runtime/parsec/codelets/codelet_zbuild.c
View file @
6e2d7fca
...
...
@@ -27,8 +27,8 @@
#include
"coreblas/coreblas_z.h"
static
inline
int
CORE_zbuild_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zbuild_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_Complex64_t
*
A
;
int
lda
;
...
...
@@ -36,7 +36,7 @@ CORE_zbuild_parsec(dague_execution_unit_t *context,
void
(
*
user_build_callback
)(
int
row_min
,
int
row_max
,
int
col_min
,
int
col_max
,
void
*
buffer
,
int
ld
,
void
*
user_data
)
;
int
row_min
,
row_max
,
col_min
,
col_max
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
row_min
,
UNPACK_VALUE
,
&
row_max
,
...
...
@@ -56,15 +56,15 @@ void MORSE_TASK_zbuild( const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
int
row_min
,
row_max
,
col_min
,
col_max
;
row_min
=
Am
*
A
->
mb
;
row_max
=
Am
==
A
->
mt
-
1
?
A
->
m
-
1
:
row_min
+
A
->
mb
-
1
;
col_min
=
An
*
A
->
nb
;
col_max
=
An
==
A
->
nt
-
1
?
A
->
n
-
1
:
col_min
+
A
->
nb
-
1
;
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zbuild_parsec
,
"zbuild"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zbuild_parsec
,
options
->
priority
,
"zbuild"
,
sizeof
(
int
),
&
row_min
,
VALUE
,
sizeof
(
int
),
&
row_max
,
VALUE
,
sizeof
(
int
),
&
col_min
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zgeadd.c
View file @
6e2d7fca
...
...
@@ -30,7 +30,7 @@
#include
"coreblas/coreblas_z.h"
static
int
CORE_zgeadd_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgeadd_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
trans
;
int
*
M
;
...
...
@@ -42,7 +42,7 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t
*
B
;
int
*
LDB
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
trans
,
UNPACK_VALUE
,
&
M
,
...
...
@@ -118,10 +118,10 @@ void MORSE_TASK_zgeadd(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgeadd_parsec
,
"geadd"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgeadd_parsec
,
options
->
priority
,
"geadd"
,
sizeof
(
MORSE_enum
),
&
trans
,
VALUE
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zgelqt.c
View file @
6e2d7fca
...
...
@@ -86,7 +86,7 @@
*
******************************************************************************/
static
int
CORE_zgelqt_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgelqt_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -98,7 +98,7 @@ CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t
*
TAU
;
MORSE_Complex64_t
*
WORK
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -120,10 +120,10 @@ void MORSE_TASK_zgelqt(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgelqt_parsec
,
"gelqt"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgelqt_parsec
,
options
->
priority
,
"gelqt"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
ib
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zgemm.c
View file @
6e2d7fca
...
...
@@ -30,8 +30,8 @@
*
**/
static
int
CORE_zgemm_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgemm_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
transA
;
MORSE_enum
*
transB
;
...
...
@@ -47,7 +47,7 @@ CORE_zgemm_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t
*
C
;
int
*
ldc
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
transA
,
UNPACK_VALUE
,
&
transB
,
...
...
@@ -78,22 +78,22 @@ void MORSE_TASK_zgemm(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgemm_parsec
,
"Gemm"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgemm_parsec
,
options
->
priority
,
"Gemm"
,
sizeof
(
MORSE_enum
),
&
transA
,
VALUE
,
sizeof
(
MORSE_enum
),
&
transB
,
VALUE
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
k
,
VALUE
,
sizeof
(
MORSE_Complex64_t
),
&
alpha
,
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
|
morse_parsec_get_arena_index
(
A
)
,
sizeof
(
int
),
&
lda
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
B
,
MORSE_Complex64_t
,
Bm
,
Bn
),
INPUT
|
REGION_FULL
,
PASSED_BY_REF
,
RTBLKADDR
(
B
,
MORSE_Complex64_t
,
Bm
,
Bn
),
INPUT
|
morse_parsec_get_arena_index
(
B
)
,
sizeof
(
int
),
&
ldb
,
VALUE
,
sizeof
(
MORSE_Complex64_t
),
&
beta
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
C
,
MORSE_Complex64_t
,
Cm
,
Cn
),
INOUT
|
REGION_FULL
,
PASSED_BY_REF
,
RTBLKADDR
(
C
,
MORSE_Complex64_t
,
Cm
,
Cn
),
INOUT
|
morse_parsec_get_arena_index
(
C
)
|
AFFINITY
,
sizeof
(
int
),
&
ldc
,
VALUE
,
0
);
}
runtime/parsec/codelets/codelet_zgeqrt.c
View file @
6e2d7fca
...
...
@@ -87,7 +87,7 @@
*
******************************************************************************/
static
int
CORE_zgeqrt_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgeqrt_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -99,7 +99,7 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
MORSE_Complex64_t
*
TAU
;
MORSE_Complex64_t
*
WORK
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -121,10 +121,10 @@ void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgeqrt_parsec
,
"geqrt"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgeqrt_parsec
,
options
->
priority
,
"geqrt"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
ib
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zgessm.c
View file @
6e2d7fca
...
...
@@ -70,7 +70,7 @@
*
******************************************************************************/
static
int
CORE_zgessm_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgessm_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -84,7 +84,7 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t
*
A
;
int
*
lda
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -110,10 +110,10 @@ void MORSE_TASK_zgessm(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgessm_parsec
,
"gessm"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgessm_parsec
,
options
->
priority
,
"gessm"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
k
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zgessq.c
View file @
6e2d7fca
...
...
@@ -25,7 +25,7 @@
#include
"coreblas/coreblas_z.h"
static
int
CORE_zgessq_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgessq_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -33,7 +33,7 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int
*
lda
;
double
*
SCALESUMSQ
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -51,10 +51,10 @@ void MORSE_TASK_zgessq( const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgessq_parsec
,
"gessq"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgessq_parsec
,
options
->
priority
,
"gessq"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
A
,
MORSE_Complex64_t
,
Am
,
An
),
INPUT
|
REGION_FULL
,
...
...
runtime/parsec/codelets/codelet_zgetrf.c
View file @
6e2d7fca
...
...
@@ -25,7 +25,7 @@
#include
"coreblas/coreblas_z.h"
static
int
CORE_zgetrf_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgetrf_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -36,7 +36,7 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
int
*
iinfo
;
int
info
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -57,10 +57,10 @@ void MORSE_TASK_zgetrf(const MORSE_option_t *options,
int
*
IPIV
,
MORSE_bool
check_info
,
int
iinfo
)
{
dague_dtd_handle_t
*
DAGUE_dtd_handle
=
(
dague_dtd_handle
_t
*
)(
options
->
sequence
->
schedopt
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgetrf_parsec
,
"getrf"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgetrf_parsec
,
options
->
priority
,
"getrf"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
A
,
MORSE_Complex64_t
,
Am
,
An
),
INOUT
|
REGION_FULL
,
...
...
runtime/parsec/codelets/codelet_zgetrf_incpiv.c
View file @
6e2d7fca
...
...
@@ -79,7 +79,7 @@
*
******************************************************************************/
static
int
CORE_zgetrf_incpiv_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgetrf_incpiv_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -92,7 +92,7 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
int
info
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -115,10 +115,10 @@ void MORSE_TASK_zgetrf_incpiv(const MORSE_option_t *options,
int
*
IPIV
,
MORSE_bool
check_info
,
int
iinfo
)
{
dague_dtd_handle_t
*
DAGUE_dtd_handle
=
(
dague_dtd_handle
_t
*
)(
options
->
sequence
->
schedopt
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgetrf_incpiv_parsec
,
"getrf_inc"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgetrf_incpiv_parsec
,
options
->
priority
,
"getrf_inc"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
ib
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zgetrf_nopiv.c
View file @
6e2d7fca
...
...
@@ -72,7 +72,7 @@
*
******************************************************************************/
static
int
CORE_zgetrf_nopiv_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zgetrf_nopiv_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
int
*
m
;
int
*
n
;
...
...
@@ -82,7 +82,7 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
int
*
iinfo
;
int
info
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
m
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -101,10 +101,10 @@ void MORSE_TASK_zgetrf_nopiv(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zgetrf_nopiv_parsec
,
"getrf_nopiv"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zgetrf_nopiv_parsec
,
options
->
priority
,
"getrf_nopiv"
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
ib
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zhe2ge.c
View file @
6e2d7fca
...
...
@@ -30,8 +30,8 @@
*
**/
static
inline
int
CORE_zhe2ge_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zhe2ge_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
uplo
;
int
*
M
;
...
...
@@ -41,7 +41,7 @@ CORE_zhe2ge_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t
*
B
;
int
*
LDB
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
uplo
,
UNPACK_VALUE
,
&
M
,
...
...
@@ -61,10 +61,10 @@ void MORSE_TASK_zhe2ge(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zhe2ge_parsec
,
"he2ge"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zhe2ge_parsec
,
options
->
priority
,
"he2ge"
,
sizeof
(
MORSE_enum
),
&
uplo
,
VALUE
,
sizeof
(
int
),
&
m
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zhemm.c
View file @
6e2d7fca
...
...
@@ -30,7 +30,7 @@
*
**/
static
int
CORE_zhemm_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zhemm_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
side
;
MORSE_enum
*
uplo
;
...
...
@@ -45,7 +45,7 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
MORSE_Complex64_t
*
C
;
int
*
LDC
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
side
,
UNPACK_VALUE
,
&
uplo
,
...
...
@@ -75,10 +75,10 @@ void MORSE_TASK_zhemm(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zhemm_parsec
,
"hemm"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zhemm_parsec
,
options
->
priority
,
"hemm"
,
sizeof
(
MORSE_enum
),
&
side
,
VALUE
,
sizeof
(
MORSE_enum
),
&
uplo
,
VALUE
,
sizeof
(
int
),
&
m
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zher2k.c
View file @
6e2d7fca
...
...
@@ -30,7 +30,7 @@
*
**/
static
int
CORE_zher2k_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zher2k_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
uplo
;
MORSE_enum
*
trans
;
...
...
@@ -45,7 +45,7 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
MORSE_Complex64_t
*
C
;
int
*
ldc
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
uplo
,
UNPACK_VALUE
,
&
trans
,
...
...
@@ -75,21 +75,21 @@ void MORSE_TASK_zher2k(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zher2k_parsec
,
"her2k"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zher2k_parsec
,
options
->
priority
,
"her2k"
,
sizeof
(
MORSE_enum
),
&
uplo
,
VALUE
,
sizeof
(
MORSE_enum
),
&
trans
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
k
,
VALUE
,
sizeof
(
MORSE_Complex64_t
),
&
alpha
,
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
|
morse_parsec_get_arena_index
(
A
)
,
sizeof
(
int
),
&
lda
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
B
,
MORSE_Complex64_t
,
Bm
,
Bn
),
INPUT
|
REGION_FULL
,
PASSED_BY_REF
,
RTBLKADDR
(
B
,
MORSE_Complex64_t
,
Bm
,
Bn
),
INPUT
|
morse_parsec_get_arena_index
(
B
)
,
sizeof
(
int
),
&
ldb
,
VALUE
,
sizeof
(
double
),
&
beta
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
C
,
MORSE_Complex64_t
,
Cm
,
Cn
),
INOUT
|
REGION_FULL
,
PASSED_BY_REF
,
RTBLKADDR
(
C
,
MORSE_Complex64_t
,
Cm
,
Cn
),
INOUT
|
morse_parsec_get_arena_index
(
C
)
|
AFFINITY
,
sizeof
(
int
),
&
ldc
,
VALUE
,
0
);
}
runtime/parsec/codelets/codelet_zherfb.c
View file @
6e2d7fca
...
...
@@ -27,8 +27,8 @@
#include
"coreblas/coreblas_z.h"
static
inline
int
CORE_zherfb_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zherfb_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
uplo
;
int
*
n
;
...
...
@@ -44,7 +44,7 @@ CORE_zherfb_parsec(dague_execution_unit_t *context,
MORSE_Complex64_t
*
WORK
;
int
*
ldwork
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
uplo
,
UNPACK_VALUE
,
&
n
,
...
...
@@ -72,20 +72,20 @@ void MORSE_TASK_zherfb(const MORSE_option_t *options,
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
);
parsec_taskpool_t
*
PARSEC_dtd_taskpool
=
(
parsec_taskpool
_t
*
)(
options
->
sequence
->
schedopt
);
dague
_insert_task
(
DAGUE_dtd_handle
,
CORE_zherfb_parsec
,
"herfb"
,
parsec_dtd_taskpool
_insert_task
(
PARSEC_dtd_taskpool
,
CORE_zherfb_parsec
,
options
->
priority
,
"herfb"
,
sizeof
(
MORSE_enum
),
&
uplo
,
VALUE
,
sizeof
(
int
),
&
n
,
VALUE
,
sizeof
(
int
),
&
k
,
VALUE
,
sizeof
(
int
),
&
ib
,
VALUE
,
sizeof
(
int
),
&
nb
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
A
,
MORSE_Complex64_t
,
Am
,
An
),
(
uplo
==
MorseUpper
)
?
INOUT
|
REGION_
U
:
INOUT
|
REGION_L
,
PASSED_BY_REF
,
RTBLKADDR
(
A
,
MORSE_Complex64_t
,
Am
,
An
),
(
uplo
==
MorseUpper
)
?
INOUT
|
REGION_
FULL
:
INOUT
|
REGION_
FUL
L
,
sizeof
(
int
),
&
lda
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
T
,
MORSE_Complex64_t
,
Tm
,
Tn
),
INPUT
|
REGION_FULL
,
sizeof
(
int
),
&
ldt
,
VALUE
,
PASSED_BY_REF
,
RTBLKADDR
(
C
,
MORSE_Complex64_t
,
Cm
,
Cn
),
(
uplo
==
MorseUpper
)
?
INOUT
|
REGION_
D
|
REGION_U
:
INOUT
|
REGION_
D
|
REGION_
L
,
PASSED_BY_REF
,
RTBLKADDR
(
C
,
MORSE_Complex64_t
,
Cm
,
Cn
),
(
uplo
==
MorseUpper
)
?
INOUT
|
REGION_
FULL
:
INOUT
|
REGION_
FUL
L
,
sizeof
(
int
),
&
ldc
,
VALUE
,
sizeof
(
MORSE_Complex64_t
)
*
2
*
nb
*
nb
,
NULL
,
SCRATCH
,
sizeof
(
int
),
&
nb
,
VALUE
,
...
...
runtime/parsec/codelets/codelet_zherk.c
View file @
6e2d7fca
...
...
@@ -31,7 +31,7 @@
**/
static
int
CORE_zherk_parsec
(
dague
_execution_
unit
_t
*
context
,
dague_execution_context
_t
*
this_task
)
CORE_zherk_parsec
(
parsec
_execution_
stream
_t
*
context
,
parsec_task
_t
*
this_task
)
{
MORSE_enum
*
uplo
;
MORSE_enum
*
trans
;
...
...
@@ -44,7 +44,7 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
MORSE_Complex64_t
*
C
;
int
*
ldc
;
dague
_dtd_unpack_args
(
parsec
_dtd_unpack_args
(
this_task
,
UNPACK_VALUE
,
&
uplo
,
UNPACK_VALUE
,
&
trans
,
...