f8e634d6ca
svn merge -r 9453:9609 https://svn.open-mpi.org/svn/ompi/tmp/f90-stuff . Several improvements over the current F90 MPI bindings: - The capability to make 4 sizes of the F90 bindings: - trivial: only the F90-specific MPI functions (sizeof and a few others) - small: (this is the default) all MPI functions that do not take choice buffers - medium: small + all MPI functions that take one choice buffer (e.g., MPI_SEND) - large: all MPI functions, but those that take 2 choice buffers (e.g., MPI_GATHER) only allow both buffers to be of the same type - Remove all non-standard MPI types (LOGICAL*x, CHARACTER*x) - Remove use of selected_*_kind() and only use MPI-defined types (INTEGER*x, etc.) - Decrease complexity of the F90 configure and build system This commit was SVN r9610.
53 строки
2.0 KiB
C
53 строки
2.0 KiB
C
!
|
|
! Copyright (c) 2004-2005 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 Cisco Systems, Inc. All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
!
|
|
|
|
! This file is used by scripts/mpi_sizeof.f90.sh (and therefore mpi_sizeof.f90)
|
|
|
|
integer :: OMPI_SIZEOF_F90_LOGICAL
|
|
|
|
integer :: OMPI_SIZEOF_F90_INT1
|
|
integer :: OMPI_SIZEOF_F90_INT2
|
|
integer :: OMPI_SIZEOF_F90_INT4
|
|
integer :: OMPI_SIZEOF_F90_INT8
|
|
integer :: OMPI_SIZEOF_F90_INT16
|
|
|
|
integer :: OMPI_SIZEOF_F90_REAL4
|
|
integer :: OMPI_SIZEOF_F90_REAL8
|
|
integer :: OMPI_SIZEOF_F90_REAL16
|
|
|
|
integer :: OMPI_SIZEOF_F90_COMPLEX8
|
|
integer :: OMPI_SIZEOF_F90_COMPLEX16
|
|
integer :: OMPI_SIZEOF_F90_COMPLEX32
|
|
|
|
parameter(OMPI_SIZEOF_F90_LOGICAL = @OMPI_SIZEOF_F90_LOGICAL@)
|
|
|
|
parameter(OMPI_SIZEOF_F90_INT1 = @OMPI_SIZEOF_F90_INT1@)
|
|
parameter(OMPI_SIZEOF_F90_INT2 = @OMPI_SIZEOF_F90_INT2@)
|
|
parameter(OMPI_SIZEOF_F90_INT4 = @OMPI_SIZEOF_F90_INT4@)
|
|
parameter(OMPI_SIZEOF_F90_INT8 = @OMPI_SIZEOF_F90_INT8@)
|
|
parameter(OMPI_SIZEOF_F90_INT16 = @OMPI_SIZEOF_F90_INT16@)
|
|
|
|
parameter(OMPI_SIZEOF_F90_REAL4 = @OMPI_SIZEOF_F90_REAL4@)
|
|
parameter(OMPI_SIZEOF_F90_REAL8 = @OMPI_SIZEOF_F90_REAL8@)
|
|
parameter(OMPI_SIZEOF_F90_REAL16 = @OMPI_SIZEOF_F90_REAL16@)
|
|
|
|
parameter(OMPI_SIZEOF_F90_COMPLEX8 = @OMPI_SIZEOF_F90_COMPLEX8@)
|
|
parameter(OMPI_SIZEOF_F90_COMPLEX16 = @OMPI_SIZEOF_F90_COMPLEX16@)
|
|
parameter(OMPI_SIZEOF_F90_COMPLEX32 = @OMPI_SIZEOF_F90_COMPLEX32@)
|