Commit c27ce41a authored by Mathieu Faverge's avatar Mathieu Faverge

Minor

parent cbc1b247
......@@ -84,7 +84,7 @@
******************************************************************************/
int MORSE_zbuild( MORSE_enum uplo, int M, int N,
MORSE_Complex64_t *A, int LDA,
void *user_data, void* user_build_callback)
void *user_data, void* user_build_callback )
{
int NB;
int status;
......@@ -259,7 +259,7 @@ int MORSE_zbuild_Tile( MORSE_enum uplo, MORSE_desc_t *A,
int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A,
void *user_data, void* user_build_callback,
MORSE_sequence_t *sequence,
MORSE_request_t *request)
MORSE_request_t *request )
{
MORSE_context_t *morse;
......@@ -289,8 +289,9 @@ int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A,
}
/* Quick return */
if (chameleon_min( A->m, A->n ) == 0)
if (chameleon_min( A->m, A->n ) == 0) {
return MORSE_SUCCESS;
}
morse_pzbuild( uplo, A, user_data, user_build_callback, sequence, request );
......
......@@ -182,7 +182,7 @@ int MORSE_zgelqf(int M, int N,
* @sa MORSE_zgelqs_Tile
*
******************************************************************************/
int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
int MORSE_zgelqf_Tile( MORSE_desc_t *A, MORSE_desc_t *T )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -179,7 +179,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
* @sa MORSE_zgelqs_Tile
*
******************************************************************************/
int MORSE_zgelqf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT)
int MORSE_zgelqf_param_Tile( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -203,7 +203,7 @@ int MORSE_zgelqs(int M, int N, int NRHS,
* @sa MORSE_zgelqf_Tile
*
******************************************************************************/
int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
int MORSE_zgelqs_Tile( MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -208,7 +208,7 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
* @sa MORSE_zgelqf_Tile
*
******************************************************************************/
int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *B)
int MORSE_zgelqs_param_Tile( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -181,7 +181,7 @@ int MORSE_zgeqrf(int M, int N,
* @sa MORSE_zgeqrs_Tile
*
******************************************************************************/
int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
int MORSE_zgeqrf_Tile( MORSE_desc_t *A, MORSE_desc_t *T )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -188,7 +188,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
* @sa MORSE_zgeqrs_param_Tile
*
******************************************************************************/
int MORSE_zgeqrf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT)
int MORSE_zgeqrf_param_Tile( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -202,7 +202,7 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
* @sa MORSE_zgeqrf_Tile
*
******************************************************************************/
int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
int MORSE_zgeqrs_Tile( MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -197,7 +197,7 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
* @sa MORSE_zgeqrf_Tile
*
******************************************************************************/
int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *B)
int MORSE_zgeqrs_param_Tile( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -207,7 +207,7 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
* @sa MORSE_zcgesv_Tile
*
******************************************************************************/
int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t *B)
int MORSE_zgesv_incpiv_Tile( MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -199,7 +199,7 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
* @sa MORSE_zcgesv_Tile
*
******************************************************************************/
int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zgesv_nopiv_Tile( MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -186,7 +186,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
* @sa MORSE_zgetrs_incpiv_Tile
*
******************************************************************************/
int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV)
int MORSE_zgetrf_incpiv_Tile( MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -172,7 +172,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
* @sa MORSE_zgetrs_Tile
*
******************************************************************************/
int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
int MORSE_zgetrf_nopiv_Tile( MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -211,7 +211,7 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
* @sa MORSE_zgetrf_incpiv_Tile
*
******************************************************************************/
int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t *B)
int MORSE_zgetrs_incpiv_Tile( MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -199,7 +199,7 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
* @sa MORSE_zgetrf_nopiv_Tile
*
******************************************************************************/
int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zgetrs_nopiv_Tile( MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -197,7 +197,7 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
* @sa MORSE_slacpy_Tile
*
******************************************************************************/
int MORSE_zlacpy_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zlacpy_Tile( MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -183,7 +183,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
* @sa MORSE_zpotri_Tile
*
******************************************************************************/
int MORSE_zlauum_Tile(MORSE_enum uplo, MORSE_desc_t *A)
int MORSE_zlauum_Tile( MORSE_enum uplo, MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -225,7 +225,7 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
* @sa MORSE_sposv_Tile
*
******************************************************************************/
int MORSE_zposv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zposv_Tile( MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -195,7 +195,7 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
* @sa MORSE_zpotrs_Tile
*
******************************************************************************/
int MORSE_zpotrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
int MORSE_zpotrf_Tile( MORSE_enum uplo, MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -183,7 +183,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
* @sa MORSE_zpotrf_Tile
*
******************************************************************************/
int MORSE_zpotri_Tile(MORSE_enum uplo, MORSE_desc_t *A)
int MORSE_zpotri_Tile( MORSE_enum uplo, MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -205,7 +205,7 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
* @sa MORSE_zpotrf_Tile
*
******************************************************************************/
int MORSE_zpotrimm_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *C)
int MORSE_zpotrimm_Tile( MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *C )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -201,7 +201,7 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
* @sa MORSE_zpotrf_Tile
*
******************************************************************************/
int MORSE_zpotrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zpotrs_Tile( MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -218,7 +218,7 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
* @sa MORSE_csysv_Tile
*
******************************************************************************/
int MORSE_zsysv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zsysv_Tile( MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -184,7 +184,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
* @sa MORSE_csytrf_Tile
*
******************************************************************************/
int MORSE_zsytrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
int MORSE_zsytrf_Tile( MORSE_enum uplo, MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -197,7 +197,7 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
* @sa MORSE_csytrs_Tile
*
******************************************************************************/
int MORSE_zsytrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
int MORSE_zsytrs_Tile( MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -61,7 +61,7 @@
* @sa MORSE_sLapack_to_Tile
*
******************************************************************************/
int MORSE_zLapack_to_Tile(MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A)
int MORSE_zLapack_to_Tile( MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......@@ -92,6 +92,7 @@ int MORSE_zLapack_to_Tile(MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A)
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait( morse, sequence );
/* Destroy temporary B descriptor */
......@@ -137,7 +138,7 @@ int MORSE_zLapack_to_Tile(MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A)
* @sa MORSE_sTile_to_Lapack
*
******************************************************************************/
int MORSE_zTile_to_Lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA)
int MORSE_zTile_to_Lapack( MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -251,7 +251,7 @@ int MORSE_ztpqrt( int M, int N, int L,
* @sa MORSE_zgeqrs_Tile
*
******************************************************************************/
int MORSE_ztpqrt_Tile( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T )
int MORSE_ztpqrt_Tile( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -196,7 +196,7 @@ int MORSE_ztrsmpl(int N, int NRHS,
* @sa MORSE_zgetrf_incpiv_Tile
*
******************************************************************************/
int MORSE_ztrsmpl_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t *B)
int MORSE_ztrsmpl_Tile( MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t *B )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -202,7 +202,7 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
* @sa MORSE_zpotri_Tile
*
******************************************************************************/
int MORSE_ztrtri_Tile(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A)
int MORSE_ztrtri_Tile( MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -198,7 +198,7 @@ int MORSE_zunglq(int M, int N, int K,
* @sa MORSE_zgelqf_Tile
*
******************************************************************************/
int MORSE_zunglq_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q)
int MORSE_zunglq_Tile( MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -195,7 +195,7 @@ int MORSE_zunglq_param(const libhqr_tree_t *qrtree, int M, int N, int K,
* @sa MORSE_zgelqf_Tile
*
******************************************************************************/
int MORSE_zunglq_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q)
int MORSE_zunglq_param_Tile( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -197,7 +197,7 @@ int MORSE_zungqr(int M, int N, int K,
* @sa MORSE_zgeqrf_Tile
*
******************************************************************************/
int MORSE_zungqr_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q)
int MORSE_zungqr_Tile( MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......
......@@ -196,7 +196,7 @@ int MORSE_zungqr_param(const libhqr_tree_t *qrtree,
* @sa MORSE_zgeqrf_Tile
*
******************************************************************************/
int MORSE_zungqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q)
int MORSE_zungqr_param_Tile( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q )
{
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
......@@ -248,7 +248,7 @@ int MORSE_zungqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
* @sa MORSE_zgeqrf_Tile_Async
*
******************************************************************************/
int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q, MORSE_sequence_t *sequence, MORSE_request_t *request)
int MORSE_zungqr_param_Tile_Async( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q, MORSE_sequence_t *sequence, MORSE_request_t *request )
{
MORSE_context_t *morse;
MORSE_desc_t D, *Dptr = NULL;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment