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_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_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@)
|