This source file includes following definitions.
- ompi_win_attach_f
1
2
3
4
5
6
7
8
9
10
11 #include "ompi_config.h"
12
13 #include "ompi/mpi/fortran/mpif-h/bindings.h"
14
15 #if OMPI_BUILD_MPI_PROFILING
16 #if OPAL_HAVE_WEAK_SYMBOLS
17 #pragma weak PMPI_WIN_ATTACH = ompi_win_attach_f
18 #pragma weak pmpi_win_attach = ompi_win_attach_f
19 #pragma weak pmpi_win_attach_ = ompi_win_attach_f
20 #pragma weak pmpi_win_attach__ = ompi_win_attach_f
21
22 #pragma weak PMPI_Win_attach_f = ompi_win_attach_f
23 #pragma weak PMPI_Win_attach_f08 = ompi_win_attach_f
24 #else
25 OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_ATTACH,
26 pmpi_win_attach,
27 pmpi_win_attach_,
28 pmpi_win_attach__,
29 pompi_win_attach_f,
30 (MPI_Fint *win, char *base, MPI_Aint *size, MPI_Fint *ierr),
31 (win, base, size, ierr) )
32 #endif
33 #endif
34
35 #if OPAL_HAVE_WEAK_SYMBOLS
36 #pragma weak MPI_WIN_ATTACH = ompi_win_attach_f
37 #pragma weak mpi_win_attach = ompi_win_attach_f
38 #pragma weak mpi_win_attach_ = ompi_win_attach_f
39 #pragma weak mpi_win_attach__ = ompi_win_attach_f
40
41 #pragma weak MPI_Win_attach_f = ompi_win_attach_f
42 #pragma weak MPI_Win_attach_f08 = ompi_win_attach_f
43 #else
44 #if ! OMPI_BUILD_MPI_PROFILING
45 OMPI_GENERATE_F77_BINDINGS (MPI_WIN_ATTACH,
46 mpi_win_attach,
47 mpi_win_attach_,
48 mpi_win_attach__,
49 ompi_win_attach_f,
50 (MPI_Fint *win, char *base, MPI_Aint *size, MPI_Fint *ierr),
51 (win, base, size, ierr) )
52 #else
53 #define ompi_win_attach_f pompi_win_attach_f
54 #endif
55 #endif
56
57
58 void ompi_win_attach_f(MPI_Fint *win, char *base, MPI_Aint *size,
59 MPI_Fint *ierr)
60 {
61 int c_ierr;
62 MPI_Win c_win;
63
64 c_win = PMPI_Win_f2c(*win);
65 c_ierr = PMPI_Win_attach(c_win, base, *size);
66 if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
67 }