71 size_t *com_matrix = NULL;
75 MPI_Comm_rank( solvmtx->solv_comm, &src );
77 com_matrix = malloc( solvmtx->clustnbr * solvmtx->clustnbr *
sizeof(
size_t ) );
80 MPI_Gather( solvmtx->
com_vector, solvmtx->clustnbr, MPI_UNSIGNED_LONG,
81 com_matrix, solvmtx->clustnbr, MPI_UNSIGNED_LONG,
82 0, solvmtx->solv_comm );
90 for ( p = 0; p < solvmtx->clustnbr; p++ ) {
91 fprintf( file,
"R%d, ", p );
93 fprintf( file,
"\n" );
96 for ( i = 0; i < ( solvmtx->clustnbr * solvmtx->clustnbr ); i++ ) {
97 fprintf( file,
"%zu, ", com_matrix[i] );
98 if ( ( ( i + 1 ) % solvmtx->clustnbr ) == 0 ) {
99 fprintf( file,
"\n" );
FILE * pastix_fopenw(const char *dirname, const char *filename, const char *mode)
Open a file in the unique directory of the pastix instance.