Commit cbc1b247 authored by Mathieu Faverge's avatar Mathieu Faverge

Some cleanup for sonarqube

parent e7fb36f3
......@@ -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;
}
......@@ -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;
}
......@@ -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 );
......
......@@ -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 );
}
......
......@@ -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) {
......
......@@ -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 );
}
......
......@@ -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 );
}
}
......
......@@ -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);
......
......@@ -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;
}
......@@ -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 );
......
......@@ -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 );
......
......@@ -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);
......
......@@ -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);
......
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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);
......
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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);
}
......
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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;
}
......@@ -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,