Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Chameleon
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
6a341c23
Commit
6a341c23
authored
Jan 22, 2018
by
Mathieu Faverge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Replace the tile2lap
parent
35fe8c53
Changes
63
Hide whitespace changes
Inline
Side-by-side
Showing
63 changed files
with
347 additions
and
81 deletions
+347
-81
compute/zbuild.c
compute/zbuild.c
+6
-1
compute/zgeadd.c
compute/zgeadd.c
+5
-1
compute/zgelqf.c
compute/zgelqf.c
+5
-1
compute/zgelqf_param.c
compute/zgelqf_param.c
+5
-1
compute/zgelqs.c
compute/zgelqs.c
+7
-2
compute/zgelqs_param.c
compute/zgelqs_param.c
+7
-2
compute/zgels.c
compute/zgels.c
+7
-2
compute/zgels_param.c
compute/zgels_param.c
+7
-2
compute/zgemm.c
compute/zgemm.c
+5
-1
compute/zgeqrf.c
compute/zgeqrf.c
+5
-1
compute/zgeqrf_param.c
compute/zgeqrf_param.c
+5
-1
compute/zgeqrs.c
compute/zgeqrs.c
+7
-2
compute/zgeqrs_param.c
compute/zgeqrs_param.c
+7
-2
compute/zgesv_incpiv.c
compute/zgesv_incpiv.c
+7
-2
compute/zgesv_nopiv.c
compute/zgesv_nopiv.c
+7
-2
compute/zgesvd.c
compute/zgesvd.c
+8
-1
compute/zgetrf_incpiv.c
compute/zgetrf_incpiv.c
+5
-1
compute/zgetrf_nopiv.c
compute/zgetrf_nopiv.c
+5
-1
compute/zgetrs_incpiv.c
compute/zgetrs_incpiv.c
+5
-1
compute/zgetrs_nopiv.c
compute/zgetrs_nopiv.c
+5
-1
compute/zheevd.c
compute/zheevd.c
+5
-2
compute/zhemm.c
compute/zhemm.c
+5
-1
compute/zher2k.c
compute/zher2k.c
+5
-1
compute/zherk.c
compute/zherk.c
+5
-1
compute/zhetrd.c
compute/zhetrd.c
+7
-1
compute/zlacpy.c
compute/zlacpy.c
+6
-1
compute/zlange.c
compute/zlange.c
+6
-1
compute/zlanhe.c
compute/zlanhe.c
+6
-1
compute/zlansy.c
compute/zlansy.c
+4
-0
compute/zlantr.c
compute/zlantr.c
+4
-0
compute/zlascal.c
compute/zlascal.c
+2
-1
compute/zlaset.c
compute/zlaset.c
+4
-0
compute/zlauum.c
compute/zlauum.c
+5
-1
compute/zplghe.c
compute/zplghe.c
+6
-1
compute/zplgsy.c
compute/zplgsy.c
+6
-1
compute/zplrnt.c
compute/zplrnt.c
+6
-1
compute/zposv.c
compute/zposv.c
+7
-2
compute/zpotrf.c
compute/zpotrf.c
+3
-2
compute/zpotri.c
compute/zpotri.c
+5
-1
compute/zpotrimm.c
compute/zpotrimm.c
+9
-3
compute/zpotrs.c
compute/zpotrs.c
+5
-1
compute/zsymm.c
compute/zsymm.c
+5
-1
compute/zsyr2k.c
compute/zsyr2k.c
+5
-1
compute/zsyrk.c
compute/zsyrk.c
+5
-1
compute/zsysv.c
compute/zsysv.c
+7
-2
compute/zsytrf.c
compute/zsytrf.c
+5
-1
compute/zsytrs.c
compute/zsytrs.c
+5
-1
compute/ztpgqrt.c
compute/ztpgqrt.c
+7
-2
compute/ztpqrt.c
compute/ztpqrt.c
+7
-2
compute/ztradd.c
compute/ztradd.c
+5
-1
compute/ztrmm.c
compute/ztrmm.c
+5
-1
compute/ztrsm.c
compute/ztrsm.c
+5
-1
compute/ztrsmpl.c
compute/ztrsmpl.c
+5
-1
compute/ztrtri.c
compute/ztrtri.c
+5
-1
compute/zunglq.c
compute/zunglq.c
+5
-1
compute/zunglq_param.c
compute/zunglq_param.c
+5
-1
compute/zungqr.c
compute/zungqr.c
+5
-1
compute/zungqr_param.c
compute/zungqr_param.c
+5
-1
compute/zunmlq.c
compute/zunmlq.c
+5
-1
compute/zunmlq_param.c
compute/zunmlq_param.c
+5
-1
compute/zunmqr.c
compute/zunmqr.c
+5
-1
compute/zunmqr_param.c
compute/zunmqr_param.c
+5
-1
control/compute_z.h
control/compute_z.h
+5
-6
No files found.
compute/zbuild.c
View file @
6a341c23
...
...
@@ -130,8 +130,11 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
/* Call the tile interface */
MORSE_zbuild_Tile_Async
(
uplo
,
&
descA
,
user_data
,
user_build_callback
,
sequence
,
&
request
);
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -197,7 +200,9 @@ int MORSE_zbuild_Tile( MORSE_enum uplo, MORSE_desc_t *A,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zbuild_Tile_Async
(
uplo
,
A
,
user_data
,
user_build_callback
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
return
status
;
...
...
compute/zgeadd.c
View file @
6a341c23
...
...
@@ -164,8 +164,11 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
trans
,
alpha
,
&
descA
,
beta
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -240,6 +243,7 @@ int MORSE_zgeadd_Tile(MORSE_enum trans,
MORSE_zgeadd_Tile_Async
(
trans
,
alpha
,
A
,
beta
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgelqf.c
View file @
6a341c23
...
...
@@ -130,8 +130,11 @@ int MORSE_zgelqf(int M, int N,
MORSE_zgelqf_Tile_Async
(
&
descA
,
descT
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -193,6 +196,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgelqf_Tile_Async
(
A
,
T
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgelqf_param.c
View file @
6a341c23
...
...
@@ -127,8 +127,11 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_zgelqf_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -190,6 +193,7 @@ int MORSE_zgelqf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgelqf_param_Tile_Async
(
qrtree
,
A
,
TS
,
TT
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgelqs.c
View file @
6a341c23
...
...
@@ -147,9 +147,13 @@ int MORSE_zgelqs(int M, int N, int NRHS,
MORSE_zgelqs_Tile_Async
(
&
descA
,
descT
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -213,6 +217,7 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
MORSE_zgelqs_Tile_Async
(
A
,
T
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgelqs_param.c
View file @
6a341c23
...
...
@@ -149,9 +149,13 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_zgelqs_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -218,6 +222,7 @@ int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
MORSE_zgelqs_param_Tile_Async
(
qrtree
,
A
,
TS
,
TT
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgels.c
View file @
6a341c23
...
...
@@ -189,9 +189,13 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
MORSE_zgels_Tile_Async
(
MorseNoTrans
,
&
descA
,
descT
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -271,6 +275,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
MORSE_zgels_Tile_Async
(
trans
,
A
,
T
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgels_param.c
View file @
6a341c23
...
...
@@ -190,9 +190,13 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MORSE_zgels_param_Tile_Async
(
qrtree
,
MorseNoTrans
,
&
descA
,
descTS
,
descTT
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -275,6 +279,7 @@ int MORSE_zgels_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum trans, MORSE_
MORSE_zgels_param_Tile_Async
(
qrtree
,
trans
,
A
,
TS
,
TT
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgemm.c
View file @
6a341c23
...
...
@@ -223,8 +223,11 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
transA
,
transB
,
alpha
,
&
descA
,
&
descB
,
beta
,
&
descC
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -310,6 +313,7 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB,
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
RUNTIME_desc_flush
(
C
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgeqrf.c
View file @
6a341c23
...
...
@@ -129,8 +129,11 @@ int MORSE_zgeqrf(int M, int N,
MORSE_zgeqrf_Tile_Async
(
&
descA
,
descT
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -192,6 +195,7 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgeqrf_Tile_Async
(
A
,
T
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgeqrf_param.c
View file @
6a341c23
...
...
@@ -132,8 +132,11 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_zgeqrf_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -199,6 +202,7 @@ int MORSE_zgeqrf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgeqrf_param_Tile_Async
(
qrtree
,
A
,
TS
,
TT
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgeqrs.c
View file @
6a341c23
...
...
@@ -147,9 +147,13 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
MORSE_zgeqrs_Tile_Async
(
&
descA
,
descT
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -213,6 +217,7 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
T
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgeqrs_param.c
View file @
6a341c23
...
...
@@ -142,9 +142,13 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_zgeqrs_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -209,6 +213,7 @@ int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
RUNTIME_desc_flush
(
TS
,
sequence
);
RUNTIME_desc_flush
(
TT
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgesv_incpiv.c
View file @
6a341c23
...
...
@@ -146,9 +146,13 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
MORSE_zgesv_incpiv_Tile_Async
(
&
descA
,
descL
,
IPIV
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -217,6 +221,7 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d
MORSE_zgesv_incpiv_Tile_Async
(
A
,
L
,
IPIV
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgesv_nopiv.c
View file @
6a341c23
...
...
@@ -145,9 +145,13 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
MORSE_zgesv_nopiv_Tile_Async
(
&
descA
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -209,6 +213,7 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
MORSE_zgesv_nopiv_Tile_Async
(
A
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgesvd.c
View file @
6a341c23
...
...
@@ -222,8 +222,11 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_zgesvd_Tile_Async
(
jobu
,
jobvt
,
&
descA
,
S
,
descT
,
U
,
LDU
,
VT
,
LDVT
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -350,7 +353,9 @@ int MORSE_zgesvd_Tile(MORSE_enum jobu, MORSE_enum jobvt,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgesvd_Tile_Async
(
jobu
,
jobvt
,
A
,
S
,
T
,
U
,
LDU
,
VT
,
LDVT
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
return
status
;
...
...
@@ -551,6 +556,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
if
(
jobvt
!=
MorseNoVec
)
{
morse_zooplap2tile
(
descVT
,
VT
,
NB
,
NB
,
LDVT
,
N
,
0
,
0
,
N
,
N
,
sequence
,
request
,
morse_desc_mat_free
(
&
(
descVT
))
);
}
morse_sequence_wait
(
morse
,
sequence
);
subA
=
NULL
;
...
...
@@ -597,6 +603,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
}
morse_sequence_wait
(
morse
,
sequence
);
if
(
subA
)
{
free
(
subA
);
free
(
subUVT
);
free
(
subT
);
}
...
...
compute/zgetrf_incpiv.c
View file @
6a341c23
...
...
@@ -131,8 +131,11 @@ int MORSE_zgetrf_incpiv(int M, int N,
MORSE_zgetrf_incpiv_Tile_Async
(
&
descA
,
descL
,
IPIV
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -197,6 +200,7 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV)
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgetrf_incpiv_Tile_Async
(
A
,
L
,
IPIV
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgetrf_nopiv.c
View file @
6a341c23
...
...
@@ -124,8 +124,11 @@ int MORSE_zgetrf_nopiv(int M, int N,
MORSE_zgetrf_nopiv_Tile_Async
(
&
descA
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -183,6 +186,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgetrf_nopiv_Tile_Async
(
A
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgetrs_incpiv.c
View file @
6a341c23
...
...
@@ -152,8 +152,11 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
MORSE_zgetrs_incpiv_Tile_Async
(
&
descA
,
descL
,
IPIV
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -220,6 +223,7 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
MORSE_zgetrs_incpiv_Tile_Async
(
A
,
L
,
IPIV
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zgetrs_nopiv.c
View file @
6a341c23
...
...
@@ -146,8 +146,11 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
MORSE_zgetrs_nopiv_Tile_Async
(
&
descA
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
...
...
@@ -208,6 +211,7 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
MORSE_zgetrs_nopiv_Tile_Async
(
A
,
B
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zheevd.c
View file @
6a341c23
...
...
@@ -160,8 +160,11 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_zheevd_Tile_Async
(
jobz
,
uplo
,
&
descA
,
W
,
descT
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -253,6 +256,7 @@ int MORSE_zheevd_Tile(MORSE_enum jobz, MORSE_enum uplo,
MORSE_zheevd_Tile_Async
(
jobz
,
uplo
,
A
,
W
,
T
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
T
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
@@ -417,7 +421,6 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
morse_error
(
"MORSE_zheevd_Tile"
,
"MORSE_zhetrd failed"
);
}
if
(
jobz
==
MorseNoVec
){
#if !defined(CHAMELEON_SIMULATION)
/* Tridiagonal eigensolver */
...
...
compute/zhemm.c
View file @
6a341c23
...
...
@@ -186,8 +186,11 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
side
,
uplo
,
alpha
,
&
descA
,
&
descB
,
beta
,
&
descC
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -275,6 +278,7 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo,
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
RUNTIME_desc_flush
(
C
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zher2k.c
View file @
6a341c23
...
...
@@ -190,8 +190,11 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
MORSE_zher2k_Tile_Async
(
uplo
,
trans
,
alpha
,
&
descA
,
&
descB
,
beta
,
&
descC
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -274,6 +277,7 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans,
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
B
,
sequence
);
RUNTIME_desc_flush
(
C
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zherk.c
View file @
6a341c23
...
...
@@ -174,8 +174,11 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
MORSE_zherk_Tile_Async
(
uplo
,
trans
,
alpha
,
&
descA
,
beta
,
&
descC
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -252,6 +255,7 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans,
MORSE_zherk_Tile_Async
(
uplo
,
trans
,
alpha
,
A
,
beta
,
C
,
sequence
,
&
request
);
RUNTIME_desc_flush
(
A
,
sequence
);
RUNTIME_desc_flush
(
C
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
...
...
compute/zhetrd.c
View file @
6a341c23
...
...
@@ -174,8 +174,11 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_zhetrd_Tile_Async
(
jobz
,
uplo
,
&
descA
,
D
,
E
,
descT
,
Q
,
LDQ
,
sequence
,
&
request
);
/* Submit the matrix conversion */
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -279,7 +282,9 @@ int MORSE_zhetrd_Tile(MORSE_enum jobz, MORSE_enum uplo,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zhetrd_Tile_Async
(
jobz
,
uplo
,
A
,
D
,
E
,
T
,
Q
,
LDQ
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
return
status
;
...
...
@@ -408,6 +413,7 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
/* Copy data into band structure */
morse_pztile2band
(
uplo
,
A
,
&
descAB
,
sequence
,
request
);
morse_sequence_wait
(
morse
,
sequence
);
/* Reduce band matrix to tridiagonal matrix */
...
...
compute/zlacpy.c
View file @
6a341c23
...
...
@@ -140,8 +140,11 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
MORSE_zlacpy_Tile_Async
(
uplo
,
&
descA
,
&
descB
,
sequence
,
&
request
);
/* Submit the matrix conversion */