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