7   Mat         C;  in main()  local
16   PetscCall(MatCreate(PETSC_COMM_SELF, &C));  in main()
17   PetscCall(MatSetSizes(C, PETSC_DECIDE, PETSC_DECIDE, m * n, m * n));  in main()
18   PetscCall(MatSetFromOptions(C));  in main()
19   PetscCall(MatSetUp(C));  in main()
26         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
30         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
34         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
38         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
41       PetscCall(MatSetValues(C, 1, &Ii, 1, &Ii, &v, INSERT_VALUES));  in main()
44   PetscCall(MatAssemblyBegin(C, MAT_FINAL_ASSEMBLY));  in main()
45   PetscCall(MatAssemblyEnd(C, MAT_FINAL_ASSEMBLY));  in main()
50   if (keepnonzeropattern) PetscCall(MatSetOption(C, MAT_KEEP_NONZERO_PATTERN, PETSC_TRUE));  in main()
52   PetscCall(MatZeroRowsIS(C, isrow, five, 0, 0));  in main()
54   PetscCall(MatView(C, PETSC_VIEWER_STDOUT_SELF));  in main()
57   PetscCall(MatDestroy(&C));  in main()