1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
2 /*
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
5 *
6 * This file is automatically generated by buildiface
7 * DO NOT EDIT
8 */
9 #include "mpi_fortimpl.h"
10
11
12 /* Begin MPI profiling block */
13 #if defined(USE_WEAK_SYMBOLS) && !defined(USE_ONLY_MPI_NAMES)
14 #if defined(HAVE_MULTIPLE_PRAGMA_WEAK)
15 extern FORT_DLL_SPEC void FORT_CALL MPI_WIN_COMPLETE( MPI_Fint *, MPI_Fint * );
16 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete__( MPI_Fint *, MPI_Fint * );
17 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete( MPI_Fint *, MPI_Fint * );
18 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete_( MPI_Fint *, MPI_Fint * );
19
20 #if defined(F77_NAME_UPPER)
21 #pragma weak MPI_WIN_COMPLETE = PMPI_WIN_COMPLETE
22 #pragma weak mpi_win_complete__ = PMPI_WIN_COMPLETE
23 #pragma weak mpi_win_complete_ = PMPI_WIN_COMPLETE
24 #pragma weak mpi_win_complete = PMPI_WIN_COMPLETE
25 #elif defined(F77_NAME_LOWER_2USCORE)
26 #pragma weak MPI_WIN_COMPLETE = pmpi_win_complete__
27 #pragma weak mpi_win_complete__ = pmpi_win_complete__
28 #pragma weak mpi_win_complete_ = pmpi_win_complete__
29 #pragma weak mpi_win_complete = pmpi_win_complete__
30 #elif defined(F77_NAME_LOWER_USCORE)
31 #pragma weak MPI_WIN_COMPLETE = pmpi_win_complete_
32 #pragma weak mpi_win_complete__ = pmpi_win_complete_
33 #pragma weak mpi_win_complete_ = pmpi_win_complete_
34 #pragma weak mpi_win_complete = pmpi_win_complete_
35 #else
36 #pragma weak MPI_WIN_COMPLETE = pmpi_win_complete
37 #pragma weak mpi_win_complete__ = pmpi_win_complete
38 #pragma weak mpi_win_complete_ = pmpi_win_complete
39 #pragma weak mpi_win_complete = pmpi_win_complete
40 #endif
41
42
43
44 #elif defined(HAVE_PRAGMA_WEAK)
45
46 #if defined(F77_NAME_UPPER)
47 extern FORT_DLL_SPEC void FORT_CALL MPI_WIN_COMPLETE( MPI_Fint *, MPI_Fint * );
48
49 #pragma weak MPI_WIN_COMPLETE = PMPI_WIN_COMPLETE
50 #elif defined(F77_NAME_LOWER_2USCORE)
51 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete__( MPI_Fint *, MPI_Fint * );
52
53 #pragma weak mpi_win_complete__ = pmpi_win_complete__
54 #elif !defined(F77_NAME_LOWER_USCORE)
55 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete( MPI_Fint *, MPI_Fint * );
56
57 #pragma weak mpi_win_complete = pmpi_win_complete
58 #else
59 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete_( MPI_Fint *, MPI_Fint * );
60
61 #pragma weak mpi_win_complete_ = pmpi_win_complete_
62 #endif
63
64 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
65 #if defined(F77_NAME_UPPER)
66 #pragma _HP_SECONDARY_DEF PMPI_WIN_COMPLETE MPI_WIN_COMPLETE
67 #elif defined(F77_NAME_LOWER_2USCORE)
68 #pragma _HP_SECONDARY_DEF pmpi_win_complete__ mpi_win_complete__
69 #elif !defined(F77_NAME_LOWER_USCORE)
70 #pragma _HP_SECONDARY_DEF pmpi_win_complete mpi_win_complete
71 #else
72 #pragma _HP_SECONDARY_DEF pmpi_win_complete_ mpi_win_complete_
73 #endif
74
75 #elif defined(HAVE_PRAGMA_CRI_DUP)
76 #if defined(F77_NAME_UPPER)
77 #pragma _CRI duplicate MPI_WIN_COMPLETE as PMPI_WIN_COMPLETE
78 #elif defined(F77_NAME_LOWER_2USCORE)
79 #pragma _CRI duplicate mpi_win_complete__ as pmpi_win_complete__
80 #elif !defined(F77_NAME_LOWER_USCORE)
81 #pragma _CRI duplicate mpi_win_complete as pmpi_win_complete
82 #else
83 #pragma _CRI duplicate mpi_win_complete_ as pmpi_win_complete_
84 #endif
85 #endif /* HAVE_PRAGMA_WEAK */
86 #endif /* USE_WEAK_SYMBOLS */
87 /* End MPI profiling block */
88
89
90 /* These definitions are used only for generating the Fortran wrappers */
91 #if defined(USE_WEAK_SYMBOLS) && defined(HAVE_MULTIPLE_PRAGMA_WEAK) && \
92 defined(USE_ONLY_MPI_NAMES)
93 extern FORT_DLL_SPEC void FORT_CALL MPI_WIN_COMPLETE( MPI_Fint *, MPI_Fint * );
94 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete__( MPI_Fint *, MPI_Fint * );
95 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete( MPI_Fint *, MPI_Fint * );
96 extern FORT_DLL_SPEC void FORT_CALL mpi_win_complete_( MPI_Fint *, MPI_Fint * );
97
98 #if defined(F77_NAME_UPPER)
99 #pragma weak mpi_win_complete__ = MPI_WIN_COMPLETE
100 #pragma weak mpi_win_complete_ = MPI_WIN_COMPLETE
101 #pragma weak mpi_win_complete = MPI_WIN_COMPLETE
102 #elif defined(F77_NAME_LOWER_2USCORE)
103 #pragma weak MPI_WIN_COMPLETE = mpi_win_complete__
104 #pragma weak mpi_win_complete_ = mpi_win_complete__
105 #pragma weak mpi_win_complete = mpi_win_complete__
106 #elif defined(F77_NAME_LOWER_USCORE)
107 #pragma weak MPI_WIN_COMPLETE = mpi_win_complete_
108 #pragma weak mpi_win_complete__ = mpi_win_complete_
109 #pragma weak mpi_win_complete = mpi_win_complete_
110 #else
111 #pragma weak MPI_WIN_COMPLETE = mpi_win_complete
112 #pragma weak mpi_win_complete__ = mpi_win_complete
113 #pragma weak mpi_win_complete_ = mpi_win_complete
114 #endif
115
116 #endif
117
118 /* Map the name to the correct form */
119 #ifndef MPICH_MPI_FROM_PMPI
120 #if defined(USE_WEAK_SYMBOLS) && defined(HAVE_MULTIPLE_PRAGMA_WEAK)
121 /* Define the weak versions of the PMPI routine*/
122 #ifndef F77_NAME_UPPER
123 extern FORT_DLL_SPEC void FORT_CALL PMPI_WIN_COMPLETE( MPI_Fint *, MPI_Fint * );
124 #endif
125 #ifndef F77_NAME_LOWER_2USCORE
126 extern FORT_DLL_SPEC void FORT_CALL pmpi_win_complete__( MPI_Fint *, MPI_Fint * );
127 #endif
128 #ifndef F77_NAME_LOWER_USCORE
129 extern FORT_DLL_SPEC void FORT_CALL pmpi_win_complete_( MPI_Fint *, MPI_Fint * );
130 #endif
131 #ifndef F77_NAME_LOWER
132 extern FORT_DLL_SPEC void FORT_CALL pmpi_win_complete( MPI_Fint *, MPI_Fint * );
133
134 #endif
135
136 #if defined(F77_NAME_UPPER)
137 #pragma weak pmpi_win_complete__ = PMPI_WIN_COMPLETE
138 #pragma weak pmpi_win_complete_ = PMPI_WIN_COMPLETE
139 #pragma weak pmpi_win_complete = PMPI_WIN_COMPLETE
140 #elif defined(F77_NAME_LOWER_2USCORE)
141 #pragma weak PMPI_WIN_COMPLETE = pmpi_win_complete__
142 #pragma weak pmpi_win_complete_ = pmpi_win_complete__
143 #pragma weak pmpi_win_complete = pmpi_win_complete__
144 #elif defined(F77_NAME_LOWER_USCORE)
145 #pragma weak PMPI_WIN_COMPLETE = pmpi_win_complete_
146 #pragma weak pmpi_win_complete__ = pmpi_win_complete_
147 #pragma weak pmpi_win_complete = pmpi_win_complete_
148 #else
149 #pragma weak PMPI_WIN_COMPLETE = pmpi_win_complete
150 #pragma weak pmpi_win_complete__ = pmpi_win_complete
151 #pragma weak pmpi_win_complete_ = pmpi_win_complete
152 #endif /* Test on name mapping */
153 #endif /* Use multiple pragma weak */
154
155 #ifdef F77_NAME_UPPER
156 #define mpi_win_complete_ PMPI_WIN_COMPLETE
157 #elif defined(F77_NAME_LOWER_2USCORE)
158 #define mpi_win_complete_ pmpi_win_complete__
159 #elif !defined(F77_NAME_LOWER_USCORE)
160 #define mpi_win_complete_ pmpi_win_complete
161 #else
162 #define mpi_win_complete_ pmpi_win_complete_
163 #endif /* Test on name mapping */
164
165 /* This defines the routine that we call, which must be the PMPI version
166 since we're renaming the Fortran entry as the pmpi version. The MPI name
167 must be undefined first to prevent any conflicts with previous renamings. */
168 #undef MPI_Win_complete
169 #define MPI_Win_complete PMPI_Win_complete
170
171 #else
172
173 #ifdef F77_NAME_UPPER
174 #define mpi_win_complete_ MPI_WIN_COMPLETE
175 #elif defined(F77_NAME_LOWER_2USCORE)
176 #define mpi_win_complete_ mpi_win_complete__
177 #elif !defined(F77_NAME_LOWER_USCORE)
178 #define mpi_win_complete_ mpi_win_complete
179 /* Else leave name alone */
180 #endif
181
182
183 #endif /* MPICH_MPI_FROM_PMPI */
184
185 /* Prototypes for the Fortran interfaces */
186 #include "fproto.h"
mpi_win_complete_(MPI_Fint * v1,MPI_Fint * ierr)187 FORT_DLL_SPEC void FORT_CALL mpi_win_complete_ ( MPI_Fint *v1, MPI_Fint *ierr ){
188 *ierr = MPI_Win_complete( *v1 );
189 }
190