b9e8e4aeb9
the back-end yet, coming real soon now, need to solve some tag issues first. This commit was SVN r26641.
3067 строки
110 KiB
C
3067 строки
110 KiB
C
! -*- f90 -*-
|
|
!
|
|
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
|
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
|
! All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! This file provides the interface specifications for the MPI Fortran
|
|
! API bindings. It effectively maps between public names ("MPI_Init")
|
|
! and the back-end implementation subroutine name (e.g., "pompi_init_f").
|
|
|
|
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
|
|
|
interface
|
|
|
|
subroutine pompi_bsend_f(buf,count,datatype,dest,tag,comm,ierror) &
|
|
BIND(C, name="pompi_bsend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_bsend_f
|
|
|
|
subroutine pompi_bsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_bsend_init_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_bsend_init_f
|
|
|
|
subroutine pompi_buffer_attach_f(buffer,size,ierror) &
|
|
BIND(C, name="pompi_buffer_attach_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer
|
|
INTEGER, INTENT(IN) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_buffer_attach_f
|
|
|
|
subroutine pompi_buffer_detach_f(buffer_addr,size,ierror) &
|
|
BIND(C, name="pompi_buffer_detach_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer_addr
|
|
INTEGER, INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_buffer_detach_f
|
|
|
|
subroutine pompi_cancel_f(request,ierror) &
|
|
BIND(C, name="pompi_cancel_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cancel_f
|
|
|
|
subroutine pompi_get_count_f(status,datatype,count,ierror) &
|
|
BIND(C, name="pompi_get_count_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
TYPE(MPI_Status), INTENT(IN) :: status
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: count
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_get_count_f
|
|
|
|
subroutine pompi_ibsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_ibsend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ibsend_f
|
|
|
|
subroutine pompi_iprobe_f(source,tag,comm,flag,status,ierror) &
|
|
BIND(C, name="pompi_iprobe_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: source, tag
|
|
INTEGER, INTENT(IN) :: comm
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iprobe_f
|
|
|
|
subroutine pompi_irecv_f(buf,count,datatype,source,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_irecv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
|
|
INTEGER, INTENT(IN) :: count, source, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_irecv_f
|
|
|
|
subroutine pompi_irsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_irsend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_irsend_f
|
|
|
|
subroutine pompi_isend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_isend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_isend_f
|
|
|
|
subroutine pompi_issend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_issend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_issend_f
|
|
|
|
subroutine pompi_probe_f(source,tag,comm,status,ierror) &
|
|
BIND(C, name="pompi_probe_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: source, tag
|
|
INTEGER, INTENT(IN) :: comm
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_probe_f
|
|
|
|
subroutine pompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
|
|
BIND(C, name="pompi_recv_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
|
|
INTEGER, INTENT(IN) :: count, source, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_recv_f
|
|
|
|
subroutine pompi_recv_init_f(buf,count,datatype,source,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_recv_init_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, source, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_recv_init_f
|
|
|
|
subroutine pompi_request_free_f(request,ierror) &
|
|
BIND(C, name="pompi_request_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_request_free_f
|
|
|
|
subroutine pompi_request_get_status_f(request,flag,status,ierror) &
|
|
BIND(C, name="pompi_request_get_status_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: request
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_request_get_status_f
|
|
|
|
subroutine pompi_rsend_f(buf,count,datatype,dest,tag,comm,ierror) &
|
|
BIND(C, name="pompi_rsend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_rsend_f
|
|
|
|
subroutine pompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_rsend_init_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_rsend_init_f
|
|
|
|
subroutine pompi_send_f(buf,count,datatype,dest,tag,comm,ierror) &
|
|
BIND(C, name="pompi_send_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_send_f
|
|
|
|
subroutine pompi_sendrecv_f(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
|
|
recvcount,recvtype,source,recvtag,comm,status,ierror) &
|
|
BIND(C, name="pompi_sendrecv_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_sendrecv_f
|
|
|
|
subroutine pompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
|
|
recvtag,comm,status,ierror) &
|
|
BIND(C, name="pompi_sendrecv_replace_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_sendrecv_replace_f
|
|
|
|
subroutine pompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_send_init_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_send_init_f
|
|
|
|
subroutine pompi_ssend_f(buf,count,datatype,dest,tag,comm,ierror) &
|
|
BIND(C, name="pompi_ssend_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ssend_f
|
|
|
|
subroutine pompi_ssend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
|
|
BIND(C, name="pompi_ssend_init_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count, dest, tag
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ssend_init_f
|
|
|
|
subroutine pompi_start_f(request,ierror) &
|
|
BIND(C, name="pompi_start_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_start_f
|
|
|
|
subroutine pompi_startall_f(count,array_of_requests,ierror) &
|
|
BIND(C, name="pompi_startall_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(count)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_startall_f
|
|
|
|
subroutine pompi_test_f(request,flag,status,ierror) &
|
|
BIND(C, name="pompi_test_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: request
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_test_f
|
|
|
|
subroutine pompi_testall_f(count,array_of_requests,flag,array_of_statuses,ierror) &
|
|
BIND(C, name="pompi_testall_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(count)
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(count)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_testall_f
|
|
|
|
subroutine pompi_testany_f(count,array_of_requests,index,flag,status,ierror) &
|
|
BIND(C, name="pompi_testany_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(count)
|
|
INTEGER, INTENT(OUT) :: index
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_testany_f
|
|
|
|
subroutine pompi_testsome_f(incount,array_of_requests,outcount, &
|
|
array_of_indices,array_of_statuses,ierror) &
|
|
BIND(C, name="pompi_testsome_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: incount
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(incount)
|
|
INTEGER, INTENT(OUT) :: outcount
|
|
INTEGER, INTENT(OUT) :: array_of_indices(*)
|
|
TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_testsome_f
|
|
|
|
subroutine pompi_test_cancelled_f(status,flag,ierror) &
|
|
BIND(C, name="pompi_test_cancelled_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
TYPE(MPI_Status), INTENT(IN) :: status
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_test_cancelled_f
|
|
|
|
subroutine pompi_wait_f(request,status,ierror) &
|
|
BIND(C, name="pompi_wait_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: request
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_wait_f
|
|
|
|
subroutine pompi_waitall_f(count,array_of_requests,array_of_statuses,ierror) &
|
|
BIND(C, name="pompi_waitall_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(count)
|
|
TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(count)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_waitall_f
|
|
|
|
subroutine pompi_waitany_f(count,array_of_requests,index,status,ierror) &
|
|
BIND(C, name="pompi_waitany_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(count)
|
|
INTEGER, INTENT(OUT) :: index
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_waitany_f
|
|
|
|
subroutine pompi_waitsome_f(incount,array_of_requests,outcount, &
|
|
array_of_indices,array_of_statuses,ierror) &
|
|
BIND(C, name="pompi_waitsome_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: incount
|
|
INTEGER, INTENT(INOUT) :: array_of_requests(incount)
|
|
INTEGER, INTENT(OUT) :: outcount
|
|
INTEGER, INTENT(OUT) :: array_of_indices(*)
|
|
TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_waitsome_f
|
|
|
|
subroutine pompi_get_address_f(location,address,ierror) &
|
|
BIND(C, name="pompi_get_address_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: location
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_get_address_f
|
|
|
|
subroutine pompi_get_elements_f(status,datatype,count,ierror) &
|
|
BIND(C, name="pompi_get_elements_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
TYPE(MPI_Status), INTENT(IN) :: status
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: count
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_get_elements_f
|
|
|
|
subroutine pompi_pack_f(inbuf,incount,datatype,outbuf,outsize, &
|
|
position,comm,ierror) &
|
|
BIND(C, name="pompi_pack_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf
|
|
INTEGER, INTENT(IN) :: incount, outsize
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(INOUT) :: position
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_pack_f
|
|
|
|
subroutine pompi_pack_external_f(datarep,inbuf,incount,datatype, &
|
|
outbuf,outsize,position,ierror,datarep_len) &
|
|
BIND(C, name="pompi_pack_external_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf
|
|
INTEGER, INTENT(IN) :: incount
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: outsize
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: datarep_len
|
|
end subroutine pompi_pack_external_f
|
|
|
|
subroutine pompi_pack_external_size_f(datarep,incount,datatype,size,ierror,datarep_len) &
|
|
BIND(C, name="pompi_pack_external_size_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: incount
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: datarep_len
|
|
end subroutine pompi_pack_external_size_f
|
|
|
|
subroutine pompi_pack_size_f(incount,datatype,comm,size,ierror) &
|
|
BIND(C, name="pompi_pack_size_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: incount
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_pack_size_f
|
|
|
|
subroutine pompi_type_commit_f(datatype,ierror) &
|
|
BIND(C, name="pompi_type_commit_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_commit_f
|
|
|
|
subroutine pompi_type_contiguous_f(count,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_contiguous_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_contiguous_f
|
|
|
|
subroutine pompi_type_create_darray_f(size,rank,ndims,&
|
|
array_of_gsizes,array_of_distribs,array_of_dargs,array_of_psizes,&
|
|
order,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_darray_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: size, rank, ndims, order
|
|
INTEGER, INTENT(IN) :: array_of_gsizes(ndims), array_of_distribs(ndims)
|
|
INTEGER, INTENT(IN) :: array_of_dargs(ndims), array_of_psizes(ndims)
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_darray_f
|
|
|
|
subroutine pompi_type_create_hindexed_f(count,array_of_blocklengths, &
|
|
array_of_displacements,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_hindexed_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: array_of_blocklengths(count)
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_hindexed_f
|
|
|
|
subroutine pompi_type_create_hvector_f(count,blocklength,stride,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_hvector_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count, blocklength
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: stride
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_hvector_f
|
|
|
|
subroutine pompi_type_create_indexed_block_f(count,blocklength, &
|
|
array_of_displacements,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_indexed_block_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count, blocklength
|
|
INTEGER, INTENT(IN) :: array_of_displacements(count)
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_indexed_block_f
|
|
|
|
subroutine pompi_type_create_resized_f(oldtype,lb,extent,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_resized_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: lb, extent
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_resized_f
|
|
|
|
subroutine pompi_type_create_struct_f(count,array_of_blocklengths, &
|
|
array_of_displacements,array_of_types,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_struct_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: array_of_blocklengths(count)
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)
|
|
INTEGER, INTENT(IN) :: array_of_types(count)
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_struct_f
|
|
|
|
subroutine pompi_type_create_subarray_f(ndims,array_of_sizes, &
|
|
array_of_subsizes,array_of_starts,order,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_subarray_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: ndims, order
|
|
INTEGER, INTENT(IN) :: array_of_sizes(*), array_of_subsizes(*), array_of_starts(*)
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_subarray_f
|
|
|
|
subroutine pompi_type_dup_f(type,newtype,ierror) &
|
|
BIND(C, name="pompi_type_dup_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: type
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_dup_f
|
|
|
|
subroutine pompi_type_free_f(datatype,ierror) &
|
|
BIND(C, name="pompi_type_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_free_f
|
|
|
|
subroutine pompi_type_get_contents_f(datatype,max_integers,max_addresses, &
|
|
max_datatypes,array_of_integers,array_of_addresses, &
|
|
array_of_datatypes,ierror) &
|
|
BIND(C, name="pompi_type_get_contents_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: max_integers, max_addresses, max_datatypes
|
|
INTEGER, INTENT(OUT) :: array_of_integers(max_integers)
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: array_of_addresses(max_addresses)
|
|
INTEGER, INTENT(OUT) :: array_of_datatypes(max_datatypes)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_get_contents_f
|
|
|
|
subroutine pompi_type_get_envelope_f(datatype,num_integers, &
|
|
num_addresses,num_datatypes,combiner,ierror) &
|
|
BIND(C, name="pompi_type_get_envelope_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: num_integers, num_addresses, num_datatypes, combiner
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_get_envelope_f
|
|
|
|
subroutine pompi_type_get_extent_f(datatype,lb,extent,ierror) &
|
|
BIND(C, name="pompi_type_get_extent_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: lb, extent
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_get_extent_f
|
|
|
|
subroutine pompi_type_get_true_extent_f(datatype,true_lb,true_extent,ierror) &
|
|
BIND(C, name="pompi_type_get_true_extent_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: true_lb, true_extent
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_get_true_extent_f
|
|
|
|
subroutine pompi_type_indexed_f(count,array_of_blocklengths, &
|
|
array_of_displacements,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_indexed_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: array_of_blocklengths(count), array_of_displacements(count)
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_indexed_f
|
|
|
|
subroutine pompi_type_size_f(datatype,size,ierror) &
|
|
BIND(C, name="pompi_type_size_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_size_f
|
|
|
|
subroutine pompi_type_vector_f(count,blocklength,stride,oldtype,newtype,ierror) &
|
|
BIND(C, name="pompi_type_vector_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count, blocklength, stride
|
|
INTEGER, INTENT(IN) :: oldtype
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_vector_f
|
|
|
|
subroutine pompi_unpack_f(inbuf,insize,position,outbuf,outcount, &
|
|
datatype,comm,ierror) &
|
|
BIND(C, name="pompi_unpack_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf
|
|
INTEGER, INTENT(IN) :: insize, outcount
|
|
INTEGER, INTENT(INOUT) :: position
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_unpack_f
|
|
|
|
subroutine pompi_unpack_external_f(datarep,inbuf,insize,position, &
|
|
outbuf,outcount,datatype,ierror,datarep_len) &
|
|
BIND(C, name="pompi_unpack_external_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: insize
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position
|
|
INTEGER, INTENT(IN) :: outcount
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: datarep_len
|
|
end subroutine pompi_unpack_external_f
|
|
|
|
subroutine pompi_allgather_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,comm,ierror) &
|
|
BIND(C, name="pompi_allgather_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_allgather_f
|
|
|
|
subroutine pompi_iallgather_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,comm,request,ierror) &
|
|
BIND(C, name="pompi_iallgather_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iallgather_f
|
|
|
|
subroutine pompi_allgatherv_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcounts,displs,recvtype,comm,ierror) &
|
|
BIND(C, name="pompi_allgatherv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount
|
|
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_allgatherv_f
|
|
|
|
subroutine pompi_iallgatherv_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcounts,displs,recvtype,comm,request,ierror) &
|
|
BIND(C, name="pompi_iallgatherv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount
|
|
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iallgatherv_f
|
|
|
|
subroutine pompi_allreduce_f(sendbuf,recvbuf,count,datatype,op,comm,ierror) &
|
|
BIND(C, name="pompi_allreduce_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_allreduce_f
|
|
|
|
subroutine pompi_iallreduce_f(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) &
|
|
BIND(C, name="pompi_iallreduce_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iallreduce_f
|
|
|
|
subroutine pompi_alltoall_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,comm,ierror) &
|
|
BIND(C, name="pompi_alltoall_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_alltoall_f
|
|
|
|
subroutine pompi_ialltoall_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,comm,request,ierror) &
|
|
BIND(C, name="pompi_ialltoall_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ialltoall_f
|
|
|
|
subroutine pompi_alltoallv_f(sendbuf,sendcounts,sdispls,sendtype, &
|
|
recvbuf,recvcounts,rdispls,recvtype,comm,ierror) &
|
|
BIND(C, name="pompi_alltoallv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_alltoallv_f
|
|
|
|
subroutine pompi_ialltoallv_f(sendbuf,sendcounts,sdispls,sendtype, &
|
|
recvbuf,recvcounts,rdispls,recvtype,comm,request,ierror) &
|
|
BIND(C, name="pompi_ialltoallv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ialltoallv_f
|
|
|
|
subroutine pompi_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes, &
|
|
recvbuf,recvcounts,rdispls,recvtypes,comm,ierror) &
|
|
BIND(C, name="pompi_alltoallw_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
|
INTEGER, INTENT(IN) :: sendtypes
|
|
INTEGER, INTENT(IN) :: recvtypes
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_alltoallw_f
|
|
|
|
subroutine pompi_ialltoallw_f(sendbuf,sendcounts,sdispls,sendtypes, &
|
|
recvbuf,recvcounts,rdispls,recvtypes,comm,request,ierror) &
|
|
BIND(C, name="pompi_ialltoallw_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
|
INTEGER, INTENT(IN) :: sendtypes
|
|
INTEGER, INTENT(IN) :: recvtypes
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ialltoallw_f
|
|
|
|
subroutine pompi_barrier_f(comm,ierror) &
|
|
BIND(C, name="pompi_barrier_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_barrier_f
|
|
|
|
subroutine pompi_ibarrier_f(comm,request,ierror) &
|
|
BIND(C, name="pompi_ibarrier_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ibarrier_f
|
|
|
|
subroutine pompi_bcast_f(buffer,count,datatype,root,comm,ierror) &
|
|
BIND(C, name="pompi_bcast_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer
|
|
INTEGER, INTENT(IN) :: count, root
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_bcast_f
|
|
|
|
subroutine pompi_ibcast_f(buffer,count,datatype,root,comm,request,ierror) &
|
|
BIND(C, name="pompi_ibcast_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer
|
|
INTEGER, INTENT(IN) :: count, root
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ibcast_f
|
|
|
|
subroutine pompi_exscan_f(sendbuf,recvbuf,count,datatype,op,comm,ierror) &
|
|
BIND(C, name="pompi_exscan_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_exscan_f
|
|
|
|
subroutine pompi_iexscan_f(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) &
|
|
BIND(C, name="pompi_iexscan_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iexscan_f
|
|
|
|
subroutine pompi_gather_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,root,comm,ierror) &
|
|
BIND(C, name="pompi_gather_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_gather_f
|
|
|
|
subroutine pompi_igather_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,root,comm,request,ierror) &
|
|
BIND(C, name="pompi_igather_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_igather_f
|
|
|
|
subroutine pompi_gatherv_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcounts,displs,recvtype,root,comm,ierror) &
|
|
BIND(C, name="pompi_gatherv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, root
|
|
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_gatherv_f
|
|
|
|
subroutine pompi_igatherv_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcounts,displs,recvtype,root,comm,request,ierror) &
|
|
BIND(C, name="pompi_igatherv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, root
|
|
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_igatherv_f
|
|
|
|
subroutine pompi_op_commutative_f(op,commute,ierror) &
|
|
BIND(C, name="pompi_op_commutative_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: op
|
|
LOGICAL, INTENT(OUT) :: commute
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_op_commutative_f
|
|
|
|
subroutine pompi_op_create_f(user_fn,commute,op,ierror) &
|
|
BIND(C, name="pompi_op_create_f")
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_User_function) :: user_fn
|
|
LOGICAL, INTENT(IN) :: commute
|
|
INTEGER, INTENT(OUT) :: op
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_op_create_f
|
|
|
|
subroutine pompi_op_free_f(op,ierror) &
|
|
BIND(C, name="pompi_op_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: op
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_op_free_f
|
|
|
|
subroutine pompi_reduce_f(sendbuf,recvbuf,count,datatype,op,root,comm,ierror) &
|
|
BIND(C, name="pompi_reduce_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count, root
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_reduce_f
|
|
|
|
subroutine pompi_ireduce_f(sendbuf,recvbuf,count,datatype,op,root,comm,request,ierror) &
|
|
BIND(C, name="pompi_ireduce_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count, root
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ireduce_f
|
|
|
|
subroutine pompi_reduce_local_f(inbuf,inoutbuf,count,datatype,op,ierror) &
|
|
BIND(C, name="pompi_reduce_local_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, inoutbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_reduce_local_f
|
|
|
|
subroutine pompi_reduce_scatter_f(sendbuf,recvbuf,recvcounts, &
|
|
datatype,op,comm,ierror) &
|
|
BIND(C, name="pompi_reduce_scatter_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: recvcounts(*)
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_reduce_scatter_f
|
|
|
|
subroutine pompi_ireduce_scatter_f(sendbuf,recvbuf,recvcounts, &
|
|
datatype,op,comm,request,ierror) &
|
|
BIND(C, name="pompi_ireduce_scatter_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: recvcounts(*)
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ireduce_scatter_f
|
|
|
|
subroutine pompi_reduce_scatter_block_f(sendbuf,recvbuf,recvcount, &
|
|
datatype,op,comm,ierror) &
|
|
BIND(C, name="pompi_reduce_scatter_block_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: recvcount
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_reduce_scatter_block_f
|
|
|
|
subroutine pompi_ireduce_scatter_block_f(sendbuf,recvbuf,recvcount, &
|
|
datatype,op,comm,request,ierror) &
|
|
BIND(C, name="pompi_ireduce_scatter_block_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: recvcount
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_ireduce_scatter_block_f
|
|
|
|
subroutine pompi_scan_f(sendbuf,recvbuf,count,datatype,op,comm,ierror) &
|
|
BIND(C, name="pompi_scan_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_scan_f
|
|
|
|
subroutine pompi_iscan_f(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) &
|
|
BIND(C, name="pompi_iscan_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iscan_f
|
|
|
|
subroutine pompi_scatter_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,root,comm,ierror) &
|
|
BIND(C, name="pompi_scatter_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_scatter_f
|
|
|
|
subroutine pompi_iscatter_f(sendbuf,sendcount,sendtype,recvbuf, &
|
|
recvcount,recvtype,root,comm,request,ierror) &
|
|
BIND(C, name="pompi_iscatter_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iscatter_f
|
|
|
|
subroutine pompi_scatterv_f(sendbuf,sendcounts,displs,sendtype, &
|
|
recvbuf,recvcount,recvtype,root,comm,ierror) &
|
|
BIND(C, name="pompi_scatterv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: recvcount, root
|
|
INTEGER, INTENT(IN) :: sendcounts(*), displs(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_scatterv_f
|
|
|
|
subroutine pompi_iscatterv_f(sendbuf,sendcounts,displs,sendtype, &
|
|
recvbuf,recvcount,recvtype,root,comm,request,ierror) &
|
|
BIND(C, name="pompi_iscatterv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
|
INTEGER, INTENT(IN) :: recvcount, root
|
|
INTEGER, INTENT(IN) :: sendcounts(*), displs(*)
|
|
INTEGER, INTENT(IN) :: sendtype
|
|
INTEGER, INTENT(IN) :: recvtype
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_iscatterv_f
|
|
|
|
subroutine pompi_comm_compare_f(comm1,comm2,result,ierror) &
|
|
BIND(C, name="pompi_comm_compare_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm1
|
|
INTEGER, INTENT(IN) :: comm2
|
|
INTEGER, INTENT(OUT) :: result
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_compare_f
|
|
|
|
subroutine pompi_comm_create_f(comm,group,newcomm,ierror) &
|
|
BIND(C, name="pompi_comm_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_create_f
|
|
|
|
subroutine pompi_comm_create_keyval_f(comm_copy_attr_fn,comm_delete_attr_fn, &
|
|
comm_keyval,extra_state,ierror) &
|
|
BIND(C, name="pompi_comm_create_keyval_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
|
OMPI_PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
|
INTEGER, INTENT(OUT) :: comm_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_create_keyval_f
|
|
|
|
subroutine pompi_comm_delete_attr_f(comm,comm_keyval,ierror) &
|
|
BIND(C, name="pompi_comm_delete_attr_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: comm_keyval
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_delete_attr_f
|
|
|
|
subroutine pompi_comm_dup_f(comm,newcomm,ierror) &
|
|
BIND(C, name="pompi_comm_dup_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_dup_f
|
|
|
|
subroutine pompi_comm_free_f(comm,ierror) &
|
|
BIND(C, name="pompi_comm_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_free_f
|
|
|
|
subroutine pompi_comm_free_keyval_f(comm_keyval,ierror) &
|
|
BIND(C, name="pompi_comm_free_keyval_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: comm_keyval
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_free_keyval_f
|
|
|
|
subroutine pompi_comm_get_attr_f(comm,comm_keyval,attribute_val,flag,ierror) &
|
|
BIND(C, name="pompi_comm_get_attr_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: comm_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: attribute_val
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_get_attr_f
|
|
|
|
subroutine pompi_comm_get_name_f(comm,comm_name,resultlen,ierror,comm_name_len) &
|
|
BIND(C, name="pompi_comm_get_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: comm_name
|
|
INTEGER, INTENT(OUT) :: resultlen
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: comm_name_len
|
|
end subroutine pompi_comm_get_name_f
|
|
|
|
subroutine pompi_comm_group_f(comm,group,ierror) &
|
|
BIND(C, name="pompi_comm_group_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: group
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_group_f
|
|
|
|
subroutine pompi_comm_rank_f(comm,rank,ierror) &
|
|
BIND(C, name="pompi_comm_rank_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: rank
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_rank_f
|
|
|
|
subroutine pompi_comm_remote_group_f(comm,group,ierror) &
|
|
BIND(C, name="pompi_comm_remote_group_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: group
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_remote_group_f
|
|
|
|
subroutine pompi_comm_remote_size_f(comm,size,ierror) &
|
|
BIND(C, name="pompi_comm_remote_size_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_remote_size_f
|
|
|
|
subroutine pompi_comm_set_attr_f(comm,comm_keyval,attribute_val,ierror) &
|
|
BIND(C, name="pompi_comm_set_attr_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: comm_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_set_attr_f
|
|
|
|
subroutine pompi_comm_set_name_f(comm,comm_name,ierror,comm_name_len) &
|
|
BIND(C, name="pompi_comm_set_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: comm_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: comm_name_len
|
|
end subroutine pompi_comm_set_name_f
|
|
|
|
subroutine pompi_comm_size_f(comm,size,ierror) &
|
|
BIND(C, name="pompi_comm_size_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_size_f
|
|
|
|
subroutine pompi_comm_split_f(comm,color,key,newcomm,ierror) &
|
|
BIND(C, name="pompi_comm_split_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: color, key
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_split_f
|
|
|
|
subroutine pompi_comm_test_inter_f(comm,flag,ierror) &
|
|
BIND(C, name="pompi_comm_test_inter_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_test_inter_f
|
|
|
|
subroutine pompi_group_compare_f(group1,group2,result,ierror) &
|
|
BIND(C, name="pompi_group_compare_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group1
|
|
INTEGER, INTENT(IN) :: group2
|
|
INTEGER, INTENT(OUT) :: result
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_compare_f
|
|
|
|
subroutine pompi_group_difference_f(group1,group2,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_difference_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group1
|
|
INTEGER, INTENT(IN) :: group2
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_difference_f
|
|
|
|
subroutine pompi_group_excl_f(group,n,ranks,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_excl_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(IN) :: n
|
|
INTEGER, INTENT(IN) :: ranks(*)
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_excl_f
|
|
|
|
subroutine pompi_group_free_f(group,ierror) &
|
|
BIND(C, name="pompi_group_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: group
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_free_f
|
|
|
|
subroutine pompi_group_incl_f(group,n,ranks,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_incl_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: n
|
|
INTEGER, INTENT(IN) :: ranks(*)
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_incl_f
|
|
|
|
subroutine pompi_group_intersection_f(group1,group2,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_intersection_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group1
|
|
INTEGER, INTENT(IN) :: group2
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_intersection_f
|
|
|
|
subroutine pompi_group_range_excl_f(group,n,ranges,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_range_excl_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(IN) :: n
|
|
INTEGER, INTENT(IN) :: ranges(*)
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_range_excl_f
|
|
|
|
subroutine pompi_group_range_incl_f(group,n,ranges,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_range_incl_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(IN) :: n
|
|
INTEGER, INTENT(IN) :: ranges(*)
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_range_incl_f
|
|
|
|
subroutine pompi_group_rank_f(group,rank,ierror) &
|
|
BIND(C, name="pompi_group_rank_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(OUT) :: rank
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_rank_f
|
|
|
|
subroutine pompi_group_size_f(group,size,ierror) &
|
|
BIND(C, name="pompi_group_size_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_size_f
|
|
|
|
subroutine pompi_group_translate_ranks_f(group1,n,ranks1,group2,ranks2,ierror) &
|
|
BIND(C, name="pompi_group_translate_ranks_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group1, group2
|
|
INTEGER, INTENT(IN) :: n
|
|
INTEGER, INTENT(IN) :: ranks1(*)
|
|
INTEGER, INTENT(OUT) :: ranks2(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_translate_ranks_f
|
|
|
|
subroutine pompi_group_union_f(group1,group2,newgroup,ierror) &
|
|
BIND(C, name="pompi_group_union_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group1, group2
|
|
INTEGER, INTENT(OUT) :: newgroup
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_group_union_f
|
|
|
|
subroutine pompi_intercomm_create_f(local_comm,local_leader,peer_comm, &
|
|
remote_leader,tag,newintercomm,ierror) &
|
|
BIND(C, name="pompi_intercomm_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: local_comm, peer_comm
|
|
INTEGER, INTENT(IN) :: local_leader, remote_leader, tag
|
|
INTEGER, INTENT(OUT) :: newintercomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_intercomm_create_f
|
|
|
|
subroutine pompi_intercomm_merge_f(intercomm,high,newintracomm,ierror) &
|
|
BIND(C, name="pompi_intercomm_merge_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: intercomm
|
|
LOGICAL, INTENT(IN) :: high
|
|
INTEGER, INTENT(OUT) :: newintracomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_intercomm_merge_f
|
|
|
|
subroutine pompi_type_create_keyval_f(type_copy_attr_fn,type_delete_attr_fn, &
|
|
type_keyval,extra_state,ierror) &
|
|
BIND(C, name="pompi_type_create_keyval_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
|
OMPI_PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
|
INTEGER, INTENT(OUT) :: type_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_keyval_f
|
|
|
|
subroutine pompi_type_delete_attr_f(type,type_keyval,ierror) &
|
|
BIND(C, name="pompi_type_delete_attr_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: type
|
|
INTEGER, INTENT(IN) :: type_keyval
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_delete_attr_f
|
|
|
|
subroutine pompi_type_free_keyval_f(type_keyval,ierror) &
|
|
BIND(C, name="pompi_type_free_keyval_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: type_keyval
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_free_keyval_f
|
|
|
|
subroutine pompi_type_get_attr_f(type,type_keyval,attribute_val,flag,ierror) &
|
|
BIND(C, name="pompi_type_get_attr_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: type
|
|
INTEGER, INTENT(IN) :: type_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: attribute_val
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_get_attr_f
|
|
|
|
subroutine pompi_type_get_name_f(type,type_name,resultlen,ierror,type_name_len) &
|
|
BIND(C, name="pompi_type_get_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: type
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: type_name
|
|
INTEGER, INTENT(OUT) :: resultlen
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: type_name_len
|
|
end subroutine pompi_type_get_name_f
|
|
|
|
subroutine pompi_type_set_attr_f(type,type_keyval,attribute_val,ierror) &
|
|
BIND(C, name="pompi_type_set_attr_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: type
|
|
INTEGER, INTENT(IN) :: type_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_set_attr_f
|
|
|
|
subroutine pompi_type_set_name_f(type,type_name,ierror,type_name_len) &
|
|
BIND(C, name="pompi_type_set_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: type
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: type_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: type_name_len
|
|
end subroutine pompi_type_set_name_f
|
|
|
|
subroutine pompi_win_create_keyval_f(win_copy_attr_fn,win_delete_attr_fn, &
|
|
win_keyval,extra_state,ierror) &
|
|
BIND(C, name="pompi_win_create_keyval_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
|
OMPI_PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
|
INTEGER, INTENT(OUT) :: win_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_create_keyval_f
|
|
|
|
subroutine pompi_win_delete_attr_f(win,win_keyval,ierror) &
|
|
BIND(C, name="pompi_win_delete_attr_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(IN) :: win_keyval
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_delete_attr_f
|
|
|
|
subroutine pompi_win_free_keyval_f(win_keyval,ierror) &
|
|
BIND(C, name="pompi_win_free_keyval_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: win_keyval
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_free_keyval_f
|
|
|
|
subroutine pompi_win_get_attr_f(win,win_keyval,attribute_val,flag,ierror) &
|
|
BIND(C, name="pompi_win_get_attr_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(IN) :: win_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: attribute_val
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_get_attr_f
|
|
|
|
subroutine pompi_win_get_name_f(win,win_name,resultlen,ierror,win_name_len) &
|
|
BIND(C, name="pompi_win_get_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: win_name
|
|
INTEGER, INTENT(OUT) :: resultlen
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: win_name_len
|
|
end subroutine pompi_win_get_name_f
|
|
|
|
subroutine pompi_win_set_attr_f(win,win_keyval,attribute_val,ierror) &
|
|
BIND(C, name="pompi_win_set_attr_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(IN) :: win_keyval
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_set_attr_f
|
|
|
|
subroutine pompi_win_set_name_f(win,win_name,ierror,win_name_len) &
|
|
BIND(C, name="pompi_win_set_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: win_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: win_name_len
|
|
end subroutine pompi_win_set_name_f
|
|
|
|
subroutine pompi_cartdim_get_f(comm,ndims,ierror) &
|
|
BIND(C, name="pompi_cartdim_get_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: ndims
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cartdim_get_f
|
|
|
|
subroutine pompi_cart_coords_f(comm,rank,maxdims,coords,ierror) &
|
|
BIND(C, name="pompi_cart_coords_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: rank, maxdims
|
|
INTEGER, INTENT(OUT) :: coords(maxdims)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_coords_f
|
|
|
|
subroutine pompi_cart_create_f(comm_old,ndims,dims,periods, &
|
|
reorder,comm_cart,ierror) &
|
|
BIND(C, name="pompi_cart_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm_old
|
|
INTEGER, INTENT(IN) :: ndims, dims(ndims)
|
|
LOGICAL, INTENT(IN) :: periods(ndims), reorder
|
|
INTEGER, INTENT(OUT) :: comm_cart
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_create_f
|
|
|
|
subroutine pompi_cart_get_f(comm,maxdims,dims,periods,coords,ierror) &
|
|
BIND(C, name="pompi_cart_get_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: maxdims
|
|
INTEGER, INTENT(OUT) :: dims(maxdims), coords(maxdims)
|
|
LOGICAL, INTENT(OUT) :: periods(maxdims)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_get_f
|
|
|
|
subroutine pompi_cart_map_f(comm,ndims,dims,periods,newrank,ierror) &
|
|
BIND(C, name="pompi_cart_map_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: ndims, dims(ndims)
|
|
LOGICAL, INTENT(IN) :: periods
|
|
INTEGER, INTENT(OUT) :: newrank
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_map_f
|
|
|
|
subroutine pompi_cart_rank_f(comm,coords,rank,ierror) &
|
|
BIND(C, name="pompi_cart_rank_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: coords(*)
|
|
INTEGER, INTENT(OUT) :: rank
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_rank_f
|
|
|
|
subroutine pompi_cart_shift_f(comm,direction,disp,rank_source,rank_dest,ierror) &
|
|
BIND(C, name="pompi_cart_shift_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: direction, disp
|
|
INTEGER, INTENT(OUT) :: rank_source, rank_dest
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_shift_f
|
|
|
|
subroutine pompi_cart_sub_f(comm,remain_dims,newcomm,ierror) &
|
|
BIND(C, name="pompi_cart_sub_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
LOGICAL, INTENT(IN) :: remain_dims(*)
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_cart_sub_f
|
|
|
|
subroutine pompi_dims_create_f(nnodes,ndims,dims,ierror) &
|
|
BIND(C, name="pompi_dims_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: nnodes, ndims
|
|
INTEGER, INTENT(INOUT) :: dims(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_dims_create_f
|
|
|
|
subroutine pompi_dist_graph_create_f(comm_old,n,sources,degrees, &
|
|
destinations,weights,info,reorder,comm_dist_graph,ierror) &
|
|
BIND(C, name="pompi_dist_graph_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm_old
|
|
INTEGER, INTENT(IN) :: n
|
|
INTEGER, INTENT(IN) :: sources(n), degrees(n), destinations(*), weights(*)
|
|
INTEGER, INTENT(IN) :: info
|
|
LOGICAL, INTENT(IN) :: reorder
|
|
INTEGER, INTENT(OUT) :: comm_dist_graph
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_dist_graph_create_f
|
|
|
|
subroutine pompi_dist_graph_create_adjacent_f(comm_old,indegree,sources, &
|
|
sourceweights,outdegree,destinations,destweights,info, &
|
|
reorder,comm_dist_graph,ierror) &
|
|
BIND(C, name="pompi_dist_graph_create_adjacent_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm_old
|
|
INTEGER, INTENT(IN) :: indegree, outdegree
|
|
INTEGER, INTENT(IN) :: sources(indegree), sourceweights(indegree)
|
|
INTEGER, INTENT(IN) :: destinations(outdegree), destweights(outdegree)
|
|
INTEGER, INTENT(IN) :: info
|
|
LOGICAL, INTENT(IN) :: reorder
|
|
INTEGER, INTENT(OUT) :: comm_dist_graph
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_dist_graph_create_adjacent_f
|
|
|
|
subroutine pompi_dist_graph_neighbors_f(comm,maxindegree,sources,sourceweights, &
|
|
maxoutdegree,destinations,destweights,ierror) &
|
|
BIND(C, name="pompi_dist_graph_neighbors_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: maxindegree, maxoutdegree
|
|
INTEGER, INTENT(OUT) :: sources(maxindegree), destinations(maxoutdegree)
|
|
INTEGER, INTENT(OUT) :: sourceweights(maxindegree), destweights(maxoutdegree)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_dist_graph_neighbors_f
|
|
|
|
subroutine pompi_dist_graph_neighbors_count_f(comm,indegree,outdegree, &
|
|
weighted,ierror) &
|
|
BIND(C, name="pompi_dist_graph_neighbors_count_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: indegree, outdegree
|
|
LOGICAL, INTENT(OUT) :: weighted
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_dist_graph_neighbors_count_f
|
|
|
|
subroutine pompi_graphdims_get_f(comm,nnodes,nedges,ierror) &
|
|
BIND(C, name="pompi_graphdims_get_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: nnodes, nedges
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_graphdims_get_f
|
|
|
|
subroutine pompi_graph_create_f(comm_old,nnodes,index,edges,reorder, &
|
|
comm_graph,ierror) &
|
|
BIND(C, name="pompi_graph_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm_old
|
|
INTEGER, INTENT(IN) :: nnodes
|
|
INTEGER, INTENT(IN) :: index(*), edges(*)
|
|
LOGICAL, INTENT(IN) :: reorder
|
|
INTEGER, INTENT(OUT) :: comm_graph
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_graph_create_f
|
|
|
|
subroutine pompi_graph_get_f(comm,maxindex,maxedges,index,edges,ierror) &
|
|
BIND(C, name="pompi_graph_get_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: maxindex, maxedges
|
|
INTEGER, INTENT(OUT) :: index(*), edges(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_graph_get_f
|
|
|
|
subroutine pompi_graph_map_f(comm,nnodes,index,edges,newrank,ierror) &
|
|
BIND(C, name="pompi_graph_map_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: nnodes
|
|
INTEGER, INTENT(IN) :: index(*), edges(*)
|
|
INTEGER, INTENT(OUT) :: newrank
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_graph_map_f
|
|
|
|
subroutine pompi_graph_neighbors_f(comm,rank,maxneighbors,neighbors,ierror) &
|
|
BIND(C, name="pompi_graph_neighbors_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: rank, maxneighbors
|
|
INTEGER, INTENT(OUT) :: neighbors(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_graph_neighbors_f
|
|
|
|
subroutine pompi_graph_neighbors_count_f(comm,rank,nneighbors,ierror) &
|
|
BIND(C, name="pompi_graph_neighbors_count_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: rank
|
|
INTEGER, INTENT(OUT) :: nneighbors
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_graph_neighbors_count_f
|
|
|
|
subroutine pompi_topo_test_f(comm,status,ierror) &
|
|
BIND(C, name="pompi_topo_test_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_topo_test_f
|
|
|
|
!
|
|
! These functions are declared in mpi-f08-interface.h as BIND(C)
|
|
!
|
|
!function MPI_Wtick_f() &
|
|
! BIND(C, name="pompi_wtick_f")
|
|
! implicit none
|
|
! DOUBLE PRECISION :: MPI_Wtick_f
|
|
!end function MPI_Wtick_f
|
|
!
|
|
!function MPI_Wtime_f() &
|
|
! BIND(C, name="pompi_wtime_f")
|
|
! implicit none
|
|
! DOUBLE PRECISION :: MPI_Wtime_f
|
|
!end function MPI_Wtime_f
|
|
|
|
subroutine pompi_abort_f(comm,errorcode,ierror) &
|
|
BIND(C, name="pompi_abort_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_abort_f
|
|
|
|
subroutine pompi_add_error_class_f(errorclass,ierror) &
|
|
BIND(C, name="pompi_add_error_class_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: errorclass
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_add_error_class_f
|
|
|
|
subroutine pompi_add_error_code_f(errorclass,errorcode,ierror) &
|
|
BIND(C, name="pompi_add_error_code_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: errorclass
|
|
INTEGER, INTENT(OUT) :: errorcode
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_add_error_code_f
|
|
|
|
subroutine pompi_add_error_string_f(errorcode,string,ierror,str_len) &
|
|
BIND(C, name="pompi_add_error_string_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: string
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: str_len
|
|
end subroutine pompi_add_error_string_f
|
|
|
|
subroutine pompi_alloc_mem_f(size,info,baseptr,ierror) &
|
|
BIND(C, name="pompi_alloc_mem_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
use, intrinsic :: ISO_C_BINDING, only : C_PTR
|
|
implicit none
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
|
|
INTEGER, INTENT(IN) :: info
|
|
TYPE(C_PTR), INTENT(OUT) :: baseptr
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_alloc_mem_f
|
|
|
|
subroutine pompi_comm_call_errhandler_f(comm,errorcode,ierror) &
|
|
BIND(C, name="pompi_comm_call_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_call_errhandler_f
|
|
|
|
subroutine pompi_comm_create_errhandler_f(comm_errhandler_fn,errhandler,ierror) &
|
|
BIND(C, name="pompi_comm_create_errhandler_f")
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
|
INTEGER, INTENT(OUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_create_errhandler_f
|
|
|
|
subroutine pompi_comm_get_errhandler_f(comm,errhandler,ierror) &
|
|
BIND(C, name="pompi_comm_get_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_get_errhandler_f
|
|
|
|
subroutine pompi_comm_set_errhandler_f(comm,errhandler,ierror) &
|
|
BIND(C, name="pompi_comm_set_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_set_errhandler_f
|
|
|
|
subroutine pompi_errhandler_free_f(errhandler,ierror) &
|
|
BIND(C, name="pompi_errhandler_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_errhandler_free_f
|
|
|
|
subroutine pompi_error_class_f(errorcode,errorclass,ierror) &
|
|
BIND(C, name="pompi_error_class_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
INTEGER, INTENT(OUT) :: errorclass
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_error_class_f
|
|
|
|
subroutine pompi_error_string_f(errorcode,string,resultlen,ierror,str_len) &
|
|
BIND(C, name="pompi_error_string_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: string
|
|
INTEGER, INTENT(OUT) :: resultlen
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: str_len
|
|
end subroutine pompi_error_string_f
|
|
|
|
subroutine pompi_file_call_errhandler_f(fh,errorcode,ierror) &
|
|
BIND(C, name="pompi_file_call_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_call_errhandler_f
|
|
|
|
subroutine pompi_file_create_errhandler_f(file_errhandler_fn,errhandler,ierror) &
|
|
BIND(C, name="pompi_file_create_errhandler_f")
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
|
INTEGER, INTENT(OUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_create_errhandler_f
|
|
|
|
subroutine pompi_file_get_errhandler_f(file,errhandler,ierror) &
|
|
BIND(C, name="pompi_file_get_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: file
|
|
INTEGER, INTENT(OUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_errhandler_f
|
|
|
|
subroutine pompi_file_set_errhandler_f(file,errhandler,ierror) &
|
|
BIND(C, name="pompi_file_set_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: file
|
|
INTEGER, INTENT(IN) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_set_errhandler_f
|
|
|
|
subroutine pompi_finalize_f(ierror) &
|
|
BIND(C, name="pompi_finalize_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_finalize_f
|
|
|
|
subroutine pompi_finalized_f(flag,ierror) &
|
|
BIND(C, name="pompi_finalized_f")
|
|
implicit none
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_finalized_f
|
|
|
|
subroutine pompi_free_mem_f(base,ierror) &
|
|
BIND(C, name="pompi_free_mem_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
!$PRAGMA IGNORE_TKR base
|
|
!DIR$ IGNORE_TKR base
|
|
!IBM* IGNORE_TKR base
|
|
INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_free_mem_f
|
|
|
|
subroutine pompi_get_processor_name_f(name,resultlen,ierror,name_len) &
|
|
BIND(C, name="pompi_get_processor_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: name
|
|
INTEGER, INTENT(OUT) :: resultlen
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: name_len
|
|
end subroutine pompi_get_processor_name_f
|
|
|
|
subroutine pompi_get_version_f(version,subversion,ierror) &
|
|
BIND(C, name="pompi_get_version_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: version, subversion
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_get_version_f
|
|
|
|
subroutine pompi_init_f(ierror) &
|
|
BIND(C, name="pompi_init_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_init_f
|
|
|
|
subroutine pompi_initialized_f(flag,ierror) &
|
|
BIND(C, name="pompi_initialized_f")
|
|
implicit none
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_initialized_f
|
|
|
|
subroutine pompi_win_call_errhandler_f(win,errorcode,ierror) &
|
|
BIND(C, name="pompi_win_call_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(IN) :: errorcode
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_call_errhandler_f
|
|
|
|
subroutine pompi_win_create_errhandler_f(win_errhandler_fn,errhandler,ierror) &
|
|
BIND(C, name="pompi_win_create_errhandler_f")
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
|
INTEGER, INTENT(OUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_create_errhandler_f
|
|
|
|
subroutine pompi_win_get_errhandler_f(win,errhandler,ierror) &
|
|
BIND(C, name="pompi_win_get_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_get_errhandler_f
|
|
|
|
subroutine pompi_win_set_errhandler_f(win,errhandler,ierror) &
|
|
BIND(C, name="pompi_win_set_errhandler_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(IN) :: errhandler
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_set_errhandler_f
|
|
|
|
subroutine pompi_info_create_f(info,ierror) &
|
|
BIND(C, name="pompi_info_create_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: info
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_info_create_f
|
|
|
|
subroutine pompi_info_delete_f(info,key,ierror,key_len) &
|
|
BIND(C, name="pompi_info_delete_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: key
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: key_len
|
|
end subroutine pompi_info_delete_f
|
|
|
|
subroutine pompi_info_dup_f(info,newinfo,ierror) &
|
|
BIND(C, name="pompi_info_dup_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: newinfo
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_info_dup_f
|
|
|
|
subroutine pompi_info_free_f(info,ierror) &
|
|
BIND(C, name="pompi_info_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: info
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_info_free_f
|
|
|
|
subroutine pompi_info_get_f(info,key,valuelen,value,flag,ierror,key_len,value_len) &
|
|
BIND(C, name="pompi_info_get_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: key
|
|
INTEGER, INTENT(IN) :: valuelen
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: value
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: key_len, value_len
|
|
end subroutine pompi_info_get_f
|
|
|
|
subroutine pompi_info_get_nkeys_f(info,nkeys,ierror) &
|
|
BIND(C, name="pompi_info_get_nkeys_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: nkeys
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_info_get_nkeys_f
|
|
|
|
subroutine pompi_info_get_nthkey_f(info,n,key,ierror,key_len) &
|
|
BIND(C, name="pompi_info_get_nthkey_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(IN) :: n
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: key
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: key_len
|
|
end subroutine pompi_info_get_nthkey_f
|
|
|
|
subroutine pompi_info_get_valuelen_f(info,key,valuelen,flag,ierror,key_len) &
|
|
BIND(C, name="pompi_info_get_valuelen_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: key
|
|
INTEGER, INTENT(OUT) :: valuelen
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: key_len
|
|
end subroutine pompi_info_get_valuelen_f
|
|
|
|
subroutine pompi_info_set_f(info,key,value,ierror,key_len,value_len) &
|
|
BIND(C, name="pompi_info_set_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: key, value
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: key_len, value_len
|
|
end subroutine pompi_info_set_f
|
|
|
|
subroutine pompi_close_port_f(port_name,ierror,port_name_len) &
|
|
BIND(C, name="pompi_close_port_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: port_name_len
|
|
end subroutine pompi_close_port_f
|
|
|
|
subroutine pompi_comm_accept_f(port_name,info,root,comm,newcomm,ierror,port_name_len) &
|
|
BIND(C, name="pompi_comm_accept_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(IN) :: root
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: port_name_len
|
|
end subroutine pompi_comm_accept_f
|
|
|
|
subroutine pompi_comm_connect_f(port_name,info,root,comm,newcomm,ierror,port_name_len) &
|
|
BIND(C, name="pompi_comm_connect_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(IN) :: root
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: port_name_len
|
|
end subroutine pompi_comm_connect_f
|
|
|
|
subroutine pompi_comm_disconnect_f(comm,ierror) &
|
|
BIND(C, name="pompi_comm_disconnect_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: comm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_disconnect_f
|
|
|
|
subroutine pompi_comm_get_parent_f(parent,ierror) &
|
|
BIND(C, name="pompi_comm_get_parent_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: parent
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_get_parent_f
|
|
|
|
subroutine pompi_comm_join_f(fd,intercomm,ierror) &
|
|
BIND(C, name="pompi_comm_join_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fd
|
|
INTEGER, INTENT(OUT) :: intercomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_join_f
|
|
|
|
subroutine pompi_comm_spawn_f(command,argv,maxprocs,info,root,comm, &
|
|
intercomm, array_of_errcodes,ierror,cmd_len,argv_len) &
|
|
BIND(C, name="pompi_comm_spawn_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: command, argv
|
|
INTEGER, INTENT(IN) :: maxprocs, root
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: intercomm
|
|
INTEGER, INTENT(OUT) :: array_of_errcodes(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: cmd_len, argv_len
|
|
end subroutine pompi_comm_spawn_f
|
|
|
|
|
|
! TODO - FIXME to use arrays of strings and pass strlen
|
|
subroutine pompi_comm_spawn_multiple_f(count,array_of_commands, &
|
|
array_of_argv, array_of_maxprocs,array_of_info,root, &
|
|
comm,intercomm,array_of_errcodes,ierror) &
|
|
BIND(C, name="pompi_comm_spawn_multiple_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: count, root
|
|
INTEGER, INTENT(IN) :: array_of_maxprocs(count)
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: array_of_commands(*), array_of_argv(*)
|
|
INTEGER, INTENT(IN) :: array_of_info(count)
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: intercomm
|
|
INTEGER, INTENT(OUT) :: array_of_errcodes(*)
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_spawn_multiple_f
|
|
|
|
subroutine pompi_lookup_name_f(service_name,info,port_name,ierror, &
|
|
service_name_len,port_name_len) &
|
|
BIND(C, name="pompi_lookup_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: port_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: service_name_len, port_name_len
|
|
end subroutine pompi_lookup_name_f
|
|
|
|
subroutine pompi_open_port_f(info,port_name,ierror,port_name_len) &
|
|
BIND(C, name="pompi_open_port_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: port_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: port_name_len
|
|
end subroutine pompi_open_port_f
|
|
|
|
subroutine pompi_publish_name_f(service_name,info,port_name,ierror, &
|
|
service_name_len,port_name_len) &
|
|
BIND(C, name="pompi_publish_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: info
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name, port_name
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: service_name_len, port_name_len
|
|
end subroutine pompi_publish_name_f
|
|
|
|
subroutine pompi_unpublish_name_f(service_name,info,port_name, &
|
|
ierror,service_name_len,port_name_len) &
|
|
BIND(C, name="pompi_unpublish_name_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name, port_name
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: service_name_len, port_name_len
|
|
end subroutine pompi_unpublish_name_f
|
|
|
|
subroutine pompi_accumulate_f(origin_addr,origin_count,origin_datatype, &
|
|
target_rank,target_disp, &
|
|
target_count,target_datatype,op,win,ierror) &
|
|
BIND(C, name="pompi_accumulate_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
|
|
INTEGER, INTENT(IN) :: origin_count, target_rank, target_count
|
|
INTEGER, INTENT(IN) :: origin_datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
|
|
INTEGER, INTENT(IN) :: target_datatype
|
|
INTEGER, INTENT(IN) :: op
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_accumulate_f
|
|
|
|
subroutine pompi_get_f(origin_addr,origin_count,origin_datatype,target_rank, &
|
|
target_disp,target_count,target_datatype,win,ierror) &
|
|
BIND(C, name="pompi_get_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
|
|
INTEGER, INTENT(IN) :: origin_count, target_rank, target_count
|
|
INTEGER, INTENT(IN) :: origin_datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
|
|
INTEGER, INTENT(IN) :: target_datatype
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_get_f
|
|
|
|
subroutine pompi_put_f(origin_addr,origin_count,origin_datatype,target_rank, &
|
|
target_disp,target_count,target_datatype,win,ierror) &
|
|
BIND(C, name="pompi_put_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
|
|
INTEGER, INTENT(IN) :: origin_count, target_rank, target_count
|
|
INTEGER, INTENT(IN) :: origin_datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
|
|
INTEGER, INTENT(IN) :: target_datatype
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_put_f
|
|
|
|
subroutine pompi_win_complete_f(win,ierror) &
|
|
BIND(C, name="pompi_win_complete_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_complete_f
|
|
|
|
subroutine pompi_win_create_f(base,size,disp_unit,info,comm,win,ierror) &
|
|
BIND(C, name="pompi_win_create_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
|
|
INTEGER, INTENT(IN) :: disp_unit
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_create_f
|
|
|
|
subroutine pompi_win_fence_f(assert,win,ierror) &
|
|
BIND(C, name="pompi_win_fence_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: assert
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_fence_f
|
|
|
|
subroutine pompi_win_free_f(win,ierror) &
|
|
BIND(C, name="pompi_win_free_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_free_f
|
|
|
|
subroutine pompi_win_get_group_f(win,group,ierror) &
|
|
BIND(C, name="pompi_win_get_group_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: group
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_get_group_f
|
|
|
|
subroutine pompi_win_lock_f(lock_type,rank,assert,win,ierror) &
|
|
BIND(C, name="pompi_win_lock_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: lock_type, rank, assert
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_lock_f
|
|
|
|
subroutine pompi_win_post_f(group,assert,win,ierror) &
|
|
BIND(C, name="pompi_win_post_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(IN) :: assert
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_post_f
|
|
|
|
subroutine pompi_win_start_f(group,assert,win,ierror) &
|
|
BIND(C, name="pompi_win_start_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: group
|
|
INTEGER, INTENT(IN) :: assert
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_start_f
|
|
|
|
subroutine pompi_win_test_f(win,flag,ierror) &
|
|
BIND(C, name="pompi_win_test_f")
|
|
implicit none
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_test_f
|
|
|
|
subroutine pompi_win_unlock_f(rank,win,ierror) &
|
|
BIND(C, name="pompi_win_unlock_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: rank
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_unlock_f
|
|
|
|
subroutine pompi_win_wait_f(win,ierror) &
|
|
BIND(C, name="pompi_win_wait_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: win
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_win_wait_f
|
|
|
|
subroutine pompi_grequest_complete_f(request,ierror) &
|
|
BIND(C, name="pompi_grequest_complete_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_grequest_complete_f
|
|
|
|
subroutine pompi_grequest_start_f(query_fn,free_fn,cancel_fn, &
|
|
extra_state,request,ierror) &
|
|
BIND(C, name="pompi_grequest_start_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
|
OMPI_PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
|
OMPI_PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_grequest_start_f
|
|
|
|
subroutine pompi_init_thread_f(required,provided,ierror) &
|
|
BIND(C, name="pompi_init_thread_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: required
|
|
INTEGER, INTENT(OUT) :: provided
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_init_thread_f
|
|
|
|
subroutine pompi_is_thread_main_f(flag,ierror) &
|
|
BIND(C, name="pompi_is_thread_main_f")
|
|
implicit none
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_is_thread_main_f
|
|
|
|
subroutine pompi_query_thread_f(provided,ierror) &
|
|
BIND(C, name="pompi_query_thread_f")
|
|
implicit none
|
|
INTEGER, INTENT(OUT) :: provided
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_query_thread_f
|
|
|
|
subroutine pompi_status_set_cancelled_f(status,flag,ierror) &
|
|
BIND(C, name="pompi_status_set_cancelled_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
TYPE(MPI_Status), INTENT(INOUT) :: status
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_status_set_cancelled_f
|
|
|
|
subroutine pompi_status_set_elements_f(status,datatype,count,ierror) &
|
|
BIND(C, name="pompi_status_set_elements_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
TYPE(MPI_Status), INTENT(INOUT) :: status
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_status_set_elements_f
|
|
|
|
subroutine pompi_file_close_f(fh,ierror) &
|
|
BIND(C, name="pompi_file_close_f")
|
|
implicit none
|
|
INTEGER, INTENT(INOUT) :: fh
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_close_f
|
|
|
|
subroutine pompi_file_delete_f(filename,info,ierror,filename_len) &
|
|
BIND(C, name="pompi_file_delete_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: filename
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: filename_len
|
|
end subroutine pompi_file_delete_f
|
|
|
|
subroutine pompi_file_get_amode_f(fh,amode,ierror) &
|
|
BIND(C, name="pompi_file_get_amode_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(OUT) :: amode
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_amode_f
|
|
|
|
subroutine pompi_file_get_atomicity_f(fh,flag,ierror) &
|
|
BIND(C, name="pompi_file_get_atomicity_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_atomicity_f
|
|
|
|
subroutine pompi_file_get_byte_offset_f(fh,offset,disp,ierror) &
|
|
BIND(C, name="pompi_file_get_byte_offset_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: disp
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_byte_offset_f
|
|
|
|
subroutine pompi_file_get_group_f(fh,group,ierror) &
|
|
BIND(C, name="pompi_file_get_group_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(OUT) :: group
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_group_f
|
|
|
|
subroutine pompi_file_get_info_f(fh,info_used,ierror) &
|
|
BIND(C, name="pompi_file_get_info_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(OUT) :: info_used
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_info_f
|
|
|
|
subroutine pompi_file_get_position_f(fh,offset,ierror) &
|
|
BIND(C, name="pompi_file_get_position_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_position_f
|
|
|
|
subroutine pompi_file_get_position_shared_f(fh,offset,ierror) &
|
|
BIND(C, name="pompi_file_get_position_shared_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_position_shared_f
|
|
|
|
subroutine pompi_file_get_size_f(fh,size,ierror) &
|
|
BIND(C, name="pompi_file_get_size_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_size_f
|
|
|
|
subroutine pompi_file_get_type_extent_f(fh,datatype,extent,ierror) &
|
|
BIND(C, name="pompi_file_get_type_extent_f")
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: extent
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_get_type_extent_f
|
|
|
|
subroutine pompi_file_get_view_f(fh,disp,etype,filetype,datarep,ierror,datarep_len) &
|
|
BIND(C, name="pompi_file_get_view_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: disp
|
|
INTEGER, INTENT(OUT) :: etype
|
|
INTEGER, INTENT(OUT) :: filetype
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: datarep
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: datarep_len
|
|
end subroutine pompi_file_get_view_f
|
|
|
|
subroutine pompi_file_iread_f(fh,buf,count,datatype,request,ierror) &
|
|
BIND(C, name="pompi_file_iread_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_iread_f
|
|
|
|
subroutine pompi_file_iread_at_f(fh,offset,buf,count,datatype,request,ierror) &
|
|
BIND(C, name="pompi_file_iread_at_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_iread_at_f
|
|
|
|
subroutine pompi_file_iread_shared_f(fh,buf,count,datatype,request,ierror) &
|
|
BIND(C, name="pompi_file_iread_shared_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_iread_shared_f
|
|
|
|
subroutine pompi_file_iwrite_f(fh,buf,count,datatype,request,ierror) &
|
|
BIND(C, name="pompi_file_iwrite_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_iwrite_f
|
|
|
|
subroutine pompi_file_iwrite_at_f(fh,offset,buf,count,datatype,request,ierror) &
|
|
BIND(C, name="pompi_file_iwrite_at_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_iwrite_at_f
|
|
|
|
subroutine pompi_file_iwrite_shared_f(fh,buf,count,datatype,request,ierror) &
|
|
BIND(C, name="pompi_file_iwrite_shared_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_iwrite_shared_f
|
|
|
|
subroutine pompi_file_open_f(comm,filename,amode,info,fh,ierror,filename_len) &
|
|
BIND(C, name="pompi_file_open_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: filename
|
|
INTEGER, INTENT(IN) :: amode
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: fh
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: filename_len
|
|
end subroutine pompi_file_open_f
|
|
|
|
subroutine pompi_file_preallocate_f(fh,size,ierror) &
|
|
BIND(C, name="pompi_file_preallocate_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_preallocate_f
|
|
|
|
subroutine pompi_file_read_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_read_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_f
|
|
|
|
subroutine pompi_file_read_all_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_read_all_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_all_f
|
|
|
|
subroutine pompi_file_read_all_begin_f(fh,buf,count,datatype,ierror) &
|
|
BIND(C, name="pompi_file_read_all_begin_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_all_begin_f
|
|
|
|
subroutine pompi_file_read_all_end_f(fh,buf,status,ierror) &
|
|
BIND(C, name="pompi_file_read_all_end_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_all_end_f
|
|
|
|
subroutine pompi_file_read_at_f(fh,offset,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_read_at_f")
|
|
use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_at_f
|
|
|
|
subroutine pompi_file_read_at_all_f(fh,offset,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_read_at_all_f")
|
|
use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_at_all_f
|
|
|
|
subroutine pompi_file_read_at_all_begin_f(fh,offset,buf,count,datatype,ierror) &
|
|
BIND(C, name="pompi_file_read_at_all_begin_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_at_all_begin_f
|
|
|
|
subroutine pompi_file_read_at_all_end_f(fh,buf,status,ierror) &
|
|
BIND(C, name="pompi_file_read_at_all_end_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_at_all_end_f
|
|
|
|
subroutine pompi_file_read_ordered_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_read_ordered_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_ordered_f
|
|
|
|
subroutine pompi_file_read_ordered_begin_f(fh,buf,count,datatype,ierror) &
|
|
BIND(C, name="pompi_file_read_ordered_begin_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_ordered_begin_f
|
|
|
|
subroutine pompi_file_read_ordered_end_f(fh,buf,status,ierror) &
|
|
BIND(C, name="pompi_file_read_ordered_end_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_ordered_end_f
|
|
|
|
subroutine pompi_file_read_shared_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_read_shared_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_read_shared_f
|
|
|
|
subroutine pompi_file_seek_f(fh,offset,whence,ierror) &
|
|
BIND(C, name="pompi_file_seek_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
INTEGER, INTENT(IN) :: whence
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_seek_f
|
|
|
|
subroutine pompi_file_seek_shared_f(fh,offset,whence,ierror) &
|
|
BIND(C, name="pompi_file_seek_shared_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
INTEGER, INTENT(IN) :: whence
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_seek_shared_f
|
|
|
|
subroutine pompi_file_set_atomicity_f(fh,flag,ierror) &
|
|
BIND(C, name="pompi_file_set_atomicity_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
LOGICAL, INTENT(IN) :: flag
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_set_atomicity_f
|
|
|
|
subroutine pompi_file_set_info_f(fh,info,ierror) &
|
|
BIND(C, name="pompi_file_set_info_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_set_info_f
|
|
|
|
subroutine pompi_file_set_size_f(fh,size,ierror) &
|
|
BIND(C, name="pompi_file_set_size_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_set_size_f
|
|
|
|
subroutine pompi_file_set_view_f(fh,disp,etype,filetype,datarep,info,ierror,datarep_len) &
|
|
BIND(C, name="pompi_file_set_view_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: disp
|
|
INTEGER, INTENT(IN) :: etype
|
|
INTEGER, INTENT(IN) :: filetype
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: datarep_len
|
|
end subroutine pompi_file_set_view_f
|
|
|
|
subroutine pompi_file_sync_f(fh,ierror) &
|
|
BIND(C, name="pompi_file_sync_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_sync_f
|
|
|
|
subroutine pompi_file_write_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_write_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_f
|
|
|
|
subroutine pompi_file_write_all_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_write_all_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_all_f
|
|
|
|
subroutine pompi_file_write_all_begin_f(fh,buf,count,datatype,ierror) &
|
|
BIND(C, name="pompi_file_write_all_begin_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_all_begin_f
|
|
|
|
subroutine pompi_file_write_all_end_f(fh,buf,status,ierror) &
|
|
BIND(C, name="pompi_file_write_all_end_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_all_end_f
|
|
|
|
subroutine pompi_file_write_at_f(fh,offset,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_write_at_f")
|
|
use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_at_f
|
|
|
|
subroutine pompi_file_write_at_all_f(fh,offset,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_write_at_all_f")
|
|
use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_at_all_f
|
|
|
|
subroutine pompi_file_write_at_all_begin_f(fh,offset,buf,count,datatype,ierror) &
|
|
BIND(C, name="pompi_file_write_at_all_begin_f")
|
|
use :: mpi_f08_types, only : MPI_OFFSET_KIND
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_at_all_begin_f
|
|
|
|
subroutine pompi_file_write_at_all_end_f(fh,buf,status,ierror) &
|
|
BIND(C, name="pompi_file_write_at_all_end_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_at_all_end_f
|
|
|
|
subroutine pompi_file_write_ordered_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_write_ordered_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_ordered_f
|
|
|
|
subroutine pompi_file_write_ordered_begin_f(fh,buf,count,datatype,ierror) &
|
|
BIND(C, name="pompi_file_write_ordered_begin_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_ordered_begin_f
|
|
|
|
subroutine pompi_file_write_ordered_end_f(fh,buf,status,ierror) &
|
|
BIND(C, name="pompi_file_write_ordered_end_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_ordered_end_f
|
|
|
|
subroutine pompi_file_write_shared_f(fh,buf,count,datatype,status,ierror) &
|
|
BIND(C, name="pompi_file_write_shared_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: fh
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_file_write_shared_f
|
|
|
|
subroutine pompi_register_datarep_f(datarep,read_conversion_fn, &
|
|
write_conversion_fn,dtype_file_extent_fn, &
|
|
extra_state,ierror,datarep_len) &
|
|
BIND(C, name="pompi_register_datarep_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
|
implicit none
|
|
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
|
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
|
OMPI_PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep
|
|
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: datarep_len
|
|
end subroutine pompi_register_datarep_f
|
|
|
|
!
|
|
! MPI_Sizeof is generic for numeric types. This ignore TKR interface
|
|
! is replaced by the specific generics.
|
|
!
|
|
!subroutine pompi_sizeof(x,size,ierror) &
|
|
! BIND(C, name="pompi_sizeof_f")
|
|
! implicit none
|
|
! OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: x
|
|
! INTEGER, INTENT(OUT) :: size
|
|
! INTEGER, INTENT(OUT) :: ierror
|
|
!end subroutine pompi_sizeof
|
|
|
|
subroutine pompi_type_create_f90_complex_f(p,r,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_f90_complex_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: p, r
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_f90_complex_f
|
|
|
|
subroutine pompi_type_create_f90_integer_f(r,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_f90_integer_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: r
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_f90_integer_f
|
|
|
|
subroutine pompi_type_create_f90_real_f(p,r,newtype,ierror) &
|
|
BIND(C, name="pompi_type_create_f90_real_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: p, r
|
|
INTEGER, INTENT(OUT) :: newtype
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_create_f90_real_f
|
|
|
|
subroutine pompi_type_match_size_f(typeclass,size,type,ierror) &
|
|
BIND(C, name="pompi_type_match_size_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: typeclass, size
|
|
INTEGER, INTENT(OUT) :: type
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_type_match_size_f
|
|
|
|
subroutine pompi_pcontrol_f(level) &
|
|
BIND(C, name="pompi_pcontrol_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: level
|
|
end subroutine pompi_pcontrol_f
|
|
|
|
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
! New routines to MPI-3
|
|
!
|
|
|
|
subroutine pompi_comm_split_type_f(comm,split_type,key,info,newcomm,ierror) &
|
|
BIND(C, name="pompi_comm_split_type_f")
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(IN) :: split_type
|
|
INTEGER, INTENT(IN) :: key
|
|
INTEGER, INTENT(IN) :: info
|
|
INTEGER, INTENT(OUT) :: newcomm
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_comm_split_type_f
|
|
|
|
subroutine pompi_get_library_version_f(name,resultlen,ierror,name_len) &
|
|
BIND(C, name="pompi_get_library_version_f")
|
|
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
|
|
implicit none
|
|
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: name
|
|
INTEGER, INTENT(OUT) :: resultlen
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
INTEGER, VALUE, INTENT(IN) :: name_len
|
|
end subroutine pompi_get_library_version_f
|
|
|
|
subroutine pompi_mprobe_f(source,tag,comm,message,status,ierror) &
|
|
BIND(C, name="pompi_mprobe_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: source, tag
|
|
INTEGER, INTENT(IN) :: comm
|
|
INTEGER, INTENT(OUT) :: message
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_mprobe_f
|
|
|
|
subroutine pompi_improbe_f(source,tag,comm,flag,message,status,ierror) &
|
|
BIND(C, name="pompi_improbe_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
INTEGER, INTENT(IN) :: source, tag
|
|
INTEGER, INTENT(IN) :: comm
|
|
LOGICAL, INTENT(OUT) :: flag
|
|
INTEGER, INTENT(OUT) :: message
|
|
TYPE(MPI_Status), INTENT(OUT) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_improbe_f
|
|
|
|
subroutine pompi_imrecv_f(buf,count,datatype,message,request,ierror) &
|
|
BIND(C, name="pompi_imrecv_f")
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(INOUT) :: message
|
|
INTEGER, INTENT(OUT) :: request
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_imrecv_f
|
|
|
|
subroutine pompi_mrecv_f(buf,count,datatype,message,status,ierror) &
|
|
BIND(C, name="pompi_mrecv_f")
|
|
use :: mpi_f08_types, only : MPI_Status
|
|
implicit none
|
|
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
|
|
INTEGER, INTENT(IN) :: count
|
|
INTEGER, INTENT(IN) :: datatype
|
|
INTEGER, INTENT(INOUT) :: message
|
|
TYPE(MPI_Status) :: status
|
|
INTEGER, INTENT(OUT) :: ierror
|
|
end subroutine pompi_mrecv_f
|
|
|
|
end interface
|