Commit 95c3fca8 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Report changes from potrf to others

parent c0c0db61
......@@ -111,29 +111,16 @@ parsec_zgetrf( pastix_data_t *pastix_data,
{
sparse_matrix_desc_t desc;
dague_context_t *ctx;
int argc = 0;
/* Start PaRSEC */
if (pastix_data->parsec == NULL) {
pastix_data->parsec = dague_init( -1, &argc, NULL );
int argc = 0;
pastix_parsec_init( pastix_data, &argc, NULL );
}
ctx = pastix_data->parsec;
/* Create the matrix descriptor */
sparse_matrix_init( &desc, sopalin_data->solvmtx,
pastix_size_of( PastixComplex64 ), 1, 0 );
/* Run the facto */
dsparse_zgetrf_sp( ctx, &desc, sopalin_data );
/* Destroy the decriptor */
sparse_matrix_destroy( &desc );
dague_fini( &(pastix_data->parsec) );
#if defined(PASTIX_DEBUG_FACTO)
coeftab_zdump( pastix_data->solvmatr, "getrf_L.txt" );
#endif
}
#endif
......
......@@ -101,7 +101,6 @@ thread_pzhetrf( int rank, void *args )
memFree_null( work2 );
}
void
thread_zhetrf( pastix_data_t *pastix_data,
sopalin_data_t *sopalin_data )
......@@ -116,25 +115,16 @@ parsec_zhetrf( pastix_data_t *pastix_data,
{
sparse_matrix_desc_t desc;
dague_context_t *ctx;
int argc = 0;
/* Start PaRSEC */
if (pastix_data->parsec == NULL) {
pastix_data->parsec = dague_init( -1, &argc, NULL );
int argc = 0;
pastix_parsec_init( pastix_data, &argc, NULL );
}
ctx = pastix_data->parsec;
/* Create the matrix descriptor */
sparse_matrix_init( &desc, sopalin_data->solvmtx,
pastix_size_of( PastixComplex64 ), 1, 0 );
/* Run the facto */
dsparse_zhetrf_sp( ctx, &desc, sopalin_data );
/* Destroy the decriptor */
sparse_matrix_destroy( &desc );
dague_fini( &(pastix_data->parsec) );
}
#endif
......
......@@ -121,9 +121,6 @@ parsec_zpotrf( pastix_data_t *pastix_data,
/* Run the facto */
dsparse_zpotrf_sp( ctx, &desc, sopalin_data );
/* Destroy the decriptor */
sparse_matrix_destroy( &desc );
}
#endif
......
......@@ -101,7 +101,6 @@ thread_pzsytrf( int rank, void *args )
memFree_null( work2 );
}
void
thread_zsytrf( pastix_data_t *pastix_data,
sopalin_data_t *sopalin_data )
......@@ -116,25 +115,16 @@ parsec_zsytrf( pastix_data_t *pastix_data,
{
sparse_matrix_desc_t desc;
dague_context_t *ctx;
int argc = 0;
/* Start PaRSEC */
if (pastix_data->parsec == NULL) {
pastix_data->parsec = dague_init( -1, &argc, NULL );
int argc = 0;
pastix_parsec_init( pastix_data, &argc, NULL );
}
ctx = pastix_data->parsec;
/* Create the matrix descriptor */
sparse_matrix_init( &desc, sopalin_data->solvmtx,
pastix_size_of( PastixComplex64 ), 1, 0 );
/* Run the facto */
dsparse_zsytrf_sp( ctx, &desc, sopalin_data );
/* Destroy the decriptor */
sparse_matrix_destroy( &desc );
dague_fini( &(pastix_data->parsec) );
}
#endif
......
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