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 PetscErrorCode ierr; 10 PetscInt n = 10; 11 12 ierr = PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr; 13 ierr = MatCreateSeqDense(PETSC_COMM_WORLD,n,n,NULL,&A);CHKERRQ(ierr); 14 ierr = MatConvert(A,MATSEQDENSE,MAT_INITIAL_MATRIX,&C);CHKERRQ(ierr); 15 ierr = MatView(C,NULL);CHKERRQ(ierr); 16 ierr = MatDestroy(&A);CHKERRQ(ierr); 17 ierr = MatDestroy(&C);CHKERRQ(ierr); 18 ierr = PetscFinalize(); 19 return ierr; 20 } 21 22 /*TEST 23 24 test: 25 26 TEST*/ 27