MPI_Win_{get,set}_info: add missing files
fixes commit open-mpi/ompi@558d34a5c3
Этот коммит содержится в:
Gilles Gouaillardet
родитель
7179d442c0
Коммит
bf38f82dc2
68
ompi/mpi/fortran/mpif-h/win_get_info_f.c
Обычный файл
68
ompi/mpi/fortran/mpif-h/win_get_info_f.c
Обычный файл
@ -0,0 +1,68 @@
|
|||||||
|
/*
|
||||||
|
* Copyright (c) 2015 Research Organization for Information Science
|
||||||
|
* and Technology (RIST). All rights reserved.
|
||||||
|
* $COPYRIGHT$
|
||||||
|
*
|
||||||
|
* Additional copyrights may follow
|
||||||
|
*
|
||||||
|
* $HEADER$
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "ompi_config.h"
|
||||||
|
|
||||||
|
#include "ompi/mpi/fortran/mpif-h/bindings.h"
|
||||||
|
|
||||||
|
#if OPAL_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
|
||||||
|
#pragma weak PMPI_WIN_GET_INFO = ompi_win_get_info_f
|
||||||
|
#pragma weak pmpi_win_get_info = ompi_win_get_info_f
|
||||||
|
#pragma weak pmpi_win_get_info_ = ompi_win_get_info_f
|
||||||
|
#pragma weak pmpi_win_get_info__ = ompi_win_get_info_f
|
||||||
|
|
||||||
|
#pragma weak PMPI_Win_create_f = ompi_win_get_info_f
|
||||||
|
#pragma weak PMPI_Win_create_f08 = ompi_win_get_info_f
|
||||||
|
#elif OMPI_PROFILE_LAYER
|
||||||
|
OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_GET_INFO,
|
||||||
|
pmpi_win_get_info,
|
||||||
|
pmpi_win_get_info_,
|
||||||
|
pmpi_win_get_info__,
|
||||||
|
pompi_win_get_info_f,
|
||||||
|
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
|
||||||
|
(win, info, ierr) )
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if OPAL_HAVE_WEAK_SYMBOLS
|
||||||
|
#pragma weak MPI_WIN_GET_INFO = ompi_win_get_info_f
|
||||||
|
#pragma weak mpi_win_get_info = ompi_win_get_info_f
|
||||||
|
#pragma weak mpi_win_get_info_ = ompi_win_get_info_f
|
||||||
|
#pragma weak mpi_win_get_info__ = ompi_win_get_info_f
|
||||||
|
|
||||||
|
#pragma weak MPI_Win_create_f = ompi_win_get_info_f
|
||||||
|
#pragma weak MPI_Win_create_f08 = ompi_win_get_info_f
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if ! OPAL_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER
|
||||||
|
OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_INFO,
|
||||||
|
mpi_win_get_info,
|
||||||
|
mpi_win_get_info_,
|
||||||
|
mpi_win_get_info__,
|
||||||
|
ompi_win_get_info_f,
|
||||||
|
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
|
||||||
|
(win, info, ierr) )
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
#if OMPI_PROFILE_LAYER && ! OPAL_HAVE_WEAK_SYMBOLS
|
||||||
|
#include "ompi/mpi/fortran/mpif-h/profile/defines.h"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
void ompi_win_get_info_f(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr)
|
||||||
|
{
|
||||||
|
int c_ierr;
|
||||||
|
MPI_Win c_win;
|
||||||
|
MPI_Info c_info;
|
||||||
|
|
||||||
|
c_win = MPI_Win_f2c(*win);
|
||||||
|
c_ierr = MPI_Win_get_info(c_win, &c_info);
|
||||||
|
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
|
||||||
|
*info = MPI_Info_c2f(c_info);
|
||||||
|
}
|
||||||
68
ompi/mpi/fortran/mpif-h/win_set_info_f.c
Обычный файл
68
ompi/mpi/fortran/mpif-h/win_set_info_f.c
Обычный файл
@ -0,0 +1,68 @@
|
|||||||
|
/*
|
||||||
|
* Copyright (c) 2015 Research Organization for Information Science
|
||||||
|
* and Technology (RIST). All rights reserved.
|
||||||
|
* $COPYRIGHT$
|
||||||
|
*
|
||||||
|
* Additional copyrights may follow
|
||||||
|
*
|
||||||
|
* $HEADER$
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "ompi_config.h"
|
||||||
|
|
||||||
|
#include "ompi/mpi/fortran/mpif-h/bindings.h"
|
||||||
|
|
||||||
|
#if OPAL_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
|
||||||
|
#pragma weak PMPI_WIN_SET_INFO = ompi_win_set_info_f
|
||||||
|
#pragma weak pmpi_win_set_info = ompi_win_set_info_f
|
||||||
|
#pragma weak pmpi_win_set_info_ = ompi_win_set_info_f
|
||||||
|
#pragma weak pmpi_win_set_info__ = ompi_win_set_info_f
|
||||||
|
|
||||||
|
#pragma weak PMPI_Win_create_f = ompi_win_set_info_f
|
||||||
|
#pragma weak PMPI_Win_create_f08 = ompi_win_set_info_f
|
||||||
|
#elif OMPI_PROFILE_LAYER
|
||||||
|
OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_SET_INFO,
|
||||||
|
pmpi_win_set_info,
|
||||||
|
pmpi_win_set_info_,
|
||||||
|
pmpi_win_set_info__,
|
||||||
|
pompi_win_set_info_f,
|
||||||
|
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
|
||||||
|
(win, info, ierr) )
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if OPAL_HAVE_WEAK_SYMBOLS
|
||||||
|
#pragma weak MPI_WIN_SET_INFO = ompi_win_set_info_f
|
||||||
|
#pragma weak mpi_win_set_info = ompi_win_set_info_f
|
||||||
|
#pragma weak mpi_win_set_info_ = ompi_win_set_info_f
|
||||||
|
#pragma weak mpi_win_set_info__ = ompi_win_set_info_f
|
||||||
|
|
||||||
|
#pragma weak MPI_Win_create_f = ompi_win_set_info_f
|
||||||
|
#pragma weak MPI_Win_create_f08 = ompi_win_set_info_f
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if ! OPAL_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER
|
||||||
|
OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SET_INFO,
|
||||||
|
mpi_win_set_info,
|
||||||
|
mpi_win_set_info_,
|
||||||
|
mpi_win_set_info__,
|
||||||
|
ompi_win_set_info_f,
|
||||||
|
(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr),
|
||||||
|
(win, info, ierr) )
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
#if OMPI_PROFILE_LAYER && ! OPAL_HAVE_WEAK_SYMBOLS
|
||||||
|
#include "ompi/mpi/fortran/mpif-h/profile/defines.h"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
void ompi_win_set_info_f(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr)
|
||||||
|
{
|
||||||
|
int c_ierr;
|
||||||
|
MPI_Win c_win;
|
||||||
|
MPI_Info c_info;
|
||||||
|
|
||||||
|
c_win = MPI_Win_f2c(*win);
|
||||||
|
c_info = MPI_Info_f2c(*info);
|
||||||
|
c_ierr = MPI_Win_set_info(c_win, c_info);
|
||||||
|
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
|
||||||
|
}
|
||||||
19
ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90
Обычный файл
19
ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90
Обычный файл
@ -0,0 +1,19 @@
|
|||||||
|
! -*- f90 -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2015 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
|
||||||
|
subroutine PMPI_Win_get_info_f08(win,info,ierror)
|
||||||
|
use :: mpi_f08_types, only : MPI_Win, MPI_Info
|
||||||
|
use :: mpi_f08, only : ompi_win_get_info_f
|
||||||
|
implicit none
|
||||||
|
TYPE(MPI_Win), INTENT(IN) :: win
|
||||||
|
TYPE(MPI_Info), INTENT(OUT) :: info
|
||||||
|
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||||
|
integer :: c_ierror
|
||||||
|
|
||||||
|
call ompi_win_get_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
|
||||||
|
if (present(ierror)) ierror = c_ierror
|
||||||
|
|
||||||
|
end subroutine PMPI_Win_get_info_f08
|
||||||
19
ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90
Обычный файл
19
ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90
Обычный файл
@ -0,0 +1,19 @@
|
|||||||
|
! -*- f90 -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2015 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
|
||||||
|
subroutine PMPI_Win_set_info_f08(win,info,ierror)
|
||||||
|
use :: mpi_f08_types, only : MPI_Win, MPI_Info
|
||||||
|
use :: mpi_f08, only : ompi_win_set_info_f
|
||||||
|
implicit none
|
||||||
|
TYPE(MPI_Win), INTENT(IN) :: win
|
||||||
|
TYPE(MPI_Info), INTENT(IN) :: info
|
||||||
|
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||||
|
integer :: c_ierror
|
||||||
|
|
||||||
|
call ompi_win_set_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
|
||||||
|
if (present(ierror)) ierror = c_ierror
|
||||||
|
|
||||||
|
end subroutine PMPI_Win_set_info_f08
|
||||||
19
ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90
Обычный файл
19
ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90
Обычный файл
@ -0,0 +1,19 @@
|
|||||||
|
! -*- f90 -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2015 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
|
||||||
|
subroutine MPI_Win_get_info_f08(win,info,ierror)
|
||||||
|
use :: mpi_f08_types, only : MPI_Win, MPI_Info
|
||||||
|
use :: mpi_f08, only : ompi_win_get_info_f
|
||||||
|
implicit none
|
||||||
|
TYPE(MPI_Win), INTENT(IN) :: win
|
||||||
|
TYPE(MPI_Info), INTENT(OUT) :: info
|
||||||
|
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||||
|
integer :: c_ierror
|
||||||
|
|
||||||
|
call ompi_win_get_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
|
||||||
|
if (present(ierror)) ierror = c_ierror
|
||||||
|
|
||||||
|
end subroutine MPI_Win_get_info_f08
|
||||||
19
ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90
Обычный файл
19
ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90
Обычный файл
@ -0,0 +1,19 @@
|
|||||||
|
! -*- f90 -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2015 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
|
||||||
|
subroutine MPI_Win_set_info_f08(win,info,ierror)
|
||||||
|
use :: mpi_f08_types, only : MPI_Win, MPI_Info
|
||||||
|
use :: mpi_f08, only : ompi_win_set_info_f
|
||||||
|
implicit none
|
||||||
|
TYPE(MPI_Win), INTENT(IN) :: win
|
||||||
|
TYPE(MPI_Info), INTENT(IN) :: info
|
||||||
|
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||||
|
integer :: c_ierror
|
||||||
|
|
||||||
|
call ompi_win_set_info_f(win%MPI_VAL,info%MPI_VAL,c_ierror)
|
||||||
|
if (present(ierror)) ierror = c_ierror
|
||||||
|
|
||||||
|
end subroutine MPI_Win_set_info_f08
|
||||||
Загрузка…
x
Ссылка в новой задаче
Block a user