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.f9098
1 files changed, 90 insertions, 8 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index 2295ae8..7a4a296 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -24,7 +24,7 @@
! Do not forget to change the following line when new predefined
! integer data types are added
- INTEGER, PARAMETER :: INTEGER_TYPES_LEN = 16
+ INTEGER, PARAMETER :: INTEGER_TYPES_LEN = 17
INTEGER(HID_T) H5T_NATIVE_INTEGER, &
H5T_NATIVE_REAL, &
@@ -51,7 +51,8 @@
H5T_STD_U32BE, &
H5T_STD_U32LE, &
H5T_STD_U64BE, &
- H5T_STD_U64LE
+ H5T_STD_U64LE, &
+ H5T_STRING
INTEGER(HID_T), DIMENSION(PREDEF_TYPES_LEN) :: predef_types
@@ -85,6 +86,7 @@
EQUIVALENCE (integer_types(14), H5T_STD_U32LE)
EQUIVALENCE (integer_types(15), H5T_STD_U64BE)
EQUIVALENCE (integer_types(16), H5T_STD_U64LE)
+ EQUIVALENCE (integer_types(17), H5T_STRING)
! COMMON /PREDEFINED_TYPES/ H5T_NATIVE_INTEGER, &
@@ -206,7 +208,7 @@
! H5D flags declaration
!
- INTEGER, PARAMETER :: H5D_FLAGS_LEN = 3
+ INTEGER, PARAMETER :: H5D_FLAGS_LEN = 19
INTEGER H5D_flags(H5D_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5D_FLAGS/
@@ -217,10 +219,50 @@
INTEGER :: H5D_CONTIGUOUS_F
INTEGER :: H5D_CHUNKED_F
+ INTEGER :: H5D_ALLOC_TIME_ERROR_F
+ INTEGER :: H5D_ALLOC_TIME_DEFAULT_F
+ INTEGER :: H5D_ALLOC_TIME_EARLY_F
+ INTEGER :: H5D_ALLOC_TIME_LATE_F
+ INTEGER :: H5D_ALLOC_TIME_INCR_F
+
+ INTEGER :: H5D_SPACE_STS_ERROR_F
+ INTEGER :: H5D_SPACE_STS_NOT_ALLOCATED_F
+ INTEGER :: H5D_SPACE_STS_PART_ALLOCATED_F
+ INTEGER :: H5D_SPACE_STS_ALLOCATED_F
+
+ INTEGER :: H5D_FILL_TIME_ERROR_F
+ INTEGER :: H5D_FILL_TIME_ALLOC_F
+ INTEGER :: H5D_FILL_TIME_NEVER_F
+
+ INTEGER :: H5D_FILL_VALUE_ERROR_F
+ INTEGER :: H5D_FILL_VALUE_UNDEFINED_F
+ INTEGER :: H5D_FILL_VALUE_DEFAULT_F
+ INTEGER :: H5D_FILL_VALUE_USER_DEFINED_F
+
EQUIVALENCE(H5D_flags(1), H5D_COMPACT_F)
EQUIVALENCE(H5D_flags(2), H5D_CONTIGUOUS_F)
EQUIVALENCE(H5D_flags(3), H5D_CHUNKED_F)
+ EQUIVALENCE(H5D_flags(4), H5D_ALLOC_TIME_ERROR_F)
+ EQUIVALENCE(H5D_flags(5), H5D_ALLOC_TIME_DEFAULT_F)
+ EQUIVALENCE(H5D_flags(6), H5D_ALLOC_TIME_EARLY_F)
+ EQUIVALENCE(H5D_flags(7), H5D_ALLOC_TIME_LATE_F)
+ EQUIVALENCE(H5D_flags(8), H5D_ALLOC_TIME_INCR_F)
+
+ EQUIVALENCE(H5D_flags(9), H5D_SPACE_STS_ERROR_F)
+ EQUIVALENCE(H5D_flags(10), H5D_SPACE_STS_NOT_ALLOCATED_F)
+ EQUIVALENCE(H5D_flags(11), H5D_SPACE_STS_PART_ALLOCATED_F)
+ EQUIVALENCE(H5D_flags(12), H5D_SPACE_STS_ALLOCATED_F)
+
+ EQUIVALENCE(H5D_flags(13), H5D_FILL_TIME_ERROR_F)
+ EQUIVALENCE(H5D_flags(14), H5D_FILL_TIME_ALLOC_F)
+ EQUIVALENCE(H5D_flags(15), H5D_FILL_TIME_NEVER_F)
+
+ EQUIVALENCE(H5D_flags(16), H5D_FILL_VALUE_ERROR_F)
+ EQUIVALENCE(H5D_flags(17), H5D_FILL_VALUE_UNDEFINED_F)
+ EQUIVALENCE(H5D_flags(18), H5D_FILL_VALUE_DEFAULT_F)
+ EQUIVALENCE(H5D_flags(19), H5D_FILL_VALUE_USER_DEFINED_F)
+
!
! H5FD flags declaration
!
@@ -323,7 +365,7 @@
!
! H5P flags declaration
!
- INTEGER, PARAMETER :: H5P_FLAGS_LEN = 6
+ INTEGER, PARAMETER :: H5P_FLAGS_LEN = 7
INTEGER H5P_flags(H5P_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/
@@ -336,6 +378,7 @@
INTEGER :: H5P_DATASET_XFER_F
INTEGER :: H5P_MOUNT_F
INTEGER :: H5P_DEFAULT_F
+ INTEGER :: H5P_NO_CLASS_F
EQUIVALENCE(H5P_flags(1), H5P_FILE_CREATE_F)
EQUIVALENCE(H5P_flags(2), H5P_FILE_ACCESS_F)
@@ -343,6 +386,7 @@
EQUIVALENCE(H5P_flags(4), H5P_DATASET_XFER_F)
EQUIVALENCE(H5P_flags(5), H5P_MOUNT_F)
EQUIVALENCE(H5P_flags(6), H5P_DEFAULT_F)
+ EQUIVALENCE(H5P_flags(7), H5P_NO_CLASS_F)
!
! H5P flags declaration
@@ -363,7 +407,7 @@
!
! H5S flags declaration
!
- INTEGER, PARAMETER :: H5S_FLAGS_LEN = 6
+ INTEGER, PARAMETER :: H5S_FLAGS_LEN = 19
INTEGER H5S_flags(H5S_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5S_FLAGS/
@@ -372,11 +416,28 @@
INTEGER :: H5S_SCALAR_F
INTEGER :: H5S_SIMPLE_F
- INTEGER :: H5S_SELECT_SET_F
- INTEGER :: H5S_SELECT_OR_F
+
INTEGER :: H5S_UNLIMITED_F
INTEGER :: H5S_ALL_F
+ INTEGER :: H5S_SELECT_NOOP_F
+ INTEGER :: H5S_SELECT_SET_F
+ INTEGER :: H5S_SELECT_OR_F
+ INTEGER :: H5S_SELECT_AND_F
+ INTEGER :: H5S_SELECT_XOR_F
+ INTEGER :: H5S_SELECT_NOTB_F
+ INTEGER :: H5S_SELECT_NOTA_F
+ INTEGER :: H5S_SELECT_APPEND_F
+ INTEGER :: H5S_SELECT_PREPEND_F
+ INTEGER :: H5S_SELECT_INVALID_F
+
+
+ INTEGER :: H5S_SEL_ERROR_F
+ INTEGER :: H5S_SEL_NONE_F
+ INTEGER :: H5S_SEL_POINTS_F
+ INTEGER :: H5S_SEL_HYPERSLABS_F
+ INTEGER :: H5S_SEL_ALL_F
+
EQUIVALENCE(H5S_flags(1), H5S_SCALAR_F)
EQUIVALENCE(H5S_flags(2), H5S_SIMPLE_F)
EQUIVALENCE(H5S_flags(3), H5S_SELECT_SET_F)
@@ -384,10 +445,27 @@
EQUIVALENCE(H5S_flags(5), H5S_UNLIMITED_F)
EQUIVALENCE(H5S_flags(6), H5S_ALL_F)
+ EQUIVALENCE(H5S_flags(7), H5S_SELECT_NOOP_F)
+ EQUIVALENCE(H5S_flags(8), H5S_SELECT_AND_F)
+ EQUIVALENCE(H5S_flags(9), H5S_SELECT_XOR_F)
+ EQUIVALENCE(H5S_flags(10), H5S_SELECT_NOTB_F)
+ EQUIVALENCE(H5S_flags(11), H5S_SELECT_NOTA_F)
+ EQUIVALENCE(H5S_flags(12), H5S_SELECT_APPEND_F)
+ EQUIVALENCE(H5S_flags(13), H5S_SELECT_PREPEND_F)
+ EQUIVALENCE(H5S_flags(14), H5S_SELECT_INVALID_F)
+
+
+ EQUIVALENCE(H5S_flags(15), H5S_SEL_ERROR_F)
+ EQUIVALENCE(H5S_flags(16), H5S_SEL_NONE_F)
+ EQUIVALENCE(H5S_flags(17), H5S_SEL_POINTS_F)
+ EQUIVALENCE(H5S_flags(18), H5S_SEL_HYPERSLABS_F)
+ EQUIVALENCE(H5S_flags(19), H5S_SEL_ALL_F)
+
+
!
! H5T flags declaration
!
- INTEGER, PARAMETER :: H5T_FLAGS_LEN = 28
+ INTEGER, PARAMETER :: H5T_FLAGS_LEN = 30
INTEGER H5T_flags(H5T_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/
@@ -404,6 +482,8 @@
INTEGER :: H5T_COMPOUND_F
INTEGER :: H5T_REFERENCE_F
INTEGER :: H5T_ENUM_F
+ INTEGER :: H5T_VLEN_F
+ INTEGER :: H5T_ARRAY_F
INTEGER :: H5T_ORDER_LE_F
INTEGER :: H5T_ORDER_BE_F
INTEGER :: H5T_ORDER_VAX_F
@@ -451,6 +531,8 @@
EQUIVALENCE(H5T_flags(26), H5T_STR_NULLPAD_F)
EQUIVALENCE(H5T_flags(27), H5T_STR_SPACEPAD_F)
EQUIVALENCE(H5T_flags(28), H5T_STR_ERROR_F)
+ EQUIVALENCE(H5T_flags(29), H5T_VLEN_F)
+ EQUIVALENCE(H5T_flags(30), H5T_ARRAY_F)
END MODULE H5GLOBAL