7390ab8a23
aren't separated out into individual commits; they represent a few months of work in the Mercurial branch, and it seemed error-prone to try to break them up into multiple SVN commits. * Remove 2nd overloaded interfaces for MPI_TESTALL, MPI_TESTSOME, MPI_WAITALL, and MPI_WAITSOME in the "mpi" module implementations (because we're not allowed to have them, anyway -- it causes complications in the profiling interface). This forced an MPI-2.2 errata in the MPI Forum; we applied the errata here (the array of statuses parameter could not have a specific dimension specified in the dummy argument). Fixes trac:3166. * Similarly, fix type for MPI_ARGVS_NULL in Fortran * Add MPI_3.0 function MPI_F_SYNC_REG (Fortran interfaces only). * Add MPI-3.0 MPI_MESSAGE_NO_PROC in the mpi_f08 module. * Added mpi_f08 handle comparison operators, per MPI-3.0 addendum to the F08 proposal at the last Forum meeting. * Added missing type(MPI_File) and type(Message) in mpi_f08 module. * Fix --disable-mpi-io configure switch with all Fortran interfaces * Re-factor the Fortran header files to be fundamentally simpler and easier to maintain. Fortran constant values in the header files are now generated by a script named mpif-values.pl during autogen.pl (they were previously generated by mpif-common.pl, but it was quite a bit more subtle/complex). A second commit will follow this one to update svn:ignore values (just to ensure we don't muck up the first commit with the SVN client getting confused by the changed ignore values and new/changed files). * Fix some dependencies for compile ordering in ompi/mpi/fortran/use-mpi-ignore-tkr/Makefile.am. * Fix bad wording in several places (.m4 file name, ompi_info output, etc.): we previoulsy said "F08 assumed shape" when we really meant "F08 assumed rank" (for Fortran gurus, those are very different things). * Removed the GREEK/SVN version string from mpif.h. It really had no purpose being there. Still to be done: * Handling of 2D array of strings in MPI_COMM_SPAWN_MULTIPLE still isn't right yet. Not sure how many people really care about this :-), but it is still broken. This commit was SVN r26997. The following Trac tickets were found above: Ticket 3166 --> https://svn.open-mpi.org/trac/ompi/ticket/3166
64 строки
2.7 KiB
Fortran
64 строки
2.7 KiB
Fortran
! -*- fortran -*-
|
|
!
|
|
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
|
! University Research and Technology
|
|
! Corporation. All rights reserved.
|
|
! Copyright (c) 2004-2010 The University of Tennessee and The University
|
|
! of Tennessee Research Foundation. All rights
|
|
! reserved.
|
|
! Copyright (c) 2004-2007 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-2012 Cisco Systems, Inc. All rights reserved.
|
|
! Copyright (c) 2009 Oak Ridge National Labs. All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
!
|
|
|
|
!
|
|
! All of these types were chosen with care to match the types of
|
|
! their corresponding C variables. Do not arbitrarily change
|
|
! their types without also updating:
|
|
!
|
|
! - the "mpi" module bindings
|
|
! - the "mpi_f08" module bindings
|
|
! - ompi/mpi/fortran/base/constants.h
|
|
! - ompi/mpi/runtime/ompi_init.c
|
|
!
|
|
|
|
! MPI_BOTTOM is only used where choice buffers can be used (meaning
|
|
! that we already have overloaded F90 bindings for all available
|
|
! types), so any type is fine.
|
|
integer MPI_BOTTOM
|
|
! MPI_IN_PLACE has the same rationale as MPI_BOTTOM.
|
|
integer MPI_IN_PLACE
|
|
! Making MPI_ARGV_NULL be the same type as the parameter that is
|
|
! exepected in the F90 binding for MPI_COMM_SPAWN means that we
|
|
! don't need another interface for MPI_COMM_SPAWN.
|
|
character MPI_ARGV_NULL(1)
|
|
! Ditto for MPI_ARGVS_NULL / MPI_COMM_SPAWN_MULTIPLE.
|
|
character MPI_ARGVS_NULL(1)
|
|
! MPI_ERRCODES_IGNORE has similar rationale to MPI_ARGV_NULL. The
|
|
! F77 functions are all smart enough to check that the errcodes
|
|
! parameter is not ERRCODES_IGNORE before assigning values into it
|
|
! (hence, the fact that this is an array of only 1 element does not
|
|
! matter -- we'll never overrun it because we never assign values
|
|
! into it).
|
|
integer MPI_ERRCODES_IGNORE(1)
|
|
! MPI_STATUS_IGNORE has similar rationale to MPI_ERRCODES_IGNORE.
|
|
integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
|
|
! Ditto for MPI_STATUSES_IGNORE
|
|
integer MPI_STATUSES_IGNORE(MPI_STATUS_SIZE, 1)
|
|
|
|
common/mpi_fortran_bottom/MPI_BOTTOM
|
|
common/mpi_fortran_in_place/MPI_IN_PLACE
|
|
common/mpi_fortran_argv_null/MPI_ARGV_NULL
|
|
common/mpi_fortran_argvs_null/MPI_ARGVS_NULL
|
|
common/mpi_fortran_errcodes_ignore/MPI_ERRCODES_IGNORE
|
|
common/mpi_fortran_status_ignore/MPI_STATUS_IGNORE
|
|
common/mpi_fortran_statuses_ignore/MPI_STATUSES_IGNORE
|