Merge pull request #2294 from ggouaillardet/topic/fortran_use_mpi_tkr
fortran/use-mpi-tkr misc fixes
Этот коммит содержится в:
Jeff Squyres
GitHub
Коммит
e9aab634af
@ -13,7 +13,7 @@
|
|||||||
# Copyright (c) 2006-2015 Cisco Systems, Inc. All rights reserved.
|
# Copyright (c) 2006-2015 Cisco Systems, Inc. All rights reserved.
|
||||||
# Copyright (c) 2007 Los Alamos National Security, LLC. All rights
|
# Copyright (c) 2007 Los Alamos National Security, LLC. All rights
|
||||||
# reserved.
|
# reserved.
|
||||||
# Copyright (c) 2014-2015 Research Organization for Information Science
|
# Copyright (c) 2014-2016 Research Organization for Information Science
|
||||||
# and Technology (RIST). All rights reserved.
|
# and Technology (RIST). All rights reserved.
|
||||||
# Copyright (c) 2016 IBM Corporation. All rights reserved.
|
# Copyright (c) 2016 IBM Corporation. All rights reserved.
|
||||||
# $COPYRIGHT$
|
# $COPYRIGHT$
|
||||||
@ -58,8 +58,12 @@ lib_LTLIBRARIES += lib@OMPI_LIBMPI_NAME@_usempi.la
|
|||||||
|
|
||||||
mpi.lo: mpi.F90
|
mpi.lo: mpi.F90
|
||||||
mpi.lo: mpi-f90-interfaces.h
|
mpi.lo: mpi-f90-interfaces.h
|
||||||
|
mpi.lo: mpi-f90-file-interfaces.h
|
||||||
mpi.lo: $(top_builddir)/ompi/mpi/fortran/configure-fortran-output.h
|
mpi.lo: $(top_builddir)/ompi/mpi/fortran/configure-fortran-output.h
|
||||||
mpi.lo: mpi-f90-cptr-interfaces.F90
|
mpi.lo: mpi-f90-cptr-interfaces.h
|
||||||
|
mpi.lo: pmpi-f90-interfaces.h
|
||||||
|
mpi.lo: pmpi-f90-file-interfaces.h
|
||||||
|
mpi.lo: pmpi-f90-cptr-interfaces.h
|
||||||
|
|
||||||
# Per MPI-3 p610:34-41, if we're building a TKR mpi module, we should
|
# Per MPI-3 p610:34-41, if we're building a TKR mpi module, we should
|
||||||
# not build any interfaces for MPI subroutines that take a choice
|
# not build any interfaces for MPI subroutines that take a choice
|
||||||
@ -162,5 +166,9 @@ endif
|
|||||||
|
|
||||||
EXTRA_DIST = \
|
EXTRA_DIST = \
|
||||||
mpi-f90-interfaces.h \
|
mpi-f90-interfaces.h \
|
||||||
mpi-f90-cptr-interfaces.F90
|
mpi-f90-file-interfaces.h \
|
||||||
|
mpi-f90-cptr-interfaces.h \
|
||||||
|
pmpi-f90-interfaces.h \
|
||||||
|
pmpi-f90-file-interfaces.h \
|
||||||
|
pmpi-f90-cptr-interfaces.h
|
||||||
|
|
||||||
|
|||||||
321
ompi/mpi/fortran/use-mpi-tkr/mpi-f90-file-interfaces.h
Обычный файл
321
ompi/mpi/fortran/use-mpi-tkr/mpi-f90-file-interfaces.h
Обычный файл
@ -0,0 +1,321 @@
|
|||||||
|
! -*- fortran -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
||||||
|
! University Research and Technology
|
||||||
|
! Corporation. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
||||||
|
! of Tennessee Research Foundation. All rights
|
||||||
|
! reserved.
|
||||||
|
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
||||||
|
! University of Stuttgart. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! Copyright (c) 2016 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
!
|
||||||
|
! Additional copyrights may follow
|
||||||
|
!
|
||||||
|
! $HEADER$
|
||||||
|
!
|
||||||
|
|
||||||
|
interface MPI_File_call_errhandler
|
||||||
|
|
||||||
|
subroutine MPI_File_call_errhandler(fh, errorcode, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(in) :: errorcode
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_call_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_close
|
||||||
|
|
||||||
|
subroutine MPI_File_close(fh, ierror)
|
||||||
|
integer, intent(inout) :: fh
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_close
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_create_errhandler
|
||||||
|
|
||||||
|
subroutine MPI_File_create_errhandler(function, errhandler, ierror)
|
||||||
|
external :: function
|
||||||
|
integer, intent(out) :: errhandler
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_create_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_delete
|
||||||
|
|
||||||
|
subroutine MPI_File_delete(filename, info, ierror)
|
||||||
|
character(len=*), intent(in) :: filename
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_delete
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_amode
|
||||||
|
|
||||||
|
subroutine MPI_File_get_amode(fh, amode, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: amode
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_amode
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_atomicity
|
||||||
|
|
||||||
|
subroutine MPI_File_get_atomicity(fh, flag, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
logical, intent(out) :: flag
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_atomicity
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_byte_offset
|
||||||
|
|
||||||
|
subroutine MPI_File_get_byte_offset(fh, offset, disp, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_byte_offset
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_errhandler
|
||||||
|
|
||||||
|
subroutine MPI_File_get_errhandler(file, errhandler, ierror)
|
||||||
|
integer, intent(in) :: file
|
||||||
|
integer, intent(out) :: errhandler
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_group
|
||||||
|
|
||||||
|
subroutine MPI_File_get_group(fh, group, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: group
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_group
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_info
|
||||||
|
|
||||||
|
subroutine MPI_File_get_info(fh, info_used, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: info_used
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_info
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_position
|
||||||
|
|
||||||
|
subroutine MPI_File_get_position(fh, offset, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_position
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_position_shared
|
||||||
|
|
||||||
|
subroutine MPI_File_get_position_shared(fh, offset, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_position_shared
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_size
|
||||||
|
|
||||||
|
subroutine MPI_File_get_size(fh, size, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: size
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_size
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_type_extent
|
||||||
|
|
||||||
|
subroutine MPI_File_get_type_extent(fh, datatype, extent, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(in) :: datatype
|
||||||
|
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_type_extent
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_get_view
|
||||||
|
|
||||||
|
subroutine MPI_File_get_view(fh, disp, etype, filetype, datarep&
|
||||||
|
, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
|
||||||
|
integer, intent(out) :: etype
|
||||||
|
integer, intent(out) :: filetype
|
||||||
|
character(len=*), intent(out) :: datarep
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_get_view
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_open
|
||||||
|
|
||||||
|
subroutine MPI_File_open(comm, filename, amode, info, fh&
|
||||||
|
, ierror)
|
||||||
|
integer, intent(in) :: comm
|
||||||
|
character(len=*), intent(in) :: filename
|
||||||
|
integer, intent(in) :: amode
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: fh
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_open
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_preallocate
|
||||||
|
|
||||||
|
subroutine MPI_File_preallocate(fh, size, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_preallocate
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_seek
|
||||||
|
|
||||||
|
subroutine MPI_File_seek(fh, offset, whence, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
|
integer, intent(in) :: whence
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_seek
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_seek_shared
|
||||||
|
|
||||||
|
subroutine MPI_File_seek_shared(fh, offset, whence, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
|
integer, intent(in) :: whence
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_seek_shared
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_set_atomicity
|
||||||
|
|
||||||
|
subroutine MPI_File_set_atomicity(fh, flag, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
logical, intent(in) :: flag
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_set_atomicity
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_set_errhandler
|
||||||
|
|
||||||
|
subroutine MPI_File_set_errhandler(file, errhandler, ierror)
|
||||||
|
integer, intent(in) :: file
|
||||||
|
integer, intent(in) :: errhandler
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_set_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_set_info
|
||||||
|
|
||||||
|
subroutine MPI_File_set_info(fh, info, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_set_info
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_set_size
|
||||||
|
|
||||||
|
subroutine MPI_File_set_size(fh, size, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_set_size
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_set_view
|
||||||
|
|
||||||
|
subroutine MPI_File_set_view(fh, disp, etype, filetype, datarep, &
|
||||||
|
info, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: disp
|
||||||
|
integer, intent(in) :: etype
|
||||||
|
integer, intent(in) :: filetype
|
||||||
|
character(len=*), intent(in) :: datarep
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_set_view
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface MPI_File_sync
|
||||||
|
|
||||||
|
subroutine MPI_File_sync(fh, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine MPI_File_sync
|
||||||
|
|
||||||
|
end interface
|
||||||
@ -11,6 +11,8 @@
|
|||||||
! Copyright (c) 2004-2005 The Regents of the University of California.
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
! All rights reserved.
|
! All rights reserved.
|
||||||
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! Copyright (c) 2016 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
! $COPYRIGHT$
|
! $COPYRIGHT$
|
||||||
!
|
!
|
||||||
! Additional copyrights may follow
|
! Additional copyrights may follow
|
||||||
@ -668,307 +670,6 @@ end subroutine MPI_Error_string
|
|||||||
end interface
|
end interface
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_call_errhandler
|
|
||||||
|
|
||||||
subroutine MPI_File_call_errhandler(fh, errorcode, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(in) :: errorcode
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_call_errhandler
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_close
|
|
||||||
|
|
||||||
subroutine MPI_File_close(fh, ierror)
|
|
||||||
integer, intent(inout) :: fh
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_close
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_create_errhandler
|
|
||||||
|
|
||||||
subroutine MPI_File_create_errhandler(function, errhandler, ierror)
|
|
||||||
external :: function
|
|
||||||
integer, intent(out) :: errhandler
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_create_errhandler
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_delete
|
|
||||||
|
|
||||||
subroutine MPI_File_delete(filename, info, ierror)
|
|
||||||
character(len=*), intent(in) :: filename
|
|
||||||
integer, intent(in) :: info
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_delete
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_amode
|
|
||||||
|
|
||||||
subroutine MPI_File_get_amode(fh, amode, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(out) :: amode
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_amode
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_atomicity
|
|
||||||
|
|
||||||
subroutine MPI_File_get_atomicity(fh, flag, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
logical, intent(out) :: flag
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_atomicity
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_byte_offset
|
|
||||||
|
|
||||||
subroutine MPI_File_get_byte_offset(fh, offset, disp, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_byte_offset
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_errhandler
|
|
||||||
|
|
||||||
subroutine MPI_File_get_errhandler(file, errhandler, ierror)
|
|
||||||
integer, intent(in) :: file
|
|
||||||
integer, intent(out) :: errhandler
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_errhandler
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_group
|
|
||||||
|
|
||||||
subroutine MPI_File_get_group(fh, group, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(out) :: group
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_group
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_info
|
|
||||||
|
|
||||||
subroutine MPI_File_get_info(fh, info_used, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(out) :: info_used
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_info
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_position
|
|
||||||
|
|
||||||
subroutine MPI_File_get_position(fh, offset, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_position
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_position_shared
|
|
||||||
|
|
||||||
subroutine MPI_File_get_position_shared(fh, offset, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_position_shared
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_size
|
|
||||||
|
|
||||||
subroutine MPI_File_get_size(fh, size, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_size
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_type_extent
|
|
||||||
|
|
||||||
subroutine MPI_File_get_type_extent(fh, datatype, extent, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(in) :: datatype
|
|
||||||
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_type_extent
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_get_view
|
|
||||||
|
|
||||||
subroutine MPI_File_get_view(fh, disp, etype, filetype, datarep&
|
|
||||||
, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
|
|
||||||
integer, intent(out) :: etype
|
|
||||||
integer, intent(out) :: filetype
|
|
||||||
character(len=*), intent(out) :: datarep
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_get_view
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_open
|
|
||||||
|
|
||||||
subroutine MPI_File_open(comm, filename, amode, info, fh&
|
|
||||||
, ierror)
|
|
||||||
integer, intent(in) :: comm
|
|
||||||
character(len=*), intent(in) :: filename
|
|
||||||
integer, intent(in) :: amode
|
|
||||||
integer, intent(in) :: info
|
|
||||||
integer, intent(out) :: fh
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_open
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_preallocate
|
|
||||||
|
|
||||||
subroutine MPI_File_preallocate(fh, size, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_preallocate
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_seek
|
|
||||||
|
|
||||||
subroutine MPI_File_seek(fh, offset, whence, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
|
||||||
integer, intent(in) :: whence
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_seek
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_seek_shared
|
|
||||||
|
|
||||||
subroutine MPI_File_seek_shared(fh, offset, whence, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
|
||||||
integer, intent(in) :: whence
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_seek_shared
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_set_atomicity
|
|
||||||
|
|
||||||
subroutine MPI_File_set_atomicity(fh, flag, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
logical, intent(in) :: flag
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_set_atomicity
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_set_errhandler
|
|
||||||
|
|
||||||
subroutine MPI_File_set_errhandler(file, errhandler, ierror)
|
|
||||||
integer, intent(in) :: file
|
|
||||||
integer, intent(in) :: errhandler
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_set_errhandler
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_set_info
|
|
||||||
|
|
||||||
subroutine MPI_File_set_info(fh, info, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(in) :: info
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_set_info
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_set_size
|
|
||||||
|
|
||||||
subroutine MPI_File_set_size(fh, size, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_set_size
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_set_view
|
|
||||||
|
|
||||||
subroutine MPI_File_set_view(fh, disp, etype, filetype, datarep, &
|
|
||||||
info, ierror)
|
|
||||||
include 'mpif-config.h'
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: disp
|
|
||||||
integer, intent(in) :: etype
|
|
||||||
integer, intent(in) :: filetype
|
|
||||||
character(len=*), intent(in) :: datarep
|
|
||||||
integer, intent(in) :: info
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_set_view
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_File_sync
|
|
||||||
|
|
||||||
subroutine MPI_File_sync(fh, ierror)
|
|
||||||
integer, intent(in) :: fh
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_File_sync
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_Finalize
|
interface MPI_Finalize
|
||||||
|
|
||||||
subroutine MPI_Finalize(ierror)
|
subroutine MPI_Finalize(ierror)
|
||||||
@ -1650,570 +1351,6 @@ end subroutine MPI_Request_get_status
|
|||||||
end interface
|
end interface
|
||||||
|
|
||||||
|
|
||||||
interface MPI_Sizeof
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DCH(x, size, ierror)
|
|
||||||
character, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DL(x, size, ierror)
|
|
||||||
logical, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DI1(x, size, ierror)
|
|
||||||
integer*1, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DI2(x, size, ierror)
|
|
||||||
integer*2, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DI4(x, size, ierror)
|
|
||||||
integer*4, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DI8(x, size, ierror)
|
|
||||||
integer*8, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DR4(x, size, ierror)
|
|
||||||
real*4, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DR8(x, size, ierror)
|
|
||||||
real*8, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DC8(x, size, ierror)
|
|
||||||
complex*8, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof0DC16(x, size, ierror)
|
|
||||||
complex*16, intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof0DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DCH(x, size, ierror)
|
|
||||||
character, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DL(x, size, ierror)
|
|
||||||
logical, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DR4(x, size, ierror)
|
|
||||||
real*4, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DR8(x, size, ierror)
|
|
||||||
real*8, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof1DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof1DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DCH(x, size, ierror)
|
|
||||||
character, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DL(x, size, ierror)
|
|
||||||
logical, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DR4(x, size, ierror)
|
|
||||||
real*4, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DR8(x, size, ierror)
|
|
||||||
real*8, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof2DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof2DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DCH(x, size, ierror)
|
|
||||||
character, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DL(x, size, ierror)
|
|
||||||
logical, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DR4(x, size, ierror)
|
|
||||||
real*4, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DR8(x, size, ierror)
|
|
||||||
real*8, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof3DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof3DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DCH(x, size, ierror)
|
|
||||||
character, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DL(x, size, ierror)
|
|
||||||
logical, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DR4(x, size, ierror)
|
|
||||||
real*4, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DR8(x, size, ierror)
|
|
||||||
real*8, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof4DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof4DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DCH(x, size, ierror)
|
|
||||||
character, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DL(x, size, ierror)
|
|
||||||
logical, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DR4(x, size, ierror)
|
|
||||||
real*4, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DR8(x, size, ierror)
|
|
||||||
real*8, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof5DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof5DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DCH(x, size, ierror)
|
|
||||||
character, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DL(x, size, ierror)
|
|
||||||
logical, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DR4(x, size, ierror)
|
|
||||||
real*4, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DR8(x, size, ierror)
|
|
||||||
real*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof6DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof6DC16
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DCH(x, size, ierror)
|
|
||||||
character, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DCH
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DL(x, size, ierror)
|
|
||||||
logical, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DL
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DI1(x, size, ierror)
|
|
||||||
integer*1, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DI1
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DI2(x, size, ierror)
|
|
||||||
integer*2, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DI2
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DI4(x, size, ierror)
|
|
||||||
integer*4, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DI4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DI8(x, size, ierror)
|
|
||||||
integer*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DI8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DR4(x, size, ierror)
|
|
||||||
real*4, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DR4
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DR8(x, size, ierror)
|
|
||||||
real*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DR8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DC8(x, size, ierror)
|
|
||||||
complex*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DC8
|
|
||||||
|
|
||||||
|
|
||||||
subroutine MPI_Sizeof7DC16(x, size, ierror)
|
|
||||||
complex*16, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
|
||||||
integer, intent(out) :: size
|
|
||||||
integer, intent(out) :: ierror
|
|
||||||
end subroutine MPI_Sizeof7DC16
|
|
||||||
|
|
||||||
end interface
|
|
||||||
|
|
||||||
|
|
||||||
interface MPI_Start
|
interface MPI_Start
|
||||||
|
|
||||||
subroutine MPI_Start(request, ierror)
|
subroutine MPI_Start(request, ierror)
|
||||||
|
|||||||
@ -11,6 +11,8 @@
|
|||||||
! Copyright (c) 2004-2005 The Regents of the University of California.
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
! All rights reserved.
|
! All rights reserved.
|
||||||
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! Copyright (c) 2016 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
! $COPYRIGHT$
|
! $COPYRIGHT$
|
||||||
!
|
!
|
||||||
! Additional copyrights may follow
|
! Additional copyrights may follow
|
||||||
@ -43,11 +45,21 @@ module mpi
|
|||||||
! this compiler may or may not support). We use an "if" preprocessor
|
! this compiler may or may not support). We use an "if" preprocessor
|
||||||
! macro in this file, so we need to use the preprocessor include
|
! macro in this file, so we need to use the preprocessor include
|
||||||
! directive, not the Fortran include.
|
! directive, not the Fortran include.
|
||||||
#include "mpi-f90-cptr-interfaces.F90"
|
#include "mpi-f90-cptr-interfaces.h"
|
||||||
|
#include "pmpi-f90-cptr-interfaces.h"
|
||||||
|
|
||||||
! This file is generated, and is *huge*. Its size is directly related
|
! This file is generated, and is *huge*. Its size is directly related
|
||||||
! to the --with-f90-max-array-dim configure parameter.
|
! to the --with-f90-max-array-dim configure parameter.
|
||||||
|
|
||||||
include "mpi-f90-interfaces.h"
|
include "mpi-f90-interfaces.h"
|
||||||
|
include "pmpi-f90-interfaces.h"
|
||||||
|
#if OMPI_PROVIDE_MPI_FILE_INTEFACE
|
||||||
|
include "mpi-f90-file-interfaces.h"
|
||||||
|
include "pmpi-f90-file-interfaces.h"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if OMPI_FORTRAN_BUILD_SIZEOF
|
||||||
|
include "mpi-tkr-sizeof.h"
|
||||||
|
#endif
|
||||||
|
|
||||||
end module mpi
|
end module mpi
|
||||||
|
|||||||
108
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-cptr-interfaces.h
Обычный файл
108
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-cptr-interfaces.h
Обычный файл
@ -0,0 +1,108 @@
|
|||||||
|
! -*- fortran -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! Copyright (c) 2016 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
!
|
||||||
|
! Additional copyrights may follow
|
||||||
|
!
|
||||||
|
! $HEADER$
|
||||||
|
!
|
||||||
|
! This file contains interfaces that use the ISO_C_BINDING module and
|
||||||
|
! the TYPE(C_PTR) type, which not all Fortran compilers support (e.g.,
|
||||||
|
! gfortran on RHEL 5 does not support this module/type). So we use a
|
||||||
|
! preprocessor macro to protect the problematic declarations.
|
||||||
|
!
|
||||||
|
! This file is included via a preprocessor include directorive in
|
||||||
|
! mpi.F90, which allows us to use the preprocessor "if" directive,
|
||||||
|
! below.
|
||||||
|
!
|
||||||
|
|
||||||
|
interface PMPI_Win_allocate
|
||||||
|
|
||||||
|
subroutine PMPI_Win_allocate(size, disp_unit, info, comm, &
|
||||||
|
baseptr, win, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(in) :: size
|
||||||
|
integer, intent(in) :: disp_unit
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(in) :: comm
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(out) :: baseptr
|
||||||
|
integer, intent(out) :: win
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_Win_allocate
|
||||||
|
|
||||||
|
! Only include the 2nd interface if we have ISO_C_BINDING / TYPE(C_PTR)
|
||||||
|
#if OMPI_FORTRAN_HAVE_ISO_C_BINDING
|
||||||
|
subroutine PMPI_Win_allocate_cptr(size, disp_unit, info, comm, &
|
||||||
|
baseptr, win, ierror)
|
||||||
|
use, intrinsic :: iso_c_binding, only : c_ptr
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer :: disp_unit, info, comm, win, ierror
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND) :: size
|
||||||
|
type(C_PTR) :: baseptr
|
||||||
|
end subroutine PMPI_Win_allocate_cptr
|
||||||
|
#endif
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_Win_allocate_shared
|
||||||
|
|
||||||
|
subroutine PMPI_Win_allocate_shared(size, disp_unit, info, comm, &
|
||||||
|
baseptr, win, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(in) :: size
|
||||||
|
integer, intent(in) :: disp_unit
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(in) :: comm
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(out) :: baseptr
|
||||||
|
integer, intent(out) :: win
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_Win_allocate_shared
|
||||||
|
|
||||||
|
! Only include the 2nd interface if we have ISO_C_BINDING / TYPE(C_PTR)
|
||||||
|
#if OMPI_FORTRAN_HAVE_ISO_C_BINDING
|
||||||
|
subroutine PMPI_Win_allocate_shared_cptr(size, disp_unit, info, comm, &
|
||||||
|
baseptr, win, ierror)
|
||||||
|
use, intrinsic :: iso_c_binding, only : c_ptr
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer :: disp_unit, info, comm, win, ierror
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND) :: size
|
||||||
|
type(C_PTR) :: baseptr
|
||||||
|
end subroutine PMPI_Win_allocate_shared_cptr
|
||||||
|
#endif
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_Win_shared_query
|
||||||
|
|
||||||
|
subroutine PMPI_Win_shared_query(win, rank, size, disp_unit, baseptr,&
|
||||||
|
ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: win
|
||||||
|
integer, intent(in) :: rank
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(out) :: size
|
||||||
|
integer, intent(out) :: disp_unit
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(out) :: baseptr
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_Win_shared_query
|
||||||
|
|
||||||
|
! Only include the 2nd interface if we have ISO_C_BINDING / TYPE(C_PTR)
|
||||||
|
#if OMPI_FORTRAN_HAVE_ISO_C_BINDING
|
||||||
|
subroutine PMPI_Win_shared_query_cptr(win, rank, size, disp_unit, baseptr,&
|
||||||
|
ierror)
|
||||||
|
use, intrinsic :: iso_c_binding, only : c_ptr
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: win
|
||||||
|
integer, intent(in) :: rank
|
||||||
|
integer(KIND=MPI_ADDRESS_KIND), intent(out) :: size
|
||||||
|
integer, intent(out) :: disp_unit
|
||||||
|
type(C_PTR), intent(out) :: baseptr
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_Win_shared_query_cptr
|
||||||
|
#endif
|
||||||
|
|
||||||
|
end interface
|
||||||
321
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-file-interfaces.h
Обычный файл
321
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-file-interfaces.h
Обычный файл
@ -0,0 +1,321 @@
|
|||||||
|
! -*- fortran -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
||||||
|
! University Research and Technology
|
||||||
|
! Corporation. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
||||||
|
! of Tennessee Research Foundation. All rights
|
||||||
|
! reserved.
|
||||||
|
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
||||||
|
! University of Stuttgart. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! Copyright (c) 2016 Research Organization for Information Science
|
||||||
|
! and Technology (RIST). All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
!
|
||||||
|
! Additional copyrights may follow
|
||||||
|
!
|
||||||
|
! $HEADER$
|
||||||
|
!
|
||||||
|
|
||||||
|
interface PMPI_File_call_errhandler
|
||||||
|
|
||||||
|
subroutine PMPI_File_call_errhandler(fh, errorcode, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(in) :: errorcode
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_call_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_close
|
||||||
|
|
||||||
|
subroutine PMPI_File_close(fh, ierror)
|
||||||
|
integer, intent(inout) :: fh
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_close
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_create_errhandler
|
||||||
|
|
||||||
|
subroutine PMPI_File_create_errhandler(function, errhandler, ierror)
|
||||||
|
external :: function
|
||||||
|
integer, intent(out) :: errhandler
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_create_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_delete
|
||||||
|
|
||||||
|
subroutine PMPI_File_delete(filename, info, ierror)
|
||||||
|
character(len=*), intent(in) :: filename
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_delete
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_amode
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_amode(fh, amode, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: amode
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_amode
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_atomicity
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_atomicity(fh, flag, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
logical, intent(out) :: flag
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_atomicity
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_byte_offset
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_byte_offset(fh, offset, disp, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_byte_offset
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_errhandler
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_errhandler(file, errhandler, ierror)
|
||||||
|
integer, intent(in) :: file
|
||||||
|
integer, intent(out) :: errhandler
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_group
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_group(fh, group, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: group
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_group
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_info
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_info(fh, info_used, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: info_used
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_info
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_position
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_position(fh, offset, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_position
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_position_shared
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_position_shared(fh, offset, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_position_shared
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_size
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_size(fh, size, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: size
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_size
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_type_extent
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_type_extent(fh, datatype, extent, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(in) :: datatype
|
||||||
|
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_type_extent
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_get_view
|
||||||
|
|
||||||
|
subroutine PMPI_File_get_view(fh, disp, etype, filetype, datarep&
|
||||||
|
, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
|
||||||
|
integer, intent(out) :: etype
|
||||||
|
integer, intent(out) :: filetype
|
||||||
|
character(len=*), intent(out) :: datarep
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_get_view
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_open
|
||||||
|
|
||||||
|
subroutine PMPI_File_open(comm, filename, amode, info, fh&
|
||||||
|
, ierror)
|
||||||
|
integer, intent(in) :: comm
|
||||||
|
character(len=*), intent(in) :: filename
|
||||||
|
integer, intent(in) :: amode
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: fh
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_open
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_preallocate
|
||||||
|
|
||||||
|
subroutine PMPI_File_preallocate(fh, size, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_preallocate
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_seek
|
||||||
|
|
||||||
|
subroutine PMPI_File_seek(fh, offset, whence, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
|
integer, intent(in) :: whence
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_seek
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_seek_shared
|
||||||
|
|
||||||
|
subroutine PMPI_File_seek_shared(fh, offset, whence, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
|
integer, intent(in) :: whence
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_seek_shared
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_set_atomicity
|
||||||
|
|
||||||
|
subroutine PMPI_File_set_atomicity(fh, flag, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
logical, intent(in) :: flag
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_set_atomicity
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_set_errhandler
|
||||||
|
|
||||||
|
subroutine PMPI_File_set_errhandler(file, errhandler, ierror)
|
||||||
|
integer, intent(in) :: file
|
||||||
|
integer, intent(in) :: errhandler
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_set_errhandler
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_set_info
|
||||||
|
|
||||||
|
subroutine PMPI_File_set_info(fh, info, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_set_info
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_set_size
|
||||||
|
|
||||||
|
subroutine PMPI_File_set_size(fh, size, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_set_size
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_set_view
|
||||||
|
|
||||||
|
subroutine PMPI_File_set_view(fh, disp, etype, filetype, datarep, &
|
||||||
|
info, ierror)
|
||||||
|
include 'mpif-config.h'
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: disp
|
||||||
|
integer, intent(in) :: etype
|
||||||
|
integer, intent(in) :: filetype
|
||||||
|
character(len=*), intent(in) :: datarep
|
||||||
|
integer, intent(in) :: info
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_set_view
|
||||||
|
|
||||||
|
end interface
|
||||||
|
|
||||||
|
|
||||||
|
interface PMPI_File_sync
|
||||||
|
|
||||||
|
subroutine PMPI_File_sync(fh, ierror)
|
||||||
|
integer, intent(in) :: fh
|
||||||
|
integer, intent(out) :: ierror
|
||||||
|
end subroutine PMPI_File_sync
|
||||||
|
|
||||||
|
end interface
|
||||||
2618
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h
Обычный файл
2618
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h
Обычный файл
Разница между файлами не показана из-за своего большого размера
Загрузить разницу
Загрузка…
Ссылка в новой задаче
Block a user