fortran: Sort declared subroutins in alphabetical order
And insert necessary empty lines and remove unnecessary empty lines. No code change.
Этот коммит содержится в:
KAWASHIMA Takahiro
родитель
334c63cf0a
Коммит
96e93a9c5f
@ -163,6 +163,7 @@ end subroutine PMPI_Address
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Aint_add
|
||||
|
||||
function MPI_Aint_add(base, diff)
|
||||
@ -185,6 +186,7 @@ end function PMPI_Aint_add
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Aint_diff
|
||||
|
||||
function MPI_Aint_diff(addr1, addr2)
|
||||
@ -207,6 +209,7 @@ end function PMPI_Aint_diff
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Allgather
|
||||
|
||||
subroutine MPI_Allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
||||
@ -1074,18 +1077,6 @@ end subroutine MPI_Comm_create
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Comm_create_group
|
||||
|
||||
subroutine MPI_Comm_create_group(comm, group, tag, newcomm, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(in) :: group
|
||||
integer, intent(in) :: tag
|
||||
integer, intent(out) :: newcomm
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Comm_create_group
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Comm_create
|
||||
|
||||
subroutine PMPI_Comm_create(comm, group, newcomm, ierror)
|
||||
@ -1119,6 +1110,19 @@ end subroutine PMPI_Comm_create_errhandler
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Comm_create_group
|
||||
|
||||
subroutine MPI_Comm_create_group(comm, group, tag, newcomm, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(in) :: group
|
||||
integer, intent(in) :: tag
|
||||
integer, intent(out) :: newcomm
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Comm_create_group
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Comm_create_keyval
|
||||
|
||||
subroutine MPI_Comm_create_keyval(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierror)
|
||||
@ -1196,6 +1200,17 @@ end subroutine MPI_Comm_dup
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Comm_dup
|
||||
|
||||
subroutine PMPI_Comm_dup(comm, newcomm, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: newcomm
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Comm_dup
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Comm_dup_with_info
|
||||
|
||||
subroutine MPI_Comm_dup_with_info(comm, info, newcomm, ierror)
|
||||
@ -1207,27 +1222,6 @@ end subroutine MPI_Comm_dup_with_info
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Comm_idup
|
||||
|
||||
subroutine MPI_Comm_idup(comm, newcomm, request, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: newcomm
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Comm_idup
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Comm_dup
|
||||
|
||||
subroutine PMPI_Comm_dup(comm, newcomm, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: newcomm
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Comm_dup
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Comm_free
|
||||
|
||||
@ -1378,6 +1372,18 @@ end subroutine PMPI_Comm_group
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Comm_idup
|
||||
|
||||
subroutine MPI_Comm_idup(comm, newcomm, request, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: newcomm
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Comm_idup
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Comm_join
|
||||
|
||||
subroutine MPI_Comm_join(fd, intercomm, ierror)
|
||||
@ -1754,6 +1760,7 @@ end subroutine PMPI_Compare_and_swap
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Dims_create
|
||||
|
||||
subroutine MPI_Dims_create(nnodes, ndims, dims, ierror)
|
||||
@ -2057,6 +2064,7 @@ end subroutine PMPI_Exscan
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Fetch_and_op
|
||||
|
||||
subroutine MPI_Fetch_and_op(origin_addr, result_addr, datatype, target_rank,&
|
||||
@ -2095,6 +2103,7 @@ end subroutine PMPI_Fetch_and_op
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Finalize
|
||||
|
||||
subroutine MPI_Finalize(ierror)
|
||||
@ -2270,6 +2279,7 @@ end subroutine PMPI_Get
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Get_accumulate
|
||||
|
||||
subroutine MPI_Get_accumulate(origin_addr, origin_count, origin_datatype,&
|
||||
@ -2322,6 +2332,7 @@ end subroutine PMPI_Get_accumulate
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Get_address
|
||||
|
||||
subroutine MPI_Get_address(location, address, ierror)
|
||||
@ -2397,8 +2408,6 @@ end subroutine PMPI_Get_elements
|
||||
end interface
|
||||
|
||||
|
||||
|
||||
|
||||
interface MPI_Get_library_version
|
||||
|
||||
subroutine MPI_Get_library_version(version, resultlen, ierror)
|
||||
@ -3250,6 +3259,41 @@ end subroutine PMPI_Ibcast
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Ibsend
|
||||
|
||||
subroutine MPI_Ibsend(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierror)
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(in) :: dest
|
||||
integer, intent(in) :: tag
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Ibsend
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Ibsend
|
||||
|
||||
subroutine PMPI_Ibsend(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierror)
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(in) :: dest
|
||||
integer, intent(in) :: tag
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Ibsend
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Iexscan
|
||||
|
||||
subroutine MPI_Iexscan(sendbuf, recvbuf, count, datatype, op, &
|
||||
@ -3287,41 +3331,6 @@ end subroutine PMPI_Iexscan
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Ibsend
|
||||
|
||||
subroutine MPI_Ibsend(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierror)
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(in) :: dest
|
||||
integer, intent(in) :: tag
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Ibsend
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Ibsend
|
||||
|
||||
subroutine PMPI_Ibsend(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierror)
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(in) :: dest
|
||||
integer, intent(in) :: tag
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Ibsend
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Igather
|
||||
|
||||
subroutine MPI_Igather(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
||||
@ -4732,6 +4741,7 @@ end subroutine PMPI_Neighbor_alltoallw
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Op_commutative
|
||||
|
||||
subroutine MPI_Op_commutative(op, commute, ierror)
|
||||
@ -5070,6 +5080,7 @@ end subroutine PMPI_Query_thread
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Raccumulate
|
||||
|
||||
subroutine MPI_Raccumulate(origin_addr, origin_count, origin_datatype,&
|
||||
@ -5114,143 +5125,6 @@ end subroutine PMPI_Raccumulate
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Get
|
||||
|
||||
subroutine MPI_Rget(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Rget
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Get
|
||||
|
||||
subroutine PMPI_Rget(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Rget
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Rget_accumulate
|
||||
|
||||
subroutine MPI_Rget_accumulate(origin_addr, origin_count, origin_datatype,&
|
||||
result_addr, result_count, result_datatype,&
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, op, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ result_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: result_addr
|
||||
integer, intent(in) :: result_count
|
||||
integer, intent(in) :: result_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: op
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Rget_accumulate
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Rget_accumulate
|
||||
|
||||
subroutine PMPI_Rget_accumulate(origin_addr, origin_count, origin_datatype,&
|
||||
result_addr, result_count, result_datatype,&
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, op, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ result_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: result_addr
|
||||
integer, intent(in) :: result_count
|
||||
integer, intent(in) :: result_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: op
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Rget_accumulate
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Rput
|
||||
|
||||
subroutine MPI_Rput(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Rput
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Rput
|
||||
|
||||
subroutine PMPI_Rput(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Rput
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Recv
|
||||
|
||||
@ -5539,6 +5413,147 @@ end subroutine PMPI_Request_get_status
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Get
|
||||
|
||||
subroutine MPI_Rget(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Rget
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Get
|
||||
|
||||
subroutine PMPI_Rget(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Rget
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Rget_accumulate
|
||||
|
||||
subroutine MPI_Rget_accumulate(origin_addr, origin_count, origin_datatype,&
|
||||
result_addr, result_count, result_datatype,&
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, op, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ result_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: result_addr
|
||||
integer, intent(in) :: result_count
|
||||
integer, intent(in) :: result_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: op
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Rget_accumulate
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Rget_accumulate
|
||||
|
||||
subroutine PMPI_Rget_accumulate(origin_addr, origin_count, origin_datatype,&
|
||||
result_addr, result_count, result_datatype,&
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, op, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ result_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: result_addr
|
||||
integer, intent(in) :: result_count
|
||||
integer, intent(in) :: result_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: op
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Rget_accumulate
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Rput
|
||||
|
||||
subroutine MPI_Rput(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Rput
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Rput
|
||||
|
||||
subroutine PMPI_Rput(origin_addr, origin_count, origin_datatype, &
|
||||
target_rank, target_disp, target_count, &
|
||||
target_datatype, win, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr
|
||||
integer, intent(in) :: origin_count
|
||||
integer, intent(in) :: origin_datatype
|
||||
integer, intent(in) :: target_rank
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
|
||||
integer, intent(in) :: target_count
|
||||
integer, intent(in) :: target_datatype
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: request
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Rput
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Rsend
|
||||
|
||||
subroutine MPI_Rsend(ibuf, count, datatype, dest, tag, &
|
||||
@ -6373,6 +6388,37 @@ end subroutine PMPI_Type_create_hindexed
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Type_create_hindexed_block
|
||||
|
||||
subroutine MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype&
|
||||
, ierror)
|
||||
include 'mpif-config.h'
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: blocklength
|
||||
integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements
|
||||
integer, intent(in) :: oldtype
|
||||
integer, intent(out) :: newtype
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Type_create_hindexed_block
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_create_hindexed_block
|
||||
|
||||
subroutine PMPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype&
|
||||
, ierror)
|
||||
include 'mpif-config.h'
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: blocklength
|
||||
integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements
|
||||
integer, intent(in) :: oldtype
|
||||
integer, intent(out) :: newtype
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Type_create_hindexed_block
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Type_create_hvector
|
||||
|
||||
subroutine MPI_Type_create_hvector(count, blocklength, stride, oldtype, newtype&
|
||||
@ -6433,37 +6479,6 @@ end subroutine PMPI_Type_create_indexed_block
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Type_create_hindexed_block
|
||||
|
||||
subroutine MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype&
|
||||
, ierror)
|
||||
include 'mpif-config.h'
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: blocklength
|
||||
integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements
|
||||
integer, intent(in) :: oldtype
|
||||
integer, intent(out) :: newtype
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Type_create_hindexed_block
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_create_hindexed_block
|
||||
|
||||
subroutine PMPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype&
|
||||
, ierror)
|
||||
include 'mpif-config.h'
|
||||
integer, intent(in) :: count
|
||||
integer, intent(in) :: blocklength
|
||||
integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements
|
||||
integer, intent(in) :: oldtype
|
||||
integer, intent(out) :: newtype
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Type_create_hindexed_block
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Type_create_keyval
|
||||
|
||||
subroutine MPI_Type_create_keyval(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierror)
|
||||
@ -7329,17 +7344,6 @@ end subroutine PMPI_Waitsome
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_call_errhandler
|
||||
|
||||
subroutine MPI_Win_call_errhandler(win, errorcode, ierror)
|
||||
integer, intent(in) :: win
|
||||
integer, intent(in) :: errorcode
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Win_call_errhandler
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_allocate
|
||||
|
||||
subroutine MPI_Win_allocate(size, disp_unit, info, comm, &
|
||||
@ -7392,6 +7396,43 @@ end subroutine MPI_Win_allocate_shared_cptr
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_attach
|
||||
|
||||
subroutine MPI_Win_attach(win, base, size, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Win_attach
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Win_attach
|
||||
|
||||
subroutine PMPI_Win_attach(win, base, size, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Win_attach
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_call_errhandler
|
||||
|
||||
subroutine MPI_Win_call_errhandler(win, errorcode, ierror)
|
||||
integer, intent(in) :: win
|
||||
integer, intent(in) :: errorcode
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Win_call_errhandler
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Win_call_errhandler
|
||||
|
||||
subroutine PMPI_Win_call_errhandler(win, errorcode, ierror)
|
||||
@ -7484,58 +7525,6 @@ end subroutine PMPI_Win_create_dynamic
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_attach
|
||||
|
||||
subroutine MPI_Win_attach(win, base, size, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Win_attach
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Win_attach
|
||||
|
||||
subroutine PMPI_Win_attach(win, base, size, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Win_attach
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_detach
|
||||
|
||||
subroutine MPI_Win_detach(win, base, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Win_detach
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Win_detach
|
||||
|
||||
subroutine PMPI_Win_detach(win, base, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Win_detach
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_create_errhandler
|
||||
|
||||
subroutine MPI_Win_create_errhandler(function, errhandler, ierror)
|
||||
@ -7605,6 +7594,31 @@ end subroutine PMPI_Win_delete_attr
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_detach
|
||||
|
||||
subroutine MPI_Win_detach(win, base, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Win_detach
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Win_detach
|
||||
|
||||
subroutine PMPI_Win_detach(win, base, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
|
||||
integer, intent(in) :: win
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Win_detach
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_fence
|
||||
|
||||
subroutine MPI_Win_fence(assert, win, ierror)
|
||||
@ -7625,6 +7639,7 @@ end subroutine PMPI_Win_fence
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_flush
|
||||
|
||||
subroutine MPI_Win_flush(rank, win, ierror)
|
||||
@ -7645,6 +7660,7 @@ end subroutine PMPI_Win_flush
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_flush_all
|
||||
|
||||
subroutine MPI_Win_flush_all(win, ierror)
|
||||
@ -7663,6 +7679,7 @@ end subroutine PMPI_Win_flush_all
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_flush_local
|
||||
|
||||
subroutine MPI_Win_flush_local(rank, win, ierror)
|
||||
@ -7683,6 +7700,7 @@ end subroutine PMPI_Win_flush_local
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_flush_local_all
|
||||
|
||||
subroutine MPI_Win_flush_local_all(win, ierror)
|
||||
@ -7701,6 +7719,7 @@ end subroutine PMPI_Win_flush_local_all
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Win_free
|
||||
|
||||
subroutine MPI_Win_free(win, ierror)
|
||||
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user