Source

mpi3-fortran / ompi / mpi / fortran / use-mpi-tkr / fortran_sizes.h.in

Full commit
!
! 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-2012 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_CHARACTER
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_CHARACTER = @OMPI_SIZEOF_FORTRAN_CHARACTER@)
parameter(OMPI_SIZEOF_F90_LOGICAL = @OMPI_SIZEOF_FORTRAN_LOGICAL@)

parameter(OMPI_SIZEOF_F90_INT1 = @OMPI_SIZEOF_FORTRAN_INTEGER1@)
parameter(OMPI_SIZEOF_F90_INT2 = @OMPI_SIZEOF_FORTRAN_INTEGER2@)
parameter(OMPI_SIZEOF_F90_INT4 = @OMPI_SIZEOF_FORTRAN_INTEGER4@)
parameter(OMPI_SIZEOF_F90_INT8 = @OMPI_SIZEOF_FORTRAN_INTEGER8@)
parameter(OMPI_SIZEOF_F90_INT16 = @OMPI_SIZEOF_FORTRAN_INTEGER16@)

parameter(OMPI_SIZEOF_F90_REAL2 = @OMPI_SIZEOF_FORTRAN_REAL2@)
parameter(OMPI_SIZEOF_F90_REAL4 = @OMPI_SIZEOF_FORTRAN_REAL4@)
parameter(OMPI_SIZEOF_F90_REAL8 = @OMPI_SIZEOF_FORTRAN_REAL8@)
parameter(OMPI_SIZEOF_F90_REAL16 = @OMPI_SIZEOF_FORTRAN_REAL16@)

parameter(OMPI_SIZEOF_F90_COMPLEX8 = @OMPI_SIZEOF_FORTRAN_COMPLEX8@)
parameter(OMPI_SIZEOF_F90_COMPLEX16 = @OMPI_SIZEOF_FORTRAN_COMPLEX16@)
parameter(OMPI_SIZEOF_F90_COMPLEX32 = @OMPI_SIZEOF_FORTRAN_COMPLEX32@)