fortran/use-mpi-ignore-tkr: revamp PMPI_* declarations
only declare MPI_* bindings and use macros to deduce the PMPI_* bindings Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet
родитель
c2e3df6d3e
Коммит
e981e46446
@ -33,22 +33,31 @@ AM_FCFLAGS = -I$(top_builddir)/ompi/include -I$(top_srcdir)/ompi/include \
|
||||
lib_LTLIBRARIES = lib@OMPI_LIBMPI_NAME@_usempi_ignore_tkr.la
|
||||
|
||||
mpi-ignore-tkr-interfaces.h: mpi-ignore-tkr-interfaces.h.in
|
||||
pmpi-ignore-tkr-interfaces.h: mpi-ignore-tkr-interfaces.h
|
||||
mpi-ignore-tkr-file-interfaces.h: mpi-ignore-tkr-file-interfaces.h.in
|
||||
pmpi-ignore-tkr-file-interfaces.h: mpi-ignore-tkr-file-interfaces.h
|
||||
mpi-ignore-tkr-removed-interfaces.h: mpi-ignore-tkr-removed-interfaces.h.in
|
||||
pmpi-ignore-tkr-removed-interfaces.h: mpi-ignore-tkr-removed-interfaces.h
|
||||
|
||||
mpi-ignore-tkr.lo: $(top_srcdir)/ompi/mpi/fortran/base/attr-fn-int-callback-interfaces.h
|
||||
mpi-ignore-tkr.lo: $(top_srcdir)/ompi/mpi/fortran/base/conversion-fn-null-int-interface.h
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr-interfaces.h
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr-status.h
|
||||
mpi-ignore-tkr.lo: pmpi-ignore-tkr-interfaces.h
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr-file-interfaces.h
|
||||
mpi-ignore-tkr.lo: pmpi-ignore-tkr-file-interfaces.h
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr-removed-interfaces.h
|
||||
mpi-ignore-tkr.lo: pmpi-ignore-tkr-removed-interfaces.h
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr-sizeof.h
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr-sizeof.f90
|
||||
mpi-ignore-tkr.lo: mpi-ignore-tkr.F90
|
||||
|
||||
lib@OMPI_LIBMPI_NAME@_usempi_ignore_tkr_la_SOURCES = \
|
||||
mpi-ignore-tkr.F90 \
|
||||
mpi-ignore-tkr-status.h
|
||||
mpi-ignore-tkr-status.h \
|
||||
pmpi-ignore-tkr-interfaces.h \
|
||||
pmpi-ignore-tkr-file-interfaces.h \
|
||||
pmpi-ignore-tkr-removed-interfaces.h
|
||||
|
||||
nodist_lib@OMPI_LIBMPI_NAME@_usempi_ignore_tkr_la_SOURCES = \
|
||||
mpi-ignore-tkr-interfaces.h \
|
||||
|
||||
Разница между файлами не показана из-за своего большого размера
Загрузить разницу
Разница между файлами не показана из-за своего большого размера
Загрузить разницу
@ -9,8 +9,8 @@
|
||||
! Copyright (c) 2012 Inria. All rights reserved.
|
||||
! Copyright (c) 2013-2018 Los Alamos National Security, LLC. All rights
|
||||
! reserved.
|
||||
! Copyright (c) 2015 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2015-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
@ -28,17 +28,6 @@ end subroutine MPI_Address
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Address
|
||||
|
||||
subroutine PMPI_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 PMPI_Address
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Attr_delete
|
||||
|
||||
subroutine MPI_Attr_delete(comm, keyval, ierror)
|
||||
@ -49,17 +38,6 @@ end subroutine MPI_Attr_delete
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Attr_delete
|
||||
|
||||
subroutine PMPI_Attr_delete(comm, keyval, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(in) :: keyval
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Attr_delete
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Attr_get
|
||||
|
||||
subroutine MPI_Attr_get(comm, keyval, attribute_val, flag, ierror)
|
||||
@ -72,19 +50,6 @@ end subroutine MPI_Attr_get
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Attr_get
|
||||
|
||||
subroutine PMPI_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 PMPI_Attr_get
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Attr_put
|
||||
|
||||
subroutine MPI_Attr_put(comm, keyval, attribute_val, ierror)
|
||||
@ -96,17 +61,6 @@ end subroutine MPI_Attr_put
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Attr_put
|
||||
|
||||
subroutine PMPI_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 PMPI_Attr_put
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Errhandler_create
|
||||
|
||||
subroutine MPI_Errhandler_create(function, errhandler, ierror)
|
||||
@ -117,16 +71,6 @@ end subroutine MPI_Errhandler_create
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Errhandler_create
|
||||
|
||||
subroutine PMPI_Errhandler_create(function, errhandler, ierror)
|
||||
external :: function
|
||||
integer, intent(out) :: errhandler
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Errhandler_create
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Errhandler_get
|
||||
|
||||
subroutine MPI_Errhandler_get(comm, errhandler, ierror)
|
||||
@ -137,17 +81,6 @@ end subroutine MPI_Errhandler_get
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Errhandler_get
|
||||
|
||||
subroutine PMPI_Errhandler_get(comm, errhandler, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(out) :: errhandler
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Errhandler_get
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Errhandler_set
|
||||
|
||||
subroutine MPI_Errhandler_set(comm, errhandler, ierror)
|
||||
@ -158,16 +91,6 @@ end subroutine MPI_Errhandler_set
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Errhandler_set
|
||||
|
||||
subroutine PMPI_Errhandler_set(comm, errhandler, ierror)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(in) :: errhandler
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Errhandler_set
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Keyval_create
|
||||
|
||||
subroutine MPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierror)
|
||||
@ -180,19 +103,6 @@ end subroutine MPI_Keyval_create
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Keyval_create
|
||||
|
||||
subroutine PMPI_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 PMPI_Keyval_create
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Keyval_free
|
||||
|
||||
subroutine MPI_Keyval_free(keyval, ierror)
|
||||
@ -202,15 +112,6 @@ end subroutine MPI_Keyval_free
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Keyval_free
|
||||
|
||||
subroutine PMPI_Keyval_free(keyval, ierror)
|
||||
integer, intent(inout) :: keyval
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Keyval_free
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Type_extent
|
||||
|
||||
subroutine MPI_Type_extent(datatype, extent, ierror)
|
||||
@ -221,16 +122,6 @@ end subroutine MPI_Type_extent
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_extent
|
||||
|
||||
subroutine PMPI_Type_extent(datatype, extent, ierror)
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(out) :: extent
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Type_extent
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Type_hindexed
|
||||
|
||||
subroutine MPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype&
|
||||
@ -245,21 +136,6 @@ end subroutine MPI_Type_hindexed
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_hindexed
|
||||
|
||||
subroutine PMPI_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 PMPI_Type_hindexed
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Type_hvector
|
||||
|
||||
subroutine MPI_Type_hvector(count, blocklength, stride, oldtype, newtype&
|
||||
@ -274,20 +150,6 @@ end subroutine MPI_Type_hvector
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_hvector
|
||||
|
||||
subroutine PMPI_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 PMPI_Type_hvector
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Type_lb
|
||||
|
||||
subroutine MPI_Type_lb(datatype, lb, ierror)
|
||||
@ -298,16 +160,6 @@ end subroutine MPI_Type_lb
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_lb
|
||||
|
||||
subroutine PMPI_Type_lb(datatype, lb, ierror)
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(out) :: lb
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Type_lb
|
||||
|
||||
end interface
|
||||
|
||||
interface MPI_Type_struct
|
||||
|
||||
subroutine MPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype&
|
||||
@ -322,21 +174,6 @@ end subroutine MPI_Type_struct
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_struct
|
||||
|
||||
subroutine PMPI_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 PMPI_Type_struct
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Type_ub
|
||||
|
||||
subroutine MPI_Type_ub(datatype, ub, ierror)
|
||||
@ -346,13 +183,3 @@ subroutine MPI_Type_ub(datatype, ub, ierror)
|
||||
end subroutine MPI_Type_ub
|
||||
|
||||
end interface
|
||||
|
||||
interface PMPI_Type_ub
|
||||
|
||||
subroutine PMPI_Type_ub(datatype, ub, ierror)
|
||||
integer, intent(in) :: datatype
|
||||
integer, intent(out) :: ub
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Type_ub
|
||||
|
||||
end interface
|
||||
|
||||
@ -44,17 +44,20 @@ module mpi
|
||||
|
||||
! The ignore-TKR version of the MPI interfaces
|
||||
|
||||
include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h"
|
||||
# include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h"
|
||||
#if OMPI_FORTRAN_HAVE_TYPE_MPI_STATUS
|
||||
include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-status.h"
|
||||
#endif
|
||||
include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h"
|
||||
# include "ompi/mpi/fortran/use-mpi-ignore-tkr/pmpi-ignore-tkr-interfaces.h"
|
||||
# include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h"
|
||||
# include "ompi/mpi/fortran/use-mpi-ignore-tkr/pmpi-ignore-tkr-file-interfaces.h"
|
||||
#if !defined(OMPI_ENABLE_MPI1_COMPAT)
|
||||
|
||||
#error "Remove MPI-1 compat code"
|
||||
|
||||
#elif OMPI_ENABLE_MPI1_COMPAT
|
||||
include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h"
|
||||
# include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h"
|
||||
# include "ompi/mpi/fortran/use-mpi-ignore-tkr/pmpi-ignore-tkr-removed-interfaces.h"
|
||||
#endif
|
||||
|
||||
include 'mpi-ignore-tkr-sizeof.h'
|
||||
|
||||
@ -0,0 +1,71 @@
|
||||
! -*- fortran -*-
|
||||
!
|
||||
! Copyright (c) 2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
!
|
||||
! $HEADER$
|
||||
|
||||
#define MPI_File_call_errhandler PMPI_File_call_errhandler
|
||||
#define MPI_File_close PMPI_File_close
|
||||
#define MPI_File_create_errhandler PMPI_File_create_errhandler
|
||||
#define MPI_File_delete PMPI_File_delete
|
||||
#define MPI_File_get_amode PMPI_File_get_amode
|
||||
#define MPI_File_get_atomicity PMPI_File_get_atomicity
|
||||
#define MPI_File_get_byte_offset PMPI_File_get_byte_offset
|
||||
#define MPI_File_get_errhandler PMPI_File_get_errhandler
|
||||
#define MPI_File_get_group PMPI_File_get_group
|
||||
#define MPI_File_get_info PMPI_File_get_info
|
||||
#define MPI_File_get_position PMPI_File_get_position
|
||||
#define MPI_File_get_position_shared PMPI_File_get_position_shared
|
||||
#define MPI_File_get_size PMPI_File_get_size
|
||||
#define MPI_File_get_type_extent PMPI_File_get_type_extent
|
||||
#define MPI_File_get_view PMPI_File_get_view
|
||||
#define MPI_File_iread PMPI_File_iread
|
||||
#define MPI_File_iread_all PMPI_File_iread_all
|
||||
#define MPI_File_iread_at PMPI_File_iread_at
|
||||
#define MPI_File_iread_at_all PMPI_File_iread_at_all
|
||||
#define MPI_File_iread_shared PMPI_File_iread_shared
|
||||
#define MPI_File_iwrite PMPI_File_iwrite
|
||||
#define MPI_File_iwrite_all PMPI_File_iwrite_all
|
||||
#define MPI_File_iwrite_at PMPI_File_iwrite_at
|
||||
#define MPI_File_iwrite_at_all PMPI_File_iwrite_at_all
|
||||
#define MPI_File_iwrite_shared PMPI_File_iwrite_shared
|
||||
#define MPI_File_open PMPI_File_open
|
||||
#define MPI_File_preallocate PMPI_File_preallocate
|
||||
#define MPI_File_read PMPI_File_read
|
||||
#define MPI_File_read_all PMPI_File_read_all
|
||||
#define MPI_File_read_all_begin PMPI_File_read_all_begin
|
||||
#define MPI_File_read_all_end PMPI_File_read_all_end
|
||||
#define MPI_File_read_at PMPI_File_read_at
|
||||
#define MPI_File_read_at_all PMPI_File_read_at_all
|
||||
#define MPI_File_read_at_all_begin PMPI_File_read_at_all_begin
|
||||
#define MPI_File_read_at_all_end PMPI_File_read_at_all_end
|
||||
#define MPI_File_read_ordered PMPI_File_read_ordered
|
||||
#define MPI_File_read_ordered_begin PMPI_File_read_ordered_begin
|
||||
#define MPI_File_read_ordered_end PMPI_File_read_ordered_end
|
||||
#define MPI_File_read_shared PMPI_File_read_shared
|
||||
#define MPI_File_seek PMPI_File_seek
|
||||
#define MPI_File_seek_shared PMPI_File_seek_shared
|
||||
#define MPI_File_set_atomicity PMPI_File_set_atomicity
|
||||
#define MPI_File_set_errhandler PMPI_File_set_errhandler
|
||||
#define MPI_File_set_info PMPI_File_set_info
|
||||
#define MPI_File_set_size PMPI_File_set_size
|
||||
#define MPI_File_set_view PMPI_File_set_view
|
||||
#define MPI_File_sync PMPI_File_sync
|
||||
#define MPI_File_write PMPI_File_write
|
||||
#define MPI_File_write_all PMPI_File_write_all
|
||||
#define MPI_File_write_all_begin PMPI_File_write_all_begin
|
||||
#define MPI_File_write_all_end PMPI_File_write_all_end
|
||||
#define MPI_File_write_at PMPI_File_write_at
|
||||
#define MPI_File_write_at_all PMPI_File_write_at_all
|
||||
#define MPI_File_write_at_all_begin PMPI_File_write_at_all_begin
|
||||
#define MPI_File_write_at_all_end PMPI_File_write_at_all_end
|
||||
#define MPI_File_write_ordered PMPI_File_write_ordered
|
||||
#define MPI_File_write_ordered_begin PMPI_File_write_ordered_begin
|
||||
#define MPI_File_write_ordered_end PMPI_File_write_ordered_end
|
||||
#define MPI_File_write_shared PMPI_File_write_shared
|
||||
|
||||
#include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h"
|
||||
309
ompi/mpi/fortran/use-mpi-ignore-tkr/pmpi-ignore-tkr-interfaces.h
Обычный файл
309
ompi/mpi/fortran/use-mpi-ignore-tkr/pmpi-ignore-tkr-interfaces.h
Обычный файл
@ -0,0 +1,309 @@
|
||||
! -*- fortran -*-
|
||||
!
|
||||
! Copyright (c) 2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
!
|
||||
! $HEADER$
|
||||
|
||||
#define MPI_Abort PMPI_Abort
|
||||
#define MPI_Accumulate PMPI_Accumulate
|
||||
#define MPI_Add_error_class PMPI_Add_error_class
|
||||
#define MPI_Add_error_code PMPI_Add_error_code
|
||||
#define MPI_Add_error_string PMPI_Add_error_string
|
||||
#define MPI_Aint_add PMPI_Aint_add
|
||||
#define MPI_Aint_diff PMPI_Aint_diff
|
||||
#define MPI_Allgather PMPI_Allgather
|
||||
#define MPI_Allgatherv PMPI_Allgatherv
|
||||
#define MPI_Alloc_mem PMPI_Alloc_mem
|
||||
#define MPI_Alloc_mem_cptr PMPI_Alloc_mem_cptr
|
||||
#define MPI_Allreduce PMPI_Allreduce
|
||||
#define MPI_Alltoall PMPI_Alltoall
|
||||
#define MPI_Alltoallv PMPI_Alltoallv
|
||||
#define MPI_Alltoallw PMPI_Alltoallw
|
||||
#define MPI_Barrier PMPI_Barrier
|
||||
#define MPI_Bcast PPMPI_Bcast
|
||||
#define MPI_Bsend PMPI_Bsend
|
||||
#define MPI_Bsend_init PMPI_Bsend_init
|
||||
#define MPI_Buffer_attach PMPI_Buffer_attach
|
||||
#define MPI_Buffer_detach PMPI_Buffer_detach
|
||||
#define MPI_Cancel PMPI_Cancel
|
||||
#define MPI_Cart_coords PMPI_Cart_coords
|
||||
#define MPI_Cart_create PMPI_Cart_create
|
||||
#define MPI_Cart_get PMPI_Cart_get
|
||||
#define MPI_Cart_map PMPI_Cart_map
|
||||
#define MPI_Cart_rank PMPI_Cart_rank
|
||||
#define MPI_Cart_shift PMPI_Cart_shift
|
||||
#define MPI_Cart_sub PMPI_Cart_sub
|
||||
#define MPI_Cartdim_get PMPI_Cartdim_get
|
||||
#define MPI_Close_port PMPI_Close_port
|
||||
#define MPI_Comm_accept PMPI_Comm_accept
|
||||
#define MPI_Comm_call_errhandler PMPI_Comm_call_errhandler
|
||||
#define MPI_Comm_compare PMPI_Comm_compare
|
||||
#define MPI_Comm_connect PMPI_Comm_connect
|
||||
#define MPI_Comm_create PMPI_Comm_create
|
||||
#define MPI_Comm_create_errhandler PMPI_Comm_create_errhandler
|
||||
#define MPI_Comm_create_group PMPI_Comm_create_group
|
||||
#define MPI_Comm_create_keyval PMPI_Comm_create_keyval
|
||||
#define MPI_Comm_delete_attr PMPI_Comm_delete_attr
|
||||
#define MPI_Comm_disconnect PMPI_Comm_disconnect
|
||||
#define MPI_Comm_dup PMPI_Comm_dup
|
||||
#define MPI_Comm_dup_with_info PMPI_Comm_dup_with_info
|
||||
#define MPI_Comm_free PMPI_Comm_free
|
||||
#define MPI_Comm_free_keyval PMPI_Comm_free_keyval
|
||||
#define MPI_Comm_get_attr PMPI_Comm_get_attr
|
||||
#define MPI_Comm_get_errhandler PMPI_Comm_get_errhandler
|
||||
#define MPI_Comm_get_info PMPI_Comm_get_info
|
||||
#define MPI_Comm_get_name PMPI_Comm_get_name
|
||||
#define MPI_Comm_get_parent PMPI_Comm_get_parent
|
||||
#define MPI_Comm_group PMPI_Comm_group
|
||||
#define MPI_Comm_idup PMPI_Comm_idup
|
||||
#define MPI_Comm_join PMPI_Comm_join
|
||||
#define MPI_Comm_rank PMPI_Comm_rank
|
||||
#define MPI_Comm_remote_group PMPI_Comm_remote_group
|
||||
#define MPI_Comm_remote_size PMPI_Comm_remote_size
|
||||
#define MPI_Comm_set_attr PMPI_Comm_set_attr
|
||||
#define MPI_Comm_set_errhandler PMPI_Comm_set_errhandler
|
||||
#define MPI_Comm_set_info PMPI_Comm_set_info
|
||||
#define MPI_Comm_set_name PMPI_Comm_set_name
|
||||
#define MPI_Comm_size PMPI_Comm_size
|
||||
#define MPI_Comm_spawn PMPI_Comm_spawn
|
||||
#define MPI_Comm_spawn_multiple PMPI_Comm_spawn_multiple
|
||||
#define MPI_Comm_split PMPI_Comm_split
|
||||
#define MPI_Comm_split_type PMPI_Comm_split_type
|
||||
#define MPI_Comm_test_inter PMPI_Comm_test_inter
|
||||
#define MPI_Compare_and_swap PMPI_Compare_and_swap
|
||||
#define MPI_Dims_create PMPI_Dims_create
|
||||
#define MPI_Dist_graph_create PMPI_Dist_graph_create
|
||||
#define MPI_Dist_graph_create_adjacent PMPI_Dist_graph_create_adjacent
|
||||
#define MPI_Dist_graph_neighbors PMPI_Dist_graph_neighbors
|
||||
#define MPI_Dist_graph_neighbors_count PMPI_Dist_graph_neighbors_count
|
||||
#define MPI_Errhandler_free PMPI_Errhandler_free
|
||||
#define MPI_Error_class PMPI_Error_class
|
||||
#define MPI_Error_string PMPI_Error_string
|
||||
#define MPI_Exscan PMPI_Exscan
|
||||
#define MPI_F_sync_reg PMPI_F_sync_reg
|
||||
#define MPI_Fetch_and_op PMPI_Fetch_and_op
|
||||
#define MPI_Finalize PMPI_Finalize
|
||||
#define MPI_Finalized PMPI_Finalized
|
||||
#define MPI_Free_mem PMPI_Free_mem
|
||||
#define MPI_Gather PMPI_Gather
|
||||
#define MPI_Gatherv PMPI_Gatherv
|
||||
#define MPI_Get PMPI_Get
|
||||
#define MPI_Get_accumulate PMPI_Get_accumulate
|
||||
#define MPI_Get_address PMPI_Get_address
|
||||
#define MPI_Get_count PMPI_Get_count
|
||||
#define MPI_Get_elements PMPI_Get_elements
|
||||
#define MPI_Get_elements_x PMPI_Get_elements_x
|
||||
#define MPI_Get_library_version PMPI_Get_library_version
|
||||
#define MPI_Get_processor_name PMPI_Get_processor_name
|
||||
#define MPI_Get_version PMPI_Get_version
|
||||
#define MPI_Graph_create PMPI_Graph_create
|
||||
#define MPI_Graph_get PMPI_Graph_get
|
||||
#define MPI_Graph_map PMPI_Graph_map
|
||||
#define MPI_Graph_neighbors PMPI_Graph_neighbors
|
||||
#define MPI_Graph_neighbors_count PMPI_Graph_neighbors_count
|
||||
#define MPI_Graphdims_get PMPI_Graphdims_get
|
||||
#define MPI_Grequest_complete PMPI_Grequest_complete
|
||||
#define MPI_Grequest_start PMPI_Grequest_start
|
||||
#define MPI_Group_compare PMPI_Group_compare
|
||||
#define MPI_Group_difference PMPI_Group_difference
|
||||
#define MPI_Group_excl PMPI_Group_excl
|
||||
#define MPI_Group_free PMPI_Group_free
|
||||
#define MPI_Group_incl PMPI_Group_incl
|
||||
#define MPI_Group_intersection PMPI_Group_intersection
|
||||
#define MPI_Group_range_excl PMPI_Group_range_excl
|
||||
#define MPI_Group_range_incl PMPI_Group_range_incl
|
||||
#define MPI_Group_rank PMPI_Group_rank
|
||||
#define MPI_Group_size PMPI_Group_size
|
||||
#define MPI_Group_translate_ranks PMPI_Group_translate_ranks
|
||||
#define MPI_Group_union PMPI_Group_union
|
||||
#define MPI_Iallgather PMPI_Iallgather
|
||||
#define MPI_Iallgatherv PMPI_Iallgatherv
|
||||
#define MPI_Iallreduce PMPI_Iallreduce
|
||||
#define MPI_Ialltoall PMPI_Ialltoall
|
||||
#define MPI_Ialltoallv PMPI_Ialltoallv
|
||||
#define MPI_Ialltoallw PMPI_Ialltoallw
|
||||
#define MPI_Ibarrier PMPI_Ibarrier
|
||||
#define MPI_Ibcast PMPI_Ibcast
|
||||
#define MPI_Ibsend PMPI_Ibsend
|
||||
#define MPI_Iexscan PMPI_Iexscan
|
||||
#define MPI_Igather PMPI_Igather
|
||||
#define MPI_Igatherv PMPI_Igatherv
|
||||
#define MPI_Improbe PMPI_Improbe
|
||||
#define MPI_Imrecv PMPI_Imrecv
|
||||
#define MPI_Ineighbor_allgather PMPI_Ineighbor_allgather
|
||||
#define MPI_Ineighbor_allgatherv PMPI_Ineighbor_allgatherv
|
||||
#define MPI_Ineighbor_alltoall PMPI_Ineighbor_alltoall
|
||||
#define MPI_Ineighbor_alltoallv PMPI_Ineighbor_alltoallv
|
||||
#define MPI_Ineighbor_alltoallw PMPI_Ineighbor_alltoallw
|
||||
#define MPI_Info_create PMPI_Info_create
|
||||
#define MPI_Info_delete PMPI_Info_delete
|
||||
#define MPI_Info_dup PMPI_Info_dup
|
||||
#define MPI_Info_free PMPI_Info_free
|
||||
#define MPI_Info_get PMPI_Info_get
|
||||
#define MPI_Info_get_nkeys PMPI_Info_get_nkeys
|
||||
#define MPI_Info_get_nthkey PMPI_Info_get_nthkey
|
||||
#define MPI_Info_get_valuelen PMPI_Info_get_valuelen
|
||||
#define MPI_Info_set PMPI_Info_set
|
||||
#define MPI_Init PMPI_Init
|
||||
#define MPI_Init_thread PMPI_Init_thread
|
||||
#define MPI_Initialized PMPI_Initialized
|
||||
#define MPI_Intercomm_create PMPI_Intercomm_create
|
||||
#define MPI_Intercomm_merge PMPI_Intercomm_merge
|
||||
#define MPI_Iprobe PMPI_Iprobe
|
||||
#define MPI_Irecv PMPI_Irecv
|
||||
#define MPI_Ireduce PMPI_Ireduce
|
||||
#define MPI_Ireduce_scatter PMPI_Ireduce_scatter
|
||||
#define MPI_Ireduce_scatter_block PMPI_Ireduce_scatter_block
|
||||
#define MPI_Irsend PMPI_Irsend
|
||||
#define MPI_Is_thread_main PMPI_Is_thread_main
|
||||
#define MPI_Iscan PMPI_Iscan
|
||||
#define MPI_Iscatter PMPI_Iscatter
|
||||
#define MPI_Iscatterv PMPI_Iscatterv
|
||||
#define MPI_Isend PMPI_Isend
|
||||
#define MPI_Issend PMPI_Issend
|
||||
#define MPI_Lookup_name PMPI_Lookup_name
|
||||
#define MPI_Mprobe PMPI_Mprobe
|
||||
#define MPI_Mrecv PMPI_Mrecv
|
||||
#define MPI_Neighbor_allgather PMPI_Neighbor_allgather
|
||||
#define MPI_Neighbor_allgatherv PMPI_Neighbor_allgatherv
|
||||
#define MPI_Neighbor_alltoall PMPI_Neighbor_alltoall
|
||||
#define MPI_Neighbor_alltoallv PMPI_Neighbor_alltoallv
|
||||
#define MPI_Neighbor_alltoallw PMPI_Neighbor_alltoallw
|
||||
#define MPI_Op_commutative PMPI_Op_commutative
|
||||
#define MPI_Op_create PMPI_Op_create
|
||||
#define MPI_Op_free PMPI_Op_free
|
||||
#define MPI_Open_port PMPI_Open_port
|
||||
#define MPI_Pack PMPI_Pack
|
||||
#define MPI_Pack_external PMPI_Pack_external
|
||||
#define MPI_Pack_external_size PMPI_Pack_external_size
|
||||
#define MPI_Pack_size PMPI_Pack_size
|
||||
#define MPI_Pcontrol PMPI_Pcontrol
|
||||
#define MPI_Probe PMPI_Probe
|
||||
#define MPI_Publish_name PMPI_Publish_name
|
||||
#define MPI_Put PMPI_Put
|
||||
#define MPI_Query_thread PMPI_Query_thread
|
||||
#define MPI_Raccumulate PMPI_Raccumulate
|
||||
#define MPI_Recv PMPI_Recv
|
||||
#define MPI_Recv_init PMPI_Recv_init
|
||||
#define MPI_Reduce PMPI_Reduce
|
||||
#define MPI_Reduce_local PMPI_Reduce_local
|
||||
#define MPI_Reduce_scatter PMPI_Reduce_scatter
|
||||
#define MPI_Reduce_scatter_block PMPI_Reduce_scatter_block
|
||||
#define MPI_Register_datarep PMPI_Register_datarep
|
||||
#define MPI_Request_free PMPI_Request_free
|
||||
#define MPI_Request_get_status PMPI_Request_get_status
|
||||
#define MPI_Rget PMPI_Rget
|
||||
#define MPI_Rget_accumulate PMPI_Rget_accumulate
|
||||
#define MPI_Rput PMPI_Rput
|
||||
#define MPI_Rsend PMPI_Rsend
|
||||
#define MPI_Rsend_init PMPI_Rsend_init
|
||||
#define MPI_Scan PMPI_Scan
|
||||
#define MPI_Scatter PMPI_Scatter
|
||||
#define MPI_Scatterv PMPI_Scatterv
|
||||
#define MPI_Send PMPI_Send
|
||||
#define MPI_Send_init PMPI_Send_init
|
||||
#define MPI_Sendrecv PMPI_Sendrecv
|
||||
#define MPI_Sendrecv_replace PMPI_Sendrecv_replace
|
||||
#define MPI_Ssend PMPI_Ssend
|
||||
#define MPI_Ssend_init PMPI_Ssend_init
|
||||
#define MPI_Start PMPI_Start
|
||||
#define MPI_Startall PMPI_Startall
|
||||
#define MPI_Status_f2f08 PMPI_Status_f2f08
|
||||
#define MPI_Status_f082f PMPI_Status_f082f
|
||||
#define MPI_Status_set_cancelled PMPI_Status_set_cancelled
|
||||
#define MPI_Status_set_elements PMPI_Status_set_elements
|
||||
#define MPI_Status_set_elements_x PMPI_Status_set_elements_x
|
||||
#define MPI_Test PMPI_Test
|
||||
#define MPI_Test_cancelled PMPI_Test_cancelled
|
||||
#define MPI_Testall PMPI_Testall
|
||||
#define MPI_Testany PMPI_Testany
|
||||
#define MPI_Testsome PMPI_Testsome
|
||||
#define MPI_Topo_test PMPI_Topo_test
|
||||
#define MPI_Type_commit PMPI_Type_commit
|
||||
#define MPI_Type_contiguous PMPI_Type_contiguous
|
||||
#define MPI_Type_create_darray PMPI_Type_create_darray
|
||||
#define MPI_Type_create_f90_complex PMPI_Type_create_f90_complex
|
||||
#define MPI_Type_create_f90_integer PMPI_Type_create_f90_integer
|
||||
#define MPI_Type_create_f90_real PMPI_Type_create_f90_real
|
||||
#define MPI_Type_create_hindexed PMPI_Type_create_hindexed
|
||||
#define MPI_Type_create_hindexed_block PMPI_Type_create_hindexed_block
|
||||
#define MPI_Type_create_hvector PMPI_Type_create_hvector
|
||||
#define MPI_Type_create_indexed_block PMPI_Type_create_indexed_block
|
||||
#define MPI_Type_create_keyval PMPI_Type_create_keyval
|
||||
#define MPI_Type_create_resized PMPI_Type_create_resized
|
||||
#define MPI_Type_create_struct PMPI_Type_create_struct
|
||||
#define MPI_Type_create_subarray PMPI_Type_create_subarray
|
||||
#define MPI_Type_delete_attr PMPI_Type_delete_attr
|
||||
#define MPI_Type_dup PMPI_Type_dup
|
||||
#define MPI_Type_free PMPI_Type_free
|
||||
#define MPI_Type_free_keyval PMPI_Type_free_keyval
|
||||
#define MPI_Type_get_attr PMPI_Type_get_attr
|
||||
#define MPI_Type_get_contents PMPI_Type_get_contents
|
||||
#define MPI_Type_get_envelope PMPI_Type_get_envelope
|
||||
#define MPI_Type_get_extent PMPI_Type_get_extent
|
||||
#define MPI_Type_get_extent_x PMPI_Type_get_extent_x
|
||||
#define MPI_Type_get_name PMPI_Type_get_name
|
||||
#define MPI_Type_get_true_extent PMPI_Type_get_true_extent
|
||||
#define MPI_Type_get_true_extent_x PMPI_Type_get_true_extent_x
|
||||
#define MPI_Type_indexed PMPI_Type_indexed
|
||||
#define MPI_Type_match_size PMPI_Type_match_size
|
||||
#define MPI_Type_set_attr PMPI_Type_set_attr
|
||||
#define MPI_Type_set_name PMPI_Type_set_name
|
||||
#define MPI_Type_size PMPI_Type_size
|
||||
#define MPI_Type_size_x PMPI_Type_size_x
|
||||
#define MPI_Type_vector PMPI_Type_vector
|
||||
#define MPI_Unpack PMPI_Unpack
|
||||
#define MPI_Unpack_external PMPI_Unpack_external
|
||||
#define MPI_Unpublish_name PMPI_Unpublish_name
|
||||
#define MPI_Wait PMPI_Wait
|
||||
#define MPI_Waitall PMPI_Waitall
|
||||
#define MPI_Waitany PMPI_Waitany
|
||||
#define MPI_Waitsome PMPI_Waitsome
|
||||
#define MPI_Win_allocate PMPI_Win_allocate
|
||||
#define MPI_Win_allocate_cptr PMPI_Win_allocate_cptr
|
||||
#define MPI_Win_allocate_shared PMPI_Win_allocate_shared
|
||||
#define MPI_Win_allocate_shared_cptr PMPI_Win_allocate_shared_cptr
|
||||
#define MPI_Win_attach PMPI_Win_attach
|
||||
#define MPI_Win_call_errhandler PMPI_Win_call_errhandler
|
||||
#define MPI_Win_complete PMPI_Win_complete
|
||||
#define MPI_Win_create PMPI_Win_create
|
||||
#define MPI_Win_create_dynamic PMPI_Win_create_dynamic
|
||||
#define MPI_Win_create_errhandler PMPI_Win_create_errhandler
|
||||
#define MPI_Win_create_keyval PMPI_Win_create_keyval
|
||||
#define MPI_Win_delete_attr PMPI_Win_delete_attr
|
||||
#define MPI_Win_detach PMPI_Win_detach
|
||||
#define MPI_Win_fence PMPI_Win_fence
|
||||
#define MPI_Win_flush PMPI_Win_flush
|
||||
#define MPI_Win_flush_all PMPI_Win_flush_all
|
||||
#define MPI_Win_flush_local PMPI_Win_flush_local
|
||||
#define MPI_Win_flush_local_all PMPI_Win_flush_local_all
|
||||
#define MPI_Win_free PMPI_Win_free
|
||||
#define MPI_Win_free_keyval PMPI_Win_free_keyval
|
||||
#define MPI_Win_get_attr PMPI_Win_get_attr
|
||||
#define MPI_Win_get_errhandler PMPI_Win_get_errhandler
|
||||
#define MPI_Win_get_group PMPI_Win_get_group
|
||||
#define MPI_Win_get_info PMPI_Win_get_info
|
||||
#define MPI_Win_get_name PMPI_Win_get_name
|
||||
#define MPI_Win_lock PMPI_Win_lock
|
||||
#define MPI_Win_lock_all PMPI_Win_lock_all
|
||||
#define MPI_Win_post PMPI_Win_post
|
||||
#define MPI_Win_set_attr PMPI_Win_set_attr
|
||||
#define MPI_Win_set_errhandler PMPI_Win_set_errhandler
|
||||
#define MPI_Win_set_info PMPI_Win_set_info
|
||||
#define MPI_Win_set_name PMPI_Win_set_name
|
||||
#define MPI_Win_shared_query PMPI_Win_shared_query
|
||||
#define MPI_Win_shared_query_cptr PMPI_Win_shared_query_cptr
|
||||
#define MPI_Win_start PMPI_Win_start
|
||||
#define MPI_Win_sync PMPI_Win_sync
|
||||
#define MPI_Win_test PMPI_Win_test
|
||||
#define MPI_Win_unlock PMPI_Win_unlock
|
||||
#define MPI_Win_unlock_all PMPI_Win_unlock_all
|
||||
#define MPI_Win_wait PMPI_Win_wait
|
||||
#define MPI_Wtick PMPI_Wtick
|
||||
#define MPI_Wtime PMPI_Wtime
|
||||
|
||||
#include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h"
|
||||
@ -0,0 +1,27 @@
|
||||
! -*- fortran -*-
|
||||
!
|
||||
! Copyright (c) 2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
!
|
||||
! $HEADER$
|
||||
|
||||
#define MPI_Address PMPI_Address
|
||||
#define MPI_Attr_delete PMPI_Attr_delete
|
||||
#define MPI_Attr_get PMPI_Attr_get
|
||||
#define MPI_Attr_put PMPI_Attr_put
|
||||
#define MPI_Errhandler_create PMPI_Errhandler_create
|
||||
#define MPI_Errhandler_get PMPI_Errhandler_get
|
||||
#define MPI_Errhandler_set PMPI_Errhandler_set
|
||||
#define MPI_Keyval_create PMPI_Keyval_create
|
||||
#define MPI_Keyval_free PMPI_Keyval_free
|
||||
#define MPI_Type_extent PMPI_Type_extent
|
||||
#define MPI_Type_hindexed PMPI_Type_hindexed
|
||||
#define MPI_Type_hvector PMPI_Type_hvector
|
||||
#define MPI_Type_lb PMPI_Type_lb
|
||||
#define MPI_Type_struct PMPI_Type_struct
|
||||
#define MPI_Type_ub PMPI_Type_ub
|
||||
|
||||
#include "ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h"
|
||||
Загрузка…
Ссылка в новой задаче
Block a user