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
e1129800
Commit
e1129800
authored
Jan 22, 2018
by
Mathieu Faverge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add cleanup
parent
6a341c23
Changes
61
Hide whitespace changes
Inline
Side-by-side
Showing
61 changed files
with
196 additions
and
134 deletions
+196
-134
compute/zbuild.c
compute/zbuild.c
+3
-1
compute/zgeadd.c
compute/zgeadd.c
+3
-2
compute/zgelqf.c
compute/zgelqf.c
+3
-2
compute/zgelqf_param.c
compute/zgelqf_param.c
+3
-2
compute/zgelqs.c
compute/zgelqs.c
+4
-3
compute/zgelqs_param.c
compute/zgelqs_param.c
+4
-3
compute/zgels.c
compute/zgels.c
+4
-3
compute/zgels_param.c
compute/zgels_param.c
+4
-3
compute/zgemm.c
compute/zgemm.c
+4
-3
compute/zgeqrf.c
compute/zgeqrf.c
+3
-2
compute/zgeqrf_param.c
compute/zgeqrf_param.c
+3
-2
compute/zgeqrs.c
compute/zgeqrs.c
+4
-3
compute/zgeqrs_param.c
compute/zgeqrs_param.c
+4
-3
compute/zgesv_incpiv.c
compute/zgesv_incpiv.c
+3
-2
compute/zgesv_nopiv.c
compute/zgesv_nopiv.c
+3
-2
compute/zgesvd.c
compute/zgesvd.c
+4
-3
compute/zgetrf_incpiv.c
compute/zgetrf_incpiv.c
+2
-1
compute/zgetrf_nopiv.c
compute/zgetrf_nopiv.c
+2
-1
compute/zgetrs_incpiv.c
compute/zgetrs_incpiv.c
+3
-2
compute/zgetrs_nopiv.c
compute/zgetrs_nopiv.c
+3
-2
compute/zheevd.c
compute/zheevd.c
+7
-5
compute/zhemm.c
compute/zhemm.c
+4
-3
compute/zher2k.c
compute/zher2k.c
+4
-3
compute/zherk.c
compute/zherk.c
+3
-2
compute/zhetrd.c
compute/zhetrd.c
+4
-3
compute/zlacpy.c
compute/zlacpy.c
+3
-2
compute/zlange.c
compute/zlange.c
+2
-1
compute/zlanhe.c
compute/zlanhe.c
+2
-1
compute/zlansy.c
compute/zlansy.c
+2
-1
compute/zlantr.c
compute/zlantr.c
+2
-1
compute/zlascal.c
compute/zlascal.c
+1
-1
compute/zlaset.c
compute/zlaset.c
+2
-1
compute/zlauum.c
compute/zlauum.c
+2
-1
compute/zplghe.c
compute/zplghe.c
+2
-1
compute/zplgsy.c
compute/zplgsy.c
+2
-1
compute/zplrnt.c
compute/zplrnt.c
+2
-1
compute/zposv.c
compute/zposv.c
+3
-2
compute/zpotri.c
compute/zpotri.c
+2
-1
compute/zpotrimm.c
compute/zpotrimm.c
+4
-3
compute/zpotrs.c
compute/zpotrs.c
+3
-2
compute/zsymm.c
compute/zsymm.c
+4
-3
compute/zsyr2k.c
compute/zsyr2k.c
+4
-3
compute/zsyrk.c
compute/zsyrk.c
+3
-2
compute/zsysv.c
compute/zsysv.c
+3
-2
compute/zsytrf.c
compute/zsytrf.c
+2
-1
compute/zsytrs.c
compute/zsytrs.c
+3
-2
compute/ztpgqrt.c
compute/ztpgqrt.c
+6
-5
compute/ztpqrt.c
compute/ztpqrt.c
+3
-2
compute/ztradd.c
compute/ztradd.c
+3
-2
compute/ztrmm.c
compute/ztrmm.c
+3
-2
compute/ztrsm.c
compute/ztrsm.c
+3
-2
compute/ztrsmpl.c
compute/ztrsmpl.c
+3
-2
compute/ztrtri.c
compute/ztrtri.c
+2
-1
compute/zunglq.c
compute/zunglq.c
+4
-3
compute/zunglq_param.c
compute/zunglq_param.c
+4
-3
compute/zungqr.c
compute/zungqr.c
+4
-3
compute/zungqr_param.c
compute/zungqr_param.c
+4
-3
compute/zunmlq.c
compute/zunmlq.c
+4
-3
compute/zunmlq_param.c
compute/zunmlq_param.c
+4
-3
compute/zunmqr.c
compute/zunmqr.c
+4
-3
compute/zunmqr_param.c
compute/zunmqr_param.c
+4
-3
No files found.
compute/zbuild.c
View file @
e1129800
...
...
@@ -130,12 +130,14 @@ 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
);
/* Submit the matrix conversion back */
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgeadd.c
View file @
e1129800
...
...
@@ -169,8 +169,9 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgelqf.c
View file @
e1129800
...
...
@@ -135,7 +135,8 @@ int MORSE_zgelqf(int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -292,7 +293,7 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
morse_pzgelqfrh
(
A
,
T
,
Dptr
,
MORSE_RHBLK
,
sequence
,
request
);
}
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgelqf_param.c
View file @
e1129800
...
...
@@ -132,7 +132,8 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -288,7 +289,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzgelqf_param
(
qrtree
,
A
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgelqs.c
View file @
e1129800
...
...
@@ -154,8 +154,9 @@ int MORSE_zgelqs(int M, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -332,7 +333,7 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
}
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgelqs_param.c
View file @
e1129800
...
...
@@ -156,8 +156,9 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -335,7 +336,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzunmlq_param
(
qrtree
,
MorseLeft
,
MorseConjTrans
,
A
,
B
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgels.c
View file @
e1129800
...
...
@@ -196,8 +196,9 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -428,7 +429,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgels_param.c
View file @
e1129800
...
...
@@ -197,8 +197,9 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -416,7 +417,7 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgemm.c
View file @
e1129800
...
...
@@ -228,9 +228,10 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
morse_ztile2lap_cleanup
(
morse
,
&
descCl
,
&
descCt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgeqrf.c
View file @
e1129800
...
...
@@ -134,7 +134,8 @@ int MORSE_zgeqrf(int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -291,7 +292,7 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
morse_pzgeqrfrh
(
A
,
T
,
Dptr
,
MORSE_RHBLK
,
sequence
,
request
);
}
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrf_param.c
View file @
e1129800
...
...
@@ -137,7 +137,8 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -298,7 +299,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzgeqrf_param
(
qrtree
,
A
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrs.c
View file @
e1129800
...
...
@@ -154,8 +154,9 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -328,7 +329,7 @@ int MORSE_zgeqrs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrs_param.c
View file @
e1129800
...
...
@@ -149,8 +149,9 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -325,7 +326,7 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgesv_incpiv.c
View file @
e1129800
...
...
@@ -153,8 +153,9 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgesv_nopiv.c
View file @
e1129800
...
...
@@ -152,8 +152,9 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgesvd.c
View file @
e1129800
...
...
@@ -227,7 +227,8 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -547,7 +548,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
fprintf
(
stderr
,
"MORSE_zgesvd_Tile_Async: LAPACKE_zgbbrd = %d
\n
"
,
info
);
}
#endif
/* !defined(CHAMELEON_SIMULATION) */
morse_
desc_mat_free
(
&
descAB
);
morse_
ztile2lap_cleanup
(
morse
,
&
descABl
,
&
descABt
);
/* Transform U and Vt into tile format */
if
(
jobu
!=
MorseNoVec
)
{
...
...
@@ -626,7 +627,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
morse_desc_mat_free
(
&
descVT
);
free
(
E
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgetrf_incpiv.c
View file @
e1129800
...
...
@@ -136,7 +136,8 @@ int MORSE_zgetrf_incpiv(int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgetrf_nopiv.c
View file @
e1129800
...
...
@@ -129,7 +129,8 @@ int MORSE_zgetrf_nopiv(int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgetrs_incpiv.c
View file @
e1129800
...
...
@@ -157,8 +157,9 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgetrs_nopiv.c
View file @
e1129800
...
...
@@ -151,8 +151,9 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zheevd.c
View file @
e1129800
...
...
@@ -165,7 +165,8 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -465,7 +466,7 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
/* V from LAPACKE_zstedc refers to V (lapack layout) */
/* The final eigenvectors are (Q1 Q2 V) or (Q1^h Q2 V) */
morse_zooplap2tile
(
descQ2
,
Q2
,
NB
,
NB
,
N
,
N
,
0
,
0
,
N
,
N
,
sequence
,
request
,
morse_desc_mat_free
(
&
(
descQ2
))
);
morse_ztile2lap_cleanup
(
morse
,
&
(
descQ2
))
l
,
&
(
descQ2
))
t
);
morse_zooplap2tile
(
descV
,
V
,
NB
,
NB
,
N
,
N
,
0
,
0
,
N
,
N
,
sequence
,
request
,
morse_desc_mat_free
(
&
(
descQ2
));
morse_desc_mat_free
(
&
(
descV
))
);
if
(
uplo
==
MorseLower
)
...
...
@@ -520,15 +521,16 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
morse_sequence_wait
(
morse
,
sequence
);
free
(
subA
);
free
(
subQ
);
free
(
subT
);
morse_
desc_mat_free
(
&
descQ2
);
morse_
ztile2lap_cleanup
(
morse
,
&
descQ2l
,
&
descQ2t
);
free
(
Q2
);
morse_desc_mat_free
(
&
descV
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descVl
,
&
descVt
);
free
(
V
);
free
(
E
);
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zhemm.c
View file @
e1129800
...
...
@@ -191,9 +191,10 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
morse_ztile2lap_cleanup
(
morse
,
&
descCl
,
&
descCt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zher2k.c
View file @
e1129800
...
...
@@ -195,9 +195,10 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
morse_ztile2lap_cleanup
(
morse
,
&
descCl
,
&
descCt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zherk.c
View file @
e1129800
...
...
@@ -179,8 +179,9 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descC
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descCl
,
&
descCt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zhetrd.c
View file @
e1129800
...
...
@@ -179,7 +179,8 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -429,9 +430,9 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
}
#endif
/* !defined(CHAMELEON_SIMULATION) */
if
(
Dptr
!=
NULL
)
{
morse_desc_mat_free
(
Dptr
);
morse_ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
}
morse_
desc_mat_free
(
&
descAB
);
morse_
ztile2lap_cleanup
(
morse
,
&
descABl
,
&
descABt
);
(
void
)
D
;
return
MORSE_SUCCESS
;
}
compute/zlacpy.c
View file @
e1129800
...
...
@@ -145,8 +145,9 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
morse_sequence_destroy
(
morse
,
sequence
);
return
MORSE_SUCCESS
;
...
...
compute/zlange.c
View file @
e1129800
...
...
@@ -148,7 +148,8 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
...
...
compute/zlanhe.c
View file @
e1129800
...
...
@@ -148,7 +148,8 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
...
...
compute/zlansy.c
View file @
e1129800
...
...
@@ -145,7 +145,8 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
...
...
compute/zlantr.c
View file @
e1129800
...
...
@@ -165,7 +165,8 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
...
...
compute/zlascal.c
View file @
e1129800
...
...
@@ -125,7 +125,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
sequence
,
&
request
);
RUNTIME_sequence_wait
(
morse
,
sequence
);
morse_
desc_mat_free
(
&
descA
);
morse_
ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zlaset.c
View file @
e1129800
...
...
@@ -138,7 +138,8 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_sequence_destroy
(
morse
,
sequence
);
return
MORSE_SUCCESS
;
...
...
compute/zlauum.c
View file @
e1129800
...
...
@@ -134,7 +134,8 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zplghe.c
View file @
e1129800
...
...
@@ -125,7 +125,8 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zplgsy.c
View file @
e1129800
...
...
@@ -125,7 +125,8 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zplrnt.c
View file @
e1129800
...
...
@@ -122,7 +122,8 @@ int MORSE_zplrnt( int M, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zposv.c
View file @
e1129800
...
...
@@ -166,8 +166,9 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
morse_ztile2lap_cleanup
(
morse
,
&
descBl
,
&
descBt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zpotri.c
View file @
e1129800
...
...
@@ -131,7 +131,8 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* Cleanup the temporary data */
morse_ztile2lap_cleanup
(
morse
,
&
descAl
,
&
descAt
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zpotrimm.c
View file @
e1129800
...
...
@@ -149,9 +149,10 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,