Lines Matching refs:comm
48 #define CommIdx(comm) ((comm) - 1) /* the communicator's internal index used in attr[idx][] and com… argument
226 int MPI_Comm_set_attr(MPI_Comm comm, int keyval, void *attribute_val) in MPI_Comm_set_attr() argument
228 int idx = CommIdx(comm), ret; in MPI_Comm_set_attr()
229 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_set_attr()
232 if ((ret = MPI_Comm_delete_attr(comm, keyval))) return ret; in MPI_Comm_set_attr()
239 int MPI_Comm_delete_attr(MPI_Comm comm, int keyval) in MPI_Comm_delete_attr() argument
241 int idx = CommIdx(comm); in MPI_Comm_delete_attr()
242 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_delete_attr()
251 …if ((ret = (*attr_keyval[keyval].del)(comm, keyval, save_attribute_val, attr_keyval[keyval].extra_… in MPI_Comm_delete_attr()
258 int MPI_Comm_get_attr(MPI_Comm comm, int keyval, void *attribute_val, int *flag) in MPI_Comm_get_attr() argument
260 int idx = CommIdx(comm); in MPI_Comm_get_attr()
261 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_get_attr()
270 int MPI_Comm_get_name(MPI_Comm comm, char *comm_name, int *resultlen) in MPI_Comm_get_name() argument
272 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_get_name()
274 (void)strncpy(comm_name, all_comm_names[CommIdx(comm)], MPI_MAX_OBJECT_NAME - 1); in MPI_Comm_get_name()
279 int MPI_Comm_set_name(MPI_Comm comm, const char *comm_name) in MPI_Comm_set_name() argument
281 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_set_name()
284 (void)strncpy(all_comm_names[CommIdx(comm)], comm_name, MPI_MAX_OBJECT_NAME - 1); in MPI_Comm_set_name()
288 int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm *newcomm) in MPI_Comm_create() argument
291 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_create()
305 int MPI_Comm_dup(MPI_Comm comm, MPI_Comm *out) in MPI_Comm_dup() argument
308 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_dup()
322 int MPI_Comm_free(MPI_Comm *comm) in MPI_Comm_free() argument
324 int idx = CommIdx(*comm); in MPI_Comm_free()
326 if (*comm < 1 || *comm > MaxComm) return MPI_FAILURE; in MPI_Comm_free()
328 int ret = MPI_Comm_delete_attr(*comm, i); in MPI_Comm_free()
332 if (*comm >= 3) comm_active[idx] = 0; in MPI_Comm_free()
333 *comm = 0; in MPI_Comm_free()
337 int MPI_Comm_size(MPI_Comm comm, int *size) in MPI_Comm_size() argument
339 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_size()
344 int MPI_Comm_rank(MPI_Comm comm, int *rank) in MPI_Comm_rank() argument
346 if (comm < 1 || comm > MaxComm) return MPI_FAILURE; in MPI_Comm_rank()
351 int MPIUni_Abort(MPI_Comm comm, int errorcode) in MPIUni_Abort() argument
357 int MPI_Abort(MPI_Comm comm, int errorcode) in MPI_Abort() argument
394 MPI_Comm comm = MPI_COMM_WORLD; in MPI_Finalize() local
395 int ret = MPI_Comm_free(&comm); in MPI_Finalize()
398 comm = MPI_COMM_SELF; in MPI_Finalize()
399 ret = MPI_Comm_free(&comm); in MPI_Finalize()
445 int MPI_Win_allocate_shared(size_t sz, size_t asz, MPI_Info info, MPI_Comm comm, void **addr, MPI_W… in MPI_Win_allocate_shared() argument
620 PETSC_EXTERN void petsc_mpi_comm_size_(MPI_Comm *comm, int *size, int *ierr) in petsc_mpi_comm_size_() argument
626 PETSC_EXTERN void petsc_mpi_comm_rank_(MPI_Comm *comm, int *rank, int *ierr) in petsc_mpi_comm_rank_() argument
632 PETSC_EXTERN void petsc_mpi_comm_split_(MPI_Comm *comm, int *color, int *key, MPI_Comm *newcomm, in… in petsc_mpi_comm_split_() argument
634 *newcomm = *comm; in petsc_mpi_comm_split_()
638 PETSC_EXTERN void petsc_mpi_abort_(MPI_Comm *comm, int *errorcode, int *ierr) in petsc_mpi_abort_() argument
644 …(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *root, int *comm, int *ierr) in petsc_mpi_reduce_() argument
646 *ierr = MPI_Reduce(sendbuf, recvbuf, *count, *datatype, *op, *root, *comm); in petsc_mpi_reduce_()
649 …_allreduce_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, int *ierr) in petsc_mpi_allreduce_() argument
651 *ierr = MPI_Allreduce(sendbuf, recvbuf, *count, *datatype, *op, *comm); in petsc_mpi_allreduce_()
654 PETSC_EXTERN void petsc_mpi_barrier_(MPI_Comm *comm, int *ierr) in petsc_mpi_barrier_() argument
659 PETSC_EXTERN void petsc_mpi_bcast_(void *buf, int *count, int *datatype, int *root, int *comm, int … in petsc_mpi_bcast_() argument
664 …count, int *sdatatype, void *recvbuf, int *rcount, int *rdatatype, int *root, int *comm, int *ierr) in petsc_mpi_gather_() argument
666 *ierr = MPI_Gather(sendbuf, *scount, *sdatatype, recvbuf, rcount, rdatatype, *root, *comm); in petsc_mpi_gather_()
669 …buf, int *scount, int *sdatatype, void *recvbuf, int *rcount, int *rdatatype, int *comm, int *ierr) in petsc_mpi_allgather_() argument
671 *ierr = MPI_Allgather(sendbuf, *scount, *sdatatype, recvbuf, rcount, rdatatype, *comm); in petsc_mpi_allgather_()
674 …c_mpi_scan_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, int *ierr) in petsc_mpi_scan_() argument
679 …id petsc_mpi_send_(void *buf, int *count, int *datatype, int *dest, int *tag, int *comm, int *ierr) in petsc_mpi_send_() argument
684 …i_recv_(void *buf, int *count, int *datatype, int *source, int *tag, int *comm, int status, int *i… in petsc_mpi_recv_() argument
689 …atter_(void *sendbuf, void *recvbuf, int *recvcounts, int *datatype, int *op, int *comm, int *ierr) in petsc_mpi_reduce_scatter_() argument
694 …_irecv_(void *buf, int *count, int *datatype, int *source, int *tag, int *comm, int *request, int … in petsc_mpi_irecv_() argument
699 …pi_isend_(void *buf, int *count, int *datatype, int *dest, int *tag, int *comm, int *request, int … in petsc_mpi_isend_() argument
704 … *recvbuf, int *recvcount, int *recvtype, int *source, int *recvtag, int *comm, int *status, int *… in petsc_mpi_sendrecv_() argument
724 …t, int *sendtype, void *recvbuf, int *recvcounts, int *displs, int *recvtype, int *comm, int *ierr) in petsc_mpi_allgatherv_() argument
726 …rr = MPI_Allgatherv(sendbuf, *sendcount, *sendtype, recvbuf, recvcounts, displs, *recvtype, *comm); in petsc_mpi_allgatherv_()
729 …, int *sendtype, void *recvbuf, int *recvcounts, int *rdispls, int *recvtype, int *comm, int *ierr) in petsc_mpi_alltoallv_() argument
731 …Alltoallv(sendbuf, sendcounts, sdispls, *sendtype, recvbuf, recvcounts, rdispls, *recvtype, *comm); in petsc_mpi_alltoallv_()
734 PETSC_EXTERN void petsc_mpi_comm_create_(int *comm, int *group, int *newcomm, int *ierr) in petsc_mpi_comm_create_() argument
736 *newcomm = *comm; in petsc_mpi_comm_create_()
746 …nbuf, int *incount, int *datatype, void *outbuf, int *outsize, int *position, int *comm, int *ierr) in petsc_mpi_pack_() argument
751 …nbuf, int *insize, int *position, void *outbuf, int *outcount, int *datatype, int *comm, int *ierr) in petsc_mpi_unpack_() argument
756 PETSC_EXTERN void petsc_mpi_pack_size_(int *incount, int *datatype, int *comm, int *size, int *ierr) in petsc_mpi_pack_size_() argument
781 PETSC_EXTERN void petsc_mpi_comm_dup_(int *comm, int *out, int *ierr) in petsc_mpi_comm_dup_() argument
783 *out = *comm; in petsc_mpi_comm_dup_()
787 PETSC_EXTERN void petsc_mpi_comm_free_(int *comm, int *ierr) in petsc_mpi_comm_free_() argument
810 PETSC_EXTERN void petsc_mpi_iprobe_(int *source, int *tag, int *comm, int *glag, int *status, int *… in petsc_mpi_iprobe_() argument
815 PETSC_EXTERN void petsc_mpi_probe_(int *source, int *tag, int *comm, int *flag, int *status, int *i… in petsc_mpi_probe_() argument
825 …d petsc_mpi_ssend_(void *buf, int *count, int *datatype, int *dest, int *tag, int *comm, int *ierr) in petsc_mpi_ssend_() argument
835 PETSC_EXTERN void petsc_mpi_comm_group_(int *comm, int *group, int *ierr) in petsc_mpi_comm_group_() argument
840 …mpi_exscan_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, int *ierr) in petsc_mpi_exscan_() argument