xref: /petsc/src/mat/impls/aij/mpi/mpiaijpc.c (revision e8e8640d1cb9a3a2f50c0c0d7b26e5c4d521e2e4) 
1c6db04a5SJed Brown #include <../src/mat/impls/aij/mpi/mpiaij.h>
26699817fSBarry Smith 
MatGetDiagonalBlock_MPIAIJ(Mat A,Mat * a)3d71ae5a4SJacob Faibussowitsch PetscErrorCode MatGetDiagonalBlock_MPIAIJ(Mat A, Mat *a)
4d71ae5a4SJacob Faibussowitsch {
53a40ed3dSBarry Smith   PetscFunctionBegin;
65ef9f2a5SBarry Smith   *a = ((Mat_MPIAIJ *)A->data)->A;
7*3ba16761SJacob Faibussowitsch   PetscFunctionReturn(PETSC_SUCCESS);
86699817fSBarry Smith }
9