geopm_pmpi_fortran.c File Reference

#include <stdlib.h>
#include <string.h>
#include <mpi.h>
#include <unistd.h>
#include <stdio.h>
#include <limits.h>
#include <stdint.h>
#include "geopm_pmpi.h"

Include dependency graph for geopm_pmpi_fortran.c:

Functions
void	pmpi_allgather_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_allgatherv_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_allreduce_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_alltoall_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_alltoallv_ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_alltoallw (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_barrier_ (MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_bcast_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_bsend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_bsend_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_cart_coords_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)
void	pmpi_cart_create_ (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)
void	pmpi_cartdim_get_ (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)
void	pmpi_cart_get_ (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)
void	pmpi_cart_map (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)
void	pmpi_cart_rank_ (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)
void	pmpi_cart_shift_ (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)
void	pmpi_cart_sub_ (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)
void	pmpi_comm_accept_ (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	pmpi_comm_call_errhandler_ (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
void	pmpi_comm_compare_ (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)
void	pmpi_comm_connect_ (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	pmpi_comm_create_ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
void	pmpi_comm_delete_attr_ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)
void	pmpi_comm_dup (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
void	pmpi_comm_get_attr_ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
void	pmpi_comm_get_errhandler_ (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)
void	pmpi_comm_get_name_ (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr, MPI_Fint name_len)
void	pmpi_comm_group_ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	pmpi_comm_rank_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr)
void	pmpi_comm_remote_group_ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	pmpi_comm_remote_size_ (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	pmpi_comm_set_attr_ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *ierr)
void	pmpi_comm_set_errhandler_ (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
void	pmpi_comm_set_name (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr, MPI_Fint name_len)
void	pmpi_comm_size_ (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	pmpi_comm_spawn_ (char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_len, MPI_Fint string_len)
void	pmpi_comm_spawn_multiple_ (MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_string_len, MPI_Fint argv_string_len)
void	pmpi_comm_split (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)
void	pmpi_comm_test_inter_ (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)
void	pmpi_exscan_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_file_open_ (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, MPI_Fint name_len)
void	pmpi_gather_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_gatherv_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_graph_create_ (MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr)
void	pmpi_graphdims_get (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr)
void	pmpi_graph_get (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr)
void	pmpi_graph_map_ (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr)
void	pmpi_graph_neighbors_count_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr)
void	pmpi_graph_neighbors_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr)
void	pmpi_ibsend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_intercomm_create_ (MPI_Fint *local_comm, MPI_Fint *local_leader, MPI_Fint *bridge_comm, MPI_Fint *remote_leader, MPI_Fint *tag, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	pmpi_intercomm_merge_ (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	pmpi_iprobe_ (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_irecv_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_irsend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_isend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_comm_get_parent_ (MPI_Fint *parent, MPI_Fint *ierr)
void	pmpi_issend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_pack_ (MPI_Fint *inbuf, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_pack_size_ (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	pmpi_probe_ (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_recv_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_recv_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_reduce_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_reduce_scatter_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_rsend_ (MPI_Fint *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_rsend_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_scan_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_scatter_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_scatterv_ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *displs, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_send_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_send_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_sendrecv_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_sendrecv_replace_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_ssend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_ssend_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	pmpi_topo_test_ (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_unpack_ (MPI_Fint *inbuf, MPI_Fint *insize, MPI_Fint *position, MPI_Fint *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr)
void	pmpi_waitall_ (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	pmpi_waitany_ (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_wait_ (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr)
void	pmpi_waitsome_ (MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	pmpi_win_create_ (MPI_Fint *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr)
void	FMPI_Init (MPI_Fint *ierr)
void	mpi_finalize (MPI_Fint *ierr)
void	mpi_finalize_ (MPI_Fint *ierr)
void	mpi_finalize__ (MPI_Fint *ierr)
void	MPI_FINALIZE (MPI_Fint *ierr)
void	mpi_init (MPI_Fint *ierr)
void	mpi_init_ (MPI_Fint *ierr)
void	mpi_init__ (MPI_Fint *ierr)
void	MPI_INIT (MPI_Fint *ierr)
void	mpi_init_thread (MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr)
void	mpi_init_thread_ (MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr)
void	mpi_init_thread__ (MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr)
void	MPI_INIT_THREAD (MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr)
void	mpi_iprobe (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_iprobe_ (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_iprobe__ (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_IPROBE (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_allgather (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allgather_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allgather__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_ALLGATHER (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allgatherv (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allgatherv_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allgatherv__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_ALLGATHERV (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allreduce (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allreduce_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_allreduce__ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_ALLREDUCE (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoall (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoall_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoall__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_ALLTOALL (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoallv (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoallv_ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoallv__ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_ALLTOALLV (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoallw (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoallw_ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_alltoallw__ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_ALLTOALLW (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_barrier (MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_barrier_ (MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_barrier__ (MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_BARRIER (MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bcast (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bcast_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bcast__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_BCAST (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bsend (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bsend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bsend__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_BSEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_bsend_init (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_bsend_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_bsend_init__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_BSEND_INIT (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_cart_coords (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)
void	mpi_cart_coords_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)
void	mpi_cart_coords__ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)
void	MPI_CART_COORDS (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)
void	mpi_cart_create (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)
void	mpi_cart_create_ (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)
void	mpi_cart_create__ (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)
void	MPI_CART_CREATE (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)
void	mpi_cartdim_get (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)
void	mpi_cartdim_get_ (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)
void	mpi_cartdim_get__ (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)
void	MPI_CARTDIM_GET (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)
void	mpi_cart_get (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)
void	mpi_cart_get_ (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)
void	mpi_cart_get__ (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)
void	MPI_CART_GET (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)
void	mpi_cart_map (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)
void	mpi_cart_map_ (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)
void	mpi_cart_map__ (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)
void	MPI_CART_MAP (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)
void	mpi_cart_rank (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)
void	mpi_cart_rank_ (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)
void	mpi_cart_rank__ (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)
void	MPI_CART_RANK (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)
void	mpi_cart_shift (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)
void	mpi_cart_shift_ (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)
void	mpi_cart_shift__ (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)
void	MPI_CART_SHIFT (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)
void	mpi_cart_sub (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)
void	mpi_cart_sub_ (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)
void	mpi_cart_sub__ (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)
void	MPI_CART_SUB (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)
void	mpi_comm_accept (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	mpi_comm_accept_ (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	mpi_comm_accept__ (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	MPI_COMM_ACCEPT (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	mpi_comm_call_errhandler (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
void	mpi_comm_call_errhandler_ (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
void	mpi_comm_call_errhandler__ (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
void	MPI_COMM_CALL_ERRHANDLER (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
void	mpi_comm_compare (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)
void	mpi_comm_compare_ (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)
void	mpi_comm_compare__ (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)
void	MPI_COMM_COMPARE (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)
void	mpi_comm_connect (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	mpi_comm_connect_ (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	mpi_comm_connect__ (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	MPI_COMM_CONNECT (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, MPI_Fint port_name_len)
void	mpi_comm_create (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_create_ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_create__ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
void	MPI_COMM_CREATE (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_delete_attr (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)
void	mpi_comm_delete_attr_ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)
void	mpi_comm_delete_attr__ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)
void	MPI_COMM_DELETE_ATTR (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)
void	mpi_comm_dup (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_dup_ (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_dup__ (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
void	MPI_COMM_DUP (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_get_attr (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
void	mpi_comm_get_attr_ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
void	mpi_comm_get_attr__ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
void	MPI_COMM_GET_ATTR (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
void	mpi_comm_get_errhandler (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)
void	mpi_comm_get_errhandler_ (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)
void	mpi_comm_get_errhandler__ (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)
void	MPI_COMM_GET_ERRHANDLER (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)
void	mpi_comm_get_name (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_comm_get_name_ (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_comm_get_name__ (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr, MPI_Fint name_len)
void	MPI_COMM_GET_NAME (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_comm_group (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	mpi_comm_group_ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	mpi_comm_group__ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	MPI_COMM_GROUP (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	mpi_comm_rank (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr)
void	mpi_comm_rank_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr)
void	mpi_comm_rank__ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr)
void	MPI_COMM_RANK (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr)
void	mpi_comm_remote_group (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	mpi_comm_remote_group_ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	mpi_comm_remote_group__ (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	MPI_COMM_REMOTE_GROUP (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
void	mpi_comm_remote_size (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_comm_remote_size_ (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_comm_remote_size__ (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	MPI_COMM_REMOTE_SIZE (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_comm_set_attr (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *ierr)
void	mpi_comm_set_attr_ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *ierr)
void	mpi_comm_set_attr__ (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *ierr)
void	MPI_COMM_SET_ATTR (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *attribute_val, MPI_Fint *ierr)
void	mpi_comm_set_errhandler (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
void	mpi_comm_set_errhandler_ (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
void	mpi_comm_set_errhandler__ (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
void	MPI_COMM_SET_ERRHANDLER (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
void	mpi_comm_set_name (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_comm_set_name_ (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_comm_set_name__ (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr, MPI_Fint name_len)
void	MPI_COMM_SET_NAME (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_comm_size (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_comm_size_ (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_comm_size__ (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	MPI_COMM_SIZE (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_comm_spawn (char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_len, MPI_Fint string_len)
void	mpi_comm_spawn_ (char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_len, MPI_Fint string_len)
void	mpi_comm_spawn__ (char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_len, MPI_Fint string_len)
void	MPI_COMM_SPAWN (char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_len, MPI_Fint string_len)
void	mpi_comm_spawn_multiple (MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_string_len, MPI_Fint argv_string_len)
void	mpi_comm_spawn_multiple_ (MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_string_len, MPI_Fint argv_string_len)
void	mpi_comm_spawn_multiple__ (MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_string_len, MPI_Fint argv_string_len)
void	MPI_COMM_SPAWN_MULTIPLE (MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr, MPI_Fint cmd_string_len, MPI_Fint argv_string_len)
void	mpi_comm_split (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_split_ (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_split__ (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)
void	MPI_COMM_SPLIT (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)
void	mpi_comm_test_inter (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)
void	mpi_comm_test_inter_ (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)
void	mpi_comm_test_inter__ (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)
void	MPI_COMM_TEST_INTER (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)
void	mpi_exscan (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_exscan_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_exscan__ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_EXSCAN (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_file_open (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_file_open_ (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_file_open__ (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, MPI_Fint name_len)
void	MPI_FILE_OPEN (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, MPI_Fint name_len)
void	mpi_gather (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_gather_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_gather__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_GATHER (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_gatherv (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_gatherv_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_gatherv__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_GATHERV (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_graph_create (MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr)
void	mpi_graph_create_ (MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr)
void	mpi_graph_create__ (MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr)
void	MPI_GRAPH_CREATE (MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr)
void	mpi_graphdims_get (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr)
void	mpi_graphdims_get_ (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr)
void	mpi_graphdims_get__ (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr)
void	MPI_GRAPHDIMS_GET (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr)
void	mpi_graph_get (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr)
void	mpi_graph_get_ (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr)
void	mpi_graph_get__ (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr)
void	MPI_GRAPH_GET (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr)
void	mpi_graph_map (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr)
void	mpi_graph_map_ (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr)
void	mpi_graph_map__ (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr)
void	MPI_GRAPH_MAP (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr)
void	mpi_graph_neighbors_count (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr)
void	mpi_graph_neighbors_count_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr)
void	mpi_graph_neighbors_count__ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr)
void	MPI_GRAPH_NEIGHBORS_COUNT (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr)
void	mpi_graph_neighbors (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr)
void	mpi_graph_neighbors_ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr)
void	mpi_graph_neighbors__ (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr)
void	MPI_GRAPH_NEIGHBORS (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr)
void	mpi_ibsend (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_ibsend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_ibsend__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_IBSEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_intercomm_create (MPI_Fint *local_comm, MPI_Fint *local_leader, MPI_Fint *bridge_comm, MPI_Fint *remote_leader, MPI_Fint *tag, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	mpi_intercomm_create_ (MPI_Fint *local_comm, MPI_Fint *local_leader, MPI_Fint *bridge_comm, MPI_Fint *remote_leader, MPI_Fint *tag, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	mpi_intercomm_create__ (MPI_Fint *local_comm, MPI_Fint *local_leader, MPI_Fint *bridge_comm, MPI_Fint *remote_leader, MPI_Fint *tag, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	MPI_INTERCOMM_CREATE (MPI_Fint *local_comm, MPI_Fint *local_leader, MPI_Fint *bridge_comm, MPI_Fint *remote_leader, MPI_Fint *tag, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	mpi_intercomm_merge (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	mpi_intercomm_merge_ (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	mpi_intercomm_merge__ (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	MPI_INTERCOMM_MERGE (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr)
void	mpi_irecv (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_irecv_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_irecv__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_IRECV (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_irsend (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_irsend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_irsend__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_IRSEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_isend (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_isend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_isend__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_ISEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_comm_get_parent (MPI_Fint *parent, MPI_Fint *ierr)
void	mpi_comm_get_parent_ (MPI_Fint *parent, MPI_Fint *ierr)
void	mpi_comm_get_parent__ (MPI_Fint *parent, MPI_Fint *ierr)
void	MPI_COMM_GET_PARENT (MPI_Fint *parent, MPI_Fint *ierr)
void	mpi_issend (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_issend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_issend__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_ISSEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_pack (MPI_Fint *inbuf, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_pack_ (MPI_Fint *inbuf, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_pack__ (MPI_Fint *inbuf, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_PACK (MPI_Fint *inbuf, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_pack_size (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_pack_size_ (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_pack_size__ (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	MPI_PACK_SIZE (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
void	mpi_probe (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_probe_ (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_probe__ (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_PROBE (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_recv_init (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_recv_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_recv_init__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_RECV_INIT (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_recv (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_recv_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_recv__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_RECV (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_reduce (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_reduce_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_reduce__ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_REDUCE (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_reduce_scatter (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_reduce_scatter_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_reduce_scatter__ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_REDUCE_SCATTER (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_rsend (MPI_Fint *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_rsend_ (MPI_Fint *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_rsend__ (MPI_Fint *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_RSEND (MPI_Fint *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_rsend_init (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_rsend_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_rsend_init__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_RSEND_INIT (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_scan (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scan_ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scan__ (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_SCAN (MPI_Fint *sendbuf, MPI_Fint *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scatter (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scatter_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scatter__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_SCATTER (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scatterv (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *displs, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scatterv_ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *displs, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_scatterv__ (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *displs, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_SCATTERV (MPI_Fint *sendbuf, MPI_Fint *sendcounts, MPI_Fint *displs, MPI_Fint *sendtype, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_send (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_send_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_send__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_SEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_send_init (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_send_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_send_init__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_SEND_INIT (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_sendrecv (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_sendrecv_ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_sendrecv__ (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_SENDRECV (MPI_Fint *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_sendrecv_replace (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_sendrecv_replace_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_sendrecv_replace__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_SENDRECV_REPLACE (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_ssend (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_ssend_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_ssend__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_SSEND (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_ssend_init (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_ssend_init_ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_ssend_init__ (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	MPI_SSEND_INIT (MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
void	mpi_topo_test (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_topo_test_ (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_topo_test__ (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_TOPO_TEST (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_unpack (MPI_Fint *inbuf, MPI_Fint *insize, MPI_Fint *position, MPI_Fint *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_unpack_ (MPI_Fint *inbuf, MPI_Fint *insize, MPI_Fint *position, MPI_Fint *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_unpack__ (MPI_Fint *inbuf, MPI_Fint *insize, MPI_Fint *position, MPI_Fint *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr)
void	MPI_UNPACK (MPI_Fint *inbuf, MPI_Fint *insize, MPI_Fint *position, MPI_Fint *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr)
void	mpi_waitall (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	mpi_waitall_ (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	mpi_waitall__ (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	MPI_WAITALL (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	mpi_waitany (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_waitany_ (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_waitany__ (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_WAITANY (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_wait (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_wait_ (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_wait__ (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr)
void	MPI_WAIT (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr)
void	mpi_waitsome (MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	mpi_waitsome_ (MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	mpi_waitsome__ (MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	MPI_WAITSOME (MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr)
void	mpi_win_create (MPI_Fint *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr)
void	mpi_win_create_ (MPI_Fint *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr)
void	mpi_win_create__ (MPI_Fint *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr)
void	MPI_WIN_CREATE (MPI_Fint *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr)

Function Documentation

FMPI_Init()

void FMPI_Init

(

MPI_Fint *

ierr

)

mpi_allgather()

void mpi_allgather	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_ALLGATHER()

void MPI_ALLGATHER	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allgather_()

void mpi_allgather_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allgather__()

void mpi_allgather__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allgatherv()

void mpi_allgatherv	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_ALLGATHERV()

void MPI_ALLGATHERV	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allgatherv_()

void mpi_allgatherv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allgatherv__()

void mpi_allgatherv__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allreduce()

void mpi_allreduce	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_ALLREDUCE()

void MPI_ALLREDUCE	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allreduce_()

void mpi_allreduce_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_allreduce__()

void mpi_allreduce__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoall()

void mpi_alltoall	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_ALLTOALL()

void MPI_ALLTOALL	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoall_()

void mpi_alltoall_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoall__()

void mpi_alltoall__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoallv()

void mpi_alltoallv	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_ALLTOALLV()

void MPI_ALLTOALLV	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoallv_()

void mpi_alltoallv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoallv__()

void mpi_alltoallv__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoallw()

void mpi_alltoallw	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtypes,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtypes,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_ALLTOALLW()

void MPI_ALLTOALLW	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtypes,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtypes,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoallw_()

void mpi_alltoallw_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtypes,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtypes,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_alltoallw__()

void mpi_alltoallw__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtypes,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtypes,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_barrier()

void mpi_barrier	(	MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_BARRIER()

void MPI_BARRIER	(	MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_barrier_()

void mpi_barrier_	(	MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_barrier__()

void mpi_barrier__	(	MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bcast()

void mpi_bcast	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_BCAST()

void MPI_BCAST	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bcast_()

void mpi_bcast_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bcast__()

void mpi_bcast__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bsend()

void mpi_bsend	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_BSEND()

void MPI_BSEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bsend_()

void mpi_bsend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bsend__()

void mpi_bsend__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_bsend_init()

void mpi_bsend_init	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_BSEND_INIT()

void MPI_BSEND_INIT	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_bsend_init_()

void mpi_bsend_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_bsend_init__()

void mpi_bsend_init__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_cart_coords()

void mpi_cart_coords	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxdims,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

MPI_CART_COORDS()

void MPI_CART_COORDS	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxdims,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

mpi_cart_coords_()

void mpi_cart_coords_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxdims,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

mpi_cart_coords__()

void mpi_cart_coords__	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxdims,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

mpi_cart_create()

void mpi_cart_create	(	MPI_Fint *	old_comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_cart,
		MPI_Fint *	ierr
	)

MPI_CART_CREATE()

void MPI_CART_CREATE	(	MPI_Fint *	old_comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_cart,
		MPI_Fint *	ierr
	)

mpi_cart_create_()

void mpi_cart_create_	(	MPI_Fint *	old_comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_cart,
		MPI_Fint *	ierr
	)

mpi_cart_create__()

void mpi_cart_create__	(	MPI_Fint *	old_comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_cart,
		MPI_Fint *	ierr
	)

mpi_cart_get()

void mpi_cart_get	(	MPI_Fint *	comm,
		MPI_Fint *	maxdims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

MPI_CART_GET()

void MPI_CART_GET	(	MPI_Fint *	comm,
		MPI_Fint *	maxdims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

mpi_cart_get_()

void mpi_cart_get_	(	MPI_Fint *	comm,
		MPI_Fint *	maxdims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

mpi_cart_get__()

void mpi_cart_get__	(	MPI_Fint *	comm,
		MPI_Fint *	maxdims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

mpi_cart_map()

void mpi_cart_map	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

MPI_CART_MAP()

void MPI_CART_MAP	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

mpi_cart_map_()

void mpi_cart_map_	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

mpi_cart_map__()

void mpi_cart_map__	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

mpi_cart_rank()

void mpi_cart_rank	(	MPI_Fint *	comm,
		MPI_Fint *	coords,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

MPI_CART_RANK()

void MPI_CART_RANK	(	MPI_Fint *	comm,
		MPI_Fint *	coords,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

mpi_cart_rank_()

void mpi_cart_rank_	(	MPI_Fint *	comm,
		MPI_Fint *	coords,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

mpi_cart_rank__()

void mpi_cart_rank__	(	MPI_Fint *	comm,
		MPI_Fint *	coords,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

mpi_cart_shift()

void mpi_cart_shift	(	MPI_Fint *	comm,
		MPI_Fint *	direction,
		MPI_Fint *	disp,
		MPI_Fint *	rank_source,
		MPI_Fint *	rank_dest,
		MPI_Fint *	ierr
	)

MPI_CART_SHIFT()

void MPI_CART_SHIFT	(	MPI_Fint *	comm,
		MPI_Fint *	direction,
		MPI_Fint *	disp,
		MPI_Fint *	rank_source,
		MPI_Fint *	rank_dest,
		MPI_Fint *	ierr
	)

mpi_cart_shift_()

void mpi_cart_shift_	(	MPI_Fint *	comm,
		MPI_Fint *	direction,
		MPI_Fint *	disp,
		MPI_Fint *	rank_source,
		MPI_Fint *	rank_dest,
		MPI_Fint *	ierr
	)

mpi_cart_shift__()

void mpi_cart_shift__	(	MPI_Fint *	comm,
		MPI_Fint *	direction,
		MPI_Fint *	disp,
		MPI_Fint *	rank_source,
		MPI_Fint *	rank_dest,
		MPI_Fint *	ierr
	)

mpi_cart_sub()

void mpi_cart_sub	(	MPI_Fint *	comm,
		MPI_Fint *	remain_dims,
		MPI_Fint *	new_comm,
		MPI_Fint *	ierr
	)

MPI_CART_SUB()

void MPI_CART_SUB	(	MPI_Fint *	comm,
		MPI_Fint *	remain_dims,
		MPI_Fint *	new_comm,
		MPI_Fint *	ierr
	)

mpi_cart_sub_()

void mpi_cart_sub_	(	MPI_Fint *	comm,
		MPI_Fint *	remain_dims,
		MPI_Fint *	new_comm,
		MPI_Fint *	ierr
	)

mpi_cart_sub__()

void mpi_cart_sub__	(	MPI_Fint *	comm,
		MPI_Fint *	remain_dims,
		MPI_Fint *	new_comm,
		MPI_Fint *	ierr
	)

mpi_cartdim_get()

void mpi_cartdim_get	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	ierr
	)

MPI_CARTDIM_GET()

void MPI_CARTDIM_GET	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	ierr
	)

mpi_cartdim_get_()

void mpi_cartdim_get_	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	ierr
	)

mpi_cartdim_get__()

void mpi_cartdim_get__	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	ierr
	)

mpi_comm_accept()

void mpi_comm_accept	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

MPI_COMM_ACCEPT()

void MPI_COMM_ACCEPT	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

mpi_comm_accept_()

void mpi_comm_accept_	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

mpi_comm_accept__()

void mpi_comm_accept__	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

mpi_comm_call_errhandler()

void mpi_comm_call_errhandler	(	MPI_Fint *	comm,
		MPI_Fint *	errorcode,
		MPI_Fint *	ierr
	)

MPI_COMM_CALL_ERRHANDLER()

void MPI_COMM_CALL_ERRHANDLER	(	MPI_Fint *	comm,
		MPI_Fint *	errorcode,
		MPI_Fint *	ierr
	)

mpi_comm_call_errhandler_()

void mpi_comm_call_errhandler_	(	MPI_Fint *	comm,
		MPI_Fint *	errorcode,
		MPI_Fint *	ierr
	)

mpi_comm_call_errhandler__()

void mpi_comm_call_errhandler__	(	MPI_Fint *	comm,
		MPI_Fint *	errorcode,
		MPI_Fint *	ierr
	)

mpi_comm_compare()

void mpi_comm_compare	(	MPI_Fint *	comm1,
		MPI_Fint *	comm2,
		MPI_Fint *	result,
		MPI_Fint *	ierr
	)

MPI_COMM_COMPARE()

void MPI_COMM_COMPARE	(	MPI_Fint *	comm1,
		MPI_Fint *	comm2,
		MPI_Fint *	result,
		MPI_Fint *	ierr
	)

mpi_comm_compare_()

void mpi_comm_compare_	(	MPI_Fint *	comm1,
		MPI_Fint *	comm2,
		MPI_Fint *	result,
		MPI_Fint *	ierr
	)

mpi_comm_compare__()

void mpi_comm_compare__	(	MPI_Fint *	comm1,
		MPI_Fint *	comm2,
		MPI_Fint *	result,
		MPI_Fint *	ierr
	)

mpi_comm_connect()

void mpi_comm_connect	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

MPI_COMM_CONNECT()

void MPI_COMM_CONNECT	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

mpi_comm_connect_()

void mpi_comm_connect_	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

mpi_comm_connect__()

void mpi_comm_connect__	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

mpi_comm_create()

void mpi_comm_create	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

MPI_COMM_CREATE()

void MPI_COMM_CREATE	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_create_()

void mpi_comm_create_	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_create__()

void mpi_comm_create__	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_delete_attr()

void mpi_comm_delete_attr	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	ierr
	)

MPI_COMM_DELETE_ATTR()

void MPI_COMM_DELETE_ATTR	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	ierr
	)

mpi_comm_delete_attr_()

void mpi_comm_delete_attr_	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	ierr
	)

mpi_comm_delete_attr__()

void mpi_comm_delete_attr__	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	ierr
	)

mpi_comm_dup()

void mpi_comm_dup	(	MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

MPI_COMM_DUP()

void MPI_COMM_DUP	(	MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_dup_()

void mpi_comm_dup_	(	MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_dup__()

void mpi_comm_dup__	(	MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_get_attr()

void mpi_comm_get_attr	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

MPI_COMM_GET_ATTR()

void MPI_COMM_GET_ATTR	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

mpi_comm_get_attr_()

void mpi_comm_get_attr_	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

mpi_comm_get_attr__()

void mpi_comm_get_attr__	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

mpi_comm_get_errhandler()

void mpi_comm_get_errhandler	(	MPI_Fint *	comm,
		MPI_Fint *	erhandler,
		MPI_Fint *	ierr
	)

MPI_COMM_GET_ERRHANDLER()

void MPI_COMM_GET_ERRHANDLER	(	MPI_Fint *	comm,
		MPI_Fint *	erhandler,
		MPI_Fint *	ierr
	)

mpi_comm_get_errhandler_()

void mpi_comm_get_errhandler_	(	MPI_Fint *	comm,
		MPI_Fint *	erhandler,
		MPI_Fint *	ierr
	)

mpi_comm_get_errhandler__()

void mpi_comm_get_errhandler__	(	MPI_Fint *	comm,
		MPI_Fint *	erhandler,
		MPI_Fint *	ierr
	)

mpi_comm_get_name()

void mpi_comm_get_name	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	resultlen,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

MPI_COMM_GET_NAME()

void MPI_COMM_GET_NAME	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	resultlen,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_comm_get_name_()

void mpi_comm_get_name_	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	resultlen,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_comm_get_name__()

void mpi_comm_get_name__	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	resultlen,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_comm_get_parent()

void mpi_comm_get_parent	(	MPI_Fint *	parent,
		MPI_Fint *	ierr
	)

MPI_COMM_GET_PARENT()

void MPI_COMM_GET_PARENT	(	MPI_Fint *	parent,
		MPI_Fint *	ierr
	)

mpi_comm_get_parent_()

void mpi_comm_get_parent_	(	MPI_Fint *	parent,
		MPI_Fint *	ierr
	)

mpi_comm_get_parent__()

void mpi_comm_get_parent__	(	MPI_Fint *	parent,
		MPI_Fint *	ierr
	)

mpi_comm_group()

void mpi_comm_group	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

MPI_COMM_GROUP()

void MPI_COMM_GROUP	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

mpi_comm_group_()

void mpi_comm_group_	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

mpi_comm_group__()

void mpi_comm_group__	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

mpi_comm_rank()

void mpi_comm_rank	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

MPI_COMM_RANK()

void MPI_COMM_RANK	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

mpi_comm_rank_()

void mpi_comm_rank_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

mpi_comm_rank__()

void mpi_comm_rank__	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

mpi_comm_remote_group()

void mpi_comm_remote_group	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

MPI_COMM_REMOTE_GROUP()

void MPI_COMM_REMOTE_GROUP	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

mpi_comm_remote_group_()

void mpi_comm_remote_group_	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

mpi_comm_remote_group__()

void mpi_comm_remote_group__	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

mpi_comm_remote_size()

void mpi_comm_remote_size	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

MPI_COMM_REMOTE_SIZE()

void MPI_COMM_REMOTE_SIZE	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_comm_remote_size_()

void mpi_comm_remote_size_	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_comm_remote_size__()

void mpi_comm_remote_size__	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_comm_set_attr()

void mpi_comm_set_attr	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	ierr
	)

MPI_COMM_SET_ATTR()

void MPI_COMM_SET_ATTR	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	ierr
	)

mpi_comm_set_attr_()

void mpi_comm_set_attr_	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	ierr
	)

mpi_comm_set_attr__()

void mpi_comm_set_attr__	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	ierr
	)

mpi_comm_set_errhandler()

void mpi_comm_set_errhandler	(	MPI_Fint *	comm,
		MPI_Fint *	errhandler,
		MPI_Fint *	ierr
	)

MPI_COMM_SET_ERRHANDLER()

void MPI_COMM_SET_ERRHANDLER	(	MPI_Fint *	comm,
		MPI_Fint *	errhandler,
		MPI_Fint *	ierr
	)

mpi_comm_set_errhandler_()

void mpi_comm_set_errhandler_	(	MPI_Fint *	comm,
		MPI_Fint *	errhandler,
		MPI_Fint *	ierr
	)

mpi_comm_set_errhandler__()

void mpi_comm_set_errhandler__	(	MPI_Fint *	comm,
		MPI_Fint *	errhandler,
		MPI_Fint *	ierr
	)

mpi_comm_set_name()

void mpi_comm_set_name	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

MPI_COMM_SET_NAME()

void MPI_COMM_SET_NAME	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_comm_set_name_()

void mpi_comm_set_name_	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_comm_set_name__()

void mpi_comm_set_name__	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_comm_size()

void mpi_comm_size	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

MPI_COMM_SIZE()

void MPI_COMM_SIZE	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_comm_size_()

void mpi_comm_size_	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_comm_size__()

void mpi_comm_size__	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_comm_spawn()

void mpi_comm_spawn	(	char *	command,
		char *	argv,
		MPI_Fint *	maxprocs,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_len,
		MPI_Fint	string_len
	)

MPI_COMM_SPAWN()

void MPI_COMM_SPAWN	(	char *	command,
		char *	argv,
		MPI_Fint *	maxprocs,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_len,
		MPI_Fint	string_len
	)

mpi_comm_spawn_()

void mpi_comm_spawn_	(	char *	command,
		char *	argv,
		MPI_Fint *	maxprocs,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_len,
		MPI_Fint	string_len
	)

mpi_comm_spawn__()

void mpi_comm_spawn__	(	char *	command,
		char *	argv,
		MPI_Fint *	maxprocs,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_len,
		MPI_Fint	string_len
	)

mpi_comm_spawn_multiple()

void mpi_comm_spawn_multiple	(	MPI_Fint *	count,
		char *	array_of_commands,
		char *	array_of_argv,
		MPI_Fint *	array_of_maxprocs,
		MPI_Fint *	array_of_info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_string_len,
		MPI_Fint	argv_string_len
	)

MPI_COMM_SPAWN_MULTIPLE()

void MPI_COMM_SPAWN_MULTIPLE	(	MPI_Fint *	count,
		char *	array_of_commands,
		char *	array_of_argv,
		MPI_Fint *	array_of_maxprocs,
		MPI_Fint *	array_of_info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_string_len,
		MPI_Fint	argv_string_len
	)

mpi_comm_spawn_multiple_()

void mpi_comm_spawn_multiple_	(	MPI_Fint *	count,
		char *	array_of_commands,
		char *	array_of_argv,
		MPI_Fint *	array_of_maxprocs,
		MPI_Fint *	array_of_info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_string_len,
		MPI_Fint	argv_string_len
	)

mpi_comm_spawn_multiple__()

void mpi_comm_spawn_multiple__	(	MPI_Fint *	count,
		char *	array_of_commands,
		char *	array_of_argv,
		MPI_Fint *	array_of_maxprocs,
		MPI_Fint *	array_of_info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_string_len,
		MPI_Fint	argv_string_len
	)

mpi_comm_split()

void mpi_comm_split	(	MPI_Fint *	comm,
		MPI_Fint *	color,
		MPI_Fint *	key,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

MPI_COMM_SPLIT()

void MPI_COMM_SPLIT	(	MPI_Fint *	comm,
		MPI_Fint *	color,
		MPI_Fint *	key,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_split_()

void mpi_comm_split_	(	MPI_Fint *	comm,
		MPI_Fint *	color,
		MPI_Fint *	key,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_split__()

void mpi_comm_split__	(	MPI_Fint *	comm,
		MPI_Fint *	color,
		MPI_Fint *	key,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

mpi_comm_test_inter()

void mpi_comm_test_inter	(	MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

MPI_COMM_TEST_INTER()

void MPI_COMM_TEST_INTER	(	MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

mpi_comm_test_inter_()

void mpi_comm_test_inter_	(	MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

mpi_comm_test_inter__()

void mpi_comm_test_inter__	(	MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

mpi_exscan()

void mpi_exscan	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_EXSCAN()

void MPI_EXSCAN	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_exscan_()

void mpi_exscan_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_exscan__()

void mpi_exscan__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_file_open()

void mpi_file_open	(	MPI_Fint *	comm,
		char *	filename,
		MPI_Fint *	amode,
		MPI_Fint *	info,
		MPI_Fint *	fh,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

MPI_FILE_OPEN()

void MPI_FILE_OPEN	(	MPI_Fint *	comm,
		char *	filename,
		MPI_Fint *	amode,
		MPI_Fint *	info,
		MPI_Fint *	fh,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_file_open_()

void mpi_file_open_	(	MPI_Fint *	comm,
		char *	filename,
		MPI_Fint *	amode,
		MPI_Fint *	info,
		MPI_Fint *	fh,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_file_open__()

void mpi_file_open__	(	MPI_Fint *	comm,
		char *	filename,
		MPI_Fint *	amode,
		MPI_Fint *	info,
		MPI_Fint *	fh,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

mpi_finalize()

void mpi_finalize

(

MPI_Fint *

ierr

)

MPI_FINALIZE()

void MPI_FINALIZE

(

MPI_Fint *

ierr

)

mpi_finalize_()

void mpi_finalize_

(

MPI_Fint *

ierr

)

mpi_finalize__()

void mpi_finalize__

(

MPI_Fint *

ierr

)

mpi_gather()

void mpi_gather	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_GATHER()

void MPI_GATHER	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_gather_()

void mpi_gather_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_gather__()

void mpi_gather__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_gatherv()

void mpi_gatherv	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_GATHERV()

void MPI_GATHERV	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_gatherv_()

void mpi_gatherv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_gatherv__()

void mpi_gatherv__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_graph_create()

void mpi_graph_create	(	MPI_Fint *	comm_old,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_graph,
		MPI_Fint *	ierr
	)

MPI_GRAPH_CREATE()

void MPI_GRAPH_CREATE	(	MPI_Fint *	comm_old,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_graph,
		MPI_Fint *	ierr
	)

mpi_graph_create_()

void mpi_graph_create_	(	MPI_Fint *	comm_old,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_graph,
		MPI_Fint *	ierr
	)

mpi_graph_create__()

void mpi_graph_create__	(	MPI_Fint *	comm_old,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_graph,
		MPI_Fint *	ierr
	)

mpi_graph_get()

void mpi_graph_get	(	MPI_Fint *	comm,
		MPI_Fint *	maxindex,
		MPI_Fint *	maxedges,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	ierr
	)

MPI_GRAPH_GET()

void MPI_GRAPH_GET	(	MPI_Fint *	comm,
		MPI_Fint *	maxindex,
		MPI_Fint *	maxedges,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	ierr
	)

mpi_graph_get_()

void mpi_graph_get_	(	MPI_Fint *	comm,
		MPI_Fint *	maxindex,
		MPI_Fint *	maxedges,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	ierr
	)

mpi_graph_get__()

void mpi_graph_get__	(	MPI_Fint *	comm,
		MPI_Fint *	maxindex,
		MPI_Fint *	maxedges,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	ierr
	)

mpi_graph_map()

void mpi_graph_map	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

MPI_GRAPH_MAP()

void MPI_GRAPH_MAP	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

mpi_graph_map_()

void mpi_graph_map_	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

mpi_graph_map__()

void mpi_graph_map__	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

mpi_graph_neighbors()

void mpi_graph_neighbors	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxneighbors,
		MPI_Fint *	neighbors,
		MPI_Fint *	ierr
	)

MPI_GRAPH_NEIGHBORS()

void MPI_GRAPH_NEIGHBORS	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxneighbors,
		MPI_Fint *	neighbors,
		MPI_Fint *	ierr
	)

mpi_graph_neighbors_()

void mpi_graph_neighbors_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxneighbors,
		MPI_Fint *	neighbors,
		MPI_Fint *	ierr
	)

mpi_graph_neighbors__()

void mpi_graph_neighbors__	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxneighbors,
		MPI_Fint *	neighbors,
		MPI_Fint *	ierr
	)

mpi_graph_neighbors_count()

void mpi_graph_neighbors_count	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	nneighbors,
		MPI_Fint *	ierr
	)

MPI_GRAPH_NEIGHBORS_COUNT()

void MPI_GRAPH_NEIGHBORS_COUNT	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	nneighbors,
		MPI_Fint *	ierr
	)

mpi_graph_neighbors_count_()

void mpi_graph_neighbors_count_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	nneighbors,
		MPI_Fint *	ierr
	)

mpi_graph_neighbors_count__()

void mpi_graph_neighbors_count__	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	nneighbors,
		MPI_Fint *	ierr
	)

mpi_graphdims_get()

void mpi_graphdims_get	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	nedges,
		MPI_Fint *	ierr
	)

MPI_GRAPHDIMS_GET()

void MPI_GRAPHDIMS_GET	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	nedges,
		MPI_Fint *	ierr
	)

mpi_graphdims_get_()

void mpi_graphdims_get_	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	nedges,
		MPI_Fint *	ierr
	)

mpi_graphdims_get__()

void mpi_graphdims_get__	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	nedges,
		MPI_Fint *	ierr
	)

mpi_ibsend()

void mpi_ibsend	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_IBSEND()

void MPI_IBSEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_ibsend_()

void mpi_ibsend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_ibsend__()

void mpi_ibsend__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_init()

void mpi_init

(

MPI_Fint *

ierr

)

MPI_INIT()

void MPI_INIT

(

MPI_Fint *

ierr

)

mpi_init_()

void mpi_init_

(

MPI_Fint *

ierr

)

mpi_init__()

void mpi_init__

(

MPI_Fint *

ierr

)

mpi_init_thread()

void mpi_init_thread	(	MPI_Fint *	required,
		MPI_Fint *	provided,
		MPI_Fint *	ierr
	)

MPI_INIT_THREAD()

void MPI_INIT_THREAD	(	MPI_Fint *	required,
		MPI_Fint *	provided,
		MPI_Fint *	ierr
	)

mpi_init_thread_()

void mpi_init_thread_	(	MPI_Fint *	required,
		MPI_Fint *	provided,
		MPI_Fint *	ierr
	)

mpi_init_thread__()

void mpi_init_thread__	(	MPI_Fint *	required,
		MPI_Fint *	provided,
		MPI_Fint *	ierr
	)

mpi_intercomm_create()

void mpi_intercomm_create	(	MPI_Fint *	local_comm,
		MPI_Fint *	local_leader,
		MPI_Fint *	bridge_comm,
		MPI_Fint *	remote_leader,
		MPI_Fint *	tag,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

MPI_INTERCOMM_CREATE()

void MPI_INTERCOMM_CREATE	(	MPI_Fint *	local_comm,
		MPI_Fint *	local_leader,
		MPI_Fint *	bridge_comm,
		MPI_Fint *	remote_leader,
		MPI_Fint *	tag,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

mpi_intercomm_create_()

void mpi_intercomm_create_	(	MPI_Fint *	local_comm,
		MPI_Fint *	local_leader,
		MPI_Fint *	bridge_comm,
		MPI_Fint *	remote_leader,
		MPI_Fint *	tag,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

mpi_intercomm_create__()

void mpi_intercomm_create__	(	MPI_Fint *	local_comm,
		MPI_Fint *	local_leader,
		MPI_Fint *	bridge_comm,
		MPI_Fint *	remote_leader,
		MPI_Fint *	tag,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

mpi_intercomm_merge()

void mpi_intercomm_merge	(	MPI_Fint *	intercomm,
		MPI_Fint *	high,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

MPI_INTERCOMM_MERGE()

void MPI_INTERCOMM_MERGE	(	MPI_Fint *	intercomm,
		MPI_Fint *	high,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

mpi_intercomm_merge_()

void mpi_intercomm_merge_	(	MPI_Fint *	intercomm,
		MPI_Fint *	high,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

mpi_intercomm_merge__()

void mpi_intercomm_merge__	(	MPI_Fint *	intercomm,
		MPI_Fint *	high,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

mpi_iprobe()

void mpi_iprobe	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_IPROBE()

void MPI_IPROBE	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_iprobe_()

void mpi_iprobe_	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_iprobe__()

void mpi_iprobe__	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_irecv()

void mpi_irecv	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_IRECV()

void MPI_IRECV	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_irecv_()

void mpi_irecv_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_irecv__()

void mpi_irecv__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_irsend()

void mpi_irsend	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_IRSEND()

void MPI_IRSEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_irsend_()

void mpi_irsend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_irsend__()

void mpi_irsend__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_isend()

void mpi_isend	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_ISEND()

void MPI_ISEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_isend_()

void mpi_isend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_isend__()

void mpi_isend__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_issend()

void mpi_issend	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_ISSEND()

void MPI_ISSEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_issend_()

void mpi_issend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_issend__()

void mpi_issend__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_pack()

void mpi_pack	(	MPI_Fint *	inbuf,
		MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	outbuf,
		MPI_Fint *	outsize,
		MPI_Fint *	position,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_PACK()

void MPI_PACK	(	MPI_Fint *	inbuf,
		MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	outbuf,
		MPI_Fint *	outsize,
		MPI_Fint *	position,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_pack_()

void mpi_pack_	(	MPI_Fint *	inbuf,
		MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	outbuf,
		MPI_Fint *	outsize,
		MPI_Fint *	position,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_pack__()

void mpi_pack__	(	MPI_Fint *	inbuf,
		MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	outbuf,
		MPI_Fint *	outsize,
		MPI_Fint *	position,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_pack_size()

void mpi_pack_size	(	MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

MPI_PACK_SIZE()

void MPI_PACK_SIZE	(	MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_pack_size_()

void mpi_pack_size_	(	MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_pack_size__()

void mpi_pack_size__	(	MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

mpi_probe()

void mpi_probe	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_PROBE()

void MPI_PROBE	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_probe_()

void mpi_probe_	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_probe__()

void mpi_probe__	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_recv()

void mpi_recv	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_RECV()

void MPI_RECV	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_recv_()

void mpi_recv_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_recv__()

void mpi_recv__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_recv_init()

void mpi_recv_init	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_RECV_INIT()

void MPI_RECV_INIT	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_recv_init_()

void mpi_recv_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_recv_init__()

void mpi_recv_init__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_reduce()

void mpi_reduce	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_REDUCE()

void MPI_REDUCE	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_reduce_()

void mpi_reduce_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_reduce__()

void mpi_reduce__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_reduce_scatter()

void mpi_reduce_scatter	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_REDUCE_SCATTER()

void MPI_REDUCE_SCATTER	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_reduce_scatter_()

void mpi_reduce_scatter_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_reduce_scatter__()

void mpi_reduce_scatter__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_rsend()

void mpi_rsend	(	MPI_Fint *	ibuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_RSEND()

void MPI_RSEND	(	MPI_Fint *	ibuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_rsend_()

void mpi_rsend_	(	MPI_Fint *	ibuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_rsend__()

void mpi_rsend__	(	MPI_Fint *	ibuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_rsend_init()

void mpi_rsend_init	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_RSEND_INIT()

void MPI_RSEND_INIT	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_rsend_init_()

void mpi_rsend_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_rsend_init__()

void mpi_rsend_init__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_scan()

void mpi_scan	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_SCAN()

void MPI_SCAN	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scan_()

void mpi_scan_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scan__()

void mpi_scan__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scatter()

void mpi_scatter	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_SCATTER()

void MPI_SCATTER	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scatter_()

void mpi_scatter_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scatter__()

void mpi_scatter__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scatterv()

void mpi_scatterv	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	displs,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_SCATTERV()

void MPI_SCATTERV	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	displs,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scatterv_()

void mpi_scatterv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	displs,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_scatterv__()

void mpi_scatterv__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	displs,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_send()

void mpi_send	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_SEND()

void MPI_SEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_send_()

void mpi_send_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_send__()

void mpi_send__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_send_init()

void mpi_send_init	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_SEND_INIT()

void MPI_SEND_INIT	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_send_init_()

void mpi_send_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_send_init__()

void mpi_send_init__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_sendrecv()

void mpi_sendrecv	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_SENDRECV()

void MPI_SENDRECV	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_sendrecv_()

void mpi_sendrecv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_sendrecv__()

void mpi_sendrecv__	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_sendrecv_replace()

void mpi_sendrecv_replace	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_SENDRECV_REPLACE()

void MPI_SENDRECV_REPLACE	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_sendrecv_replace_()

void mpi_sendrecv_replace_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_sendrecv_replace__()

void mpi_sendrecv_replace__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_ssend()

void mpi_ssend	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_SSEND()

void MPI_SSEND	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_ssend_()

void mpi_ssend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_ssend__()

void mpi_ssend__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_ssend_init()

void mpi_ssend_init	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

MPI_SSEND_INIT()

void MPI_SSEND_INIT	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_ssend_init_()

void mpi_ssend_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_ssend_init__()

void mpi_ssend_init__	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

mpi_topo_test()

void mpi_topo_test	(	MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_TOPO_TEST()

void MPI_TOPO_TEST	(	MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_topo_test_()

void mpi_topo_test_	(	MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_topo_test__()

void mpi_topo_test__	(	MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_unpack()

void mpi_unpack	(	MPI_Fint *	inbuf,
		MPI_Fint *	insize,
		MPI_Fint *	position,
		MPI_Fint *	outbuf,
		MPI_Fint *	outcount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

MPI_UNPACK()

void MPI_UNPACK	(	MPI_Fint *	inbuf,
		MPI_Fint *	insize,
		MPI_Fint *	position,
		MPI_Fint *	outbuf,
		MPI_Fint *	outcount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_unpack_()

void mpi_unpack_	(	MPI_Fint *	inbuf,
		MPI_Fint *	insize,
		MPI_Fint *	position,
		MPI_Fint *	outbuf,
		MPI_Fint *	outcount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_unpack__()

void mpi_unpack__	(	MPI_Fint *	inbuf,
		MPI_Fint *	insize,
		MPI_Fint *	position,
		MPI_Fint *	outbuf,
		MPI_Fint *	outcount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

mpi_wait()

void mpi_wait	(	MPI_Fint *	request,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_WAIT()

void MPI_WAIT	(	MPI_Fint *	request,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_wait_()

void mpi_wait_	(	MPI_Fint *	request,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_wait__()

void mpi_wait__	(	MPI_Fint *	request,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_waitall()

void mpi_waitall	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

MPI_WAITALL()

void MPI_WAITALL	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

mpi_waitall_()

void mpi_waitall_	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

mpi_waitall__()

void mpi_waitall__	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

mpi_waitany()

void mpi_waitany	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	index,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

MPI_WAITANY()

void MPI_WAITANY	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	index,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_waitany_()

void mpi_waitany_	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	index,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_waitany__()

void mpi_waitany__	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	index,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

mpi_waitsome()

void mpi_waitsome	(	MPI_Fint *	incount,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	outcount,
		MPI_Fint *	array_of_indices,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

MPI_WAITSOME()

void MPI_WAITSOME	(	MPI_Fint *	incount,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	outcount,
		MPI_Fint *	array_of_indices,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

mpi_waitsome_()

void mpi_waitsome_	(	MPI_Fint *	incount,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	outcount,
		MPI_Fint *	array_of_indices,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

mpi_waitsome__()

void mpi_waitsome__	(	MPI_Fint *	incount,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	outcount,
		MPI_Fint *	array_of_indices,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

mpi_win_create()

void mpi_win_create	(	MPI_Fint *	base,
		MPI_Fint *	size,
		MPI_Fint *	disp_unit,
		MPI_Fint *	info,
		MPI_Fint *	comm,
		MPI_Fint *	win,
		MPI_Fint *	ierr
	)

MPI_WIN_CREATE()

void MPI_WIN_CREATE	(	MPI_Fint *	base,
		MPI_Fint *	size,
		MPI_Fint *	disp_unit,
		MPI_Fint *	info,
		MPI_Fint *	comm,
		MPI_Fint *	win,
		MPI_Fint *	ierr
	)

mpi_win_create_()

void mpi_win_create_	(	MPI_Fint *	base,
		MPI_Fint *	size,
		MPI_Fint *	disp_unit,
		MPI_Fint *	info,
		MPI_Fint *	comm,
		MPI_Fint *	win,
		MPI_Fint *	ierr
	)

mpi_win_create__()

void mpi_win_create__	(	MPI_Fint *	base,
		MPI_Fint *	size,
		MPI_Fint *	disp_unit,
		MPI_Fint *	info,
		MPI_Fint *	comm,
		MPI_Fint *	win,
		MPI_Fint *	ierr
	)

pmpi_allgather_()

void pmpi_allgather_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_allgatherv_()

void pmpi_allgatherv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_allreduce_()

void pmpi_allreduce_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_alltoall_()

void pmpi_alltoall_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_alltoallv_()

void pmpi_alltoallv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_alltoallw()

void pmpi_alltoallw	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	sdispls,
		MPI_Fint *	sendtypes,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	rdispls,
		MPI_Fint *	recvtypes,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_barrier_()

void pmpi_barrier_	(	MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_bcast_()

void pmpi_bcast_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_bsend_()

void pmpi_bsend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_bsend_init_()

void pmpi_bsend_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_cart_coords_()

void pmpi_cart_coords_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxdims,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

pmpi_cart_create_()

void pmpi_cart_create_	(	MPI_Fint *	old_comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_cart,
		MPI_Fint *	ierr
	)

pmpi_cart_get_()

void pmpi_cart_get_	(	MPI_Fint *	comm,
		MPI_Fint *	maxdims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	coords,
		MPI_Fint *	ierr
	)

pmpi_cart_map()

void pmpi_cart_map	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	dims,
		MPI_Fint *	periods,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

pmpi_cart_rank_()

void pmpi_cart_rank_	(	MPI_Fint *	comm,
		MPI_Fint *	coords,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

pmpi_cart_shift_()

void pmpi_cart_shift_	(	MPI_Fint *	comm,
		MPI_Fint *	direction,
		MPI_Fint *	disp,
		MPI_Fint *	rank_source,
		MPI_Fint *	rank_dest,
		MPI_Fint *	ierr
	)

pmpi_cart_sub_()

void pmpi_cart_sub_	(	MPI_Fint *	comm,
		MPI_Fint *	remain_dims,
		MPI_Fint *	new_comm,
		MPI_Fint *	ierr
	)

pmpi_cartdim_get_()

void pmpi_cartdim_get_	(	MPI_Fint *	comm,
		MPI_Fint *	ndims,
		MPI_Fint *	ierr
	)

pmpi_comm_accept_()

void pmpi_comm_accept_	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

pmpi_comm_call_errhandler_()

void pmpi_comm_call_errhandler_	(	MPI_Fint *	comm,
		MPI_Fint *	errorcode,
		MPI_Fint *	ierr
	)

pmpi_comm_compare_()

void pmpi_comm_compare_	(	MPI_Fint *	comm1,
		MPI_Fint *	comm2,
		MPI_Fint *	result,
		MPI_Fint *	ierr
	)

pmpi_comm_connect_()

void pmpi_comm_connect_	(	char *	port_name,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr,
		MPI_Fint	port_name_len
	)

pmpi_comm_create_()

void pmpi_comm_create_	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

pmpi_comm_delete_attr_()

void pmpi_comm_delete_attr_	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	ierr
	)

pmpi_comm_dup()

void pmpi_comm_dup	(	MPI_Fint *	comm,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

pmpi_comm_get_attr_()

void pmpi_comm_get_attr_	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

pmpi_comm_get_errhandler_()

void pmpi_comm_get_errhandler_	(	MPI_Fint *	comm,
		MPI_Fint *	erhandler,
		MPI_Fint *	ierr
	)

pmpi_comm_get_name_()

void pmpi_comm_get_name_	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	resultlen,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

pmpi_comm_get_parent_()

void pmpi_comm_get_parent_	(	MPI_Fint *	parent,
		MPI_Fint *	ierr
	)

pmpi_comm_group_()

void pmpi_comm_group_	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

pmpi_comm_rank_()

void pmpi_comm_rank_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	ierr
	)

pmpi_comm_remote_group_()

void pmpi_comm_remote_group_	(	MPI_Fint *	comm,
		MPI_Fint *	group,
		MPI_Fint *	ierr
	)

pmpi_comm_remote_size_()

void pmpi_comm_remote_size_	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

pmpi_comm_set_attr_()

void pmpi_comm_set_attr_	(	MPI_Fint *	comm,
		MPI_Fint *	comm_keyval,
		MPI_Fint *	attribute_val,
		MPI_Fint *	ierr
	)

pmpi_comm_set_errhandler_()

void pmpi_comm_set_errhandler_	(	MPI_Fint *	comm,
		MPI_Fint *	errhandler,
		MPI_Fint *	ierr
	)

pmpi_comm_set_name()

void pmpi_comm_set_name	(	MPI_Fint *	comm,
		char *	comm_name,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

pmpi_comm_size_()

void pmpi_comm_size_	(	MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

pmpi_comm_spawn_()

void pmpi_comm_spawn_	(	char *	command,
		char *	argv,
		MPI_Fint *	maxprocs,
		MPI_Fint *	info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_len,
		MPI_Fint	string_len
	)

pmpi_comm_spawn_multiple_()

void pmpi_comm_spawn_multiple_	(	MPI_Fint *	count,
		char *	array_of_commands,
		char *	array_of_argv,
		MPI_Fint *	array_of_maxprocs,
		MPI_Fint *	array_of_info,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	intercomm,
		MPI_Fint *	array_of_errcodes,
		MPI_Fint *	ierr,
		MPI_Fint	cmd_string_len,
		MPI_Fint	argv_string_len
	)

pmpi_comm_split()

void pmpi_comm_split	(	MPI_Fint *	comm,
		MPI_Fint *	color,
		MPI_Fint *	key,
		MPI_Fint *	newcomm,
		MPI_Fint *	ierr
	)

pmpi_comm_test_inter_()

void pmpi_comm_test_inter_	(	MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	ierr
	)

pmpi_exscan_()

void pmpi_exscan_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_file_open_()

void pmpi_file_open_	(	MPI_Fint *	comm,
		char *	filename,
		MPI_Fint *	amode,
		MPI_Fint *	info,
		MPI_Fint *	fh,
		MPI_Fint *	ierr,
		MPI_Fint	name_len
	)

pmpi_gather_()

void pmpi_gather_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_gatherv_()

void pmpi_gatherv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	displs,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_graph_create_()

void pmpi_graph_create_	(	MPI_Fint *	comm_old,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	reorder,
		MPI_Fint *	comm_graph,
		MPI_Fint *	ierr
	)

pmpi_graph_get()

void pmpi_graph_get	(	MPI_Fint *	comm,
		MPI_Fint *	maxindex,
		MPI_Fint *	maxedges,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	ierr
	)

pmpi_graph_map_()

void pmpi_graph_map_	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	index,
		MPI_Fint *	edges,
		MPI_Fint *	newrank,
		MPI_Fint *	ierr
	)

pmpi_graph_neighbors_()

void pmpi_graph_neighbors_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	maxneighbors,
		MPI_Fint *	neighbors,
		MPI_Fint *	ierr
	)

pmpi_graph_neighbors_count_()

void pmpi_graph_neighbors_count_	(	MPI_Fint *	comm,
		MPI_Fint *	rank,
		MPI_Fint *	nneighbors,
		MPI_Fint *	ierr
	)

pmpi_graphdims_get()

void pmpi_graphdims_get	(	MPI_Fint *	comm,
		MPI_Fint *	nnodes,
		MPI_Fint *	nedges,
		MPI_Fint *	ierr
	)

pmpi_ibsend_()

void pmpi_ibsend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_intercomm_create_()

void pmpi_intercomm_create_	(	MPI_Fint *	local_comm,
		MPI_Fint *	local_leader,
		MPI_Fint *	bridge_comm,
		MPI_Fint *	remote_leader,
		MPI_Fint *	tag,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

pmpi_intercomm_merge_()

void pmpi_intercomm_merge_	(	MPI_Fint *	intercomm,
		MPI_Fint *	high,
		MPI_Fint *	newintercomm,
		MPI_Fint *	ierr
	)

pmpi_iprobe_()

void pmpi_iprobe_	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	flag,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_irecv_()

void pmpi_irecv_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_irsend_()

void pmpi_irsend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_isend_()

void pmpi_isend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_issend_()

void pmpi_issend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_pack_()

void pmpi_pack_	(	MPI_Fint *	inbuf,
		MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	outbuf,
		MPI_Fint *	outsize,
		MPI_Fint *	position,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_pack_size_()

void pmpi_pack_size_	(	MPI_Fint *	incount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	size,
		MPI_Fint *	ierr
	)

pmpi_probe_()

void pmpi_probe_	(	MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_recv_()

void pmpi_recv_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_recv_init_()

void pmpi_recv_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	source,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_reduce_()

void pmpi_reduce_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_reduce_scatter_()

void pmpi_reduce_scatter_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcounts,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_rsend_()

void pmpi_rsend_	(	MPI_Fint *	ibuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_rsend_init_()

void pmpi_rsend_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_scan_()

void pmpi_scan_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	recvbuf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	op,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_scatter_()

void pmpi_scatter_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_scatterv_()

void pmpi_scatterv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcounts,
		MPI_Fint *	displs,
		MPI_Fint *	sendtype,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	root,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_send_()

void pmpi_send_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_send_init_()

void pmpi_send_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_sendrecv_()

void pmpi_sendrecv_	(	MPI_Fint *	sendbuf,
		MPI_Fint *	sendcount,
		MPI_Fint *	sendtype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	recvbuf,
		MPI_Fint *	recvcount,
		MPI_Fint *	recvtype,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_sendrecv_replace_()

void pmpi_sendrecv_replace_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	sendtag,
		MPI_Fint *	source,
		MPI_Fint *	recvtag,
		MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_ssend_()

void pmpi_ssend_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_ssend_init_()

void pmpi_ssend_init_	(	MPI_Fint *	buf,
		MPI_Fint *	count,
		MPI_Fint *	datatype,
		MPI_Fint *	dest,
		MPI_Fint *	tag,
		MPI_Fint *	comm,
		MPI_Fint *	request,
		MPI_Fint *	ierr
	)

pmpi_topo_test_()

void pmpi_topo_test_	(	MPI_Fint *	comm,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_unpack_()

void pmpi_unpack_	(	MPI_Fint *	inbuf,
		MPI_Fint *	insize,
		MPI_Fint *	position,
		MPI_Fint *	outbuf,
		MPI_Fint *	outcount,
		MPI_Fint *	datatype,
		MPI_Fint *	comm,
		MPI_Fint *	ierr
	)

pmpi_wait_()

void pmpi_wait_	(	MPI_Fint *	request,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_waitall_()

void pmpi_waitall_	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

pmpi_waitany_()

void pmpi_waitany_	(	MPI_Fint *	count,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	index,
		MPI_Fint *	status,
		MPI_Fint *	ierr
	)

pmpi_waitsome_()

void pmpi_waitsome_	(	MPI_Fint *	incount,
		MPI_Fint *	array_of_requests,
		MPI_Fint *	outcount,
		MPI_Fint *	array_of_indices,
		MPI_Fint *	array_of_statuses,
		MPI_Fint *	ierr
	)

pmpi_win_create_()

void pmpi_win_create_	(	MPI_Fint *	base,
		MPI_Fint *	size,
		MPI_Fint *	disp_unit,
		MPI_Fint *	info,
		MPI_Fint *	comm,
		MPI_Fint *	win,
		MPI_Fint *	ierr
	)