15 static PetscErrorCode ProcessOptions(MPI_Comm comm, AppCtx *options)  in ProcessOptions()  argument
24   PetscOptionsBegin(comm, "", "Meshing Problem Options", "DMPLEX");  in ProcessOptions()
30   PetscCheck(flg, comm, PETSC_ERR_USER_INPUT, "-infile needs to be specified");  in ProcessOptions()
31   PetscCheck(flg, comm, PETSC_ERR_USER_INPUT, "-outfile needs to be specified");  in ProcessOptions()
36 PetscErrorCode ReadCGNSDM(MPI_Comm comm, const char filename[], DM *dm)  in ReadCGNSDM()  argument
41   PetscCall(DMPlexCreateFromFile(comm, filename, "ex15_plex", PETSC_TRUE, dm));  in ReadCGNSDM()
89   MPI_Comm     comm = PetscObjectComm((PetscObject)dm_load);  in VerifyLoadedSolution()  local
114     PetscCall(PetscSFCreate(comm, &load_to_serial_sf));  in VerifyLoadedSolution()
148 …if (PetscAbs(array_serial[i] - array_load_bcast[i]) > tol) PetscCall(PetscPrintf(comm, "DoF %" Pet…  in VerifyLoadedSolution()
161   MPI_Comm    comm;  in main()  local
179     PetscCallMPI(MPI_Comm_split(PETSC_COMM_WORLD, mycolor, grank, &comm));  in main()
182       PetscCallMPI(MPI_Comm_size(comm, &gsize_serial));  in main()
184       PetscCall(ReadCGNSDM(comm, user.infile, &dm_serial));  in main()
189       PetscCall(PetscPrintf(comm, "Loaded mesh distributed? %s\n", PetscBools[flg]));  in main()
192       PetscCall(PetscViewerCGNSOpen(comm, user.infile, FILE_MODE_READ, &viewer));  in main()
196       PetscCallMPI(MPI_Comm_free(&comm));  in main()
215     PetscCallMPI(MPI_Comm_split(PETSC_COMM_WORLD, mycolor, grank, &comm));  in main()
227       PetscCallMPI(MPI_Comm_size(comm, &comm_size));  in main()
228       PetscCall(PetscPrintf(comm, "Begin cycle %" PetscInt_FMT ", comm size %d\n", i, comm_size));  in main()
231       PetscCall(ReadCGNSDM(comm, infilename, &dm));  in main()
236       PetscCall(PetscViewerCGNSOpen(comm, infilename, FILE_MODE_READ, &viewer));  in main()
242 …     PetscCheck(solution_index == 1, comm, PETSC_ERR_ARG_INCOMP, "Returned solution index wrong.");  in main()
246       PetscCheck(set, comm, PETSC_ERR_RETURN, "Time data wasn't set!");  in main()
247       PetscCall(PetscPrintf(comm, "Solution Name: %s, and time %g\n", name, time));  in main()
255       PetscCall(PetscViewerCGNSOpen(comm, user.outfile, FILE_MODE_WRITE, &viewer));  in main()
261       PetscCall(PetscPrintf(comm, "End   cycle %" PetscInt_FMT "\n--------\n", i));  in main()
263     PetscCallMPI(MPI_Comm_free(&comm));  in main()