EXTERN_C_END EXTERN_C_BEGIN #undef __FUNCT__ #define __FUNCT__ "MatMPIAIJSetPreallocation_MPICSRPERM" PetscErrorCode PETSCMAT_DLLEXPORT MatMPIAIJSetPreallocation_MPICSRPERM(Mat B,PetscInt d_nz,const PetscInt d_nnz[],PetscInt o_nz,const PetscInt o_nnz[]) { Mat_MPIAIJ *b = (Mat_MPIAIJ*)B->data; PetscErrorCode ierr; PetscFunctionBegin; ierr = MatMPIAIJSetPreallocation_MPIAIJ(B,d_nz,d_nnz,o_nz,o_nnz);CHKERRQ(ierr); ierr = MatConvert_SeqAIJ_SeqCSRPERM(b->A, MATSEQCSRPERM, MAT_REUSE_MATRIX, &b->A);CHKERRQ(ierr); ierr = MatConvert_SeqAIJ_SeqCSRPERM(b->B, MATSEQCSRPERM, MAT_REUSE_MATRIX, &b->B);CHKERRQ(ierr); PetscFunctionReturn(0); }
EXTERN_C_BEGIN #undef __FUNCT__ #define __FUNCT__ "MatCreate_SeqCSRPERM" PetscErrorCode PETSCMAT_DLLEXPORT MatCreate_SeqCSRPERM(Mat A) { PetscErrorCode ierr; PetscFunctionBegin; ierr = MatSetType(A,MATSEQAIJ);CHKERRQ(ierr); ierr = MatConvert_SeqAIJ_SeqCSRPERM(A,MATSEQCSRPERM,MAT_REUSE_MATRIX,&A);CHKERRQ(ierr); PetscFunctionReturn(0); }