From 579dc09e05ef5d22eeb0f81ae5f85781d6469305 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 22 Jan 2018 20:51:18 +0100
Subject: [PATCH] Explode descriptor one per line
---
compute/zgeadd.c | 3 ++-
compute/zgelqs.c | 3 ++-
compute/zgelqs_param.c | 3 ++-
compute/zgels.c | 3 ++-
compute/zgels_param.c | 3 ++-
compute/zgemm.c | 4 +++-
compute/zgeqrs.c | 3 ++-
compute/zgeqrs_param.c | 3 ++-
compute/zgesv_incpiv.c | 3 ++-
compute/zgesv_nopiv.c | 3 ++-
compute/zgesvd.c | 3 ++-
compute/zgetrs_incpiv.c | 3 ++-
compute/zgetrs_nopiv.c | 3 ++-
compute/zheevd.c | 3 ++-
compute/zhemm.c | 4 +++-
compute/zher2k.c | 4 +++-
compute/zherk.c | 3 ++-
compute/zlacpy.c | 3 ++-
compute/zposv.c | 3 ++-
compute/zpotrf.c | 3 ++-
compute/zpotrimm.c | 4 +++-
compute/zpotrs.c | 3 ++-
compute/zsymm.c | 4 +++-
compute/zsyr2k.c | 4 +++-
compute/zsyrk.c | 3 ++-
compute/zsysv.c | 3 ++-
compute/zsytrs.c | 3 ++-
compute/ztpgqrt.c | 5 ++++-
compute/ztpqrt.c | 3 ++-
compute/ztradd.c | 3 ++-
compute/ztrmm.c | 3 ++-
compute/ztrsm.c | 3 ++-
compute/ztrsmpl.c | 3 ++-
compute/zunglq.c | 3 ++-
compute/zunglq_param.c | 3 ++-
compute/zungqr.c | 3 ++-
compute/zungqr_param.c | 3 ++-
compute/zunmlq.c | 3 ++-
compute/zunmlq_param.c | 3 ++-
compute/zunmqr.c | 3 ++-
compute/zunmqr_param.c | 3 ++-
41 files changed, 90 insertions(+), 41 deletions(-)
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index 3c7dafbf3..6e8f1e5af 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -98,7 +98,8 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
int NB;
int Am, An;
int status;
- MORSE_desc_t descA, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index f8ebd9b44..d39b9e64f 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -91,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index 09442f051..5b6e5e755 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -93,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgels.c b/compute/zgels.c
index 9e1fd48d7..680702bb2 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -118,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index 898ee28e3..f1346cc27 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -120,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgemm.c b/compute/zgemm.c
index c2ec27e98..aec4e1f72 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -138,7 +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, descB, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
+ MORSE_desc_t descC;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index 1f97f7e57..93bac6e45 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -91,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index 369c2ac9e..7e4b30b47 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -86,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index ff2e4c5b1..e73fc2601 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -96,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index 32e6f05e8..a1261cb26 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -95,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index fa32a92d6..cf9f34ae9 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -402,7 +402,8 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
{
MORSE_desc_t descA;
MORSE_desc_t descT;
- MORSE_desc_t descU, descVT;
+ MORSE_desc_t descU;
+ MORSE_desc_t descVT;
MORSE_desc_t descAB;
MORSE_desc_t D, *Dptr = NULL;
MORSE_desc_t *subA, *subT, *subUVT;
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index a16d6d435..1f40b1101 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -98,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index b567fe9ef..a03b5ee67 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -92,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zheevd.c b/compute/zheevd.c
index 027a4944f..c1b0b78c8 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -343,7 +343,8 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
int N, NB, status;
double *E;
MORSE_Complex64_t *V;
- MORSE_desc_t descQ2, descV;
+ MORSE_desc_t descQ2;
+ MORSE_desc_t descV;
MORSE_desc_t *subA, *subQ, *subT;
morse = morse_context_self();
diff --git a/compute/zhemm.c b/compute/zhemm.c
index 16baf4d96..24f24bb1f 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -114,7 +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, descB, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
+ MORSE_desc_t descC;
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 f79f6d122..453d61818 100644
--- a/compute/zher2k.c
+++ b/compute/zher2k.c
@@ -115,7 +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, descB, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
+ MORSE_desc_t descC;
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 d82dfa744..9ec4f82a9 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -105,7 +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, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descC;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index e4830ebc4..b51de41d3 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -83,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zposv.c b/compute/zposv.c
index eff74e0c2..0ed24aaec 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -104,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotrf.c b/compute/zpotrf.c
index 5e87c910b..3da636bdd 100644
--- a/compute/zpotrf.c
+++ b/compute/zpotrf.c
@@ -91,7 +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, descAl;
+ MORSE_desc_t descAt;
+ MORSE_desc_t descAl;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index 56d74fef7..150a5ca19 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -84,7 +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, descB, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
+ MORSE_desc_t descC;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index 8db0de89d..4b4653dfb 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -89,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zsymm.c b/compute/zsymm.c
index 8281f6189..81f9dc3fc 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -114,7 +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, descB, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
+ MORSE_desc_t descC;
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 294fe436a..6b1125fac 100644
--- a/compute/zsyr2k.c
+++ b/compute/zsyr2k.c
@@ -115,7 +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, descB, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
+ MORSE_desc_t descC;
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 ecad67b92..273bc1e2e 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -105,7 +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, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descC;
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 bf341cc7b..d263aa3c8 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -101,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index 7a7ee0e21..36e650f02 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -88,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index e1508230b..cf85533b0 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -144,7 +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, descQ2, descV1, descV2;
+ MORSE_desc_t descQ1;
+ MORSE_desc_t descQ2;
+ MORSE_desc_t descV1;
+ MORSE_desc_t descV2;
int minMK = chameleon_min( M, K );
morse = morse_context_self();
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index 91b0bd92a..852de0ce2 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -138,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
int minMN = chameleon_min( M, N );
morse = morse_context_self();
diff --git a/compute/ztradd.c b/compute/ztradd.c
index f8eddd8fc..b55fe3e44 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -104,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
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 a13413997..b56caa75b 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -111,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index b0d987b52..24bde3d9c 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -112,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index cdc18667a..9242c9f87 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -90,7 +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, descB;
+ MORSE_desc_t descA;
+ MORSE_desc_t descB;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunglq.c b/compute/zunglq.c
index f83d468cd..1119c9b48 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -91,7 +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, descQ;
+ MORSE_desc_t descA;
+ MORSE_desc_t descQ;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index d8842b761..910d77848 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -88,7 +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, descQ;
+ MORSE_desc_t descA;
+ MORSE_desc_t descQ;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zungqr.c b/compute/zungqr.c
index b168ce169..c9a790b03 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -91,7 +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, descQ;
+ MORSE_desc_t descA;
+ MORSE_desc_t descQ;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index 5a9a1017a..25a9a831a 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -90,7 +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, descQ;
+ MORSE_desc_t descA;
+ MORSE_desc_t descQ;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index e69c5426a..d29598bfb 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -115,7 +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, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descC;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 5c89da5bf..356d4b20c 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -114,7 +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, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descC;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index ce4b541f7..245708e6a 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -117,7 +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, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descC;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index dfa4fa773..a3a30faf8 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -118,7 +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, descC;
+ MORSE_desc_t descA;
+ MORSE_desc_t descC;
morse = morse_context_self();
if (morse == NULL) {
--
GitLab