14   Mat             *A, B; /* matrix */  in main()  local
58   PetscCall(MatCreateComposite(PETSC_COMM_WORLD, nmat, A + 1, &B));  in main()
59   PetscCall(MatSetFromOptions(B));  in main()
60   PetscCall(MatCompositeSetScalings(B, &scalings[1]));  in main()
61   PetscCall(MatMultAdd(B, x, y, y));  in main()
69   PetscCall(MatCompositeSetMatStructure(B, DIFFERENT_NONZERO_PATTERN)); /* default */  in main()
70   PetscCall(MatCompositeMerge(B));  in main()
71   PetscCall(MatMult(B, x, y));  in main()
72   PetscCall(MatDestroy(&B));  in main()
92   PetscCall(MatCreateComposite(PETSC_COMM_WORLD, nmat, A, &B));  in main()
93   PetscCall(MatCompositeSetType(B, MAT_COMPOSITE_MULTIPLICATIVE));  in main()
94   PetscCall(MatCompositeSetMergeType(B, MAT_COMPOSITE_MERGE_LEFT));  in main()
95   PetscCall(MatSetFromOptions(B));  in main()
96   PetscCall(MatCompositeSetScalings(B, &scalings[0]));  in main()
97   PetscCall(MatAssemblyBegin(B, MAT_FINAL_ASSEMBLY));  in main()
98 …PetscCall(MatAssemblyEnd(B, MAT_FINAL_ASSEMBLY)); /* do MatCompositeMerge() if -mat_composite_merg…  in main()
99   PetscCall(MatMult(B, v, y));  in main()
100   PetscCall(MatDestroy(&B));  in main()
118   PetscCall(MatCreateComposite(PETSC_COMM_WORLD, nmat, A + 2, &B));  in main()
119   PetscCall(MatCompositeSetType(B, MAT_COMPOSITE_MULTIPLICATIVE));  in main()
120   PetscCall(MatSetFromOptions(B));  in main()
121   PetscCall(MatAssemblyBegin(B, MAT_FINAL_ASSEMBLY));  in main()
122 …PetscCall(MatAssemblyEnd(B, MAT_FINAL_ASSEMBLY)); /* do MatCompositeMerge() if -mat_composite_merg…  in main()
123   PetscCall(MatMult(B, x, v2));  in main()
124   PetscCall(MatDestroy(&B));  in main()
133   PetscCall(MatCreateComposite(PETSC_COMM_WORLD, nmat, A, &B));  in main()
134   PetscCall(MatCompositeGetNumberMat(B, &n));  in main()
136   PetscCall(MatCompositeGetMat(B, 0, &A[nmat + 2]));  in main()
138   PetscCall(MatCompositeGetType(B, &type));  in main()
140   PetscCall(MatDestroy(&B));  in main()