1 #define PETSCMAT_DLL 2 3 #include "mpisbaij.h" /*I "petscmat.h" I*/ 4 5 EXTERN_C_BEGIN 6 #undef __FUNCT__ 7 #define __FUNCT__ "MatConvert_MPIAIJ_MPISBAIJ" 8 PetscErrorCode PETSCMAT_DLLEXPORT MatConvert_MPIAIJ_MPISBAIJ(Mat A, MatType newtype,MatReuse reuse,Mat *newmat) 9 { 10 PetscErrorCode ierr; 11 12 PetscFunctionBegin; 13 /* Now, calls MatConvert_Basic(). Will implement later */ 14 ierr = MatConvert_Basic(A, newtype,reuse,newmat);CHKERRQ(ierr); 15 PetscFunctionReturn(0); 16 } 17 EXTERN_C_END 18