1*4a2ae208SSatish Balay /*$Id: mpiaijpc.c,v 1.44 2001/01/15 21:45:38 bsmith Exp balay $*/ 270f55243SBarry Smith #include "src/mat/impls/aij/mpi/mpiaij.h" 36699817fSBarry Smith 45ef9f2a5SBarry Smith EXTERN_C_BEGIN 5*4a2ae208SSatish Balay #undef __FUNCT__ 6*4a2ae208SSatish Balay #define __FUNCT__ "MatGetDiagonalBlock_MPIAIJ" 75ef9f2a5SBarry Smith int 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