diff options
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r-- | fortran/src/H5f90global.f90 | 55 |
1 files changed, 33 insertions, 22 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index c8e6649..e037d12 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -158,7 +158,7 @@ MODULE H5GLOBAL ! H5T_STD_REF_OBJ, & ! H5T_STD_REF_DSETREG !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /PREDEFINED_TYPES/ + !DEC$ATTRIBUTES DLLEXPORT :: /PREDEFINED_TYPES/ !DEC$endif COMMON /PREDEFINED_TYPES/ predef_types @@ -167,7 +167,7 @@ MODULE H5GLOBAL ! H5T_IEEE_F64BE, & ! H5T_IEEE_F64LE !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /FLOATING_TYPES/ + !DEC$ATTRIBUTES DLLEXPORT :: /FLOATING_TYPES/ !DEC$endif COMMON /FLOATING_TYPES/ floating_types ! @@ -188,7 +188,7 @@ MODULE H5GLOBAL ! H5T_STD_U64BE, & ! H5T_STD_U64LE !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /INTEGER_TYPES/ + !DEC$ATTRIBUTES DLLEXPORT :: /INTEGER_TYPES/ !DEC$endif COMMON /INTEGER_TYPES/ integer_types ! @@ -202,7 +202,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5F_FLAGS_LEN = 19 INTEGER H5F_flags(H5F_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5F_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5F_FLAGS/ !DEC$endif COMMON /H5F_FLAGS/ H5F_flags @@ -249,7 +249,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5generic_FLAGS_LEN = 9 INTEGER H5generic_flags(H5generic_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5generic_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5generic_FLAGS/ !DEC$endif COMMON /H5generic_FLAGS/ H5generic_flags @@ -280,7 +280,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5G_FLAGS_LEN = 12 INTEGER H5G_flags(H5G_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5G_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5G_FLAGS/ !DEC$endif COMMON /H5G_FLAGS/ H5G_flags @@ -317,10 +317,10 @@ MODULE H5GLOBAL ! H5D flags declaration ! - INTEGER, PARAMETER :: H5D_FLAGS_LEN = 19 + INTEGER, PARAMETER :: H5D_FLAGS_LEN = 22 INTEGER H5D_flags(H5D_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5D_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5D_FLAGS/ !DEC$endif COMMON /H5D_FLAGS/ H5D_flags @@ -348,6 +348,13 @@ MODULE H5GLOBAL INTEGER :: H5D_FILL_VALUE_DEFAULT_F INTEGER :: H5D_FILL_VALUE_USER_DEFINED_F +! shortened "_DEFAULT" to "_DFLT" to satisfy the limit of 31 +! characters for variable names in Fortran. + + INTEGER :: H5D_CHUNK_CACHE_NSLOTS_DFLT_F + INTEGER :: H5D_CHUNK_CACHE_NBYTES_DFLT_F + INTEGER :: H5D_CHUNK_CACHE_W0_DFLT_F + EQUIVALENCE(H5D_flags(1), H5D_COMPACT_F) EQUIVALENCE(H5D_flags(2), H5D_CONTIGUOUS_F) EQUIVALENCE(H5D_flags(3), H5D_CHUNKED_F) @@ -370,7 +377,11 @@ MODULE H5GLOBAL 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) + EQUIVALENCE(H5D_flags(19), H5D_FILL_VALUE_USER_DEFINED_F) + + EQUIVALENCE(H5D_flags(20), H5D_CHUNK_CACHE_NSLOTS_DFLT_F) + EQUIVALENCE(H5D_flags(21), H5D_CHUNK_CACHE_NBYTES_DFLT_F) + EQUIVALENCE(H5D_flags(22), H5D_CHUNK_CACHE_W0_DFLT_F) ! ! H5FD flags declaration @@ -378,7 +389,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5FD_FLAGS_LEN = 11 INTEGER H5FD_flags(H5FD_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5FD_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5FD_FLAGS/ !DEC$endif COMMON /H5FD_FLAGS/ H5FD_flags @@ -411,7 +422,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5FD_HID_FLAGS_LEN = 7 INTEGER(HID_T) H5FD_hid_flags(H5FD_HID_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5FD_HID_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5FD_HID_FLAGS/ !DEC$endif COMMON /H5FD_HID_FLAGS/ H5FD_hid_flags @@ -437,7 +448,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5I_FLAGS_LEN = 7 INTEGER H5I_flags(H5I_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5I_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5I_FLAGS/ !DEC$endif COMMON /H5I_FLAGS/ H5I_flags @@ -470,7 +481,7 @@ MODULE H5GLOBAL INTEGER :: H5L_LINK_CLASS_T_VERS_F !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5L_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5L_FLAGS/ !DEC$endif COMMON /H5L_FLAGS/ H5L_flags @@ -486,7 +497,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5O_FLAGS_LEN = 22 INTEGER :: H5o_flags(H5O_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5O_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5O_FLAGS/ !DEC$endif COMMON /H5O_FLAGS/ H5O_flags @@ -542,7 +553,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5P_FLAGS_LEN = 18 INTEGER(HID_T) H5P_flags(H5P_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/ !DEC$endif COMMON /H5P_FLAGS/ H5P_flags @@ -590,7 +601,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5P_FLAGS_INT_LEN = 2 INTEGER H5P_flags_int(H5P_FLAGS_INT_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5P_FLAGS_INT/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5P_FLAGS_INT/ !DEC$endif COMMON /H5P_FLAGS_INT/ H5P_flags_int INTEGER :: H5P_CRT_ORDER_INDEXED_F @@ -603,7 +614,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5R_FLAGS_LEN = 2 INTEGER H5R_flags(H5R_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5R_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5R_FLAGS/ !DEC$endif COMMON /H5R_FLAGS/ H5R_flags @@ -619,7 +630,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5S_FLAGS_LEN = 20 INTEGER H5S_flags(H5S_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5S_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5S_FLAGS/ !DEC$endif COMMON /H5S_FLAGS/ H5S_flags @@ -679,7 +690,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5T_FLAGS_LEN = 33 INTEGER H5T_flags(H5T_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/ !DEC$endif COMMON /H5T_FLAGS/ H5T_flags @@ -757,7 +768,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5Z_FLAGS_LEN = 14 INTEGER H5Z_flags(H5Z_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5Z_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5Z_FLAGS/ !DEC$endif COMMON /H5Z_FLAGS/ H5Z_flags @@ -798,7 +809,7 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 2 INTEGER :: H5LIB_flags(H5LIB_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) - !DEC$ ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/ + !DEC$ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/ !DEC$endif COMMON /H5LIB_FLAGS/ H5LIB_flags INTEGER :: H5_SZIP_EC_OM_F @@ -813,7 +824,7 @@ MODULE H5GLOBAL !!$ INTEGER, PARAMETER :: H5_FLAGS_LEN = 2 !!$ INTEGER H5_flags(H5_FLAGS_LEN) !!$!DEC$if defined(BUILD_HDF5_DLL) -!!$!DEC$ ATTRIBUTES DLLEXPORT :: /H5_FLAGS/ +!!$!DEC$ATTRIBUTES DLLEXPORT :: /H5_FLAGS/ !!$!DEC$endif !!$ COMMON /H5_FLAGS/ H5_flags !!$ |