1: #include "src/mat/impls/aij/mpi/mpiaij.h" 6: PetscErrorCode MatGetDiagonalBlock_MPIAIJ(Mat A,PetscTruth *iscopy,MatReuse reuse,Mat *a) 7: { 9: *a = ((Mat_MPIAIJ *)A->data)->A; 10: *iscopy = PETSC_FALSE; 11: return(0); 12: }