diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-08-26 20:30:38 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-08-26 20:30:38 (GMT) |
| commit | 1ab76307800c1a1399e2ddccea2b8f698a0543ec (patch) | |
| tree | 8b34eee37d7d9d6f3747b10367e43ed06147748d /fortran/src/H5_DBLE_InterfaceExclude.f90 | |
| parent | 6b9b12d64394512c1d43635b66c1c142ff2cdd96 (diff) | |
| download | hdf5-1ab76307800c1a1399e2ddccea2b8f698a0543ec.zip hdf5-1ab76307800c1a1399e2ddccea2b8f698a0543ec.tar.gz hdf5-1ab76307800c1a1399e2ddccea2b8f698a0543ec.tar.bz2 | |
[svn-r15541] Description:
Put the DOUBLE PRECISION interfaces in a separate module. The interfaces are included/excluded depending on
the state of FORTRAN_DEFAULT_REALisDBLE_F which detects if the default REAL is DOUBLE PRECISION. This allows the library to be compiled with -r8 Fortran flag without the user needing to change the source code.
Diffstat (limited to 'fortran/src/H5_DBLE_InterfaceExclude.f90')
| -rw-r--r-- | fortran/src/H5_DBLE_InterfaceExclude.f90 | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/fortran/src/H5_DBLE_InterfaceExclude.f90 b/fortran/src/H5_DBLE_InterfaceExclude.f90 new file mode 100644 index 0000000..4db8bdd --- /dev/null +++ b/fortran/src/H5_DBLE_InterfaceExclude.f90 @@ -0,0 +1,27 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! Copyright by the Board of Trustees of the University of Illinois. * +! All rights reserved. * +! * +! This file is part of HDF5. The full HDF5 copyright notice, including * +! terms governing use, modification, and redistribution, is contained in * +! the files COPYING and Copyright.html. COPYING can be found at the root * +! of the source code distribution tree; Copyright.html can be found at the * +! root level of an installed copy of the electronic HDF5 document set and * +! is linked from the top-level documents page. It can also be found at * +! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * +! access to either file, you may request a copy from help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! +! FUNCTION +! This module is included for when the default REAL is of type DOUBLE PRECISION. +! We do not include the double precision interfaces if the defaut REAL is +! DOUBLE PRECISION since this would lead to a non-unique conflict with the +! generic interfaces declared as REAL. +! +! +MODULE H5_DBLE_INTERFACE + + +END MODULE H5_DBLE_INTERFACE |