14   MPI_Comm comm = PETSC_COMM_WORLD;  in main()  local
15   PetscCallMPI(MPI_Comm_rank(comm, &rank));  in main()
18   PetscCall(PetscFOpen(comm, filename, "w", &fp));  in main()
19   PetscCall(PetscFPrintf(comm, fp, line1));  in main()
20   PetscCall(PetscFPrintf(comm, fp, line2));  in main()
21   PetscCall(PetscSynchronizedFPrintf(comm, fp, "rank: %d\n", rank)); // Print rankid in order  in main()
22   PetscCall(PetscSynchronizedFlush(comm, fp));  in main()
23   PetscCall(PetscFClose(comm, fp));  in main()
31     PetscCall(PetscFOpen(comm, filename, "r", &fp));  in main()
32     PetscCall(PetscSynchronizedFGets(comm, fp, sizeof(line), line));  in main()
35     PetscCall(PetscSynchronizedFGets(comm, fp, sizeof(line), line));  in main()
38     PetscCallMPI(MPI_Comm_size(comm, &size));  in main()
40       PetscCall(PetscSynchronizedFGets(comm, fp, sizeof(line), line));  in main()
45     PetscCall(PetscFClose(comm, fp));  in main()