From cbc1b247e7183467924ca3014258b75613732bef Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Tue, 23 Jan 2018 16:44:24 +0100
Subject: [PATCH] Some cleanup for sonarqube
---
compute/zbuild.c | 2 +-
compute/zgeadd.c | 2 +-
compute/zgelqf.c | 4 ++--
compute/zgelqf_param.c | 2 +-
compute/zgelqs.c | 6 +++---
compute/zgelqs_param.c | 6 +++---
compute/zgels.c | 22 +++++++++++-----------
compute/zgels_param.c | 12 ++++++------
compute/zgemm.c | 2 +-
compute/zgeqrf.c | 4 ++--
compute/zgeqrf_param.c | 2 +-
compute/zgeqrs.c | 6 +++---
compute/zgeqrs_param.c | 4 ++--
compute/zgesv_incpiv.c | 6 +++---
compute/zgesv_nopiv.c | 6 +++---
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 | 2 +-
compute/zher2k.c | 2 +-
compute/zherk.c | 2 +-
compute/zhetrd.c | 4 ++--
compute/zlacpy.c | 2 +-
compute/zlange.c | 2 +-
compute/zlanhe.c | 2 +-
compute/zlansy.c | 2 +-
compute/zlantr.c | 10 +++++-----
compute/zlascal.c | 6 +++---
compute/zlaset.c | 2 +-
compute/zlauum.c | 6 +++---
compute/zplghe.c | 2 +-
compute/zplgsy.c | 2 +-
compute/zplrnt.c | 2 +-
compute/zposv.c | 10 +++++-----
compute/zpotrf.c | 6 +++---
compute/zpotri.c | 8 ++++----
compute/zpotrimm.c | 10 +++++-----
compute/zpotrs.c | 8 ++++----
compute/zsymm.c | 2 +-
compute/zsyr2k.c | 2 +-
compute/zsyrk.c | 2 +-
compute/zsysv.c | 10 +++++-----
compute/zsytrf.c | 6 +++---
compute/zsytrs.c | 8 ++++----
compute/ztpgqrt.c | 2 +-
compute/ztpqrt.c | 4 ++--
compute/ztradd.c | 2 +-
compute/ztrmm.c | 10 +++++-----
compute/ztrsm.c | 10 +++++-----
compute/ztrsmpl.c | 2 +-
compute/ztrtri.c | 10 +++++-----
compute/zunglq.c | 6 +++---
compute/zunglq_param.c | 4 ++--
compute/zungqr.c | 6 +++---
compute/zungqr_param.c | 4 ++--
compute/zunmlq.c | 6 +++---
compute/zunmlq_param.c | 2 +-
compute/zunmqr.c | 6 +++---
compute/zunmqr_param.c | 2 +-
61 files changed, 151 insertions(+), 151 deletions(-)
diff --git a/compute/zbuild.c b/compute/zbuild.c
index 7f86afbf8..a3c6628e2 100644
--- a/compute/zbuild.c
+++ b/compute/zbuild.c
@@ -292,7 +292,7 @@ int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A,
if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
- morse_pzbuild(uplo, A, user_data, user_build_callback, sequence, request);
+ morse_pzbuild( uplo, A, user_data, user_build_callback, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index 837077bcc..004588b7e 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -363,7 +363,7 @@ int MORSE_zgeadd_Tile_Async(MORSE_enum trans,
((alpha == (MORSE_Complex64_t)0.0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS;
- morse_pztradd(MorseUpperLower, trans, alpha, A, beta, B, sequence, request);
+ morse_pztradd( MorseUpperLower, trans, alpha, A, beta, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index 51dff3eec..e349466be 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -287,10 +287,10 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
#endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzgelqf(A, T, Dptr, sequence, request);
+ morse_pzgelqf( A, T, Dptr, sequence, request );
}
else {
- morse_pzgelqfrh(A, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzgelqfrh( A, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index 50d6773a1..76822f05a 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -287,7 +287,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
#endif
- morse_pzgelqf_param(qrtree, A, TS, TT, Dptr, sequence, request);
+ morse_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
}
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index c75c89a99..bf065fc36 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -314,7 +314,7 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pztrsm( MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
@@ -327,10 +327,10 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
#endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzunmlq(MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request);
+ morse_pzunmlq( MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzunmlqrh(MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunmlqrh( MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index 5605e4b35..3dae2c711 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -318,12 +318,12 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
*/
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
- morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request);
+ morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request );
free(subB); */
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pztrsm( MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
@@ -335,7 +335,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
#endif
- morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
+ morse_pzunmlq_param( qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
}
diff --git a/compute/zgels.c b/compute/zgels.c
index f6961f4b6..4837fde3a 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -383,23 +383,23 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
#endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzgeqrf(A, T, Dptr, sequence, request);
+ morse_pzgeqrf( A, T, Dptr, sequence, request );
- morse_pzunmqr(MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request);
+ morse_pzunmqr( MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzgeqrfrh(A, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzgeqrfrh( A, T, Dptr, MORSE_RHBLK, sequence, request );
- morse_pzunmqrrh(MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunmqrrh( MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request );
}
subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
}
else {
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
- morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request);
+ morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request );
free(subB); */
#if defined(CHAMELEON_COPY_DIAG)
{
@@ -409,20 +409,20 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
}
#endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzgelqf(A, T, Dptr, sequence, request);
+ morse_pzgelqf( A, T, Dptr, sequence, request );
}
else {
- morse_pzgelqfrh(A, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzgelqfrh( A, T, Dptr, MORSE_RHBLK, sequence, request );
}
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pztrsm( MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzunmlq(MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request);
+ morse_pzunmlq( MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzunmlqrh(MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunmlqrh( MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request );
}
}
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index baf825f1c..af3d95fea 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -393,9 +393,9 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pzgeqrf_param(qrtree, A, TS, TT, Dptr, sequence, request);
- morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
+ morse_pzunmqr_param( qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request );
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
}
else {
#if defined(CHAMELEON_COPY_DIAG)
@@ -409,9 +409,9 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pzgelqf_param(qrtree, A, TS, TT, Dptr, sequence, request);
- morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
- morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
+ morse_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
+ morse_pztrsm( MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
+ morse_pzunmlq_param( qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request );
}
free(subA);
diff --git a/compute/zgemm.c b/compute/zgemm.c
index 0bf587ed0..df7040acc 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -461,7 +461,7 @@ int MORSE_zgemm_Tile_Async(MORSE_enum transA, MORSE_enum transB,
((alpha == (MORSE_Complex64_t)0.0 || K == 0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS;
- morse_pzgemm(transA, transB, alpha, A, B, beta, C, sequence, request);
+ morse_pzgemm( transA, transB, alpha, A, B, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index 58dc835fa..6a0835375 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -286,10 +286,10 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
#endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzgeqrf(A, T, Dptr, sequence, request);
+ morse_pzgeqrf( A, T, Dptr, sequence, request );
}
else {
- morse_pzgeqrfrh(A, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzgeqrfrh( A, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index 852928027..3b4b9a0b8 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -296,7 +296,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
#endif
- morse_pzgeqrf_param(qrtree, A, TS, TT, Dptr, sequence, request);
+ morse_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index 645fdf119..f5d92f298 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -317,15 +317,15 @@ int MORSE_zgeqrs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
#endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzunmqr(MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request);
+ morse_pzunmqr( MorseLeft, MorseConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzunmqrrh(MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunmqrrh( MorseLeft, MorseConjTrans, A, B, T, Dptr, MORSE_RHBLK, sequence, request );
}
subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index a7331b9e0..a08213db5 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -320,8 +320,8 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
+ morse_pzunmqr_param( qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request );
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index 0bcd72193..0f4a1f082 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -309,11 +309,11 @@ int MORSE_zgesv_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, M
return MORSE_SUCCESS;
*/
- morse_pzgetrf_incpiv(A, L, IPIV, sequence, request);
+ morse_pzgetrf_incpiv( A, L, IPIV, sequence, request );
- morse_pztrsmpl(A, B, L, IPIV, sequence, request);
+ morse_pztrsmpl( A, B, L, IPIV, sequence, request );
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index 93571e422..741788fb3 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -297,11 +297,11 @@ int MORSE_zgesv_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_SUCCESS;
*/
- morse_pzgetrf_nopiv(A, sequence, request);
+ morse_pzgetrf_nopiv( A, sequence, request );
- morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, MorseLower, MorseNoTrans, MorseUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request );
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index 949ad8fb4..a96a21f79 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -282,7 +282,7 @@ int MORSE_zgetrf_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
return MORSE_SUCCESS;
*/
- morse_pzgetrf_incpiv(A, L, IPIV, sequence, request);
+ morse_pzgetrf_incpiv( A, L, IPIV, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index 9de091347..32d6b8f35 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -265,7 +265,7 @@ int MORSE_zgetrf_nopiv_Tile_Async(MORSE_desc_t *A,
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- morse_pzgetrf_nopiv(A, sequence, request);
+ morse_pzgetrf_nopiv( A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index 1bffb66c0..132f47a9c 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -312,9 +312,9 @@ int MORSE_zgetrs_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrsmpl(A, B, L, IPIV, sequence, request);
+ morse_pztrsmpl( A, B, L, IPIV, sequence, request );
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index 36f4635a2..3259b1a39 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -296,9 +296,9 @@ int MORSE_zgetrs_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, MorseLower, MorseNoTrans, MorseUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request );
- morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zheevd.c b/compute/zheevd.c
index 1d5dd8832..db74e871d 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -123,7 +123,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_error("MORSE_zheevd", "illegal value of jobz");
return -1;
}
- if (uplo != MorseLower && uplo != MorseUpper) {
+ if ((uplo != MorseLower) && (uplo != MorseUpper)) {
morse_error("MORSE_zheevd", "illegal value of uplo");
return -2;
}
@@ -384,7 +384,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
morse_error("MORSE_zheevd_Tile_Async", "illegal value of jobz");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseLower && uplo != MorseUpper) {
+ if ((uplo != MorseLower) && (uplo != MorseUpper)) {
morse_error("MORSE_zheevd_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
@@ -491,7 +491,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
morse_pzgemm( MorseNoTrans, MorseNoTrans,
1.0, &descQ2, &descV,
0.0, &descA,
- sequence, request);
+ sequence, request );
}
else {
@@ -515,7 +515,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
morse_pzgemm( MorseNoTrans, MorseNoTrans,
1.0, &descQ2, &descV,
0.0, &descA,
- sequence, request);
+ sequence, request );
}
morse_sequence_wait(morse, sequence);
diff --git a/compute/zhemm.c b/compute/zhemm.c
index a9d03b1b8..7fed4ed46 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -416,7 +416,7 @@ int MORSE_zhemm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
( (alpha == (MORSE_Complex64_t)0.0) && (beta == (MORSE_Complex64_t)1.0) ))
return MORSE_SUCCESS;
- morse_pzhemm(side, uplo, alpha, A, B, beta, C, sequence, request);
+ morse_pzhemm( side, uplo, alpha, A, B, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zher2k.c b/compute/zher2k.c
index 85e85217b..0ed13b198 100644
--- a/compute/zher2k.c
+++ b/compute/zher2k.c
@@ -406,7 +406,7 @@ int MORSE_zher2k_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
((alpha == (MORSE_Complex64_t)0.0 || K == 0) && beta == (double)1.0))
return MORSE_SUCCESS;
- morse_pzher2k(uplo, trans, alpha, A, B, beta, C, sequence, request);
+ morse_pzher2k( uplo, trans, alpha, A, B, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zherk.c b/compute/zherk.c
index ecac77712..ceb31966c 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -377,7 +377,7 @@ int MORSE_zherk_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
((alpha == (double)0.0 || K == 0) && beta == (double)1.0))
return MORSE_SUCCESS;
- morse_pzherk(uplo, trans, alpha, A, beta, C, sequence, request);
+ morse_pzherk( uplo, trans, alpha, A, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index c2f530514..8ead2512b 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -138,7 +138,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_error("MORSE_zhetrd", "illegal value of jobz");
return -1;
}
- if (uplo != MorseLower && uplo != MorseUpper) {
+ if ((uplo != MorseLower) && (uplo != MorseUpper)) {
morse_error("MORSE_zhetrd", "illegal value of uplo");
return -1;
}
@@ -376,7 +376,7 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
morse_error("MORSE_zhetrd_Tile_Async", "illegal value of jobz");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseLower && uplo != MorseUpper) {
+ if ((uplo != MorseLower) && (uplo != MorseUpper)) {
morse_error("MORSE_zhetrd_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index e06df2437..4f89525c1 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -294,7 +294,7 @@ int MORSE_zlacpy_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_SUCCESS;
}
- morse_pzlacpy(uplo, A, B, sequence, request);
+ morse_pzlacpy( uplo, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlange.c b/compute/zlange.c
index b0e9aacbc..f2c18ac99 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -286,7 +286,7 @@ int MORSE_zlange_Tile_Async(MORSE_enum norm, MORSE_desc_t *A, double *value,
return MORSE_SUCCESS;
}
- morse_pzlange(norm, A, value, sequence, request);
+ morse_pzlange( norm, A, value, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlanhe.c b/compute/zlanhe.c
index c2a5a38f6..70a0310a4 100644
--- a/compute/zlanhe.c
+++ b/compute/zlanhe.c
@@ -294,7 +294,7 @@ int MORSE_zlanhe_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, d
return MORSE_SUCCESS;
}
- morse_pzlanhe(norm, uplo, A, value, sequence, request);
+ morse_pzlanhe( norm, uplo, A, value, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlansy.c b/compute/zlansy.c
index f1100d215..00bdd602f 100644
--- a/compute/zlansy.c
+++ b/compute/zlansy.c
@@ -294,7 +294,7 @@ int MORSE_zlansy_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, d
return MORSE_SUCCESS;
}
- morse_pzlansy(norm, uplo, A, value, sequence, request);
+ morse_pzlansy( norm, uplo, A, value, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlantr.c b/compute/zlantr.c
index aebf0fdb9..5657add72 100644
--- a/compute/zlantr.c
+++ b/compute/zlantr.c
@@ -117,11 +117,11 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
morse_error("MORSE_zlantr", "illegal value of norm");
return -1;
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zlantr", "illegal value of uplo");
return -2;
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_zlantr", "illegal value of diag");
return -3;
}
@@ -307,11 +307,11 @@ int MORSE_zlantr_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
morse_error("MORSE_zlantr_Tile", "illegal value of norm");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zlantr_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_zlantr_Tile", "illegal value of diag");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
@@ -322,7 +322,7 @@ int MORSE_zlantr_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
return MORSE_SUCCESS;
}
- morse_pzlantr(norm, uplo, diag, A, value, sequence, request);
+ morse_pzlantr( norm, uplo, diag, A, value, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlascal.c b/compute/zlascal.c
index 4181e8cff..25f0f4b4c 100644
--- a/compute/zlascal.c
+++ b/compute/zlascal.c
@@ -79,7 +79,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower && uplo != MorseUpperLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower) && (uplo != MorseUpperLower)) {
morse_error("MORSE_zlascal", "illegal value of uplo");
return -1;
}
@@ -258,7 +258,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
descA = *A;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower && uplo != MorseUpperLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower) && (uplo != MorseUpperLower)) {
morse_error("MORSE_zlascal", "illegal value of uplo");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
@@ -273,7 +273,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
(alpha == (MORSE_Complex64_t)1.0) )
return MORSE_SUCCESS;
- morse_pzlascal( uplo, alpha, A, sequence, request);
+ morse_pzlascal( uplo, alpha, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlaset.c b/compute/zlaset.c
index c167bebab..648a436b0 100644
--- a/compute/zlaset.c
+++ b/compute/zlaset.c
@@ -281,7 +281,7 @@ int MORSE_zlaset_Tile_Async(MORSE_enum uplo,
return MORSE_SUCCESS;
}
- morse_pzlaset(uplo, alpha, beta, A, sequence, request);
+ morse_pzlaset( uplo, alpha, beta, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zlauum.c b/compute/zlauum.c
index a8f489bcb..41fc4f13d 100644
--- a/compute/zlauum.c
+++ b/compute/zlauum.c
@@ -93,7 +93,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zlauum", "illegal value of uplo");
return -1;
}
@@ -271,7 +271,7 @@ int MORSE_zlauum_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
morse_error("MORSE_zlauum_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zlauum_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -280,7 +280,7 @@ int MORSE_zlauum_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
if (chameleon_max(N, 0) == 0)
return MORSE_SUCCESS;
*/
- morse_pzlauum(uplo, A, sequence, request);
+ morse_pzlauum( uplo, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zplghe.c b/compute/zplghe.c
index 6889182ed..db0711fc0 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -273,7 +273,7 @@ int MORSE_zplghe_Tile_Async( double bump,
if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
- morse_pzplghe(bump, uplo, A, seed, sequence, request);
+ morse_pzplghe( bump, uplo, A, seed, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index 3c857fbd8..4776d8d22 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -275,7 +275,7 @@ int MORSE_zplgsy_Tile_Async( MORSE_Complex64_t bump,
if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
- morse_pzplgsy(bump, uplo, A, seed, sequence, request);
+ morse_pzplgsy( bump, uplo, A, seed, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index 431f9ea54..dd9f6f876 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -264,7 +264,7 @@ int MORSE_zplrnt_Tile_Async( MORSE_desc_t *A,
if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
- morse_pzplrnt(A, seed, sequence, request);
+ morse_pzplrnt( A, seed, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zposv.c b/compute/zposv.c
index 24495f81b..fb0df533f 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -113,7 +113,7 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zposv", "illegal value of uplo");
return -1;
}
@@ -316,7 +316,7 @@ int MORSE_zposv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
morse_error("MORSE_zposv_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zposv_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -326,11 +326,11 @@ int MORSE_zposv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pzpotrf(uplo, A, sequence, request);
+ morse_pzpotrf( uplo, A, sequence, request );
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseConjTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseConjTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseConjTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseConjTrans, MorseNonUnit, 1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zpotrf.c b/compute/zpotrf.c
index 8612c11e2..ace056bd9 100644
--- a/compute/zpotrf.c
+++ b/compute/zpotrf.c
@@ -99,7 +99,7 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotrf", "illegal value of uplo");
return -1;
}
@@ -282,7 +282,7 @@ int MORSE_zpotrf_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
morse_error("MORSE_zpotrf_Tile_Async", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotrf_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -291,7 +291,7 @@ int MORSE_zpotrf_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
if (chameleon_max(N, 0) == 0)
return MORSE_SUCCESS;
*/
- morse_pzpotrf(uplo, A, sequence, request);
+ morse_pzpotrf( uplo, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zpotri.c b/compute/zpotri.c
index 668137a4e..366ce3773 100644
--- a/compute/zpotri.c
+++ b/compute/zpotri.c
@@ -90,7 +90,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotri", "illegal value of uplo");
return -1;
}
@@ -271,7 +271,7 @@ int MORSE_zpotri_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
morse_error("MORSE_zpotri_Tile_Async", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotri_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -280,9 +280,9 @@ int MORSE_zpotri_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
if (chameleon_max(N, 0) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrtri(uplo, MorseNonUnit, A, sequence, request);
+ morse_pztrtri( uplo, MorseNonUnit, A, sequence, request );
- morse_pzlauum(uplo, A, sequence, request);
+ morse_pzlauum( uplo, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index a82ed3ebc..3b767e71e 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -94,7 +94,7 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotrimm", "illegal value of uplo");
return -1;
}
@@ -309,7 +309,7 @@ int MORSE_zpotrimm_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
morse_error("MORSE_zpotrimm_Tile_Async", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotrimm_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -318,10 +318,10 @@ int MORSE_zpotrimm_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_max(N, 0) == 0)
return MORSE_SUCCESS;
*/
- morse_pzpotrimm(uplo, A, B, C, sequence, request);
+ morse_pzpotrimm( uplo, A, B, C, sequence, request );
/*
- morse_pztrtri(uplo, MorseNonUnit, A, sequence, request);
- morse_pzlauum(uplo, A, sequence, request);
+ morse_pztrtri( uplo, MorseNonUnit, A, sequence, request );
+ morse_pzlauum( uplo, A, sequence, request );
*/
return MORSE_SUCCESS;
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index bd9e225e5..f98bdef63 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -98,7 +98,7 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotrs", "illegal value of uplo");
return -1;
}
@@ -293,7 +293,7 @@ int MORSE_zpotrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
morse_error("MORSE_zpotrs_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zpotrs_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -302,9 +302,9 @@ int MORSE_zpotrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseConjTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseConjTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseConjTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseConjTrans, MorseNonUnit, 1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zsymm.c b/compute/zsymm.c
index d84aea207..2962ba08a 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -416,7 +416,7 @@ int MORSE_zsymm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
( (alpha == (MORSE_Complex64_t)0.0) && (beta == (MORSE_Complex64_t)1.0) ))
return MORSE_SUCCESS;
- morse_pzsymm(side, uplo, alpha, A, B, beta, C, sequence, request);
+ morse_pzsymm( side, uplo, alpha, A, B, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zsyr2k.c b/compute/zsyr2k.c
index 1e94b255f..0865f65e6 100644
--- a/compute/zsyr2k.c
+++ b/compute/zsyr2k.c
@@ -406,7 +406,7 @@ int MORSE_zsyr2k_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
((alpha == (MORSE_Complex64_t)0.0 || K == 0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS;
- morse_pzsyr2k(uplo, trans, alpha, A, B, beta, C, sequence, request);
+ morse_pzsyr2k( uplo, trans, alpha, A, B, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zsyrk.c b/compute/zsyrk.c
index 6ba756003..f4982277d 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -377,7 +377,7 @@ int MORSE_zsyrk_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
((alpha == (MORSE_Complex64_t)0.0 || K == 0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS;
- morse_pzsyrk(uplo, trans, alpha, A, beta, C, sequence, request);
+ morse_pzsyrk( uplo, trans, alpha, A, beta, C, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zsysv.c b/compute/zsysv.c
index ff0f85f98..31b279c5f 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -110,7 +110,7 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zsysv", "illegal value of uplo");
return -1;
}
@@ -307,7 +307,7 @@ int MORSE_zsysv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
morse_error("MORSE_zsysv_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zsysv_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -317,11 +317,11 @@ int MORSE_zsysv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pzsytrf(uplo, A, sequence, request);
+ morse_pzsytrf( uplo, A, sequence, request );
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseTrans, MorseNonUnit, 1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zsytrf.c b/compute/zsytrf.c
index c3ea5c53a..4eca903f1 100644
--- a/compute/zsytrf.c
+++ b/compute/zsytrf.c
@@ -94,7 +94,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zsytrf", "illegal value of uplo");
return -1;
}
@@ -268,7 +268,7 @@ int MORSE_zsytrf_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
morse_error("MORSE_zsytrf_Tile_Async", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zsytrf_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -277,7 +277,7 @@ int MORSE_zsytrf_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
if (chameleon_max(N, 0) == 0)
return MORSE_SUCCESS;
*/
- morse_pzsytrf(uplo, A, sequence, request);
+ morse_pzsytrf( uplo, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index d0225885d..e2a3ea010 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -97,7 +97,7 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zsytrs", "illegal value of uplo");
return -1;
}
@@ -286,7 +286,7 @@ int MORSE_zsytrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
morse_error("MORSE_zsytrs_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_zsytrs_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
@@ -295,9 +295,9 @@ int MORSE_zsytrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseTrans, MorseNonUnit, 1.0, A, B, sequence, request);
+ morse_pztrsm( MorseLeft, uplo, uplo == MorseUpper ? MorseNoTrans : MorseTrans, MorseNonUnit, 1.0, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index 3708e05d5..5c7aa8c6a 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -411,7 +411,7 @@ int MORSE_ztpgqrt_Tile_Async( int L,
morse_pztpgqrt( L, V1, T1, V2, T2, Q1, Q2, Dptr, sequence, request );
/* } */
/* else { */
- /* morse_pztpgqrtrh(Q1, T, MORSE_RHBLK, sequence, request); */
+ /* morse_pztpgqrtrh( Q1, T, MORSE_RHBLK, sequence, request ); */
/* } */
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index caacdc341..25744d965 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -352,10 +352,10 @@ int MORSE_ztpqrt_Tile_Async( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc
}
/* if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { */
- morse_pztpqrt(L, A, B, T, sequence, request);
+ morse_pztpqrt( L, A, B, T, sequence, request );
/* } */
/* else { */
- /* morse_pztpqrtrh(A, T, MORSE_RHBLK, sequence, request); */
+ /* morse_pztpqrtrh( A, T, MORSE_RHBLK, sequence, request ); */
/* } */
return MORSE_SUCCESS;
diff --git a/compute/ztradd.c b/compute/ztradd.c
index bdcc1d7f4..5e5fdce40 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -379,7 +379,7 @@ int MORSE_ztradd_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
((alpha == (MORSE_Complex64_t)0.0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS;
- morse_pztradd(uplo, trans, alpha, A, beta, B, sequence, request);
+ morse_pztradd( uplo, trans, alpha, A, beta, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index 883e8f7ce..5e838bf44 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -131,7 +131,7 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrmm", "illegal value of side");
return -1;
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_ztrmm", "illegal value of uplo");
return -2;
}
@@ -142,7 +142,7 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrmm", "illegal value of transA");
return -3;
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_ztrmm", "illegal value of diag");
return -4;
}
@@ -364,7 +364,7 @@ int MORSE_ztrmm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrmm_Tile", "illegal value of side");
return morse_request_fail(sequence, request, -1);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_ztrmm_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -2);
}
@@ -372,13 +372,13 @@ int MORSE_ztrmm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrmm_Tile", "illegal value of transA");
return morse_request_fail(sequence, request, -3);
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_ztrmm_Tile", "illegal value of diag");
return morse_request_fail(sequence, request, -4);
}
/* Quick return */
- morse_pztrmm(side, uplo, transA, diag, alpha, A, B, sequence, request);
+ morse_pztrmm( side, uplo, transA, diag, alpha, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index d204af39d..b881dc90e 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -132,7 +132,7 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrsm", "illegal value of side");
return -1;
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_ztrsm", "illegal value of uplo");
return -2;
}
@@ -140,7 +140,7 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrsm", "illegal value of transA");
return -3;
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_ztrsm", "illegal value of diag");
return -4;
}
@@ -362,7 +362,7 @@ int MORSE_ztrsm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrsm_Tile", "illegal value of side");
return morse_request_fail(sequence, request, -1);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_ztrsm_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -2);
}
@@ -370,13 +370,13 @@ int MORSE_ztrsm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrsm_Tile", "illegal value of transA");
return morse_request_fail(sequence, request, -3);
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_ztrsm_Tile", "illegal value of diag");
return morse_request_fail(sequence, request, -4);
}
/* Quick return */
- morse_pztrsm(side, uplo, transA, diag, alpha, A, B, sequence, request);
+ morse_pztrsm( side, uplo, transA, diag, alpha, A, B, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index 6887df12a..6d74479d3 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -297,7 +297,7 @@ int MORSE_ztrsmpl_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrsmpl(A, B, L, IPIV, sequence, request);
+ morse_pztrsmpl( A, B, L, IPIV, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/ztrtri.c b/compute/ztrtri.c
index eefde0168..f3086b967 100644
--- a/compute/ztrtri.c
+++ b/compute/ztrtri.c
@@ -98,11 +98,11 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_ztrtri", "illegal value of uplo");
return -1;
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_ztrtri", "illegal value of diag");
return -2;
}
@@ -289,11 +289,11 @@ int MORSE_ztrtri_Tile_Async(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
morse_error("MORSE_ztrtri_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- if (uplo != MorseUpper && uplo != MorseLower) {
+ if ((uplo != MorseUpper) && (uplo != MorseLower)) {
morse_error("MORSE_ztrtri_Tile", "illegal value of uplo");
return morse_request_fail(sequence, request, -1);
}
- if (diag != MorseUnit && diag != MorseNonUnit) {
+ if ((diag != MorseUnit) && (diag != MorseNonUnit)) {
morse_error("MORSE_ztrtri_Tile", "illegal value of diag");
return morse_request_fail(sequence, request, -2);
}
@@ -302,7 +302,7 @@ int MORSE_ztrtri_Tile_Async(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
if (chameleon_max(N, 0) == 0)
return MORSE_SUCCESS;
*/
- morse_pztrtri(uplo, diag, A, sequence, request);
+ morse_pztrtri( uplo, diag, A, sequence, request );
return MORSE_SUCCESS;
}
diff --git a/compute/zunglq.c b/compute/zunglq.c
index a6411e8e0..1938aae7a 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -308,12 +308,12 @@ int MORSE_zunglq_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
}
#endif
- morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
+ morse_pzlaset( MorseUpperLower, 0., 1., Q, sequence, request );
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzunglq(A, Q, T, Dptr, sequence, request);
+ morse_pzunglq( A, Q, T, Dptr, sequence, request );
}
else {
- morse_pzunglqrh(A, Q, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunglqrh( A, Q, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 2a023a661..b24655926 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -308,8 +308,8 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
#endif
- morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
- morse_pzunglq_param(qrtree, A, Q, TS, TT, Dptr, sequence, request);
+ morse_pzlaset( MorseUpperLower, 0., 1., Q, sequence, request );
+ morse_pzunglq_param( qrtree, A, Q, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zungqr.c b/compute/zungqr.c
index 9cf2e3491..d823b2b42 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -305,12 +305,12 @@ int MORSE_zungqr_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
}
#endif
- morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
+ morse_pzlaset( MorseUpperLower, 0., 1., Q, sequence, request );
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
- morse_pzungqr(A, Q, T, Dptr, sequence, request);
+ morse_pzungqr( A, Q, T, Dptr, sequence, request );
}
else {
- morse_pzungqrrh(A, Q, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzungqrrh( A, Q, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index d778d48f0..e0defbf22 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -306,8 +306,8 @@ int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
#endif
- morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
- morse_pzungqr_param(qrtree, A, Q, TS, TT, Dptr, sequence, request);
+ morse_pzlaset( MorseUpperLower, 0., 1., Q, sequence, request );
+ morse_pzungqr_param( qrtree, A, Q, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index 27f2784e2..b0821c4c6 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -369,13 +369,13 @@ int MORSE_zunmlq_Tile_Async(MORSE_enum side, MORSE_enum trans,
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
if ( (trans == MorseConjTrans) &&
(side == MorseLeft) ) {
- morse_pzunmlq(side, trans, A, C, T, Dptr, sequence, request);
+ morse_pzunmlq( side, trans, A, C, T, Dptr, sequence, request );
} else {
- morse_pzunmlq(side, trans, A, C, T, Dptr, sequence, request);
+ morse_pzunmlq( side, trans, A, C, T, Dptr, sequence, request );
}
}
else {
- morse_pzunmlqrh(side, trans, A, C, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunmlqrh( side, trans, A, C, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 04792920b..4d79bec12 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -370,7 +370,7 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side,
}
#endif
- morse_pzunmlq_param(qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request);
+ morse_pzunmlq_param( qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index 36a3c277f..1b6a6b6ba 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -374,14 +374,14 @@ int MORSE_zunmqr_Tile_Async(MORSE_enum side, MORSE_enum trans,
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
if ( (trans == MorseConjTrans) &&
(side == MorseLeft) ) {
- morse_pzunmqr(side, trans, A, C, T, Dptr, sequence, request);
+ morse_pzunmqr( side, trans, A, C, T, Dptr, sequence, request );
}
else {
- morse_pzunmqr(side, trans, A, C, T, Dptr, sequence, request);
+ morse_pzunmqr( side, trans, A, C, T, Dptr, sequence, request );
}
}
else {
- morse_pzunmqrrh(side, trans, A, C, T, Dptr, MORSE_RHBLK, sequence, request);
+ morse_pzunmqrrh( side, trans, A, C, T, Dptr, MORSE_RHBLK, sequence, request );
}
if (Dptr != NULL) {
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index 46233c7a5..6f5707ec6 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -377,7 +377,7 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree,
}
#endif
- morse_pzunmqr_param(qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request);
+ morse_pzunmqr_param( qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
--
GitLab