xref: /petsc/src/mat/impls/aij/mpi/mpiaijpc.c (revision e8e8640d1cb9a3a2f50c0c0d7b26e5c4d521e2e4) 
1 #include <../src/mat/impls/aij/mpi/mpiaij.h>
2 
MatGetDiagonalBlock_MPIAIJ(Mat A,Mat * a)3 PetscErrorCode MatGetDiagonalBlock_MPIAIJ(Mat A, Mat *a)
4 {
5   PetscFunctionBegin;
6   *a = ((Mat_MPIAIJ *)A->data)->A;
7   PetscFunctionReturn(PETSC_SUCCESS);
8 }
9