1 /*
2 * Copyright (C) by Argonne National Laboratory
3 * See COPYRIGHT in top-level directory
4 */
5
6 #include "mpioimpl.h"
7
8 #ifdef HAVE_WEAK_SYMBOLS
9
10 #if defined(HAVE_PRAGMA_WEAK)
11 #pragma weak MPI_File_read_at_all_end = PMPI_File_read_at_all_end
12 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
13 #pragma _HP_SECONDARY_DEF PMPI_File_read_at_all_end MPI_File_read_at_all_end
14 #elif defined(HAVE_PRAGMA_CRI_DUP)
15 #pragma _CRI duplicate MPI_File_read_at_all_end as PMPI_File_read_at_all_end
16 /* end of weak pragmas */
17 #elif defined(HAVE_WEAK_ATTRIBUTE)
18 int MPI_File_read_at_all_end(MPI_File fh, void *buf, MPI_Status * status)
19 __attribute__ ((weak, alias("PMPI_File_read_at_all_end")));
20 #endif
21
22 /* Include mapping from MPI->PMPI */
23 #define MPIO_BUILD_PROFILING
24 #include "mpioprof.h"
25 #endif
26
27 /*@
28 MPI_File_read_at_all_end - Complete a split collective read using
29 explicit offset
30
31 Input Parameters:
32 . fh - file handle (handle)
33
34 Output Parameters:
35 . buf - initial address of buffer (choice)
36 . status - status object (Status)
37
38 .N fortran
39 @*/
MPI_File_read_at_all_end(MPI_File fh,void * buf,MPI_Status * status)40 int MPI_File_read_at_all_end(MPI_File fh, void *buf, MPI_Status * status)
41 {
42 int error_code;
43 static char myname[] = "MPI_FILE_READ_AT_ALL_END";
44
45
46 error_code = MPIOI_File_read_all_end(fh, buf, myname, status);
47
48 return error_code;
49 }
50