Mentions légales du service

Skip to content
Snippets Groups Projects

Cleanup - Lapack to tile

Merged Mathieu Faverge requested to merge faverge/chameleon:cleanup/lapack_to_tile into master
2 files
+ 94
19
Compare changes
  • Side-by-side
  • Inline
Files
2
+ 14
18
@@ -91,7 +91,7 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
@@ -91,7 +91,7 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAt, descAl;
morse = morse_context_self();
morse = morse_context_self();
if (morse == NULL) {
if (morse == NULL) {
@@ -123,29 +123,25 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
@@ -123,29 +123,25 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
}
}
/* Set NT */
/* Set NT */
NB = MORSE_NB;
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
morse_desc_mat_free(&(descA)) );
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
/* Call the tile interface */
MORSE_zpotrf_Tile_Async(uplo, &descA, sequence, &request);
MORSE_zpotrf_Tile_Async(uplo, &descAt, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion back */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt, uplo,
morse_sequence_wait(morse, sequence);
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_desc_mat_free(&descA);
/* } else {*/
morse_sequence_wait(morse, sequence);
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* Cleanup the temporary data */
/* }*/
morse_ztile2lap_cleanup( morse, &descAl, &descAt );
status = sequence->status;
status = sequence->status;
morse_sequence_destroy(morse, sequence);
morse_sequence_destroy(morse, sequence);
Loading