This source file includes following definitions.
- mpi_file_get_atomicity_
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_ATOMICITY( MPI_Fint *, MPI_Fint *, MPI_Fint * );
18 #pragma weak MPI_FILE_GET_ATOMICITY = PMPI_FILE_GET_ATOMICITY
19 #elif defined(FORTRANDOUBLEUNDERSCORE)
20 extern FORTRAN_API void FORT_CALL mpi_file_get_atomicity__( MPI_Fint *, MPI_Fint *, MPI_Fint * );
21 #pragma weak mpi_file_get_atomicity__ = pmpi_file_get_atomicity__
22 #elif !defined(FORTRANUNDERSCORE)
23 extern FORTRAN_API void FORT_CALL mpi_file_get_atomicity( MPI_Fint *, MPI_Fint *, MPI_Fint * );
24 #pragma weak mpi_file_get_atomicity = pmpi_file_get_atomicity
25 #else
26 extern FORTRAN_API void FORT_CALL mpi_file_get_atomicity_( MPI_Fint *, MPI_Fint *, MPI_Fint * );
27 #pragma weak mpi_file_get_atomicity_ = pmpi_file_get_atomicity_
28 #endif
29
30 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
31 #if defined(FORTRANCAPS)
32 #pragma _HP_SECONDARY_DEF PMPI_FILE_GET_ATOMICITY MPI_FILE_GET_ATOMICITY
33 #elif defined(FORTRANDOUBLEUNDERSCORE)
34 #pragma _HP_SECONDARY_DEF pmpi_file_get_atomicity__ mpi_file_get_atomicity__
35 #elif !defined(FORTRANUNDERSCORE)
36 #pragma _HP_SECONDARY_DEF pmpi_file_get_atomicity mpi_file_get_atomicity
37 #else
38 #pragma _HP_SECONDARY_DEF pmpi_file_get_atomicity_ mpi_file_get_atomicity_
39 #endif
40
41 #elif defined(HAVE_PRAGMA_CRI_DUP)
42 #if defined(FORTRANCAPS)
43 #pragma _CRI duplicate MPI_FILE_GET_ATOMICITY as PMPI_FILE_GET_ATOMICITY
44 #elif defined(FORTRANDOUBLEUNDERSCORE)
45 #pragma _CRI duplicate mpi_file_get_atomicity__ as pmpi_file_get_atomicity__
46 #elif !defined(FORTRANUNDERSCORE)
47 #pragma _CRI duplicate mpi_file_get_atomicity as pmpi_file_get_atomicity
48 #else
49 #pragma _CRI duplicate mpi_file_get_atomicity_ as pmpi_file_get_atomicity_
50 #endif
51
52
53 #endif
54
55 #include "mpioprof.h"
56 #endif
57
58 #ifdef FORTRANCAPS
59 #define mpi_file_get_atomicity_ PMPI_FILE_GET_ATOMICITY
60 #elif defined(FORTRANDOUBLEUNDERSCORE)
61 #define mpi_file_get_atomicity_ pmpi_file_get_atomicity__
62 #elif !defined(FORTRANUNDERSCORE)
63 #if defined(HPUX) || defined(SPPUX)
64 #pragma _HP_SECONDARY_DEF pmpi_file_get_atomicity pmpi_file_get_atomicity_
65 #endif
66 #define mpi_file_get_atomicity_ pmpi_file_get_atomicity
67 #else
68 #if defined(HPUX) || defined(SPPUX)
69 #pragma _HP_SECONDARY_DEF pmpi_file_get_atomicity_ pmpi_file_get_atomicity
70 #endif
71 #define mpi_file_get_atomicity_ pmpi_file_get_atomicity_
72 #endif
73
74 #else
75
76 #ifdef FORTRANCAPS
77 #define mpi_file_get_atomicity_ MPI_FILE_GET_ATOMICITY
78 #elif defined(FORTRANDOUBLEUNDERSCORE)
79 #define mpi_file_get_atomicity_ mpi_file_get_atomicity__
80 #elif !defined(FORTRANUNDERSCORE)
81 #if defined(HPUX) || defined(SPPUX)
82 #pragma _HP_SECONDARY_DEF mpi_file_get_atomicity mpi_file_get_atomicity_
83 #endif
84 #define mpi_file_get_atomicity_ mpi_file_get_atomicity
85 #else
86 #if defined(HPUX) || defined(SPPUX)
87 #pragma _HP_SECONDARY_DEF mpi_file_get_atomicity_ mpi_file_get_atomicity
88 #endif
89 #endif
90 #endif
91
92
93 FORTRAN_API void FORT_CALL mpi_file_get_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr );
94
95 FORTRAN_API void FORT_CALL mpi_file_get_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr )
96 {
97 MPI_File fh_c;
98
99 fh_c = MPI_File_f2c(*fh);
100 *ierr = MPI_File_get_atomicity(fh_c, flag);
101 }
102