7   Mat         C, Credundant;  in main()  local
24   PetscCall(MatCreate(PETSC_COMM_WORLD, &C));  in main()
25   PetscCall(MatSetSizes(C, PETSC_DECIDE, PETSC_DECIDE, m * n, m * n));  in main()
26   PetscCall(MatSetFromOptions(C));  in main()
27   PetscCall(MatSetUp(C));  in main()
36         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
40         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
44         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
48         PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
51       PetscCall(MatSetValues(C, 1, &Ii, 1, &Ii, &v, INSERT_VALUES));  in main()
59   PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
63   PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES));  in main()
65   PetscCall(MatAssemblyBegin(C, MAT_FINAL_ASSEMBLY));  in main()
66   PetscCall(MatAssemblyEnd(C, MAT_FINAL_ASSEMBLY));  in main()
69   PetscCall(MatCreateVecs(C, &x, &y));  in main()
80   PetscCall(MatMult(C, x, y));  in main()
85     PetscCall(MatView(C, PETSC_VIEWER_STDOUT_WORLD));  in main()
87     PetscCall(MatGetInfo(C, MAT_GLOBAL_SUM, &info));  in main()
89     PetscCall(MatGetInfo(C, MAT_GLOBAL_MAX, &info));  in main()
94   if (flg_mat) PetscCall(MatView(C, PETSC_VIEWER_STDOUT_WORLD));  in main()
99   PetscCall(MatCreateRedundantMatrix(C, nsubcomms, MPI_COMM_NULL, MAT_INITIAL_MATRIX, &Credundant));  in main()
100   PetscCall(MatCreateRedundantMatrix(C, nsubcomms, MPI_COMM_NULL, MAT_REUSE_MATRIX, &Credundant));  in main()
121 …PetscCall(MatCreateRedundantMatrix(C, nsubcomms, PetscSubcommChild(psubcomm), MAT_INITIAL_MATRIX, …  in main()
122 …PetscCall(MatCreateRedundantMatrix(C, nsubcomms, PetscSubcommChild(psubcomm), MAT_REUSE_MATRIX, &C…  in main()
130   PetscCall(MatDestroy(&C));  in main()