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