fortran: don't use optional params in the ompi/pompi interfaces
Fix a copy-n-paste error: the ompi/pompi interfaces should not have optional ierror arguments. Optional ierror arguments are only used in the MPI_<foo> interfaces. The ompi/pompi interfaces are the actual underlying routines (in C, incidentally, which is why they're declared as BIND(C)), and do not have optional ierror arguments. Also fix a typo in the BIND(C) name for pompi_win_shared_query_f(). cmr=v1.8.2:reviewer=ggouaillardet This commit was SVN r32287.
Этот коммит содержится в:
родитель
4da3c85b54
Коммит
8e80480cbc
@ -2435,7 +2435,7 @@ subroutine ompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,&
|
||||
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size
|
||||
INTEGER, INTENT(OUT) :: disp_unit
|
||||
TYPE(C_PTR), INTENT(OUT) :: baseptr
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompi_win_shared_query_f
|
||||
|
||||
subroutine ompi_win_start_f(group,assert,win,ierror) &
|
||||
|
@ -2264,7 +2264,7 @@ subroutine pompi_win_post_f(group,assert,win,ierror) &
|
||||
end subroutine pompi_win_post_f
|
||||
|
||||
subroutine pompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,&
|
||||
ierror) BIND(C, name="ompi_win_shared_query_f")
|
||||
ierror) BIND(C, name="pompi_win_shared_query_f")
|
||||
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
||||
INTEGER, INTENT(IN) :: win
|
||||
@ -2272,7 +2272,7 @@ subroutine pompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,&
|
||||
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size
|
||||
INTEGER, INTENT(OUT) :: disp_unit
|
||||
TYPE(C_PTR), INTENT(OUT) :: baseptr
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine pompi_win_shared_query_f
|
||||
|
||||
subroutine pompi_win_start_f(group,assert,win,ierror) &
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user