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, ...@@ -292,7 +292,7 @@ int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A,
if (chameleon_min( A->m, A->n ) == 0) if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -363,7 +363,7 @@ int MORSE_zgeadd_Tile_Async(MORSE_enum trans, ...@@ -363,7 +363,7 @@ int MORSE_zgeadd_Tile_Async(MORSE_enum trans,
((alpha == (MORSE_Complex64_t)0.0) && beta == (MORSE_Complex64_t)1.0)) ((alpha == (MORSE_Complex64_t)0.0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -287,10 +287,10 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, ...@@ -287,10 +287,10 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
#endif #endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
morse_pzgelqf(A, T, Dptr, sequence, request); morse_pzgelqf( A, T, Dptr, sequence, request );
} }
else { else {
morse_pzgelqfrh(A, T, Dptr, MORSE_RHBLK, sequence, request); morse_pzgelqfrh( A, T, Dptr, MORSE_RHBLK, sequence, request );
} }
if (Dptr != NULL) { if (Dptr != NULL) {
morse_desc_mat_free( Dptr ); morse_desc_mat_free( Dptr );
......
...@@ -287,7 +287,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -287,7 +287,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
} }
#endif #endif
morse_pzgelqf_param(qrtree, A, TS, TT, Dptr, sequence, request); morse_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) { if (Dptr != NULL) {
morse_desc_mat_free( Dptr ); 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, ...@@ -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); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m); 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(subA);
free(subB); free(subB);
...@@ -327,10 +327,10 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B, ...@@ -327,10 +327,10 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
#endif #endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { 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 { 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) { if (Dptr != NULL) {
......
...@@ -318,12 +318,12 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -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); /* 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); */ free(subB); */
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m); 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(subA);
free(subB); free(subB);
...@@ -335,7 +335,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -335,7 +335,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
} }
#endif #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) { if (Dptr != NULL) {
morse_desc_mat_free( Dptr ); morse_desc_mat_free( Dptr );
} }
......
...@@ -383,23 +383,23 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A, ...@@ -383,23 +383,23 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
#endif #endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { 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 { 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); subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->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 { else {
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n); /* 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); */ free(subB); */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
{ {
...@@ -409,20 +409,20 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A, ...@@ -409,20 +409,20 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
} }
#endif #endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
morse_pzgelqf(A, T, Dptr, sequence, request); morse_pzgelqf( A, T, Dptr, sequence, request );
} }
else { 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); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m); 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) { 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 { 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, ...@@ -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); subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n); subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
morse_pzgeqrf_param(qrtree, A, TS, TT, Dptr, 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_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_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
} }
else { else {
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
...@@ -409,9 +409,9 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans, ...@@ -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); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m); subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
morse_pzgelqf_param(qrtree, A, 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_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_pzunmlq_param( qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request );
} }
free(subA); free(subA);
......
...@@ -461,7 +461,7 @@ int MORSE_zgemm_Tile_Async(MORSE_enum transA, MORSE_enum transB, ...@@ -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)) ((alpha == (MORSE_Complex64_t)0.0 || K == 0) && beta == (MORSE_Complex64_t)1.0))
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -286,10 +286,10 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, ...@@ -286,10 +286,10 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
#endif #endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
morse_pzgeqrf(A, T, Dptr, sequence, request); morse_pzgeqrf( A, T, Dptr, sequence, request );
} }
else { else {
morse_pzgeqrfrh(A, T, Dptr, MORSE_RHBLK, sequence, request); morse_pzgeqrfrh( A, T, Dptr, MORSE_RHBLK, sequence, request );
} }
if (Dptr != NULL) { if (Dptr != NULL) {
morse_desc_mat_free( Dptr ); morse_desc_mat_free( Dptr );
......
...@@ -296,7 +296,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -296,7 +296,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
} }
#endif #endif
morse_pzgeqrf_param(qrtree, A, TS, TT, Dptr, sequence, request); morse_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) { if (Dptr != NULL) {
morse_desc_mat_free( Dptr ); 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, ...@@ -317,15 +317,15 @@ int MORSE_zgeqrs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
#endif #endif
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) { 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 { 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); subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->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(subA);
free(subB); free(subB);
......
...@@ -320,8 +320,8 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree, ...@@ -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); subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->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_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_pztrsm( MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request );
free(subA); free(subA);
free(subB); free(subB);
......
...@@ -309,11 +309,11 @@ int MORSE_zgesv_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, M ...@@ -309,11 +309,11 @@ int MORSE_zgesv_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, M
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -297,11 +297,11 @@ int MORSE_zgesv_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B, ...@@ -297,11 +297,11 @@ int MORSE_zgesv_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -282,7 +282,7 @@ int MORSE_zgetrf_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, ...@@ -282,7 +282,7 @@ int MORSE_zgetrf_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
return MORSE_SUCCESS; return MORSE_SUCCESS;
*/ */
morse_pzgetrf_incpiv(A, L, IPIV, sequence, request); morse_pzgetrf_incpiv( A, L, IPIV, sequence, request );
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
...@@ -265,7 +265,7 @@ int MORSE_zgetrf_nopiv_Tile_Async(MORSE_desc_t *A, ...@@ -265,7 +265,7 @@ int MORSE_zgetrf_nopiv_Tile_Async(MORSE_desc_t *A,
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); 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; return MORSE_SUCCESS;
} }
...@@ -312,9 +312,9 @@ int MORSE_zgetrs_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, ...@@ -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) if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -296,9 +296,9 @@ int MORSE_zgetrs_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B, ...@@ -296,9 +296,9 @@ int MORSE_zgetrs_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
if (chameleon_min(N, NRHS) == 0) if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -123,7 +123,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N, ...@@ -123,7 +123,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_error("MORSE_zheevd", "illegal value of jobz"); morse_error("MORSE_zheevd", "illegal value of jobz");
return -1; return -1;
} }
if (uplo != MorseLower && uplo != MorseUpper) { if ((uplo != MorseLower) && (uplo != MorseUpper)) {
morse_error("MORSE_zheevd", "illegal value of uplo"); morse_error("MORSE_zheevd", "illegal value of uplo");
return -2; return -2;
} }
...@@ -384,7 +384,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo, ...@@ -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"); morse_error("MORSE_zheevd_Tile_Async", "illegal value of jobz");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); 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"); morse_error("MORSE_zheevd_Tile_Async", "illegal value of uplo");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); 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, ...@@ -491,7 +491,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
morse_pzgemm( MorseNoTrans, MorseNoTrans, morse_pzgemm( MorseNoTrans, MorseNoTrans,
1.0, &descQ2, &descV, 1.0, &descQ2, &descV,
0.0, &descA, 0.0, &descA,
sequence, request); sequence, request );
} }
else { else {
...@@ -515,7 +515,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo, ...@@ -515,7 +515,7 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
morse_pzgemm( MorseNoTrans, MorseNoTrans, morse_pzgemm( MorseNoTrans, MorseNoTrans,
1.0, &descQ2, &descV, 1.0, &descQ2, &descV,
0.0, &descA, 0.0, &descA,
sequence, request); sequence, request );
} }
morse_sequence_wait(morse, sequence); morse_sequence_wait(morse, sequence);
......
...@@ -416,7 +416,7 @@ int MORSE_zhemm_Tile_Async(MORSE_enum side, MORSE_enum uplo, ...@@ -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) )) ( (alpha == (MORSE_Complex64_t)0.0) && (beta == (MORSE_Complex64_t)1.0) ))
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -406,7 +406,7 @@ int MORSE_zher2k_Tile_Async(MORSE_enum uplo, MORSE_enum trans, ...@@ -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)) ((alpha == (MORSE_Complex64_t)0.0 || K == 0) && beta == (double)1.0))
return MORSE_SUCCESS; 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; return MORSE_SUCCESS;
} }
...@@ -377,7 +377,7 @@ int MORSE_zherk_Tile_Async(MORSE_enum uplo, MORSE_enum trans, ...@@ -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)) ((alpha == (double)0.0 || K == 0) && beta == (double)1.0))
return MORSE_SUCCESS; return MORSE_SUCCESS;