14   Mat         A1, A2, A3, A4, A5, B, C, C1, nest;  in main()  local
68   PetscCall(MatCreate(comm, &nest));  in main()
69   PetscCall(MatSetType(nest, MATNEST));  in main()
79     PetscCall(MatNestSetSubMats(nest, 2, is, 2, is, NULL));  in main()
85     PetscCall(MatNestSetSubMats(nest, 2, NULL, 2, NULL, mata));  in main()
87   PetscCall(MatSetUp(nest));  in main()
91   if (test) PetscCall(MatMatMult(nest, nest, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &C));  in main()
95     PetscCall(MatProductCreate(nest, nest, NULL, &C));  in main()
102     PetscCall(MatProductCreate(nest, nest, NULL, &C));  in main()
108   PetscCall(MatConvert(nest, MATAIJ, MAT_INITIAL_MATRIX, &aij));  in main()
112   PetscCall(MatGetSize(nest, &M, NULL));  in main()
113   PetscCall(MatGetLocalSize(nest, &m, NULL));  in main()
118   PetscCall(MatMatMult(nest, B, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &C));  in main()
119   PetscCall(MatMatMult(nest, B, MAT_REUSE_MATRIX, PETSC_DETERMINE, &C));  in main()
120   PetscCall(MatMatMultEqual(nest, B, C, 10, &equal));  in main()
126   PetscCall(MatProductCreateWithMat(nest, C, NULL, B));  in main()
131   PetscCall(MatMatMultEqual(nest, C, B, 10, &equal));  in main()
133   PetscCall(MatConvert(nest, MATAIJ, MAT_INPLACE_MATRIX, &nest));  in main()
134   PetscCall(MatEqual(nest, aij, &equal));  in main()
139   PetscCall(MatNestSetSubMat(nest, 0, 0, A5));  in main()
140   PetscCall(MatMatMult(nest, B, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &C1));  in main()
141   PetscCall(MatMatMult(nest, B, MAT_REUSE_MATRIX, PETSC_DETERMINE, &C1));  in main()
142   PetscCall(MatMatMultEqual(nest, B, C1, 10, &equal));  in main()
147   PetscCall(MatDestroy(&nest));  in main()