e981e46446
only declare MPI_* bindings and use macros to deduce the PMPI_* bindings Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
186 строки
4.8 KiB
Fortran
186 строки
4.8 KiB
Fortran
! -*- fortran -*-
|
|
!
|
|
! Copyright (c) 2006-2012 Cisco Systems, Inc. All rights reserved.
|
|
! Copyright (c) 2007 Los Alamos National Security, LLC. All rights
|
|
! reserved.
|
|
! Copyright (c) 2012 The University of Tennessee and The University
|
|
! of Tennessee Research Foundation. All rights
|
|
! reserved.
|
|
! Copyright (c) 2012 Inria. All rights reserved.
|
|
! Copyright (c) 2013-2018 Los Alamos National Security, LLC. All rights
|
|
! reserved.
|
|
! Copyright (c) 2015-2020 Research Organization for Information Science
|
|
! and Technology (RIST). All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
|
|
interface MPI_Address
|
|
|
|
subroutine MPI_Address(location, address, ierror)
|
|
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ location
|
|
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: location
|
|
integer, intent(out) :: address
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Address
|
|
|
|
end interface
|
|
|
|
interface MPI_Attr_delete
|
|
|
|
subroutine MPI_Attr_delete(comm, keyval, ierror)
|
|
integer, intent(in) :: comm
|
|
integer, intent(in) :: keyval
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Attr_delete
|
|
|
|
end interface
|
|
|
|
interface MPI_Attr_get
|
|
|
|
subroutine MPI_Attr_get(comm, keyval, attribute_val, flag, ierror)
|
|
integer, intent(in) :: comm
|
|
integer, intent(in) :: keyval
|
|
integer, intent(out) :: attribute_val
|
|
logical, intent(out) :: flag
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Attr_get
|
|
|
|
end interface
|
|
|
|
interface MPI_Attr_put
|
|
|
|
subroutine MPI_Attr_put(comm, keyval, attribute_val, ierror)
|
|
integer, intent(in) :: comm
|
|
integer, intent(in) :: keyval
|
|
integer, intent(in) :: attribute_val
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Attr_put
|
|
|
|
end interface
|
|
|
|
interface MPI_Errhandler_create
|
|
|
|
subroutine MPI_Errhandler_create(function, errhandler, ierror)
|
|
external :: function
|
|
integer, intent(out) :: errhandler
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Errhandler_create
|
|
|
|
end interface
|
|
|
|
interface MPI_Errhandler_get
|
|
|
|
subroutine MPI_Errhandler_get(comm, errhandler, ierror)
|
|
integer, intent(in) :: comm
|
|
integer, intent(out) :: errhandler
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Errhandler_get
|
|
|
|
end interface
|
|
|
|
interface MPI_Errhandler_set
|
|
|
|
subroutine MPI_Errhandler_set(comm, errhandler, ierror)
|
|
integer, intent(in) :: comm
|
|
integer, intent(in) :: errhandler
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Errhandler_set
|
|
|
|
end interface
|
|
|
|
interface MPI_Keyval_create
|
|
|
|
subroutine MPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierror)
|
|
external :: copy_fn
|
|
external :: delete_fn
|
|
integer, intent(out) :: keyval
|
|
integer, intent(in) :: extra_state
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Keyval_create
|
|
|
|
end interface
|
|
|
|
interface MPI_Keyval_free
|
|
|
|
subroutine MPI_Keyval_free(keyval, ierror)
|
|
integer, intent(inout) :: keyval
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Keyval_free
|
|
|
|
end interface
|
|
|
|
interface MPI_Type_extent
|
|
|
|
subroutine MPI_Type_extent(datatype, extent, ierror)
|
|
integer, intent(in) :: datatype
|
|
integer, intent(out) :: extent
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Type_extent
|
|
|
|
end interface
|
|
|
|
interface MPI_Type_hindexed
|
|
|
|
subroutine MPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype&
|
|
, ierror)
|
|
integer, intent(in) :: count
|
|
integer, dimension(*), intent(in) :: array_of_blocklengths
|
|
integer, dimension(*), intent(in) :: array_of_displacements
|
|
integer, intent(in) :: oldtype
|
|
integer, intent(out) :: newtype
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Type_hindexed
|
|
|
|
end interface
|
|
|
|
interface MPI_Type_hvector
|
|
|
|
subroutine MPI_Type_hvector(count, blocklength, stride, oldtype, newtype&
|
|
, ierror)
|
|
integer, intent(in) :: count
|
|
integer, intent(in) :: blocklength
|
|
integer, intent(in) :: stride
|
|
integer, intent(in) :: oldtype
|
|
integer, intent(out) :: newtype
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Type_hvector
|
|
|
|
end interface
|
|
|
|
interface MPI_Type_lb
|
|
|
|
subroutine MPI_Type_lb(datatype, lb, ierror)
|
|
integer, intent(in) :: datatype
|
|
integer, intent(out) :: lb
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Type_lb
|
|
|
|
end interface
|
|
|
|
interface MPI_Type_struct
|
|
|
|
subroutine MPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype&
|
|
, ierror)
|
|
integer, intent(in) :: count
|
|
integer, dimension(*), intent(in) :: array_of_blocklengths
|
|
integer, dimension(*), intent(in) :: array_of_displacements
|
|
integer, dimension(*), intent(in) :: array_of_types
|
|
integer, intent(out) :: newtype
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Type_struct
|
|
|
|
end interface
|
|
|
|
interface MPI_Type_ub
|
|
|
|
subroutine MPI_Type_ub(datatype, ub, ierror)
|
|
integer, intent(in) :: datatype
|
|
integer, intent(out) :: ub
|
|
integer, intent(out) :: ierror
|
|
end subroutine MPI_Type_ub
|
|
|
|
end interface
|