2 ! Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
3 ! University Research and Technology
4 ! Corporation. All rights reserved.
5 ! Copyright (c) 2004-2005 The University of Tennessee and The University
6 ! of Tennessee Research Foundation. All rights
8 ! Copyright (c) 2004-2007 High Performance Computing Center Stuttgart,
9 ! University of Stuttgart. All rights reserved.
10 ! Copyright (c) 2004-2005 The Regents of the University of California.
11 ! All rights reserved.
12 ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
15 ! Additional copyrights may follow
20 ! This file is used by scripts/mpi_sizeof.f90.sh (and therefore mpi_sizeof.f90)
22 integer :: OMPI_SIZEOF_F90_LOGICAL
24 integer :: OMPI_SIZEOF_F90_INT1
25 integer :: OMPI_SIZEOF_F90_INT2
26 integer :: OMPI_SIZEOF_F90_INT4
27 integer :: OMPI_SIZEOF_F90_INT8
28 integer :: OMPI_SIZEOF_F90_INT16
30 integer :: OMPI_SIZEOF_F90_REAL2
31 integer :: OMPI_SIZEOF_F90_REAL4
32 integer :: OMPI_SIZEOF_F90_REAL8
33 integer :: OMPI_SIZEOF_F90_REAL16
35 integer :: OMPI_SIZEOF_F90_COMPLEX8
36 integer :: OMPI_SIZEOF_F90_COMPLEX16
37 integer :: OMPI_SIZEOF_F90_COMPLEX32
39 parameter(OMPI_SIZEOF_F90_LOGICAL = 4)
41 parameter(OMPI_SIZEOF_F90_INT1 = 4)
42 parameter(OMPI_SIZEOF_F90_INT2 = 4)
43 parameter(OMPI_SIZEOF_F90_INT4 = 4)
44 parameter(OMPI_SIZEOF_F90_INT8 = 4)
45 parameter(OMPI_SIZEOF_F90_INT16 = 4)
47 parameter(OMPI_SIZEOF_F90_REAL2 = 4)
48 parameter(OMPI_SIZEOF_F90_REAL4 = 4)
49 parameter(OMPI_SIZEOF_F90_REAL8 = 4)
50 parameter(OMPI_SIZEOF_F90_REAL16 = 4)
52 parameter(OMPI_SIZEOF_F90_COMPLEX8 = 4)
53 parameter(OMPI_SIZEOF_F90_COMPLEX16 = 4)
54 parameter(OMPI_SIZEOF_F90_COMPLEX32 = 4)