diff options
Diffstat (limited to 'fortran/src/H5f90global.f90')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 330 |
1 files changed, 302 insertions, 28 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 078870b..55fbad1 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -72,34 +72,308 @@ EQUIVALENCE (integer_types(16), H5T_STD_U64LE) - COMMON /PREDEFINED_TYPES/ H5T_NATIVE_INTEGER, & - H5T_NATIVE_REAL, & - H5T_NATIVE_DOUBLE, & - H5T_NATIVE_CHARACTER, & - H5T_STD_REF_OBJ, & - H5T_STD_REF_DSETREG - - COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, & - H5T_IEEE_F32LE, & - H5T_IEEE_F64BE, & - H5T_IEEE_F64LE - - COMMON /INTEGER_TYPES/ H5T_STD_I8BE, & - H5T_STD_I8LE, & - H5T_STD_I16BE, & - H5T_STD_I16LE, & - H5T_STD_I32BE, & - H5T_STD_I32LE, & - H5T_STD_I64BE, & - H5T_STD_I64LE, & - H5T_STD_U8BE, & - H5T_STD_U8LE, & - H5T_STD_U16BE, & - H5T_STD_U16LE, & - H5T_STD_U32BE, & - H5T_STD_U32LE, & - H5T_STD_U64BE, & - H5T_STD_U64LE +! COMMON /PREDEFINED_TYPES/ H5T_NATIVE_INTEGER, & +! H5T_NATIVE_REAL, & +! H5T_NATIVE_DOUBLE, & +! H5T_NATIVE_CHARACTER, & +! H5T_STD_REF_OBJ, & +! H5T_STD_REF_DSETREG + COMMON /PREDEFINED_TYPES/ predef_types(PREDEF_TYPES_LEN) + +! COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, & +! H5T_IEEE_F32LE, & +! H5T_IEEE_F64BE, & +! H5T_IEEE_F64LE + COMMON /FLOATING_TYPES/ floatinig_types(FLOATING_TYPES_LEN) +! +! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, & +! H5T_STD_I8LE, & +! H5T_STD_I16BE, & +! H5T_STD_I16LE, & +! H5T_STD_I32BE, & +! H5T_STD_I32LE, & +! H5T_STD_I64BE, & +! H5T_STD_I64LE, & +! H5T_STD_U8BE, & +! H5T_STD_U8LE, & +! H5T_STD_U16BE, & +! H5T_STD_U16LE, & +! H5T_STD_U32BE, & +! H5T_STD_U32LE, & +! H5T_STD_U64BE, & +! H5T_STD_U64LE + COMMON /INTEGER_TYPES/ integer_types(INTEGER_TYPES_LEN) +! +! Fortran flags +! +! +! H5F flags (DO NOT FORGET TO UPDATE WHEN NEW FLAGS ARE ADDEDD !) +! +! H5F flags declaration +! + INTEGER, PARAMETER :: H5F_FLAGS_LEN = 7 + INTEGER H5F_flags(H5F_FLAGS_LEN) + COMMON /H5F_FLAGS/ H5F_flags + + INTEGER :: H5F_ACC_RDWR_F + INTEGER :: H5F_ACC_RDONLY_F + INTEGER :: H5F_ACC_TRUNC_F + INTEGER :: H5F_ACC_EXCL_F + INTEGER :: H5F_ACC_DEBUG_F + INTEGER :: H5F_SCOPE_LOCAL_F + INTEGER :: H5F_SCOPE_GLOBAL_F + + EQUIVALENCE(H5F_flags(1), H5F_ACC_RDWR_F) + EQUIVALENCE(H5F_flags(2), H5F_ACC_RDONLY_F) + EQUIVALENCE(H5F_flags(3), H5F_ACC_TRUNC_F) + EQUIVALENCE(H5F_flags(4), H5F_ACC_EXCL_F) + EQUIVALENCE(H5F_flags(5), H5F_ACC_DEBUG_F) + EQUIVALENCE(H5F_flags(6), H5F_SCOPE_LOCAL_F) + EQUIVALENCE(H5F_flags(7), H5F_SCOPE_GLOBAL_F) +! +! H5G flags declaration +! + INTEGER, PARAMETER :: H5G_FLAGS_LEN = 5 + INTEGER H5G_flags(H5G_FLAGS_LEN) + COMMON /H5G_FLAGS/ H5G_flags + + INTEGER :: H5G_UNKNOWN_F + INTEGER :: H5G_LINK_F + INTEGER :: H5G_GROUP_F + INTEGER :: H5G_DATASET_F + INTEGER :: H5G_TYPE_F + + EQUIVALENCE(H5G_flags(1), H5G_UNKNOWN_F) + EQUIVALENCE(H5G_flags(2), H5G_LINK_F) + EQUIVALENCE(H5G_flags(3), H5G_GROUP_F) + EQUIVALENCE(H5G_flags(4), H5G_DATASET_F) + EQUIVALENCE(H5G_flags(5), H5G_TYPE_F) +! +! H5D flags declaration +! + + INTEGER, PARAMETER :: H5D_FLAGS_LEN = 3 + INTEGER H5D_flags(H5D_FLAGS_LEN) + COMMON /H5D_FLAGS/ H5D_flags + + INTEGER :: H5D_COMPACT_F + INTEGER :: H5D_CONTIGUOUS_F + INTEGER :: H5D_CHUNKED_F + + EQUIVALENCE(H5D_flags(1), H5D_COMPACT_F) + EQUIVALENCE(H5D_flags(2), H5D_CONTIGUOUS_F) + EQUIVALENCE(H5D_flags(3), H5D_CHUNKED_F) + +! +! H5FD flags declaration +! + INTEGER, PARAMETER :: H5FD_FLAGS_LEN = 2 + INTEGER H5FD_flags(H5FD_FLAGS_LEN) + COMMON /H5FD_FLAGS/ H5FD_flags + + INTEGER :: H5FD_MPIO_INDEPENDENT_F + INTEGER :: H5FD_MPIO_COLLECTIVE_F + + EQUIVALENCE(H5FD_flags(1), H5FD_MPIO_INDEPENDENT_F) + EQUIVALENCE(H5FD_flags(2), H5FD_MPIO_COLLECTIVE_F) + +! +! H5E flags declaration +! + INTEGER, PARAMETER :: H5E_FLAGS_LEN = 23 + INTEGER H5E_flags(H5E_FLAGS_LEN) + 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_RAGGED_F + INTEGER :: H5E_REFERENCE_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_RAGGED_F) + EQUIVALENCE(H5E_flags(23), H5E_REFERENCE_F) + +! +! H5E flags declaration +! + INTEGER, PARAMETER :: H5I_FLAGS_LEN = 7 + INTEGER H5I_flags(H5I_FLAGS_LEN) + COMMON /H5I_FLAGS/ H5I_flags + + INTEGER :: H5I_FILE_F + INTEGER :: H5I_GROUP_F + INTEGER :: H5I_DATATYPE_F + INTEGER :: H5I_DATASPACE_F + INTEGER :: H5I_DATASET_F + INTEGER :: H5I_ATTR_F + INTEGER :: H5I_BADID_F + + EQUIVALENCE(H5I_flags(1), H5I_FILE_F) + EQUIVALENCE(H5I_flags(2), H5I_GROUP_F) + EQUIVALENCE(H5I_flags(3), H5I_DATATYPE_F) + EQUIVALENCE(H5I_flags(4), H5I_DATASPACE_F) + EQUIVALENCE(H5I_flags(5), H5I_DATASET_F) + EQUIVALENCE(H5I_flags(6), H5I_ATTR_F) + EQUIVALENCE(H5I_flags(7), H5I_BADID_F) + +! +! H5P flags declaration +! + INTEGER, PARAMETER :: H5P_FLAGS_LEN = 6 + INTEGER H5P_flags(H5P_FLAGS_LEN) + COMMON /H5P_FLAGS/ H5P_flags + + INTEGER :: H5P_FILE_CREATE_F + INTEGER :: H5P_FILE_ACCESS_F + INTEGER :: H5P_DATASET_CREATE_F + INTEGER :: H5P_DATASET_XFER_F + INTEGER :: H5P_MOUNT_F + INTEGER :: H5P_DEFAULT_F + + EQUIVALENCE(H5P_flags(1), H5P_FILE_CREATE_F) + EQUIVALENCE(H5P_flags(2), H5P_FILE_ACCESS_F) + EQUIVALENCE(H5P_flags(3), H5P_DATASET_CREATE_F) + EQUIVALENCE(H5P_flags(4), H5P_DATASET_XFER_F) + EQUIVALENCE(H5P_flags(5), H5P_MOUNT_F) + EQUIVALENCE(H5P_flags(6), H5P_DEFAULT_F) + +! +! H5P flags declaration +! + INTEGER, PARAMETER :: H5R_FLAGS_LEN = 2 + INTEGER H5R_flags(H5R_FLAGS_LEN) + COMMON /H5R_FLAGS/ H5R_flags + + INTEGER :: H5R_OBJECT_F + INTEGER :: H5R_DATASET_REGION_F + + EQUIVALENCE(H5R_flags(1), H5R_OBJECT_F) + EQUIVALENCE(H5R_flags(2), H5R_DATASET_REGION_F) + +! +! H5S flags declaration +! + INTEGER, PARAMETER :: H5S_FLAGS_LEN = 6 + INTEGER H5S_flags(H5S_FLAGS_LEN) + COMMON /H5S_FLAGS/ H5S_flags + + 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 + + EQUIVALENCE(H5S_flags(1), H5S_SCALAR_F) + EQUIVALENCE(H5S_flags(2), H5S_SIMPLE_F) + EQUIVALENCE(H5S_flags(3), H5S_SELECT_SET_F) + EQUIVALENCE(H5S_flags(4), H5S_SELECT_OR_F) + EQUIVALENCE(H5S_flags(5), H5S_UNLIMITED_F) + EQUIVALENCE(H5S_flags(6), H5S_ALL_F) + +! +! H5T flags declaration +! + INTEGER, PARAMETER :: H5T_FLAGS_LEN = 28 + INTEGER H5T_flags(H5T_FLAGS_LEN) + COMMON /H5T_FLAGS/ H5T_flags + + INTEGER :: H5T_NO_CLASS_F + INTEGER :: H5T_INTEGER_F + INTEGER :: H5T_FLOAT_F + INTEGER :: H5T_TIME_F + INTEGER :: H5T_STRING_F + INTEGER :: H5T_BITFIELD_F + INTEGER :: H5T_OPAQUE_F + INTEGER :: H5T_COMPOUND_F + INTEGER :: H5T_REFERENCE_F + INTEGER :: H5T_ENUM_F + INTEGER :: H5T_ORDER_LE_F + INTEGER :: H5T_ORDER_BE_F + INTEGER :: H5T_ORDER_VAX_F + INTEGER :: H5T_PAD_ZERO_F + INTEGER :: H5T_PAD_ONE_F + INTEGER :: H5T_PAD_BACKGROUND_F + INTEGER :: H5T_PAD_ERROR_F + INTEGER :: H5T_SGN_NONE_F + INTEGER :: H5T_SGN_2_F + INTEGER :: H5T_SGN_ERROR_F + INTEGER :: H5T_NORM_IMPLIED_F + INTEGER :: H5T_NORM_MSBSET_F + INTEGER :: H5T_NORM_NONE_F + INTEGER :: H5T_CSET_ASCII_F + INTEGER :: H5T_STR_NULLTERM_F + INTEGER :: H5T_STR_NULLPAD_F + INTEGER :: H5T_STR_SPACEPAD_F + INTEGER :: H5T_STR_ERROR_F + + EQUIVALENCE(H5T_flags(1), H5T_NO_CLASS_F) + EQUIVALENCE(H5T_flags(2), H5T_INTEGER_F) + EQUIVALENCE(H5T_flags(3), H5T_FLOAT_F) + EQUIVALENCE(H5T_flags(4), H5T_TIME_F) + EQUIVALENCE(H5T_flags(5), H5T_STRING_F) + EQUIVALENCE(H5T_flags(6), H5T_BITFIELD_F) + EQUIVALENCE(H5T_flags(7), H5T_OPAQUE_F) + EQUIVALENCE(H5T_flags(8), H5T_COMPOUND_F) + EQUIVALENCE(H5T_flags(9), H5T_REFERENCE_F) + EQUIVALENCE(H5T_flags(10), H5T_ENUM_F) + EQUIVALENCE(H5T_flags(11), H5T_ORDER_LE_F) + EQUIVALENCE(H5T_flags(12), H5T_ORDER_BE_F) + EQUIVALENCE(H5T_flags(13), H5T_ORDER_VAX_F) + EQUIVALENCE(H5T_flags(14), H5T_PAD_ZERO_F) + EQUIVALENCE(H5T_flags(15), H5T_PAD_ONE_F) + EQUIVALENCE(H5T_flags(16), H5T_PAD_BACKGROUND_F) + EQUIVALENCE(H5T_flags(17), H5T_PAD_ERROR_F) + EQUIVALENCE(H5T_flags(18), H5T_SGN_NONE_F) + EQUIVALENCE(H5T_flags(19), H5T_SGN_2_F) + EQUIVALENCE(H5T_flags(20), H5T_SGN_ERROR_F) + EQUIVALENCE(H5T_flags(21), H5T_NORM_IMPLIED_F) + EQUIVALENCE(H5T_flags(22), H5T_NORM_MSBSET_F) + EQUIVALENCE(H5T_flags(23), H5T_NORM_NONE_F) + EQUIVALENCE(H5T_flags(24), H5T_CSET_ASCII_F) + EQUIVALENCE(H5T_flags(25), H5T_STR_NULLTERM_F) + EQUIVALENCE(H5T_flags(26), H5T_STR_NULLPAD_F) + EQUIVALENCE(H5T_flags(27), H5T_STR_SPACEPAD_F) + EQUIVALENCE(H5T_flags(28), H5T_STR_ERROR_F) END MODULE H5GLOBAL |