31   int   active;
37   int                  active; /* Is this keyval in use by some comm? */
42 static int             comm_active[MAX_COMM]; /* Boolean array indicating which comms are in use */
43 static int             mpi_tag_ub           = 100000000;
44 static int             num_attr             = 1; /* Maximal number of keyvals/attributes ever creat…
45 static int             MaxComm              = 2; /* Maximal number of communicators ever created, i…
57 int MPIUNI_Memcpy(void *dst, const void *src, MPI_Count n)  in MPIUNI_Memcpy()
81 static int classcnt = 0;
82 static int codecnt  = 0;
84 int MPI_Add_error_class(int *cl)  in MPI_Add_error_class()
90 int MPI_Add_error_code(int cl, int *co)  in MPI_Add_error_code()
97 int MPI_Type_get_envelope(MPI_Datatype datatype, int *num_integers, int *num_addresses, int *num_da…  in MPI_Type_get_envelope()
99   int comb = datatype >> 28;  in MPI_Type_get_envelope()
125 int MPI_Type_get_contents(MPI_Datatype datatype, int max_integers, int max_addresses, int max_datat…  in MPI_Type_get_contents()
127   int comb = datatype >> 28;  in MPI_Type_get_contents()
149 static int Keyval_setup(void)  in Keyval_setup()
159 int MPI_Comm_create_keyval(PETSC_UNUSED MPI_Copy_function *copy_fn, PETSC_UNUSED MPI_Delete_functio…  in MPI_Comm_create_keyval()
161   int i, keyid;  in MPI_Comm_create_keyval()
201 static int MPI_Attr_dereference_keyval(int keyval)  in MPI_Attr_dereference_keyval()
210 static int MPI_Attr_reference_keyval(int keyval)  in MPI_Attr_reference_keyval()
216 int MPI_Comm_free_keyval(int *keyval)  in MPI_Comm_free_keyval()
218   int ret;  in MPI_Comm_free_keyval()
226 int MPI_Comm_set_attr(MPI_Comm comm, int keyval, void *attribute_val)  in MPI_Comm_set_attr()
228   int idx = CommIdx(comm), ret;  in MPI_Comm_set_attr()
239 int MPI_Comm_delete_attr(MPI_Comm comm, int keyval)  in MPI_Comm_delete_attr()
241   int idx = CommIdx(comm);  in MPI_Comm_delete_attr()
245     int   ret;  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()
260   int idx = CommIdx(comm);  in MPI_Comm_get_attr()
270 int MPI_Comm_get_name(MPI_Comm comm, char *comm_name, int *resultlen)  in MPI_Comm_get_name()
275   *resultlen = (int)strlen(comm_name);  in MPI_Comm_get_name()
279 int MPI_Comm_set_name(MPI_Comm comm, const char *comm_name)  in MPI_Comm_set_name()
288 int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm *newcomm)  in MPI_Comm_create()
290   int j;  in MPI_Comm_create()
305 int MPI_Comm_dup(MPI_Comm comm, MPI_Comm *out)  in MPI_Comm_dup()
307   int j;  in MPI_Comm_dup()
322 int MPI_Comm_free(MPI_Comm *comm)  in MPI_Comm_free()
324   int idx = CommIdx(*comm);  in MPI_Comm_free()
327   for (int i = 0; i < num_attr; i++) {  in MPI_Comm_free()
328     int ret = MPI_Comm_delete_attr(*comm, i);  in MPI_Comm_free()
337 int MPI_Comm_size(MPI_Comm comm, int *size)  in MPI_Comm_size()
344 int MPI_Comm_rank(MPI_Comm comm, int *rank)  in MPI_Comm_rank()
351 int MPIUni_Abort(MPI_Comm comm, int errorcode)  in MPIUni_Abort()
357 int MPI_Abort(MPI_Comm comm, int errorcode)  in MPI_Abort()
363 static int MPI_was_initialized = 0;
364 static int MPI_was_finalized   = 0;
366 int MPI_Init(int *argc, char ***argv)  in MPI_Init()
379 int MPI_Init_thread(int *argc, char ***argv, int required, int *provided)  in MPI_Init_thread()
385 int MPI_Query_thread(int *provided)  in MPI_Query_thread()
391 int MPI_Finalize(void)  in MPI_Finalize()
395   int      ret  = MPI_Comm_free(&comm);  in MPI_Finalize()
402     for (int i = 3; i <= MaxComm; ++i) {  in MPI_Finalize()
406     for (int i = 1; i <= MaxComm; ++i) {  in MPI_Finalize()
407       for (int j = 0; j < num_attr; ++j) {  in MPI_Finalize()
412     for (int i = 1; i < num_attr; ++i) {  in MPI_Finalize()
426 int MPI_Initialized(int *flag)  in MPI_Initialized()
432 int MPI_Finalized(int *flag)  in MPI_Finalized()
438 int MPI_Win_free(MPI_Win *win)  in MPI_Win_free()
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()
609 PETSC_EXTERN void petsc_mpi_init_(int *ierr)  in petsc_mpi_init_()
615 PETSC_EXTERN void petsc_mpi_finalize_(int *ierr)  in petsc_mpi_finalize_()
620 PETSC_EXTERN void petsc_mpi_comm_size_(MPI_Comm *comm, int *size, int *ierr)  in petsc_mpi_comm_size_()
626 PETSC_EXTERN void petsc_mpi_comm_rank_(MPI_Comm *comm, int *rank, int *ierr)  in petsc_mpi_comm_rank_()
632 …TSC_EXTERN void petsc_mpi_comm_split_(MPI_Comm *comm, int *color, int *key, MPI_Comm *newcomm, int…  in petsc_mpi_comm_split_()
638 PETSC_EXTERN void petsc_mpi_abort_(MPI_Comm *comm, int *errorcode, int *ierr)  in petsc_mpi_abort_()
644 …tsc_mpi_reduce_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *root, int *…  in petsc_mpi_reduce_()
649 …petsc_mpi_allreduce_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, …  in petsc_mpi_allreduce_()
654 PETSC_EXTERN void petsc_mpi_barrier_(MPI_Comm *comm, int *ierr)  in petsc_mpi_barrier_()
659 PETSC_EXTERN void petsc_mpi_bcast_(void *buf, int *count, int *datatype, int *root, int *comm, int …  in petsc_mpi_bcast_()
664 …mpi_gather_(void *sendbuf, int *scount, int *sdatatype, void *recvbuf, int *rcount, int *rdatatype…  in petsc_mpi_gather_()
669 …sc_mpi_allgather_(void *sendbuf, int *scount, int *sdatatype, void *recvbuf, int *rcount, int *rda…  in petsc_mpi_allgather_()
674 …void petsc_mpi_scan_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, …  in petsc_mpi_scan_()
679 PETSC_EXTERN void petsc_mpi_send_(void *buf, int *count, int *datatype, int *dest, int *tag, int *c…  in petsc_mpi_send_()
684 …XTERN void petsc_mpi_recv_(void *buf, int *count, int *datatype, int *source, int *tag, int *comm,…  in petsc_mpi_recv_()
689 …pi_reduce_scatter_(void *sendbuf, void *recvbuf, int *recvcounts, int *datatype, int *op, int *com…  in petsc_mpi_reduce_scatter_()
694 …ERN void petsc_mpi_irecv_(void *buf, int *count, int *datatype, int *source, int *tag, int *comm, …  in petsc_mpi_irecv_()
699 …TERN void petsc_mpi_isend_(void *buf, int *count, int *datatype, int *dest, int *tag, int *comm, i…  in petsc_mpi_isend_()
704 …int *sendcount, int *sendtype, int *dest, int *sendtag, void *recvbuf, int *recvcount, int *recvty…  in petsc_mpi_sendrecv_()
709 PETSC_EXTERN void petsc_mpi_test_(int *request, int *flag, int *status, int *ierr)  in petsc_mpi_test_()
714 PETSC_EXTERN void petsc_mpi_waitall_(int *count, int *array_of_requests, int *array_of_statuses, in…  in petsc_mpi_waitall_()
719 PETSC_EXTERN void petsc_mpi_waitany_(int *count, int *array_of_requests, int *index, int *status, i…  in petsc_mpi_waitany_()
724 …gatherv_(void *sendbuf, int *sendcount, int *sendtype, void *recvbuf, int *recvcounts, int *displs…  in petsc_mpi_allgatherv_()
729 …(void *sendbuf, int *sendcounts, int *sdispls, int *sendtype, void *recvbuf, int *recvcounts, int …  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_()
740 PETSC_EXTERN void petsc_mpi_address_(void *location, MPI_Aint *address, int *ierr)  in petsc_mpi_address_()
746 …oid petsc_mpi_pack_(void *inbuf, int *incount, int *datatype, void *outbuf, int *outsize, int *pos…  in petsc_mpi_pack_()
751 …d petsc_mpi_unpack_(void *inbuf, int *insize, int *position, void *outbuf, int *outcount, int *dat…  in petsc_mpi_unpack_()
756 PETSC_EXTERN void petsc_mpi_pack_size_(int *incount, int *datatype, int *comm, int *size, int *ierr)  in petsc_mpi_pack_size_()
761 … petsc_mpi_type_struct_(int *count, int *array_of_blocklengths, int *array_of_displaments, int *ar…  in petsc_mpi_type_struct_()
766 PETSC_EXTERN void petsc_mpi_type_commit_(int *datatype, int *ierr)  in petsc_mpi_type_commit_()
776 PETSC_EXTERN void petsc_mpi_cancel_(int *request, int *ierr)  in petsc_mpi_cancel_()
781 PETSC_EXTERN void petsc_mpi_comm_dup_(int *comm, int *out, int *ierr)  in petsc_mpi_comm_dup_()
787 PETSC_EXTERN void petsc_mpi_comm_free_(int *comm, int *ierr)  in petsc_mpi_comm_free_()
792 PETSC_EXTERN void petsc_mpi_get_count_(int *status, int *datatype, int *count, int *ierr)  in petsc_mpi_get_count_()
797 PETSC_EXTERN void petsc_mpi_get_processor_name_(char *name, int *result_len, int *ierr, PETSC_FORTR…  in petsc_mpi_get_processor_name_()
804 PETSC_EXTERN void petsc_mpi_initialized_(int *flag, int *ierr)  in petsc_mpi_initialized_()
810 PETSC_EXTERN void petsc_mpi_iprobe_(int *source, int *tag, int *comm, int *glag, int *status, int *…  in petsc_mpi_iprobe_()
815 PETSC_EXTERN void petsc_mpi_probe_(int *source, int *tag, int *comm, int *flag, int *status, int *i…  in petsc_mpi_probe_()
820 PETSC_EXTERN void petsc_mpi_request_free_(int *request, int *ierr)  in petsc_mpi_request_free_()
825 …ETSC_EXTERN void petsc_mpi_ssend_(void *buf, int *count, int *datatype, int *dest, int *tag, int *…  in petsc_mpi_ssend_()
830 PETSC_EXTERN void petsc_mpi_wait_(int *request, int *status, int *ierr)  in petsc_mpi_wait_()
835 PETSC_EXTERN void petsc_mpi_comm_group_(int *comm, int *group, int *ierr)  in petsc_mpi_comm_group_()
840 …id petsc_mpi_exscan_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, …  in petsc_mpi_exscan_()