summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5f90global.f90
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r--fortran/src/H5f90global.f9062
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)