Some cleanup for sonarqube

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;
 }

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;
 }

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 );

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 );
     }

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) {

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 );
     }

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 );
         }
     }
 

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);

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;
 }

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 );

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 );

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);
 

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);

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;
 }

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;
 }

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;
 }

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;
 }

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;
 }

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;
 }

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);

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;
 }

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;
 }

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;
 }

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);
     }

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;
 }

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;
 }

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;
 }

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;
 }

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;
 }

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;
 }

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;
 }

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 );