Commit b86e73ef authored by Mathieu Faverge's avatar Mathieu Faverge

Correct Dptr calls

parent bafbfed5
......@@ -293,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -289,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -333,7 +333,7 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
}
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -336,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -429,7 +429,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
free(subB);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -417,7 +417,7 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
free(subB);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -292,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -299,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -329,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -326,7 +326,7 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
free(subB);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -627,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_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -530,7 +530,7 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
free(E);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -430,7 +430,7 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
}
#endif /* !defined(CHAMELEON_SIMULATION) */
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
morse_ztile2lap_cleanup( morse, &descABl, &descABt );
(void)D;
......
......@@ -407,7 +407,7 @@ int MORSE_ztpgqrt_Tile_Async( int L,
/* morse_pztpgqrtrh(Q1, T, MORSE_RHBLK, sequence, request); */
/* } */
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -314,7 +314,7 @@ int MORSE_zunglq_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
}
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -309,7 +309,7 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzunglq_param(qrtree, A, Q, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -311,7 +311,7 @@ int MORSE_zungqr_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
}
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -307,7 +307,7 @@ int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzungqr_param(qrtree, A, Q, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -376,7 +376,7 @@ int MORSE_zunmlq_Tile_Async(MORSE_enum side, MORSE_enum trans,
morse_pzunmlqrh(side, trans, A, C, T, Dptr, MORSE_RHBLK, sequence, request);
}
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -371,7 +371,7 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side,
morse_pzunmlq_param(qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -383,7 +383,7 @@ int MORSE_zunmqr_Tile_Async(MORSE_enum side, MORSE_enum trans,
}
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
......@@ -378,7 +378,7 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree,
morse_pzunmqr_param(qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_ztile2lap_cleanup( morse, &Dptrl, &Dptrt );
morse_desc_mat_free( Dptr );
}
(void)D;
return MORSE_SUCCESS;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment