diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-13 17:51:53 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-13 17:51:53 (GMT) |
| commit | 6176a8a2869339e28c452fd9da2634427997ba40 (patch) | |
| tree | 16ebb4d105cb7be823d9ec147acd49332b9219de /fortran | |
| parent | f89adf1d5b59999e722bacb6847f8410a4240949 (diff) | |
| download | hdf5-6176a8a2869339e28c452fd9da2634427997ba40.zip hdf5-6176a8a2869339e28c452fd9da2634427997ba40.tar.gz hdf5-6176a8a2869339e28c452fd9da2634427997ba40.tar.bz2 | |
[svn-r15848] Description:
Cosmetic changes: added additional comments at the start of the file.
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5_DBLE_InterfaceExclude.f90 | 26 | ||||
| -rw-r--r-- | fortran/src/H5_DBLE_InterfaceInclude.f90 | 27 |
2 files changed, 39 insertions, 14 deletions
diff --git a/fortran/src/H5_DBLE_InterfaceExclude.f90 b/fortran/src/H5_DBLE_InterfaceExclude.f90 index 4db8bdd..976a6f4 100644 --- a/fortran/src/H5_DBLE_InterfaceExclude.f90 +++ b/fortran/src/H5_DBLE_InterfaceExclude.f90 @@ -1,3 +1,18 @@ +!****h* fortran/src/H5_DBLE_InterfaceExclude.f90 +! +! NAME +! H5_DBLE_INTERFACE +! +! FUNCTION +! This module is used 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 and those declared as DOUBLE PRECISION. +! +! NOTES +! Empty module. +! +! COPYRIGHT ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! Copyright by The HDF Group. * ! Copyright by the Board of Trustees of the University of Illinois. * @@ -13,14 +28,11 @@ ! access to either file, you may request a copy from help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! +! AUTHOR +! M.S. Breitenfeld ! -! 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 diff --git a/fortran/src/H5_DBLE_InterfaceInclude.f90 b/fortran/src/H5_DBLE_InterfaceInclude.f90 index 69be022..0fdd63c 100644 --- a/fortran/src/H5_DBLE_InterfaceInclude.f90 +++ b/fortran/src/H5_DBLE_InterfaceInclude.f90 @@ -1,3 +1,19 @@ +!****h* fortran/src/H5_DBLE_InterfaceInclude.f90 +! +! NAME +! H5_DBLE_INTERFACE +! +! FUNCTION +! This module is used for when the default REAL is not of the type DOUBLE PRECISION. +! We only 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. Otherwise it is okay to include the interfaces. +! +! NOTES +! This module contains all the DOUBLE PRECISION interfaces and corresponding subroutines +! from the HDF function catagory H5A, H5D and H5P. +! +! COPYRIGHT ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! Copyright by The HDF Group. * ! Copyright by the Board of Trustees of the University of Illinois. * @@ -13,14 +29,11 @@ ! access to either file, you may request a copy from help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! +! AUTHOR +! M.S. Breitenfeld ! -! FUNCTION -! This module is included for when the default REAL is not of the 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. Otherwise it is okay to include the interfaces. -! -! +!***** + MODULE H5_DBLE_INTERFACE USE H5GLOBAL |