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
03b4a34f
Commit
03b4a34f
authored
Jan 22, 2018
by
Mathieu Faverge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Replace all zooplap2tile by new zlap2tile
parent
8f7daef4
Changes
57
Hide whitespace changes
Inline
Side-by-side
Showing
57 changed files
with
214 additions
and
221 deletions
+214
-221
compute/zgeadd.c
compute/zgeadd.c
+4
-4
compute/zgelqf.c
compute/zgelqf.c
+2
-2
compute/zgelqf_param.c
compute/zgelqf_param.c
+2
-2
compute/zgelqs.c
compute/zgelqs.c
+4
-4
compute/zgelqs_param.c
compute/zgelqs_param.c
+4
-4
compute/zgels.c
compute/zgels.c
+8
-8
compute/zgels_param.c
compute/zgels_param.c
+8
-8
compute/zgemm.c
compute/zgemm.c
+6
-6
compute/zgeqrf.c
compute/zgeqrf.c
+2
-2
compute/zgeqrf_param.c
compute/zgeqrf_param.c
+2
-2
compute/zgeqrs.c
compute/zgeqrs.c
+4
-4
compute/zgeqrs_param.c
compute/zgeqrs_param.c
+4
-4
compute/zgesv_incpiv.c
compute/zgesv_incpiv.c
+4
-4
compute/zgesv_nopiv.c
compute/zgesv_nopiv.c
+4
-4
compute/zgesvd.c
compute/zgesvd.c
+2
-2
compute/zgetrf_incpiv.c
compute/zgetrf_incpiv.c
+2
-2
compute/zgetrf_nopiv.c
compute/zgetrf_nopiv.c
+2
-3
compute/zgetrs_incpiv.c
compute/zgetrs_incpiv.c
+4
-4
compute/zgetrs_nopiv.c
compute/zgetrs_nopiv.c
+4
-4
compute/zheevd.c
compute/zheevd.c
+2
-2
compute/zhemm.c
compute/zhemm.c
+6
-6
compute/zher2k.c
compute/zher2k.c
+6
-6
compute/zherk.c
compute/zherk.c
+4
-4
compute/zhetrd.c
compute/zhetrd.c
+2
-2
compute/zlacpy.c
compute/zlacpy.c
+4
-4
compute/zlange.c
compute/zlange.c
+2
-2
compute/zlanhe.c
compute/zlanhe.c
+2
-2
compute/zlansy.c
compute/zlansy.c
+2
-2
compute/zlantr.c
compute/zlantr.c
+2
-2
compute/zlascal.c
compute/zlascal.c
+2
-2
compute/zlaset.c
compute/zlaset.c
+2
-2
compute/zlauum.c
compute/zlauum.c
+2
-2
compute/zposv.c
compute/zposv.c
+4
-4
compute/zpotri.c
compute/zpotri.c
+2
-2
compute/zpotrimm.c
compute/zpotrimm.c
+6
-6
compute/zpotrs.c
compute/zpotrs.c
+4
-4
compute/zsymm.c
compute/zsymm.c
+6
-6
compute/zsyr2k.c
compute/zsyr2k.c
+6
-6
compute/zsyrk.c
compute/zsyrk.c
+4
-4
compute/zsysv.c
compute/zsysv.c
+4
-4
compute/zsytrf.c
compute/zsytrf.c
+2
-2
compute/zsytrs.c
compute/zsytrs.c
+4
-4
compute/ztpgqrt.c
compute/ztpgqrt.c
+8
-14
compute/ztpqrt.c
compute/ztpqrt.c
+4
-4
compute/ztradd.c
compute/ztradd.c
+4
-4
compute/ztrmm.c
compute/ztrmm.c
+4
-4
compute/ztrsm.c
compute/ztrsm.c
+4
-4
compute/ztrsmpl.c
compute/ztrsmpl.c
+4
-4
compute/ztrtri.c
compute/ztrtri.c
+2
-2
compute/zunglq.c
compute/zunglq.c
+4
-4
compute/zunglq_param.c
compute/zunglq_param.c
+4
-4
compute/zungqr.c
compute/zungqr.c
+4
-4
compute/zungqr_param.c
compute/zungqr_param.c
+4
-4
compute/zunmlq.c
compute/zunmlq.c
+4
-4
compute/zunmlq_param.c
compute/zunmlq_param.c
+4
-4
compute/zunmqr.c
compute/zunmqr.c
+4
-4
compute/zunmqr_param.c
compute/zunmqr_param.c
+4
-4
No files found.
compute/zgeadd.c
View file @
03b4a34f
...
...
@@ -154,10 +154,10 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
An
,
0
,
0
,
Am
,
An
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request); */
...
...
compute/zgelqf.c
View file @
03b4a34f
...
...
@@ -123,8 +123,8 @@ int MORSE_zgelqf(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgelqf_param.c
View file @
03b4a34f
...
...
@@ -120,8 +120,8 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgelqs.c
View file @
03b4a34f
...
...
@@ -138,10 +138,10 @@ int MORSE_zgelqs(int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
...
...
compute/zgelqs_param.c
View file @
03b4a34f
...
...
@@ -140,10 +140,10 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
...
...
compute/zgels.c
View file @
03b4a34f
...
...
@@ -173,10 +173,10 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
if
(
M
>=
N
)
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
M
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descB
l
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
@@ -185,10 +185,10 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
/* }*/
}
else
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgels_param.c
View file @
03b4a34f
...
...
@@ -175,10 +175,10 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
if
(
M
>=
N
)
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
M
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descB
l
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
@@ -187,10 +187,10 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
/* }*/
}
else
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgemm.c
View file @
03b4a34f
...
...
@@ -211,12 +211,12 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
An
,
0
,
0
,
Am
,
An
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
Bn
,
0
,
0
,
Bm
,
Bn
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_z
oop
lap2tile
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
));
morse_desc_mat_free
(
&
(
descC
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
Bn
,
Bm
,
Bn
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descC
l
,
&
descCt
,
MorseUpperLower
,
C
,
NB
,
NB
,
LDC
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
...
...
compute/zgeqrf.c
View file @
03b4a34f
...
...
@@ -122,8 +122,8 @@ int MORSE_zgeqrf(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgeqrf_param.c
View file @
03b4a34f
...
...
@@ -125,8 +125,8 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgeqrs.c
View file @
03b4a34f
...
...
@@ -138,10 +138,10 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
M
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descB
l
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
...
...
compute/zgeqrs_param.c
View file @
03b4a34f
...
...
@@ -133,10 +133,10 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
M
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descB
l
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
...
...
compute/zgesv_incpiv.c
View file @
03b4a34f
...
...
@@ -137,10 +137,10 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
...
...
compute/zgesv_nopiv.c
View file @
03b4a34f
...
...
@@ -136,10 +136,10 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
...
...
compute/zgesvd.c
View file @
03b4a34f
...
...
@@ -215,8 +215,8 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request); */
...
...
compute/zgetrf_incpiv.c
View file @
03b4a34f
...
...
@@ -124,8 +124,8 @@ int MORSE_zgetrf_incpiv(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zgetrf_nopiv.c
View file @
03b4a34f
...
...
@@ -117,9 +117,8 @@ int MORSE_zgetrf_nopiv(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
...
...
compute/zgetrs_incpiv.c
View file @
03b4a34f
...
...
@@ -143,10 +143,10 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
...
...
compute/zgetrs_nopiv.c
View file @
03b4a34f
...
...
@@ -137,10 +137,10 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
0
,
0
,
N
,
NRHS
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
...
...
compute/zheevd.c
View file @
03b4a34f
...
...
@@ -153,8 +153,8 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &requoest); */
...
...
compute/zhemm.c
View file @
03b4a34f
...
...
@@ -174,12 +174,12 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
Am
,
0
,
0
,
Am
,
Am
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_z
oop
lap2tile
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
));
morse_desc_mat_free
(
&
(
descC
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
Am
,
Am
,
Am
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descB
l
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descC
l
,
&
descCt
,
MorseUpperLower
,
C
,
NB
,
NB
,
LDC
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, Am, 0, 0, Am, Am,*/
/* sequence, &request);*/
...
...
compute/zher2k.c
View file @
03b4a34f
...
...
@@ -179,12 +179,12 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
An
,
0
,
0
,
Am
,
An
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
An
,
0
,
0
,
Am
,
An
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_z
oop
lap2tile
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
));
morse_desc_mat_free
(
&
(
descC
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descC
l
,
&
descCt
,
MorseUpperLower
,
C
,
NB
,
NB
,
LDC
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
...
...
compute/zherk.c
View file @
03b4a34f
...
...
@@ -165,10 +165,10 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
An
,
0
,
0
,
Am
,
An
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descC
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descC
l
,
&
descCt
,
MorseUpperLower
,
C
,
NB
,
NB
,
LDC
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
...
...
compute/zhetrd.c
View file @
03b4a34f
...
...
@@ -167,8 +167,8 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request); */
...
...
compute/zlacpy.c
View file @
03b4a34f
...
...
@@ -131,10 +131,10 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_z
oop
lap2tile
(
descB
,
B
,
NB
,
NB
,
LDB
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
));
morse_desc_mat_free
(
&
(
descB
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zlange.c
View file @
03b4a34f
...
...
@@ -135,8 +135,8 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zlanhe.c
View file @
03b4a34f
...
...
@@ -135,8 +135,8 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
...
...
compute/zlansy.c
View file @
03b4a34f
...
...
@@ -135,8 +135,8 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descA
l
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
...
...
compute/zlantr.c
View file @
03b4a34f
...
...
@@ -155,8 +155,8 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zlascal.c
View file @
03b4a34f
...
...
@@ -114,8 +114,8 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N , 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zlaset.c
View file @
03b4a34f
...
...
@@ -128,8 +128,8 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
M
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
...
...
compute/zlauum.c
View file @
03b4a34f
...
...
@@ -122,8 +122,8 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_z
oop
lap2tile
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
0
,
0
,
N
,
N
,
sequence
,
&
request
,
morse_desc_mat_free
(
&
(
descA
))
);