xref: /petsc/src/mat/tests/ex164.c (revision 732aec7a18f2199fb53bb9a2f3aef439a834ce31)
1c4762a1bSJed Brown static char help[] = "Tests MatConvert() from SeqDense to SeqAIJ \n\n";
2c4762a1bSJed Brown 
3c4762a1bSJed Brown #include <petscmat.h>
4c4762a1bSJed Brown 
main(int argc,char ** args)5d71ae5a4SJacob Faibussowitsch int main(int argc, char **args)
6d71ae5a4SJacob Faibussowitsch {
7c4762a1bSJed Brown   Mat      A, C;
8c4762a1bSJed Brown   PetscInt n = 10;
9c4762a1bSJed Brown 
10327415f7SBarry Smith   PetscFunctionBeginUser;
11*c8025a54SPierre Jolivet   PetscCall(PetscInitialize(&argc, &args, NULL, help));
129566063dSJacob Faibussowitsch   PetscCall(MatCreateSeqDense(PETSC_COMM_WORLD, n, n, NULL, &A));
139566063dSJacob Faibussowitsch   PetscCall(MatConvert(A, MATSEQDENSE, MAT_INITIAL_MATRIX, &C));
149566063dSJacob Faibussowitsch   PetscCall(MatView(C, NULL));
159566063dSJacob Faibussowitsch   PetscCall(MatDestroy(&A));
169566063dSJacob Faibussowitsch   PetscCall(MatDestroy(&C));
179566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
18b122ec5aSJacob Faibussowitsch   return 0;
19c4762a1bSJed Brown }
20c4762a1bSJed Brown 
21c4762a1bSJed Brown /*TEST
22c4762a1bSJed Brown 
23c4762a1bSJed Brown    test:
24c4762a1bSJed Brown 
25c4762a1bSJed Brown TEST*/
26