Actual source code: ex8.c
2: static char help[] = "Tests PCView() before PCSetup() with -pc_type lu.\n\n";
4: #include <petscmat.h>
5: #include <petscpc.h>
7: int main(int argc, char **args)
8: {
9: Mat A;
10: PC pc;
13: PetscInitialize(&argc, &args, (char *)0, help);
14: MatCreate(PETSC_COMM_WORLD, &A);
15: MatSetSizes(A, 1, 1, 1, 1);
16: MatSetFromOptions(A);
17: MatSetUp(A);
18: MatSetValue(A, 0, 0, 1, INSERT_VALUES);
19: MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY);
20: MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY);
21: MatView(A, PETSC_VIEWER_STDOUT_WORLD);
22: PCCreate(PETSC_COMM_WORLD, &pc);
23: PCSetOperators(pc, A, A);
24: PCSetType(pc, PCLU);
25: PCView(pc, PETSC_VIEWER_STDOUT_WORLD);
26: PCDestroy(&pc);
27: MatDestroy(&A);
28: PetscFinalize();
29: return 0;
30: }
32: /*TEST
34: test:
36: TEST*/