From bfa4c4e8873757072d3eb04c181044b7508d9d9b Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Fri, 30 Jun 2023 14:23:29 +0200
Subject: [PATCH] Fix upperlower in potrf testings
---
testing/testing_zpoinv.c | 6 +++---
testing/testing_zposv.c | 10 +++++-----
testing/testing_zpotrf.c | 8 ++++----
testing/testing_zpotri.c | 6 +++---
testing/testing_zpotrs.c | 10 +++++-----
5 files changed, 20 insertions(+), 20 deletions(-)
diff --git a/testing/testing_zpoinv.c b/testing/testing_zpoinv.c
index eab5caf0a..90f77baea 100644
--- a/testing/testing_zpoinv.c
+++ b/testing/testing_zpoinv.c
@@ -9,12 +9,12 @@
*
* @brief Chameleon zpoinv testing
*
- * @version 1.2.0
+ * @version 1.3.0
* @author Lucas Barros de Assis
* @author Florent Pruvost
* @author Mathieu Faverge
* @author Alycia Lisito
- * @date 2022-02-14
+ * @date 2023-07-05
* @precisions normal z -> c d s
*
*/
@@ -79,7 +79,7 @@ testing_zpoinv_desc( run_arg_list_t *args, int check )
/* Check the inverse */
if ( check ) {
- CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, NULL );
+ CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, CHAMELEON_MAT_ALLOC_TILE );
CHAMELEON_zplghe_Tile( (double)N, uplo, descA0, seedA );
hres += check_ztrtri( args, ChamHermitian, uplo, ChamNonUnit, descA0, descA );
diff --git a/testing/testing_zposv.c b/testing/testing_zposv.c
index 823f9e039..14951a358 100644
--- a/testing/testing_zposv.c
+++ b/testing/testing_zposv.c
@@ -9,12 +9,12 @@
*
* @brief Chameleon zposv testing
*
- * @version 1.2.0
+ * @version 1.3.0
* @author Lucas Barros de Assis
* @author Florent Pruvost
* @author Mathieu Faverge
* @author Alycia Lisito
- * @date 2022-02-22
+ * @date 2023-07-05
* @precisions normal z -> c d s
*
*/
@@ -91,13 +91,13 @@ testing_zposv_desc( run_arg_list_t *args, int check )
CHAM_desc_t *descA0, *descB;
/* Check the factorization */
- descA0 = CHAMELEON_Desc_Copy( descA, NULL );
- CHAMELEON_zplghe_Tile( (double)N, uplo, descA0, seedA );
+ descA0 = CHAMELEON_Desc_Copy( descA, CHAMELEON_MAT_ALLOC_TILE );
+ CHAMELEON_zplghe_Tile( (double)N, ChamUpperLower, descA0, seedA );
hres += check_zxxtrf( args, ChamHermitian, uplo, descA0, descA );
/* Check the solve */
- descB = CHAMELEON_Desc_Copy( descX, NULL );
+ descB = CHAMELEON_Desc_Copy( descX, CHAMELEON_MAT_ALLOC_TILE );
CHAMELEON_zplrnt_Tile( descB, seedB );
CHAMELEON_zplghe_Tile( (double)N, uplo, descA0, seedA );
diff --git a/testing/testing_zpotrf.c b/testing/testing_zpotrf.c
index b49c7294d..5fe898847 100644
--- a/testing/testing_zpotrf.c
+++ b/testing/testing_zpotrf.c
@@ -9,12 +9,12 @@
*
* @brief Chameleon zpotrf testing
*
- * @version 1.2.0
+ * @version 1.3.0
* @author Lucas Barros de Assis
* @author Mathieu Faverge
* @author Alycia Lisito
* @author Florent Pruvost
- * @date 2022-02-22
+ * @date 2023-07-05
* @precisions normal z -> c d s
*
*/
@@ -74,8 +74,8 @@ testing_zpotrf_desc( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, NULL );
- CHAMELEON_zplghe_Tile( (double)N, uplo, descA0, seedA );
+ CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, CHAMELEON_MAT_ALLOC_TILE );
+ CHAMELEON_zplghe_Tile( (double)N, ChamUpperLower, descA0, seedA );
hres += check_zxxtrf( args, ChamHermitian, uplo, descA0, descA );
diff --git a/testing/testing_zpotri.c b/testing/testing_zpotri.c
index e1bca7535..1edf9d230 100644
--- a/testing/testing_zpotri.c
+++ b/testing/testing_zpotri.c
@@ -9,12 +9,12 @@
*
* @brief Chameleon zpotri testing
*
- * @version 1.2.0
+ * @version 1.3.0
* @author Lucas Barros de Assis
* @author Florent Pruvost
* @author Mathieu Faverge
* @author Alycia Lisito
- * @date 2022-02-14
+ * @date 2023-07-05
* @precisions normal z -> c d s
*
*/
@@ -77,7 +77,7 @@ testing_zpotri_desc( run_arg_list_t *args, int check )
/* Check the inverse */
if ( check ) {
- CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, NULL );
+ CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, CHAMELEON_MAT_ALLOC_TILE );
CHAMELEON_zplghe_Tile( (double)N, uplo, descA0, seedA );
hres += check_ztrtri( args, ChamHermitian, uplo, ChamNonUnit, descA0, descA );
diff --git a/testing/testing_zpotrs.c b/testing/testing_zpotrs.c
index 3a865db99..98977ad09 100644
--- a/testing/testing_zpotrs.c
+++ b/testing/testing_zpotrs.c
@@ -9,12 +9,12 @@
*
* @brief Chameleon zpotrs testing
*
- * @version 1.2.0
+ * @version 1.3.0
* @author Lucas Barros de Assis
* @author Mathieu Faverge
* @author Alycia Lisito
* @author Florent Pruvost
- * @date 2022-02-22
+ * @date 2023-07-05
* @precisions normal z -> c d s
*
*/
@@ -85,8 +85,8 @@ testing_zpotrs_desc( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, NULL );
- CHAM_desc_t *descB = CHAMELEON_Desc_Copy( descX, NULL );
+ CHAM_desc_t *descA0 = CHAMELEON_Desc_Copy( descA, CHAMELEON_MAT_ALLOC_TILE );
+ CHAM_desc_t *descB = CHAMELEON_Desc_Copy( descX, CHAMELEON_MAT_ALLOC_TILE );
CHAMELEON_zplghe_Tile( (double)N, uplo, descA0, seedA );
CHAMELEON_zplrnt_Tile( descB, seedB );
@@ -173,7 +173,7 @@ testing_zpotrs_std( run_arg_list_t *args, int check )
CHAMELEON_Complex64_t *A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Complex64_t *B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_zplghe( (double)N, uplo, N, A0, LDA, seedA );
+ CHAMELEON_zplghe( (double)N, ChamUpperLower, N, A0, LDA, seedA );
CHAMELEON_zplrnt( N, NRHS, B, LDB, seedB );
hres += check_zsolve_std( args, ChamHermitian, ChamNoTrans, uplo, N, NRHS, A0, LDA, X, B, LDB );
--
GitLab