c_ierr 410 ompi/mca/common/monitoring/monitoring_prof.c int c_ierr; c_ierr 414 ompi/mca/common/monitoring/monitoring_prof.c c_ierr = MPI_Init(&argc, &argv); c_ierr 415 ompi/mca/common/monitoring/monitoring_prof.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 419 ompi/mca/common/monitoring/monitoring_prof.c int c_ierr; c_ierr 421 ompi/mca/common/monitoring/monitoring_prof.c c_ierr = MPI_Finalize(); c_ierr 422 ompi/mca/common/monitoring/monitoring_prof.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/alltoall_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/alltoall_f.c c_ierr = PMPI_Alltoall(sendbuf, c_ierr 92 ompi/mpi/fortran/mpif-h/alltoall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/alltoallv_f.c int size, c_ierr; c_ierr 97 ompi/mpi/fortran/mpif-h/alltoallv_f.c c_ierr = PMPI_Alltoallv(sendbuf, c_ierr 105 ompi/mpi/fortran/mpif-h/alltoallv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/alltoallw_f.c int size, c_ierr; c_ierr 105 ompi/mpi/fortran/mpif-h/alltoallw_f.c c_ierr = PMPI_Alltoallw(sendbuf, c_ierr 113 ompi/mpi/fortran/mpif-h/alltoallw_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/attr_delete_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/attr_delete_f.c c_ierr = PMPI_Attr_delete(c_comm, OMPI_FINT_2_INT(*keyval)); c_ierr 76 ompi/mpi/fortran/mpif-h/attr_delete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/attr_get_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/attr_get_f.c c_ierr = ompi_attr_get_fint(c_comm->c_keyhash, c_ierr 84 ompi/mpi/fortran/mpif-h/attr_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/bcast_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/bcast_f.c c_ierr = PMPI_Bcast(OMPI_F2C_BOTTOM(buffer), c_ierr 85 ompi/mpi/fortran/mpif-h/bcast_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/bsend_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/bsend_f.c c_ierr = PMPI_Bsend(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 81 ompi/mpi/fortran/mpif-h/bsend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/bsend_init_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/bsend_init_f.c c_ierr = PMPI_Bsend_init(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 84 ompi/mpi/fortran/mpif-h/bsend_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/bsend_init_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/buffer_attach_f.c int c_ierr = PMPI_Buffer_attach(buffer, OMPI_FINT_2_INT(*size)); c_ierr 72 ompi/mpi/fortran/mpif-h/buffer_attach_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/buffer_detach_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/buffer_detach_f.c c_ierr = PMPI_Buffer_detach(&dummy, OMPI_SINGLE_NAME_CONVERT(size)); c_ierr 88 ompi/mpi/fortran/mpif-h/buffer_detach_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/buffer_detach_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/cancel_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/cancel_f.c c_ierr = PMPI_Cancel(&c_req); c_ierr 77 ompi/mpi/fortran/mpif-h/cancel_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/cart_coords_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/cart_coords_f.c c_ierr = PMPI_Cart_coords(c_comm, c_ierr 83 ompi/mpi/fortran/mpif-h/cart_coords_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/cart_coords_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/cart_create_f.c int size, c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/cart_create_f.c c_ierr = PMPI_Cart_create(c_comm1, size, c_ierr 90 ompi/mpi/fortran/mpif-h/cart_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/cart_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/cart_get_f.c int size, c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/cart_get_f.c c_ierr = PMPI_Cart_get(c_comm, c_ierr 90 ompi/mpi/fortran/mpif-h/cart_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/cart_map_f.c int size, c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/cart_map_f.c c_ierr = PMPI_Cart_map(c_comm, c_ierr 90 ompi/mpi/fortran/mpif-h/cart_map_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/cart_rank_f.c int ndims, c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/cart_rank_f.c c_ierr = PMPI_Cartdim_get(c_comm, &ndims); c_ierr 80 ompi/mpi/fortran/mpif-h/cart_rank_f.c if (MPI_SUCCESS != c_ierr) { c_ierr 81 ompi/mpi/fortran/mpif-h/cart_rank_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/cart_rank_f.c c_ierr = PMPI_Cart_rank(c_comm, c_ierr 89 ompi/mpi/fortran/mpif-h/cart_rank_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/cart_rank_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/cart_shift_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/cart_shift_f.c c_ierr = PMPI_Cart_shift(c_comm, c_ierr 85 ompi/mpi/fortran/mpif-h/cart_shift_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/cart_shift_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/cart_sub_f.c int c_ierr; c_ierr 96 ompi/mpi/fortran/mpif-h/cart_sub_f.c c_ierr = PMPI_Cart_sub(c_comm, c_ierr 99 ompi/mpi/fortran/mpif-h/cart_sub_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 101 ompi/mpi/fortran/mpif-h/cart_sub_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/cartdim_get_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/cartdim_get_f.c c_ierr = PMPI_Cartdim_get(c_comm, OMPI_SINGLE_NAME_CONVERT(ndims)); c_ierr 78 ompi/mpi/fortran/mpif-h/cartdim_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/cartdim_get_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/close_port_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/close_port_f.c c_ierr = PMPI_Close_port(c_port_name); c_ierr 77 ompi/mpi/fortran/mpif-h/close_port_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/comm_accept_f.c int c_ierr; c_ierr 84 ompi/mpi/fortran/mpif-h/comm_accept_f.c c_ierr = PMPI_Comm_accept(c_port_name, c_info, c_ierr 87 ompi/mpi/fortran/mpif-h/comm_accept_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/comm_accept_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/comm_call_errhandler_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/comm_call_errhandler_f.c c_ierr = PMPI_Comm_call_errhandler(c_comm, OMPI_FINT_2_INT(*errorcode)); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_call_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/comm_compare_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/comm_compare_f.c c_ierr = PMPI_Comm_compare(c_comm1, c_comm2, c_ierr 78 ompi/mpi/fortran/mpif-h/comm_compare_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/comm_compare_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/comm_connect_f.c int c_ierr; c_ierr 84 ompi/mpi/fortran/mpif-h/comm_connect_f.c c_ierr = PMPI_Comm_connect(c_port_name, c_info, c_ierr 87 ompi/mpi/fortran/mpif-h/comm_connect_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/comm_connect_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/comm_create_errhandler_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/comm_create_errhandler_f.c c_ierr = MPI_SUCCESS; c_ierr 85 ompi/mpi/fortran/mpif-h/comm_create_errhandler_f.c c_ierr = MPI_ERR_INTERN; c_ierr 89 ompi/mpi/fortran/mpif-h/comm_create_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 70 ompi/mpi/fortran/mpif-h/comm_create_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/comm_create_f.c c_ierr = PMPI_Comm_create(c_comm, c_group, &c_newcomm); c_ierr 76 ompi/mpi/fortran/mpif-h/comm_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/comm_create_group_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/comm_create_group_f.c c_ierr = PMPI_Comm_create_group (c_comm, c_group, OMPI_FINT_2_INT(*tag), &c_newcomm); c_ierr 79 ompi/mpi/fortran/mpif-h/comm_create_group_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/comm_create_group_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 77 ompi/mpi/fortran/mpif-h/comm_create_keyval_f.c int ret, c_ierr; c_ierr 95 ompi/mpi/fortran/mpif-h/comm_create_keyval_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 98 ompi/mpi/fortran/mpif-h/comm_create_keyval_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/comm_delete_attr_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/comm_delete_attr_f.c c_ierr = PMPI_Comm_delete_attr(c_comm, OMPI_FINT_2_INT(*comm_keyval)); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_delete_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/comm_disconnect_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/comm_disconnect_f.c c_ierr = PMPI_Comm_disconnect(&c_comm); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_disconnect_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/comm_disconnect_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_dup_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/comm_dup_f.c c_ierr = PMPI_Comm_dup(c_comm, &c_newcomm); c_ierr 76 ompi/mpi/fortran/mpif-h/comm_dup_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_dup_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/comm_dup_with_info_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/comm_dup_with_info_f.c c_ierr = PMPI_Comm_dup_with_info(c_comm, c_info, &c_newcomm); c_ierr 82 ompi/mpi/fortran/mpif-h/comm_dup_with_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/comm_dup_with_info_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_free_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/comm_free_f.c c_ierr = PMPI_Comm_free(&c_comm); c_ierr 75 ompi/mpi/fortran/mpif-h/comm_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_free_keyval_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/comm_free_keyval_f.c c_ierr = PMPI_Comm_free_keyval(OMPI_SINGLE_NAME_CONVERT(comm_keyval)); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_free_keyval_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/comm_free_keyval_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/comm_get_attr_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/comm_get_attr_f.c c_ierr = ompi_attr_get_aint(c_comm->c_keyhash, c_ierr 85 ompi/mpi/fortran/mpif-h/comm_get_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/comm_get_errhandler_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/comm_get_errhandler_f.c c_ierr = PMPI_Comm_get_errhandler(c_comm, &c_errhandler); c_ierr 79 ompi/mpi/fortran/mpif-h/comm_get_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/comm_get_errhandler_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 63 ompi/mpi/fortran/mpif-h/comm_get_info_f.c int c_ierr; c_ierr 67 ompi/mpi/fortran/mpif-h/comm_get_info_f.c c_ierr = PMPI_Comm_get_info(c_comm, &c_info); c_ierr 68 ompi/mpi/fortran/mpif-h/comm_get_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 70 ompi/mpi/fortran/mpif-h/comm_get_info_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/comm_get_name_f.c int c_ierr, c_len; c_ierr 80 ompi/mpi/fortran/mpif-h/comm_get_name_f.c c_ierr = PMPI_Comm_get_name(c_comm, c_name, &c_len); c_ierr 81 ompi/mpi/fortran/mpif-h/comm_get_name_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 86 ompi/mpi/fortran/mpif-h/comm_get_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/comm_get_parent_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/comm_get_parent_f.c c_ierr = PMPI_Comm_get_parent(&c_parent); c_ierr 75 ompi/mpi/fortran/mpif-h/comm_get_parent_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_get_parent_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_group_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/comm_group_f.c c_ierr = PMPI_Comm_group( c_comm, &c_group); c_ierr 76 ompi/mpi/fortran/mpif-h/comm_group_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_group_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/comm_idup_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/comm_idup_f.c c_ierr = PMPI_Comm_idup(c_comm, &c_newcomm, &c_req); c_ierr 80 ompi/mpi/fortran/mpif-h/comm_idup_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/comm_idup_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_join_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/comm_join_f.c c_ierr = PMPI_Comm_join(OMPI_FINT_2_INT(*fd), &c_intercomm); c_ierr 75 ompi/mpi/fortran/mpif-h/comm_join_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_join_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_rank_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/comm_rank_f.c c_ierr = PMPI_Comm_rank( c_comm, OMPI_SINGLE_NAME_CONVERT(rank)); c_ierr 76 ompi/mpi/fortran/mpif-h/comm_rank_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_rank_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 70 ompi/mpi/fortran/mpif-h/comm_remote_group_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/comm_remote_group_f.c c_ierr = PMPI_Comm_remote_group(c_comm, &c_group); c_ierr 75 ompi/mpi/fortran/mpif-h/comm_remote_group_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_remote_group_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 70 ompi/mpi/fortran/mpif-h/comm_remote_size_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/comm_remote_size_f.c c_ierr = PMPI_Comm_remote_size(c_comm, OMPI_SINGLE_NAME_CONVERT(size )); c_ierr 75 ompi/mpi/fortran/mpif-h/comm_remote_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/comm_remote_size_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/comm_set_attr_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/comm_set_attr_f.c c_ierr = ompi_attr_set_aint(COMM_ATTR, c_ierr 85 ompi/mpi/fortran/mpif-h/comm_set_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/comm_set_errhandler_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/comm_set_errhandler_f.c c_ierr = PMPI_Comm_set_errhandler(c_comm, c_errhandler); c_ierr 81 ompi/mpi/fortran/mpif-h/comm_set_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 63 ompi/mpi/fortran/mpif-h/comm_set_info_f.c int c_ierr; c_ierr 67 ompi/mpi/fortran/mpif-h/comm_set_info_f.c c_ierr = PMPI_Comm_set_info(c_comm, c_info); c_ierr 68 ompi/mpi/fortran/mpif-h/comm_set_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/comm_set_name_f.c int ret, c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/comm_set_name_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(c_comm, ret, c_ierr 85 ompi/mpi/fortran/mpif-h/comm_set_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/comm_set_name_f.c c_ierr = PMPI_Comm_set_name(c_comm, c_name); c_ierr 92 ompi/mpi/fortran/mpif-h/comm_set_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/comm_size_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/comm_size_f.c c_ierr = PMPI_Comm_size( c_comm, OMPI_SINGLE_NAME_CONVERT(size) ); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/comm_size_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 79 ompi/mpi/fortran/mpif-h/comm_spawn_f.c int size, c_ierr; c_ierr 107 ompi/mpi/fortran/mpif-h/comm_spawn_f.c c_ierr = PMPI_Comm_spawn(c_command, c_argv, c_ierr 112 ompi/mpi/fortran/mpif-h/comm_spawn_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 114 ompi/mpi/fortran/mpif-h/comm_spawn_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 85 ompi/mpi/fortran/mpif-h/comm_spawn_multiple_f.c int size, array_size, i, c_ierr; c_ierr 126 ompi/mpi/fortran/mpif-h/comm_spawn_multiple_f.c c_ierr = PMPI_Comm_spawn_multiple(OMPI_FINT_2_INT(*count), c_ierr 134 ompi/mpi/fortran/mpif-h/comm_spawn_multiple_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 136 ompi/mpi/fortran/mpif-h/comm_spawn_multiple_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/comm_split_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/comm_split_f.c c_ierr = PMPI_Comm_split(c_comm, c_ierr 80 ompi/mpi/fortran/mpif-h/comm_split_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/comm_split_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/comm_split_type_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/comm_split_type_f.c c_ierr = OMPI_INT_2_FINT(PMPI_Comm_split_type(c_comm, c_ierr 85 ompi/mpi/fortran/mpif-h/comm_split_type_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/comm_split_type_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/comm_test_inter_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/comm_test_inter_f.c c_ierr = PMPI_Comm_test_inter(c_comm, OMPI_LOGICAL_SINGLE_NAME_CONVERT(flag)); c_ierr 76 ompi/mpi/fortran/mpif-h/comm_test_inter_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/comm_test_inter_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 78 ompi/mpi/fortran/mpif-h/compare_and_swap_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/compare_and_swap_f.c c_ierr = PMPI_Compare_and_swap(OMPI_F2C_BOTTOM(origin_addr), c_ierr 88 ompi/mpi/fortran/mpif-h/compare_and_swap_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/dims_create_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/dims_create_f.c c_ierr = PMPI_Dims_create(OMPI_FINT_2_INT(*nnodes), c_ierr 80 ompi/mpi/fortran/mpif-h/dims_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/dims_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/errhandler_free_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/errhandler_free_f.c c_ierr = PMPI_Errhandler_free(&c_errhandler); c_ierr 77 ompi/mpi/fortran/mpif-h/errhandler_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/errhandler_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/errhandler_get_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/errhandler_get_f.c c_ierr = PMPI_Errhandler_get(c_comm, &c_errhandler); c_ierr 78 ompi/mpi/fortran/mpif-h/errhandler_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/errhandler_get_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/errhandler_set_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/errhandler_set_f.c c_ierr = PMPI_Errhandler_set(c_comm, c_errhandler); c_ierr 80 ompi/mpi/fortran/mpif-h/errhandler_set_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/error_class_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/error_class_f.c c_ierr = PMPI_Error_class(OMPI_FINT_2_INT(*errorcode), c_ierr 77 ompi/mpi/fortran/mpif-h/error_class_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/error_class_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 82 ompi/mpi/fortran/mpif-h/error_string_f.c int c_ierr, ret; c_ierr 86 ompi/mpi/fortran/mpif-h/error_string_f.c c_ierr = PMPI_Error_string(OMPI_FINT_2_INT(*errorcode), c_ierr 90 ompi/mpi/fortran/mpif-h/error_string_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/error_string_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 96 ompi/mpi/fortran/mpif-h/error_string_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 97 ompi/mpi/fortran/mpif-h/error_string_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/exscan_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/exscan_f.c c_ierr = PMPI_Exscan(sendbuf, recvbuf, c_ierr 90 ompi/mpi/fortran/mpif-h/exscan_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/fetch_and_op_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/fetch_and_op_f.c c_ierr = PMPI_Fetch_and_op(OMPI_F2C_BOTTOM(origin_addr), c_ierr 88 ompi/mpi/fortran/mpif-h/fetch_and_op_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/file_call_errhandler_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_call_errhandler_f.c c_ierr = PMPI_File_call_errhandler(c_fh, OMPI_FINT_2_INT(*errorcode)); c_ierr 78 ompi/mpi/fortran/mpif-h/file_call_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_close_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/file_close_f.c c_ierr = PMPI_File_close(&c_fh); c_ierr 77 ompi/mpi/fortran/mpif-h/file_close_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/file_close_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/file_create_errhandler_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/file_create_errhandler_f.c c_ierr = MPI_SUCCESS; c_ierr 85 ompi/mpi/fortran/mpif-h/file_create_errhandler_f.c c_ierr = MPI_ERR_INTERN; c_ierr 88 ompi/mpi/fortran/mpif-h/file_create_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_delete_f.c int c_ierr, ret; c_ierr 82 ompi/mpi/fortran/mpif-h/file_delete_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_FILE_NULL, ret, "MPI_FILE_DELETE"); c_ierr 83 ompi/mpi/fortran/mpif-h/file_delete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/file_delete_f.c c_ierr = PMPI_File_delete(c_filename, c_info); c_ierr 88 ompi/mpi/fortran/mpif-h/file_delete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_amode_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_amode_f.c c_ierr = PMPI_File_get_amode(c_fh, OMPI_SINGLE_NAME_CONVERT(amode)); c_ierr 77 ompi/mpi/fortran/mpif-h/file_get_amode_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/file_get_amode_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_atomicity_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_atomicity_f.c c_ierr = PMPI_File_get_atomicity(c_fh, c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_atomicity_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/file_get_atomicity_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/file_get_byte_offset_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_get_byte_offset_f.c c_ierr = PMPI_File_get_byte_offset(c_fh, c_ierr 80 ompi/mpi/fortran/mpif-h/file_get_byte_offset_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_errhandler_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_get_errhandler_f.c c_ierr = PMPI_File_get_errhandler(c_fh, &c_errhandler); c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/file_get_errhandler_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_group_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_get_group_f.c c_ierr = PMPI_File_get_group(c_fh, &c_grp); c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_group_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_group_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_info_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_get_info_f.c c_ierr = PMPI_File_get_info(c_fh, &c_info); c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_info_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_position_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_get_position_f.c c_ierr = PMPI_File_get_position(c_fh, &c_offset); c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_position_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_position_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/file_get_position_shared_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_position_shared_f.c c_ierr = PMPI_File_get_position_shared(c_fh, &c_offset); c_ierr 77 ompi/mpi/fortran/mpif-h/file_get_position_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/file_get_position_shared_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/file_get_size_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_get_size_f.c c_ierr = PMPI_File_get_size(c_fh, &c_size); c_ierr 76 ompi/mpi/fortran/mpif-h/file_get_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_size_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/file_get_type_extent_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_get_type_extent_f.c c_ierr = PMPI_File_get_type_extent(c_fh, c_type, extent); c_ierr 79 ompi/mpi/fortran/mpif-h/file_get_type_extent_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_get_view_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_get_view_f.c c_ierr = PMPI_File_get_view(c_fh, &c_disp, &c_etype, c_ierr 83 ompi/mpi/fortran/mpif-h/file_get_view_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/file_get_view_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/file_iread_all_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_iread_all_f.c c_ierr = PMPI_File_iread_all(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 81 ompi/mpi/fortran/mpif-h/file_iread_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/file_iread_all_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/file_iread_at_all_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/file_iread_at_all_f.c c_ierr = PMPI_File_iread_at_all(c_fh, (MPI_Offset) *offset, c_ierr 84 ompi/mpi/fortran/mpif-h/file_iread_at_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/file_iread_at_all_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/file_iread_at_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/file_iread_at_f.c c_ierr = PMPI_File_iread_at(c_fh, (MPI_Offset) *offset, c_ierr 84 ompi/mpi/fortran/mpif-h/file_iread_at_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/file_iread_at_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/file_iread_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_iread_f.c c_ierr = PMPI_File_iread(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 81 ompi/mpi/fortran/mpif-h/file_iread_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/file_iread_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/file_iread_shared_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/file_iread_shared_f.c c_ierr = PMPI_File_iread_shared(c_fh, c_ierr 84 ompi/mpi/fortran/mpif-h/file_iread_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/file_iread_shared_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/file_iwrite_all_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_iwrite_all_f.c c_ierr = PMPI_File_iwrite_all(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 80 ompi/mpi/fortran/mpif-h/file_iwrite_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/file_iwrite_all_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/file_iwrite_at_all_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/file_iwrite_at_all_f.c c_ierr = PMPI_File_iwrite_at_all(c_fh, (MPI_Offset) *offset, c_ierr 83 ompi/mpi/fortran/mpif-h/file_iwrite_at_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/file_iwrite_at_all_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/file_iwrite_at_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/file_iwrite_at_f.c c_ierr = PMPI_File_iwrite_at(c_fh, (MPI_Offset) *offset, c_ierr 83 ompi/mpi/fortran/mpif-h/file_iwrite_at_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/file_iwrite_at_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/file_iwrite_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_iwrite_f.c c_ierr = PMPI_File_iwrite(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 80 ompi/mpi/fortran/mpif-h/file_iwrite_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/file_iwrite_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/file_iwrite_shared_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/file_iwrite_shared_f.c c_ierr = PMPI_File_iwrite_shared(c_fh, c_ierr 84 ompi/mpi/fortran/mpif-h/file_iwrite_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/file_iwrite_shared_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 78 ompi/mpi/fortran/mpif-h/file_open_f.c int c_ierr, ret; c_ierr 83 ompi/mpi/fortran/mpif-h/file_open_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_FILE_NULL, ret, "MPI_FILE_OPEN"); c_ierr 84 ompi/mpi/fortran/mpif-h/file_open_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/file_open_f.c c_ierr = PMPI_File_open(c_comm, c_filename, c_ierr 91 ompi/mpi/fortran/mpif-h/file_open_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 93 ompi/mpi/fortran/mpif-h/file_open_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/file_preallocate_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/file_preallocate_f.c c_ierr = PMPI_File_preallocate(c_fh, (MPI_Offset) *size); c_ierr 75 ompi/mpi/fortran/mpif-h/file_preallocate_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/file_read_all_begin_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_read_all_begin_f.c c_ierr = PMPI_File_read_all_begin(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 81 ompi/mpi/fortran/mpif-h/file_read_all_begin_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_read_all_end_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_read_all_end_f.c c_ierr = PMPI_File_read_all_end(c_fh, buf, c_status); c_ierr 82 ompi/mpi/fortran/mpif-h/file_read_all_end_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/file_read_all_end_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 75 ompi/mpi/fortran/mpif-h/file_read_all_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/file_read_all_f.c c_ierr = PMPI_File_read_all(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 85 ompi/mpi/fortran/mpif-h/file_read_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/file_read_all_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 74 ompi/mpi/fortran/mpif-h/file_read_at_all_begin_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_read_at_all_begin_f.c c_ierr = PMPI_File_read_at_all_begin(c_fh, c_ierr 83 ompi/mpi/fortran/mpif-h/file_read_at_all_begin_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_read_at_all_end_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_read_at_all_end_f.c c_ierr = PMPI_File_read_at_all_end(c_fh, buf, c_status); c_ierr 82 ompi/mpi/fortran/mpif-h/file_read_at_all_end_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/file_read_at_all_end_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 77 ompi/mpi/fortran/mpif-h/file_read_at_all_f.c int c_ierr; c_ierr 84 ompi/mpi/fortran/mpif-h/file_read_at_all_f.c c_ierr = PMPI_File_read_at_all(c_fh, c_ierr 90 ompi/mpi/fortran/mpif-h/file_read_at_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/file_read_at_all_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 76 ompi/mpi/fortran/mpif-h/file_read_at_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/file_read_at_f.c c_ierr = PMPI_File_read_at(c_fh, c_ierr 88 ompi/mpi/fortran/mpif-h/file_read_at_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/file_read_at_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 75 ompi/mpi/fortran/mpif-h/file_read_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/file_read_f.c c_ierr = PMPI_File_read(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 85 ompi/mpi/fortran/mpif-h/file_read_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/file_read_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 73 ompi/mpi/fortran/mpif-h/file_read_ordered_begin_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_read_ordered_begin_f.c c_ierr = PMPI_File_read_ordered_begin(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 80 ompi/mpi/fortran/mpif-h/file_read_ordered_begin_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_read_ordered_end_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_read_ordered_end_f.c c_ierr = PMPI_File_read_ordered_end(c_fh, buf, c_status); c_ierr 82 ompi/mpi/fortran/mpif-h/file_read_ordered_end_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/file_read_ordered_end_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 76 ompi/mpi/fortran/mpif-h/file_read_ordered_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/file_read_ordered_f.c c_ierr = PMPI_File_read_ordered(c_fh, c_ierr 88 ompi/mpi/fortran/mpif-h/file_read_ordered_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/file_read_ordered_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 76 ompi/mpi/fortran/mpif-h/file_read_shared_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/file_read_shared_f.c c_ierr = PMPI_File_read_shared(c_fh, c_ierr 88 ompi/mpi/fortran/mpif-h/file_read_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/file_read_shared_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 72 ompi/mpi/fortran/mpif-h/file_seek_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_seek_f.c c_ierr = PMPI_File_seek(c_fh, (MPI_Offset) *offset, c_ierr 77 ompi/mpi/fortran/mpif-h/file_seek_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/file_seek_shared_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_seek_shared_f.c c_ierr = PMPI_File_seek_shared(c_fh, (MPI_Offset) *offset, c_ierr 77 ompi/mpi/fortran/mpif-h/file_seek_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_set_atomicity_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/file_set_atomicity_f.c c_ierr = PMPI_File_set_atomicity(c_fh, c_ierr 76 ompi/mpi/fortran/mpif-h/file_set_atomicity_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/file_set_errhandler_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/file_set_errhandler_f.c c_ierr = PMPI_File_set_errhandler(c_fh, c_err); c_ierr 78 ompi/mpi/fortran/mpif-h/file_set_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_set_info_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/file_set_info_f.c c_ierr = PMPI_File_set_info(c_fh, c_info); c_ierr 76 ompi/mpi/fortran/mpif-h/file_set_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_set_size_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/file_set_size_f.c c_ierr = PMPI_File_set_size(c_fh, (MPI_Offset) *size); c_ierr 75 ompi/mpi/fortran/mpif-h/file_set_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/file_set_view_f.c int c_ierr, ret; c_ierr 86 ompi/mpi/fortran/mpif-h/file_set_view_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(c_fh, ret, "MPI_FILE_SET_VIEW"); c_ierr 87 ompi/mpi/fortran/mpif-h/file_set_view_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/file_set_view_f.c c_ierr = PMPI_File_set_view(c_fh, (MPI_Offset) *disp, c_ierr 94 ompi/mpi/fortran/mpif-h/file_set_view_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/file_sync_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/file_sync_f.c c_ierr = PMPI_File_sync(c_fh); c_ierr 75 ompi/mpi/fortran/mpif-h/file_sync_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/file_write_all_begin_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_write_all_begin_f.c c_ierr = PMPI_File_write_all_begin(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 81 ompi/mpi/fortran/mpif-h/file_write_all_begin_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_write_all_end_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_write_all_end_f.c c_ierr = PMPI_File_write_all_end(c_fh, buf, c_status); c_ierr 82 ompi/mpi/fortran/mpif-h/file_write_all_end_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/file_write_all_end_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 75 ompi/mpi/fortran/mpif-h/file_write_all_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/file_write_all_f.c c_ierr = PMPI_File_write_all(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 85 ompi/mpi/fortran/mpif-h/file_write_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/file_write_all_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 74 ompi/mpi/fortran/mpif-h/file_write_at_all_begin_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_write_at_all_begin_f.c c_ierr = PMPI_File_write_at_all_begin(c_fh, c_ierr 83 ompi/mpi/fortran/mpif-h/file_write_at_all_begin_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_write_at_all_end_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_write_at_all_end_f.c c_ierr = PMPI_File_write_at_all_end(c_fh, buf, c_status); c_ierr 82 ompi/mpi/fortran/mpif-h/file_write_at_all_end_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/file_write_at_all_end_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 77 ompi/mpi/fortran/mpif-h/file_write_at_all_f.c int c_ierr; c_ierr 84 ompi/mpi/fortran/mpif-h/file_write_at_all_f.c c_ierr = PMPI_File_write_at_all(c_fh, c_ierr 90 ompi/mpi/fortran/mpif-h/file_write_at_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/file_write_at_all_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 78 ompi/mpi/fortran/mpif-h/file_write_at_f.c int c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/file_write_at_f.c c_ierr = PMPI_File_write_at(c_fh, c_ierr 90 ompi/mpi/fortran/mpif-h/file_write_at_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/file_write_at_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 75 ompi/mpi/fortran/mpif-h/file_write_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/file_write_f.c c_ierr = PMPI_File_write(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 85 ompi/mpi/fortran/mpif-h/file_write_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/file_write_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 74 ompi/mpi/fortran/mpif-h/file_write_ordered_begin_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/file_write_ordered_begin_f.c c_ierr = PMPI_File_write_ordered_begin(c_fh, OMPI_F2C_BOTTOM(buf), c_ierr 81 ompi/mpi/fortran/mpif-h/file_write_ordered_begin_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/file_write_ordered_end_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/file_write_ordered_end_f.c c_ierr = PMPI_File_write_ordered_end(c_fh, buf, c_status); c_ierr 82 ompi/mpi/fortran/mpif-h/file_write_ordered_end_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/file_write_ordered_end_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 76 ompi/mpi/fortran/mpif-h/file_write_ordered_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/file_write_ordered_f.c c_ierr = PMPI_File_write_ordered(c_fh, c_ierr 88 ompi/mpi/fortran/mpif-h/file_write_ordered_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/file_write_ordered_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 76 ompi/mpi/fortran/mpif-h/file_write_shared_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/file_write_shared_f.c c_ierr = PMPI_File_write_shared(c_fh, c_ierr 88 ompi/mpi/fortran/mpif-h/file_write_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/file_write_shared_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 71 ompi/mpi/fortran/mpif-h/finalize_f.c int c_ierr = PMPI_Finalize(); c_ierr 72 ompi/mpi/fortran/mpif-h/finalize_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/finalized_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/finalized_f.c c_ierr = PMPI_Finalized(OMPI_LOGICAL_SINGLE_NAME_CONVERT(flag)); c_ierr 75 ompi/mpi/fortran/mpif-h/finalized_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/finalized_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/free_mem_f.c int c_ierr = PMPI_Free_mem(base); c_ierr 72 ompi/mpi/fortran/mpif-h/free_mem_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/gather_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/gather_f.c c_ierr = PMPI_Gather(sendbuf, OMPI_FINT_2_INT(*sendcount), c_ierr 92 ompi/mpi/fortran/mpif-h/gather_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/gatherv_f.c int size, c_ierr; c_ierr 93 ompi/mpi/fortran/mpif-h/gatherv_f.c c_ierr = PMPI_Gatherv(sendbuf, OMPI_FINT_2_INT(*sendcount), c_ierr 100 ompi/mpi/fortran/mpif-h/gatherv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/get_accumulate_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/get_accumulate_f.c c_ierr = PMPI_Get_accumulate(OMPI_F2C_BOTTOM(origin_addr), c_ierr 98 ompi/mpi/fortran/mpif-h/get_accumulate_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/get_address_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/get_address_f.c c_ierr = PMPI_Get_address(OMPI_F2C_BOTTOM(location), &c_address); c_ierr 76 ompi/mpi/fortran/mpif-h/get_address_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/get_address_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/get_count_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/get_count_f.c c_ierr = MPI_SUCCESS; c_ierr 81 ompi/mpi/fortran/mpif-h/get_count_f.c c_ierr = PMPI_Status_f2c(status, &c_status); c_ierr 83 ompi/mpi/fortran/mpif-h/get_count_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 84 ompi/mpi/fortran/mpif-h/get_count_f.c c_ierr = PMPI_Get_count(&c_status, c_type, c_ierr 89 ompi/mpi/fortran/mpif-h/get_count_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/get_elements_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/get_elements_f.c c_ierr = MPI_SUCCESS; c_ierr 81 ompi/mpi/fortran/mpif-h/get_elements_f.c c_ierr = PMPI_Status_f2c(status, &c_status); c_ierr 83 ompi/mpi/fortran/mpif-h/get_elements_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 84 ompi/mpi/fortran/mpif-h/get_elements_f.c c_ierr = PMPI_Get_elements(&c_status, c_type, c_ierr 89 ompi/mpi/fortran/mpif-h/get_elements_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/get_elements_x_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/get_elements_x_f.c c_ierr = MPI_SUCCESS; c_ierr 83 ompi/mpi/fortran/mpif-h/get_elements_x_f.c c_ierr = PMPI_Status_f2c(status, &c_status); c_ierr 85 ompi/mpi/fortran/mpif-h/get_elements_x_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 86 ompi/mpi/fortran/mpif-h/get_elements_x_f.c c_ierr = PMPI_Get_elements_x(&c_status, c_type, count); c_ierr 89 ompi/mpi/fortran/mpif-h/get_elements_x_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 76 ompi/mpi/fortran/mpif-h/get_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/get_f.c c_ierr = PMPI_Get(OMPI_F2C_BOTTOM(origin_addr), c_ierr 88 ompi/mpi/fortran/mpif-h/get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/get_library_version_f.c int c_ierr, c_resultlen; c_ierr 76 ompi/mpi/fortran/mpif-h/get_library_version_f.c c_ierr = PMPI_Get_library_version(c_version, &c_resultlen); c_ierr 77 ompi/mpi/fortran/mpif-h/get_library_version_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/get_library_version_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/get_version_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/get_version_f.c c_ierr = PMPI_Get_version(OMPI_SINGLE_NAME_CONVERT(version), c_ierr 77 ompi/mpi/fortran/mpif-h/get_version_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/get_version_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/graph_create_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/graph_create_f.c c_ierr = PMPI_Graph_create(c_comm_old, c_ierr 92 ompi/mpi/fortran/mpif-h/graph_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 94 ompi/mpi/fortran/mpif-h/graph_create_f.c if (OMPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/graph_get_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/graph_get_f.c c_ierr = PMPI_Graph_get(c_comm, c_ierr 87 ompi/mpi/fortran/mpif-h/graph_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/graph_get_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/graph_map_f.c int c_ierr; c_ierr 84 ompi/mpi/fortran/mpif-h/graph_map_f.c c_ierr = PMPI_Graph_map(c_comm, OMPI_FINT_2_INT(*nnodes), c_ierr 88 ompi/mpi/fortran/mpif-h/graph_map_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/graph_map_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/graph_neighbors_count_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/graph_neighbors_count_f.c c_ierr = PMPI_Graph_neighbors_count(c_comm, c_ierr 81 ompi/mpi/fortran/mpif-h/graph_neighbors_count_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/graph_neighbors_count_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/graph_neighbors_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/graph_neighbors_f.c c_ierr = PMPI_Graph_neighbors(c_comm, c_ierr 88 ompi/mpi/fortran/mpif-h/graph_neighbors_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/graph_neighbors_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/graphdims_get_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/graphdims_get_f.c c_ierr = PMPI_Graphdims_get(c_comm, c_ierr 83 ompi/mpi/fortran/mpif-h/graphdims_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/graphdims_get_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/grequest_complete_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/grequest_complete_f.c c_ierr = PMPI_Grequest_complete(c_req); c_ierr 75 ompi/mpi/fortran/mpif-h/grequest_complete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/grequest_start_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/grequest_start_f.c c_ierr = PMPI_Grequest_start( c_ierr 82 ompi/mpi/fortran/mpif-h/grequest_start_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/grequest_start_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 80 ompi/mpi/fortran/mpif-h/group_compare_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/group_compare_f.c c_ierr = PMPI_Group_compare(c_group1, c_group2, c_ierr 91 ompi/mpi/fortran/mpif-h/group_compare_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 93 ompi/mpi/fortran/mpif-h/group_compare_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_difference_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/group_difference_f.c c_ierr = PMPI_Group_difference(c_group1, c_group2, &c_newgroup); c_ierr 80 ompi/mpi/fortran/mpif-h/group_difference_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/group_difference_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/group_excl_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/group_excl_f.c c_ierr = PMPI_Group_excl(c_group, c_ierr 86 ompi/mpi/fortran/mpif-h/group_excl_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/group_excl_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_free_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/group_free_f.c c_ierr = PMPI_Group_free( &c_group ); c_ierr 79 ompi/mpi/fortran/mpif-h/group_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/group_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/group_incl_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/group_incl_f.c c_ierr = PMPI_Group_incl(c_group, c_ierr 85 ompi/mpi/fortran/mpif-h/group_incl_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/group_incl_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_intersection_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/group_intersection_f.c c_ierr = PMPI_Group_intersection(c_group1, c_group2, &c_newgroup); c_ierr 80 ompi/mpi/fortran/mpif-h/group_intersection_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/group_intersection_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_range_excl_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/group_range_excl_f.c c_ierr = PMPI_Group_range_excl(c_group, c_ierr 84 ompi/mpi/fortran/mpif-h/group_range_excl_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/group_range_excl_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_range_incl_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/group_range_incl_f.c c_ierr = PMPI_Group_range_incl(c_group, c_ierr 84 ompi/mpi/fortran/mpif-h/group_range_incl_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/group_range_incl_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_rank_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/group_rank_f.c c_ierr = PMPI_Group_rank(c_group, OMPI_SINGLE_NAME_CONVERT(rank)); c_ierr 80 ompi/mpi/fortran/mpif-h/group_rank_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/group_rank_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_size_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/group_size_f.c c_ierr = PMPI_Group_size(c_group, OMPI_SINGLE_NAME_CONVERT(size)); c_ierr 80 ompi/mpi/fortran/mpif-h/group_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/group_size_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/group_translate_ranks_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/group_translate_ranks_f.c c_ierr = PMPI_Group_translate_ranks(c_group1, c_ierr 92 ompi/mpi/fortran/mpif-h/group_translate_ranks_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 94 ompi/mpi/fortran/mpif-h/group_translate_ranks_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/group_union_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/group_union_f.c c_ierr = PMPI_Group_union(c_group1, c_group2, &c_newgroup); c_ierr 80 ompi/mpi/fortran/mpif-h/group_union_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/group_union_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/ialltoall_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/ialltoall_f.c c_ierr = PMPI_Ialltoall(sendbuf, c_ierr 93 ompi/mpi/fortran/mpif-h/ialltoall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/ialltoall_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_req); c_ierr 78 ompi/mpi/fortran/mpif-h/ialltoallv_f.c int size, c_ierr; c_ierr 98 ompi/mpi/fortran/mpif-h/ialltoallv_f.c c_ierr = PMPI_Ialltoallv(sendbuf, c_ierr 106 ompi/mpi/fortran/mpif-h/ialltoallv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 107 ompi/mpi/fortran/mpif-h/ialltoallv_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 79 ompi/mpi/fortran/mpif-h/ialltoallw_f.c int size, c_ierr; c_ierr 106 ompi/mpi/fortran/mpif-h/ialltoallw_f.c c_ierr = PMPI_Ialltoallw(sendbuf, c_ierr 114 ompi/mpi/fortran/mpif-h/ialltoallw_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 115 ompi/mpi/fortran/mpif-h/ialltoallw_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 74 ompi/mpi/fortran/mpif-h/ibcast_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/ibcast_f.c c_ierr = PMPI_Ibcast(OMPI_F2C_BOTTOM(buffer), c_ierr 88 ompi/mpi/fortran/mpif-h/ibcast_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/ibcast_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_req); c_ierr 74 ompi/mpi/fortran/mpif-h/ibsend_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/ibsend_f.c c_ierr = PMPI_Ibsend(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 85 ompi/mpi/fortran/mpif-h/ibsend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/ibsend_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/iexscan_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/iexscan_f.c c_ierr = PMPI_Iexscan(sendbuf, recvbuf, c_ierr 91 ompi/mpi/fortran/mpif-h/iexscan_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/iexscan_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 75 ompi/mpi/fortran/mpif-h/igather_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/igather_f.c c_ierr = PMPI_Igather(sendbuf, OMPI_FINT_2_INT(*sendcount), c_ierr 94 ompi/mpi/fortran/mpif-h/igather_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/igather_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 78 ompi/mpi/fortran/mpif-h/igatherv_f.c int size, c_ierr; c_ierr 94 ompi/mpi/fortran/mpif-h/igatherv_f.c c_ierr = PMPI_Igatherv(sendbuf, OMPI_FINT_2_INT(*sendcount), c_ierr 101 ompi/mpi/fortran/mpif-h/igatherv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 102 ompi/mpi/fortran/mpif-h/igatherv_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 83 ompi/mpi/fortran/mpif-h/improbe_f.c int c_ierr; c_ierr 90 ompi/mpi/fortran/mpif-h/improbe_f.c c_ierr = OMPI_INT_2_FINT(PMPI_Improbe(OMPI_FINT_2_INT(*source), c_ierr 94 ompi/mpi/fortran/mpif-h/improbe_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 96 ompi/mpi/fortran/mpif-h/improbe_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 99 ompi/mpi/fortran/mpif-h/improbe_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 76 ompi/mpi/fortran/mpif-h/imrecv_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/imrecv_f.c c_ierr = OMPI_INT_2_FINT(PMPI_Imrecv(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 85 ompi/mpi/fortran/mpif-h/imrecv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/imrecv_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 77 ompi/mpi/fortran/mpif-h/ineighbor_alltoall_f.c int c_ierr; c_ierr 90 ompi/mpi/fortran/mpif-h/ineighbor_alltoall_f.c c_ierr = PMPI_Ineighbor_alltoall(sendbuf, c_ierr 96 ompi/mpi/fortran/mpif-h/ineighbor_alltoall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 98 ompi/mpi/fortran/mpif-h/ineighbor_alltoall_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_req); c_ierr 81 ompi/mpi/fortran/mpif-h/ineighbor_alltoallv_f.c int size, c_ierr; c_ierr 101 ompi/mpi/fortran/mpif-h/ineighbor_alltoallv_f.c c_ierr = PMPI_Ineighbor_alltoallv(sendbuf, c_ierr 109 ompi/mpi/fortran/mpif-h/ineighbor_alltoallv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 110 ompi/mpi/fortran/mpif-h/ineighbor_alltoallv_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 82 ompi/mpi/fortran/mpif-h/ineighbor_alltoallw_f.c int size, c_ierr; c_ierr 105 ompi/mpi/fortran/mpif-h/ineighbor_alltoallw_f.c c_ierr = PMPI_Ineighbor_alltoallw(sendbuf, c_ierr 113 ompi/mpi/fortran/mpif-h/ineighbor_alltoallw_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 114 ompi/mpi/fortran/mpif-h/ineighbor_alltoallw_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 71 ompi/mpi/fortran/mpif-h/info_create_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/info_create_f.c c_ierr = PMPI_Info_create(&c_info); c_ierr 75 ompi/mpi/fortran/mpif-h/info_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/info_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 81 ompi/mpi/fortran/mpif-h/info_delete_f.c int c_ierr, ret; c_ierr 86 ompi/mpi/fortran/mpif-h/info_delete_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 87 ompi/mpi/fortran/mpif-h/info_delete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/info_delete_f.c c_ierr = PMPI_Info_delete(c_info, c_key); c_ierr 93 ompi/mpi/fortran/mpif-h/info_delete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/info_dup_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/info_dup_f.c c_ierr = PMPI_Info_dup(c_info, &c_new_info); c_ierr 77 ompi/mpi/fortran/mpif-h/info_dup_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/info_dup_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/info_free_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/info_free_f.c c_ierr = PMPI_Info_free(&c_info); c_ierr 77 ompi/mpi/fortran/mpif-h/info_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/info_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 83 ompi/mpi/fortran/mpif-h/info_get_f.c int c_ierr, ret; c_ierr 89 ompi/mpi/fortran/mpif-h/info_get_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 90 ompi/mpi/fortran/mpif-h/info_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/info_get_f.c c_ierr = PMPI_Info_get(c_info, c_key, c_ierr 99 ompi/mpi/fortran/mpif-h/info_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 101 ompi/mpi/fortran/mpif-h/info_get_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 112 ompi/mpi/fortran/mpif-h/info_get_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 113 ompi/mpi/fortran/mpif-h/info_get_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/info_get_nkeys_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/info_get_nkeys_f.c c_ierr = PMPI_Info_get_nkeys(c_info, OMPI_SINGLE_NAME_CONVERT(nkeys)); c_ierr 78 ompi/mpi/fortran/mpif-h/info_get_nkeys_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/info_get_nkeys_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 82 ompi/mpi/fortran/mpif-h/info_get_nthkey_f.c int c_ierr, ret; c_ierr 88 ompi/mpi/fortran/mpif-h/info_get_nthkey_f.c c_ierr = PMPI_Info_get_nthkey(c_info, c_ierr 91 ompi/mpi/fortran/mpif-h/info_get_nthkey_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 94 ompi/mpi/fortran/mpif-h/info_get_nthkey_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 95 ompi/mpi/fortran/mpif-h/info_get_nthkey_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/info_get_valuelen_f.c int c_ierr, ret; c_ierr 90 ompi/mpi/fortran/mpif-h/info_get_valuelen_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 91 ompi/mpi/fortran/mpif-h/info_get_valuelen_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/info_get_valuelen_f.c c_ierr = PMPI_Info_get_valuelen(c_info, c_key, c_ierr 98 ompi/mpi/fortran/mpif-h/info_get_valuelen_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 100 ompi/mpi/fortran/mpif-h/info_get_valuelen_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 82 ompi/mpi/fortran/mpif-h/info_set_f.c int ret, c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/info_set_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, FUNC_NAME); c_ierr 90 ompi/mpi/fortran/mpif-h/info_set_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 98 ompi/mpi/fortran/mpif-h/info_set_f.c c_ierr = PMPI_Info_set(c_info, c_key, c_value); c_ierr 99 ompi/mpi/fortran/mpif-h/info_set_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/init_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/init_f.c c_ierr = PMPI_Init( &argc, &argv ); c_ierr 88 ompi/mpi/fortran/mpif-h/init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/init_thread_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/init_thread_f.c c_ierr = PMPI_Init_thread(&argc, &argv, c_ierr 79 ompi/mpi/fortran/mpif-h/init_thread_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/init_thread_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/initialized_f.c int c_ierr; c_ierr 73 ompi/mpi/fortran/mpif-h/initialized_f.c c_ierr = PMPI_Initialized(OMPI_LOGICAL_SINGLE_NAME_CONVERT(flag)); c_ierr 74 ompi/mpi/fortran/mpif-h/initialized_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 76 ompi/mpi/fortran/mpif-h/initialized_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/intercomm_create_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/intercomm_create_f.c c_ierr = PMPI_Intercomm_create(c_local_comm, c_ierr 86 ompi/mpi/fortran/mpif-h/intercomm_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/intercomm_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/intercomm_merge_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/intercomm_merge_f.c c_ierr = PMPI_Intercomm_merge(c_intercomm, OMPI_LOGICAL_2_INT(*high), c_ierr 78 ompi/mpi/fortran/mpif-h/intercomm_merge_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/intercomm_merge_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/iprobe_f.c int c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/iprobe_f.c c_ierr = PMPI_Iprobe(OMPI_FINT_2_INT(*source), c_ierr 89 ompi/mpi/fortran/mpif-h/iprobe_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/iprobe_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 93 ompi/mpi/fortran/mpif-h/iprobe_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 74 ompi/mpi/fortran/mpif-h/irecv_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/irecv_f.c c_ierr = PMPI_Irecv(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 84 ompi/mpi/fortran/mpif-h/irecv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/irecv_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/ireduce_f.c int c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/ireduce_f.c c_ierr = PMPI_Ireduce(sendbuf, recvbuf, c_ierr 94 ompi/mpi/fortran/mpif-h/ireduce_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/ireduce_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 75 ompi/mpi/fortran/mpif-h/ireduce_scatter_block_f.c int c_ierr; c_ierr 92 ompi/mpi/fortran/mpif-h/ireduce_scatter_block_f.c c_ierr = PMPI_Ireduce_scatter_block(sendbuf, recvbuf, c_ierr 95 ompi/mpi/fortran/mpif-h/ireduce_scatter_block_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 96 ompi/mpi/fortran/mpif-h/ireduce_scatter_block_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 75 ompi/mpi/fortran/mpif-h/ireduce_scatter_f.c int c_ierr; c_ierr 94 ompi/mpi/fortran/mpif-h/ireduce_scatter_f.c c_ierr = PMPI_Ireduce_scatter(sendbuf, recvbuf, c_ierr 97 ompi/mpi/fortran/mpif-h/ireduce_scatter_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 98 ompi/mpi/fortran/mpif-h/ireduce_scatter_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 72 ompi/mpi/fortran/mpif-h/irsend_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/irsend_f.c c_ierr = PMPI_Irsend(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 83 ompi/mpi/fortran/mpif-h/irsend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/irsend_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/is_thread_main_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/is_thread_main_f.c c_ierr = PMPI_Is_thread_main(OMPI_LOGICAL_SINGLE_NAME_CONVERT(flag)); c_ierr 75 ompi/mpi/fortran/mpif-h/is_thread_main_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/is_thread_main_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/iscan_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/iscan_f.c c_ierr = PMPI_Iscan(sendbuf, recvbuf, c_ierr 92 ompi/mpi/fortran/mpif-h/iscan_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 93 ompi/mpi/fortran/mpif-h/iscan_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 77 ompi/mpi/fortran/mpif-h/iscatter_f.c int c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/iscatter_f.c c_ierr = PMPI_Iscatter(sendbuf,OMPI_FINT_2_INT(*sendcount), c_ierr 94 ompi/mpi/fortran/mpif-h/iscatter_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/iscatter_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 80 ompi/mpi/fortran/mpif-h/iscatterv_f.c int size, c_ierr; c_ierr 96 ompi/mpi/fortran/mpif-h/iscatterv_f.c c_ierr = PMPI_Iscatterv(sendbuf, c_ierr 103 ompi/mpi/fortran/mpif-h/iscatterv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 104 ompi/mpi/fortran/mpif-h/iscatterv_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 72 ompi/mpi/fortran/mpif-h/isend_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/isend_f.c c_ierr = PMPI_Isend(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 83 ompi/mpi/fortran/mpif-h/isend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/isend_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/issend_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/issend_f.c c_ierr = PMPI_Issend(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 83 ompi/mpi/fortran/mpif-h/issend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/issend_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/keyval_create_f.c int ret, c_ierr; c_ierr 95 ompi/mpi/fortran/mpif-h/keyval_create_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 98 ompi/mpi/fortran/mpif-h/keyval_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/keyval_free_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/keyval_free_f.c c_ierr = PMPI_Keyval_free(OMPI_SINGLE_NAME_CONVERT(keyval)); c_ierr 77 ompi/mpi/fortran/mpif-h/keyval_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/keyval_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/lookup_name_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/lookup_name_f.c c_ierr = PMPI_Lookup_name(c_service_name, c_info, c_port_name); c_ierr 89 ompi/mpi/fortran/mpif-h/lookup_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/lookup_name_f.c if ( MPI_SUCCESS == c_ierr) { c_ierr 83 ompi/mpi/fortran/mpif-h/mprobe_f.c int c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/mprobe_f.c c_ierr = OMPI_INT_2_FINT(PMPI_Mprobe(OMPI_FINT_2_INT(*source), c_ierr 93 ompi/mpi/fortran/mpif-h/mprobe_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/mprobe_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 96 ompi/mpi/fortran/mpif-h/mprobe_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 79 ompi/mpi/fortran/mpif-h/mrecv_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/mrecv_f.c c_ierr = OMPI_INT_2_FINT(PMPI_Mrecv(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 90 ompi/mpi/fortran/mpif-h/mrecv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/mrecv_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 93 ompi/mpi/fortran/mpif-h/mrecv_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 77 ompi/mpi/fortran/mpif-h/neighbor_alltoall_f.c int c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/neighbor_alltoall_f.c c_ierr = PMPI_Neighbor_alltoall(sendbuf, c_ierr 95 ompi/mpi/fortran/mpif-h/neighbor_alltoall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/neighbor_alltoallv_f.c int size, c_ierr; c_ierr 100 ompi/mpi/fortran/mpif-h/neighbor_alltoallv_f.c c_ierr = PMPI_Neighbor_alltoallv(sendbuf, c_ierr 108 ompi/mpi/fortran/mpif-h/neighbor_alltoallv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/neighbor_alltoallw_f.c int size, c_ierr; c_ierr 104 ompi/mpi/fortran/mpif-h/neighbor_alltoallw_f.c c_ierr = PMPI_Neighbor_alltoallw(sendbuf, c_ierr 112 ompi/mpi/fortran/mpif-h/neighbor_alltoallw_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/op_commutative_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/op_commutative_f.c c_ierr = PMPI_Op_commutative(c_op, OMPI_SINGLE_NAME_CONVERT(commute)); c_ierr 78 ompi/mpi/fortran/mpif-h/op_commutative_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/op_commutative_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/op_create_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/op_create_f.c c_ierr = PMPI_Op_create((MPI_User_function *) function, c_ierr 81 ompi/mpi/fortran/mpif-h/op_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/op_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/op_free_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/op_free_f.c c_ierr = PMPI_Op_free(&c_op); c_ierr 77 ompi/mpi/fortran/mpif-h/op_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/op_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/open_port_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/open_port_f.c c_ierr = PMPI_Open_port(c_info, c_port_name); c_ierr 79 ompi/mpi/fortran/mpif-h/open_port_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/open_port_f.c if ( MPI_SUCCESS == c_ierr ) { c_ierr 78 ompi/mpi/fortran/mpif-h/pack_external_f.c int ret, c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/pack_external_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, c_ierr 88 ompi/mpi/fortran/mpif-h/pack_external_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/pack_external_f.c c_ierr = PMPI_Pack_external(c_datarep, OMPI_F2C_BOTTOM(inbuf), c_ierr 97 ompi/mpi/fortran/mpif-h/pack_external_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/pack_external_size_f.c int ret, c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/pack_external_size_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, c_ierr 87 ompi/mpi/fortran/mpif-h/pack_external_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/pack_external_size_f.c c_ierr = PMPI_Pack_external_size(c_datarep, c_ierr 94 ompi/mpi/fortran/mpif-h/pack_external_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/pack_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/pack_f.c c_ierr = PMPI_Pack(OMPI_F2C_BOTTOM(inbuf), OMPI_FINT_2_INT(*incount), c_ierr 88 ompi/mpi/fortran/mpif-h/pack_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 90 ompi/mpi/fortran/mpif-h/pack_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/pack_size_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/pack_size_f.c c_ierr = PMPI_Pack_size(OMPI_FINT_2_INT(*incount), c_ierr 83 ompi/mpi/fortran/mpif-h/pack_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/pack_size_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/probe_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/probe_f.c c_ierr = PMPI_Probe(OMPI_FINT_2_INT(*source), c_ierr 86 ompi/mpi/fortran/mpif-h/probe_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/probe_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 73 ompi/mpi/fortran/mpif-h/publish_name_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/publish_name_f.c c_ierr = PMPI_Publish_name(c_service_name, c_info, c_port_name); c_ierr 83 ompi/mpi/fortran/mpif-h/publish_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 76 ompi/mpi/fortran/mpif-h/put_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/put_f.c c_ierr = PMPI_Put(OMPI_F2C_BOTTOM(origin_addr), c_ierr 88 ompi/mpi/fortran/mpif-h/put_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/query_thread_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/query_thread_f.c c_ierr = PMPI_Query_thread(OMPI_SINGLE_NAME_CONVERT(provided)); c_ierr 75 ompi/mpi/fortran/mpif-h/query_thread_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/query_thread_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 80 ompi/mpi/fortran/mpif-h/recv_f.c int c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/recv_f.c c_ierr = PMPI_Recv(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 89 ompi/mpi/fortran/mpif-h/recv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/recv_f.c OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 74 ompi/mpi/fortran/mpif-h/recv_init_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/recv_init_f.c c_ierr = PMPI_Recv_init(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 85 ompi/mpi/fortran/mpif-h/recv_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/recv_init_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/reduce_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/reduce_f.c c_ierr = PMPI_Reduce(sendbuf, recvbuf, c_ierr 92 ompi/mpi/fortran/mpif-h/reduce_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/reduce_local_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/reduce_local_f.c c_ierr = PMPI_Reduce_local(inbuf, inoutbuf, c_ierr 86 ompi/mpi/fortran/mpif-h/reduce_local_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/reduce_scatter_block_f.c int c_ierr; c_ierr 90 ompi/mpi/fortran/mpif-h/reduce_scatter_block_f.c c_ierr = PMPI_Reduce_scatter_block(sendbuf, recvbuf, c_ierr 93 ompi/mpi/fortran/mpif-h/reduce_scatter_block_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/reduce_scatter_f.c int c_ierr; c_ierr 92 ompi/mpi/fortran/mpif-h/reduce_scatter_f.c c_ierr = PMPI_Reduce_scatter(sendbuf, recvbuf, c_ierr 95 ompi/mpi/fortran/mpif-h/reduce_scatter_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 139 ompi/mpi/fortran/mpif-h/register_datarep_f.c int c_ierr, ret; c_ierr 146 ompi/mpi/fortran/mpif-h/register_datarep_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_FILE_NULL, c_ierr 148 ompi/mpi/fortran/mpif-h/register_datarep_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 162 ompi/mpi/fortran/mpif-h/register_datarep_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_FILE_NULL, ret, FUNC_NAME); c_ierr 163 ompi/mpi/fortran/mpif-h/register_datarep_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 197 ompi/mpi/fortran/mpif-h/register_datarep_f.c c_ierr = PMPI_Register_datarep(c_datarep, c_ierr 201 ompi/mpi/fortran/mpif-h/register_datarep_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/request_free_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/request_free_f.c c_ierr = PMPI_Request_free(&c_req); c_ierr 75 ompi/mpi/fortran/mpif-h/request_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/request_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/request_get_status_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/request_get_status_f.c c_ierr = MPI_SUCCESS; c_ierr 84 ompi/mpi/fortran/mpif-h/request_get_status_f.c c_ierr = PMPI_Request_get_status(c_req, c_ierr 90 ompi/mpi/fortran/mpif-h/request_get_status_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/rget_accumulate_f.c int c_ierr; c_ierr 91 ompi/mpi/fortran/mpif-h/rget_accumulate_f.c c_ierr = PMPI_Rget_accumulate(OMPI_F2C_BOTTOM(origin_addr), c_ierr 101 ompi/mpi/fortran/mpif-h/rget_accumulate_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 103 ompi/mpi/fortran/mpif-h/rget_accumulate_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 80 ompi/mpi/fortran/mpif-h/rget_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/rget_f.c c_ierr = PMPI_Rget(OMPI_F2C_BOTTOM(origin_addr), c_ierr 93 ompi/mpi/fortran/mpif-h/rget_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/rget_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 80 ompi/mpi/fortran/mpif-h/rput_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/rput_f.c c_ierr = PMPI_Rput(OMPI_F2C_BOTTOM(origin_addr), c_ierr 93 ompi/mpi/fortran/mpif-h/rput_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/rput_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/rsend_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/rsend_f.c c_ierr = PMPI_Rsend(OMPI_F2C_BOTTOM(ibuf), OMPI_FINT_2_INT(*count), c_ierr 82 ompi/mpi/fortran/mpif-h/rsend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/rsend_init_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/rsend_init_f.c c_ierr = PMPI_Rsend_init(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 86 ompi/mpi/fortran/mpif-h/rsend_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/rsend_init_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/scan_f.c int c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/scan_f.c c_ierr = PMPI_Scan(sendbuf, recvbuf, c_ierr 91 ompi/mpi/fortran/mpif-h/scan_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/scatter_f.c int c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/scatter_f.c c_ierr = PMPI_Scatter(sendbuf,OMPI_FINT_2_INT(*sendcount), c_ierr 91 ompi/mpi/fortran/mpif-h/scatter_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/scatterv_f.c int size, c_ierr; c_ierr 94 ompi/mpi/fortran/mpif-h/scatterv_f.c c_ierr = PMPI_Scatterv(sendbuf, c_ierr 101 ompi/mpi/fortran/mpif-h/scatterv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/send_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/send_f.c c_ierr = PMPI_Send(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 82 ompi/mpi/fortran/mpif-h/send_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/send_init_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/send_init_f.c c_ierr = PMPI_Send_init(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 85 ompi/mpi/fortran/mpif-h/send_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/send_init_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/sendrecv_f.c int c_ierr; c_ierr 84 ompi/mpi/fortran/mpif-h/sendrecv_f.c c_ierr = PMPI_Sendrecv(OMPI_F2C_BOTTOM(sendbuf), OMPI_FINT_2_INT(*sendcount), c_ierr 92 ompi/mpi/fortran/mpif-h/sendrecv_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 94 ompi/mpi/fortran/mpif-h/sendrecv_f.c if (MPI_SUCCESS == c_ierr && c_ierr 75 ompi/mpi/fortran/mpif-h/sendrecv_replace_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/sendrecv_replace_f.c c_ierr = PMPI_Sendrecv_replace(OMPI_F2C_BOTTOM(buf), c_ierr 90 ompi/mpi/fortran/mpif-h/sendrecv_replace_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 92 ompi/mpi/fortran/mpif-h/sendrecv_replace_f.c if (MPI_SUCCESS == c_ierr && c_ierr 74 ompi/mpi/fortran/mpif-h/ssend_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/ssend_f.c c_ierr = PMPI_Ssend(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 83 ompi/mpi/fortran/mpif-h/ssend_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/ssend_init_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/ssend_init_f.c c_ierr = PMPI_Ssend_init(OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_ierr 85 ompi/mpi/fortran/mpif-h/ssend_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/ssend_init_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/start_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/start_f.c c_ierr = PMPI_Start(&c_req); c_ierr 76 ompi/mpi/fortran/mpif-h/start_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/start_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 77 ompi/mpi/fortran/mpif-h/startall_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/startall_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 85 ompi/mpi/fortran/mpif-h/startall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 93 ompi/mpi/fortran/mpif-h/startall_f.c c_ierr = PMPI_Startall(OMPI_FINT_2_INT(*count), c_req); c_ierr 94 ompi/mpi/fortran/mpif-h/startall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 156 ompi/mpi/fortran/mpif-h/status-conversion.h #define OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) \ c_ierr 160 ompi/mpi/fortran/mpif-h/status-conversion.h MPI_SUCCESS == c_ierr && \ c_ierr 167 ompi/mpi/fortran/mpif-h/status-conversion.h #define OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) c_ierr 72 ompi/mpi/fortran/mpif-h/status_set_cancelled_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/status_set_cancelled_f.c c_ierr = MPI_SUCCESS; c_ierr 82 ompi/mpi/fortran/mpif-h/status_set_cancelled_f.c c_ierr = PMPI_Status_set_cancelled(&c_status, c_ierr 84 ompi/mpi/fortran/mpif-h/status_set_cancelled_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 88 ompi/mpi/fortran/mpif-h/status_set_cancelled_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/status_set_elements_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/status_set_elements_f.c c_ierr = MPI_SUCCESS; c_ierr 84 ompi/mpi/fortran/mpif-h/status_set_elements_f.c c_ierr = PMPI_Status_set_elements(&c_status, c_type, c_ierr 89 ompi/mpi/fortran/mpif-h/status_set_elements_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 93 ompi/mpi/fortran/mpif-h/status_set_elements_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c c_ierr = MPI_SUCCESS; c_ierr 86 ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c c_ierr = PMPI_Status_set_elements_x(&c_status, c_type, *count); c_ierr 90 ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 94 ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/test_cancelled_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/test_cancelled_f.c c_ierr = MPI_SUCCESS; c_ierr 82 ompi/mpi/fortran/mpif-h/test_cancelled_f.c c_ierr = PMPI_Status_f2c( status, &c_status ); c_ierr 84 ompi/mpi/fortran/mpif-h/test_cancelled_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 85 ompi/mpi/fortran/mpif-h/test_cancelled_f.c c_ierr = PMPI_Test_cancelled(&c_status, c_ierr 91 ompi/mpi/fortran/mpif-h/test_cancelled_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/test_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/test_f.c c_ierr = PMPI_Test(&c_req, c_ierr 81 ompi/mpi/fortran/mpif-h/test_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/test_f.c if (MPI_SUCCESS == c_ierr && *flag) { c_ierr 78 ompi/mpi/fortran/mpif-h/testall_f.c int i, c_ierr; c_ierr 92 ompi/mpi/fortran/mpif-h/testall_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 95 ompi/mpi/fortran/mpif-h/testall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 103 ompi/mpi/fortran/mpif-h/testall_f.c c_ierr = PMPI_Testall(OMPI_FINT_2_INT(*count), c_req, c_ierr 106 ompi/mpi/fortran/mpif-h/testall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 112 ompi/mpi/fortran/mpif-h/testall_f.c if (MPI_SUCCESS == c_ierr && *flag) { c_ierr 79 ompi/mpi/fortran/mpif-h/testany_f.c int i, c_ierr; c_ierr 95 ompi/mpi/fortran/mpif-h/testany_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 98 ompi/mpi/fortran/mpif-h/testany_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 106 ompi/mpi/fortran/mpif-h/testany_f.c c_ierr = PMPI_Testany(OMPI_FINT_2_INT(*count), c_req, c_ierr 110 ompi/mpi/fortran/mpif-h/testany_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 113 ompi/mpi/fortran/mpif-h/testany_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 81 ompi/mpi/fortran/mpif-h/testsome_f.c int i, c_ierr; c_ierr 96 ompi/mpi/fortran/mpif-h/testsome_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 99 ompi/mpi/fortran/mpif-h/testsome_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 109 ompi/mpi/fortran/mpif-h/testsome_f.c c_ierr = PMPI_Testsome(OMPI_FINT_2_INT(*incount), c_req, c_ierr 113 ompi/mpi/fortran/mpif-h/testsome_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 118 ompi/mpi/fortran/mpif-h/testsome_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/topo_test_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/topo_test_f.c c_ierr = PMPI_Topo_test(c_comm, OMPI_SINGLE_NAME_CONVERT(topo_type)); c_ierr 79 ompi/mpi/fortran/mpif-h/topo_test_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/topo_test_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/type_commit_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/type_commit_f.c c_ierr = PMPI_Type_commit(&c_type); c_ierr 75 ompi/mpi/fortran/mpif-h/type_commit_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/type_commit_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_contiguous_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/type_contiguous_f.c c_ierr = PMPI_Type_contiguous(OMPI_FINT_2_INT(*count), c_old, &c_new); c_ierr 77 ompi/mpi/fortran/mpif-h/type_contiguous_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/type_contiguous_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/type_create_darray_f.c int c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/type_create_darray_f.c c_ierr = PMPI_Type_create_darray(OMPI_FINT_2_INT(*size), c_ierr 97 ompi/mpi/fortran/mpif-h/type_create_darray_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 104 ompi/mpi/fortran/mpif-h/type_create_darray_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_create_f90_complex_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_create_f90_complex_f.c c_ierr = PMPI_Type_create_f90_complex(OMPI_FINT_2_INT(*p), c_ierr 78 ompi/mpi/fortran/mpif-h/type_create_f90_complex_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/type_create_f90_complex_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_create_f90_integer_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_create_f90_integer_f.c c_ierr = PMPI_Type_create_f90_integer(OMPI_FINT_2_INT(*r), &c_new); c_ierr 76 ompi/mpi/fortran/mpif-h/type_create_f90_integer_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/type_create_f90_integer_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_create_f90_real_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_create_f90_real_f.c c_ierr = PMPI_Type_create_f90_real(OMPI_FINT_2_INT(*p), c_ierr 78 ompi/mpi/fortran/mpif-h/type_create_f90_real_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/type_create_f90_real_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 67 ompi/mpi/fortran/mpif-h/type_create_hindexed_block_f.c int c_ierr; c_ierr 71 ompi/mpi/fortran/mpif-h/type_create_hindexed_block_f.c c_ierr = PMPI_Type_create_hindexed_block(OMPI_FINT_2_INT(*count), c_ierr 75 ompi/mpi/fortran/mpif-h/type_create_hindexed_block_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/type_create_hindexed_block_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 76 ompi/mpi/fortran/mpif-h/type_create_hindexed_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/type_create_hindexed_f.c c_ierr = PMPI_Type_create_hindexed(OMPI_FINT_2_INT(*count), c_ierr 87 ompi/mpi/fortran/mpif-h/type_create_hindexed_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/type_create_hindexed_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_create_hvector_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/type_create_hvector_f.c c_ierr = PMPI_Type_create_hvector(OMPI_FINT_2_INT(*count), c_ierr 80 ompi/mpi/fortran/mpif-h/type_create_hvector_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/type_create_hvector_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/type_create_indexed_block_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/type_create_indexed_block_f.c c_ierr = PMPI_Type_create_indexed_block(OMPI_FINT_2_INT(*count), c_ierr 85 ompi/mpi/fortran/mpif-h/type_create_indexed_block_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 87 ompi/mpi/fortran/mpif-h/type_create_indexed_block_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/type_create_keyval_f.c int ret, c_ierr; c_ierr 93 ompi/mpi/fortran/mpif-h/type_create_keyval_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 96 ompi/mpi/fortran/mpif-h/type_create_keyval_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/type_create_resized_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/type_create_resized_f.c c_ierr = PMPI_Type_create_resized(c_old, *lb, *extent, &c_new); c_ierr 78 ompi/mpi/fortran/mpif-h/type_create_resized_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 80 ompi/mpi/fortran/mpif-h/type_create_resized_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 82 ompi/mpi/fortran/mpif-h/type_create_struct_f.c int i, c_ierr; c_ierr 87 ompi/mpi/fortran/mpif-h/type_create_struct_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 89 ompi/mpi/fortran/mpif-h/type_create_struct_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 99 ompi/mpi/fortran/mpif-h/type_create_struct_f.c c_ierr = PMPI_Type_create_struct(OMPI_FINT_2_INT(*count), c_ierr 102 ompi/mpi/fortran/mpif-h/type_create_struct_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 106 ompi/mpi/fortran/mpif-h/type_create_struct_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/type_create_subarray_f.c int c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/type_create_subarray_f.c c_ierr = PMPI_Type_create_subarray(OMPI_FINT_2_INT(*ndims), c_ierr 93 ompi/mpi/fortran/mpif-h/type_create_subarray_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpi/fortran/mpif-h/type_create_subarray_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_delete_attr_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_delete_attr_f.c c_ierr = PMPI_Type_delete_attr(c_type, OMPI_FINT_2_INT(*type_keyval)); c_ierr 76 ompi/mpi/fortran/mpif-h/type_delete_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/type_dup_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_dup_f.c c_ierr = PMPI_Type_dup(c_type, &c_new); c_ierr 76 ompi/mpi/fortran/mpif-h/type_dup_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/type_dup_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/type_extent_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_extent_f.c c_ierr = PMPI_Type_extent(c_type, &c_extent); c_ierr 76 ompi/mpi/fortran/mpif-h/type_extent_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/type_extent_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/type_free_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/type_free_f.c c_ierr = PMPI_Type_free(&c_type); c_ierr 77 ompi/mpi/fortran/mpif-h/type_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/type_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/type_free_keyval_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/type_free_keyval_f.c c_ierr = PMPI_Type_free_keyval(OMPI_SINGLE_NAME_CONVERT(type_keyval)); c_ierr 77 ompi/mpi/fortran/mpif-h/type_free_keyval_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/type_free_keyval_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/type_get_attr_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/type_get_attr_f.c c_ierr = ompi_attr_get_aint(c_type->d_keyhash, c_ierr 85 ompi/mpi/fortran/mpif-h/type_get_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 83 ompi/mpi/fortran/mpif-h/type_get_contents_f.c int i, c_ierr; c_ierr 89 ompi/mpi/fortran/mpif-h/type_get_contents_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 91 ompi/mpi/fortran/mpif-h/type_get_contents_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 103 ompi/mpi/fortran/mpif-h/type_get_contents_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 105 ompi/mpi/fortran/mpif-h/type_get_contents_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 112 ompi/mpi/fortran/mpif-h/type_get_contents_f.c c_ierr = PMPI_Type_get_contents(c_mtype, c_ierr 118 ompi/mpi/fortran/mpif-h/type_get_contents_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 120 ompi/mpi/fortran/mpif-h/type_get_contents_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/type_get_envelope_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/type_get_envelope_f.c c_ierr = PMPI_Type_get_envelope(c_type, c_ierr 86 ompi/mpi/fortran/mpif-h/type_get_envelope_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 88 ompi/mpi/fortran/mpif-h/type_get_envelope_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/type_get_extent_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_get_extent_f.c c_ierr = PMPI_Type_get_extent(c_type, lb, extent); c_ierr 76 ompi/mpi/fortran/mpif-h/type_get_extent_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c c_ierr = PMPI_Type_get_extent_x(c_type, lb, extent); c_ierr 78 ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/type_get_name_f.c int c_ierr, c_len; c_ierr 77 ompi/mpi/fortran/mpif-h/type_get_name_f.c c_ierr = PMPI_Type_get_name(c_type, c_name, &c_len); c_ierr 78 ompi/mpi/fortran/mpif-h/type_get_name_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 81 ompi/mpi/fortran/mpif-h/type_get_name_f.c c_ierr = MPI_SUCCESS; c_ierr 83 ompi/mpi/fortran/mpif-h/type_get_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/type_get_true_extent_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/type_get_true_extent_f.c c_ierr = PMPI_Type_get_true_extent(c_type, true_lb, true_extent); c_ierr 75 ompi/mpi/fortran/mpif-h/type_get_true_extent_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c c_ierr = PMPI_Type_get_true_extent_x(c_type, true_lb, true_extent); c_ierr 77 ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 81 ompi/mpi/fortran/mpif-h/type_hindexed_f.c int i, c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/type_hindexed_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 88 ompi/mpi/fortran/mpif-h/type_hindexed_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 97 ompi/mpi/fortran/mpif-h/type_hindexed_f.c c_ierr = PMPI_Type_hindexed(OMPI_FINT_2_INT(*count), c_ierr 100 ompi/mpi/fortran/mpif-h/type_hindexed_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 105 ompi/mpi/fortran/mpif-h/type_hindexed_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/type_hvector_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/type_hvector_f.c c_ierr = PMPI_Type_hvector(OMPI_FINT_2_INT(*count), c_ierr 82 ompi/mpi/fortran/mpif-h/type_hvector_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 84 ompi/mpi/fortran/mpif-h/type_hvector_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/type_indexed_f.c int c_ierr; c_ierr 82 ompi/mpi/fortran/mpif-h/type_indexed_f.c c_ierr = PMPI_Type_indexed(OMPI_FINT_2_INT(*count), c_ierr 86 ompi/mpi/fortran/mpif-h/type_indexed_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 91 ompi/mpi/fortran/mpif-h/type_indexed_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/type_lb_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_lb_f.c c_ierr = PMPI_Type_lb(c_type, &c_lb); c_ierr 76 ompi/mpi/fortran/mpif-h/type_lb_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/type_lb_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 82 ompi/mpi/fortran/mpif-h/type_match_size_f.c int c_ierr; c_ierr 105 ompi/mpi/fortran/mpif-h/type_match_size_f.c c_ierr = MPI_SUCCESS; c_ierr 107 ompi/mpi/fortran/mpif-h/type_match_size_f.c c_ierr = MPI_ERR_ARG; c_ierr 110 ompi/mpi/fortran/mpif-h/type_match_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/type_set_attr_f.c int c_ierr; c_ierr 78 ompi/mpi/fortran/mpif-h/type_set_attr_f.c c_ierr = ompi_attr_set_aint(TYPE_ATTR, c_ierr 84 ompi/mpi/fortran/mpif-h/type_set_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 76 ompi/mpi/fortran/mpif-h/type_set_name_f.c int ret, c_ierr; c_ierr 86 ompi/mpi/fortran/mpif-h/type_set_name_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, c_ierr 88 ompi/mpi/fortran/mpif-h/type_set_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 94 ompi/mpi/fortran/mpif-h/type_set_name_f.c c_ierr = PMPI_Type_set_name(c_type, c_name); c_ierr 95 ompi/mpi/fortran/mpif-h/type_set_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/type_size_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_size_f.c c_ierr = PMPI_Type_size(c_type, OMPI_SINGLE_NAME_CONVERT(size)); c_ierr 76 ompi/mpi/fortran/mpif-h/type_size_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/type_size_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/type_size_x_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/type_size_x_f.c c_ierr = PMPI_Type_size_x(c_type, size); c_ierr 78 ompi/mpi/fortran/mpif-h/type_size_x_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 82 ompi/mpi/fortran/mpif-h/type_struct_f.c int i, c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/type_struct_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 90 ompi/mpi/fortran/mpif-h/type_struct_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 102 ompi/mpi/fortran/mpif-h/type_struct_f.c c_ierr = PMPI_Type_struct(OMPI_FINT_2_INT(*count), c_ierr 106 ompi/mpi/fortran/mpif-h/type_struct_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 111 ompi/mpi/fortran/mpif-h/type_struct_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/type_ub_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/type_ub_f.c c_ierr = PMPI_Type_ub(c_mtype, &c_ub); c_ierr 76 ompi/mpi/fortran/mpif-h/type_ub_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/type_ub_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/type_vector_f.c int c_ierr; c_ierr 79 ompi/mpi/fortran/mpif-h/type_vector_f.c c_ierr = PMPI_Type_vector(OMPI_FINT_2_INT(*count), c_ierr 83 ompi/mpi/fortran/mpif-h/type_vector_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 85 ompi/mpi/fortran/mpif-h/type_vector_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 78 ompi/mpi/fortran/mpif-h/unpack_external_f.c int ret, c_ierr; c_ierr 88 ompi/mpi/fortran/mpif-h/unpack_external_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, c_ierr 90 ompi/mpi/fortran/mpif-h/unpack_external_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 94 ompi/mpi/fortran/mpif-h/unpack_external_f.c c_ierr = PMPI_Unpack_external(c_datarep, inbuf, c_ierr 100 ompi/mpi/fortran/mpif-h/unpack_external_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/unpack_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/unpack_f.c c_ierr = PMPI_Unpack(inbuf, OMPI_FINT_2_INT(*insize), c_ierr 87 ompi/mpi/fortran/mpif-h/unpack_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 89 ompi/mpi/fortran/mpif-h/unpack_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 74 ompi/mpi/fortran/mpif-h/unpublish_name_f.c int c_ierr; c_ierr 83 ompi/mpi/fortran/mpif-h/unpublish_name_f.c c_ierr = PMPI_Unpublish_name(c_service_name, c_info, c_port_name); c_ierr 84 ompi/mpi/fortran/mpif-h/unpublish_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/wait_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/wait_f.c c_ierr = PMPI_Wait(&c_req, &c_status); c_ierr 77 ompi/mpi/fortran/mpif-h/wait_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/wait_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 80 ompi/mpi/fortran/mpif-h/waitall_f.c int i, c_ierr; c_ierr 92 ompi/mpi/fortran/mpif-h/waitall_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 95 ompi/mpi/fortran/mpif-h/waitall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 104 ompi/mpi/fortran/mpif-h/waitall_f.c c_ierr = PMPI_Waitall(OMPI_FINT_2_INT(*count), c_req, c_status); c_ierr 105 ompi/mpi/fortran/mpif-h/waitall_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 107 ompi/mpi/fortran/mpif-h/waitall_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 80 ompi/mpi/fortran/mpif-h/waitany_f.c int i, c_ierr; c_ierr 94 ompi/mpi/fortran/mpif-h/waitany_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, c_ierr 96 ompi/mpi/fortran/mpif-h/waitany_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 104 ompi/mpi/fortran/mpif-h/waitany_f.c c_ierr = PMPI_Waitany(OMPI_FINT_2_INT(*count), c_req, c_ierr 107 ompi/mpi/fortran/mpif-h/waitany_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 109 ompi/mpi/fortran/mpif-h/waitany_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 79 ompi/mpi/fortran/mpif-h/waitsome_f.c int c_ierr; c_ierr 97 ompi/mpi/fortran/mpif-h/waitsome_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, c_ierr 100 ompi/mpi/fortran/mpif-h/waitsome_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 110 ompi/mpi/fortran/mpif-h/waitsome_f.c c_ierr = PMPI_Waitsome(OMPI_FINT_2_INT(*incount), c_req, c_ierr 114 ompi/mpi/fortran/mpif-h/waitsome_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 116 ompi/mpi/fortran/mpif-h/waitsome_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 114 ompi/mpi/fortran/mpif-h/win_allocate_f.c int c_ierr; c_ierr 122 ompi/mpi/fortran/mpif-h/win_allocate_f.c c_ierr = PMPI_Win_allocate(*size, OMPI_FINT_2_INT(*disp_unit), c_ierr 126 ompi/mpi/fortran/mpif-h/win_allocate_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 114 ompi/mpi/fortran/mpif-h/win_allocate_shared_f.c int c_ierr; c_ierr 122 ompi/mpi/fortran/mpif-h/win_allocate_shared_f.c c_ierr = PMPI_Win_allocate_shared(*size, OMPI_FINT_2_INT(*disp_unit), c_ierr 126 ompi/mpi/fortran/mpif-h/win_allocate_shared_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 61 ompi/mpi/fortran/mpif-h/win_attach_f.c int c_ierr; c_ierr 65 ompi/mpi/fortran/mpif-h/win_attach_f.c c_ierr = PMPI_Win_attach(c_win, base, *size); c_ierr 66 ompi/mpi/fortran/mpif-h/win_attach_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/win_call_errhandler_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/win_call_errhandler_f.c c_ierr = PMPI_Win_call_errhandler(c_win, OMPI_FINT_2_INT(*errorcode)); c_ierr 78 ompi/mpi/fortran/mpif-h/win_call_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_complete_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/win_complete_f.c c_ierr = PMPI_Win_complete(c_win); c_ierr 77 ompi/mpi/fortran/mpif-h/win_complete_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 61 ompi/mpi/fortran/mpif-h/win_create_dynamic_f.c int c_ierr; c_ierr 69 ompi/mpi/fortran/mpif-h/win_create_dynamic_f.c c_ierr = PMPI_Win_create_dynamic(c_info, c_comm, &c_win); c_ierr 70 ompi/mpi/fortran/mpif-h/win_create_dynamic_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/win_create_dynamic_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/win_create_f.c int c_ierr; c_ierr 81 ompi/mpi/fortran/mpif-h/win_create_f.c c_ierr = PMPI_Win_create(base, *size, c_ierr 84 ompi/mpi/fortran/mpif-h/win_create_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 86 ompi/mpi/fortran/mpif-h/win_create_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpi/fortran/mpif-h/win_create_keyval_f.c int ret, c_ierr; c_ierr 93 ompi/mpi/fortran/mpif-h/win_create_keyval_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, c_ierr 95 ompi/mpi/fortran/mpif-h/win_create_keyval_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/win_delete_attr_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/win_delete_attr_f.c c_ierr = PMPI_Win_delete_attr(c_win, OMPI_FINT_2_INT(*win_keyval)); c_ierr 76 ompi/mpi/fortran/mpif-h/win_delete_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 61 ompi/mpi/fortran/mpif-h/win_detach_f.c int c_ierr; c_ierr 65 ompi/mpi/fortran/mpif-h/win_detach_f.c c_ierr = PMPI_Win_detach(c_win, base); c_ierr 66 ompi/mpi/fortran/mpif-h/win_detach_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_fence_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_fence_f.c c_ierr = PMPI_Win_fence(OMPI_FINT_2_INT(*assert), c_win); c_ierr 75 ompi/mpi/fortran/mpif-h/win_fence_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/win_flush_all_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/win_flush_all_f.c c_ierr = PMPI_Win_flush_all(c_win); c_ierr 78 ompi/mpi/fortran/mpif-h/win_flush_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/win_flush_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/win_flush_f.c c_ierr = PMPI_Win_flush(OMPI_FINT_2_INT(*rank), c_win); c_ierr 78 ompi/mpi/fortran/mpif-h/win_flush_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/win_flush_local_all_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/win_flush_local_all_f.c c_ierr = PMPI_Win_flush_local_all(c_win); c_ierr 78 ompi/mpi/fortran/mpif-h/win_flush_local_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/win_flush_local_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/win_flush_local_f.c c_ierr = PMPI_Win_flush_local(OMPI_FINT_2_INT(*rank), c_win); c_ierr 78 ompi/mpi/fortran/mpif-h/win_flush_local_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_free_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_free_f.c c_ierr = PMPI_Win_free(&c_win); c_ierr 75 ompi/mpi/fortran/mpif-h/win_free_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 77 ompi/mpi/fortran/mpif-h/win_free_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/win_free_keyval_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/win_free_keyval_f.c c_ierr = PMPI_Win_free_keyval(OMPI_SINGLE_NAME_CONVERT(win_keyval)); c_ierr 77 ompi/mpi/fortran/mpif-h/win_free_keyval_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/win_free_keyval_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 73 ompi/mpi/fortran/mpif-h/win_get_attr_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/win_get_attr_f.c c_ierr = ompi_attr_get_aint(c_win->w_keyhash, c_ierr 84 ompi/mpi/fortran/mpif-h/win_get_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/win_get_errhandler_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/win_get_errhandler_f.c c_ierr = PMPI_Win_get_errhandler(c_win, &c_err); c_ierr 77 ompi/mpi/fortran/mpif-h/win_get_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 79 ompi/mpi/fortran/mpif-h/win_get_errhandler_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/win_get_group_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/win_get_group_f.c c_ierr = PMPI_Win_get_group(c_win, &c_grp); c_ierr 76 ompi/mpi/fortran/mpif-h/win_get_group_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/win_get_group_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 60 ompi/mpi/fortran/mpif-h/win_get_info_f.c int c_ierr; c_ierr 65 ompi/mpi/fortran/mpif-h/win_get_info_f.c c_ierr = PMPI_Win_get_info(c_win, &c_info); c_ierr 66 ompi/mpi/fortran/mpif-h/win_get_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/win_get_name_f.c int c_ierr, c_len; c_ierr 79 ompi/mpi/fortran/mpif-h/win_get_name_f.c c_ierr = PMPI_Win_get_name(c_win, c_name, &c_len); c_ierr 80 ompi/mpi/fortran/mpif-h/win_get_name_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 85 ompi/mpi/fortran/mpif-h/win_get_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_lock_all_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_lock_all_f.c c_ierr = PMPI_Win_lock_all(OMPI_FINT_2_INT(*assert), c_ierr 76 ompi/mpi/fortran/mpif-h/win_lock_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/win_lock_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/win_lock_f.c c_ierr = PMPI_Win_lock(OMPI_FINT_2_INT(*lock_type), c_ierr 79 ompi/mpi/fortran/mpif-h/win_lock_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 72 ompi/mpi/fortran/mpif-h/win_post_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/win_post_f.c c_ierr = PMPI_Win_post(c_grp, c_ierr 79 ompi/mpi/fortran/mpif-h/win_post_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 74 ompi/mpi/fortran/mpif-h/win_set_attr_f.c int c_ierr; c_ierr 80 ompi/mpi/fortran/mpif-h/win_set_attr_f.c c_ierr = ompi_attr_set_aint(WIN_ATTR, c_ierr 86 ompi/mpi/fortran/mpif-h/win_set_attr_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 73 ompi/mpi/fortran/mpif-h/win_set_errhandler_f.c int c_ierr; c_ierr 77 ompi/mpi/fortran/mpif-h/win_set_errhandler_f.c c_ierr = PMPI_Win_set_errhandler(c_win, c_err); c_ierr 78 ompi/mpi/fortran/mpif-h/win_set_errhandler_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 60 ompi/mpi/fortran/mpif-h/win_set_info_f.c int c_ierr; c_ierr 66 ompi/mpi/fortran/mpif-h/win_set_info_f.c c_ierr = PMPI_Win_set_info(c_win, c_info); c_ierr 67 ompi/mpi/fortran/mpif-h/win_set_info_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 75 ompi/mpi/fortran/mpif-h/win_set_name_f.c int ret, c_ierr; c_ierr 85 ompi/mpi/fortran/mpif-h/win_set_name_f.c c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, c_ierr 87 ompi/mpi/fortran/mpif-h/win_set_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 93 ompi/mpi/fortran/mpif-h/win_set_name_f.c c_ierr = PMPI_Win_set_name(c_win, c_name); c_ierr 94 ompi/mpi/fortran/mpif-h/win_set_name_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 114 ompi/mpi/fortran/mpif-h/win_shared_query_f.c int c_ierr; c_ierr 120 ompi/mpi/fortran/mpif-h/win_shared_query_f.c c_ierr = PMPI_Win_shared_query(c_win, OMPI_FINT_2_INT(*rank), size, c_ierr 122 ompi/mpi/fortran/mpif-h/win_shared_query_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 124 ompi/mpi/fortran/mpif-h/win_shared_query_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 72 ompi/mpi/fortran/mpif-h/win_start_f.c int c_ierr; c_ierr 76 ompi/mpi/fortran/mpif-h/win_start_f.c c_ierr = PMPI_Win_start(c_grp, c_ierr 79 ompi/mpi/fortran/mpif-h/win_start_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_sync_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_sync_f.c c_ierr = PMPI_Win_sync(c_win); c_ierr 75 ompi/mpi/fortran/mpif-h/win_sync_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_test_f.c int c_ierr; c_ierr 75 ompi/mpi/fortran/mpif-h/win_test_f.c c_ierr = PMPI_Win_test(c_win, OMPI_LOGICAL_SINGLE_NAME_CONVERT(flag)); c_ierr 76 ompi/mpi/fortran/mpif-h/win_test_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 78 ompi/mpi/fortran/mpif-h/win_test_f.c if (MPI_SUCCESS == c_ierr) { c_ierr 71 ompi/mpi/fortran/mpif-h/win_unlock_all_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_unlock_all_f.c c_ierr = PMPI_Win_unlock_all(c_win); c_ierr 75 ompi/mpi/fortran/mpif-h/win_unlock_all_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_unlock_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_unlock_f.c c_ierr = PMPI_Win_unlock(OMPI_FINT_2_INT(*rank), c_win); c_ierr 75 ompi/mpi/fortran/mpif-h/win_unlock_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 71 ompi/mpi/fortran/mpif-h/win_wait_f.c int c_ierr; c_ierr 74 ompi/mpi/fortran/mpif-h/win_wait_f.c c_ierr = PMPI_Win_wait(c_win); c_ierr 75 ompi/mpi/fortran/mpif-h/win_wait_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 59 ompi/mpi/fortran/use-mpi-f08/buffer_detach.c int c_ierr; c_ierr 63 ompi/mpi/fortran/use-mpi-f08/buffer_detach.c c_ierr = PMPI_Buffer_detach(&dummy, OMPI_SINGLE_NAME_CONVERT(size)); c_ierr 65 ompi/mpi/fortran/use-mpi-f08/buffer_detach.c *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 68 ompi/mpi/fortran/use-mpi-f08/buffer_detach.c if (MPI_SUCCESS == c_ierr) { c_ierr 75 ompi/mpiext/pcollreq/mpif-h/alltoall_init_f.c int c_ierr; c_ierr 90 ompi/mpiext/pcollreq/mpif-h/alltoall_init_f.c c_ierr = PMPIX_Alltoall_init(sendbuf, c_ierr 96 ompi/mpiext/pcollreq/mpif-h/alltoall_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 98 ompi/mpiext/pcollreq/mpif-h/alltoall_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_req); c_ierr 80 ompi/mpiext/pcollreq/mpif-h/alltoallv_init_f.c int size, c_ierr; c_ierr 101 ompi/mpiext/pcollreq/mpif-h/alltoallv_init_f.c c_ierr = PMPIX_Alltoallv_init(sendbuf, c_ierr 109 ompi/mpiext/pcollreq/mpif-h/alltoallv_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 110 ompi/mpiext/pcollreq/mpif-h/alltoallv_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 81 ompi/mpiext/pcollreq/mpif-h/alltoallw_init_f.c int size, c_ierr; c_ierr 110 ompi/mpiext/pcollreq/mpif-h/alltoallw_init_f.c c_ierr = PMPIX_Alltoallw_init(sendbuf, c_ierr 118 ompi/mpiext/pcollreq/mpif-h/alltoallw_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 119 ompi/mpiext/pcollreq/mpif-h/alltoallw_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 75 ompi/mpiext/pcollreq/mpif-h/bcast_init_f.c int c_ierr; c_ierr 85 ompi/mpiext/pcollreq/mpif-h/bcast_init_f.c c_ierr = PMPIX_Bcast_init(OMPI_F2C_BOTTOM(buffer), c_ierr 92 ompi/mpiext/pcollreq/mpif-h/bcast_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 93 ompi/mpiext/pcollreq/mpif-h/bcast_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_req); c_ierr 75 ompi/mpiext/pcollreq/mpif-h/exscan_init_f.c int c_ierr; c_ierr 91 ompi/mpiext/pcollreq/mpif-h/exscan_init_f.c c_ierr = PMPIX_Exscan_init(sendbuf, recvbuf, c_ierr 94 ompi/mpiext/pcollreq/mpif-h/exscan_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 95 ompi/mpiext/pcollreq/mpif-h/exscan_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 76 ompi/mpiext/pcollreq/mpif-h/gather_init_f.c int c_ierr; c_ierr 91 ompi/mpiext/pcollreq/mpif-h/gather_init_f.c c_ierr = PMPIX_Gather_init(sendbuf, OMPI_FINT_2_INT(*sendcount), c_ierr 97 ompi/mpiext/pcollreq/mpif-h/gather_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 98 ompi/mpiext/pcollreq/mpif-h/gather_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 80 ompi/mpiext/pcollreq/mpif-h/gatherv_init_f.c int size, c_ierr; c_ierr 97 ompi/mpiext/pcollreq/mpif-h/gatherv_init_f.c c_ierr = PMPIX_Gatherv_init(sendbuf, OMPI_FINT_2_INT(*sendcount), c_ierr 104 ompi/mpiext/pcollreq/mpif-h/gatherv_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 105 ompi/mpiext/pcollreq/mpif-h/gatherv_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 79 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c int c_ierr; c_ierr 94 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c c_ierr = PMPIX_Neighbor_alltoall_init(sendbuf, c_ierr 100 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 102 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_req); c_ierr 83 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallv_init_f.c int size, c_ierr; c_ierr 104 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallv_init_f.c c_ierr = PMPIX_Neighbor_alltoallv_init(sendbuf, c_ierr 112 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallv_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 113 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallv_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 84 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallw_init_f.c int size, c_ierr; c_ierr 108 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallw_init_f.c c_ierr = PMPIX_Neighbor_alltoallw_init(sendbuf, c_ierr 116 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallw_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 117 ompi/mpiext/pcollreq/mpif-h/neighbor_alltoallw_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 76 ompi/mpiext/pcollreq/mpif-h/reduce_init_f.c int c_ierr; c_ierr 92 ompi/mpiext/pcollreq/mpif-h/reduce_init_f.c c_ierr = PMPIX_Reduce_init(sendbuf, recvbuf, c_ierr 97 ompi/mpiext/pcollreq/mpif-h/reduce_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 98 ompi/mpiext/pcollreq/mpif-h/reduce_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 76 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_block_init_f.c int c_ierr; c_ierr 95 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_block_init_f.c c_ierr = PMPIX_Reduce_scatter_block_init(sendbuf, recvbuf, c_ierr 98 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_block_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 99 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_block_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 76 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_init_f.c int c_ierr; c_ierr 97 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_init_f.c c_ierr = PMPIX_Reduce_scatter_init(sendbuf, recvbuf, c_ierr 100 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 101 ompi/mpiext/pcollreq/mpif-h/reduce_scatter_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 75 ompi/mpiext/pcollreq/mpif-h/scan_init_f.c int c_ierr; c_ierr 91 ompi/mpiext/pcollreq/mpif-h/scan_init_f.c c_ierr = PMPIX_Scan_init(sendbuf, recvbuf, c_ierr 95 ompi/mpiext/pcollreq/mpif-h/scan_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 96 ompi/mpiext/pcollreq/mpif-h/scan_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 77 ompi/mpiext/pcollreq/mpif-h/scatter_init_f.c int c_ierr; c_ierr 91 ompi/mpiext/pcollreq/mpif-h/scatter_init_f.c c_ierr = PMPIX_Scatter_init(sendbuf,OMPI_FINT_2_INT(*sendcount), c_ierr 96 ompi/mpiext/pcollreq/mpif-h/scatter_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 97 ompi/mpiext/pcollreq/mpif-h/scatter_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request); c_ierr 81 ompi/mpiext/pcollreq/mpif-h/scatterv_init_f.c int size, c_ierr; c_ierr 98 ompi/mpiext/pcollreq/mpif-h/scatterv_init_f.c c_ierr = PMPIX_Scatterv_init(sendbuf, c_ierr 105 ompi/mpiext/pcollreq/mpif-h/scatterv_init_f.c if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); c_ierr 106 ompi/mpiext/pcollreq/mpif-h/scatterv_init_f.c if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request);