This source file includes following definitions.
- mpi_file_get_amode_
1
2
3
4
5
6
7
8 #include "adio.h"
9 #include "mpio.h"
10
11
12 #if defined(MPIO_BUILD_PROFILING) || defined(HAVE_WEAK_SYMBOLS)
13
14 #if defined(HAVE_WEAK_SYMBOLS)
15 #if defined(HAVE_PRAGMA_WEAK)
16 #if defined(FORTRANCAPS)
17 extern FORTRAN_API void FORT_CALL MPI_FILE_GET_AMODE( MPI_Fint *, MPI_Fint *, MPI_Fint * );
18 #pragma weak MPI_FILE_GET_AMODE = PMPI_FILE_GET_AMODE
19 #elif defined(FORTRANDOUBLEUNDERSCORE)
20 extern FORTRAN_API void FORT_CALL mpi_file_get_amode__( MPI_Fint *, MPI_Fint *, MPI_Fint * );
21 #pragma weak mpi_file_get_amode__ = pmpi_file_get_amode__
22 #elif !defined(FORTRANUNDERSCORE)
23 extern FORTRAN_API void FORT_CALL mpi_file_get_amode( MPI_Fint *, MPI_Fint *, MPI_Fint * );
24 #pragma weak mpi_file_get_amode = pmpi_file_get_amode
25 #else
26 extern FORTRAN_API void FORT_CALL mpi_file_get_amode_( MPI_Fint *, MPI_Fint *, MPI_Fint * );
27 #pragma weak mpi_file_get_amode_ = pmpi_file_get_amode_
28 #endif
29
30 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
31 #if defined(FORTRANCAPS)
32 #pragma _HP_SECONDARY_DEF PMPI_FILE_GET_AMODE MPI_FILE_GET_AMODE
33 #elif defined(FORTRANDOUBLEUNDERSCORE)
34 #pragma _HP_SECONDARY_DEF pmpi_file_get_amode__ mpi_file_get_amode__
35 #elif !defined(FORTRANUNDERSCORE)
36 #pragma _HP_SECONDARY_DEF pmpi_file_get_amode mpi_file_get_amode
37 #else
38 #pragma _HP_SECONDARY_DEF pmpi_file_get_amode_ mpi_file_get_amode_
39 #endif
40
41 #elif defined(HAVE_PRAGMA_CRI_DUP)
42 #if defined(FORTRANCAPS)
43 #pragma _CRI duplicate MPI_FILE_GET_AMODE as PMPI_FILE_GET_AMODE
44 #elif defined(FORTRANDOUBLEUNDERSCORE)
45 #pragma _CRI duplicate mpi_file_get_amode__ as pmpi_file_get_amode__
46 #elif !defined(FORTRANUNDERSCORE)
47 #pragma _CRI duplicate mpi_file_get_amode as pmpi_file_get_amode
48 #else
49 #pragma _CRI duplicate mpi_file_get_amode_ as pmpi_file_get_amode_
50 #endif
51
52
53 #endif
54
55 #include "mpioprof.h"
56 #endif
57
58 #ifdef FORTRANCAPS
59 #define mpi_file_get_amode_ PMPI_FILE_GET_AMODE
60 #elif defined(FORTRANDOUBLEUNDERSCORE)
61 #define mpi_file_get_amode_ pmpi_file_get_amode__
62 #elif !defined(FORTRANUNDERSCORE)
63 #if defined(HPUX) || defined(SPPUX)
64 #pragma _HP_SECONDARY_DEF pmpi_file_get_amode pmpi_file_get_amode_
65 #endif
66 #define mpi_file_get_amode_ pmpi_file_get_amode
67 #else
68 #if defined(HPUX) || defined(SPPUX)
69 #pragma _HP_SECONDARY_DEF pmpi_file_get_amode_ pmpi_file_get_amode
70 #endif
71 #define mpi_file_get_amode_ pmpi_file_get_amode_
72 #endif
73
74 #else
75
76 #ifdef FORTRANCAPS
77 #define mpi_file_get_amode_ MPI_FILE_GET_AMODE
78 #elif defined(FORTRANDOUBLEUNDERSCORE)
79 #define mpi_file_get_amode_ mpi_file_get_amode__
80 #elif !defined(FORTRANUNDERSCORE)
81 #if defined(HPUX) || defined(SPPUX)
82 #pragma _HP_SECONDARY_DEF mpi_file_get_amode mpi_file_get_amode_
83 #endif
84 #define mpi_file_get_amode_ mpi_file_get_amode
85 #else
86 #if defined(HPUX) || defined(SPPUX)
87 #pragma _HP_SECONDARY_DEF mpi_file_get_amode_ mpi_file_get_amode
88 #endif
89 #endif
90 #endif
91
92
93 FORTRAN_API void FORT_CALL mpi_file_get_amode_(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr );
94
95 FORTRAN_API void FORT_CALL mpi_file_get_amode_(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr )
96 {
97 MPI_File fh_c;
98
99 fh_c = MPI_File_f2c(*fh);
100 *ierr = MPI_File_get_amode(fh_c, amode);
101 }