6 static PetscErrorCode MatMult_S(Mat S, Vec x, Vec y)  in MatMult_S()  argument
11   PetscCall(MatShellGetContext(S, &A));  in MatMult_S()
18 static PetscErrorCode MatMultTranspose_S(Mat S, Vec x, Vec y)  in MatMultTranspose_S()  argument
23   PetscCall(MatShellGetContext(S, &A));  in MatMultTranspose_S()
34   Mat          A, B, C, S;  in main()  local
120     PetscCall(MatCreateShell(PetscObjectComm((PetscObject)v), nloc, nloc, n, n, A, &S));  in main()
121     PetscCall(MatShellSetOperation(S, MATOP_MULT, (PetscErrorCodeFn *)MatMult_S));  in main()
122 …  PetscCall(MatShellSetOperation(S, MATOP_MULT_TRANSPOSE, (PetscErrorCodeFn *)MatMultTranspose_S));  in main()
123     PetscCall(MatShellSetVecType(S, vtype));  in main()
126     S = A;  in main()
132   PetscCall(MatProductCreateWithMat(S, B, NULL, C));  in main()
137   PetscCall(MatMatMultEqual(S, B, C, 10, &flg));  in main()
141   PetscCall(MatProductCreateWithMat(S, B, NULL, C));  in main()
146   PetscCall(MatTransposeMatMultEqual(S, B, C, 10, &flg));  in main()
150   PetscCall(MatDestroy(&S));  in main()