Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
4baa28e9
Commit
4baa28e9
authored
Sep 15, 2015
by
PRUVOST Florent
Browse files
update the runtimes interface to call only CORE_ functions from coreblas and not lapacke
parent
5822cb47
Changes
14
Hide whitespace changes
Inline
Side-by-side
runtime/quark/codelets/codelet_zgetrf.c
View file @
4baa28e9
...
...
@@ -65,7 +65,7 @@ void CORE_zgetrf_quark(Quark *quark)
int
info
;
quark_unpack_args_9
(
quark
,
m
,
n
,
A
,
lda
,
IPIV
,
sequence
,
request
,
check_info
,
iinfo
);
info
=
LAPACKE_zgetrf_work
(
LAPACK_COL_MAJOR
,
m
,
n
,
A
,
lda
,
IPIV
);
CORE_zgetrf
(
m
,
n
,
A
,
lda
,
IPIV
,
&
info
);
if
(
info
!=
MORSE_SUCCESS
&&
check_info
)
RUNTIME_sequence_flush
(
quark
,
sequence
,
request
,
iinfo
+
info
);
}
runtime/quark/codelets/codelet_zlacpy.c
View file @
4baa28e9
...
...
@@ -67,9 +67,6 @@ void CORE_zlacpy_quark(Quark *quark)
int
LDB
;
quark_unpack_args_7
(
quark
,
uplo
,
M
,
N
,
A
,
LDA
,
B
,
LDB
);
LAPACKE_zlacpy_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
M
,
N
,
A
,
LDA
,
B
,
LDB
);
CORE_zlacpy
(
uplo
,
M
,
N
,
A
,
LDA
,
B
,
LDB
);
}
runtime/quark/codelets/codelet_zlag2c.c
View file @
4baa28e9
...
...
@@ -68,7 +68,7 @@ void CORE_zlag2c_quark(Quark *quark)
int
info
;
quark_unpack_args_8
(
quark
,
m
,
n
,
A
,
lda
,
B
,
ldb
,
sequence
,
request
);
info
=
LAPACKE_zlag2c_work
(
LAPACK_COL_MAJOR
,
m
,
n
,
A
,
lda
,
B
,
ldb
);
CORE_zlag2c
(
m
,
n
,
A
,
lda
,
B
,
ldb
);
if
(
sequence
->
status
==
MORSE_SUCCESS
&&
info
!=
0
)
RUNTIME_sequence_flush
(
quark
,
sequence
,
request
,
info
);
}
...
...
@@ -105,6 +105,6 @@ void CORE_clag2z_quark(Quark *quark)
int
ldb
;
quark_unpack_args_6
(
quark
,
m
,
n
,
A
,
lda
,
B
,
ldb
);
LAPACK
E_clag2z
_work
(
LAPACK_COL_MAJOR
,
m
,
n
,
A
,
lda
,
B
,
ldb
);
COR
E_clag2z
(
m
,
n
,
A
,
lda
,
B
,
ldb
);
}
runtime/quark/codelets/codelet_zlaset.c
View file @
4baa28e9
...
...
@@ -97,8 +97,5 @@ void CORE_zlaset_quark(Quark *quark)
int
LDA
;
quark_unpack_args_7
(
quark
,
uplo
,
M
,
N
,
alpha
,
beta
,
A
,
LDA
);
LAPACKE_zlaset_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
M
,
N
,
alpha
,
beta
,
A
,
LDA
);
CORE_zlaset
(
uplo
,
M
,
N
,
alpha
,
beta
,
A
,
LDA
);
}
runtime/quark/codelets/codelet_zlauum.c
View file @
4baa28e9
...
...
@@ -60,5 +60,5 @@ void CORE_zlauum_quark(Quark *quark)
int
LDA
;
quark_unpack_args_4
(
quark
,
uplo
,
N
,
A
,
LDA
);
LAPACK
E_zlauum
_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
)
,
N
,
A
,
LDA
);
COR
E_zlauum
(
uplo
,
N
,
A
,
LDA
);
}
runtime/quark/codelets/codelet_zpotrf.c
View file @
4baa28e9
...
...
@@ -69,10 +69,7 @@ void CORE_zpotrf_quark(Quark *quark)
int
info
;
quark_unpack_args_7
(
quark
,
uplo
,
n
,
A
,
lda
,
sequence
,
request
,
iinfo
);
info
=
LAPACKE_zpotrf_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
n
,
A
,
lda
);
CORE_zpotrf
(
uplo
,
n
,
A
,
lda
,
&
info
);
if
(
sequence
->
status
==
MORSE_SUCCESS
&&
info
!=
0
)
RUNTIME_sequence_flush
(
quark
,
sequence
,
request
,
iinfo
+
info
);
}
runtime/quark/codelets/codelet_ztrtri.c
View file @
4baa28e9
...
...
@@ -72,10 +72,7 @@ void CORE_ztrtri_quark(Quark *quark)
int
info
;
quark_unpack_args_8
(
quark
,
uplo
,
diag
,
N
,
A
,
LDA
,
sequence
,
request
,
iinfo
);
info
=
LAPACKE_ztrtri_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
morse_lapack_const
(
diag
),
N
,
A
,
LDA
);
CORE_ztrtri
(
uplo
,
diag
,
N
,
A
,
LDA
,
&
info
);
if
((
sequence
->
status
==
MORSE_SUCCESS
)
&&
(
info
>
0
))
RUNTIME_sequence_flush
(
quark
,
sequence
,
request
,
iinfo
+
info
);
}
runtime/starpu/codelets/codelet_zgetrf.c
View file @
4baa28e9
...
...
@@ -71,7 +71,7 @@ static void cl_zgetrf_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
m
,
&
n
,
&
lda
,
&
IPIV
,
&
check_info
,
&
iinfo
);
info
=
LAPACKE_zgetrf_work
(
LAPACK_COL_MAJOR
,
m
,
n
,
A
,
lda
,
IPIV
);
CORE_zgetrf
(
m
,
n
,
A
,
lda
,
IPIV
,
&
info
);
}
/*
* Codelet definition
...
...
runtime/starpu/codelets/codelet_zlacpy.c
View file @
4baa28e9
...
...
@@ -79,10 +79,7 @@ static void cl_zlacpy_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
B
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
1
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
uplo
,
&
M
,
&
N
,
&
LDA
,
&
LDB
);
LAPACKE_zlacpy_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
M
,
N
,
A
,
LDA
,
B
,
LDB
);
CORE_zlacpy
(
uplo
,
M
,
N
,
A
,
LDA
,
B
,
LDB
);
}
/*
...
...
runtime/starpu/codelets/codelet_zlag2c.c
View file @
4baa28e9
...
...
@@ -73,7 +73,7 @@ static void cl_zlag2c_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
B
=
(
MORSE_Complex32_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
1
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
m
,
&
n
,
&
lda
,
&
ldb
);
LAPACK
E_zlag2c
_work
(
LAPACK_COL_MAJOR
,
m
,
n
,
A
,
lda
,
B
,
ldb
);
COR
E_zlag2c
(
m
,
n
,
A
,
lda
,
B
,
ldb
);
}
void
MORSE_TASK_clag2z
(
MORSE_option_t
*
options
,
...
...
@@ -115,7 +115,7 @@ static void cl_clag2z_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex32_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
B
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
1
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
m
,
&
n
,
&
lda
,
&
ldb
);
LAPACK
E_clag2z
_work
(
LAPACK_COL_MAJOR
,
m
,
n
,
A
,
lda
,
B
,
ldb
);
COR
E_clag2z
(
m
,
n
,
A
,
lda
,
B
,
ldb
);
}
/*
...
...
runtime/starpu/codelets/codelet_zlaset.c
View file @
4baa28e9
...
...
@@ -107,10 +107,7 @@ static void cl_zlaset_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
uplo
,
&
M
,
&
N
,
&
alpha
,
&
beta
,
&
LDA
);
LAPACKE_zlaset_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
M
,
N
,
alpha
,
beta
,
A
,
LDA
);
CORE_zlaset
(
uplo
,
M
,
N
,
alpha
,
beta
,
A
,
LDA
);
}
/*
* Codelet definition
...
...
runtime/starpu/codelets/codelet_zlauum.c
View file @
4baa28e9
...
...
@@ -70,7 +70,7 @@ static void cl_zlauum_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
uplo
,
&
N
,
&
LDA
);
LAPACK
E_zlauum
_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
)
,
N
,
A
,
LDA
);
COR
E_zlauum
(
uplo
,
N
,
A
,
LDA
);
}
#if defined(CHAMELEON_USE_MAGMA)
...
...
runtime/starpu/codelets/codelet_zpotrf.c
View file @
4baa28e9
...
...
@@ -76,10 +76,7 @@ static void cl_zpotrf_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
uplo
,
&
n
,
&
lda
,
&
iinfo
);
info
=
LAPACKE_zpotrf_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
n
,
A
,
lda
);
CORE_zpotrf
(
uplo
,
n
,
A
,
lda
,
&
info
);
}
#ifdef CHAMELEON_USE_MAGMA
...
...
runtime/starpu/codelets/codelet_ztrtri.c
View file @
4baa28e9
...
...
@@ -78,10 +78,7 @@ static void cl_ztrtri_cpu_func(void *descr[], void *cl_arg)
A
=
(
MORSE_Complex64_t
*
)
STARPU_MATRIX_GET_PTR
(
descr
[
0
]);
starpu_codelet_unpack_args
(
cl_arg
,
&
uplo
,
&
diag
,
&
N
,
&
LDA
,
&
iinfo
);
info
=
LAPACKE_ztrtri_work
(
LAPACK_COL_MAJOR
,
morse_lapack_const
(
uplo
),
morse_lapack_const
(
diag
),
N
,
A
,
LDA
);
CORE_ztrtri
(
uplo
,
diag
,
N
,
A
,
LDA
,
&
info
);
}
#if defined(CHAMELEON_USE_MAGMA)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment