! -*- fortran -*-
!
! Copyright (c) 2006-2021 Cisco Systems, Inc.  All rights reserved
! Copyright (c) 2007      Los Alamos National Security, LLC.  All rights
!                         reserved.
! Copyright (c) 2019-2020 Research Organization for Information Science
!                         and Technology (RIST).  All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
!
! $HEADER$


interface

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

subroutine MPI_File_close(fh, ierror)
  integer, intent(inout) :: fh
  integer, intent(out) :: ierror
end subroutine MPI_File_close

end interface

interface

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

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

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

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

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

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

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

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

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

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

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

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

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

subroutine MPI_File_iread(fh, buf, count, datatype, request&
        , ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iread

end interface

interface

subroutine MPI_File_iread_all(fh, buf, count, datatype, request&
        , ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iread_all

end interface

interface

subroutine MPI_File_iread_at(fh, offset, buf, count, datatype, &
        request, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iread_at

end interface

interface

subroutine MPI_File_iread_at_all(fh, offset, buf, count, datatype, &
        request, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iread_at_all

end interface

interface

subroutine MPI_File_iread_shared(fh, buf, count, datatype, request&
        , ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iread_shared

end interface

interface

subroutine MPI_File_iwrite(fh, buf, count, datatype, request&
        , ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iwrite

end interface

interface

subroutine MPI_File_iwrite_all(fh, buf, count, datatype, request&
        , ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iwrite_all

end interface

interface

subroutine MPI_File_iwrite_at(fh, offset, buf, count, datatype, &
        request, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iwrite_at

end interface

interface

subroutine MPI_File_iwrite_at_all(fh, offset, buf, count, datatype, &
        request, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iwrite_at_all

end interface

interface

subroutine MPI_File_iwrite_shared(fh, buf, count, datatype, request&
        , ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: request
  integer, intent(out) :: ierror
end subroutine MPI_File_iwrite_shared

end interface

interface

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

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

subroutine MPI_File_read(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read

end interface

interface

subroutine MPI_File_read_all(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_all

end interface

interface

subroutine MPI_File_read_all_begin(fh, buf, count, datatype, ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: ierror
end subroutine MPI_File_read_all_begin

end interface

interface

subroutine MPI_File_read_all_end(fh, buf, status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_all_end

end interface

interface

subroutine MPI_File_read_at(fh, offset, buf, count, datatype, &
        status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_at

end interface

interface

subroutine MPI_File_read_at_all(fh, offset, buf, count, datatype, &
        status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_at_all

end interface

interface

subroutine MPI_File_read_at_all_begin(fh, offset, buf, count, datatype&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: ierror
end subroutine MPI_File_read_at_all_begin

end interface

interface

subroutine MPI_File_read_at_all_end(fh, buf, status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_at_all_end

end interface

interface

subroutine MPI_File_read_ordered(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_ordered

end interface

interface

subroutine MPI_File_read_ordered_begin(fh, buf, count, datatype, ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: ierror
end subroutine MPI_File_read_ordered_begin

end interface

interface

subroutine MPI_File_read_ordered_end(fh, buf, status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_ordered_end

end interface

interface

subroutine MPI_File_read_shared(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_read_shared

end interface

interface

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

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

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

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

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

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

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

subroutine MPI_File_sync(fh, ierror)
  integer, intent(in) :: fh
  integer, intent(out) :: ierror
end subroutine MPI_File_sync

end interface

interface

subroutine MPI_File_write(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write

end interface

interface

subroutine MPI_File_write_all(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_all

end interface

interface

subroutine MPI_File_write_all_begin(fh, buf, count, datatype, ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: ierror
end subroutine MPI_File_write_all_begin

end interface

interface

subroutine MPI_File_write_all_end(fh, buf, status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_all_end

end interface

interface

subroutine MPI_File_write_at(fh, offset, buf, count, datatype, &
        status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_at

end interface

interface

subroutine MPI_File_write_at_all(fh, offset, buf, count, datatype, &
        status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_at_all

end interface

interface

subroutine MPI_File_write_at_all_begin(fh, offset, buf, count, datatype&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: ierror
end subroutine MPI_File_write_at_all_begin

end interface

interface

subroutine MPI_File_write_at_all_end(fh, buf, status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_at_all_end

end interface

interface

subroutine MPI_File_write_ordered(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_ordered

end interface

interface

subroutine MPI_File_write_ordered_begin(fh, buf, count, datatype, ierror)
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, intent(out) :: ierror
end subroutine MPI_File_write_ordered_begin

end interface

interface

subroutine MPI_File_write_ordered_end(fh, buf, status, ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_ordered_end

end interface

interface

subroutine MPI_File_write_shared(fh, buf, count, datatype, status&
        , ierror)
  include 'mpif-config.h'
  integer, intent(in) :: fh
  @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
  @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
  integer, intent(in) :: count
  integer, intent(in) :: datatype
  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
  integer, intent(out) :: ierror
end subroutine MPI_File_write_shared

end interface