104   PetscCall(MatCreateShell(rp->comm, l_size, l_size, g_size, g_size, op_apply_ctx, &mat_O));  in RunWithDM()
134     PetscCall(MPI_Comm_size(rp->comm, &comm_size));  in RunWithDM()
135     PetscCall(PetscPrintf(rp->comm,  in RunWithDM()
191   PetscCall(SetupApplyOperatorCtx(rp->comm, dm, ceed, ceed_data, X_loc, op_apply_ctx));  in RunWithDM()
192   PetscCall(KSPCreate(rp->comm, &ksp));  in RunWithDM()
218   PetscCall(MPI_Allreduce(MPI_IN_PLACE, &my_rt, 1, MPI_DOUBLE, MPI_MIN, rp->comm));  in RunWithDM()
253       PetscCall(PetscPrintf(rp->comm,  in RunWithDM()
262       PetscCall(PetscPrintf(rp->comm, "  Performance:\n"));  in RunWithDM()
266 …    PetscCall(SetupErrorOperatorCtx(rp->comm, dm, ceed, ceed_data, X_loc, op_error, op_error_ctx));  in RunWithDM()
275         PetscCall(MPI_Allreduce(&my_rt, &rt_min, 1, MPI_DOUBLE, MPI_MIN, rp->comm));  in RunWithDM()
276         PetscCall(MPI_Allreduce(&my_rt, &rt_max, 1, MPI_DOUBLE, MPI_MAX, rp->comm));  in RunWithDM()
277         PetscCall(PetscPrintf(rp->comm,  in RunWithDM()
284 …PetscCall(PetscPrintf(rp->comm, "    DoFs/Sec in CG                          : %g (%g) million\n",…  in RunWithDM()
292     PetscCall(PetscViewerCreate(rp->comm, &vtk_viewer_soln));  in RunWithDM()
354   MPI_Comm    comm;  in main()  local
369   comm = PETSC_COMM_WORLD;  in main()
370   PetscCall(MPI_Comm_size(comm, &comm_size));  in main()
375     PetscCall(MPI_Comm_split_type(comm, MPI_COMM_TYPE_SHARED, 0, MPI_INFO_NULL, &splitcomm));  in main()
385   rp->comm = comm;  in main()
388   PetscOptionsBegin(comm, NULL, "CEED BPs in PETSc", NULL);  in main()