Yet Another eXchange Tool  0.9.0
xt_exchanger_irecv_send.c
Go to the documentation of this file.
1 
12 /*
13  * Keywords:
14  * Maintainer: Jörg Behrens <behrens@dkrz.de>
15  * Moritz Hanke <hanke@dkrz.de>
16  * Thomas Jahns <jahns@dkrz.de>
17  * URL: https://doc.redmine.dkrz.de/yaxt/html/
18  *
19  * Redistribution and use in source and binary forms, with or without
20  * modification, are permitted provided that the following conditions are
21  * met:
22  *
23  * Redistributions of source code must retain the above copyright notice,
24  * this list of conditions and the following disclaimer.
25  *
26  * Redistributions in binary form must reproduce the above copyright
27  * notice, this list of conditions and the following disclaimer in the
28  * documentation and/or other materials provided with the distribution.
29  *
30  * Neither the name of the DKRZ GmbH nor the names of its contributors
31  * may be used to endorse or promote products derived from this software
32  * without specific prior written permission.
33  *
34  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
35  * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
36  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
37  * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
38  * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
39  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
40  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
41  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
42  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
43  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
44  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
45  */
46 #ifdef HAVE_CONFIG_H
47 #include <config.h>
48 #endif
49 
50 #include "core/ppm_xfuncs.h"
51 #include "xt/xt_mpi.h"
52 #include "xt_mpi_internal.h"
53 #include "xt_redist_internal.h"
56 
57 static void
58 xt_exchanger_irecv_send_s_exchange(const void *src_data, void *dst_data,
59  int nsend, int nrecv,
60  const struct Xt_redist_msg *send_msgs,
61  const struct Xt_redist_msg *recv_msgs,
62  int tag_offset, MPI_Comm comm) {
63 
64  MPI_Request *recv_request
65  = xmalloc((size_t)nrecv * sizeof (*recv_request));
66 
67  for (int i = 0; i < nrecv; ++i)
68  xt_mpi_call(MPI_Irecv(dst_data, 1, recv_msgs[i].datatype,
69  recv_msgs[i].rank,
70  tag_offset + xt_mpi_tag_exchange_msg, comm,
71  recv_request+i), comm);
72 
73  for (int i = 0; i < nsend; ++i)
74  xt_mpi_call(MPI_Send(CAST_MPI_SEND_BUF(src_data), 1, send_msgs[i].datatype,
75  send_msgs[i].rank,
76  tag_offset + xt_mpi_tag_exchange_msg, comm),
77  comm);
78 
79  xt_mpi_call(MPI_Waitall(nrecv, recv_request, MPI_STATUSES_IGNORE), comm);
80 
81  free(recv_request);
82 }
83 
85 xt_exchanger_irecv_send_new(int nsend, int nrecv,
86  const struct Xt_redist_msg * send_msgs,
87  const struct Xt_redist_msg * recv_msgs,
88  MPI_Comm comm, int tag_offset) {
89 
94  return xt_exchanger_simple_base_new(nsend, nrecv, send_msgs, recv_msgs,
95  comm, tag_offset,
97  NULL);
98 }
99 
100 /*
101  * Local Variables:
102  * c-basic-offset: 2
103  * coding: utf-8
104  * indent-tabs-mode: nil
105  * show-trailing-whitespace: t
106  * require-trailing-newline: t
107  * End:
108  */
int MPI_Comm
Definition: core.h:64
add versions of standard API functions not returning on error
#define xmalloc(size)
Definition: ppm_xfuncs.h:70
static void xt_exchanger_irecv_send_s_exchange(const void *src_data, void *dst_data, int nsend, int nrecv, const struct Xt_redist_msg *send_msgs, const struct Xt_redist_msg *recv_msgs, int tag_offset, MPI_Comm comm)
Xt_exchanger xt_exchanger_irecv_send_new(int nsend, int nrecv, const struct Xt_redist_msg *send_msgs, const struct Xt_redist_msg *recv_msgs, MPI_Comm comm, int tag_offset)
Xt_exchanger xt_exchanger_simple_base_new(int nsend, int nrecv, const struct Xt_redist_msg *send_msgs, const struct Xt_redist_msg *recv_msgs, MPI_Comm comm, int tag_offset, xt_simple_s_exchange_func s_func, xt_simple_a_exchange_func a_func)
utility routines for MPI
#define xt_mpi_call(call, comm)
Definition: xt_mpi.h:68
@ xt_mpi_tag_exchange_msg
redistribution of data, non-public declarations