Mentions légales du service

Skip to content
Snippets Groups Projects
Commit e1129800 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Add cleanup

parent 6a341c23
No related branches found
No related tags found
1 merge request!78Cleanup - Lapack to tile
Hide whitespace changes
Inline Side-by-side
Showing
with 66 additions and 45 deletions
compute/zbuild.c
+ 3
− 1
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
+ 3
− 2
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
+ 3
− 2
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
+ 3
− 2
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
+ 4
− 3
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
+ 4
− 3
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
+ 4
− 3
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
+ 4
− 3
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
+ 4
− 3
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
+ 3
− 2
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
+ 3
− 2
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
+ 4
− 3
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
+ 4
− 3
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
+ 3
− 2
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
+ 3
− 2
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
+ 4
− 3
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
+ 2
− 1
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
+ 2
− 1
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
+ 3
− 2
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
+ 3
− 2
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);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment