6   PetscInt    rank;  member
26   displs[0] = (char *)&dummy.rank - (char *)&dummy;  /* offsetof(Unit,rank); */  in MakeDatatype()
43   PetscMPIInt    rank;  member
50 …nd(MPI_Comm comm, const PetscMPIInt tag[], PetscMPIInt tonum, PetscMPIInt rank, void *todata, MPI_…  in FSend()  argument
55 …PetscCheck(rank == fctx->toranks[tonum], PETSC_COMM_SELF, PETSC_ERR_PLIB, "Rank %d does not match …  in FSend()
56 …ck(fctx->rank == *(PetscMPIInt *)todata, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Todata %d does not matc…  in FSend()
57   PetscCallMPI(MPI_Isend(&fctx->todata[tonum].rank, 1, MPIU_INT, rank, tag[0], comm, &req[0]));  in FSend()
58   PetscCallMPI(MPI_Isend(&fctx->todata[tonum].value, 1, MPIU_SCALAR, rank, tag[1], comm, &req[1]));  in FSend()
62 static PetscErrorCode FRecv(MPI_Comm comm, const PetscMPIInt tag[], PetscMPIInt rank, void *fromdat…  in FRecv()  argument
68 …scMPIInt *)fromdata == rank, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Dummy data %d from rank %d corrupt"…  in FRecv()
70   PetscCallMPI(MPI_Irecv(&buf->rank, 1, MPIU_INT, rank, tag[0], comm, &req[0]));  in FRecv()
71   PetscCallMPI(MPI_Irecv(&buf->value, 1, MPIU_SCALAR, rank, tag[1], comm, &req[1]));  in FRecv()
80   PetscMPIInt  rank, size, *toranks, *fromranks, nto, nfrom;  in main()  local
89   PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank));  in main()
99     toranks[n]      = (rank + i) % size;  in main()
100     todata[n].rank  = (rank + i) % size;  in main()
101     todata[n].value = (PetscScalar)rank;  in main()
107 …OMM_WORLD, "[%d] TO %d: {%" PetscInt_FMT ", %g, \"%s\"}\n", rank, toranks[i], todata[i].rank, (dou…  in main()
116     fctx.rank    = rank;  in main()
122     for (i = 0; i < nto; i++) todummy[i] = rank;  in main()
144 …ORLD, "[%d] FROM %d: {%" PetscInt_FMT ", %g, \"%s\"}\n", rank, fromranks[ip], fromdata[ip].rank, (…  in main()
150 …ETSC_COMM_SELF, PETSC_ERR_PLIB, "[%d] From ranks %d does not match To ranks %d", rank, nto, nfrom);  in main()
152     PetscMPIInt expected_rank = (rank - i + size) % size;  in main()
157 …SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_PLIB, "[%d] Could not find expected from rank %d", rank, expec…  in main()
159 …d_rank, PETSC_COMM_SELF, PETSC_ERR_PLIB, "[%d] Got data %g from rank %d", rank, (double)PetscRealP…  in main()
161 …PetscCheck(flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "[%d] Got string %s from rank %d", rank, fromdata…  in main()