Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
ecbee0df
Commit
ecbee0df
authored
Jan 22, 2018
by
Mathieu Faverge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add descriptor declarations
parent
579dc09e
Changes
62
Hide whitespace changes
Inline
Side-by-side
Showing
62 changed files
with
120 additions
and
120 deletions
+120
-120
compute/zbuild.c
compute/zbuild.c
+1
-1
compute/zgeadd.c
compute/zgeadd.c
+2
-2
compute/zgelqf.c
compute/zgelqf.c
+1
-1
compute/zgelqf_param.c
compute/zgelqf_param.c
+1
-1
compute/zgelqs.c
compute/zgelqs.c
+2
-2
compute/zgelqs_param.c
compute/zgelqs_param.c
+2
-2
compute/zgels.c
compute/zgels.c
+2
-2
compute/zgels_param.c
compute/zgels_param.c
+2
-2
compute/zgemm.c
compute/zgemm.c
+3
-3
compute/zgeqrf.c
compute/zgeqrf.c
+1
-1
compute/zgeqrf_param.c
compute/zgeqrf_param.c
+1
-1
compute/zgeqrs.c
compute/zgeqrs.c
+2
-2
compute/zgeqrs_param.c
compute/zgeqrs_param.c
+2
-2
compute/zgesv_incpiv.c
compute/zgesv_incpiv.c
+2
-2
compute/zgesv_nopiv.c
compute/zgesv_nopiv.c
+2
-2
compute/zgesvd.c
compute/zgesvd.c
+6
-6
compute/zgetrf_incpiv.c
compute/zgetrf_incpiv.c
+1
-1
compute/zgetrf_nopiv.c
compute/zgetrf_nopiv.c
+1
-1
compute/zgetrs_incpiv.c
compute/zgetrs_incpiv.c
+2
-2
compute/zgetrs_nopiv.c
compute/zgetrs_nopiv.c
+2
-2
compute/zheevd.c
compute/zheevd.c
+4
-4
compute/zhemm.c
compute/zhemm.c
+3
-3
compute/zher2k.c
compute/zher2k.c
+3
-3
compute/zherk.c
compute/zherk.c
+2
-2
compute/zhetrd.c
compute/zhetrd.c
+3
-3
compute/zlacpy.c
compute/zlacpy.c
+2
-2
compute/zlange.c
compute/zlange.c
+1
-1
compute/zlanhe.c
compute/zlanhe.c
+1
-1
compute/zlansy.c
compute/zlansy.c
+1
-1
compute/zlantr.c
compute/zlantr.c
+1
-1
compute/zlascal.c
compute/zlascal.c
+2
-2
compute/zlaset.c
compute/zlaset.c
+1
-1
compute/zlauum.c
compute/zlauum.c
+1
-1
compute/zplghe.c
compute/zplghe.c
+1
-1
compute/zplgsy.c
compute/zplgsy.c
+1
-1
compute/zplrnt.c
compute/zplrnt.c
+1
-1
compute/zposv.c
compute/zposv.c
+2
-2
compute/zpotrf.c
compute/zpotrf.c
+2
-2
compute/zpotri.c
compute/zpotri.c
+1
-1
compute/zpotrimm.c
compute/zpotrimm.c
+3
-3
compute/zpotrs.c
compute/zpotrs.c
+2
-2
compute/zsymm.c
compute/zsymm.c
+3
-3
compute/zsyr2k.c
compute/zsyr2k.c
+3
-3
compute/zsyrk.c
compute/zsyrk.c
+2
-2
compute/zsysv.c
compute/zsysv.c
+2
-2
compute/zsytrf.c
compute/zsytrf.c
+1
-1
compute/zsytrs.c
compute/zsytrs.c
+2
-2
compute/ztpgqrt.c
compute/ztpgqrt.c
+4
-4
compute/ztpqrt.c
compute/ztpqrt.c
+2
-2
compute/ztradd.c
compute/ztradd.c
+2
-2
compute/ztrmm.c
compute/ztrmm.c
+2
-2
compute/ztrsm.c
compute/ztrsm.c
+2
-2
compute/ztrsmpl.c
compute/ztrsmpl.c
+2
-2
compute/ztrtri.c
compute/ztrtri.c
+1
-1
compute/zunglq.c
compute/zunglq.c
+2
-2
compute/zunglq_param.c
compute/zunglq_param.c
+2
-2
compute/zungqr.c
compute/zungqr.c
+2
-2
compute/zungqr_param.c
compute/zungqr_param.c
+2
-2
compute/zunmlq.c
compute/zunmlq.c
+2
-2
compute/zunmlq_param.c
compute/zunmlq_param.c
+2
-2
compute/zunmqr.c
compute/zunmqr.c
+2
-2
compute/zunmqr_param.c
compute/zunmqr_param.c
+2
-2
No files found.
compute/zbuild.c
View file @
ecbee0df
...
...
@@ -91,7 +91,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgeadd.c
View file @
ecbee0df
...
...
@@ -98,8 +98,8 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
int
NB
;
int
Am
,
An
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zgelqf.c
View file @
ecbee0df
...
...
@@ -84,7 +84,7 @@ int MORSE_zgelqf(int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgelqf_param.c
View file @
ecbee0df
...
...
@@ -81,7 +81,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgelqs.c
View file @
ecbee0df
...
...
@@ -91,8 +91,8 @@ int MORSE_zgelqs(int M, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgelqs_param.c
View file @
ecbee0df
...
...
@@ -93,8 +93,8 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgels.c
View file @
ecbee0df
...
...
@@ -118,8 +118,8 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgels_param.c
View file @
ecbee0df
...
...
@@ -120,8 +120,8 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgemm.c
View file @
ecbee0df
...
...
@@ -138,9 +138,9 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
int
NB
;
int
Am
,
An
,
Bm
,
Bn
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zgeqrf.c
View file @
ecbee0df
...
...
@@ -83,7 +83,7 @@ int MORSE_zgeqrf(int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgeqrf_param.c
View file @
ecbee0df
...
...
@@ -86,7 +86,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgeqrs.c
View file @
ecbee0df
...
...
@@ -91,8 +91,8 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgeqrs_param.c
View file @
ecbee0df
...
...
@@ -86,8 +86,8 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgesv_incpiv.c
View file @
ecbee0df
...
...
@@ -96,8 +96,8 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgesv_nopiv.c
View file @
ecbee0df
...
...
@@ -95,8 +95,8 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgesvd.c
View file @
ecbee0df
...
...
@@ -160,7 +160,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
@@ -400,11 +400,11 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_Complex64_t
*
VT
,
int
LDVT
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
)
{
MORSE_desc_t
descA
;
MORSE_desc_t
descT
;
MORSE_desc_t
descU
;
MORSE_desc_t
descVT
;
MORSE_desc_t
descAB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descT
l
,
descTt
;
MORSE_desc_t
descU
l
,
descUt
;
MORSE_desc_t
descVT
l
,
descVTt
;
MORSE_desc_t
descAB
l
,
descABt
;
MORSE_desc_t
D
,
*
Dptr
=
NULL
;
MORSE_desc_t
*
subA
,
*
subT
,
*
subUVT
;
double
*
E
;
...
...
compute/zgetrf_incpiv.c
View file @
ecbee0df
...
...
@@ -87,7 +87,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgetrf_nopiv.c
View file @
ecbee0df
...
...
@@ -77,7 +77,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
{
int
NB
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zgetrs_incpiv.c
View file @
ecbee0df
...
...
@@ -98,8 +98,8 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zgetrs_nopiv.c
View file @
ecbee0df
...
...
@@ -92,8 +92,8 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zheevd.c
View file @
ecbee0df
...
...
@@ -336,15 +336,15 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
)
{
MORSE_context_t
*
morse
;
MORSE_desc_t
descA
;
MORSE_desc_t
descT
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descT
l
,
descTt
;
MORSE_desc_t
D
,
*
Dptr
=
NULL
;
MORSE_Complex64_t
*
Q2
;
int
N
,
NB
,
status
;
double
*
E
;
MORSE_Complex64_t
*
V
;
MORSE_desc_t
descQ2
;
MORSE_desc_t
descV
;
MORSE_desc_t
descQ2
l
,
descQ2t
;
MORSE_desc_t
descV
l
,
descVt
;
MORSE_desc_t
*
subA
,
*
subQ
,
*
subT
;
morse
=
morse_context_self
();
...
...
compute/zhemm.c
View file @
ecbee0df
...
...
@@ -114,9 +114,9 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
int
NB
;
int
Am
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zher2k.c
View file @
ecbee0df
...
...
@@ -115,9 +115,9 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int
NB
;
int
Am
,
An
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zherk.c
View file @
ecbee0df
...
...
@@ -105,8 +105,8 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int
NB
;
int
Am
,
An
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zhetrd.c
View file @
ecbee0df
...
...
@@ -125,7 +125,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
@@ -333,8 +333,8 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
)
{
MORSE_context_t
*
morse
;
MORSE_desc_t
descA
;
MORSE_desc_t
descAB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descAB
l
,
descABt
;
int
N
,
NB
,
LDAB
;
int
status
;
MORSE_desc_t
D
,
*
Dptr
=
NULL
;
...
...
compute/zlacpy.c
View file @
ecbee0df
...
...
@@ -83,8 +83,8 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlange.c
View file @
ecbee0df
...
...
@@ -92,7 +92,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlanhe.c
View file @
ecbee0df
...
...
@@ -92,7 +92,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlansy.c
View file @
ecbee0df
...
...
@@ -92,7 +92,7 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlantr.c
View file @
ecbee0df
...
...
@@ -104,7 +104,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlascal.c
View file @
ecbee0df
...
...
@@ -67,7 +67,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
{
int
NB
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
@@ -227,7 +227,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
)
{
MORSE_context_t
*
morse
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlaset.c
View file @
ecbee0df
...
...
@@ -84,7 +84,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zlauum.c
View file @
ecbee0df
...
...
@@ -85,7 +85,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zplghe.c
View file @
ecbee0df
...
...
@@ -84,7 +84,7 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zplgsy.c
View file @
ecbee0df
...
...
@@ -84,7 +84,7 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zplrnt.c
View file @
ecbee0df
...
...
@@ -78,7 +78,7 @@ int MORSE_zplrnt( int M, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zposv.c
View file @
ecbee0df
...
...
@@ -104,8 +104,8 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zpotrf.c
View file @
ecbee0df
...
...
@@ -91,8 +91,8 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descAt
;
MORSE_desc_t
descAl
;
MORSE_desc_t
descAt
l
,
descAtt
;
MORSE_desc_t
descAl
l
,
descAlt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zpotri.c
View file @
ecbee0df
...
...
@@ -82,7 +82,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zpotrimm.c
View file @
ecbee0df
...
...
@@ -84,9 +84,9 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_desc_t
descC
l
,
descCt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zpotrs.c
View file @
ecbee0df
...
...
@@ -89,8 +89,8 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zsymm.c
View file @
ecbee0df
...
...
@@ -114,9 +114,9 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
int
NB
;
int
Am
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zsyr2k.c
View file @
ecbee0df
...
...
@@ -115,9 +115,9 @@ int MORSE_zsyr2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int
NB
;
int
Am
,
An
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zsyrk.c
View file @
ecbee0df
...
...
@@ -105,8 +105,8 @@ int MORSE_zsyrk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int
NB
;
int
Am
,
An
;
int
status
;
MORSE_desc_t
descA
;
MORSE_desc_t
descC
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descC
l
,
descCt
;
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
...
...
compute/zsysv.c
View file @
ecbee0df
...
...
@@ -101,8 +101,8 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zsytrf.c
View file @
ecbee0df
...
...
@@ -86,7 +86,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descA
l
,
descAt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/zsytrs.c
View file @
ecbee0df
...
...
@@ -88,8 +88,8 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;
MORSE_desc_t
descB
l
,
descBt
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
...
...
compute/ztpgqrt.c
View file @
ecbee0df
...
...
@@ -144,10 +144,10 @@ int MORSE_ztpgqrt( int M, int N, int K, int L,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descQ1
;
MORSE_desc_t
descQ2
;
MORSE_desc_t
descV1
;
MORSE_desc_t
descV2
;
MORSE_desc_t
descQ1
l
,
descQ1t
;
MORSE_desc_t
descQ2
l
,
descQ2t
;
MORSE_desc_t
descV1
l
,
descV1t
;
MORSE_desc_t
descV2
l
,
descV2t
;
int
minMK
=
chameleon_min
(
M
,
K
);
morse
=
morse_context_self
();
...
...
compute/ztpqrt.c
View file @
ecbee0df
...
...
@@ -138,8 +138,8 @@ int MORSE_ztpqrt( int M, int N, int L,
MORSE_context_t
*
morse
;
MORSE_sequence_t
*
sequence
=
NULL
;
MORSE_request_t
request
=
MORSE_REQUEST_INITIALIZER
;
MORSE_desc_t
descA
;
MORSE_desc_t
descB
;
MORSE_desc_t
descA
l
,
descAt
;