diff --git a/compute/zbuild.c b/compute/zbuild.c index fe53d7b16d3597b2acdeeb5654b1cd45f1e863c0..71fadaac9434b5d8357a9bddac6360fb0cfefe02 100644 --- a/compute/zbuild.c +++ b/compute/zbuild.c @@ -5,10 +5,6 @@ * All rights reserved. * @copyright (c) 2012-2014 Inria. All rights reserved. * @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved. - * - **/ - -/** * * @file zbuild.c * @@ -90,58 +86,58 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N, MORSE_Complex64_t *A, int LDA, void *user_data, void* user_build_callback) { - int NB; - int status; - MORSE_context_t *morse; - MORSE_sequence_t *sequence = NULL; - MORSE_request_t request = MORSE_REQUEST_INITIALIZER; - MORSE_desc_t descA; + int NB; + int status; + MORSE_context_t *morse; + MORSE_sequence_t *sequence = NULL; + MORSE_request_t request = MORSE_REQUEST_INITIALIZER; + MORSE_desc_t descA; - morse = morse_context_self(); - if (morse == NULL) { - morse_fatal_error("MORSE_zbuild", "MORSE not initialized"); - return MORSE_ERR_NOT_INITIALIZED; - } - /* Check input arguments */ - if (M < 0) { - morse_error("MORSE_zbuild", "illegal value of M"); - return -1; - } - if (N < 0) { - morse_error("MORSE_zbuild", "illegal value of N"); - return -2; - } - if (LDA < chameleon_max(1, M)) { - morse_error("MORSE_zbuild", "illegal value of LDA"); - return -4; - } - /* Quick return */ - if (chameleon_min(M, N) == 0) - return MORSE_SUCCESS; + morse = morse_context_self(); + if (morse == NULL) { + morse_fatal_error("MORSE_zbuild", "MORSE not initialized"); + return MORSE_ERR_NOT_INITIALIZED; + } + /* Check input arguments */ + if (M < 0) { + morse_error("MORSE_zbuild", "illegal value of M"); + return -1; + } + if (N < 0) { + morse_error("MORSE_zbuild", "illegal value of N"); + return -2; + } + if (LDA < chameleon_max(1, M)) { + morse_error("MORSE_zbuild", "illegal value of LDA"); + return -4; + } + /* Quick return */ + if (chameleon_min(M, N) == 0) + return MORSE_SUCCESS; - /* Tune NB depending on M, N & NRHS; Set NBNB */ - status = morse_tune(MORSE_FUNC_ZGEMM, M, N, 0); - if (status != MORSE_SUCCESS) { - morse_error("MORSE_zbuild", "morse_tune() failed"); - return status; - } + /* Tune NB depending on M, N & NRHS; Set NBNB */ + status = morse_tune(MORSE_FUNC_ZGEMM, M, N, 0); + if (status != MORSE_SUCCESS) { + morse_error("MORSE_zbuild", "morse_tune() failed"); + return status; + } - /* Set NT */ - NB = MORSE_NB; - morse_sequence_create(morse, &sequence); - morse_zdesc_alloc(descA, NB, NB, LDA, N, 0, 0, M, N, morse_desc_mat_free(&descA)); + /* Set NT */ + NB = MORSE_NB; + morse_sequence_create(morse, &sequence); + morse_zdesc_alloc(descA, NB, NB, LDA, N, 0, 0, M, N, morse_desc_mat_free(&descA)); - /* Call the tile interface */ - MORSE_zbuild_Tile_Async(uplo, &descA, user_data, user_build_callback, sequence, &request ); + /* Call the tile interface */ + MORSE_zbuild_Tile_Async(uplo, &descA, user_data, user_build_callback, sequence, &request ); - morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); - morse_sequence_wait(morse, sequence); - morse_desc_mat_free(&descA); + morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); + morse_sequence_wait(morse, sequence); + morse_desc_mat_free(&descA); - status = sequence->status; - morse_sequence_destroy(morse, sequence); + status = sequence->status; + morse_sequence_destroy(morse, sequence); - return status; + return status; } /** @@ -189,22 +185,22 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N, int MORSE_zbuild_Tile( MORSE_enum uplo, MORSE_desc_t *A, void *user_data, void* user_build_callback ) { - MORSE_context_t *morse; - MORSE_sequence_t *sequence = NULL; - MORSE_request_t request = MORSE_REQUEST_INITIALIZER; - int status; + MORSE_context_t *morse; + MORSE_sequence_t *sequence = NULL; + MORSE_request_t request = MORSE_REQUEST_INITIALIZER; + int status; - morse = morse_context_self(); - if (morse == NULL) { - morse_fatal_error("MORSE_zbuild_Tile", "MORSE not initialized"); - return MORSE_ERR_NOT_INITIALIZED; - } - morse_sequence_create(morse, &sequence); - MORSE_zbuild_Tile_Async( uplo, A, user_data, user_build_callback, sequence, &request ); - morse_sequence_wait(morse, sequence); - status = sequence->status; - morse_sequence_destroy(morse, sequence); - return status; + morse = morse_context_self(); + if (morse == NULL) { + morse_fatal_error("MORSE_zbuild_Tile", "MORSE not initialized"); + return MORSE_ERR_NOT_INITIALIZED; + } + morse_sequence_create(morse, &sequence); + MORSE_zbuild_Tile_Async( uplo, A, user_data, user_build_callback, sequence, &request ); + morse_sequence_wait(morse, sequence); + status = sequence->status; + morse_sequence_destroy(morse, sequence); + return status; } /** @@ -255,38 +251,38 @@ int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A, MORSE_sequence_t *sequence, MORSE_request_t *request) { - MORSE_context_t *morse; + MORSE_context_t *morse; - morse = morse_context_self(); - if (morse == NULL) { - morse_fatal_error("MORSE_zbuild_Tile", "MORSE not initialized"); - return MORSE_ERR_NOT_INITIALIZED; - } - if (sequence == NULL) { - morse_fatal_error("MORSE_zbuild_Tile", "NULL sequence"); - return MORSE_ERR_UNALLOCATED; - } - if (request == NULL) { - morse_fatal_error("MORSE_zbuild_Tile", "NULL request"); - return MORSE_ERR_UNALLOCATED; - } - /* Check sequence status */ - if (sequence->status == MORSE_SUCCESS) - request->status = MORSE_SUCCESS; - else - return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED); + morse = morse_context_self(); + if (morse == NULL) { + morse_fatal_error("MORSE_zbuild_Tile", "MORSE not initialized"); + return MORSE_ERR_NOT_INITIALIZED; + } + if (sequence == NULL) { + morse_fatal_error("MORSE_zbuild_Tile", "NULL sequence"); + return MORSE_ERR_UNALLOCATED; + } + if (request == NULL) { + morse_fatal_error("MORSE_zbuild_Tile", "NULL request"); + return MORSE_ERR_UNALLOCATED; + } + /* Check sequence status */ + if (sequence->status == MORSE_SUCCESS) + request->status = MORSE_SUCCESS; + else + return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED); - /* Check descriptors for correctness */ - if (morse_desc_check(A) != MORSE_SUCCESS) { - morse_error("MORSE_zbuild_Tile", "invalid descriptor"); - return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); - } + /* Check descriptors for correctness */ + if (morse_desc_check(A) != MORSE_SUCCESS) { + morse_error("MORSE_zbuild_Tile", "invalid descriptor"); + return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); + } - /* Quick return */ - if (chameleon_min( A->m, A->n ) == 0) - return MORSE_SUCCESS; + /* Quick return */ + 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; + return MORSE_SUCCESS; }