OpenMPI 0.1.1

- Main Page
- Related Pages
- Modules
- Data Structures
- Files

- File List
- Globals

fortran_sizes.h
1 !
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
7 ! reserved.
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.
13 ! $COPYRIGHT$
14 !
15 ! Additional copyrights may follow
16 !
17 ! $HEADER$
18 !
19
20 ! This file is used by scripts/mpi_sizeof.f90.sh (and therefore mpi_sizeof.f90)
21
22 integer :: OMPI_SIZEOF_F90_LOGICAL
23
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
29
30 integer :: OMPI_SIZEOF_F90_REAL2
31 integer :: OMPI_SIZEOF_F90_REAL4
32 integer :: OMPI_SIZEOF_F90_REAL8
33 integer :: OMPI_SIZEOF_F90_REAL16
34
35 integer :: OMPI_SIZEOF_F90_COMPLEX8
36 integer :: OMPI_SIZEOF_F90_COMPLEX16
37 integer :: OMPI_SIZEOF_F90_COMPLEX32
38
39 parameter(OMPI_SIZEOF_F90_LOGICAL = 4)
40
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)
46
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)
51
52 parameter(OMPI_SIZEOF_F90_COMPLEX8 = 4)
53 parameter(OMPI_SIZEOF_F90_COMPLEX16 = 4)
54 parameter(OMPI_SIZEOF_F90_COMPLEX32 = 4)