51   MPI_Comm             comm;  in main()  local
74   comm = PETSC_COMM_WORLD;  in main()
75   PetscCall(MPI_Comm_size(comm, &comm_size));  in main()
79     PetscCall(MPI_Comm_split_type(comm, MPI_COMM_TYPE_SHARED, 0, MPI_INFO_NULL, &splitcomm));  in main()
88   PetscOptionsBegin(comm, NULL, "CEED BPs in PETSc", NULL);  in main()
124 …PetscCheck(tmp == dim, comm, PETSC_ERR_USER, "Number of values for -dm_plex_box_faces must match d…  in main()
127 …PetscCheck(!user_set_num_points_per_cell || point_swarm_type != SWARM_SINUSOIDAL, comm, PETSC_ERR_…  in main()
171     PetscCall(DMPlexCreateFromFile(comm, filename, NULL, PETSC_TRUE, &dm_mesh));  in main()
173     PetscCall(DMCreate(comm, &dm_mesh));  in main()
182 …  PetscCheck(!is_simplex, comm, PETSC_ERR_USER, "Only tensor-product background meshes supported");  in main()
195   PetscCall(DMCreate(comm, &dm_swarm));  in main()
231   PetscCall(MatCreateShell(comm, l_size, l_size, g_size, g_size, op_apply_ctx, &mat_O));  in main()
252     PetscCall(MPI_Comm_size(comm, &comm_size));  in main()
258     PetscCall(PetscPrintf(comm,  in main()
296   PetscCall(SetupApplyOperatorCtx(comm, dm_mesh, ceed, ceed_data, X_loc, op_apply_ctx));  in main()
299   PetscCall(KSPCreate(comm, &ksp));  in main()
322     PetscCall(MPI_Allreduce(MPI_IN_PLACE, &my_rt, 1, MPI_DOUBLE, MPI_MIN, comm));  in main()
358       PetscCall(PetscPrintf(comm,  in main()
367       PetscCall(PetscPrintf(comm, "  Performance:\n"));  in main()
397 …   PetscCall(SetupErrorOperatorCtx(comm, dm_mesh, ceed, ceed_data, X_loc, op_error, op_error_ctx));  in main()
402         PetscCall(MPI_Allreduce(&my_rt, &rt_min, 1, MPI_DOUBLE, MPI_MIN, comm));  in main()
403         PetscCall(MPI_Allreduce(&my_rt, &rt_max, 1, MPI_DOUBLE, MPI_MAX, comm));  in main()
404         PetscCall(PetscPrintf(comm,  in main()
411 …PetscCall(PetscPrintf(comm, "    DoFs/Sec in CG                            : %g (%g) million\n", 1…  in main()
420     PetscCall(PetscViewerCreate(comm, &vtk_viewer_soln));  in main()