379   PetscMPIInt rank, comm_size;  in PrintRunInfo()  local
381   PetscCallMPI(MPI_Comm_rank(comm, &rank));  in PrintRunInfo()
469     if (!rank) PetscCall(PetscMalloc1(comm_size, &gather_buffer));  in PrintRunInfo()
472     if (!rank) {  in PrintRunInfo()
485     if (!rank) {  in PrintRunInfo()
509           if (rranks[i] == rank) continue;  // Ignore same-part global->local transfers  in PrintRunInfo()
514           if (iranks[i] == rank) continue;  in PrintRunInfo()
520       if (!rank) {  in PrintRunInfo()
534       if (!rank) {  in PrintRunInfo()
545       if (!rank) {  in PrintRunInfo()
559       if (!rank) {  in PrintRunInfo()
570     if (!rank) PetscCall(PetscFree(gather_buffer));  in PrintRunInfo()