d3372729bb
to make checks for MPI-implementations fail in the right way ,-] - check in configure.ac - BINARY INCOMPATIBLE change to mpif-common.h (if implemented the *right* way) Actually OMPI_F90_CHECK takes two arguments, not three. - Only have corresponding C-Type, if the opt. Fortran type is really supported, Otherwise pass ompi_mpi_unavailable to DECLARE_MPI_SYNONYM_DDT; - Reviewed by George and Jeff This commit was SVN r15133.
55 строки
2.1 KiB
C
55 строки
2.1 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-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 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_REAL2
|
|
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_INTEGER1@)
|
|
parameter(OMPI_SIZEOF_F90_INT2 = @OMPI_SIZEOF_F90_INTEGER2@)
|
|
parameter(OMPI_SIZEOF_F90_INT4 = @OMPI_SIZEOF_F90_INTEGER4@)
|
|
parameter(OMPI_SIZEOF_F90_INT8 = @OMPI_SIZEOF_F90_INTEGER8@)
|
|
parameter(OMPI_SIZEOF_F90_INT16 = @OMPI_SIZEOF_F90_INTEGER16@)
|
|
|
|
parameter(OMPI_SIZEOF_F90_REAL2 = @OMPI_SIZEOF_F90_REAL2@)
|
|
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@)
|