95596d1814
into the OPAL namespace, eliminating cases like opal/util/arch.c testing for ompi_fortran_logical_t. As this is processor- and compiler-related information (e.g. does the compiler/architecture support REAL*16) this should have been on the OPAL layer. - Unifies f77 code using MPI_Flogical instead of opal_fortran_logical_t - Tested locally (Linux/x86-64) with mpich and intel testsuite but would like to get this week-ends MTT output - PLEASE NOTE: configure-internal macro-names and ompi_cv_ variables have not been changed, so that external platform (not in contrib/) files still work. This commit was SVN r21330.
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 :: OPAL_SIZEOF_F90_LOGICAL
|
|
|
|
integer :: OPAL_SIZEOF_F90_INT1
|
|
integer :: OPAL_SIZEOF_F90_INT2
|
|
integer :: OPAL_SIZEOF_F90_INT4
|
|
integer :: OPAL_SIZEOF_F90_INT8
|
|
integer :: OPAL_SIZEOF_F90_INT16
|
|
|
|
integer :: OPAL_SIZEOF_F90_REAL2
|
|
integer :: OPAL_SIZEOF_F90_REAL4
|
|
integer :: OPAL_SIZEOF_F90_REAL8
|
|
integer :: OPAL_SIZEOF_F90_REAL16
|
|
|
|
integer :: OPAL_SIZEOF_F90_COMPLEX8
|
|
integer :: OPAL_SIZEOF_F90_COMPLEX16
|
|
integer :: OPAL_SIZEOF_F90_COMPLEX32
|
|
|
|
parameter(OPAL_SIZEOF_F90_LOGICAL = @OPAL_SIZEOF_F90_LOGICAL@)
|
|
|
|
parameter(OPAL_SIZEOF_F90_INT1 = @OPAL_SIZEOF_F90_INTEGER1@)
|
|
parameter(OPAL_SIZEOF_F90_INT2 = @OPAL_SIZEOF_F90_INTEGER2@)
|
|
parameter(OPAL_SIZEOF_F90_INT4 = @OPAL_SIZEOF_F90_INTEGER4@)
|
|
parameter(OPAL_SIZEOF_F90_INT8 = @OPAL_SIZEOF_F90_INTEGER8@)
|
|
parameter(OPAL_SIZEOF_F90_INT16 = @OPAL_SIZEOF_F90_INTEGER16@)
|
|
|
|
parameter(OPAL_SIZEOF_F90_REAL2 = @OPAL_SIZEOF_F90_REAL2@)
|
|
parameter(OPAL_SIZEOF_F90_REAL4 = @OPAL_SIZEOF_F90_REAL4@)
|
|
parameter(OPAL_SIZEOF_F90_REAL8 = @OPAL_SIZEOF_F90_REAL8@)
|
|
parameter(OPAL_SIZEOF_F90_REAL16 = @OPAL_SIZEOF_F90_REAL16@)
|
|
|
|
parameter(OPAL_SIZEOF_F90_COMPLEX8 = @OPAL_SIZEOF_F90_COMPLEX8@)
|
|
parameter(OPAL_SIZEOF_F90_COMPLEX16 = @OPAL_SIZEOF_F90_COMPLEX16@)
|
|
parameter(OPAL_SIZEOF_F90_COMPLEX32 = @OPAL_SIZEOF_F90_COMPLEX32@)
|