| H A D | ex8.c | 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() [all …]
|