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

Refs trac:4372: Addendum to Fortran API fixes for the RMA functions

Просмотр исходного кода 
These parameters should not be marked as INTENT(OUT) (they aren't in
the MPI-3 standard).

This commit was SVN r31048.

The following Trac tickets were found above:
  Ticket 4372 --> https://svn.open-mpi.org/trac/ompi/ticket/4372
Этот коммит содержится в:
Jeff Squyres 2014-03-12 19:59:04 +00:00
родитель d0009938a6
Коммит 8a5a832085
2 изменённых файлов: 8 добавлений и 8 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -3008,7 +3008,7 @@ subroutine MPI_Get_accumulate_f08(origin_addr,origin_count,origin_datatype,resul
OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: result_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
TYPE(MPI_Datatype), INTENT(IN) :: target_datatype
@ -3032,7 +3032,7 @@ subroutine MPI_Rget_accumulate_f08(origin_addr,origin_count,origin_datatype,resu
OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: result_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
TYPE(MPI_Datatype), INTENT(IN) :: target_datatype
@ -3095,7 +3095,7 @@ subroutine MPI_Fetch_and_op_f08(origin_addr,result_addr,datatype,target_rank, &
!DIR$ IGNORE_TKR origin_addr,result_addr
!IBM* IGNORE_TKR origin_addr,result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: target_rank
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
@ -3116,7 +3116,7 @@ subroutine MPI_Compare_and_swap_f08(origin_addr,compare_addr,result_addr,datatyp
!DIR$ IGNORE_TKR origin_addr,compare_addr,result_addr
!IBM* IGNORE_TKR origin_addr,compare_addr,result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr,compare_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: target_rank
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp

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

@ -3009,7 +3009,7 @@ subroutine PMPI_Get_accumulate_f08(origin_addr,origin_count,origin_datatype,resu
OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: result_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
TYPE(MPI_Datatype), INTENT(IN) :: target_datatype
@ -3033,7 +3033,7 @@ subroutine PMPI_Rget_accumulate_f08(origin_addr,origin_count,origin_datatype,res
OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: result_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
TYPE(MPI_Datatype), INTENT(IN) :: target_datatype
@ -3096,7 +3096,7 @@ subroutine PMPI_Fetch_and_op_f08(origin_addr,result_addr,datatype,target_rank, &
!DIR$ IGNORE_TKR origin_addr,result_addr
!IBM* IGNORE_TKR origin_addr,result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: target_rank
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
@ -3117,7 +3117,7 @@ subroutine PMPI_Compare_and_swap_f08(origin_addr,compare_addr,result_addr,dataty
!DIR$ IGNORE_TKR origin_addr,compare_addr,result_addr
!IBM* IGNORE_TKR origin_addr,compare_addr,result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr,compare_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(OUT) :: result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: target_rank
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp