17a3b9f03SLawrence Mitchell static char help[] = "Tests PCView() before PCSetup() with -pc_type lu.\n\n";
27a3b9f03SLawrence Mitchell
37a3b9f03SLawrence Mitchell #include <petscmat.h>
47a3b9f03SLawrence Mitchell #include <petscpc.h>
57a3b9f03SLawrence Mitchell
main(int argc,char ** args)6d71ae5a4SJacob Faibussowitsch int main(int argc, char **args)
7d71ae5a4SJacob Faibussowitsch {
87a3b9f03SLawrence Mitchell Mat A;
97a3b9f03SLawrence Mitchell PC pc;
107a3b9f03SLawrence Mitchell
11327415f7SBarry Smith PetscFunctionBeginUser;
12*c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &args, NULL, help));
139566063dSJacob Faibussowitsch PetscCall(MatCreate(PETSC_COMM_WORLD, &A));
149566063dSJacob Faibussowitsch PetscCall(MatSetSizes(A, 1, 1, 1, 1));
159566063dSJacob Faibussowitsch PetscCall(MatSetFromOptions(A));
169566063dSJacob Faibussowitsch PetscCall(MatSetUp(A));
179566063dSJacob Faibussowitsch PetscCall(MatSetValue(A, 0, 0, 1, INSERT_VALUES));
189566063dSJacob Faibussowitsch PetscCall(MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY));
199566063dSJacob Faibussowitsch PetscCall(MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY));
209566063dSJacob Faibussowitsch PetscCall(MatView(A, PETSC_VIEWER_STDOUT_WORLD));
219566063dSJacob Faibussowitsch PetscCall(PCCreate(PETSC_COMM_WORLD, &pc));
229566063dSJacob Faibussowitsch PetscCall(PCSetOperators(pc, A, A));
239566063dSJacob Faibussowitsch PetscCall(PCSetType(pc, PCLU));
249566063dSJacob Faibussowitsch PetscCall(PCView(pc, PETSC_VIEWER_STDOUT_WORLD));
259566063dSJacob Faibussowitsch PetscCall(PCDestroy(&pc));
269566063dSJacob Faibussowitsch PetscCall(MatDestroy(&A));
279566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
28b122ec5aSJacob Faibussowitsch return 0;
297a3b9f03SLawrence Mitchell }
307a3b9f03SLawrence Mitchell
317a3b9f03SLawrence Mitchell /*TEST
327a3b9f03SLawrence Mitchell
337a3b9f03SLawrence Mitchell test:
347a3b9f03SLawrence Mitchell
357a3b9f03SLawrence Mitchell TEST*/
36