mpid_irsend.c

fortran并行计算包

/*  (C)Copyright IBM Corp.  2007, 2008  */
/**
 * \file src/pt2pt/mpid_irsend.c
 * \brief ADI level implemenation of MPI_Irsend()
 */
#include "mpidimpl.h"

/**
 * \brief ADI level implemenation of MPI_Irsend()
 *
 * \param[in]  buf            The buffer to send
 * \param[in]  count          Number of elements in the buffer
 * \param[in]  datatype       The datatype of each element
 * \param[in]  rank           The destination rank
 * \param[in]  tag            The message tag
 * \param[in]  comm           Pointer to the communicator
 * \param[in]  context_offset Offset from the communicator context ID
 * \param[out] request        Return a pointer to the new request object
 *
 * \returns An MPI Error code
 *
 * Semantics of Irsend are undefined if the receiver has not posted a
 * receive. We define this "undefined" behavior to look like the
 * normal mode send behavior.
 */
int MPID_Irsend(const void    * buf,
                int             count,
                MPI_Datatype    datatype,
                int             rank,
                int             tag,
                MPID_Comm     * comm,
                int             context_offset,
                MPID_Request ** request)
{
  return MPID_Isend(buf,
                    count,
                    datatype,
                    rank,
                    tag,
                    comm,
                    context_offset,
                    request);
}