From e3140f5026c43a04dd8042755bd8f1c8889b2d0a Mon Sep 17 00:00:00 2001 From: Craig E Rasmussen Date: Fri, 7 Jan 2005 19:22:49 +0000 Subject: [PATCH] Initial version. This commit was SVN r3922. --- src/mpi/f90/fortran_sizes.h.in | 41 ++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 src/mpi/f90/fortran_sizes.h.in diff --git a/src/mpi/f90/fortran_sizes.h.in b/src/mpi/f90/fortran_sizes.h.in new file mode 100644 index 0000000000..258def6d50 --- /dev/null +++ b/src/mpi/f90/fortran_sizes.h.in @@ -0,0 +1,41 @@ +! +! Copyright (c) 2004-2005 The Trustees of Indiana University. +! All rights reserved. +! Copyright (c) 2004-2005 The Trustees of the University of Tennessee. +! All rights reserved. +! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, +! University of Stuttgart. All rights reserved. +! $COPYRIGHT$ +! +! Additional copyrights may follow +! +! $HEADER$ +! + +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_INT1 = @OMPI_SIZEOF_F90_INT1@) +parameter(OMPI_SIZEOF_F90_INT2 = @OMPI_SIZEOF_F90_INT2@) +parameter(OMPI_SIZEOF_F90_INT4 = @OMPI_SIZEOF_F90_INT4@) +parameter(OMPI_SIZEOF_F90_INT8 = @OMPI_SIZEOF_F90_INT8@) +parameter(OMPI_SIZEOF_F90_INT16 = @OMPI_SIZEOF_F90_INT16@) + +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@)