65   Mat          A, S;  in main()  local
162   PetscCall(MatCreateShell(PETSC_COMM_WORLD, m, n, M, N, user, &S));  in main()
163   PetscCall(MatShellSetOperation(S, MATOP_MULT, (PetscErrorCodeFn *)MatMult_User));  in main()
164 …PetscCall(MatShellSetOperation(S, MATOP_MULT_TRANSPOSE, (PetscErrorCodeFn *)MatMultTranspose_User)…  in main()
165 …if (cong) PetscCall(MatShellSetOperation(S, MATOP_GET_DIAGONAL, (PetscErrorCodeFn *)MatGetDiagonal…  in main()
166   PetscCall(MatShellSetOperation(S, MATOP_COPY, (PetscErrorCodeFn *)MatCopy_User));  in main()
167   PetscCall(MatShellSetOperation(S, MATOP_DESTROY, (PetscErrorCodeFn *)MatDestroy_User));  in main()
176     PetscCall(MatMultAddEqual(A, S, 10, &flg));  in main()
178     PetscCall(MatMultTransposeAddEqual(A, S, 10, &flg));  in main()
180     PetscCall(MatMultHermitianTransposeAddEqual(A, S, 10, &flg));  in main()
218         PetscCall(MatZeroRowsIS(S, zr, diag, x, b2));  in main()
221         PetscCall(MatZeroRowsColumnsIS(S, zr, diag, x, b2));  in main()
240         PetscCall(MatZeroRowsIS(S, zr, diag * 2.0 + PETSC_SMALL, NULL, NULL));  in main()
259       PetscCall(MatConvert(S, MATDENSE, MAT_INITIAL_MATRIX, &B));  in main()
261       PetscCall(MatCreateTranspose(S, &ST));  in main()
300       PetscCall(MatDiagonalScale(S, vl, vr));  in main()
307       PetscCall(MatScale(S, test % 2 ? 1.4 : 1.0 / 1.4));  in main()
312       PetscCall(MatShift(S, test % 2 ? -77.5 : 77.5));  in main()
319       PetscCall(MatCreateVecs(S, &dS, NULL));  in main()
321       PetscCall(MatGetDiagonal(S, dS));  in main()
333       PetscCall(MatDuplicate(S, MAT_COPY_VALUES, &S2));  in main()
335       PetscCall(MatDestroy(&S));  in main()
337       S = S2;  in main()
350       PetscCall(MatCreateSubMatrix(S, r, c, MAT_INITIAL_MATRIX, &sS));  in main()
365       PetscCall(MatCreateTranspose(S, &St));  in main()
396         PetscCall(PetscObjectReference((PetscObject)S));  in main()
397         tS = S;  in main()
400       PetscCall(MatAXPY(S, 0.5, tS, str[test % 3]));  in main()
405       PetscCall(MatMultAddEqual(A, S, 10, &flg));  in main()
407       PetscCall(MatMultTransposeAddEqual(A, S, 10, &flg));  in main()
410       PetscCall(MatConvert(S, MATDENSE, MAT_INITIAL_MATRIX, &dS));  in main()
420       PetscCall(MatAssemblyBegin(S, MAT_FINAL_ASSEMBLY));  in main()
421       PetscCall(MatAssemblyEnd(S, MAT_FINAL_ASSEMBLY));  in main()
428   PetscCall(MatDestroy(&S));  in main()