3799 строки
105 KiB
Fortran
3799 строки
105 KiB
Fortran
|
!
|
||
|
! C-interop interfaces for mpi.h
|
||
|
!
|
||
|
|
||
|
use, intrinsic :: ISO_C_BINDING
|
||
|
|
||
|
|
||
|
interface MPI_Abort
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Abort(comm, errorcode, ierr) &
|
||
|
BIND(C, name="MPI_Abort")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
end function MPI_Abort
|
||
|
|
||
|
end interface MPI_Abort
|
||
|
|
||
|
|
||
|
interface MPI_Accumulate
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Accumulate(origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, &
|
||
|
op, win, ierr) &
|
||
|
BIND(C, name="MPI_Accumulate")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: origin_addr
|
||
|
integer(INT_C), value, intent(in) :: origin_count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: origin_datatype
|
||
|
integer(INT_C), value, intent(in) :: target_rank
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: target_disp
|
||
|
integer(INT_C), value, intent(in) :: target_count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: target_datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: op
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Accumulate
|
||
|
|
||
|
end interface MPI_Accumulate
|
||
|
|
||
|
|
||
|
interface MPI_Add_error_class
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Add_error_class(errorclass, ierr) &
|
||
|
BIND(C, name="MPI_Add_error_class")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: errorclass
|
||
|
end function MPI_Add_error_class
|
||
|
|
||
|
end interface MPI_Add_error_class
|
||
|
|
||
|
|
||
|
interface MPI_Add_error_code
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Add_error_code(errorclass, errorcode, ierr) &
|
||
|
BIND(C, name="MPI_Add_error_code")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: errorclass
|
||
|
integer(INT_C), value, intent(out) :: errorcode
|
||
|
end function MPI_Add_error_code
|
||
|
|
||
|
end interface MPI_Add_error_code
|
||
|
|
||
|
|
||
|
interface MPI_Add_error_string
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Add_error_string(errorcode, string, ierr) &
|
||
|
BIND(C, name="MPI_Add_error_string")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
character(len=*), value, intent(in) :: string
|
||
|
end function MPI_Add_error_string
|
||
|
|
||
|
end interface MPI_Add_error_string
|
||
|
|
||
|
|
||
|
interface MPI_Address
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Address(location, address, ierr) &
|
||
|
BIND(C, name="MPI_Address")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: location
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: address
|
||
|
end function MPI_Address
|
||
|
|
||
|
end interface MPI_Address
|
||
|
|
||
|
|
||
|
interface MPI_Attr_delete
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Attr_delete(comm, keyval, ierr) &
|
||
|
BIND(C, name="MPI_Attr_delete")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: keyval
|
||
|
end function MPI_Attr_delete
|
||
|
|
||
|
end interface MPI_Attr_delete
|
||
|
|
||
|
|
||
|
interface MPI_Attr_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Attr_get(comm, keyval, attribute_val, flag, ierr) &
|
||
|
BIND(C, name="MPI_Attr_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: keyval
|
||
|
integer(C_INT), value, intent(out) :: attribute_val
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Attr_get
|
||
|
|
||
|
end interface MPI_Attr_get
|
||
|
|
||
|
|
||
|
interface MPI_Attr_put
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Attr_put(comm, keyval, attribute_val, ierr) &
|
||
|
BIND(C, name="MPI_Attr_put")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: keyval
|
||
|
integer(C_INT), value, intent(in) :: attribute_val
|
||
|
end function MPI_Attr_put
|
||
|
|
||
|
end interface MPI_Attr_put
|
||
|
|
||
|
|
||
|
interface MPI_Barrier
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Barrier(comm, ierr) &
|
||
|
BIND(C, name="MPI_Barrier")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
end function MPI_Barrier
|
||
|
|
||
|
end interface MPI_Barrier
|
||
|
|
||
|
|
||
|
interface MPI_Bcast
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Bcast(buffer, count, datatype, root, comm, ierr) &
|
||
|
BIND(C, name="MPI_Bcast")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buffer
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: root
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
end function MPI_Bcast
|
||
|
|
||
|
end interface MPI_Bcast
|
||
|
|
||
|
|
||
|
interface MPI_Bsend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Bsend(buf, count, datatype, dest, tag, comm, ierr) &
|
||
|
BIND(C, name="MPI_Bsend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
end function MPI_Bsend
|
||
|
|
||
|
end interface MPI_Bsend
|
||
|
|
||
|
|
||
|
interface MPI_Bsend_init
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Bsend_init(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Bsend_init")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Bsend_init
|
||
|
|
||
|
end interface MPI_Bsend_init
|
||
|
|
||
|
|
||
|
interface MPI_Buffer_attach
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Buffer_attach(buffer, size, ierr) &
|
||
|
BIND(C, name="MPI_Buffer_attach")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buffer
|
||
|
integer(INT_C), value, intent(in) :: size
|
||
|
end function MPI_Buffer_attach
|
||
|
|
||
|
end interface MPI_Buffer_attach
|
||
|
|
||
|
|
||
|
interface MPI_Buffer_detach
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Buffer_detach(buffer, size, ierr) &
|
||
|
BIND(C, name="MPI_Buffer_detach")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(out) :: buffer
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_Buffer_detach
|
||
|
|
||
|
end interface MPI_Buffer_detach
|
||
|
|
||
|
|
||
|
interface MPI_Cancel
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cancel(request, ierr) &
|
||
|
BIND(C, name="MPI_Cancel")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: request
|
||
|
end function MPI_Cancel
|
||
|
|
||
|
end interface MPI_Cancel
|
||
|
|
||
|
|
||
|
interface MPI_Cart_coords
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_coords(comm, rank, maxdims, coords, ierr) &
|
||
|
BIND(C, name="MPI_Cart_coords")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: rank
|
||
|
integer(INT_C), value, intent(in) :: maxdims
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: coords
|
||
|
end function MPI_Cart_coords
|
||
|
|
||
|
end interface MPI_Cart_coords
|
||
|
|
||
|
|
||
|
interface MPI_Cart_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_create(old_comm, ndims, dims, periods, reorder, comm_cart, ierr) &
|
||
|
BIND(C, name="MPI_Cart_create")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: old_comm
|
||
|
integer(INT_C), value, intent(in) :: ndims
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: dims
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: periods
|
||
|
integer(INT_C), value, intent(in) :: reorder
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: comm_cart
|
||
|
end function MPI_Cart_create
|
||
|
|
||
|
end interface MPI_Cart_create
|
||
|
|
||
|
|
||
|
interface MPI_Cart_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_get(comm, maxdims, dims, periods, coords, ierr) &
|
||
|
BIND(C, name="MPI_Cart_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: maxdims
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: dims
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: periods
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: coords
|
||
|
end function MPI_Cart_get
|
||
|
|
||
|
end interface MPI_Cart_get
|
||
|
|
||
|
|
||
|
interface MPI_Cart_map
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_map(comm, ndims, dims, periods, newrank, ierr) &
|
||
|
BIND(C, name="MPI_Cart_map")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: ndims
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: dims
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: periods
|
||
|
integer(INT_C), value, intent(out) :: newrank
|
||
|
end function MPI_Cart_map
|
||
|
|
||
|
end interface MPI_Cart_map
|
||
|
|
||
|
|
||
|
interface MPI_Cart_rank
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_rank(comm, coords, rank, ierr) &
|
||
|
BIND(C, name="MPI_Cart_rank")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: coords
|
||
|
integer(INT_C), value, intent(out) :: rank
|
||
|
end function MPI_Cart_rank
|
||
|
|
||
|
end interface MPI_Cart_rank
|
||
|
|
||
|
|
||
|
interface MPI_Cart_shift
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_shift(comm, direction, disp, rank_source, rank_dest, ierr) &
|
||
|
BIND(C, name="MPI_Cart_shift")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: direction
|
||
|
integer(INT_C), value, intent(in) :: disp
|
||
|
integer(INT_C), value, intent(out) :: rank_source
|
||
|
integer(INT_C), value, intent(out) :: rank_dest
|
||
|
end function MPI_Cart_shift
|
||
|
|
||
|
end interface MPI_Cart_shift
|
||
|
|
||
|
|
||
|
interface MPI_Cart_sub
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cart_sub(comm, remain_dims, new_comm, ierr) &
|
||
|
BIND(C, name="MPI_Cart_sub")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer, dimension(*), value, intent(in) :: remain_dims
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: new_comm
|
||
|
end function MPI_Cart_sub
|
||
|
|
||
|
end interface MPI_Cart_sub
|
||
|
|
||
|
|
||
|
interface MPI_Cartdim_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Cartdim_get(comm, ndims, ierr) &
|
||
|
BIND(C, name="MPI_Cartdim_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: ndims
|
||
|
end function MPI_Cartdim_get
|
||
|
|
||
|
end interface MPI_Cartdim_get
|
||
|
|
||
|
|
||
|
interface MPI_Comm_call_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_call_errhandler(comm, errorcode, ierr) &
|
||
|
BIND(C, name="MPI_Comm_call_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
end function MPI_Comm_call_errhandler
|
||
|
|
||
|
end interface MPI_Comm_call_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Comm_compare
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_compare(comm1, comm2, result, ierr) &
|
||
|
BIND(C, name="MPI_Comm_compare")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm1
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm2
|
||
|
integer(INT_C), value, intent(out) :: result
|
||
|
end function MPI_Comm_compare
|
||
|
|
||
|
end interface MPI_Comm_compare
|
||
|
|
||
|
|
||
|
interface MPI_Comm_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_create(comm, group, newcomm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_create")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newcomm
|
||
|
end function MPI_Comm_create
|
||
|
|
||
|
end interface MPI_Comm_create
|
||
|
|
||
|
|
||
|
interface MPI_Comm_create_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_create_errhandler(function, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Comm_create_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
external :: function
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_Comm_create_errhandler
|
||
|
|
||
|
end interface MPI_Comm_create_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Comm_create_keyval
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_create_keyval(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierr) &
|
||
|
BIND(C, name="MPI_Comm_create_keyval")
|
||
|
use MPI_C_BINDING
|
||
|
external :: comm_copy_attr_fn
|
||
|
external :: comm_delete_attr_fn
|
||
|
integer(INT_C), value, intent(out) :: comm_keyval
|
||
|
integer(C_INT), value, intent(in) :: extra_state
|
||
|
end function MPI_Comm_create_keyval
|
||
|
|
||
|
end interface MPI_Comm_create_keyval
|
||
|
|
||
|
|
||
|
interface MPI_Comm_delete_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_delete_attr(comm, comm_keyval, ierr) &
|
||
|
BIND(C, name="MPI_Comm_delete_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: comm
|
||
|
integer(INT_C), value, intent(in) :: comm_keyval
|
||
|
end function MPI_Comm_delete_attr
|
||
|
|
||
|
end interface MPI_Comm_delete_attr
|
||
|
|
||
|
|
||
|
interface MPI_Comm_dup
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_dup(comm, newcomm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_dup")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newcomm
|
||
|
end function MPI_Comm_dup
|
||
|
|
||
|
end interface MPI_Comm_dup
|
||
|
|
||
|
|
||
|
interface MPI_Comm_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_free(comm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: comm
|
||
|
end function MPI_Comm_free
|
||
|
|
||
|
end interface MPI_Comm_free
|
||
|
|
||
|
|
||
|
interface MPI_Comm_free_keyval
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_free_keyval(comm_keyval, ierr) &
|
||
|
BIND(C, name="MPI_Comm_free_keyval")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(inout) :: comm_keyval
|
||
|
end function MPI_Comm_free_keyval
|
||
|
|
||
|
end interface MPI_Comm_free_keyval
|
||
|
|
||
|
|
||
|
interface MPI_Comm_get_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_get_attr(comm, comm_keyval, attribute_val, flag, ierr) &
|
||
|
BIND(C, name="MPI_Comm_get_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: comm_keyval
|
||
|
type(C_PTR), value, intent(out) :: attribute_val
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Comm_get_attr
|
||
|
|
||
|
end interface MPI_Comm_get_attr
|
||
|
|
||
|
|
||
|
interface MPI_Comm_get_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_get_errhandler(comm, erhandler, ierr) &
|
||
|
BIND(C, name="MPI_Comm_get_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: erhandler
|
||
|
end function MPI_Comm_get_errhandler
|
||
|
|
||
|
end interface MPI_Comm_get_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Comm_get_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_get_name(comm, comm_name, resultlen, ierr) &
|
||
|
BIND(C, name="MPI_Comm_get_name")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
character(len=*), value, intent(out) :: comm_name
|
||
|
integer(INT_C), value, intent(out) :: resultlen
|
||
|
end function MPI_Comm_get_name
|
||
|
|
||
|
end interface MPI_Comm_get_name
|
||
|
|
||
|
|
||
|
interface MPI_Comm_group
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_group(comm, group, ierr) &
|
||
|
BIND(C, name="MPI_Comm_group")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: group
|
||
|
end function MPI_Comm_group
|
||
|
|
||
|
end interface MPI_Comm_group
|
||
|
|
||
|
|
||
|
interface MPI_Comm_rank
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_rank(comm, rank, ierr) &
|
||
|
BIND(C, name="MPI_Comm_rank")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: rank
|
||
|
end function MPI_Comm_rank
|
||
|
|
||
|
end interface MPI_Comm_rank
|
||
|
|
||
|
|
||
|
interface MPI_Comm_remote_group
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_remote_group(comm, group, ierr) &
|
||
|
BIND(C, name="MPI_Comm_remote_group")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: group
|
||
|
end function MPI_Comm_remote_group
|
||
|
|
||
|
end interface MPI_Comm_remote_group
|
||
|
|
||
|
|
||
|
interface MPI_Comm_remote_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_remote_size(comm, size, ierr) &
|
||
|
BIND(C, name="MPI_Comm_remote_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_Comm_remote_size
|
||
|
|
||
|
end interface MPI_Comm_remote_size
|
||
|
|
||
|
|
||
|
interface MPI_Comm_set_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_set_attr(comm, comm_keyval, attribute_val, ierr) &
|
||
|
BIND(C, name="MPI_Comm_set_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: comm_keyval
|
||
|
type(C_PTR), value, intent(in) :: attribute_val
|
||
|
end function MPI_Comm_set_attr
|
||
|
|
||
|
end interface MPI_Comm_set_attr
|
||
|
|
||
|
|
||
|
interface MPI_Comm_set_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_set_errhandler(comm, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Comm_set_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: errhandler
|
||
|
end function MPI_Comm_set_errhandler
|
||
|
|
||
|
end interface MPI_Comm_set_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Comm_set_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_set_name(comm, comm_name, ierr) &
|
||
|
BIND(C, name="MPI_Comm_set_name")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: comm
|
||
|
character(len=*), value, intent(in) :: comm_name
|
||
|
end function MPI_Comm_set_name
|
||
|
|
||
|
end interface MPI_Comm_set_name
|
||
|
|
||
|
|
||
|
interface MPI_Comm_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_size(comm, size, ierr) &
|
||
|
BIND(C, name="MPI_Comm_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_Comm_size
|
||
|
|
||
|
end interface MPI_Comm_size
|
||
|
|
||
|
|
||
|
interface MPI_Comm_split
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_split(comm, color, key, newcomm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_split")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: color
|
||
|
integer(INT_C), value, intent(in) :: key
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newcomm
|
||
|
end function MPI_Comm_split
|
||
|
|
||
|
end interface MPI_Comm_split
|
||
|
|
||
|
|
||
|
interface MPI_Comm_test_inter
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_test_inter(comm, flag, ierr) &
|
||
|
BIND(C, name="MPI_Comm_test_inter")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: comm
|
||
|
integer, value, intent(in) :: flag
|
||
|
end function MPI_Comm_test_inter
|
||
|
|
||
|
end interface MPI_Comm_test_inter
|
||
|
|
||
|
|
||
|
interface MPI_Dims_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Dims_create(nnodes, ndims, dims, ierr) &
|
||
|
BIND(C, name="MPI_Dims_create")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: nnodes
|
||
|
integer(INT_C), value, intent(in) :: ndims
|
||
|
integer(INT_C), dimension(*), value, intent(inout) :: dims
|
||
|
end function MPI_Dims_create
|
||
|
|
||
|
end interface MPI_Dims_create
|
||
|
|
||
|
|
||
|
interface MPI_Errhandler_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Errhandler_create(function, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Errhandler_create")
|
||
|
use MPI_C_BINDING
|
||
|
external :: function
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_Errhandler_create
|
||
|
|
||
|
end interface MPI_Errhandler_create
|
||
|
|
||
|
|
||
|
interface MPI_Errhandler_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Errhandler_free(errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Errhandler_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: errhandler
|
||
|
end function MPI_Errhandler_free
|
||
|
|
||
|
end interface MPI_Errhandler_free
|
||
|
|
||
|
|
||
|
interface MPI_Errhandler_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Errhandler_get(comm, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Errhandler_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_Errhandler_get
|
||
|
|
||
|
end interface MPI_Errhandler_get
|
||
|
|
||
|
|
||
|
interface MPI_Errhandler_set
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Errhandler_set(comm, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Errhandler_set")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: errhandler
|
||
|
end function MPI_Errhandler_set
|
||
|
|
||
|
end interface MPI_Errhandler_set
|
||
|
|
||
|
|
||
|
interface MPI_Error_class
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Error_class(errorcode, errorclass, ierr) &
|
||
|
BIND(C, name="MPI_Error_class")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
integer(INT_C), value, intent(out) :: errorclass
|
||
|
end function MPI_Error_class
|
||
|
|
||
|
end interface MPI_Error_class
|
||
|
|
||
|
|
||
|
interface MPI_Error_string
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Error_string(errorcode, string, resultlen, ierr) &
|
||
|
BIND(C, name="MPI_Error_string")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
character(len=*), value, intent(out) :: string
|
||
|
integer(INT_C), value, intent(out) :: resultlen
|
||
|
end function MPI_Error_string
|
||
|
|
||
|
end interface MPI_Error_string
|
||
|
|
||
|
|
||
|
interface MPI_File_call_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_call_errhandler(fh, errorcode, ierr) &
|
||
|
BIND(C, name="MPI_File_call_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
end function MPI_File_call_errhandler
|
||
|
|
||
|
end interface MPI_File_call_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_File_close
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_close(fh, ierr) &
|
||
|
BIND(C, name="MPI_File_close")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
end function MPI_File_close
|
||
|
|
||
|
end interface MPI_File_close
|
||
|
|
||
|
|
||
|
interface MPI_File_create_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_create_errhandler(function, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_File_create_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
external :: function
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_File_create_errhandler
|
||
|
|
||
|
end interface MPI_File_create_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_File_delete
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_delete(filename, info, ierr) &
|
||
|
BIND(C, name="MPI_File_delete")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: filename
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
end function MPI_File_delete
|
||
|
|
||
|
end interface MPI_File_delete
|
||
|
|
||
|
|
||
|
interface MPI_File_get_amode
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_amode(fh, amode, ierr) &
|
||
|
BIND(C, name="MPI_File_get_amode")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(INT_C), value, intent(out) :: amode
|
||
|
end function MPI_File_get_amode
|
||
|
|
||
|
end interface MPI_File_get_amode
|
||
|
|
||
|
|
||
|
interface MPI_File_get_atomicity
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_atomicity(fh, flag, ierr) &
|
||
|
BIND(C, name="MPI_File_get_atomicity")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_File_get_atomicity
|
||
|
|
||
|
end interface MPI_File_get_atomicity
|
||
|
|
||
|
|
||
|
interface MPI_File_get_byte_offset
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_byte_offset(fh, offset, disp, ierr) &
|
||
|
BIND(C, name="MPI_File_get_byte_offset")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(out) :: disp
|
||
|
end function MPI_File_get_byte_offset
|
||
|
|
||
|
end interface MPI_File_get_byte_offset
|
||
|
|
||
|
|
||
|
interface MPI_File_get_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_errhandler(file, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_File_get_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: file
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_File_get_errhandler
|
||
|
|
||
|
end interface MPI_File_get_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_File_get_group
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_group(fh, group, ierr) &
|
||
|
BIND(C, name="MPI_File_get_group")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: group
|
||
|
end function MPI_File_get_group
|
||
|
|
||
|
end interface MPI_File_get_group
|
||
|
|
||
|
|
||
|
interface MPI_File_get_info
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_info(fh, info_used, ierr) &
|
||
|
BIND(C, name="MPI_File_get_info")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: info_used
|
||
|
end function MPI_File_get_info
|
||
|
|
||
|
end interface MPI_File_get_info
|
||
|
|
||
|
|
||
|
interface MPI_File_get_position
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_position(fh, offset, ierr) &
|
||
|
BIND(C, name="MPI_File_get_position")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(out) :: offset
|
||
|
end function MPI_File_get_position
|
||
|
|
||
|
end interface MPI_File_get_position
|
||
|
|
||
|
|
||
|
interface MPI_File_get_position_shared
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_position_shared(fh, offset, ierr) &
|
||
|
BIND(C, name="MPI_File_get_position_shared")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(out) :: offset
|
||
|
end function MPI_File_get_position_shared
|
||
|
|
||
|
end interface MPI_File_get_position_shared
|
||
|
|
||
|
|
||
|
interface MPI_File_get_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_size(fh, size, ierr) &
|
||
|
BIND(C, name="MPI_File_get_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(out) :: size
|
||
|
end function MPI_File_get_size
|
||
|
|
||
|
end interface MPI_File_get_size
|
||
|
|
||
|
|
||
|
interface MPI_File_get_type_extent
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_type_extent(fh, datatype, extent, ierr) &
|
||
|
BIND(C, name="MPI_File_get_type_extent")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: extent
|
||
|
end function MPI_File_get_type_extent
|
||
|
|
||
|
end interface MPI_File_get_type_extent
|
||
|
|
||
|
|
||
|
interface MPI_File_get_view
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_get_view(fh, disp, etype, filetype, datarep, ierr) &
|
||
|
BIND(C, name="MPI_File_get_view")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(out) :: disp
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: etype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: filetype
|
||
|
character(len=*), value, intent(out) :: datarep
|
||
|
end function MPI_File_get_view
|
||
|
|
||
|
end interface MPI_File_get_view
|
||
|
|
||
|
|
||
|
interface MPI_File_iread
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_iread(fh, buf, count, datatype, request, ierr) &
|
||
|
BIND(C, name="MPI_File_iread")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_File_iread
|
||
|
|
||
|
end interface MPI_File_iread
|
||
|
|
||
|
|
||
|
interface MPI_File_iread_at
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_iread_at(fh, offset, buf, count, datatype, request, ierr) &
|
||
|
BIND(C, name="MPI_File_iread_at")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_File_iread_at
|
||
|
|
||
|
end interface MPI_File_iread_at
|
||
|
|
||
|
|
||
|
interface MPI_File_iread_shared
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_iread_shared(fh, buf, count, datatype, request, ierr) &
|
||
|
BIND(C, name="MPI_File_iread_shared")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_File_iread_shared
|
||
|
|
||
|
end interface MPI_File_iread_shared
|
||
|
|
||
|
|
||
|
interface MPI_File_iwrite
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_iwrite(fh, buf, count, datatype, request, ierr) &
|
||
|
BIND(C, name="MPI_File_iwrite")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_File_iwrite
|
||
|
|
||
|
end interface MPI_File_iwrite
|
||
|
|
||
|
|
||
|
interface MPI_File_iwrite_at
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_iwrite_at(fh, offset, buf, count, datatype, request, ierr) &
|
||
|
BIND(C, name="MPI_File_iwrite_at")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_File_iwrite_at
|
||
|
|
||
|
end interface MPI_File_iwrite_at
|
||
|
|
||
|
|
||
|
interface MPI_File_iwrite_shared
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_iwrite_shared(fh, buf, count, datatype, request, ierr) &
|
||
|
BIND(C, name="MPI_File_iwrite_shared")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_File_iwrite_shared
|
||
|
|
||
|
end interface MPI_File_iwrite_shared
|
||
|
|
||
|
|
||
|
interface MPI_File_open
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_open(comm, filename, amode, info, fh, ierr) &
|
||
|
BIND(C, name="MPI_File_open")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
character(len=*), value, intent(in) :: filename
|
||
|
integer(INT_C), value, intent(in) :: amode
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: fh
|
||
|
end function MPI_File_open
|
||
|
|
||
|
end interface MPI_File_open
|
||
|
|
||
|
|
||
|
interface MPI_File_preallocate
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_preallocate(fh, size, ierr) &
|
||
|
BIND(C, name="MPI_File_preallocate")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: size
|
||
|
end function MPI_File_preallocate
|
||
|
|
||
|
end interface MPI_File_preallocate
|
||
|
|
||
|
|
||
|
interface MPI_File_read
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read
|
||
|
|
||
|
end interface MPI_File_read
|
||
|
|
||
|
|
||
|
interface MPI_File_read_all
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_all(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_all")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_all
|
||
|
|
||
|
end interface MPI_File_read_all
|
||
|
|
||
|
|
||
|
interface MPI_File_read_all_begin
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_all_begin(fh, buf, count, datatype, ierr) &
|
||
|
BIND(C, name="MPI_File_read_all_begin")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
end function MPI_File_read_all_begin
|
||
|
|
||
|
end interface MPI_File_read_all_begin
|
||
|
|
||
|
|
||
|
interface MPI_File_read_all_end
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_all_end(fh, buf, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_all_end")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_all_end
|
||
|
|
||
|
end interface MPI_File_read_all_end
|
||
|
|
||
|
|
||
|
interface MPI_File_read_at
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_at(fh, offset, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_at")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_at
|
||
|
|
||
|
end interface MPI_File_read_at
|
||
|
|
||
|
|
||
|
interface MPI_File_read_at_all
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_at_all(fh, offset, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_at_all")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_at_all
|
||
|
|
||
|
end interface MPI_File_read_at_all
|
||
|
|
||
|
|
||
|
interface MPI_File_read_at_all_begin
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_at_all_begin(fh, offset, buf, count, datatype, ierr) &
|
||
|
BIND(C, name="MPI_File_read_at_all_begin")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
end function MPI_File_read_at_all_begin
|
||
|
|
||
|
end interface MPI_File_read_at_all_begin
|
||
|
|
||
|
|
||
|
interface MPI_File_read_at_all_end
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_at_all_end(fh, buf, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_at_all_end")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_at_all_end
|
||
|
|
||
|
end interface MPI_File_read_at_all_end
|
||
|
|
||
|
|
||
|
interface MPI_File_read_ordered
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_ordered(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_ordered")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_ordered
|
||
|
|
||
|
end interface MPI_File_read_ordered
|
||
|
|
||
|
|
||
|
interface MPI_File_read_ordered_begin
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_ordered_begin(fh, buf, count, datatype, ierr) &
|
||
|
BIND(C, name="MPI_File_read_ordered_begin")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
end function MPI_File_read_ordered_begin
|
||
|
|
||
|
end interface MPI_File_read_ordered_begin
|
||
|
|
||
|
|
||
|
interface MPI_File_read_ordered_end
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_ordered_end(fh, buf, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_ordered_end")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_ordered_end
|
||
|
|
||
|
end interface MPI_File_read_ordered_end
|
||
|
|
||
|
|
||
|
interface MPI_File_read_shared
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_read_shared(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_read_shared")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_read_shared
|
||
|
|
||
|
end interface MPI_File_read_shared
|
||
|
|
||
|
|
||
|
interface MPI_File_seek
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_seek(fh, offset, whence, ierr) &
|
||
|
BIND(C, name="MPI_File_seek")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
integer(INT_C), value, intent(in) :: whence
|
||
|
end function MPI_File_seek
|
||
|
|
||
|
end interface MPI_File_seek
|
||
|
|
||
|
|
||
|
interface MPI_File_seek_shared
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_seek_shared(fh, offset, whence, ierr) &
|
||
|
BIND(C, name="MPI_File_seek_shared")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
integer(INT_C), value, intent(in) :: whence
|
||
|
end function MPI_File_seek_shared
|
||
|
|
||
|
end interface MPI_File_seek_shared
|
||
|
|
||
|
|
||
|
interface MPI_File_set_atomicity
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_set_atomicity(fh, flag, ierr) &
|
||
|
BIND(C, name="MPI_File_set_atomicity")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer, value, intent(in) :: flag
|
||
|
end function MPI_File_set_atomicity
|
||
|
|
||
|
end interface MPI_File_set_atomicity
|
||
|
|
||
|
|
||
|
interface MPI_File_set_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_set_errhandler(file, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_File_set_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: file
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: errhandler
|
||
|
end function MPI_File_set_errhandler
|
||
|
|
||
|
end interface MPI_File_set_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_File_set_info
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_set_info(fh, info, ierr) &
|
||
|
BIND(C, name="MPI_File_set_info")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
end function MPI_File_set_info
|
||
|
|
||
|
end interface MPI_File_set_info
|
||
|
|
||
|
|
||
|
interface MPI_File_set_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_set_size(fh, size, ierr) &
|
||
|
BIND(C, name="MPI_File_set_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: size
|
||
|
end function MPI_File_set_size
|
||
|
|
||
|
end interface MPI_File_set_size
|
||
|
|
||
|
|
||
|
interface MPI_File_set_view
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_set_view(fh, disp, etype, filetype, datarep, info, ierr) &
|
||
|
BIND(C, name="MPI_File_set_view")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: disp
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: etype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: filetype
|
||
|
character(len=*), value, intent(in) :: datarep
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
end function MPI_File_set_view
|
||
|
|
||
|
end interface MPI_File_set_view
|
||
|
|
||
|
|
||
|
interface MPI_File_sync
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_sync(fh, ierr) &
|
||
|
BIND(C, name="MPI_File_sync")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
end function MPI_File_sync
|
||
|
|
||
|
end interface MPI_File_sync
|
||
|
|
||
|
|
||
|
interface MPI_File_write
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write
|
||
|
|
||
|
end interface MPI_File_write
|
||
|
|
||
|
|
||
|
interface MPI_File_write_all
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_all(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_all")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_all
|
||
|
|
||
|
end interface MPI_File_write_all
|
||
|
|
||
|
|
||
|
interface MPI_File_write_all_begin
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_all_begin(fh, buf, count, datatype, ierr) &
|
||
|
BIND(C, name="MPI_File_write_all_begin")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
end function MPI_File_write_all_begin
|
||
|
|
||
|
end interface MPI_File_write_all_begin
|
||
|
|
||
|
|
||
|
interface MPI_File_write_all_end
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_all_end(fh, buf, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_all_end")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_all_end
|
||
|
|
||
|
end interface MPI_File_write_all_end
|
||
|
|
||
|
|
||
|
interface MPI_File_write_at
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_at(fh, offset, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_at")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_at
|
||
|
|
||
|
end interface MPI_File_write_at
|
||
|
|
||
|
|
||
|
interface MPI_File_write_at_all
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_at_all(fh, offset, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_at_all")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_at_all
|
||
|
|
||
|
end interface MPI_File_write_at_all
|
||
|
|
||
|
|
||
|
interface MPI_File_write_at_all_begin
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_at_all_begin(fh, offset, buf, count, datatype, ierr) &
|
||
|
BIND(C, name="MPI_File_write_at_all_begin")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
integer(kind=MPI_OFFSET_KIND), value, intent(in) :: offset
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
end function MPI_File_write_at_all_begin
|
||
|
|
||
|
end interface MPI_File_write_at_all_begin
|
||
|
|
||
|
|
||
|
interface MPI_File_write_at_all_end
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_at_all_end(fh, buf, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_at_all_end")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_at_all_end
|
||
|
|
||
|
end interface MPI_File_write_at_all_end
|
||
|
|
||
|
|
||
|
interface MPI_File_write_ordered
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_ordered(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_ordered")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_ordered
|
||
|
|
||
|
end interface MPI_File_write_ordered
|
||
|
|
||
|
|
||
|
interface MPI_File_write_ordered_begin
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_ordered_begin(fh, buf, count, datatype, ierr) &
|
||
|
BIND(C, name="MPI_File_write_ordered_begin")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
end function MPI_File_write_ordered_begin
|
||
|
|
||
|
end interface MPI_File_write_ordered_begin
|
||
|
|
||
|
|
||
|
interface MPI_File_write_ordered_end
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_ordered_end(fh, buf, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_ordered_end")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_ordered_end
|
||
|
|
||
|
end interface MPI_File_write_ordered_end
|
||
|
|
||
|
|
||
|
interface MPI_File_write_shared
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_File_write_shared(fh, buf, count, datatype, status, ierr) &
|
||
|
BIND(C, name="MPI_File_write_shared")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: fh
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_STATUS_SIZE), value, intent(out) :: status
|
||
|
end function MPI_File_write_shared
|
||
|
|
||
|
end interface MPI_File_write_shared
|
||
|
|
||
|
|
||
|
interface MPI_Finalize
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Finalize(ierr) &
|
||
|
BIND(C, name="MPI_Finalize")
|
||
|
use MPI_C_BINDING
|
||
|
end function MPI_Finalize
|
||
|
|
||
|
end interface MPI_Finalize
|
||
|
|
||
|
|
||
|
interface MPI_Finalized
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Finalized(flag, ierr) &
|
||
|
BIND(C, name="MPI_Finalized")
|
||
|
use MPI_C_BINDING
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Finalized
|
||
|
|
||
|
end interface MPI_Finalized
|
||
|
|
||
|
|
||
|
interface MPI_Get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Get(origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, &
|
||
|
win, ierr) &
|
||
|
BIND(C, name="MPI_Get")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: origin_addr
|
||
|
integer(INT_C), value, intent(in) :: origin_count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: origin_datatype
|
||
|
integer(INT_C), value, intent(in) :: target_rank
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: target_disp
|
||
|
integer(INT_C), value, intent(in) :: target_count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: target_datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Get
|
||
|
|
||
|
end interface MPI_Get
|
||
|
|
||
|
|
||
|
interface MPI_Get_count
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Get_count(status, datatype, count, ierr) &
|
||
|
BIND(C, name="MPI_Get_count")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_STATUS_SIZE), value, intent(in) :: status
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(out) :: count
|
||
|
end function MPI_Get_count
|
||
|
|
||
|
end interface MPI_Get_count
|
||
|
|
||
|
|
||
|
interface MPI_Get_elements
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Get_elements(status, datatype, count, ierr) &
|
||
|
BIND(C, name="MPI_Get_elements")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_STATUS_SIZE), value, intent(in) :: status
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(out) :: count
|
||
|
end function MPI_Get_elements
|
||
|
|
||
|
end interface MPI_Get_elements
|
||
|
|
||
|
|
||
|
interface MPI_Get_processor_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Get_processor_name(name, resultlen, ierr) &
|
||
|
BIND(C, name="MPI_Get_processor_name")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(out) :: name
|
||
|
integer(INT_C), value, intent(out) :: resultlen
|
||
|
end function MPI_Get_processor_name
|
||
|
|
||
|
end interface MPI_Get_processor_name
|
||
|
|
||
|
|
||
|
interface MPI_Get_version
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Get_version(version, subversion, ierr) &
|
||
|
BIND(C, name="MPI_Get_version")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(out) :: version
|
||
|
integer(INT_C), value, intent(out) :: subversion
|
||
|
end function MPI_Get_version
|
||
|
|
||
|
end interface MPI_Get_version
|
||
|
|
||
|
|
||
|
interface MPI_Graph_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Graph_create(comm_old, nnodes, index, edges, reorder, comm_graph, ierr) &
|
||
|
BIND(C, name="MPI_Graph_create")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm_old
|
||
|
integer(INT_C), value, intent(in) :: nnodes
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: index
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: edges
|
||
|
integer(INT_C), value, intent(in) :: reorder
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: comm_graph
|
||
|
end function MPI_Graph_create
|
||
|
|
||
|
end interface MPI_Graph_create
|
||
|
|
||
|
|
||
|
interface MPI_Graph_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Graph_get(comm, maxindex, maxedges, index, edges, ierr) &
|
||
|
BIND(C, name="MPI_Graph_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: maxindex
|
||
|
integer(INT_C), value, intent(in) :: maxedges
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: index
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: edges
|
||
|
end function MPI_Graph_get
|
||
|
|
||
|
end interface MPI_Graph_get
|
||
|
|
||
|
|
||
|
interface MPI_Graph_map
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Graph_map(comm, nnodes, index, edges, newrank, ierr) &
|
||
|
BIND(C, name="MPI_Graph_map")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: nnodes
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: index
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: edges
|
||
|
integer(INT_C), value, intent(out) :: newrank
|
||
|
end function MPI_Graph_map
|
||
|
|
||
|
end interface MPI_Graph_map
|
||
|
|
||
|
|
||
|
interface MPI_Graph_neighbors
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Graph_neighbors(comm, rank, maxneighbors, neighbors, ierr) &
|
||
|
BIND(C, name="MPI_Graph_neighbors")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: rank
|
||
|
integer(INT_C), value, intent(in) :: maxneighbors
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: neighbors
|
||
|
end function MPI_Graph_neighbors
|
||
|
|
||
|
end interface MPI_Graph_neighbors
|
||
|
|
||
|
|
||
|
interface MPI_Graph_neighbors_count
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Graph_neighbors_count(comm, rank, nneighbors, ierr) &
|
||
|
BIND(C, name="MPI_Graph_neighbors_count")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(in) :: rank
|
||
|
integer(INT_C), value, intent(out) :: nneighbors
|
||
|
end function MPI_Graph_neighbors_count
|
||
|
|
||
|
end interface MPI_Graph_neighbors_count
|
||
|
|
||
|
|
||
|
interface MPI_Graphdims_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Graphdims_get(comm, nnodes, nedges, ierr) &
|
||
|
BIND(C, name="MPI_Graphdims_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: nnodes
|
||
|
integer(INT_C), value, intent(out) :: nedges
|
||
|
end function MPI_Graphdims_get
|
||
|
|
||
|
end interface MPI_Graphdims_get
|
||
|
|
||
|
|
||
|
interface MPI_Grequest_complete
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Grequest_complete(request, ierr) &
|
||
|
BIND(C, name="MPI_Grequest_complete")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: request
|
||
|
end function MPI_Grequest_complete
|
||
|
|
||
|
end interface MPI_Grequest_complete
|
||
|
|
||
|
|
||
|
interface MPI_Grequest_start
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Grequest_start(query_fn, free_fn, cancel_fn, extra_state, request, ierr) &
|
||
|
BIND(C, name="MPI_Grequest_start")
|
||
|
use MPI_C_BINDING
|
||
|
external :: query_fn
|
||
|
external :: free_fn
|
||
|
external :: cancel_fn
|
||
|
integer(C_INT), value, intent(in) :: extra_state
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Grequest_start
|
||
|
|
||
|
end interface MPI_Grequest_start
|
||
|
|
||
|
|
||
|
interface MPI_Group_compare
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_compare(group1, group2, result, ierr) &
|
||
|
BIND(C, name="MPI_Group_compare")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group1
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group2
|
||
|
integer(INT_C), value, intent(out) :: result
|
||
|
end function MPI_Group_compare
|
||
|
|
||
|
end interface MPI_Group_compare
|
||
|
|
||
|
|
||
|
interface MPI_Group_difference
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_difference(group1, group2, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_difference")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group1
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group2
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_difference
|
||
|
|
||
|
end interface MPI_Group_difference
|
||
|
|
||
|
|
||
|
interface MPI_Group_excl
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_excl(group, n, ranks, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_excl")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(in) :: n
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: ranks
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_excl
|
||
|
|
||
|
end interface MPI_Group_excl
|
||
|
|
||
|
|
||
|
interface MPI_Group_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_free(group, ierr) &
|
||
|
BIND(C, name="MPI_Group_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: group
|
||
|
end function MPI_Group_free
|
||
|
|
||
|
end interface MPI_Group_free
|
||
|
|
||
|
|
||
|
interface MPI_Group_incl
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_incl(group, n, ranks, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_incl")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(in) :: n
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: ranks
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_incl
|
||
|
|
||
|
end interface MPI_Group_incl
|
||
|
|
||
|
|
||
|
interface MPI_Group_intersection
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_intersection(group1, group2, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_intersection")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group1
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group2
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_intersection
|
||
|
|
||
|
end interface MPI_Group_intersection
|
||
|
|
||
|
|
||
|
interface MPI_Group_range_excl
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_range_excl(group, n, ranges, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_range_excl")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(in) :: n
|
||
|
integer(INT_C), dimension(3, *), value, intent(in) :: ranges
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_range_excl
|
||
|
|
||
|
end interface MPI_Group_range_excl
|
||
|
|
||
|
|
||
|
interface MPI_Group_range_incl
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_range_incl(group, n, ranges, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_range_incl")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(in) :: n
|
||
|
integer(INT_C), dimension(3, *), value, intent(in) :: ranges
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_range_incl
|
||
|
|
||
|
end interface MPI_Group_range_incl
|
||
|
|
||
|
|
||
|
interface MPI_Group_rank
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_rank(group, rank, ierr) &
|
||
|
BIND(C, name="MPI_Group_rank")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(out) :: rank
|
||
|
end function MPI_Group_rank
|
||
|
|
||
|
end interface MPI_Group_rank
|
||
|
|
||
|
|
||
|
interface MPI_Group_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_size(group, size, ierr) &
|
||
|
BIND(C, name="MPI_Group_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_Group_size
|
||
|
|
||
|
end interface MPI_Group_size
|
||
|
|
||
|
|
||
|
interface MPI_Group_translate_ranks
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_translate_ranks(group1, n, ranks1, group2, ranks2, ierr) &
|
||
|
BIND(C, name="MPI_Group_translate_ranks")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group1
|
||
|
integer(INT_C), value, intent(in) :: n
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: ranks1
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group2
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: ranks2
|
||
|
end function MPI_Group_translate_ranks
|
||
|
|
||
|
end interface MPI_Group_translate_ranks
|
||
|
|
||
|
|
||
|
interface MPI_Group_union
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Group_union(group1, group2, newgroup, ierr) &
|
||
|
BIND(C, name="MPI_Group_union")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group1
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group2
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newgroup
|
||
|
end function MPI_Group_union
|
||
|
|
||
|
end interface MPI_Group_union
|
||
|
|
||
|
|
||
|
interface MPI_Ibsend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Ibsend(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Ibsend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Ibsend
|
||
|
|
||
|
end interface MPI_Ibsend
|
||
|
|
||
|
|
||
|
interface MPI_Info_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_create(info, ierr) &
|
||
|
BIND(C, name="MPI_Info_create")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: info
|
||
|
end function MPI_Info_create
|
||
|
|
||
|
end interface MPI_Info_create
|
||
|
|
||
|
|
||
|
interface MPI_Info_delete
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_delete(info, key, ierr) &
|
||
|
BIND(C, name="MPI_Info_delete")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: info
|
||
|
character(len=*), value, intent(in) :: key
|
||
|
end function MPI_Info_delete
|
||
|
|
||
|
end interface MPI_Info_delete
|
||
|
|
||
|
|
||
|
interface MPI_Info_dup
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_dup(info, newinfo, ierr) &
|
||
|
BIND(C, name="MPI_Info_dup")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newinfo
|
||
|
end function MPI_Info_dup
|
||
|
|
||
|
end interface MPI_Info_dup
|
||
|
|
||
|
|
||
|
interface MPI_Info_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_free(info, ierr) &
|
||
|
BIND(C, name="MPI_Info_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: info
|
||
|
end function MPI_Info_free
|
||
|
|
||
|
end interface MPI_Info_free
|
||
|
|
||
|
|
||
|
interface MPI_Info_get
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_get(info, key, valuelen, value, flag, ierr) &
|
||
|
BIND(C, name="MPI_Info_get")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
character(len=*), value, intent(in) :: key
|
||
|
integer(INT_C), value, intent(in) :: valuelen
|
||
|
character(len=*), value, intent(out) :: value
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Info_get
|
||
|
|
||
|
end interface MPI_Info_get
|
||
|
|
||
|
|
||
|
interface MPI_Info_get_nkeys
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_get_nkeys(info, nkeys, ierr) &
|
||
|
BIND(C, name="MPI_Info_get_nkeys")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(INT_C), value, intent(out) :: nkeys
|
||
|
end function MPI_Info_get_nkeys
|
||
|
|
||
|
end interface MPI_Info_get_nkeys
|
||
|
|
||
|
|
||
|
interface MPI_Info_get_nthkey
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_get_nthkey(info, n, key, ierr) &
|
||
|
BIND(C, name="MPI_Info_get_nthkey")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(INT_C), value, intent(in) :: n
|
||
|
character(len=*), value, intent(out) :: key
|
||
|
end function MPI_Info_get_nthkey
|
||
|
|
||
|
end interface MPI_Info_get_nthkey
|
||
|
|
||
|
|
||
|
interface MPI_Info_get_valuelen
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_get_valuelen(info, key, valuelen, flag, ierr) &
|
||
|
BIND(C, name="MPI_Info_get_valuelen")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
character(len=*), value, intent(in) :: key
|
||
|
integer(INT_C), value, intent(out) :: valuelen
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Info_get_valuelen
|
||
|
|
||
|
end interface MPI_Info_get_valuelen
|
||
|
|
||
|
|
||
|
interface MPI_Info_set
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Info_set(info, key, value, ierr) &
|
||
|
BIND(C, name="MPI_Info_set")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: info
|
||
|
character(len=*), value, intent(in) :: key
|
||
|
character(len=*), value, intent(in) :: value
|
||
|
end function MPI_Info_set
|
||
|
|
||
|
end interface MPI_Info_set
|
||
|
|
||
|
|
||
|
interface MPI_Init
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Init(ierr) &
|
||
|
BIND(C, name="MPI_Init")
|
||
|
use MPI_C_BINDING
|
||
|
end function MPI_Init
|
||
|
|
||
|
end interface MPI_Init
|
||
|
|
||
|
|
||
|
interface MPI_Init_thread
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Init_thread(required, provided, ierr) &
|
||
|
BIND(C, name="MPI_Init_thread")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: required
|
||
|
integer(INT_C), value, intent(out) :: provided
|
||
|
end function MPI_Init_thread
|
||
|
|
||
|
end interface MPI_Init_thread
|
||
|
|
||
|
|
||
|
interface MPI_Initialized
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Initialized(flag, ierr) &
|
||
|
BIND(C, name="MPI_Initialized")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(out) :: flag
|
||
|
end function MPI_Initialized
|
||
|
|
||
|
end interface MPI_Initialized
|
||
|
|
||
|
|
||
|
interface MPI_Intercomm_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Intercomm_create(local_comm, local_leader, bridge_comm, remote_leader, tag, newintercomm, ierr) &
|
||
|
BIND(C, name="MPI_Intercomm_create")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: local_comm
|
||
|
integer(INT_C), value, intent(in) :: local_leader
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: bridge_comm
|
||
|
integer(INT_C), value, intent(in) :: remote_leader
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newintercomm
|
||
|
end function MPI_Intercomm_create
|
||
|
|
||
|
end interface MPI_Intercomm_create
|
||
|
|
||
|
|
||
|
interface MPI_Intercomm_merge
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Intercomm_merge(intercomm, high, newintercomm, ierr) &
|
||
|
BIND(C, name="MPI_Intercomm_merge")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: intercomm
|
||
|
integer(INT_C), value, intent(in) :: high
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newintercomm
|
||
|
end function MPI_Intercomm_merge
|
||
|
|
||
|
end interface MPI_Intercomm_merge
|
||
|
|
||
|
|
||
|
interface MPI_Iprobe
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Iprobe(source, tag, comm, flag, status, ierr) &
|
||
|
BIND(C, name="MPI_Iprobe")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: source
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer, value, intent(out) :: flag
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Iprobe
|
||
|
|
||
|
end interface MPI_Iprobe
|
||
|
|
||
|
|
||
|
interface MPI_Irecv
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Irecv(buf, count, datatype, source, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Irecv")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: source
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Irecv
|
||
|
|
||
|
end interface MPI_Irecv
|
||
|
|
||
|
|
||
|
interface MPI_Irsend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Irsend(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Irsend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Irsend
|
||
|
|
||
|
end interface MPI_Irsend
|
||
|
|
||
|
|
||
|
interface MPI_Is_thread_main
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Is_thread_main(flag, ierr) &
|
||
|
BIND(C, name="MPI_Is_thread_main")
|
||
|
use MPI_C_BINDING
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Is_thread_main
|
||
|
|
||
|
end interface MPI_Is_thread_main
|
||
|
|
||
|
|
||
|
interface MPI_Isend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Isend(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Isend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Isend
|
||
|
|
||
|
end interface MPI_Isend
|
||
|
|
||
|
|
||
|
interface MPI_Issend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Issend(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Issend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Issend
|
||
|
|
||
|
end interface MPI_Issend
|
||
|
|
||
|
|
||
|
interface MPI_Keyval_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierr) &
|
||
|
BIND(C, name="MPI_Keyval_create")
|
||
|
use MPI_C_BINDING
|
||
|
external :: copy_fn
|
||
|
external :: delete_fn
|
||
|
integer(INT_C), value, intent(out) :: keyval
|
||
|
integer(C_INT), value, intent(in) :: extra_state
|
||
|
end function MPI_Keyval_create
|
||
|
|
||
|
end interface MPI_Keyval_create
|
||
|
|
||
|
|
||
|
interface MPI_Keyval_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Keyval_free(keyval, ierr) &
|
||
|
BIND(C, name="MPI_Keyval_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(inout) :: keyval
|
||
|
end function MPI_Keyval_free
|
||
|
|
||
|
end interface MPI_Keyval_free
|
||
|
|
||
|
|
||
|
interface MPI_Op_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Op_create(function, commute, op, ierr) &
|
||
|
BIND(C, name="MPI_Op_create")
|
||
|
use MPI_C_BINDING
|
||
|
external :: function
|
||
|
integer, value, intent(in) :: commute
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: op
|
||
|
end function MPI_Op_create
|
||
|
|
||
|
end interface MPI_Op_create
|
||
|
|
||
|
|
||
|
interface MPI_Op_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Op_free(op, ierr) &
|
||
|
BIND(C, name="MPI_Op_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: op
|
||
|
end function MPI_Op_free
|
||
|
|
||
|
end interface MPI_Op_free
|
||
|
|
||
|
|
||
|
interface MPI_Pack_external_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Pack_external_size(datarep, incount, datatype, size, ierr) &
|
||
|
BIND(C, name="MPI_Pack_external_size")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: datarep
|
||
|
integer(INT_C), value, intent(in) :: incount
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: size
|
||
|
end function MPI_Pack_external_size
|
||
|
|
||
|
end interface MPI_Pack_external_size
|
||
|
|
||
|
|
||
|
interface MPI_Pack_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Pack_size(incount, datatype, comm, size, ierr) &
|
||
|
BIND(C, name="MPI_Pack_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: incount
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_Pack_size
|
||
|
|
||
|
end interface MPI_Pack_size
|
||
|
|
||
|
|
||
|
interface MPI_Pcontrol
|
||
|
|
||
|
subroutine MPI_Pcontrol(level) &
|
||
|
BIND(C, name="MPI_Pcontrol")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: level
|
||
|
end subroutine MPI_Pcontrol
|
||
|
|
||
|
end interface MPI_Pcontrol
|
||
|
|
||
|
|
||
|
interface MPI_Probe
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Probe(source, tag, comm, status, ierr) &
|
||
|
BIND(C, name="MPI_Probe")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: source
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Probe
|
||
|
|
||
|
end interface MPI_Probe
|
||
|
|
||
|
|
||
|
interface MPI_Put
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Put(origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, &
|
||
|
win, ierr) &
|
||
|
BIND(C, name="MPI_Put")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: origin_addr
|
||
|
integer(INT_C), value, intent(in) :: origin_count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: origin_datatype
|
||
|
integer(INT_C), value, intent(in) :: target_rank
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: target_disp
|
||
|
integer(INT_C), value, intent(in) :: target_count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: target_datatype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Put
|
||
|
|
||
|
end interface MPI_Put
|
||
|
|
||
|
|
||
|
interface MPI_Query_thread
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Query_thread(provided, ierr) &
|
||
|
BIND(C, name="MPI_Query_thread")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(out) :: provided
|
||
|
end function MPI_Query_thread
|
||
|
|
||
|
end interface MPI_Query_thread
|
||
|
|
||
|
|
||
|
interface MPI_Recv
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Recv(buf, count, datatype, source, tag, comm, status&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Recv")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: source
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Recv
|
||
|
|
||
|
end interface MPI_Recv
|
||
|
|
||
|
|
||
|
interface MPI_Recv_init
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Recv_init(buf, count, datatype, source, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Recv_init")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(out) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: source
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Recv_init
|
||
|
|
||
|
end interface MPI_Recv_init
|
||
|
|
||
|
|
||
|
interface MPI_Register_datarep
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Register_datarep(datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state, ierr) &
|
||
|
BIND(C, name="MPI_Register_datarep")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: datarep
|
||
|
external :: read_conversion_fn
|
||
|
external :: write_conversion_fn
|
||
|
external :: dtype_file_extent_fn
|
||
|
integer(C_INT), value, intent(in) :: extra_state
|
||
|
end function MPI_Register_datarep
|
||
|
|
||
|
end interface MPI_Register_datarep
|
||
|
|
||
|
|
||
|
interface MPI_Request_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Request_free(request, ierr) &
|
||
|
BIND(C, name="MPI_Request_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: request
|
||
|
end function MPI_Request_free
|
||
|
|
||
|
end interface MPI_Request_free
|
||
|
|
||
|
|
||
|
interface MPI_Request_get_status
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Request_get_status(request, flag, status, ierr) &
|
||
|
BIND(C, name="MPI_Request_get_status")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: request
|
||
|
integer, value, intent(out) :: flag
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Request_get_status
|
||
|
|
||
|
end interface MPI_Request_get_status
|
||
|
|
||
|
|
||
|
interface MPI_Rsend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Rsend(ibuf, count, datatype, dest, tag, comm, ierr) &
|
||
|
BIND(C, name="MPI_Rsend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: ibuf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
end function MPI_Rsend
|
||
|
|
||
|
end interface MPI_Rsend
|
||
|
|
||
|
|
||
|
interface MPI_Rsend_init
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Rsend_init(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Rsend_init")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Rsend_init
|
||
|
|
||
|
end interface MPI_Rsend_init
|
||
|
|
||
|
|
||
|
interface MPI_Send
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Send(buf, count, datatype, dest, tag, comm, ierr) &
|
||
|
BIND(C, name="MPI_Send")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
end function MPI_Send
|
||
|
|
||
|
end interface MPI_Send
|
||
|
|
||
|
|
||
|
interface MPI_Send_init
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Send_init(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Send_init")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Send_init
|
||
|
|
||
|
end interface MPI_Send_init
|
||
|
|
||
|
|
||
|
interface MPI_Sendrecv_replace
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Sendrecv_replace(buf, count, datatype, dest, sendtag, source, recvtag, &
|
||
|
comm, status, ierr) &
|
||
|
BIND(C, name="MPI_Sendrecv_replace")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(inout) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: sendtag
|
||
|
integer(INT_C), value, intent(in) :: source
|
||
|
integer(INT_C), value, intent(in) :: recvtag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Sendrecv_replace
|
||
|
|
||
|
end interface MPI_Sendrecv_replace
|
||
|
|
||
|
|
||
|
interface MPI_SIZEOF
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_SIZEOF(x, size, ierr) &
|
||
|
BIND(C, name="MPI_SIZEOF")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: x
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_SIZEOF
|
||
|
|
||
|
end interface MPI_SIZEOF
|
||
|
|
||
|
|
||
|
interface MPI_Ssend
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Ssend(buf, count, datatype, dest, tag, comm, ierr) &
|
||
|
BIND(C, name="MPI_Ssend")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
end function MPI_Ssend
|
||
|
|
||
|
end interface MPI_Ssend
|
||
|
|
||
|
|
||
|
interface MPI_Ssend_init
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Ssend_init(buf, count, datatype, dest, tag, comm, request&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Ssend_init")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: buf
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: dest
|
||
|
integer(INT_C), value, intent(in) :: tag
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: request
|
||
|
end function MPI_Ssend_init
|
||
|
|
||
|
end interface MPI_Ssend_init
|
||
|
|
||
|
|
||
|
interface MPI_Start
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Start(request, ierr) &
|
||
|
BIND(C, name="MPI_Start")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: request
|
||
|
end function MPI_Start
|
||
|
|
||
|
end interface MPI_Start
|
||
|
|
||
|
|
||
|
interface MPI_Startall
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Startall(count, array_of_requests, ierr) &
|
||
|
BIND(C, name="MPI_Startall")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
end function MPI_Startall
|
||
|
|
||
|
end interface MPI_Startall
|
||
|
|
||
|
|
||
|
interface MPI_Status_set_cancelled
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Status_set_cancelled(status, flag, ierr) &
|
||
|
BIND(C, name="MPI_Status_set_cancelled")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
integer, value, intent(in) :: flag
|
||
|
end function MPI_Status_set_cancelled
|
||
|
|
||
|
end interface MPI_Status_set_cancelled
|
||
|
|
||
|
|
||
|
interface MPI_Status_set_elements
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Status_set_elements(status, datatype, count, ierr) &
|
||
|
BIND(C, name="MPI_Status_set_elements")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
end function MPI_Status_set_elements
|
||
|
|
||
|
end interface MPI_Status_set_elements
|
||
|
|
||
|
|
||
|
interface MPI_Test
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Test(request, flag, status, ierr) &
|
||
|
BIND(C, name="MPI_Test")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: request
|
||
|
integer, value, intent(out) :: flag
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Test
|
||
|
|
||
|
end interface MPI_Test
|
||
|
|
||
|
|
||
|
interface MPI_Test_cancelled
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Test_cancelled(status, flag, ierr) &
|
||
|
BIND(C, name="MPI_Test_cancelled")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_STATUS_SIZE), value, intent(in) :: status
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Test_cancelled
|
||
|
|
||
|
end interface MPI_Test_cancelled
|
||
|
|
||
|
|
||
|
interface MPI_Testall
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierr) &
|
||
|
BIND(C, name="MPI_Testall")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
integer, value, intent(out) :: flag
|
||
|
integer(MPI_STATUS_SIZE), dimension(*), value, intent(inout) :: array_of_statuses
|
||
|
end function MPI_Testall
|
||
|
|
||
|
end interface MPI_Testall
|
||
|
|
||
|
|
||
|
interface MPI_Testany
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Testany(count, array_of_requests, index, flag, status, ierr) &
|
||
|
BIND(C, name="MPI_Testany")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
integer(INT_C), value, intent(out) :: index
|
||
|
integer, value, intent(out) :: flag
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Testany
|
||
|
|
||
|
end interface MPI_Testany
|
||
|
|
||
|
|
||
|
interface MPI_Testsome
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr) &
|
||
|
BIND(C, name="MPI_Testsome")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: incount
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
integer(INT_C), value, intent(out) :: outcount
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: array_of_indices
|
||
|
integer(MPI_STATUS_SIZE), dimension(*), value, intent(inout) :: array_of_statuses
|
||
|
end function MPI_Testsome
|
||
|
|
||
|
end interface MPI_Testsome
|
||
|
|
||
|
|
||
|
interface MPI_Topo_test
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Topo_test(comm, status, ierr) &
|
||
|
BIND(C, name="MPI_Topo_test")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(INT_C), value, intent(out) :: status
|
||
|
end function MPI_Topo_test
|
||
|
|
||
|
end interface MPI_Topo_test
|
||
|
|
||
|
|
||
|
interface MPI_Type_commit
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_commit(type, ierr) &
|
||
|
BIND(C, name="MPI_Type_commit")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: type
|
||
|
end function MPI_Type_commit
|
||
|
|
||
|
end interface MPI_Type_commit
|
||
|
|
||
|
|
||
|
interface MPI_Type_contiguous
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_contiguous(count, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_contiguous")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_contiguous
|
||
|
|
||
|
end interface MPI_Type_contiguous
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_darray
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_darray(size, rank, ndims, gsize_array, distrib_array, darg_array, psize_array, &
|
||
|
order, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_darray")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: size
|
||
|
integer(INT_C), value, intent(in) :: rank
|
||
|
integer(INT_C), value, intent(in) :: ndims
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: gsize_array
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: distrib_array
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: darg_array
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: psize_array
|
||
|
integer(INT_C), value, intent(in) :: order
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_darray
|
||
|
|
||
|
end interface MPI_Type_create_darray
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_f90_complex
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_f90_complex(p, r, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_f90_complex")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: p
|
||
|
integer(INT_C), value, intent(in) :: r
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_f90_complex
|
||
|
|
||
|
end interface MPI_Type_create_f90_complex
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_f90_integer
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_f90_integer(r, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_f90_integer")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: r
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_f90_integer
|
||
|
|
||
|
end interface MPI_Type_create_f90_integer
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_f90_real
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_f90_real(p, r, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_f90_real")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: p
|
||
|
integer(INT_C), value, intent(in) :: r
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_f90_real
|
||
|
|
||
|
end interface MPI_Type_create_f90_real
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_hindexed
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_hindexed")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_blocklengths
|
||
|
integer(kind=MPI_ADDRESS_KIND), dimension(*), value, intent(in) :: array_of_displacements
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_hindexed
|
||
|
|
||
|
end interface MPI_Type_create_hindexed
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_hvector
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_hvector(count, blocklength, stride, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_hvector")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), value, intent(in) :: blocklength
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: stride
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_hvector
|
||
|
|
||
|
end interface MPI_Type_create_hvector
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_indexed_block
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_indexed_block(count, blocklength, array_of_displacements, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_indexed_block")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), value, intent(in) :: blocklength
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_displacements
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_indexed_block
|
||
|
|
||
|
end interface MPI_Type_create_indexed_block
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_keyval
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_keyval(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_keyval")
|
||
|
use MPI_C_BINDING
|
||
|
external :: type_copy_attr_fn
|
||
|
external :: type_delete_attr_fn
|
||
|
integer(INT_C), value, intent(out) :: type_keyval
|
||
|
integer(C_INT), value, intent(in) :: extra_state
|
||
|
end function MPI_Type_create_keyval
|
||
|
|
||
|
end interface MPI_Type_create_keyval
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_resized
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_resized(oldtype, lb, extent, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_resized")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: lb
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: extent
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_resized
|
||
|
|
||
|
end interface MPI_Type_create_resized
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_struct
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_struct(count, array_of_block_lengths, array_of_displacements, array_of_types, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_struct")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_block_lengths
|
||
|
integer(kind=MPI_ADDRESS_KIND), dimension(*), value, intent(in) :: array_of_displacements
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(in) :: array_of_types
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_struct
|
||
|
|
||
|
end interface MPI_Type_create_struct
|
||
|
|
||
|
|
||
|
interface MPI_Type_create_subarray
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_create_subarray(ndims, size_array, subsize_array, start_array, order, oldtype, newtype&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Type_create_subarray")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: ndims
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: size_array
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: subsize_array
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: start_array
|
||
|
integer(INT_C), value, intent(in) :: order
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_create_subarray
|
||
|
|
||
|
end interface MPI_Type_create_subarray
|
||
|
|
||
|
|
||
|
interface MPI_Type_delete_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_delete_attr(type, type_keyval, ierr) &
|
||
|
BIND(C, name="MPI_Type_delete_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: type
|
||
|
integer(INT_C), value, intent(in) :: type_keyval
|
||
|
end function MPI_Type_delete_attr
|
||
|
|
||
|
end interface MPI_Type_delete_attr
|
||
|
|
||
|
|
||
|
interface MPI_Type_dup
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_dup(type, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_dup")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_dup
|
||
|
|
||
|
end interface MPI_Type_dup
|
||
|
|
||
|
|
||
|
interface MPI_Type_extent
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_extent(type, extent, ierr) &
|
||
|
BIND(C, name="MPI_Type_extent")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: extent
|
||
|
end function MPI_Type_extent
|
||
|
|
||
|
end interface MPI_Type_extent
|
||
|
|
||
|
|
||
|
interface MPI_Type_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_free(type, ierr) &
|
||
|
BIND(C, name="MPI_Type_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: type
|
||
|
end function MPI_Type_free
|
||
|
|
||
|
end interface MPI_Type_free
|
||
|
|
||
|
|
||
|
interface MPI_Type_free_keyval
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_free_keyval(type_keyval, ierr) &
|
||
|
BIND(C, name="MPI_Type_free_keyval")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(inout) :: type_keyval
|
||
|
end function MPI_Type_free_keyval
|
||
|
|
||
|
end interface MPI_Type_free_keyval
|
||
|
|
||
|
|
||
|
interface MPI_Type_get_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_get_attr(type, type_keyval, attribute_val, flag, ierr) &
|
||
|
BIND(C, name="MPI_Type_get_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(INT_C), value, intent(in) :: type_keyval
|
||
|
type(C_PTR), value, intent(out) :: attribute_val
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Type_get_attr
|
||
|
|
||
|
end interface MPI_Type_get_attr
|
||
|
|
||
|
|
||
|
interface MPI_Type_get_contents
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_get_contents(mtype, max_integers, max_addresses, max_datatypes, array_of_integers, array_of_addresses, array_of_datatypes&
|
||
|
, ierr) &
|
||
|
BIND(C, name="MPI_Type_get_contents")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: mtype
|
||
|
integer(INT_C), value, intent(in) :: max_integers
|
||
|
integer(INT_C), value, intent(in) :: max_addresses
|
||
|
integer(INT_C), value, intent(in) :: max_datatypes
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: array_of_integers
|
||
|
integer(kind=MPI_ADDRESS_KIND), dimension(*), value, intent(out) :: array_of_addresses
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(out) :: array_of_datatypes
|
||
|
end function MPI_Type_get_contents
|
||
|
|
||
|
end interface MPI_Type_get_contents
|
||
|
|
||
|
|
||
|
interface MPI_Type_get_envelope
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_get_envelope(type, num_integers, num_addresses, num_datatypes, combiner, ierr) &
|
||
|
BIND(C, name="MPI_Type_get_envelope")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(INT_C), value, intent(out) :: num_integers
|
||
|
integer(INT_C), value, intent(out) :: num_addresses
|
||
|
integer(INT_C), value, intent(out) :: num_datatypes
|
||
|
integer(INT_C), value, intent(out) :: combiner
|
||
|
end function MPI_Type_get_envelope
|
||
|
|
||
|
end interface MPI_Type_get_envelope
|
||
|
|
||
|
|
||
|
interface MPI_Type_get_extent
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_get_extent(type, lb, extent, ierr) &
|
||
|
BIND(C, name="MPI_Type_get_extent")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: lb
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: extent
|
||
|
end function MPI_Type_get_extent
|
||
|
|
||
|
end interface MPI_Type_get_extent
|
||
|
|
||
|
|
||
|
interface MPI_Type_get_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_get_name(type, type_name, resultlen, ierr) &
|
||
|
BIND(C, name="MPI_Type_get_name")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
character(len=*), value, intent(out) :: type_name
|
||
|
integer(INT_C), value, intent(out) :: resultlen
|
||
|
end function MPI_Type_get_name
|
||
|
|
||
|
end interface MPI_Type_get_name
|
||
|
|
||
|
|
||
|
interface MPI_Type_get_true_extent
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_get_true_extent(datatype, true_lb, true_extent, ierr) &
|
||
|
BIND(C, name="MPI_Type_get_true_extent")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: datatype
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: true_lb
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: true_extent
|
||
|
end function MPI_Type_get_true_extent
|
||
|
|
||
|
end interface MPI_Type_get_true_extent
|
||
|
|
||
|
|
||
|
interface MPI_Type_hindexed
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_hindexed")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_blocklengths
|
||
|
integer(kind=MPI_ADDRESS_KIND), dimension(*), value, intent(in) :: array_of_displacements
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_hindexed
|
||
|
|
||
|
end interface MPI_Type_hindexed
|
||
|
|
||
|
|
||
|
interface MPI_Type_hvector
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_hvector(count, blocklength, stride, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_hvector")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), value, intent(in) :: blocklength
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: stride
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_hvector
|
||
|
|
||
|
end interface MPI_Type_hvector
|
||
|
|
||
|
|
||
|
interface MPI_Type_indexed
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_indexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_indexed")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_blocklengths
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_displacements
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_indexed
|
||
|
|
||
|
end interface MPI_Type_indexed
|
||
|
|
||
|
|
||
|
interface MPI_Type_lb
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_lb(type, lb, ierr) &
|
||
|
BIND(C, name="MPI_Type_lb")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: lb
|
||
|
end function MPI_Type_lb
|
||
|
|
||
|
end interface MPI_Type_lb
|
||
|
|
||
|
|
||
|
interface MPI_Type_match_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_match_size(typeclass, size, type, ierr) &
|
||
|
BIND(C, name="MPI_Type_match_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: typeclass
|
||
|
integer(INT_C), value, intent(in) :: size
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: type
|
||
|
end function MPI_Type_match_size
|
||
|
|
||
|
end interface MPI_Type_match_size
|
||
|
|
||
|
|
||
|
interface MPI_Type_set_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_set_attr(type, type_keyval, attr_val, ierr) &
|
||
|
BIND(C, name="MPI_Type_set_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: type
|
||
|
integer(INT_C), value, intent(in) :: type_keyval
|
||
|
type(C_PTR), value, intent(in) :: attr_val
|
||
|
end function MPI_Type_set_attr
|
||
|
|
||
|
end interface MPI_Type_set_attr
|
||
|
|
||
|
|
||
|
interface MPI_Type_set_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_set_name(type, type_name, ierr) &
|
||
|
BIND(C, name="MPI_Type_set_name")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: type
|
||
|
character(len=*), value, intent(in) :: type_name
|
||
|
end function MPI_Type_set_name
|
||
|
|
||
|
end interface MPI_Type_set_name
|
||
|
|
||
|
|
||
|
interface MPI_Type_size
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_size(type, size, ierr) &
|
||
|
BIND(C, name="MPI_Type_size")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: type
|
||
|
integer(INT_C), value, intent(out) :: size
|
||
|
end function MPI_Type_size
|
||
|
|
||
|
end interface MPI_Type_size
|
||
|
|
||
|
|
||
|
interface MPI_Type_struct
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_struct")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_blocklengths
|
||
|
integer(kind=MPI_ADDRESS_KIND), dimension(*), value, intent(in) :: array_of_displacements
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(in) :: array_of_types
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_struct
|
||
|
|
||
|
end interface MPI_Type_struct
|
||
|
|
||
|
|
||
|
interface MPI_Type_ub
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_ub(mtype, ub, ierr) &
|
||
|
BIND(C, name="MPI_Type_ub")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: mtype
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(out) :: ub
|
||
|
end function MPI_Type_ub
|
||
|
|
||
|
end interface MPI_Type_ub
|
||
|
|
||
|
|
||
|
interface MPI_Type_vector
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Type_vector(count, blocklength, stride, oldtype, newtype, ierr) &
|
||
|
BIND(C, name="MPI_Type_vector")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(INT_C), value, intent(in) :: blocklength
|
||
|
integer(INT_C), value, intent(in) :: stride
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: oldtype
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newtype
|
||
|
end function MPI_Type_vector
|
||
|
|
||
|
end interface MPI_Type_vector
|
||
|
|
||
|
|
||
|
interface MPI_Wait
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Wait(request, status, ierr) &
|
||
|
BIND(C, name="MPI_Wait")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: request
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Wait
|
||
|
|
||
|
end interface MPI_Wait
|
||
|
|
||
|
|
||
|
interface MPI_Waitall
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Waitall(count, array_of_requests, array_of_statuses, ierr) &
|
||
|
BIND(C, name="MPI_Waitall")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
integer(MPI_STATUS_SIZE), dimension(*), value, intent(inout) :: array_of_statuses
|
||
|
end function MPI_Waitall
|
||
|
|
||
|
end interface MPI_Waitall
|
||
|
|
||
|
|
||
|
interface MPI_Waitany
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Waitany(count, array_of_requests, index, status, ierr) &
|
||
|
BIND(C, name="MPI_Waitany")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
integer(INT_C), value, intent(out) :: index
|
||
|
integer(MPI_STATUS_SIZE), value, intent(inout) :: status
|
||
|
end function MPI_Waitany
|
||
|
|
||
|
end interface MPI_Waitany
|
||
|
|
||
|
|
||
|
interface MPI_Waitsome
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr) &
|
||
|
BIND(C, name="MPI_Waitsome")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: incount
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(inout) :: array_of_requests
|
||
|
integer(INT_C), value, intent(out) :: outcount
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: array_of_indices
|
||
|
integer(MPI_STATUS_SIZE), dimension(*), value, intent(inout) :: array_of_statuses
|
||
|
end function MPI_Waitsome
|
||
|
|
||
|
end interface MPI_Waitsome
|
||
|
|
||
|
|
||
|
interface MPI_Win_call_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_call_errhandler(win, errorcode, ierr) &
|
||
|
BIND(C, name="MPI_Win_call_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
integer(INT_C), value, intent(in) :: errorcode
|
||
|
end function MPI_Win_call_errhandler
|
||
|
|
||
|
end interface MPI_Win_call_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Win_complete
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_complete(win, ierr) &
|
||
|
BIND(C, name="MPI_Win_complete")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_complete
|
||
|
|
||
|
end interface MPI_Win_complete
|
||
|
|
||
|
|
||
|
interface MPI_Win_create
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_create(base, size, disp_unit, info, comm, win, ierr) &
|
||
|
BIND(C, name="MPI_Win_create")
|
||
|
use MPI_C_BINDING
|
||
|
type(C_PTR), value, intent(in) :: base
|
||
|
integer(kind=MPI_ADDRESS_KIND), value, intent(in) :: size
|
||
|
integer(INT_C), value, intent(in) :: disp_unit
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_create
|
||
|
|
||
|
end interface MPI_Win_create
|
||
|
|
||
|
|
||
|
interface MPI_Win_create_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_create_errhandler(function, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Win_create_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
external :: function
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_Win_create_errhandler
|
||
|
|
||
|
end interface MPI_Win_create_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Win_create_keyval
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_create_keyval(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierr) &
|
||
|
BIND(C, name="MPI_Win_create_keyval")
|
||
|
use MPI_C_BINDING
|
||
|
external :: win_copy_attr_fn
|
||
|
external :: win_delete_attr_fn
|
||
|
integer(INT_C), value, intent(out) :: win_keyval
|
||
|
integer(C_INT), value, intent(in) :: extra_state
|
||
|
end function MPI_Win_create_keyval
|
||
|
|
||
|
end interface MPI_Win_create_keyval
|
||
|
|
||
|
|
||
|
interface MPI_Win_delete_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_delete_attr(win, win_keyval, ierr) &
|
||
|
BIND(C, name="MPI_Win_delete_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: win
|
||
|
integer(INT_C), value, intent(in) :: win_keyval
|
||
|
end function MPI_Win_delete_attr
|
||
|
|
||
|
end interface MPI_Win_delete_attr
|
||
|
|
||
|
|
||
|
interface MPI_Win_fence
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_fence(assert, win, ierr) &
|
||
|
BIND(C, name="MPI_Win_fence")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: assert
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_fence
|
||
|
|
||
|
end interface MPI_Win_fence
|
||
|
|
||
|
|
||
|
interface MPI_Win_free
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_free(win, ierr) &
|
||
|
BIND(C, name="MPI_Win_free")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: win
|
||
|
end function MPI_Win_free
|
||
|
|
||
|
end interface MPI_Win_free
|
||
|
|
||
|
|
||
|
interface MPI_Win_free_keyval
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_free_keyval(win_keyval, ierr) &
|
||
|
BIND(C, name="MPI_Win_free_keyval")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(inout) :: win_keyval
|
||
|
end function MPI_Win_free_keyval
|
||
|
|
||
|
end interface MPI_Win_free_keyval
|
||
|
|
||
|
|
||
|
interface MPI_Win_get_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_get_attr(win, win_keyval, attribute_val, flag, ierr) &
|
||
|
BIND(C, name="MPI_Win_get_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
integer(INT_C), value, intent(in) :: win_keyval
|
||
|
type(C_PTR), value, intent(out) :: attribute_val
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Win_get_attr
|
||
|
|
||
|
end interface MPI_Win_get_attr
|
||
|
|
||
|
|
||
|
interface MPI_Win_get_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_get_errhandler(win, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Win_get_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: errhandler
|
||
|
end function MPI_Win_get_errhandler
|
||
|
|
||
|
end interface MPI_Win_get_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Win_get_group
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_get_group(win, group, ierr) &
|
||
|
BIND(C, name="MPI_Win_get_group")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: group
|
||
|
end function MPI_Win_get_group
|
||
|
|
||
|
end interface MPI_Win_get_group
|
||
|
|
||
|
|
||
|
interface MPI_Win_get_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_get_name(win, win_name, resultlen, ierr) &
|
||
|
BIND(C, name="MPI_Win_get_name")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
character(len=*), value, intent(out) :: win_name
|
||
|
integer(INT_C), value, intent(out) :: resultlen
|
||
|
end function MPI_Win_get_name
|
||
|
|
||
|
end interface MPI_Win_get_name
|
||
|
|
||
|
|
||
|
interface MPI_Win_lock
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_lock(lock_type, rank, assert, win, ierr) &
|
||
|
BIND(C, name="MPI_Win_lock")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: lock_type
|
||
|
integer(INT_C), value, intent(in) :: rank
|
||
|
integer(INT_C), value, intent(in) :: assert
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_lock
|
||
|
|
||
|
end interface MPI_Win_lock
|
||
|
|
||
|
|
||
|
interface MPI_Win_post
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_post(group, assert, win, ierr) &
|
||
|
BIND(C, name="MPI_Win_post")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(in) :: assert
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_post
|
||
|
|
||
|
end interface MPI_Win_post
|
||
|
|
||
|
|
||
|
interface MPI_Win_set_attr
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_set_attr(win, win_keyval, attribute_val, ierr) &
|
||
|
BIND(C, name="MPI_Win_set_attr")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: win
|
||
|
integer(INT_C), value, intent(in) :: win_keyval
|
||
|
type(C_PTR), value, intent(in) :: attribute_val
|
||
|
end function MPI_Win_set_attr
|
||
|
|
||
|
end interface MPI_Win_set_attr
|
||
|
|
||
|
|
||
|
interface MPI_Win_set_errhandler
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_set_errhandler(win, errhandler, ierr) &
|
||
|
BIND(C, name="MPI_Win_set_errhandler")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: win
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: errhandler
|
||
|
end function MPI_Win_set_errhandler
|
||
|
|
||
|
end interface MPI_Win_set_errhandler
|
||
|
|
||
|
|
||
|
interface MPI_Win_set_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_set_name(win, win_name, ierr) &
|
||
|
BIND(C, name="MPI_Win_set_name")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: win
|
||
|
character(len=*), value, intent(in) :: win_name
|
||
|
end function MPI_Win_set_name
|
||
|
|
||
|
end interface MPI_Win_set_name
|
||
|
|
||
|
|
||
|
interface MPI_Win_start
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_start(group, assert, win, ierr) &
|
||
|
BIND(C, name="MPI_Win_start")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: group
|
||
|
integer(INT_C), value, intent(in) :: assert
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_start
|
||
|
|
||
|
end interface MPI_Win_start
|
||
|
|
||
|
|
||
|
interface MPI_Win_test
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_test(win, flag, ierr) &
|
||
|
BIND(C, name="MPI_Win_test")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
integer, value, intent(out) :: flag
|
||
|
end function MPI_Win_test
|
||
|
|
||
|
end interface MPI_Win_test
|
||
|
|
||
|
|
||
|
interface MPI_Win_unlock
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_unlock(rank, win, ierr) &
|
||
|
BIND(C, name="MPI_Win_unlock")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: rank
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_unlock
|
||
|
|
||
|
end interface MPI_Win_unlock
|
||
|
|
||
|
|
||
|
interface MPI_Win_wait
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Win_wait(win, ierr) &
|
||
|
BIND(C, name="MPI_Win_wait")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: win
|
||
|
end function MPI_Win_wait
|
||
|
|
||
|
end interface MPI_Win_wait
|
||
|
|
||
|
|
||
|
interface MPI_Close_port
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Close_port(port_name, ierr) &
|
||
|
BIND(C, name="MPI_Close_port")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: port_name
|
||
|
end function MPI_Close_port
|
||
|
|
||
|
end interface MPI_Close_port
|
||
|
|
||
|
|
||
|
interface MPI_Lookup_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Lookup_name(service_name, info, port_name, ierr) &
|
||
|
BIND(C, name="MPI_Lookup_name")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: service_name
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
character(len=*), value, intent(out) :: port_name
|
||
|
end function MPI_Lookup_name
|
||
|
|
||
|
end interface MPI_Lookup_name
|
||
|
|
||
|
|
||
|
interface MPI_Open_port
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Open_port(info, port_name, ierr) &
|
||
|
BIND(C, name="MPI_Open_port")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
character(len=*), value, intent(out) :: port_name
|
||
|
end function MPI_Open_port
|
||
|
|
||
|
end interface MPI_Open_port
|
||
|
|
||
|
|
||
|
interface MPI_Publish_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Publish_name(service_name, info, port_name, ierr) &
|
||
|
BIND(C, name="MPI_Publish_name")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: service_name
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
character(len=*), value, intent(in) :: port_name
|
||
|
end function MPI_Publish_name
|
||
|
|
||
|
end interface MPI_Publish_name
|
||
|
|
||
|
|
||
|
interface MPI_Unpublish_name
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Unpublish_name(service_name, info, port_name, ierr) &
|
||
|
BIND(C, name="MPI_Unpublish_name")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: service_name
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
character(len=*), value, intent(in) :: port_name
|
||
|
end function MPI_Unpublish_name
|
||
|
|
||
|
end interface MPI_Unpublish_name
|
||
|
|
||
|
|
||
|
interface MPI_Comm_disconnect
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_disconnect(comm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_disconnect")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(inout) :: comm
|
||
|
end function MPI_Comm_disconnect
|
||
|
|
||
|
end interface MPI_Comm_disconnect
|
||
|
|
||
|
|
||
|
interface MPI_Comm_get_parent
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_get_parent(parent, ierr) &
|
||
|
BIND(C, name="MPI_Comm_get_parent")
|
||
|
use MPI_C_BINDING
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: parent
|
||
|
end function MPI_Comm_get_parent
|
||
|
|
||
|
end interface MPI_Comm_get_parent
|
||
|
|
||
|
|
||
|
interface MPI_Comm_join
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_join(fd, intercomm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_join")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: fd
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: intercomm
|
||
|
end function MPI_Comm_join
|
||
|
|
||
|
end interface MPI_Comm_join
|
||
|
|
||
|
|
||
|
interface MPI_Comm_accept
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_accept(port_name, info, root, comm, newcomm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_accept")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: port_name
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(INT_C), value, intent(in) :: root
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newcomm
|
||
|
end function MPI_Comm_accept
|
||
|
|
||
|
end interface MPI_Comm_accept
|
||
|
|
||
|
|
||
|
interface MPI_Comm_connect
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_connect(port_name, info, root, comm, newcomm, ierr) &
|
||
|
BIND(C, name="MPI_Comm_connect")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: port_name
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(INT_C), value, intent(in) :: root
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: newcomm
|
||
|
end function MPI_Comm_connect
|
||
|
|
||
|
end interface MPI_Comm_connect
|
||
|
|
||
|
|
||
|
interface MPI_Comm_spawn
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_spawn(command, argv, maxprocs, info, root, comm, intercomm, &
|
||
|
array_of_errcodes, ierr) &
|
||
|
BIND(C, name="MPI_Comm_spawn")
|
||
|
use MPI_C_BINDING
|
||
|
character(len=*), value, intent(in) :: command
|
||
|
character(len=*), dimension(*), value, intent(in) :: argv
|
||
|
integer(INT_C), value, intent(in) :: maxprocs
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: info
|
||
|
integer(INT_C), value, intent(in) :: root
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: intercomm
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: array_of_errcodes
|
||
|
end function MPI_Comm_spawn
|
||
|
|
||
|
end interface MPI_Comm_spawn
|
||
|
|
||
|
|
||
|
interface MPI_Comm_spawn_multiple
|
||
|
|
||
|
integer(C_INT) function &
|
||
|
MPI_Comm_spawn_multiple(count, array_of_commands, array_of_argv, array_of_maxprocs, array_of_info, root, comm, &
|
||
|
intercomm, array_of_errcodes, ierr) &
|
||
|
BIND(C, name="MPI_Comm_spawn_multiple")
|
||
|
use MPI_C_BINDING
|
||
|
integer(INT_C), value, intent(in) :: count
|
||
|
character(len=*), dimension(*), value, intent(in) :: array_of_commands
|
||
|
character(len=*), dimension(count,*), value, intent(in) :: array_of_argv
|
||
|
integer(INT_C), dimension(*), value, intent(in) :: array_of_maxprocs
|
||
|
integer(MPI_HANDLE_KIND), dimension(*), value, intent(in) :: array_of_info
|
||
|
integer(INT_C), value, intent(in) :: root
|
||
|
integer(MPI_HANDLE_KIND), value, intent(in) :: comm
|
||
|
integer(MPI_HANDLE_KIND), value, intent(out) :: intercomm
|
||
|
integer(INT_C), dimension(*), value, intent(out) :: array_of_errcodes
|
||
|
end function MPI_Comm_spawn_multiple
|
||
|
|
||
|
end interface MPI_Comm_spawn_multiple
|
||
|
|