diff --git a/compute/zbuild.c b/compute/zbuild.c
index 7f86afbf89eefe1242e988d0b7e666886b7a090f..a3c6628e236ce9f1d986518a8d7b8533eb5d8b9e 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 837077bcca9efac5177550b5c8d46b081f4d3b12..004588b7e8fd7abb44e454152a6c0be5a9d3c367 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 51dff3eecf2a422f1502eba53b5742d0ff107869..e349466be9193f9aaa8535a7633fd67af82f1c64 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 50d6773a1fc339fa5abe62491cc4f97dba0add8a..76822f05ada3b23058bde906843d832978a2f421 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 c75c89a9960ee18f3376246798a26889c769c2cf..bf065fc3673d6f9a989ffab2b569e64635e46095 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 5605e4b355482f3818fb214fdd5fb186322d6214..3dae2c711fde7a616c595de4055371b7d0032436 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 f6961f4b66daf7e9e4a4f17f3fb8aa640ea5b29b..4837fde3a8f91c306f14446019394fcf03c8b311 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 baf825f1cc58ac9c557170d43ef73cb7c1b71c27..af3d95feaf0389061c55d50f047395f4edd92f2b 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 0bf587ed0a8b900068a0eed72cc899690f21d250..df7040acc6204700185dfbf718db8e88072bad84 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 58dc835fac8603ceed30315ccbba25aaab34585a..6a083537526f7c3582538aecf69691fa22450d48 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 8529280273054fcf3a51dbad960d162ee3e15ce2..3b4b9a0b87b7b242625609f277f92879707e9212 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 645fdf119ebf0117e3b0f3056376acc075037e57..f5d92f2980724375ec78eabf95f4710ca267e5c2 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 a7331b9e054522cd16b6aacc71db06569ccfb297..a08213db5bb9b4cf619705bfdebbc416d2c5cc70 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 0bcd721939b247d1f4477dbec3e0bbb262338434..0f4a1f082bf6ce89db534eb4c328ad03b6a3ee77 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 93571e422f80931a2dd68cc7e8ba3780e84cf5e4..741788fb35c117a80486e9f1bb50d9a3e2dae1fd 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 949ad8fb478fb6369c05e9e510dadde3cc2b6244..a96a21f79c7b97ea9eb952037f9c99946eb59991 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 9de091347a0adcc635a91e1dcbc8b9a857ddf8da..32d6b8f354ea05f17a3aeaa938e48e01bf68216e 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 1bffb66c0675e41d72488eeee334ec0f6f786e20..132f47a9ca5e082521ab7df9a90bda0662b31678 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 36f4635a2e6c63426601be66476297beef3b8a6a..3259b1a3922be1c25845f48d5dd9f76e4612cc00 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 1d5dd88328ba4e0c76ec83a746d52b930d72f1ed..db74e871db7b6bd36651fcdd64fce829404ad7cb 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 a9d03b1b8062f461c1455d12706490f018da95fb..7fed4ed464cca5c289a3d31bb976dfa01a35cbfe 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 85e85217baa404f6135a312d151d94f381b8afba..0ed13b1988c82f3554742f757b6c10f2406cee2d 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 ecac777127e87342c06ef54a510460065a0ddf98..ceb31966cec8cc0400f4481a3b57f8c9548da90a 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 c2f53051400c82ab0cd92539c33ad71f6aa71ae4..8ead2512b05cd6b5a9e0b156821b771bd5458aed 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 e06df243754ba0f27715bd1e83354371696b4a4e..4f89525c1e1f8d18990cdbebd7a67c9030265169 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 b0e9aacbc5f250037b92e7866056da2694d990e3..f2c18ac996c33580fc0b99a08b2a54d5d9591aee 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 c2a5a38f63a8dc68e2b7c7ae25a77b09004fe5c4..70a0310a4dec994858ef64f0631533da898dab7e 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 f1100d215588e8233b6d0016d8c24ea203df8278..00bdd602fe055b0e262edbe74a7dd7625378b79b 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 aebf0fdb96ba05209aae170eae0c8273326f0c9d..5657add72c1cd00aeca26669af199cb98c148c2c 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 4181e8cffef76090aa6bd97b23edf317f8cd264c..25f0f4b4c5020a1958d01cabf044e8c6b6e58f17 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 c167bebab7cbbac012093ee1c757599c8ed8dfcb..648a436b0e3da6610fcea657e03ade6f4feb772a 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 a8f489bcb3172e660aa6c7566796a1ee679314a4..41fc4f13d76779afba71ae7d6ef789cdf9714ac4 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 6889182ed227f1ce13e24ee1b09574aed3ccdbb7..db0711fc08e0685e2e3a8b8a8f6193f8bddc6c53 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 3c857fbd88e887c350327aa0dd09d08814ed3b8b..4776d8d22c56798826cad2721d1b7a5c3409eaff 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 431f9ea543626588fe470053f750b8dbd6b3eae5..dd9f6f876be5b346a5f8f4d37a833d9de00d2d4c 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 24495f81bd64020a0c6044fde3757f431015cab0..fb0df533fb76f905871d055e1e4a91e96d441b1f 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 8612c11e2a9332eea6b119ab5259705d4f94d3a4..ace056bd9c90b775d38394e8f3b751994c52c6e8 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 668137a4e9b933a7e2a1d6659854cb0dc1d1d866..366ce37739aa7dc216184904c25504eaba356af2 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 a82ed3ebc20bc95dd4e64073f4f75947e1658a56..3b767e71ea3a480d4d1dc40b1b791f4e6d3263bf 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 bd9e225e5f9ce45b7bf4bf0ab4ed387032c2f2df..f98bdef63d56067eeaba11a6c163a4fa17a4ee05 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 d84aea2070ca831a55d57b3d1bfc62079c302a48..2962ba08a694ce12a4b73f9d45fd7fcf1c1e8227 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 1e94b255f8ef9a3ed5b58455b8f7ccd2f2f0726f..0865f65e605b9315145699f5eea665f38674bc52 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 6ba756003813ab000b36878a363979f521dfcee4..f4982277dee3fba2a5ec78b421bf93193b31671b 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 ff0f85f983a78159ef4406143792111175cad9a1..31b279c5ffd5cb3732f7aadf424fc59239282822 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 c3ea5c53a038960dc31cf384a7ce56893e50c5ce..4eca903f1caf965d69c64d90beb6635d126ab581 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 d0225885d43517e8b05d2157a02f286a4bf8d33e..e2a3ea0109dfac6903a3fe052b68cfe87d7ccf03 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 3708e05d589568bcde0435aac42af49da11a84ed..5c7aa8c6a2f58c76ab3693b5429295adc23a8585 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 caacdc3417ec313ccc7bcc224d19affa7c00026d..25744d96577d1fdf1cffcc95ed9b56cebe8eb7f1 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 bdcc1d7f43268d808c0bd5c196f71be79ee78c4e..5e5fdce40b3e18e60773442347ab604b3b7bf69e 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 883e8f7ce6ccab8a23cb83816d48662a40cbe31e..5e838bf441cc04142220225bf29b8abbee252926 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 d204af39dba45189c81990d2ce840df41371955a..b881dc90eee496de85c1ecdf593c70a0f111253d 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 6887df12a7b5242d004cb25afaf10c36f9f94018..6d74479d322c55c13d8c5821b24b855f0fb40060 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 eefde0168b3f490e43524bbbb6d7abfcd963fe02..f3086b967f20f8931a73d7e6da3f2e65b4eae8a5 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 a6411e8e0dd9117900f0d1b2683660ae712e8749..1938aae7add775ca4b1de05d1f16ea4eef323169 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 2a023a6617409d8f1b1ba67b892e244b13eea37c..b24655926a5dc8a869754594eaab046d32164d86 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 9cf2e3491cf1190832cb6477bbca3c92bf2e123a..d823b2b42d35e20c76471f558e6b80e3913f2714 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 d778d48f09e1cc8fa7aa969098efa8d88e813ed6..e0defbf220c9e21dc1c28a8b165813adbdfbde2f 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 27f2784e2db5581d2bc2174009afdd237c7ab153..b0821c4c635645514bc7962018ee2e5ca489ce2b 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 04792920ba342a9ddc2eed76ce9b5d317d990234..4d79bec1284316a83e15e5ed3b71a101a16f9214 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 36a3c277f2bcbfed51336904a252f1511b7ab9d2..1b6a6b6baa730888e4a6066a381896a4b5668c3f 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 46233c7a5bb5549f15cf59a6a897f47ca3bde04f..6f5707ec68963ba43ae342ae198d72e53e7fd0ea 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 );