1 /*
2 * Copyright (C) by Argonne National Laboratory
3 * See COPYRIGHT in top-level directory
4 *
5 * This file is automatically generated by buildiface
6 * DO NOT EDIT
7 */
8
9 #include "cdesc.h"
10
MPIR_Ireduce_scatter_cdesc(CFI_cdesc_t * x0,CFI_cdesc_t * x1,const int x2[],MPI_Datatype x3,MPI_Op x4,MPI_Comm x5,MPI_Request * x6)11 int MPIR_Ireduce_scatter_cdesc(CFI_cdesc_t* x0, CFI_cdesc_t* x1, const int x2[], MPI_Datatype x3, MPI_Op x4, MPI_Comm x5, MPI_Request * x6)
12 {
13 int err = MPI_SUCCESS;
14 void *buf0 = x0->base_addr;
15 void *buf1 = x1->base_addr;
16
17 if (buf0 == &MPIR_F08_MPI_BOTTOM) {
18 buf0 = MPI_BOTTOM;
19 } else if (buf0 == &MPIR_F08_MPI_IN_PLACE) {
20 buf0 = MPI_IN_PLACE;
21 }
22
23 if (buf1 == &MPIR_F08_MPI_BOTTOM) {
24 buf1 = MPI_BOTTOM;
25 }
26
27 err = MPI_Ireduce_scatter(buf0, buf1, x2, x3, x4, x5, x6);
28
29 return err;
30 }
31