| /petsc/src/sys/tests/ |
| H A D | ex8.c | 45 PetscMPIInt *toranks; member
55 …eck(rank == fctx->toranks[tonum], PETSC_COMM_SELF, PETSC_ERR_PLIB, "Rank %d does not match toranks… in FSend()
80 PetscMPIInt rank, size, *toranks, *fromranks, nto, nfrom; in main() local
97 PetscCall(PetscMalloc2(nto, &todata, nto, &toranks)); in main()
99 toranks[n] = (rank + i) % size; in main()
107 …PETSC_COMM_WORLD, "[%d] TO %d: {%" PetscInt_FMT ", %g, \"%s\"}\n", rank, toranks[i], todata[i].ran… in main()
118 fctx.toranks = toranks; in main()
123 …PetscCall(PetscCommBuildTwoSidedF(PETSC_COMM_WORLD, 1, MPI_INT, nto, toranks, todummy, &nfrom, &fr… in main()
129 …PetscCall(PetscCommBuildTwoSided(PETSC_COMM_WORLD, 1, dtype, nto, toranks, todata, &nfrom, &fromra… in main()
163 PetscCall(PetscFree2(todata, toranks)); in main()
|
| /petsc/src/sys/utils/ |
| H A D | mpits.c | 73 …tscMPIInt count, MPI_Datatype dtype, PetscMPIInt nto, const PetscMPIInt *toranks, const void *toda… in PetscCommBuildTwoSided_Ibarrier() argument
88 …allMPI(MPI_Issend((void *)(tdata + count * unitbytes * i), count, dtype, toranks[i], tag, comm, se… in PetscCommBuildTwoSided_Ibarrier()
133 …tscMPIInt count, MPI_Datatype dtype, PetscMPIInt nto, const PetscMPIInt *toranks, const void *toda… in PetscCommBuildTwoSided_Allreduce() argument
155 for (i = 0; i < nto; i++) iflags[toranks[i]] = 1; in PetscCommBuildTwoSided_Allreduce()
165 …allMPI(MPIU_Isend((void *)(tdata + count * unitbytes * i), count, dtype, toranks[i], tag, comm, se… in PetscCommBuildTwoSided_Allreduce()
179 …tscMPIInt count, MPI_Datatype dtype, PetscMPIInt nto, const PetscMPIInt *toranks, const void *toda… in PetscCommBuildTwoSided_RedScatter() argument
200 for (i = 0; i < nto; i++) iflags[toranks[i]] = 1; in PetscCommBuildTwoSided_RedScatter()
209 …allMPI(MPIU_Isend((void *)(tdata + count * unitbytes * i), count, dtype, toranks[i], tag, comm, se… in PetscCommBuildTwoSided_RedScatter()
255 …etscMPIInt count, MPI_Datatype dtype, PetscMPIInt nto, const PetscMPIInt toranks[], const void *to… in PetscCommBuildTwoSided() argument
267 …PetscCall(PetscCommBuildTwoSided_Ibarrier(comm, count, dtype, nto, toranks, todata, nfrom, fromran… in PetscCommBuildTwoSided()
[all …]
|
| /petsc/src/vec/is/is/utils/ |
| H A D | iscoloring.c | 411 PetscMPIInt *toranks, *fromranks, size, target_rank, *fromperm_newtoold, nto, nfrom; in ISBuildTwoSided() local
435 PetscCall(PetscCalloc2(nto, &toranks, 2 * nto, &tosizes)); in ISBuildTwoSided()
439 toranks[nto] = i; in ISBuildTwoSided()
457 …PetscCall(PetscCommBuildTwoSided(comm, 2, MPIU_INT, nto, toranks, tosizes, &nfrom, &fromranks, &fr… in ISBuildTwoSided()
458 PetscCall(PetscFree2(toranks, tosizes)); in ISBuildTwoSided()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiov.c | 96 PetscMPIInt rank, size, *toranks, *fromranks, nto, nfrom, owner, *rrow_ranks; in MatIncreaseOverlap_MPIAIJ_Once_Scalable() local
118 PetscCall(PetscCalloc3(size, &toranks, 2 * size, &tosizes, size, &tosizes_temp)); in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
146 PetscCall(PetscFree3(toranks, tosizes, tosizes_temp)); in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
157 toranks[nto++] = i; /* MPI process */ in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
167 …PetscCall(PetscCommBuildTwoSided(comm, 2, MPIU_INT, nto, toranks, tosizes, &nfrom, &fromranks, &fr… in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
191 PetscCall(PetscFree3(toranks, tosizes, tosizes_temp)); in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
201 …PetscCall(PetscCommBuildTwoSided(comm, 2, MPIU_INT, nfrom, fromranks, sbsizes, &nto, &toranks, &to… in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
210 remote[nrecvrows].rank = toranks[i]; in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
226 PetscCall(PetscFree(toranks)); in MatIncreaseOverlap_MPIAIJ_Once_Scalable()
|