From ecbee0dfdb2296896d7a38063f8f30af4a2f642e Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 22 Jan 2018 20:53:50 +0100
Subject: [PATCH] Add descriptor declarations
---
compute/zbuild.c | 2 +-
compute/zgeadd.c | 4 ++--
compute/zgelqf.c | 2 +-
compute/zgelqf_param.c | 2 +-
compute/zgelqs.c | 4 ++--
compute/zgelqs_param.c | 4 ++--
compute/zgels.c | 4 ++--
compute/zgels_param.c | 4 ++--
compute/zgemm.c | 6 +++---
compute/zgeqrf.c | 2 +-
compute/zgeqrf_param.c | 2 +-
compute/zgeqrs.c | 4 ++--
compute/zgeqrs_param.c | 4 ++--
compute/zgesv_incpiv.c | 4 ++--
compute/zgesv_nopiv.c | 4 ++--
compute/zgesvd.c | 12 ++++++------
compute/zgetrf_incpiv.c | 2 +-
compute/zgetrf_nopiv.c | 2 +-
compute/zgetrs_incpiv.c | 4 ++--
compute/zgetrs_nopiv.c | 4 ++--
compute/zheevd.c | 8 ++++----
compute/zhemm.c | 6 +++---
compute/zher2k.c | 6 +++---
compute/zherk.c | 4 ++--
compute/zhetrd.c | 6 +++---
compute/zlacpy.c | 4 ++--
compute/zlange.c | 2 +-
compute/zlanhe.c | 2 +-
compute/zlansy.c | 2 +-
compute/zlantr.c | 2 +-
compute/zlascal.c | 4 ++--
compute/zlaset.c | 2 +-
compute/zlauum.c | 2 +-
compute/zplghe.c | 2 +-
compute/zplgsy.c | 2 +-
compute/zplrnt.c | 2 +-
compute/zposv.c | 4 ++--
compute/zpotrf.c | 4 ++--
compute/zpotri.c | 2 +-
compute/zpotrimm.c | 6 +++---
compute/zpotrs.c | 4 ++--
compute/zsymm.c | 6 +++---
compute/zsyr2k.c | 6 +++---
compute/zsyrk.c | 4 ++--
compute/zsysv.c | 4 ++--
compute/zsytrf.c | 2 +-
compute/zsytrs.c | 4 ++--
compute/ztpgqrt.c | 8 ++++----
compute/ztpqrt.c | 4 ++--
compute/ztradd.c | 4 ++--
compute/ztrmm.c | 4 ++--
compute/ztrsm.c | 4 ++--
compute/ztrsmpl.c | 4 ++--
compute/ztrtri.c | 2 +-
compute/zunglq.c | 4 ++--
compute/zunglq_param.c | 4 ++--
compute/zungqr.c | 4 ++--
compute/zungqr_param.c | 4 ++--
compute/zunmlq.c | 4 ++--
compute/zunmlq_param.c | 4 ++--
compute/zunmqr.c | 4 ++--
compute/zunmqr_param.c | 4 ++--
62 files changed, 120 insertions(+), 120 deletions(-)
diff --git a/compute/zbuild.c b/compute/zbuild.c
index 5256ff049..248a2dd1d 100644
--- a/compute/zbuild.c
+++ b/compute/zbuild.c
@@ -91,7 +91,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index 6e8f1e5af..d68675ef6 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -98,8 +98,8 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index baa8a4361..9ec00006b 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -84,7 +84,7 @@ int MORSE_zgelqf(int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index cdc0754c5..a215f3bbf 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -81,7 +81,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index d39b9e64f..ca91e1efe 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -91,8 +91,8 @@ int MORSE_zgelqs(int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index 5b6e5e755..3c1f68853 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -93,8 +93,8 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgels.c b/compute/zgels.c
index 680702bb2..bedaaac04 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -118,8 +118,8 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index f1346cc27..526e77e5a 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -120,8 +120,8 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgemm.c b/compute/zgemm.c
index aec4e1f72..4c5d6570f 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -138,9 +138,9 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
int NB;
int Am, An, Bm, Bn;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index b17e13eb0..823492a20 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -83,7 +83,7 @@ int MORSE_zgeqrf(int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index b6ce0e27f..eacb6d081 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -86,7 +86,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index 93bac6e45..f4331413b 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -91,8 +91,8 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index 7e4b30b47..92dcd417c 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -86,8 +86,8 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index e73fc2601..8ee666675 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -96,8 +96,8 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index a1261cb26..7a3e7a5a1 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -95,8 +95,8 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index cf9f34ae9..b6533b3bd 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -160,7 +160,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
@@ -400,11 +400,11 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_Complex64_t *VT, int LDVT,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
- MORSE_desc_t descA;
- MORSE_desc_t descT;
- MORSE_desc_t descU;
- MORSE_desc_t descVT;
- MORSE_desc_t descAB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descTl, descTt;
+ MORSE_desc_t descUl, descUt;
+ MORSE_desc_t descVTl, descVTt;
+ MORSE_desc_t descABl, descABt;
MORSE_desc_t D, *Dptr = NULL;
MORSE_desc_t *subA, *subT, *subUVT;
double *E;
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index 78da0d750..6253f4c10 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -87,7 +87,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index b7f6aa938..dedcea01a 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -77,7 +77,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
{
int NB;
int status;
- MORSE_desc_t descA ;
+ MORSE_desc_t descAl, descAt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index 1f40b1101..d52fa0153 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -98,8 +98,8 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index a03b5ee67..78e2c2783 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -92,8 +92,8 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zheevd.c b/compute/zheevd.c
index c1b0b78c8..a59d40c63 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -336,15 +336,15 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
MORSE_context_t *morse;
- MORSE_desc_t descA;
- MORSE_desc_t descT;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descTl, descTt;
MORSE_desc_t D, *Dptr = NULL;
MORSE_Complex64_t *Q2;
int N, NB, status;
double *E;
MORSE_Complex64_t *V;
- MORSE_desc_t descQ2;
- MORSE_desc_t descV;
+ MORSE_desc_t descQ2l, descQ2t;
+ MORSE_desc_t descVl, descVt;
MORSE_desc_t *subA, *subQ, *subT;
morse = morse_context_self();
diff --git a/compute/zhemm.c b/compute/zhemm.c
index 24f24bb1f..8d6b9782f 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -114,9 +114,9 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
int NB;
int Am;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zher2k.c b/compute/zher2k.c
index 453d61818..41449fb8e 100644
--- a/compute/zher2k.c
+++ b/compute/zher2k.c
@@ -115,9 +115,9 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zherk.c b/compute/zherk.c
index 9ec4f82a9..abf0f8522 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -105,8 +105,8 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index 2c4cfb060..7d1a75fef 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -125,7 +125,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
@@ -333,8 +333,8 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
MORSE_context_t *morse;
- MORSE_desc_t descA;
- MORSE_desc_t descAB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descABl, descABt;
int N, NB, LDAB;
int status;
MORSE_desc_t D, *Dptr = NULL;
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index b51de41d3..2ba71f07e 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -83,8 +83,8 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlange.c b/compute/zlange.c
index a7bd32ca1..ad96f5f74 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -92,7 +92,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlanhe.c b/compute/zlanhe.c
index b7998b8c4..0e1141901 100644
--- a/compute/zlanhe.c
+++ b/compute/zlanhe.c
@@ -92,7 +92,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlansy.c b/compute/zlansy.c
index 0383a7be9..780d3c2c1 100644
--- a/compute/zlansy.c
+++ b/compute/zlansy.c
@@ -92,7 +92,7 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlantr.c b/compute/zlantr.c
index 8c06e1967..848750cc2 100644
--- a/compute/zlantr.c
+++ b/compute/zlantr.c
@@ -104,7 +104,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlascal.c b/compute/zlascal.c
index fb36b4442..b5e78c053 100644
--- a/compute/zlascal.c
+++ b/compute/zlascal.c
@@ -67,7 +67,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
{
int NB;
int status;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
@@ -227,7 +227,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
MORSE_context_t *morse;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlaset.c b/compute/zlaset.c
index f8e42f788..aa26d42cb 100644
--- a/compute/zlaset.c
+++ b/compute/zlaset.c
@@ -84,7 +84,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlauum.c b/compute/zlauum.c
index e0622456e..228fb7e27 100644
--- a/compute/zlauum.c
+++ b/compute/zlauum.c
@@ -85,7 +85,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zplghe.c b/compute/zplghe.c
index 0396aeed6..a2550f30d 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -84,7 +84,7 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index e57091b6c..89b02c279 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -84,7 +84,7 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index 4272ad445..0b563d031 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -78,7 +78,7 @@ int MORSE_zplrnt( int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zposv.c b/compute/zposv.c
index 0ed24aaec..48493733a 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -104,8 +104,8 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotrf.c b/compute/zpotrf.c
index 3da636bdd..e471c619a 100644
--- a/compute/zpotrf.c
+++ b/compute/zpotrf.c
@@ -91,8 +91,8 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descAt;
- MORSE_desc_t descAl;
+ MORSE_desc_t descAtl, descAtt;
+ MORSE_desc_t descAll, descAlt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotri.c b/compute/zpotri.c
index 3fb9836e3..58c6b76de 100644
--- a/compute/zpotri.c
+++ b/compute/zpotri.c
@@ -82,7 +82,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index 150a5ca19..5f9f1b904 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -84,9 +84,9 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
+ MORSE_desc_t descCl, descCt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index 4b4653dfb..dfbb3136b 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -89,8 +89,8 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zsymm.c b/compute/zsymm.c
index 81f9dc3fc..8948f1c08 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -114,9 +114,9 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
int NB;
int Am;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zsyr2k.c b/compute/zsyr2k.c
index 6b1125fac..1ac98900b 100644
--- a/compute/zsyr2k.c
+++ b/compute/zsyr2k.c
@@ -115,9 +115,9 @@ int MORSE_zsyr2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zsyrk.c b/compute/zsyrk.c
index 273bc1e2e..94d67f8d9 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -105,8 +105,8 @@ int MORSE_zsyrk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zsysv.c b/compute/zsysv.c
index d263aa3c8..08c214496 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -101,8 +101,8 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zsytrf.c b/compute/zsytrf.c
index a0e1345f9..45bc1dccb 100644
--- a/compute/zsytrf.c
+++ b/compute/zsytrf.c
@@ -86,7 +86,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index 36e650f02..d608cd19a 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -88,8 +88,8 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index cf85533b0..252a41d9a 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -144,10 +144,10 @@ int MORSE_ztpgqrt( int M, int N, int K, int L,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descQ1;
- MORSE_desc_t descQ2;
- MORSE_desc_t descV1;
- MORSE_desc_t descV2;
+ MORSE_desc_t descQ1l, descQ1t;
+ MORSE_desc_t descQ2l, descQ2t;
+ MORSE_desc_t descV1l, descV1t;
+ MORSE_desc_t descV2l, descV2t;
int minMK = chameleon_min( M, K );
morse = morse_context_self();
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index 852de0ce2..a84b9f606 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -138,8 +138,8 @@ int MORSE_ztpqrt( int M, int N, int L,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
int minMN = chameleon_min( M, N );
morse = morse_context_self();
diff --git a/compute/ztradd.c b/compute/ztradd.c
index b55fe3e44..81e9d4d87 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -104,8 +104,8 @@ int MORSE_ztradd(MORSE_enum uplo, MORSE_enum trans, int M, int N,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index b56caa75b..95ea52546 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -111,8 +111,8 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index 24bde3d9c..622fafe9a 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -112,8 +112,8 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index 9242c9f87..864489313 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -90,8 +90,8 @@ int MORSE_ztrsmpl(int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descB;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztrtri.c b/compute/ztrtri.c
index 4dfc7438f..de6004fdd 100644
--- a/compute/ztrtri.c
+++ b/compute/ztrtri.c
@@ -90,7 +90,7 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunglq.c b/compute/zunglq.c
index 1119c9b48..a5c65ad09 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -91,8 +91,8 @@ int MORSE_zunglq(int M, int N, int K,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descQ;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descQl, descQt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 910d77848..822ddce35 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -88,8 +88,8 @@ int MORSE_zunglq_param(const libhqr_tree_t *qrtree, int M, int N, int K,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descQ;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descQl, descQt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zungqr.c b/compute/zungqr.c
index c9a790b03..1c54545db 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -91,8 +91,8 @@ int MORSE_zungqr(int M, int N, int K,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descQ;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descQl, descQt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index 25a9a831a..36b03252b 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -90,8 +90,8 @@ int MORSE_zungqr_param(const libhqr_tree_t *qrtree,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descQ;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descQl, descQt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index d29598bfb..572e275e9 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -115,8 +115,8 @@ int MORSE_zunmlq(MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descCl, descCt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 356d4b20c..0672587e9 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -114,8 +114,8 @@ int MORSE_zunmlq_param(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_enum
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descCl, descCt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index 245708e6a..c332328c2 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -117,8 +117,8 @@ int MORSE_zunmqr(MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descCl, descCt;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index a3a30faf8..1f4a6867c 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -118,8 +118,8 @@ int MORSE_zunmqr_param(const libhqr_tree_t *qrtree,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
- MORSE_desc_t descC;
+ MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descCl, descCt;
morse = morse_context_self();
if (morse == NULL) {
--
GitLab