Fix ompi function in Fortran RMA bindings
cmr=v1.7.5:ticket=trac:4372 This commit was SVN r31026. The following Trac tickets were found above: Ticket 4372 --> https://svn.open-mpi.org/trac/ompi/ticket/4372
Этот коммит содержится в:
родитель
a254d2db34
Коммит
3523e315b8
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2012 The University of Tennessee and The University
|
||||
@ -2288,7 +2288,7 @@ subroutine ompi_win_complete_f(win,ierror) &
|
||||
end subroutine ompi_win_complete_f
|
||||
|
||||
subroutine ompi_compare_and_swap_f(origin_addr,compare_addr,result_addr, &
|
||||
target_rank,target_disp,datatype, win, &
|
||||
datatype,target_rank,target_disp, win, &
|
||||
ierror) &
|
||||
BIND(C, name="ompi_compare_and_swap_f")
|
||||
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user