diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-08-08 18:36:39 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-08-08 18:36:39 (GMT) |
| commit | 870d4cdacca5b0f194efe779f4d337e69dae128e (patch) | |
| tree | 401b69c2bc2ee5bb832a108df5a44948d75b8234 /fortran/src/H5f90global.f90 | |
| parent | 8637025011bd37412fee7b93381a50d84cb1e768 (diff) | |
| download | hdf5-870d4cdacca5b0f194efe779f4d337e69dae128e.zip hdf5-870d4cdacca5b0f194efe779f4d337e69dae128e.tar.gz hdf5-870d4cdacca5b0f194efe779f4d337e69dae128e.tar.bz2 | |
[svn-r7295] Purpose:
Code cleanup
Description:
Removed unused and out of date H5E flags
Platforms tested:
h5committested
Diffstat (limited to 'fortran/src/H5f90global.f90')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 62 |
1 files changed, 1 insertions, 61 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 72c1148..8145c36 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -313,67 +313,7 @@ EQUIVALENCE(H5FD_flags(11), H5FD_MEM_NTYPES_F) ! -! H5E flags declaration -! - INTEGER, PARAMETER :: H5E_FLAGS_LEN = 24 - INTEGER H5E_flags(H5E_FLAGS_LEN) -!DEC$if defined(BUILD_HDF5_DLL) -!DEC$ ATTRIBUTES DLLEXPORT :: /H5E_FLAGS/ -!DEC$endif - COMMON /H5E_FLAGS/ H5E_flags - - INTEGER :: H5E_NONE_MAJOR_F - INTEGER :: H5E_ARGS_F - INTEGER :: H5E_RESOURCE_F - INTEGER :: H5E_INTERNAL_F - INTEGER :: H5E_FILE_F - INTEGER :: H5E_IO_F - INTEGER :: H5E_FUNC_F - INTEGER :: H5E_ATOM_F - INTEGER :: H5E_CACHE_F - INTEGER :: H5E_BTREE_F - INTEGER :: H5E_SYM_F - INTEGER :: H5E_HEAP_F - INTEGER :: H5E_OHDR_F - INTEGER :: H5E_DATATYPE_F - INTEGER :: H5E_DATASPACE_F - INTEGER :: H5E_DATASET_F - INTEGER :: H5E_STORAGE_F - INTEGER :: H5E_PLIST_F - INTEGER :: H5E_ATTR_F - INTEGER :: H5E_PLINE_F - INTEGER :: H5E_EFL_F - INTEGER :: H5E_REFERENCE_F - INTEGER :: H5E_VFL_F - INTEGER :: H5E_TBBT_F - - EQUIVALENCE(H5E_flags(1), H5E_NONE_MAJOR_F) - EQUIVALENCE(H5E_flags(2), H5E_ARGS_F) - EQUIVALENCE(H5E_flags(3), H5E_RESOURCE_F) - EQUIVALENCE(H5E_flags(4), H5E_INTERNAL_F) - EQUIVALENCE(H5E_flags(5), H5E_FILE_F) - EQUIVALENCE(H5E_flags(6), H5E_IO_F) - EQUIVALENCE(H5E_flags(7), H5E_FUNC_F) - EQUIVALENCE(H5E_flags(8), H5E_ATOM_F) - EQUIVALENCE(H5E_flags(9), H5E_CACHE_F) - EQUIVALENCE(H5E_flags(10), H5E_BTREE_F) - EQUIVALENCE(H5E_flags(11), H5E_SYM_F) - EQUIVALENCE(H5E_flags(12), H5E_HEAP_F) - EQUIVALENCE(H5E_flags(13), H5E_OHDR_F) - EQUIVALENCE(H5E_flags(14), H5E_DATATYPE_F) - EQUIVALENCE(H5E_flags(15), H5E_DATASPACE_F) - EQUIVALENCE(H5E_flags(16), H5E_DATASET_F) - EQUIVALENCE(H5E_flags(17), H5E_STORAGE_F) - EQUIVALENCE(H5E_flags(18), H5E_PLIST_F) - EQUIVALENCE(H5E_flags(19), H5E_ATTR_F) - EQUIVALENCE(H5E_flags(20), H5E_PLINE_F) - EQUIVALENCE(H5E_flags(21), H5E_EFL_F) - EQUIVALENCE(H5E_flags(22), H5E_REFERENCE_F) - EQUIVALENCE(H5E_flags(23), H5E_VFL_F) - EQUIVALENCE(H5E_flags(24), H5E_TBBT_F) - -! -! H5E flags declaration +! H5I flags declaration ! INTEGER, PARAMETER :: H5I_FLAGS_LEN = 7 INTEGER H5I_flags(H5I_FLAGS_LEN) |