Skip to content

Commit bf38f82

Browse files
ggouaillardetggouaillardet
committed
MPI_Win_{get,set}_info: add missing files
fixes commit 558d34a
1 parent 7179d44 commit bf38f82

File tree

6 files changed

+212
-0
lines changed

6 files changed

+212
-0
lines changed

‎ompi/mpi/fortran/mpif-h/win_get_info_f.c‎

Lines changed: 68 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,68 @@
1+
/*
2+
* Copyright (c) 2015 Research Organization for Information Science
3+
* and Technology (RIST). All rights reserved.
4+
* $COPYRIGHT$
5+
*
6+
* Additional copyrights may follow
7+
*
8+
* $HEADER$
9+
*/
10+
11+
#include "ompi_config.h"
12+
13+
#include "ompi/mpi/fortran/mpif-h/bindings.h"
14+
15+
#if OPAL_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
16+
#pragma weak PMPI_WIN_GET_INFO = ompi_win_get_info_f
17+
#pragma weak pmpi_win_get_info = ompi_win_get_info_f
18+
#pragma weak pmpi_win_get_info_ = ompi_win_get_info_f
19+
#pragma weak pmpi_win_get_info__ = ompi_win_get_info_f
20+
21+
#pragma weak PMPI_Win_create_f = ompi_win_get_info_f
22+
#pragma weak PMPI_Win_create_f08 = ompi_win_get_info_f
23+
#elif OMPI_PROFILE_LAYER
24+
OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_GET_INFO,
25+
pmpi_win_get_info,
26+
pmpi_win_get_info_,
27+
pmpi_win_get_info__,
28+
pompi_win_get_info_f,
29+
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
30+
(win, info, ierr) )
31+
#endif
32+
33+
#if OPAL_HAVE_WEAK_SYMBOLS
34+
#pragma weak MPI_WIN_GET_INFO = ompi_win_get_info_f
35+
#pragma weak mpi_win_get_info = ompi_win_get_info_f
36+
#pragma weak mpi_win_get_info_ = ompi_win_get_info_f
37+
#pragma weak mpi_win_get_info__ = ompi_win_get_info_f
38+
39+
#pragma weak MPI_Win_create_f = ompi_win_get_info_f
40+
#pragma weak MPI_Win_create_f08 = ompi_win_get_info_f
41+
#endif
42+
43+
#if ! OPAL_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER
44+
OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_INFO,
45+
mpi_win_get_info,
46+
mpi_win_get_info_,
47+
mpi_win_get_info__,
48+
ompi_win_get_info_f,
49+
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
50+
(win, info, ierr) )
51+
#endif
52+
53+
54+
#if OMPI_PROFILE_LAYER && ! OPAL_HAVE_WEAK_SYMBOLS
55+
#include "ompi/mpi/fortran/mpif-h/profile/defines.h"
56+
#endif
57+
58+
void ompi_win_get_info_f(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr)
59+
{
60+
int c_ierr;
61+
MPI_Win c_win;
62+
MPI_Info c_info;
63+
64+
c_win = MPI_Win_f2c(*win);
65+
c_ierr = MPI_Win_get_info(c_win, &c_info);
66+
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
67+
*info = MPI_Info_c2f(c_info);
68+
}

‎ompi/mpi/fortran/mpif-h/win_set_info_f.c‎

Lines changed: 68 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,68 @@
1+
/*
2+
* Copyright (c) 2015 Research Organization for Information Science
3+
* and Technology (RIST). All rights reserved.
4+
* $COPYRIGHT$
5+
*
6+
* Additional copyrights may follow
7+
*
8+
* $HEADER$
9+
*/
10+
11+
#include "ompi_config.h"
12+
13+
#include "ompi/mpi/fortran/mpif-h/bindings.h"
14+
15+
#if OPAL_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
16+
#pragma weak PMPI_WIN_SET_INFO = ompi_win_set_info_f
17+
#pragma weak pmpi_win_set_info = ompi_win_set_info_f
18+
#pragma weak pmpi_win_set_info_ = ompi_win_set_info_f
19+
#pragma weak pmpi_win_set_info__ = ompi_win_set_info_f
20+
21+
#pragma weak PMPI_Win_create_f = ompi_win_set_info_f
22+
#pragma weak PMPI_Win_create_f08 = ompi_win_set_info_f
23+
#elif OMPI_PROFILE_LAYER
24+
OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_SET_INFO,
25+
pmpi_win_set_info,
26+
pmpi_win_set_info_,
27+
pmpi_win_set_info__,
28+
pompi_win_set_info_f,
29+
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
30+
(win, info, ierr) )
31+
#endif
32+
33+
#if OPAL_HAVE_WEAK_SYMBOLS
34+
#pragma weak MPI_WIN_SET_INFO = ompi_win_set_info_f
35+
#pragma weak mpi_win_set_info = ompi_win_set_info_f
36+
#pragma weak mpi_win_set_info_ = ompi_win_set_info_f
37+
#pragma weak mpi_win_set_info__ = ompi_win_set_info_f
38+
39+
#pragma weak MPI_Win_create_f = ompi_win_set_info_f
40+
#pragma weak MPI_Win_create_f08 = ompi_win_set_info_f
41+
#endif
42+
43+
#if ! OPAL_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER
44+
OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SET_INFO,
45+
mpi_win_set_info,
46+
mpi_win_set_info_,
47+
mpi_win_set_info__,
48+
ompi_win_set_info_f,
49+
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
50+
(win, info, ierr) )
51+
#endif
52+
53+
54+
#if OMPI_PROFILE_LAYER && ! OPAL_HAVE_WEAK_SYMBOLS
55+
#include "ompi/mpi/fortran/mpif-h/profile/defines.h"
56+
#endif
57+
58+
void ompi_win_set_info_f(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr)
59+
{
60+
int c_ierr;
61+
MPI_Win c_win;
62+
MPI_Info c_info;
63+
64+
c_win = MPI_Win_f2c(*win);
65+
c_info = MPI_Info_f2c(*info);
66+
c_ierr = MPI_Win_set_info(c_win, c_info);
67+
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
68+
}

‎ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
! -*- f90 -*-
2+
!
3+
! Copyright (c) 2015 Research Organization for Information Science
4+
! and Technology (RIST). All rights reserved.
5+
! $COPYRIGHT$
6+
7+
subroutine PMPI_Win_get_info_f08(win,info,ierror)
8+
use :: mpi_f08_types, only : MPI_Win, MPI_Info
9+
use :: mpi_f08, only : ompi_win_get_info_f
10+
implicit none
11+
TYPE(MPI_Win), INTENT(IN) :: win
12+
TYPE(MPI_Info), INTENT(OUT) :: info
13+
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
14+
integer :: c_ierror
15+
16+
call ompi_win_get_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
17+
if (present(ierror)) ierror = c_ierror
18+
19+
end subroutine PMPI_Win_get_info_f08

‎ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
! -*- f90 -*-
2+
!
3+
! Copyright (c) 2015 Research Organization for Information Science
4+
! and Technology (RIST). All rights reserved.
5+
! $COPYRIGHT$
6+
7+
subroutine PMPI_Win_set_info_f08(win,info,ierror)
8+
use :: mpi_f08_types, only : MPI_Win, MPI_Info
9+
use :: mpi_f08, only : ompi_win_set_info_f
10+
implicit none
11+
TYPE(MPI_Win), INTENT(IN) :: win
12+
TYPE(MPI_Info), INTENT(IN) :: info
13+
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
14+
integer :: c_ierror
15+
16+
call ompi_win_set_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
17+
if (present(ierror)) ierror = c_ierror
18+
19+
end subroutine PMPI_Win_set_info_f08

‎ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
! -*- f90 -*-
2+
!
3+
! Copyright (c) 2015 Research Organization for Information Science
4+
! and Technology (RIST). All rights reserved.
5+
! $COPYRIGHT$
6+
7+
subroutine MPI_Win_get_info_f08(win,info,ierror)
8+
use :: mpi_f08_types, only : MPI_Win, MPI_Info
9+
use :: mpi_f08, only : ompi_win_get_info_f
10+
implicit none
11+
TYPE(MPI_Win), INTENT(IN) :: win
12+
TYPE(MPI_Info), INTENT(OUT) :: info
13+
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
14+
integer :: c_ierror
15+
16+
call ompi_win_get_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
17+
if (present(ierror)) ierror = c_ierror
18+
19+
end subroutine MPI_Win_get_info_f08

‎ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
! -*- f90 -*-
2+
!
3+
! Copyright (c) 2015 Research Organization for Information Science
4+
! and Technology (RIST). All rights reserved.
5+
! $COPYRIGHT$
6+
7+
subroutine MPI_Win_set_info_f08(win,info,ierror)
8+
use :: mpi_f08_types, only : MPI_Win, MPI_Info
9+
use :: mpi_f08, only : ompi_win_set_info_f
10+
implicit none
11+
TYPE(MPI_Win), INTENT(IN) :: win
12+
TYPE(MPI_Info), INTENT(IN) :: info
13+
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
14+
integer :: c_ierror
15+
16+
call ompi_win_set_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
17+
if (present(ierror)) ierror = c_ierror
18+
19+
end subroutine MPI_Win_set_info_f08

0 commit comments

Comments
 (0)