[svn-r6464]

Purpose:
    Maintenance
Description:
        * Added support for generic properties.
        * Added support for time allocation properties.
        * Added support for variable length datatypes (only datatypes based
          on INTEGER, REAL and CHARACTER Fortran types are supported).
        * added some missing functions
Solution:
    I am checking in new Fortran APIs and their man pages to support
    1.5 features listed above.
    Not all APIs have tests yet. APIs were written in Fall 2002, and I am afraid
    that I will loose the code or totally forget what I did if I wait longer. ;-)
Platforms tested:
    arabica (fortran), eirene (fortran), modi4 (parallel, fortran)

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