40 |
/*double *snd_buffer=NULL, *rcv_buffer=NULL;*/ |
/*double *snd_buffer=NULL, *rcv_buffer=NULL;*/ |
41 |
Esys_MPIInfo *mpi_info=A->mpi_info; |
Esys_MPIInfo *mpi_info=A->mpi_info; |
42 |
|
|
43 |
|
if (A->is_balanced) { |
44 |
|
Esys_setError(VALUE_ERROR,"Paso_SystemMatrix_MatrixVector: balanced matrix is not supported."); |
45 |
|
return; |
46 |
|
} |
47 |
if (A->type & MATRIX_FORMAT_CSC) { |
if (A->type & MATRIX_FORMAT_CSC) { |
48 |
if ( mpi_info->size>1) { |
if ( mpi_info->size>1) { |
49 |
Esys_setError(SYSTEM_ERROR,"Paso_SystemMatrix_MatrixVector: CSC is not supported by MPI."); |
Esys_setError(SYSTEM_ERROR,"Paso_SystemMatrix_MatrixVector: CSC is not supported by MPI."); |