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_File_iread_at_all_cdesc(MPI_File x0,MPI_Offset x1,CFI_cdesc_t * x2,int x3,MPI_Datatype x4,MPI_Request * x5)11 int MPIR_File_iread_at_all_cdesc(MPI_File x0, MPI_Offset x1, CFI_cdesc_t* x2, int x3, MPI_Datatype x4, MPI_Request * x5)
12 {
13 int err = MPI_SUCCESS;
14 #ifdef MPI_MODE_RDONLY
15 void *buf2 = x2->base_addr;
16 int count2 = x3;
17 MPI_Datatype dtype2 = x4;
18
19 if (buf2 == &MPIR_F08_MPI_BOTTOM) {
20 buf2 = MPI_BOTTOM;
21 }
22
23 if (x2->rank != 0 && !CFI_is_contiguous(x2)) {
24 err = cdesc_create_datatype(x2, x3, x4, &dtype2);
25 count2 = 1;
26 }
27
28 err = MPI_File_iread_at_all(x0, x1, buf2, count2, dtype2, x5);
29
30 if (dtype2 != x4) MPI_Type_free(&dtype2);
31 #else
32 err = MPI_ERR_INTERN;
33 #endif
34 return err;
35 }
36