1 2 static char help[] = "Tests MatConvert() from SeqDense to SeqAIJ \n\n"; 3 4 #include <petscmat.h> 5 6 int main(int argc,char **args) 7 { 8 Mat A,C; 9 PetscInt n = 10; 10 11 CHKERRQ(PetscInitialize(&argc,&args,(char*)0,help)); 12 CHKERRQ(MatCreateSeqDense(PETSC_COMM_WORLD,n,n,NULL,&A)); 13 CHKERRQ(MatConvert(A,MATSEQDENSE,MAT_INITIAL_MATRIX,&C)); 14 CHKERRQ(MatView(C,NULL)); 15 CHKERRQ(MatDestroy(&A)); 16 CHKERRQ(MatDestroy(&C)); 17 CHKERRQ(PetscFinalize()); 18 return 0; 19 } 20 21 /*TEST 22 23 test: 24 25 TEST*/ 26