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

Fortran: fix two type mistakes

Просмотр исходного кода 
Use the appropriate modules, don't use mpif-config.h.

cmr=v1.8.2:ticket=trac:4736

This commit was SVN r32052.

The following Trac tickets were found above:
  Ticket 4736 --> https://svn.open-mpi.org/trac/ompi/ticket/4736
Этот коммит содержится в:
Jeff Squyres 2014-06-19 20:25:09 +00:00
родитель 1a53d541ab
Коммит 395078da00
1 изменённых файлов: 2 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -2107,7 +2107,7 @@ interface MPI_Win_allocate_shared
subroutine MPI_Win_allocate_shared(size, disp_unit, info, comm, & subroutine MPI_Win_allocate_shared(size, disp_unit, info, comm, &
baseptr, win, ierror) baseptr, win, ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
include 'mpif-config.h' use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size
INTEGER, INTENT(IN) :: disp_unit INTEGER, INTENT(IN) :: disp_unit
TYPE(MPI_Info), INTENT(IN) :: info TYPE(MPI_Info), INTENT(IN) :: info
@ -2118,7 +2118,6 @@ subroutine MPI_Win_allocate_shared(size, disp_unit, info, comm, &
end subroutine MPI_Win_allocate_shared end subroutine MPI_Win_allocate_shared
end interface end interface
interface MPI_Win_create_keyval interface MPI_Win_create_keyval
subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, & subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, &
extra_state,ierror) extra_state,ierror)
@ -3243,7 +3242,7 @@ interface MPI_Win_shared_query
subroutine MPI_Win_shared_query(win, rank, size, disp_unit, baseptr,& subroutine MPI_Win_shared_query(win, rank, size, disp_unit, baseptr,&
ierror) ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
include 'mpif-config.h' use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND
TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, INTENT(IN) :: rank INTEGER, INTENT(IN) :: rank
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size