1be1d678aSKris Buschelman #define PETSCMAT_DLL 2*7c4f633dSBarry Smith #include "../src/mat/impls/aij/mpi/mpiaij.h" 36699817fSBarry Smith 45ef9f2a5SBarry Smith EXTERN_C_BEGIN 54a2ae208SSatish Balay #undef __FUNCT__ 64a2ae208SSatish Balay #define __FUNCT__ "MatGetDiagonalBlock_MPIAIJ" 7be1d678aSKris Buschelman PetscErrorCode PETSCMAT_DLLEXPORT MatGetDiagonalBlock_MPIAIJ(Mat A,PetscTruth *iscopy,MatReuse reuse,Mat *a) 86699817fSBarry Smith { 93a40ed3dSBarry Smith PetscFunctionBegin; 105ef9f2a5SBarry Smith *a = ((Mat_MPIAIJ *)A->data)->A; 115ef9f2a5SBarry Smith *iscopy = PETSC_FALSE; 123a40ed3dSBarry Smith PetscFunctionReturn(0); 136699817fSBarry Smith } 145ef9f2a5SBarry Smith EXTERN_C_END 15