ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

mpi_f08: fix MPI_WIN_{ATTACH,DETACH} bindings

Просмотр исходного кода 
fixes INTENT from open-mpi/ompi@9600e2bc63
Этот коммит содержится в:
Gilles Gouaillardet 2015-06-30 12:28:14 +09:00
родитель 86bbdd2ebe
Коммит 13950c3ec1
5 изменённых файлов: 6 добавлений и 6 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h
Просмотреть файл

@ -2407,7 +2407,7 @@ subroutine ompi_win_attach_f(win,base,size,ierror) &
implicit none implicit none
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
INTEGER, INTENT(OUT) :: win INTEGER, INTENT(IN) :: win
INTEGER, INTENT(OUT) :: ierror INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_win_attach_f end subroutine ompi_win_attach_f
@ -2416,7 +2416,7 @@ subroutine ompi_win_detach_f(win,base,ierror) &
use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none implicit none
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
INTEGER, INTENT(OUT) :: win INTEGER, INTENT(IN) :: win
INTEGER, INTENT(OUT) :: ierror INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_win_detach_f end subroutine ompi_win_detach_f

2
ompi/mpi/fortran/use-mpi-f08/profile/pwin_attach_f08.F90
Просмотреть файл

@ -12,7 +12,7 @@ subroutine PMPI_Win_attach_f08(win,base,size,ierror)
implicit none implicit none
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror integer :: c_ierror

2
ompi/mpi/fortran/use-mpi-f08/profile/pwin_detach_f08.F90
Просмотреть файл

@ -11,7 +11,7 @@ subroutine PMPI_Win_detach_f08(win,base,ierror)
use :: mpi_f08, only : ompi_win_detach_f use :: mpi_f08, only : ompi_win_detach_f
implicit none implicit none
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror integer :: c_ierror

2
ompi/mpi/fortran/use-mpi-f08/win_attach_f08.F90
Просмотреть файл

@ -12,7 +12,7 @@ subroutine MPI_Win_attach_f08(win,base,size,ierror)
implicit none implicit none
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror integer :: c_ierror

2
ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90
Просмотреть файл

@ -11,7 +11,7 @@ subroutine MPI_Win_detach_f08(win,base,ierror)
use :: mpi_f08, only : ompi_win_detach_f use :: mpi_f08, only : ompi_win_detach_f
implicit none implicit none
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror integer :: c_ierror