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) 2007 Los Alamos National Security, LLC. All rights
|
||||
# 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.
|
||||
# Copyright (c) 2016 IBM Corporation. All rights reserved.
|
||||
# $COPYRIGHT$
|
||||
@ -58,8 +58,12 @@ lib_LTLIBRARIES += lib@OMPI_LIBMPI_NAME@_usempi.la
|
||||
|
||||
mpi.lo: mpi.F90
|
||||
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: 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
|
||||
# not build any interfaces for MPI subroutines that take a choice
|
||||
@ -162,5 +166,9 @@ endif
|
||||
|
||||
EXTRA_DIST = \
|
||||
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.
|
||||
! 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
|
||||
@ -668,307 +670,6 @@ end subroutine MPI_Error_string
|
||||
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
|
||||
|
||||
subroutine MPI_Finalize(ierror)
|
||||
@ -1650,570 +1351,6 @@ end subroutine MPI_Request_get_status
|
||||
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
|
||||
|
||||
subroutine MPI_Start(request, ierror)
|
||||
|
||||
@ -11,6 +11,8 @@
|
||||
! 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
|
||||
@ -43,11 +45,21 @@ module mpi
|
||||
! this compiler may or may not support). We use an "if" preprocessor
|
||||
! macro in this file, so we need to use the preprocessor 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
|
||||
! to the --with-f90-max-array-dim configure parameter.
|
||||
|
||||
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
|
||||
|
||||
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