xref: /petsc/src/mat/impls/aij/mpi/mpiaijpc.c (revision 5ef9f2a5cf905ed65136deff0c9e7fca368161b7) 
1a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER
2*5ef9f2a5SBarry Smith static char vcid[] = "$Id: mpiaijpc.c,v 1.39 1998/10/13 15:18:20 bsmith Exp bsmith $";
36699817fSBarry Smith #endif
470f55243SBarry Smith #include "src/mat/impls/aij/mpi/mpiaij.h"
56699817fSBarry Smith 
6*5ef9f2a5SBarry Smith EXTERN_C_BEGIN
75615d1e5SSatish Balay #undef __FUNC__
8*5ef9f2a5SBarry Smith #define __FUNC__ "MatGetDiagonalBlock_MPIAIJ"
9*5ef9f2a5SBarry Smith int MatGetDiagonalBlock_MPIAIJ(Mat A,PetscTruth *iscopy,MatReuse reuse,Mat *a)
106699817fSBarry Smith {
113a40ed3dSBarry Smith   PetscFunctionBegin;
12*5ef9f2a5SBarry Smith   *a      = ((Mat_MPIAIJ *)A->data)->A;
13*5ef9f2a5SBarry Smith   *iscopy = PETSC_FALSE;
143a40ed3dSBarry Smith   PetscFunctionReturn(0);
156699817fSBarry Smith }
16*5ef9f2a5SBarry Smith EXTERN_C_END
17