From b86e73efa019d0e4359dc988df858a28d90fa1e3 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 22 Jan 2018 19:33:23 +0100
Subject: [PATCH] Correct Dptr calls
---
compute/zgelqf.c | 2 +-
compute/zgelqf_param.c | 2 +-
compute/zgelqs.c | 2 +-
compute/zgelqs_param.c | 2 +-
compute/zgels.c | 2 +-
compute/zgels_param.c | 2 +-
compute/zgeqrf.c | 2 +-
compute/zgeqrf_param.c | 2 +-
compute/zgeqrs.c | 2 +-
compute/zgeqrs_param.c | 2 +-
compute/zgesvd.c | 2 +-
compute/zheevd.c | 2 +-
compute/zhetrd.c | 2 +-
compute/ztpgqrt.c | 2 +-
compute/zunglq.c | 2 +-
compute/zunglq_param.c | 2 +-
compute/zungqr.c | 2 +-
compute/zungqr_param.c | 2 +-
compute/zunmlq.c | 2 +-
compute/zunmlq_param.c | 2 +-
compute/zunmqr.c | 2 +-
compute/zunmqr_param.c | 2 +-
22 files changed, 22 insertions(+), 22 deletions(-)
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index 8586ba007..baa8a4361 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -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;
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index 04ca52f79..cdc0754c5 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -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;
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index a3f3b8541..f8ebd9b44 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -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;
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index ed50354a0..09442f051 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -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;
diff --git a/compute/zgels.c b/compute/zgels.c
index f25372b82..9e1fd48d7 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -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;
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index 6ad9e77da..898ee28e3 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -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;
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index 33c536e91..b17e13eb0 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -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;
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index de1c4d95e..b6ce0e27f 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -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;
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index e6be28293..1f97f7e57 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -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;
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index 39b68f65b..369c2ac9e 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -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;
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index cc29bec51..fa32a92d6 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -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;
diff --git a/compute/zheevd.c b/compute/zheevd.c
index 35963d0f1..027a4944f 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -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;
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index a383fddac..2c4cfb060 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -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;
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index 1ac244427..e1508230b 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -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;
diff --git a/compute/zunglq.c b/compute/zunglq.c
index 7833a9de6..f83d468cd 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -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;
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 439c35707..d8842b761 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -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;
diff --git a/compute/zungqr.c b/compute/zungqr.c
index 1ce47bdd5..b168ce169 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -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;
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index 256368d7d..5a9a1017a 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -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;
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index 64061c84a..e69c5426a 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -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;
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 880831c3c..5c89da5bf 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -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;
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index e7c537f62..ce4b541f7 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -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;
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index 733857bf1..dfa4fa773 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -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;
--
GitLab