From 1c26386c38115d605a79d8c57a5df0dd181b93f3 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Mon, 26 Sep 2022 22:50:09 -0500 Subject: Added C references to Fortran constants. (#2126) * added C references for Fortran APIs --- fortran/src/H5Aff.F90 | 58 ++++ fortran/src/H5Dff.F90 | 32 ++ fortran/src/H5Eff.F90 | 10 + fortran/src/H5Fff.F90 | 40 +++ fortran/src/H5Gff.F90 | 32 ++ fortran/src/H5Iff.F90 | 14 + fortran/src/H5Lff.F90 | 28 ++ fortran/src/H5Off.F90 | 38 +++ fortran/src/H5Pff.F90 | 270 ++++++++++++++++ fortran/src/H5Rff.F90 | 16 +- fortran/src/H5Sff.F90 | 60 ++++ fortran/src/H5Tff.F90 | 120 +++++++ fortran/src/H5VLff.F90 | 20 ++ fortran/src/H5Zff.F90 | 4 + fortran/src/H5_ff.F90 | 12 + fortran/src/H5f90global.F90 | 748 +++++++++++++++++++------------------------- 16 files changed, 1077 insertions(+), 425 deletions(-) diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90 index e167b7f..02db15f 100644 --- a/fortran/src/H5Aff.F90 +++ b/fortran/src/H5Aff.F90 @@ -136,6 +136,8 @@ CONTAINS !! \param acpl_id Attribute creation property list identifier !! \param aapl_id Attribute access property list identifier !! +!! See C API: @ref hid_t H5Acreate2(hid_t loc_id, const char *attr_name, hid_t type_id, hid_t space_id, hid_t acpl_id, hid_t aapl_id); +!! SUBROUTINE h5acreate_f(loc_id, name, type_id, space_id, attr_id, & hdferr, acpl_id, aapl_id ) IMPLICIT NONE @@ -191,6 +193,8 @@ CONTAINS !! \param attr_id Attribute identifier !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Aopen_name(hid_t loc_id, const char *name); +!! SUBROUTINE H5Aopen_name_f(obj_id, name, attr_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -228,6 +232,8 @@ CONTAINS !! \param attr_id Attribute identifier !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Aopen_idx(hid_t loc_id, unsigned idx); +!! SUBROUTINE H5Aopen_idx_f(obj_id, index, attr_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -258,6 +264,8 @@ CONTAINS !! \param space_id Attribite dataspace identifier !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Aget_space(hid_t attr_id); +!! SUBROUTINE H5Aget_space_f(attr_id, space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -286,6 +294,8 @@ CONTAINS !! \param type_id Attribute datatype identifier !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Aget_type(hid_t attr_id); +!! SUBROUTINE H5Aget_type_f(attr_id, type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -315,6 +325,8 @@ CONTAINS !! \param buf Buffer to read name in !! \param hdferr \fortran_error !! +!! See C API: @ref ssize_t H5Aget_name(hid_t attr_id, size_t buf_size, char *buf); +!! SUBROUTINE h5aget_name_f(attr_id, size, buf, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -360,6 +372,8 @@ CONTAINS !! \param size Size, in bytes, of attribute name !! \param lapl_id Link access property list !! +!! See C API: @ref ssize_t H5Aget_name_by_idx(hid_t loc_id, const char *obj_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, char *name, size_t size, hid_t lapl_id); +!! SUBROUTINE h5aget_name_by_idx_f(loc_id, obj_name, idx_type, order, & n, name, hdferr, size, lapl_id) IMPLICIT NONE @@ -420,6 +434,8 @@ CONTAINS !! \param attr_num Number of attributes attached to the object !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Aget_num_attrs(hid_t loc_id); +!! SUBROUTINE h5aget_num_attrs_f(obj_id, attr_num, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -447,6 +463,8 @@ CONTAINS !! !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Adelete(hid_t loc_id, const char *attr_name); +!! SUBROUTINE H5Adelete_f(obj_id, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -476,6 +494,8 @@ CONTAINS !! \param attr_id Attribute identifier !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Aclose(hid_t attr_id); +!! SUBROUTINE H5Aclose_f(attr_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -500,6 +520,8 @@ CONTAINS !! \param size Attribute storage size !! \param hdferr \fortran_error !! +!! See C API: @ref hsize_t H5Aget_storage_size(hid_t attr_id); +!! SUBROUTINE H5Aget_storage_size_f(attr_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -529,6 +551,8 @@ CONTAINS !! \param creation_prop_id Identifier for the attribute’s creation property !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Aget_create_plist(hid_t attr_id); +!! SUBROUTINE H5Aget_create_plist_f(attr_id, creation_prop_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -560,6 +584,8 @@ CONTAINS !! \param lapl_id Link access property list identifier !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Arename_by_name_async(const char *app_file, const char *app_func, unsigned app_line, hid_t loc_id, const char *obj_name, const char *old_attr_name, const char *new_attr_name, hid_t lapl_id, hid_t es_id); +!! SUBROUTINE H5Arename_by_name_f(loc_id, obj_name, old_attr_name, new_attr_name, & hdferr, lapl_id) IMPLICIT NONE @@ -619,6 +645,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param aapl_id Attribute access property list !! +!! See C API: @ref hid_t H5Aopen(hid_t obj_id, const char *attr_name, hid_t aapl_id); +!! SUBROUTINE H5Aopen_f(obj_id, attr_name, attr_id, hdferr, aapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -676,6 +704,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list !! +!! See C API: @ref herr_t H5Adelete_by_idx(hid_t loc_id, const char *obj_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, hid_t lapl_id); +!! SUBROUTINE H5Adelete_by_idx_f(loc_id, obj_name, idx_type, order, n, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -723,6 +753,8 @@ CONTAINS !! \param lapl_id Link access property list !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Adelete_by_name(hid_t loc_id, const char *obj_name, const char *attr_name, hid_t lapl_id); +!! SUBROUTINE H5Adelete_by_name_f(loc_id, obj_name, attr_name, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -784,6 +816,8 @@ CONTAINS !! \param aapl_id Attribute access property list. !! \param lapl_id Link access property list. !! +!! See C API: @ref hid_t H5Aopen_by_idx(hid_t loc_id, const char *obj_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, hid_t aapl_id, hid_t lapl_id); +!! SUBROUTINE H5Aopen_by_idx_f(loc_id, obj_name, idx_type, order, n, attr_id, hdferr, aapl_id, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -843,6 +877,8 @@ CONTAINS !! \param data_size Indicates the size, in the number of characters, of the attribute. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Aget_info(hid_t attr_id, H5A_info_t *ainfo ); +!! SUBROUTINE H5Aget_info_f(attr_id, f_corder_valid, corder, cset, data_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id @@ -891,6 +927,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list !! +!! See C API: @ref herr_t H5Aget_info_by_idx(hid_t loc_id, const char *obj_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, H5A_info_t *ainfo, hid_t lapl_id); +!! SUBROUTINE H5Aget_info_by_idx_f(loc_id, obj_name, idx_type, order, n, & f_corder_valid, corder, cset, data_size, hdferr, lapl_id) IMPLICIT NONE @@ -962,6 +1000,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list !! +!! See C API: @ref herr_t H5Aget_info_by_name(hid_t loc_id, const char *obj_name, const char *attr_name, H5A_info_t *ainfo, hid_t lapl_id); +!! SUBROUTINE H5Aget_info_by_name_f(loc_id, obj_name, attr_name, & f_corder_valid, corder, cset, data_size, hdferr, lapl_id) IMPLICIT NONE @@ -1031,6 +1071,8 @@ CONTAINS !! \param aapl_id Attribute access property list identifier (Currently not used.) !! \param lapl_id Link access property list !! +!! See C API: @ref hid_t H5Acreate_by_name(hid_t loc_id, const char *obj_name, const char *attr_name, hid_t type_id, hid_t space_id, hid_t acpl_id, hid_t aapl_id, hid_t lapl_id); +!! SUBROUTINE H5Acreate_by_name_f(loc_id, obj_name, attr_name, type_id, space_id, attr, hdferr, & acpl_id, aapl_id, lapl_id) IMPLICIT NONE @@ -1099,6 +1141,8 @@ CONTAINS !! \param attr_exists Attribute exists status !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Aexists(hid_t obj_id, const char *attr_name); +!! SUBROUTINE H5Aexists_f(obj_id, attr_name, attr_exists, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -1141,6 +1185,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list identifier !! +!! See C API: @ref htri_t H5Aexists_by_name(hid_t obj_id, const char *obj_name, const char *attr_name, hid_t lapl_id); +!! SUBROUTINE H5Aexists_by_name_f(loc_id, obj_name, attr_name, attr_exists, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -1196,6 +1242,8 @@ CONTAINS !! \param aapl_id Attribute access property list (Currently unused; should be passed in as H5P_DEFAULT.) !! \param lapl_id Link access property list identifier !! +!! See C API: @ref hid_t H5Aopen_by_name(hid_t loc_id, const char *obj_name, const char *attr_name, hid_t aapl_id, hid_t lapl_id); +!! SUBROUTINE H5Aopen_by_name_f(loc_id, obj_name, attr_name, attr_id, hdferr, aapl_id, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -1251,6 +1299,8 @@ CONTAINS !! \param new_attr_name New attribute name !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Arename(hid_t loc_id, const char *old_name, const char *new_name); +!! SUBROUTINE H5Arename_f(loc_id, old_attr_name, new_attr_name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -1297,6 +1347,8 @@ CONTAINS !! \param buf Data to be written. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Awrite(hid_t attr_id, hid_t type_id, const void *buf); +!! SUBROUTINE h5awrite_f(attr_id, memtype_id, buf, hdferr) INTEGER(HID_T) , INTENT(IN) :: attr_id INTEGER(HID_T) , INTENT(IN) :: memtype_id @@ -1318,6 +1370,8 @@ CONTAINS !! dim(k) has value of the k-th dimension of buffer buf; values are ignored if buf is a scalar. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Awrite(hid_t attr_id, hid_t type_id, const void *buf); +!! SUBROUTINE h5awrite_f(attr_id, memtype_id, buf, dims, hdferr) INTEGER(HID_T) , INTENT(IN) :: attr_id INTEGER(HID_T) , INTENT(IN) :: memtype_id @@ -1337,6 +1391,8 @@ CONTAINS !! \param buf Buffer for data to be read. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Aread(hid_t attr_id, hid_t type_id, void *buf); +!! SUBROUTINE h5aread_f(attr_id, memtype_id, buf, hdferr) INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1358,6 +1414,8 @@ CONTAINS !! dim(k) has value of the k-th dimension of buffer buf; values are ignored if buf is a scalar. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Aread(hid_t attr_id, hid_t type_id, void *buf); +!! SUBROUTINE h5aread_f(attr_id, memtype_id, buf, dims, hdferr) INTEGER(HID_T) , INTENT(IN) :: attr_id INTEGER(HID_T) , INTENT(IN) :: memtype_id diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90 index 35a959e..c4134e8 100644 --- a/fortran/src/H5Dff.F90 +++ b/fortran/src/H5Dff.F90 @@ -220,6 +220,8 @@ CONTAINS !! \param lcpl_id Link creation property list !! \param dapl_id Dataset access property list !! +!! See C API: @ref hid_t H5Dcreate2(hid_t loc_id, const char *name, hid_t type_id, hid_t space_id, hid_t lcpl_id, hid_t dcpl_id, hid_t dapl_id); +!! SUBROUTINE h5dcreate_f(loc_id, name, type_id, space_id, dset_id, & hdferr, dcpl_id, lcpl_id, dapl_id) IMPLICIT NONE @@ -285,6 +287,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param dapl_id Dataset access property list !! +!! See C API: @ref hid_t H5Dopen2(hid_t loc_id, const char *name, hid_t dapl_id); +!! SUBROUTINE h5dopen_f(loc_id, name, dset_id, hdferr, dapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -326,6 +330,8 @@ CONTAINS !! \param dset_id Dataset identifier !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Dclose(hid_t dset_id); +!! SUBROUTINE h5dclose_f(dset_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id @@ -353,6 +359,8 @@ CONTAINS !! \param datatype_id Dataspace identifier !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Dget_type(hid_t dset_id); +!! SUBROUTINE h5dget_type_f(dataset_id, datatype_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id @@ -380,6 +388,8 @@ CONTAINS !! \param size Array containing the new magnitude of each dimension !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Dset_extent(hid_t dset_id, const hsize_t size[]); +!! SUBROUTINE h5dset_extent_f(dataset_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id @@ -407,6 +417,8 @@ CONTAINS !! \param plist_id Creation property list identifier !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Dget_create_plist(hid_t dset_id); +!! SUBROUTINE h5dget_create_plist_f(dataset_id, plist_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id @@ -433,6 +445,8 @@ CONTAINS !! \param size Datastorage size !! \param hdferr \fortran_error !! +!! See C API: @ref hsize_t H5Dget_storage_size(hid_t dset_id); +!! SUBROUTINE h5dget_storage_size_f(dataset_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id @@ -495,6 +509,8 @@ CONTAINS !! \li H5D_SPACE_STS_ALLOCATED_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Dget_space_status(hid_t dset_id, H5D_space_status_t *allocation); +!! SUBROUTINE h5dget_space_status_f(dset_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id @@ -525,6 +541,8 @@ CONTAINS !! \param dcpl_id Dataset creation property list identifier. !! \param dapl_id Dataset access property list identifier. !! +!! See C API: @ref hid_t H5Dcreate_anon(hid_t loc_id, hid_t type_id, hid_t space_id, hid_t dcpl_id, hid_t dapl_id); +!! SUBROUTINE h5dcreate_anon_f(loc_id, type_id, space_id, dset_id, hdferr, dcpl_id, dapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -958,6 +976,8 @@ CONTAINS !! \param offset The offset in bytes. !! \param hdferr \fortran_error !! +!! See C API: @ref haddr_t H5Dget_offset(hid_t dset_id); +!! SUBROUTINE h5dget_offset_f(dset_id, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id @@ -987,6 +1007,8 @@ CONTAINS !! \param dataspace_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Dget_space(hid_t dset_id); +!! SUBROUTINE h5dget_space_f(dataset_id, dataspace_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id @@ -1013,6 +1035,8 @@ CONTAINS !! \param plist_id Dataset access property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Dget_access_plist(hid_t dset_id); +!! SUBROUTINE h5dget_access_plist_f(dset_id, plist_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id @@ -1042,6 +1066,8 @@ CONTAINS !! \param buf Pointer to the buffer to be reclaimed. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Dvlen_reclaim(hid_t type_id, hid_t space_id, hid_t dxpl_id, void *buf); +!! SUBROUTINE h5dvlen_reclaim_f(type_id, space_id, plist_id, buf, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1082,6 +1108,8 @@ CONTAINS !! \param file_space_id Identifier of the dataset's dataspace in the file. !! \param xfer_prp Identifier of a transfer property list for this I/O operation. !! +!! See C API: @ref herr_t H5Dwrite(hid_t dset_id, hid_t mem_type_id, hid_t mem_space_id, hid_t file_space_id, hid_t dxpl_id, const void *buf); +!! SUBROUTINE h5dwrite_f(dset_id, mem_type_id, buf, hdferr, mem_space_id, file_space_id, xfer_prp) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR IMPLICIT NONE @@ -1108,6 +1136,8 @@ CONTAINS !! \param file_space_id Identifier of dataset's dataspace in the file. (Default: H5S_ALL_F) !! \param xfer_prp Identifier of a transfer property list for this I/O operation. !! +!! See C API: @ref herr_t H5Dread(hid_t dset_id, hid_t mem_type_id, hid_t mem_space_id, hid_t file_space_id, hid_t dxpl_id, void *buf); +!! SUBROUTINE h5dread_f(dset_id, mem_type_id, buf, hdferr, mem_space_id, file_space_id, xfer_prp) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR IMPLICIT NONE @@ -1195,6 +1225,8 @@ CONTAINS !! \param buf Buffer to receive data read from file. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Dfill(const void *fill, hid_t fill_type_id, void *buf, hid_t buf_type_id, hid_t space_id); +!! SUBROUTINE h5dfill_f(fill_value, space_id, buf, hdferr) TYPE(TYPE), INTENT(IN) :: fill_value INTEGER(HID_T), INTENT(IN) :: space_id diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90 index 0d7a873..7e833ab 100644 --- a/fortran/src/H5Eff.F90 +++ b/fortran/src/H5Eff.F90 @@ -54,6 +54,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param estack_id Error Stack id !! +!! See C API: @ref herr_t H5Eclear2(hid_t err_stack); +!! SUBROUTINE h5eclear_f(hdferr, estack_id) IMPLICIT NONE INTEGER, INTENT(OUT) :: hdferr @@ -82,6 +84,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param name Name of the file that contains print output !! +!! See C API: @ref herr_t H5Eprint2(hid_t err_stack, FILE *stream); +!! SUBROUTINE h5eprint_f(hdferr, name) CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: name INTEGER, INTENT(OUT) :: hdferr @@ -118,6 +122,8 @@ CONTAINS !! \param namelen Number of characters in the name buffer. !! \param hdferr \fortran_error !! +!! See C API: @ref char *H5Eget_major(H5E_major_t maj); +!! SUBROUTINE h5eget_major_f(error_no, name, namelen, hdferr) INTEGER, INTENT(IN) :: error_no CHARACTER(LEN=*), INTENT(OUT) :: name @@ -145,6 +151,8 @@ CONTAINS !! \param name Character string describing the error. !! \param hdferr \fortran_error !! +!! See C API: @ref char *H5Eget_minor(H5E_minor_t min); +!! SUBROUTINE h5eget_minor_f(error_no, name, hdferr) INTEGER, INTENT(IN) :: error_no CHARACTER(LEN=*), INTENT(OUT) :: name @@ -173,6 +181,8 @@ CONTAINS !! \param client_data Data passed to the error function. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Eset_auto2(hid_t estack_id, H5E_auto2_t func, void *client_data); +!! SUBROUTINE h5eset_auto_f(printflag, hdferr, estack_id, func, client_data) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR INTEGER , INTENT(IN) :: printflag diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90 index 817dab0..713b9cf 100644 --- a/fortran/src/H5Fff.F90 +++ b/fortran/src/H5Fff.F90 @@ -73,6 +73,8 @@ CONTAINS !! \param creation_prp File creation property list identifier. !! \param access_prp File access property list identifier. !! +!! See C API: @ref hid_t H5Fcreate(const char *filename, unsigned flags, hid_t fcpl_id, hid_t fapl_id); +!! SUBROUTINE h5fcreate_f(name, access_flags, file_id, hdferr, & creation_prp, access_prp) IMPLICIT NONE @@ -121,6 +123,8 @@ CONTAINS !! \li H5F_SCOPE_LOCAL_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Fflush(hid_t object_id, H5F_scope_t scope); +!! SUBROUTINE h5fflush_f(object_id, scope, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: object_id @@ -150,6 +154,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param access_prp The identifier of the property list to be used. !! +!! See C API: @ref herr_t H5Fmount(hid_t loc, const char *name, hid_t child, hid_t plist); +!! SUBROUTINE h5fmount_f(loc_id, name, child_id, hdferr, access_prp) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -190,6 +196,8 @@ CONTAINS !! \param name The name of the mount point. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Funmount(hid_t loc, const char *name); +!! SUBROUTINE h5funmount_f(loc_id, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -225,6 +233,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param access_prp File access property list identifier. !! +!! See C API: @ref hid_t H5Fopen(const char *filename, unsigned flags, hid_t fapl_id); +!! SUBROUTINE h5fopen_f(name, access_flags, file_id, hdferr, access_prp) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: name @@ -264,6 +274,8 @@ CONTAINS !! \param ret_file_id New file identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Freopen(hid_t file_id); +!! SUBROUTINE h5freopen_f(file_id, ret_file_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -290,6 +302,8 @@ CONTAINS !! \param prop_id Creation property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Fget_create_plist(hid_t file_id); +!! SUBROUTINE h5fget_create_plist_f(file_id, prop_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -316,6 +330,8 @@ CONTAINS !! \param access_id Access property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Fget_access_plist(hid_t file_id); +!! SUBROUTINE h5fget_access_plist_f(file_id, access_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -344,6 +360,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param access_prp File access property list identifier. !! +!! See C API: @ref htri_t H5Fis_accessible(const char *container_name, hid_t fapl_id); +!! SUBROUTINE h5fis_accessible_f(name, status, hdferr, access_prp) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: name @@ -382,6 +400,8 @@ CONTAINS !! \param status Indicates if file is and HDF5 file. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Fis_hdf5(const char *file_name); +!! SUBROUTINE h5fis_hdf5_f(name, status, hdferr) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: name @@ -411,6 +431,8 @@ CONTAINS !! \param file_id File identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Fclose(hid_t file_id); +!! SUBROUTINE h5fclose_f(file_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -442,6 +464,8 @@ CONTAINS !! \param obj_count Number of open objects. !! \param hdferr \fortran_error !! +!! See C API: @ref ssize_t H5Fget_obj_count(hid_t file_id, unsigned types); +!! SUBROUTINE h5fget_obj_count_f(file_id, obj_type, obj_count, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -484,6 +508,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param num_objs Number of open objects. !! +!! See C API: @ref ssize_t H5Fget_obj_ids(hid_t file_id, unsigned types, size_t max_objs, hid_t *obj_id_list); +!! SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, max_objs, obj_ids, hdferr, num_objs) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -521,6 +547,8 @@ CONTAINS !! \param free_space Amount of free space in file. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Fget_freespace(hid_t file_id); +!! SUBROUTINE h5fget_freespace_f(file_id, free_space, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -549,6 +577,8 @@ CONTAINS !! \param size Actual size of the name. !! \param hdferr \fortran_error !! +!! See C API: @ref ssize_t H5Fget_name(hid_t obj_id, char *name, size_t size); +!! SUBROUTINE h5fget_name_f(obj_id, buf, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -581,6 +611,8 @@ CONTAINS !! \param size File size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Fget_filesize(hid_t file_id, hsize_t *size); +!! SUBROUTINE h5fget_filesize_f(file_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -607,6 +639,8 @@ CONTAINS !! \param fileno File number. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Fget_fileno(hid_t file_id, unsigned long *fileno); +!! SUBROUTINE h5fget_fileno_f(file_id, fileno, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id @@ -635,6 +669,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param buf_size Returns the size in bytes of the buffer required to store the file image, no data will be copied. !! +!! See C API: @ref ssize_t H5Fget_file_image(hid_t file_id, void *buf_ptr, size_t buf_len); +!! SUBROUTINE h5fget_file_image_f(file_id, buf_ptr, buf_len, hdferr, buf_size) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: file_id @@ -679,6 +715,8 @@ CONTAINS !! \param minimize Value of the setting. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Fget_dset_no_attrs_hint(hid_t file_id, hbool_t *minimize); +!! SUBROUTINE h5fget_dset_no_attrs_hint_f(file_id, minimize, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: file_id @@ -712,6 +750,8 @@ CONTAINS !! \param minimize Value of the setting. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Fset_dset_no_attrs_hint(hid_t file_id, hbool_t minimize); +!! SUBROUTINE h5fset_dset_no_attrs_hint_f(file_id, minimize, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: file_id diff --git a/fortran/src/H5Gff.F90 b/fortran/src/H5Gff.F90 index 10055bc..6e89ee6 100644 --- a/fortran/src/H5Gff.F90 +++ b/fortran/src/H5Gff.F90 @@ -58,6 +58,8 @@ CONTAINS !! \param gcpl_id Property list for group creation. !! \param gapl_id Property list for group access. !! +!! See C API: @ref hid_t H5Gcreate2(hid_t loc_id, const char *name, hid_t lcpl_id, hid_t gcpl_id, hid_t gapl_id); +!! SUBROUTINE h5gcreate_f(loc_id, name, grp_id, hdferr, size_hint, lcpl_id, gcpl_id, gapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -119,6 +121,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param gapl_id Group access property list identifier. !! +!! See C API: @ref hid_t H5Gopen2(hid_t loc_id, const char *name, hid_t gapl_id); +!! SUBROUTINE h5gopen_f(loc_id, name, grp_id, hdferr, gapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -157,6 +161,8 @@ CONTAINS !! \param grp_id Group identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Gclose(hid_t group_id); +!! SUBROUTINE h5gclose_f(grp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: grp_id @@ -266,6 +272,8 @@ CONTAINS !! \param new_name New name for the object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Glink(hid_t cur_loc_id, H5G_link_t type, const char *cur_name, const char *new_name); +!! SUBROUTINE h5glink_f(loc_id, link_type, current_name, & new_name, hdferr) IMPLICIT NONE @@ -316,6 +324,8 @@ CONTAINS !! \param new_name New name for the object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Glink2(hid_t cur_loc_id, const char *cur_name, H5G_link_t type, hid_t new_loc_id, const char *new_name); +!! SUBROUTINE h5glink2_f(cur_loc_id, cur_name, link_type, new_loc_id, & new_name, hdferr) IMPLICIT NONE @@ -362,6 +372,8 @@ CONTAINS !! \param name Name of the object to unlink. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Gunlink(hid_t loc_id, const char *name); +!! SUBROUTINE h5gunlink_f(loc_id, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -393,6 +405,8 @@ CONTAINS !! \param new_name Object's new name. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Gmove(hid_t src_loc_id, const char *src_name, const char *dst_name); +!! SUBROUTINE h5gmove_f(loc_id, name, new_name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -429,6 +443,8 @@ CONTAINS !! \param dst_name Object's new name. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Gmove2(hid_t src_loc_id, const char *src_name, hid_t dst_loc_id, const char *dst_name); +!! SUBROUTINE h5gmove2_f(src_loc_id, src_name, dst_loc_id, dst_name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: src_loc_id @@ -468,6 +484,8 @@ CONTAINS !! \param buffer A buffer to hold the name of the object being sought. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Gget_linkval(hid_t loc_id, const char *name, size_t size, char *buf ); +!! SUBROUTINE h5gget_linkval_f(loc_id, name, size, buffer, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -503,6 +521,8 @@ CONTAINS !! \param comment Comment to set for the object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Gset_comment(hid_t loc_id, const char *name, const char *comment); +!! SUBROUTINE h5gset_comment_f(loc_id, name, comment, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -540,6 +560,8 @@ CONTAINS !! \param buffer Buffer to hold object's comment. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Gget_comment(hid_t loc_id, const char *name, size_t bufsize, char *buf); +!! SUBROUTINE h5gget_comment_f(loc_id, name, size, buffer, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -576,6 +598,8 @@ CONTAINS !! \param gcpl_id Group creation property list identifier. !! \param gapl_id Group access property list identifier. !! +!! See C API: @ref hid_t H5Gcreate_anon(hid_t loc_id, hid_t gcpl_id, hid_t gapl_id); +!! SUBROUTINE h5Gcreate_anon_f(loc_id, grp_id, hdferr, gcpl_id, gapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -615,6 +639,8 @@ CONTAINS !! \param gcpl_id Group creation property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Gget_create_plist(hid_t group_id); +!! SUBROUTINE h5gget_create_plist_f(grp_id, gcpl_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: grp_id @@ -647,6 +673,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param mounted Whether group has a file mounted on it. !! +!! See C API: @ref herr_t H5Gget_info(hid_t loc_id, H5G_info_t *ginfo); +!! SUBROUTINE h5gget_info_f(group_id, storage_type, nlinks, max_corder, hdferr, mounted) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: group_id @@ -701,6 +729,8 @@ CONTAINS !! \param lapl_id Link access property list. !! \param mounted Whether group has a file mounted on it. !! +!! See C API: @ref herr_t H5Gget_info_by_idx(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, H5G_info_t *ginfo, hid_t lapl_id); +!! SUBROUTINE h5gget_info_by_idx_f(loc_id, group_name, index_type, order, n, & storage_type, nlinks, max_corder, hdferr, lapl_id, mounted) IMPLICIT NONE @@ -776,6 +806,8 @@ CONTAINS !! \param lapl_id Link access property list. !! \param mounted Whether group has a file mounted on it. !! +!! See C API: @ref herr_t H5Gget_info_by_name(hid_t loc_id, const char *name, H5G_info_t *ginfo, hid_t lapl_id); +!! SUBROUTINE h5gget_info_by_name_f(loc_id, group_name, & storage_type, nlinks, max_corder, hdferr, lapl_id, mounted) IMPLICIT NONE diff --git a/fortran/src/H5Iff.F90 b/fortran/src/H5Iff.F90 index b67d807..06f7f11 100644 --- a/fortran/src/H5Iff.F90 +++ b/fortran/src/H5Iff.F90 @@ -59,6 +59,8 @@ CONTAINS !! \li H5I_BADID_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5I_type_t H5Iget_type(hid_t id); +!! SUBROUTINE h5iget_type_f(obj_id, TYPE, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -86,6 +88,8 @@ CONTAINS !! \param name_size Name size. !! \param hdferr \fortran_error !! +!! See C API: @ref ssize_t H5Iget_name(hid_t id, char *name , size_t size); +!! SUBROUTINE h5iget_name_f(obj_id, buf, buf_size, name_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -117,6 +121,8 @@ CONTAINS !! \param ref_count Current reference count of the ID. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Iinc_ref(hid_t id); +!! SUBROUTINE h5iinc_ref_f(obj_id, ref_count, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -142,6 +148,8 @@ CONTAINS !! \param ref_count Current reference count of the ID. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Idec_ref(hid_t id); +!! SUBROUTINE h5idec_ref_f(obj_id, ref_count, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -167,6 +175,8 @@ CONTAINS !! \param ref_count Current reference count of the ID. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Iget_ref(hid_t id); +!! SUBROUTINE h5iget_ref_f(obj_id, ref_count, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -191,6 +201,8 @@ CONTAINS !! \param file_id File identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Iget_file_id(hid_t id); +!! SUBROUTINE h5iget_file_id_f(obj_id, file_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -215,6 +227,8 @@ CONTAINS !! \param valid Status of id as a valid identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Iis_valid(hid_t id); +!! SUBROUTINE h5iis_valid_f(id, valid, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: id diff --git a/fortran/src/H5Lff.F90 b/fortran/src/H5Lff.F90 index 2b4e569..7f7a62c 100644 --- a/fortran/src/H5Lff.F90 +++ b/fortran/src/H5Lff.F90 @@ -80,6 +80,8 @@ CONTAINS !! \param lcpl_id Link creation property list identifier. !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Lcopy(hid_t src_loc, const char *src_name, hid_t dst_loc, const char *dst_name, hid_t lcpl_id, hid_t lapl_id); +!! SUBROUTINE h5lcopy_f(src_loc_id, src_name, dest_loc_id, dest_name, hdferr, & lcpl_id, lapl_id) IMPLICIT NONE @@ -139,6 +141,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Ldelete(hid_t loc_id, const char *name, hid_t lapl_id); +!! SUBROUTINE h5ldelete_f(loc_id, name, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -181,6 +185,8 @@ CONTAINS !! \param lcpl_id Link creation property list identifier. !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Lcreate_soft(const char *link_target, hid_t link_loc_id, const char *link_name, hid_t lcpl_id, hid_t lapl_id); +!! SUBROUTINE h5lcreate_soft_f(target_path, link_loc_id, link_name, hdferr, lcpl_id, lapl_id) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: target_path @@ -240,6 +246,8 @@ CONTAINS !! \param lcpl_id Link creation property list identifier. !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Lcreate_hard(hid_t cur_loc, const char *cur_name, hid_t dst_loc, const char *dst_name, hid_t lcpl_id, hid_t lapl_id); +!! SUBROUTINE h5lcreate_hard_f(obj_loc_id, obj_name, link_loc_id, link_name, hdferr, lcpl_id, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_loc_id @@ -300,6 +308,8 @@ CONTAINS !! \param lcpl_id Link creation property list identifier. !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Lcreate_external(const char *file_name, const char *obj_name, hid_t link_loc_id, const char *link_name, hid_t lcpl_id, hid_t lapl_id); +!! SUBROUTINE h5lcreate_external_f(file_name, obj_name, link_loc_id, link_name, hdferr, lcpl_id, lapl_id) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: file_name @@ -372,6 +382,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list. !! +!! See C API: @ref herr_t H5Ldelete_by_idx(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, hid_t lapl_id); +!! SUBROUTINE h5ldelete_by_idx_f(loc_id, group_name, index_field, order, n, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -419,6 +431,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref htri_t H5Lexists(hid_t loc_id, const char *name, hid_t lapl_id); +!! SUBROUTINE h5lexists_f(loc_id, name, link_exists, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -479,6 +493,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list. !! +!! See C API: @ref herr_t H5Lget_info2(hid_t loc_id, const char *name, H5L_info2_t *linfo, hid_t lapl_id); +!! SUBROUTINE h5lget_info_f(link_loc_id, link_name, & cset, corder, f_corder_valid, link_type, token, val_size, & hdferr, lapl_id) @@ -567,6 +583,8 @@ CONTAINS !! !! \param lapl_id Link access property list. !! +!! See C API: @ref herr_t H5Lget_info_by_idx2(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, H5L_info2_t *linfo, hid_t lapl_id); +!! SUBROUTINE h5lget_info_by_idx_f(loc_id, group_name, index_field, order, n, & link_type, f_corder_valid, corder, cset, token, val_size, hdferr, lapl_id) IMPLICIT NONE @@ -634,6 +652,8 @@ CONTAINS !! \param registered .TRUE. if the link class has been registered. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Lis_registered(H5L_type_t id); +!! SUBROUTINE h5lis_registered_f(link_cls_id, registered, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: link_cls_id @@ -669,6 +689,8 @@ CONTAINS !! \param lcpl_id Link creation property list identifier to be associated WITH the NEW link. !! \param lapl_id Link access property list identifier to be associated WITH the NEW link. !! +!! See C API: @ref herr_t H5Lmove(hid_t src_loc, const char *src_name, hid_t dst_loc, const char *dst_name, hid_t lcpl_id, hid_t lapl_id); +!! SUBROUTINE h5lmove_f(src_loc_id, src_name, dest_loc_id, dest_name, hdferr, lcpl_id, lapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: src_loc_id @@ -741,6 +763,8 @@ CONTAINS !! \param lapl_id List access property list identifier. !! \param size Maximum number of characters of link value to be returned. !! +!! See C API: @ref ssize_t H5Lget_name_by_idx(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, char *name, size_t size, hid_t lapl_id); +!! SUBROUTINE h5lget_name_by_idx_f(loc_id, group_name, index_field, order, n, & name, hdferr, size, lapl_id) IMPLICIT NONE @@ -936,6 +960,8 @@ CONTAINS !! library, or the negative value returned by one of the operators. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Literate2(hid_t grp_id, H5_index_t idx_type, H5_iter_order_t order, hsize_t *idx, H5L_iterate2_t op, void *op_data); +!! SUBROUTINE h5literate_f(group_id, index_type, order, idx, op, op_data, return_value, hdferr) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR IMPLICIT NONE @@ -998,6 +1024,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list !! +!! See C API: @ref herr_t H5Literate_by_name2(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t *idx, H5L_iterate2_t op, void *op_data, hid_t lapl_id); +!! SUBROUTINE h5literate_by_name_f(loc_id, group_name, index_type, order, & idx, op, op_data, return_value, hdferr, lapl_id) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90 index 388e30e..274ebd5 100644 --- a/fortran/src/H5Off.F90 +++ b/fortran/src/H5Off.F90 @@ -151,6 +151,8 @@ CONTAINS !! \param lcpl_id Link creation property list identifier. !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Olink(hid_t obj_id, hid_t new_loc_id, const char *new_name, hid_t lcpl_id, hid_t lapl_id); +!! SUBROUTINE h5olink_f(object_id, new_loc_id, new_link_name, hdferr, lcpl_id, lapl_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: object_id @@ -202,6 +204,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Access property list identifier for the link pointing to the object. !! +!! See C API: @ref hid_t H5Oopen(hid_t loc_id, const char *name, hid_t lapl_id); +!! SUBROUTINE h5oopen_f(loc_id, name, obj_id, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id @@ -241,6 +245,8 @@ CONTAINS !! \param object_id Object identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Oclose(hid_t object_id); +!! SUBROUTINE h5oclose_f(object_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: object_id @@ -266,6 +272,8 @@ CONTAINS !! \param obj_id Object identifier for the opened object. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Oopen_by_token(hid_t loc_id, H5O_token_t token); +!! SUBROUTINE h5oopen_by_token_f(loc_id, token, obj_id, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id @@ -299,6 +307,8 @@ CONTAINS !! \param lcpl_id Link creation property list for the new hard link. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Ocopy(hid_t src_loc_id, const char *src_name, hid_t dst_loc_id, const char *dst_name, hid_t ocpypl_id, hid_t lcpl_id); +!! SUBROUTINE h5ocopy_f(src_loc_id, src_name, dst_loc_id, dst_name, hdferr, ocpypl_id, lcpl_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: src_loc_id @@ -351,6 +361,8 @@ CONTAINS !! \param object_id Object identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Odecr_refcount(hid_t object_id); +!! SUBROUTINE h5odecr_refcount_f(object_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: object_id @@ -381,6 +393,8 @@ CONTAINS !! \param link_exists Existing link resolves to an object. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Oexists_by_name(hid_t loc_id, const char *name, hid_t lapl_id); +!! SUBROUTINE h5oexists_by_name_f(loc_id, name, link_exists, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id @@ -436,6 +450,8 @@ CONTAINS !! \param comment The comment. !! \param hdferr \fortran_error !! +!! See C API: @ref ssize_t H5Oget_comment(hid_t obj_id, char *comment, size_t bufsize); +!! SUBROUTINE h5oget_comment_f(obj_id, comment, hdferr, bufsize) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: obj_id @@ -479,6 +495,8 @@ CONTAINS !! \param bufsize Size of the comment buffer. !! \param lapl_id File access property list identifier. !! +!! See C API: @ref ssize_t H5Oget_comment_by_name(hid_t loc_id, const char *name, char *comment, size_t bufsize, hid_t lapl_id); +!! SUBROUTINE h5oget_comment_by_name_f(loc_id, name, comment, hdferr, bufsize, lapl_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id @@ -529,6 +547,8 @@ CONTAINS !! \param obj_id Object identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Oincr_refcount(hid_t object_id); +!! SUBROUTINE h5oincr_refcount_f(obj_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -561,6 +581,8 @@ CONTAINS !! !! \param lapl_id Link access property list. !! +!! See C API: @ref hid_t H5Oopen_by_idx(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, hid_t lapl_id); +!! SUBROUTINE h5oopen_by_idx_f(loc_id, group_name, index_type, order, n, obj_id, & hdferr, lapl_id) IMPLICIT NONE @@ -611,6 +633,8 @@ CONTAINS !! \param comment The new comment. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Oset_comment(hid_t obj_id, const char *comment); +!! SUBROUTINE h5oset_comment_f(obj_id, comment, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: obj_id @@ -647,6 +671,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param lapl_id Link access property list identifier. !! +!! See C API: @ref herr_t H5Oset_comment_by_name(hid_t loc_id, const char *name, const char *comment, hid_t lapl_id); +!! SUBROUTINE h5oset_comment_by_name_f(loc_id, name, comment, hdferr, lapl_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id @@ -703,6 +729,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param fields Flags specifying the fields to include in object_info. !! +!! See C API: @ref herr_t H5Ovisit3(hid_t obj_id, H5_index_t idx_type, H5_iter_order_t order, H5O_iterate2_t op, void *op_data, unsigned fields); +!! SUBROUTINE h5ovisit_f(object_id, index_type, order, op, op_data, return_value, hdferr, fields) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: object_id @@ -756,6 +784,8 @@ CONTAINS !! \param lapl_id Link access property list. !! \param fields Flags specifying the fields to include in object_info. !! +!! See C API: @ref herr_t H5Oget_info_by_name3(hid_t loc_id, const char *name, H5O_info2_t *oinfo, unsigned fields, hid_t lapl_id); +!! SUBROUTINE h5oget_info_by_name_f(loc_id, name, object_info, hdferr, lapl_id, fields) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id @@ -809,6 +839,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param fields Flags specifying the fields to include in object_info. !! +!! See C API: @ref herr_t H5Oget_info3(hid_t loc_id, H5O_info2_t *oinfo, unsigned fields); +!! SUBROUTINE h5oget_info_f(object_id, object_info, hdferr, fields) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR @@ -857,6 +889,8 @@ CONTAINS !! \param fields Flags specifying the fields to include in object_info. !! !! Fortran2003 Interface: +!! See C API: @ref herr_t H5Oget_info_by_idx3(hid_t loc_id, const char *group_name, H5_index_t idx_type, H5_iter_order_t order, hsize_t n, H5O_info2_t *oinfo, unsigned fields, hid_t lapl_id); +!! SUBROUTINE h5oget_info_by_idx_f(loc_id, group_name, index_field, order, n, & object_info, hdferr, lapl_id, fields) @@ -929,6 +963,8 @@ CONTAINS !! \param lapl_id Link access property list identifier. !! \param fields Flags specifying the fields to include in object_info. !! +!! See C API: @ref herr_t H5Ovisit_by_name3(hid_t loc_id, const char *obj_name, H5_index_t idx_type, H5_iter_order_t order, H5O_iterate2_t op, void *op_data, unsigned fields, hid_t lapl_id); +!! SUBROUTINE h5ovisit_by_name_f(loc_id, object_name, index_type, order, op, op_data, & return_value, hdferr, lapl_id, fields) IMPLICIT NONE @@ -996,6 +1032,8 @@ CONTAINS !! \param cmp_value Returns 0 if tokens are equal, non-zero for unequal tokens. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Otoken_cmp(hid_t loc_id, const H5O_token_t *token1, const H5O_token_t *token2, int *cmp_value); +!! SUBROUTINE h5otoken_cmp_f(loc_id, token1, token2, cmp_value, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index e55dc58..10b9539 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -209,6 +209,8 @@ CONTAINS !! \param prp_id Property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Pcreate(hid_t cls_id); +!! SUBROUTINE h5pcreate_f(class, prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class @@ -237,6 +239,8 @@ CONTAINS !! \param flag Status flag. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_preserve(hid_t plist_id, hbool_t status); +!! SUBROUTINE h5pset_preserve_f(prp_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -267,6 +271,8 @@ CONTAINS !! \param flag Status flag. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Pget_preserve(hid_t plist_id); +!! SUBROUTINE h5pget_preserve_f(prp_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -298,6 +304,8 @@ CONTAINS !! \param classtype Property list class. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Pget_class(hid_t plist_id); +!! SUBROUTINE h5pget_class_f(prp_id, classtype, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -326,6 +334,8 @@ CONTAINS !! \param new_prp_id New property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Pcopy(hid_t plist_id); +!! SUBROUTINE h5pcopy_f(prp_id, new_prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -353,6 +363,8 @@ CONTAINS !! \param prp_id Identifier of the property list to terminate access to. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pclose(hid_t plist_id); +!! SUBROUTINE h5pclose_f(prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -380,6 +392,8 @@ CONTAINS !! \param dims Array with dimension sizes for each chunk. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_chunk(hid_t plist_id, int ndims, const hsize_t dim[/*ndims*/]); +!! SUBROUTINE h5pset_chunk_f(prp_id, ndims, dims, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -410,6 +424,8 @@ CONTAINS !! \param dims Array with dimension sizes for each chunk. !! \param hdferr Returns number of chunk dimensions if successful and -1 if fails. !! +!! See C API: @ref int H5Pget_chunk(hid_t plist_id, int max_ndims, hsize_t dim[] ); +!! SUBROUTINE h5pget_chunk_f(prp_id, ndims, dims, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -440,6 +456,8 @@ CONTAINS !! \param level Compression level. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_deflate(hid_t plist_id, unsigned level); +!! SUBROUTINE h5pset_deflate_f(prp_id, level, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -474,6 +492,8 @@ CONTAINS !! \param shhdr Shared object header version number. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_version(hid_t plist_id, unsigned *boot , unsigned *freelist /*out*/, unsigned *stab, unsigned *shhdr /*out*/); +!! SUBROUTINE h5pget_version_f(prp_id, boot, freelist, & stab, shhdr, hdferr) IMPLICIT NONE @@ -537,6 +557,8 @@ CONTAINS !! \param block_size Size of the user block in bytes. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_userblock(hid_t plist_id, hsize_t *size); +!! SUBROUTINE h5pget_userblock_f(prp_id, block_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -594,6 +616,8 @@ CONTAINS !! \param sizeof_size Size of an object length in bytes. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_sizes(hid_t plist_id, size_t *sizeof_addr , size_t *sizeof_size /*out*/); +!! SUBROUTINE h5pget_sizes_f(prp_id, sizeof_addr, sizeof_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -653,6 +677,8 @@ CONTAINS !! \param lk Symbol table node 1/2 size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_sym_k(hid_t plist_id, unsigned *ik , unsigned *lk /*out*/); +!! SUBROUTINE h5pget_sym_k_f(prp_id, ik, lk, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -708,6 +734,8 @@ CONTAINS !! \param ik Rank of chunked storage B-tree. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_istore_k(hid_t plist_id, unsigned *ik ); +!! SUBROUTINE h5pget_istore_k_f(prp_id, ik, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -735,6 +763,8 @@ CONTAINS !! \param driver Low-level driver identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Pget_driver(hid_t plist_id); +!! SUBROUTINE h5pget_driver_f(prp_id, driver, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -811,6 +841,8 @@ CONTAINS !! \param alignment Alignment value. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_alignment(hid_t fapl_id, hsize_t threshold, hsize_t alignment); +!! SUBROUTINE h5pset_alignment_f(prp_id, threshold, alignment, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -841,6 +873,8 @@ CONTAINS !! \param alignment Alignment value. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_alignment(hid_t fapl_id, hsize_t *threshold , hsize_t *alignment /*out*/); +!! SUBROUTINE h5pget_alignment_f(prp_id, threshold, alignment, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -999,6 +1033,8 @@ CONTAINS !! \param rdcc_w0 Preemption policy (0 or 1). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_cache(hid_t plist_id, int mdc_nelmts, size_t rdcc_nslots, size_t rdcc_nbytes, double rdcc_w0); +!! SUBROUTINE h5pset_cache_f(prp_id, mdc_nelmts,rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1035,6 +1071,8 @@ CONTAINS !! \param rdcc_w0 Preemption policy (0 or 1). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_cache(hid_t plist_id, int *mdc_nelmts, /* out */ size_t *rdcc_nslots, size_t *rdcc_nbytes /*out*/, double *rdcc_w0); +!! SUBROUTINE h5pget_cache_f(prp_id, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1136,6 +1174,8 @@ CONTAINS !! \param gc_reference Flag for setting garbage collection on and off (1 or 0) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_gc_references(hid_t fapl_id, unsigned *gc_ref ); +!! SUBROUTINE h5pget_gc_references_f(prp_id, gc_reference, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1229,6 +1269,8 @@ CONTAINS !! \param cd_values Auxiliary data for the filter. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_filter(hid_t plist_id, H5Z_filter_t filter, unsigned int flags, size_t cd_nelmts, const unsigned int c_values[]); +!! SUBROUTINE h5pset_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1295,6 +1337,8 @@ CONTAINS !! \param name Buffer to retrieve filter name. !! \param hdferr \fortran_error !! +!! See C API: @ref H5Z_filter_t H5Pget_filter2(hid_t plist_id, unsigned idx, unsigned int *flags , size_t *cd_nelmts, unsigned cd_values[] /*out*/, size_t namelen, char name[], unsigned *filter_config); +!! SUBROUTINE h5pget_filter_f(prp_id, filter_number, flags, cd_nelmts, cd_values, namelen, name, filter_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1343,6 +1387,8 @@ CONTAINS !! \param bytes Size of the external file data. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_external(hid_t plist_id, const char *name, off_t offset, hsize_t size); +!! SUBROUTINE h5pset_external_f(prp_id, name, offset, bytes, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1410,6 +1456,8 @@ CONTAINS !! \param bytes Size of the external file data. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_external(hid_t plist_id, unsigned idx, size_t name_size, char *name , off_t *offset, hsize_t *size /*out*/); +!! SUBROUTINE h5pget_external_f(prp_id, idx, name_size, name, offset,bytes, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1448,6 +1496,8 @@ CONTAINS !! \param right The B-tree split ratio for right-most nodes. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_btree_ratios(hid_t plist_id, double left, double middle, double right); +!! SUBROUTINE h5pset_btree_ratios_f(prp_id, left, middle, right, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1481,6 +1531,8 @@ CONTAINS !! \param right The B-tree split ratio for right-most nodes. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_btree_ratios(hid_t plist_id, double *left , double *middle /*out*/, double *right); +!! SUBROUTINE h5pget_btree_ratios_f(prp_id, left, middle, right, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1516,6 +1568,8 @@ CONTAINS !! \li H5F_CLOSE_STRONG_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fclose_degree(hid_t fapl_id, H5F_close_degree_t *degree); +!! SUBROUTINE h5pget_fclose_degree_f(fapl_id, degree, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id @@ -1548,6 +1602,8 @@ CONTAINS !! \li H5F_CLOSE_STRONG_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fclose_degree(hid_t fapl_id, H5F_close_degree_t degree); +!! SUBROUTINE h5pset_fclose_degree_f(fapl_id, degree, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id @@ -1577,6 +1633,8 @@ CONTAINS !! \param flag Flag, Possible values: .TRUE. or .FALSE. !! \param hdferr: \fortran_error and flag is set to .FALSE. !! +!! See C API: @ref htri_t H5Pequal(hid_t id1, hid_t id2); +!! SUBROUTINE h5pequal_f(plist1_id, plist2_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist1_id @@ -1610,6 +1668,8 @@ CONTAINS !! \param size Buffer size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_buffer(hid_t plist_id, size_t size, void *tconv, void *bkg); +!! SUBROUTINE h5pset_buffer_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1638,6 +1698,8 @@ CONTAINS !! \param size Buffer size. !! \param hdferr \fortran_error !! +!! See C API: @ref size_t H5Pget_buffer(hid_t plist_id, void **tconv , void **bkg /*out*/); +!! SUBROUTINE h5pget_buffer_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1670,6 +1732,8 @@ CONTAINS !! \li H5D_FILL_VALUE_USER_DEFINED_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pfill_value_defined(hid_t plist, H5D_fill_value_t *status); +!! SUBROUTINE h5pfill_value_defined_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1703,6 +1767,8 @@ CONTAINS !! \li H5D_ALLOC_TIME_INCR_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_alloc_time(hid_t plist_id, H5D_alloc_time_t alloc_time); +!! SUBROUTINE h5pset_alloc_time_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1736,6 +1802,8 @@ CONTAINS !! \li H5D_ALLOC_TIME_INCR_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_alloc_time(hid_t plist_id, H5D_alloc_time_t *alloc_time ); +!! SUBROUTINE h5pget_alloc_time_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1767,6 +1835,8 @@ CONTAINS !! \li H5D_FILL_TIME_NEVER_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fill_time(hid_t plist_id, H5D_fill_time_t fill_time); +!! SUBROUTINE h5pset_fill_time_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1799,6 +1869,8 @@ CONTAINS !! \li H5D_FILL_TIME_NEVER_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fill_time(hid_t plist_id, H5D_fill_time_t *fill_time ); +!! SUBROUTINE h5pget_fill_time_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1827,6 +1899,8 @@ CONTAINS !! \param size Metadata block size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_meta_block_size(hid_t fapl_id, hsize_t size); +!! SUBROUTINE h5pset_meta_block_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1854,6 +1928,8 @@ CONTAINS !! \param size Metadata block size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_meta_block_size(hid_t fapl_id, hsize_t *size); +!! SUBROUTINE h5pget_meta_block_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1881,6 +1957,8 @@ CONTAINS !! \param size Sieve buffer size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_sieve_buf_size(hid_t fapl_id, size_t size); +!! SUBROUTINE h5pset_sieve_buf_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1908,6 +1986,8 @@ CONTAINS !! \param size Sieve buffer size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_sieve_buf_size(hid_t fapl_id, size_t *size ); +!! SUBROUTINE h5pget_sieve_buf_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1935,6 +2015,8 @@ CONTAINS !! \param size Small raw data block size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_small_data_block_size(hid_t fapl_id, hsize_t size); +!! SUBROUTINE h5pset_small_data_block_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1962,6 +2044,8 @@ CONTAINS !! \param size Small raw data block size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_small_data_block_size(hid_t fapl_id, hsize_t *size ); +!! SUBROUTINE h5pget_small_data_block_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -1989,6 +2073,8 @@ CONTAINS !! \param size Vector size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_hyper_vector_size(hid_t plist_id, size_t size); +!! SUBROUTINE h5pset_hyper_vector_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -2016,6 +2102,8 @@ CONTAINS !! \param size Vector size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_hyper_vector_size(hid_t fapl_id, size_t *size ); +!! SUBROUTINE h5pget_hyper_vector_size_f(plist_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -2044,6 +2132,8 @@ CONTAINS !! \param flag Logical flag. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Pexist(hid_t plist_id, const char *name); +!! SUBROUTINE h5pexist_f(prp_id, name, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2082,6 +2172,8 @@ CONTAINS !! \param size Size of property in bytes. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_size(hid_t id, const char *name, size_t *size); +!! SUBROUTINE h5pget_size_f(prp_id, name, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2115,6 +2207,8 @@ CONTAINS !! \param nprops Number of properties in property object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_nprops(hid_t id, size_t *nprops); +!! SUBROUTINE h5pget_nprops_f(prp_id, nprops, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2144,6 +2238,8 @@ CONTAINS !! truncated to fit into provided user buffer. !! \param hdferr \fortran_error !! +!! See C API: @ref char *H5Pget_class_name(hid_t pclass_id); +!! SUBROUTINE h5pget_class_name_f(prp_id, name, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2181,6 +2277,8 @@ CONTAINS !! \param parent_id Identifier of the parent class. !! \param hdferr: \fortran_error !! +!! See C API: @ref hid_t H5Pget_class_parent(hid_t pclass_id); +!! SUBROUTINE h5pget_class_parent_f(prp_id, parent_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2208,6 +2306,8 @@ CONTAINS !! \param flag TRUE. if a member, .FALSE. otherwise. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Pisa_class(hid_t plist_id, hid_t pclass_id); +!! SUBROUTINE h5pisa_class_f(plist, pclass, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist @@ -2241,6 +2341,8 @@ CONTAINS !! \param name Name of the property to copy. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pcopy_prop(hid_t dst_id, hid_t src_id, const char *name); +!! SUBROUTINE h5pcopy_prop_f(dst_id, src_id, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dst_id @@ -2274,6 +2376,8 @@ CONTAINS !! \param name Name of the property to remove. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Premove(hid_t plist_id, const char *name); +!! SUBROUTINE h5premove_f(plid, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plid @@ -2305,6 +2409,8 @@ CONTAINS !! \param name Name of the property to remove. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Punregister(hid_t pclass_id, const char *name); +!! SUBROUTINE h5punregister_f(class, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class @@ -2335,6 +2441,8 @@ CONTAINS !! \param class Property list class identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pclose_class(hid_t plist_id); +!! SUBROUTINE h5pclose_class_f(class, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class @@ -2358,6 +2466,8 @@ CONTAINS !! \param prp_id Dataset creation property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_shuffle(hid_t plist_id); +!! SUBROUTINE h5pset_shuffle_f(prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2385,6 +2495,8 @@ CONTAINS !! \li H5Z_ENABLE_EDC_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_edc_check(hid_t plist_id, H5Z_EDC_t check); +!! SUBROUTINE h5pset_edc_check_f(prp_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2414,6 +2526,8 @@ CONTAINS !! \li H5Z_ENABLE_EDC_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5Z_EDC_t H5Pget_edc_check(hid_t plist_id); +!! SUBROUTINE h5pget_edc_check_f(prp_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2440,6 +2554,8 @@ CONTAINS !! \param prp_id Dataset creation property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fletcher32(hid_t plist_id); +!! SUBROUTINE h5pset_fletcher32_f(prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2465,6 +2581,8 @@ CONTAINS !! \param offset File offset. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_family_offset(hid_t fapl_id, hsize_t offset); +!! SUBROUTINE h5pset_family_offset_f(prp_id, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2667,6 +2785,8 @@ CONTAINS !! \param pixels_per_block Szip parameters. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_szip(hid_t plist_id, unsigned options_mask, unsigned pixels_per_block); +!! SUBROUTINE h5pset_szip_f(prp_id, options_mask, pixels_per_block, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2697,6 +2817,8 @@ CONTAINS !! \param flag .TRUE. if all filters are available, .FALSE. otherwise. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Pall_filters_avail(hid_t plist_id); +!! SUBROUTINE h5pall_filters_avail_f(prp_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2733,6 +2855,8 @@ CONTAINS !! \param name Buffer to retrieve filter name. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_filter_by_id2(hid_t plist_id, H5Z_filter_t filter_id, unsigned int *flags , size_t *cd_nelmts, unsigned cd_values[] /*out*/, size_t namelen, char name[], unsigned *filter_config /*out*/); +!! SUBROUTINE h5pget_filter_by_id_f(prp_id, filter_id, flags, cd_nelmts, cd_values, namelen, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2776,6 +2900,8 @@ CONTAINS !! \param cd_values Auxiliary data for the filter. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pmodify_filter(hid_t plist_id, H5Z_filter_t filter, unsigned int flags, size_t cd_nelmts, const unsigned int cd_values[/*cd_nelmts*/]); +!! SUBROUTINE h5pmodify_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2809,6 +2935,8 @@ CONTAINS !! \param filter Filter to be removed. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Premove_filter(hid_t plist_id, H5Z_filter_t filter); +!! SUBROUTINE h5premove_filter_f(prp_id, filter, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -2837,6 +2965,8 @@ CONTAINS !! \param min_dense Minimum number of attributes to be stored in dense storage (Default: 6). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_attr_phase_change(hid_t plist_id, unsigned *max_compact, unsigned *min_dense); +!! SUBROUTINE h5pget_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: ocpl_id @@ -2867,6 +2997,8 @@ CONTAINS !! \param crt_order_flags Flags specifying whether to track and index attribute creation order. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_attr_creation_order(hid_t plist_id, unsigned crt_order_flags); +!! SUBROUTINE h5pset_attr_creation_order_f(ocpl_id, crt_order_flags , hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: ocpl_id @@ -2895,6 +3027,8 @@ CONTAINS !! \param nindexes Number of shared object header message indexes to be available in files created with this property list. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_shared_mesg_nindexes(hid_t plist_id, unsigned nindexes); +!! SUBROUTINE h5pset_shared_mesg_nindexes_f( plist_id, nindexes, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -2928,6 +3062,8 @@ CONTAINS !! \param min_mesg_size Minimum message size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_shared_mesg_index(hid_t plist_id, unsigned index_num, unsigned mesg_type_flags, unsigned min_mesg_size); +!! SUBROUTINE h5pset_shared_mesg_index_f(fcpl_id, index_num, mesg_type_flags, min_mesg_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fcpl_id @@ -2962,6 +3098,8 @@ CONTAINS !! \param crt_order_flags Flags specifying whether to track and index attribute creation order. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_attr_creation_order(hid_t plist_id, unsigned *crt_order_flags); +!! SUBROUTINE h5pget_attr_creation_order_f(ocpl_id, crt_order_flags, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: ocpl_id @@ -2995,6 +3133,8 @@ CONTAINS !! \param hdferr \fortran_error !! !! Fortran Interface: +!! See C API: @ref herr_t H5Pget_libver_bounds(hid_t plist_id, H5F_libver_t *low, H5F_libver_t *high); +!! SUBROUTINE h5pget_libver_bounds_f(fapl_id, low, high, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id @@ -3037,6 +3177,8 @@ CONTAINS !! \param high The latest version of the library that will be used for writing objects. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_libver_bounds(hid_t plist_id, H5F_libver_t low, H5F_libver_t high); +!! SUBROUTINE h5pset_libver_bounds_f(fapl_id, low, high, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id @@ -3074,6 +3216,8 @@ CONTAINS !! \param crt_order_flags Creation order flag(s). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_link_creation_order(hid_t plist_id, unsigned crt_order_flags); +!! SUBROUTINE h5pset_link_creation_order_f(gcpl_id, crt_order_flags, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3104,6 +3248,8 @@ CONTAINS !! \param min_dense Minimum number of attributes to be stored in dense storage. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_link_phase_change(hid_t plist_id, unsigned *max_compact , unsigned *min_dense); +!! SUBROUTINE h5pget_link_phase_change_f(gcpl_id, max_compact, min_dense, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3134,6 +3280,8 @@ CONTAINS !! \param flag Object timestamp setting, .TRUE. or .FALSE. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_obj_track_times(hid_t plist_id, hbool_t *track_times); +!! SUBROUTINE h5pget_obj_track_times_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3166,6 +3314,8 @@ CONTAINS !! \param flag Object timestamp setting, .TRUE. or .FALSE. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_obj_track_times(hid_t plist_id, hbool_t track_times); +!! SUBROUTINE h5pset_obj_track_times_f(plist_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3229,6 +3379,8 @@ CONTAINS !! \param crt_order_flags Creation order flag(s). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_link_creation_order(hid_t plist_id, unsigned *crt_order_flags /* out */); +!! SUBROUTINE h5pget_link_creation_order_f(gcpl_id, crt_order_flags, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3260,6 +3412,8 @@ CONTAINS !! \li H5T_CSET_UTF8_F -> UTF-8 Unicode encoding !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_char_encoding(hid_t plist_id, H5T_cset_t encoding); +!! SUBROUTINE h5pset_char_encoding_f(plist_id, encoding, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3291,6 +3445,8 @@ CONTAINS !! \li H5T_CSET_UTF8_F -> UTF-8 Unicode encoding !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_char_encoding(hid_t plist_id, H5T_cset_t *encoding ); +!! SUBROUTINE h5pget_char_encoding_f(plist_id, encoding, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3321,6 +3477,8 @@ CONTAINS !! \param copy_options Copy option(s) to be set. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_copy_object(hid_t plist_id, unsigned copy_options); +!! SUBROUTINE h5pset_copy_object_f(ocp_plist_id, copy_options, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: ocp_plist_id @@ -3349,6 +3507,8 @@ CONTAINS !! \param copy_options Copy option(s) to be get. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_copy_object(hid_t plist_id, unsigned *copy_options ); +!! SUBROUTINE h5pget_copy_object_f(ocp_plist_id, copy_options, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: ocp_plist_id @@ -3381,6 +3541,8 @@ CONTAINS !! Failure: -1 !! \param size Registered size of the transform expression !! +!! See C API: @ref ssize_t H5Pget_data_transform(hid_t plist_id, char *expression , size_t size); +!! SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3421,6 +3583,8 @@ SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) !! \param expression Buffer to hold transform expression. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_data_transform(hid_t plist_id, const char *expression); +!! SUBROUTINE h5pset_data_transform_f(plist_id, expression, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3454,6 +3618,8 @@ SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) !! \param size_hint Hint for size of local heap. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_local_heap_size_hint(hid_t plist_id, size_t *size_hint ); +!! SUBROUTINE h5pget_local_heap_size_hint_f(gcpl_id, size_hint, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3483,6 +3649,8 @@ SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) !! \param est_name_len Estimated average length of link names. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_est_link_info(hid_t plist_id, unsigned *est_num_entries /* out */, unsigned *est_name_len /* out */); +!! SUBROUTINE h5pget_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3513,6 +3681,8 @@ SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) !! \param size_hint Hint for size of local heap. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_local_heap_size_hint(hid_t plist_id, size_t size_hint); +!! SUBROUTINE h5pset_local_heap_size_hint_f(gcpl_id, size_hint, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3542,6 +3712,8 @@ SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) !! \param est_name_len Estimated average length of link names. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_est_link_info(hid_t plist_id, unsigned est_num_entries, unsigned est_name_len); +!! SUBROUTINE h5pset_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3573,6 +3745,8 @@ SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size) !! \param min_dense Minimum number of attributes to be stored in dense storage. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_link_phase_change(hid_t plist_id, unsigned max_compact, unsigned min_dense); +!! SUBROUTINE h5pset_link_phase_change_f(gcpl_id, max_compact, min_dense, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: gcpl_id @@ -3670,6 +3844,8 @@ SUBROUTINE h5pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdfer !! \param min_dense Minimum number of attributes to be stored in dense storage, (Default: 6). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_attr_phase_change(hid_t plist_id, unsigned max_compact, unsigned min_dense); +!! SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: ocpl_id @@ -3700,6 +3876,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param plist_id Dataset creation property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_nbit(hid_t plist_id); +!! SUBROUTINE h5pset_nbit_f(plist_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3730,6 +3908,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param scale_factor Parameter related to scale. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_scaleoffset(hid_t plist_id, H5Z_SO_scale_type_t scale_type, int scale_factor); +!! SUBROUTINE h5pset_scaleoffset_f(plist_id, scale_type, scale_factor, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3761,6 +3941,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param nlinks Maximum number of links to traverse. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_nlinks(hid_t plist_id, size_t nlinks); +!! SUBROUTINE h5pset_nlinks_f(lapl_id, nlinks, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: lapl_id @@ -3789,6 +3971,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param nlinks Maximum number of links to traverse. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_nlinks(hid_t plist_id, size_t *nlinks); +!! SUBROUTINE h5pget_nlinks_f(lapl_id, nlinks, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: lapl_id @@ -3862,6 +4046,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param rdcc_w0 The chunk preemption policy for this dataset. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_chunk_cache(hid_t dapl_id, size_t rdcc_nslots, size_t rdcc_nbytes, double rdcc_w0); +!! SUBROUTINE h5pset_chunk_cache_f(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dapl_id @@ -3897,6 +4083,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param rdcc_w0 Preemption policy. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_chunk_cache(hid_t dapl_id, size_t *rdcc_nslots , size_t *rdcc_nbytes /*out*/, double *rdcc_w0); +!! SUBROUTINE h5pget_chunk_cache_f(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dapl_id @@ -3933,6 +4121,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param fillvalue Fillvalue. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fill_value(hid_t plist_id, hid_t type_id, const void *value); +!! SUBROUTINE h5pset_fill_value_f(prp_id, type_id, fillvalue, hdferr) INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HID_T), INTENT(IN) :: type_id @@ -3952,6 +4142,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param fillvalue Fillvalue. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fill_value(hid_t plist_id, hid_t type_id, void *value ); +!! SUBROUTINE h5pget_fill_value_f(prp_id, type_id, fillvalue, hdferr) INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HID_T), INTENT(IN) :: type_id @@ -3971,6 +4163,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param fillvalue Fillvalue. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fill_value(hid_t plist_id, hid_t type_id, const void *value); +!! SUBROUTINE h5pset_fill_value_f(prp_id, type_id, fillvalue, hdferr) INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HID_T), INTENT(IN) :: type_id @@ -3990,6 +4184,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param fillvalue Fillvalue. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fill_value(hid_t plist_id, hid_t type_id, void *value ); +!! SUBROUTINE h5pget_fill_value_f(prp_id, type_id, fillvalue, hdferr) INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HID_T), INTENT(IN) :: type_id @@ -4009,6 +4205,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param value Pointer to value to set the property to. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset(hid_t plist_id, const char *name, const void *value); +!! SUBROUTINE h5pset_f(prp_id, name, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name @@ -4032,6 +4230,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li CHARACTER(LEN=*) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset(hid_t plist_id, const char *name, const void *value); +!! SUBROUTINE h5pset_f(prp_id, name, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name @@ -4055,6 +4255,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li CHARACTER(LEN=*) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset(hid_t plist_id, const char *name, const void *value); +!! SUBROUTINE h5pset_f(prp_id, name, value, hdferr) INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name @@ -4073,6 +4275,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param value Pointer to a location to which to copy the value of of the property. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget(hid_t plist_id, const char *name, void *value); +!! SUBROUTINE h5pget_f(prp_id, name, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name @@ -4096,6 +4300,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li CHARACTER(LEN=*) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget(hid_t plist_id, const char *name, void *value); +!! SUBROUTINE h5pget_f(prp_id, name, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name @@ -4115,6 +4321,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param value Pointer to value to set the property to. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pregister2(hid_t cls_id, const char *name, size_t size, void *def_value, H5P_prp_create_func_t create, H5P_prp_set_func_t set, H5P_prp_get_func_t get, H5P_prp_delete_func_t prp_del, H5P_prp_copy_func_t copy, +!! SUBROUTINE h5pregister_f(class, name, size, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name @@ -4139,6 +4347,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li CHARACTER(LEN=*) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pregister2(hid_t cls_id, const char *name, size_t size, void *def_value, H5P_prp_create_func_t create, H5P_prp_set_func_t set, H5P_prp_get_func_t get, H5P_prp_delete_func_t prp_del, H5P_prp_copy_func_t copy, +!! SUBROUTINE h5pregister_f(class, name, size, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name @@ -4160,6 +4370,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param value Pointer to new value pointer for the property being modified. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pinsert2(hid_t plist_id, const char *name, size_t size, void *value, H5P_prp_set_func_t set, H5P_prp_get_func_t get, H5P_prp_delete_func_t prp_del, H5P_prp_copy_func_t copy, H5P_prp_compare_func_t compare, H5P_prp_close_func_t close); +!! SUBROUTINE h5pinsert_f(plist, name, size, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: plist CHARACTER(LEN=*), INTENT(IN) :: name @@ -4185,6 +4397,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li CHARACTER(LEN=*) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pinsert2(hid_t plist_id, const char *name, size_t size, void *value, H5P_prp_set_func_t set, H5P_prp_get_func_t get, H5P_prp_delete_func_t prp_del, H5P_prp_copy_func_t copy, H5P_prp_compare_func_t compare, H5P_prp_close_func_t close); +!! SUBROUTINE h5pinsert_f(plist, name, size, value, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist @@ -4308,6 +4522,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) END SUBROUTINE h5pset_integer +!! See C API: @ref herr_t H5Pset_chunk(hid_t plist_id, int ndims, const hsize_t dim[/*ndims*/]); +!! SUBROUTINE h5pset_char(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4373,6 +4589,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) END SUBROUTINE h5pget_integer +!! See C API: @ref int H5Pget_chunk(hid_t plist_id, int max_ndims, hsize_t dim[] ); +!! SUBROUTINE h5pget_char(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4415,6 +4633,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param value Pointer to value to set the property to. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_page_buffer_size(hid_t plist_id, size_t buf_size, unsigned min_meta_per, unsigned min_raw_per); +!! SUBROUTINE h5pset_ptr(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4437,6 +4657,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param value Pointer to a location to which to copy the value of of the property. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_page_buffer_size(hid_t plist_id, size_t *buf_size, unsigned *min_meta_perc, unsigned *min_raw_perc); +!! SUBROUTINE h5pget_ptr(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4605,6 +4827,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param close (H5P_cls_close_func_t) - Callback routine called when a property list is being closed. !! \param close_data User pointer to any class close information needed. !! +!! See C API: @ref hid_t H5Pcreate_class(hid_t parent, const char *name, H5P_cls_create_func_t create, void *create_data, H5P_cls_copy_func_t copy, void *copy_data, H5P_cls_close_func_t close, void *close_data); +!! SUBROUTINE h5pcreate_class_f(parent, name, class, hdferr, create, create_data, & copy, copy_data, close, close_data) IMPLICIT NONE @@ -4664,6 +4888,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param buf_len Size of the supplied buffer, or 0 (zero) if no initial image is desired. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_file_image(hid_t fapl_id, void *buf_ptr, size_t buf_len); +!! SUBROUTINE h5pset_file_image_f(fapl_id, buf_ptr, buf_len, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: fapl_id @@ -4698,6 +4924,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! will be 0 if no initial image is set. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_file_image(hid_t fapl_id, void **buf_ptr_ptr, size_t *buf_len_ptr); +!! SUBROUTINE h5pget_file_image_f(fapl_id, buf_ptr, buf_len_ptr, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: fapl_id @@ -4855,6 +5083,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param actual_io_mode The type of I/O performed by this process. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_mpio_actual_io_mode(hid_t plist_id, H5D_mpio_actual_io_mode_t *actual_io_mode); +!! SUBROUTINE h5pget_mpio_actual_io_mode_f(dxpl_id, actual_io_mode, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dxpl_id @@ -4888,6 +5118,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param is_collective Indicates if metadata writes are collective or not. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_all_coll_metadata_ops(hid_t plist_id, hbool_t is_collective); +!! SUBROUTINE h5pset_all_coll_metadata_ops_f(plist_id, is_collective, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist_id @@ -4920,6 +5152,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param is_collective Collective access setting. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_all_coll_metadata_ops(hid_t plist_id, hbool_t *is_collective); +!! SUBROUTINE h5pget_all_coll_metadata_ops_f(plist_id, is_collective, hdferr) IMPLICIT NONE @@ -4953,6 +5187,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param is_collective Indicates if metadata writes are collective or not. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_coll_metadata_write(hid_t plist_id, hbool_t is_collective); +!! SUBROUTINE h5pset_coll_metadata_write_f(plist_id, is_collective, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist_id @@ -4985,6 +5221,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param is_collective Collective access setting. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_coll_metadata_write(hid_t plist_id, hbool_t *is_collective); +!! SUBROUTINE h5pget_coll_metadata_write_f(plist_id, is_collective, hdferr) IMPLICIT NONE @@ -5026,6 +5264,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li H5D_VDS_LAST_AVAILABLE_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_virtual_view(hid_t dapl_id, H5D_vds_view_t view); +!! SUBROUTINE h5pset_virtual_view_f(dapl_id, view, hdferr) IMPLICIT NONE @@ -5057,6 +5297,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li H5D_VDS_LAST_AVAILABLE_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_virtual_view(hid_t dapl_id, H5D_vds_view_t *view); +!! SUBROUTINE h5pget_virtual_view_f(dapl_id, view, hdferr) IMPLICIT NONE @@ -5089,6 +5331,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! the extent of an unlimited virtual dataset with printf-style mappings. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_virtual_printf_gap(hid_t dapl_id, hsize_t gap_size); +!! SUBROUTINE h5pset_virtual_printf_gap_f(dapl_id, gap_size, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: dapl_id @@ -5118,6 +5362,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! determining the extent of an unlimited virtual dataset with printf-style mappings. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_virtual_printf_gap(hid_t dapl_id, hsize_t *gap_size); +!! SUBROUTINE h5pget_virtual_printf_gap_f(dapl_id, gap_size, hdferr) IMPLICIT NONE @@ -5149,6 +5395,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param src_space_id The source dataset’s dataspace identifier with a selection applied, possibly an unlimited selection. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_virtual(hid_t dcpl_id, hid_t vspace_id, const char *src_file_name, const char *src_dset_name, hid_t src_space_id); +!! SUBROUTINE h5pset_virtual_f(dcpl_id, vspace_id, src_file_name, src_dset_name, src_space_id, hdferr) IMPLICIT NONE @@ -5191,6 +5439,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param count The number of mappings. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_virtual_count(hid_t dcpl_id, size_t *count ); +!! SUBROUTINE h5pget_virtual_count_f(dcpl_id, count, hdferr) IMPLICIT NONE @@ -5222,6 +5472,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param ds_id Valid dataspace identifier identifier if successful; otherwise returns H5I_INVALID_HID_F. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Pget_virtual_vspace(hid_t dcpl_id, size_t index); +!! SUBROUTINE h5pget_virtual_vspace_f(dcpl_id, index, ds_id, hdferr) IMPLICIT NONE @@ -5257,6 +5509,8 @@ END SUBROUTINE h5pget_virtual_vspace_f !! \param ds_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Pget_virtual_srcspace(hid_t dcpl_id, size_t index); +!! SUBROUTINE h5pget_virtual_srcspace_f(dcpl_id, index, ds_id, hdferr) IMPLICIT NONE @@ -5294,6 +5548,8 @@ END SUBROUTINE h5pget_virtual_srcspace_f !! \param name_len The size of name needed to hold the filename. (OUT) !! !! +!! See C API: @ref ssize_t H5Pget_virtual_filename(hid_t dcpl_id, size_t index, char *name , size_t size); +!! SUBROUTINE h5pget_virtual_filename_f(dcpl_id, index, name, hdferr, name_len) IMPLICIT NONE @@ -5346,6 +5602,8 @@ END SUBROUTINE h5pget_virtual_filename_f !! \param hdferr \fortran_error !! \param name_len The size of name needed to hold the source dataset name. !! +!! See C API: @ref ssize_t H5Pget_virtual_dsetname(hid_t dcpl_id, size_t index, char *name , size_t size); +!! SUBROUTINE h5pget_virtual_dsetname_f(dcpl_id, index, name, hdferr, name_len) IMPLICIT NONE @@ -5395,6 +5653,8 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! \param minimize Value of the setting. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_dset_no_attrs_hint(hid_t dcpl_id, hbool_t *minimize); +!! SUBROUTINE h5pget_dset_no_attrs_hint_f(dcpl_id, minimize, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: dcpl_id @@ -5428,6 +5688,8 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! \param minimize Value of the setting. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_dset_no_attrs_hint(hid_t dcpl_id, hbool_t minimize); +!! SUBROUTINE h5pset_dset_no_attrs_hint_f(dcpl_id, minimize, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: dcpl_id @@ -5461,6 +5723,8 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! \param hdferr \fortran_error !! \param new_vol_info VOL connector info. !! +!! See C API: @ref herr_t H5Pset_vol(hid_t plist_id, hid_t new_vol_id, const void *new_vol_info); +!! SUBROUTINE h5pset_vol_f(plist_id, new_vol_id, hdferr, new_vol_info) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist_id @@ -5496,6 +5760,8 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! \param vol_id VOL connector id. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_vol_id(hid_t plist_id, hid_t *vol_id); +!! SUBROUTINE h5pget_vol_id_f(plist_id, vol_id, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist_id @@ -5525,6 +5791,8 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! \param ignore_disabled_locks Whether or not to ignore file locks when locking is disabled on a file system. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_file_locking(hid_t fapl_id, hbool_t *use_file_locking, hbool_t *ignore_when_disabled); +!! SUBROUTINE h5pget_file_locking_f(fapl_id, use_file_locking, ignore_disabled_locks, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: fapl_id @@ -5562,6 +5830,8 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! \param ignore_disabled_locks Whether or not to ignore file locks when locking is disabled on a file system. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_file_locking(hid_t fapl_id, hbool_t use_file_locking, hbool_t ignore_when_disabled); +!! SUBROUTINE h5pset_file_locking_f(fapl_id, use_file_locking, ignore_disabled_locks, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: fapl_id diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90 index f5dfb5c..eefc447 100644 --- a/fortran/src/H5Rff.F90 +++ b/fortran/src/H5Rff.F90 @@ -72,7 +72,7 @@ MODULE H5R !> @brief hdset_reg_ref_t_f03 C compatible reference TYPE :: hdset_reg_ref_t_f03 - INTEGER(C_SIGNED_CHAR), DIMENSION(1:H5R_DSET_REG_REF_BUF_SIZE_F) :: ref + INTEGER(C_SIGNED_CHAR), DIMENSION(1:H5R_DSET_REG_REF_BUF_SIZE_F) :: ref END TYPE hdset_reg_ref_t_f03 INTERFACE h5rget_object_type_f @@ -258,8 +258,10 @@ CONTAINS !! \param space_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Rget_region(hid_t dataset, H5R_type_t ref_type, const void *ref); +!! #ifdef H5_DOXYGEN_FORTRAN - SUBROUTINE h5rget_region_f(& + SUBROUTINE h5rget_region_f(& #else SUBROUTINE h5rget_region_ptr_f(& #endif @@ -290,6 +292,8 @@ CONTAINS !! \param ref Reference to the specified object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Rcreate_object(hid_t loc_id, const char *name, hid_t oapl_id, H5R_ref_t *ref_ptr); +!! SUBROUTINE h5rcreate_object_f(loc_id, name, ref, hdferr) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR IMPLICIT NONE @@ -321,6 +325,8 @@ CONTAINS !! \param ref Reference to the dataset region. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Rcreate_region(hid_t loc_id, const char *name, hid_t space_id, hid_t oapl_id, H5R_ref_t *ref_ptr); +!! SUBROUTINE h5rcreate_region_f(loc_id, name, space_id, ref, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -368,6 +374,8 @@ CONTAINS !! \param space_id Dataspace identifier that describes selected region. !! #ifdef H5_DOXYGEN_FORTRAN +!! See C API: @ref herr_t H5Rcreate_object(hid_t loc_id, const char *name, hid_t oapl_id, H5R_ref_t *ref_ptr); +!! SUBROUTINE h5rcreate_f(& #else SUBROUTINE h5rcreate_ptr_f(& @@ -559,6 +567,8 @@ CONTAINS !! #ifdef H5_DOXYGEN_FORTRAN +!! See C API: @ref ssize_t H5Rget_name(hid_t loc_id, H5R_type_t ref_type, const void *ref, char *name, size_t size); +!! SUBROUTINE h5rget_name_f(& #else SUBROUTINE h5rget_name_ptr_f(& @@ -602,6 +612,8 @@ CONTAINS !! \li H H5G_TYPE_F !! hdferr - \fortran_error !! +!! See C API: @ref herr_t H5Rget_obj_type3(H5R_ref_t *ref_ptr, hid_t rapl_id, H5O_type_t *obj_type); +!! SUBROUTINE h5rget_obj_type_f(loc_id, ref_type, ref, obj_type, hdferr) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90 index 6599863..11404d4 100644 --- a/fortran/src/H5Sff.F90 +++ b/fortran/src/H5Sff.F90 @@ -53,6 +53,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param maxdims An array of the maximum size of each dimension. !! +!! See C API: @ref hid_t H5Screate_simple(int rank, const hsize_t dims[], const hsize_t maxdims[]); +!! SUBROUTINE h5screate_simple_f(rank, dims, space_id, hdferr, maxdims) IMPLICIT NONE @@ -97,6 +99,8 @@ CONTAINS !! \param space_id Identifier of dataspace to release. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sclose(hid_t space_id); +!! SUBROUTINE h5sclose_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -125,6 +129,8 @@ CONTAINS !! \param space_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Screate(H5S_class_t type); +!! SUBROUTINE h5screate_f(classtype, space_id, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: classtype @@ -152,6 +158,8 @@ CONTAINS !! \param new_space_id Identifier of dataspace's copy. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Scopy(hid_t space_id); +!! SUBROUTINE h5scopy_f(space_id, new_space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -179,6 +187,8 @@ CONTAINS !! \param num_blocks Number of hyperslab blocks in the current hyperslab selection. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_select_hyper_nblocks(hid_t spaceid); +!! SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -209,6 +219,8 @@ CONTAINS !! \param buf Buffer to hold block list. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sget_select_hyper_blocklist(hid_t spaceid, hsize_t startblock, hsize_t numblocks, hsize_t buf[]); +!! SUBROUTINE h5sget_select_hyper_blocklist_f(space_id, startblock, & num_blocks, buf, hdferr) IMPLICIT NONE @@ -243,6 +255,8 @@ CONTAINS !! \param end Ending coordinates of bounding box, i.e., the coordinates of the diagonally opposite corner. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sget_select_bounds(hid_t spaceid, hsize_t start[], hsize_t end[]); +!! SUBROUTINE h5sget_select_bounds_f(space_id, start, END, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -273,6 +287,8 @@ CONTAINS !! \param num_points Number of element points in the current dataspace selection !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_select_elem_npoints(hid_t spaceid); +!! SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -301,6 +317,8 @@ CONTAINS !! \param buf Buffer with element points selected. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sget_select_elem_pointlist(hid_t spaceid, hsize_t startpoint, hsize_t numpoints, hsize_t buf[]); +!! SUBROUTINE h5sget_select_elem_pointlist_f(space_id, startpoint, & num_points, buf, hdferr) IMPLICIT NONE @@ -342,6 +360,8 @@ CONTAINS !! array is stored in 2D as (num_element x rank). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sselect_elements(hid_t space_id, H5S_seloper_t op, size_t num_elem, const hsize_t *coord); +!! SUBROUTINE h5sselect_elements_f(space_id, OPERATOR, rank, & num_elements, coord, hdferr) IMPLICIT NONE @@ -398,6 +418,8 @@ CONTAINS !! \param space_id Identifier for the dataspace in which selection being made. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sselect_all(hid_t spaceid); +!! SUBROUTINE h5sselect_all_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -422,6 +444,8 @@ CONTAINS !! \param space_id The identifier for the dataspace in which the selection is being reset. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sselect_none(hid_t spaceid); +!! SUBROUTINE h5sselect_none_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -447,6 +471,8 @@ CONTAINS !! \param status TRUE if the selection is contained within the extent, FALSE otherwise. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sselect_valid(hid_t spaceid); +!! SUBROUTINE h5sselect_valid_f(space_id, status, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -478,6 +504,8 @@ CONTAINS !! \param npoints Number of elements in the dataspace. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_simple_extent_npoints(hid_t space_id); +!! SUBROUTINE h5sget_simple_extent_npoints_f(space_id, npoints, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -505,6 +533,8 @@ CONTAINS !! \param npoints Number of points in the dataspace selection. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_select_npoints(hid_t spaceid); +!! SUBROUTINE h5sget_select_npoints_f(space_id, npoints, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -532,6 +562,8 @@ CONTAINS !! \param rank Number of dataspace dimensions. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Sget_simple_extent_ndims(hid_t space_id); +!! SUBROUTINE h5sget_simple_extent_ndims_f(space_id, rank, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -559,6 +591,8 @@ CONTAINS !! \param maxdims Array to store maximum size of each dimension. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Sget_simple_extent_dims(hid_t space_id, hsize_t dims[], hsize_t maxdims[]); +!! SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -592,6 +626,8 @@ CONTAINS !! \li H5S_NULL_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5S_class_t H5Sget_simple_extent_type(hid_t space_id); +!! SUBROUTINE h5sget_simple_extent_type_f(space_id, classtype, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -621,6 +657,8 @@ CONTAINS !! \param maximum_size Array with the new maximum sizes of dimensions. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sset_extent_simple(hid_t space_id, int rank, const hsize_t dims[], const hsize_t max[]); +!! SUBROUTINE h5sset_extent_simple_f(space_id, rank, current_size, & maximum_size, hdferr) IMPLICIT NONE @@ -653,6 +691,8 @@ CONTAINS !! \param status Flag to indicate if dataspace is simple or not (TRUE or FALSE). !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sis_simple(hid_t space_id); +!! SUBROUTINE h5sis_simple_f(space_id, status, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -684,6 +724,8 @@ CONTAINS !! \param offset The offset at which to position the selection. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Soffset_simple(hid_t space_id, const hssize_t *offset); +!! SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -711,6 +753,8 @@ CONTAINS !! \param source_space_id The identifier for the dataspace from which the extent is copied. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sextent_copy(hid_t dst_id, hid_t src_id); +!! SUBROUTINE h5sextent_copy_f(dest_space_id, source_space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dest_space_id @@ -737,6 +781,8 @@ CONTAINS !! \param space_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sset_extent_none(hid_t space_id); +!! SUBROUTINE h5sset_extent_none_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -768,6 +814,8 @@ CONTAINS !! \param stride Array with hyperslab strides. !! \param block Array with hyperslab block sizes. !! +!! See C API: @ref herr_t H5Sselect_hyperslab(hid_t space_id, H5S_seloper_t op, const hsize_t start[], const hsize_t stride[], const hsize_t count[], const hsize_t block[]); +!! SUBROUTINE h5sselect_hyperslab_f(space_id, OPERATOR, start, count, & hdferr, stride, BLOCK) IMPLICIT NONE @@ -1117,6 +1165,8 @@ CONTAINS !! \li H5S_SEL_ALL_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5S_sel_type H5Sget_select_type(hid_t spaceid); +!! SUBROUTINE h5sget_select_type_f(space_id, TYPE, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(INOUT) :: space_id @@ -1145,6 +1195,8 @@ CONTAINS !! \param obj_id Object ID. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Sdecode(const void *buf); +!! SUBROUTINE h5sdecode_f(buf, obj_id, hdferr) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: buf @@ -1174,6 +1226,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param fapl_id File access property list identifier. !! +!! See C API: @ref herr_t H5Sencode2(hid_t obj_id, void *buf, size_t *nalloc, hid_t fapl); +!! SUBROUTINE h5sencode_f(obj_id, buf, nalloc, hdferr, fapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -1212,6 +1266,8 @@ CONTAINS !! \param Equal .TRUE. if equal, .FALSE. if unequal. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sextent_equal(hid_t space1_id, hid_t space2_id); +!! SUBROUTINE h5sextent_equal_f(space1_id, space2_id, equal, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space1_id @@ -1248,6 +1304,8 @@ CONTAINS !! \param block Size of a block in the regular hyperslab. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sget_regular_hyperslab(hid_t spaceid, hsize_t start[], hsize_t stride[], hsize_t count[], hsize_t block[]); +!! SUBROUTINE h5sget_regular_hyperslab_f(space_id, start, stride, count, block, hdferr) IMPLICIT NONE @@ -1302,6 +1360,8 @@ CONTAINS !! \param IsRegular TRUE or FALSE for hyperslab selection if successful. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sis_regular_hyperslab(hid_t spaceid); +!! SUBROUTINE h5sis_regular_hyperslab_f(space_id, IsRegular, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id diff --git a/fortran/src/H5Tff.F90 b/fortran/src/H5Tff.F90 index ceb5447..9ee0ee8 100644 --- a/fortran/src/H5Tff.F90 +++ b/fortran/src/H5Tff.F90 @@ -73,6 +73,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param tapl_id Datatype access property list identifier. !! +!! See C API: @ref hid_t H5Topen2(hid_t loc_id, const char *name, hid_t tapl_id); +!! SUBROUTINE h5topen_f(loc_id, name, type_id, hdferr, tapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -116,6 +118,8 @@ CONTAINS !! \param tcpl_id Datatype creation property list. !! \param tapl_id Datatype access property list. !! +!! See C API: @ref herr_t H5Tcommit2(hid_t loc_id, const char *name, hid_t type_id, hid_t lcpl_id, hid_t tcpl_id, hid_t tapl_id); +!! SUBROUTINE h5tcommit_f(loc_id, name, type_id, hdferr, & lcpl_id, tcpl_id, tapl_id ) IMPLICIT NONE @@ -172,6 +176,8 @@ CONTAINS !! \param new_type_id Identifier of datatype's copy. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tcopy(hid_t type_id); +!! SUBROUTINE h5tcopy_f(type_id, new_type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -197,6 +203,8 @@ CONTAINS !! \param flag TRUE/FALSE flag to indicate if two datatypes are equal. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Tequal(hid_t type1_id, hid_t type2_id); +!! SUBROUTINE h5tequal_f(type1_id, type2_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type1_id @@ -226,6 +234,8 @@ CONTAINS !! \param type_id Datatype identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tclose(hid_t type_id); +!! SUBROUTINE h5tclose_f(type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -261,6 +271,8 @@ CONTAINS !! \li H5T_ARRAY_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_class_t H5Tget_class(hid_t type_id); +!! SUBROUTINE h5tget_class_f(type_id, class, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -286,6 +298,8 @@ CONTAINS !! \param size Datatype size. !! \param hdferr \fortran_error !! +!! See C API: @ref size_t H5Tget_size(hid_t type_id); +!! SUBROUTINE h5tget_size_f(type_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -312,6 +326,8 @@ CONTAINS !! \param size Size of the datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_size(hid_t type_id, size_t size); +!! SUBROUTINE h5tset_size_f(type_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -341,6 +357,8 @@ CONTAINS !! \li H5T_ORDER_VAX_F (not implemented yet) !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_order_t H5Tget_order(hid_t type_id); +!! SUBROUTINE h5tget_order_f(type_id, order, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -370,6 +388,8 @@ CONTAINS !! \li H5T_ORDER_VAX_F (not implemented yet) !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_order(hid_t type_id, H5T_order_t order); +!! SUBROUTINE h5tset_order_f(type_id, order, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -397,6 +417,8 @@ CONTAINS !! \param precision Precision of the datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref size_t H5Tget_precision(hid_t type_id); +!! SUBROUTINE h5tget_precision_f(type_id, PRECISION, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -423,6 +445,8 @@ CONTAINS !! \param precision Datatype precision. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_precision(hid_t type_id, size_t prec); +!! SUBROUTINE h5tset_precision_f(type_id, PRECISION, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -449,6 +473,8 @@ CONTAINS !! \param offset Offset value. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Tget_offset(hid_t type_id); +!! SUBROUTINE h5tget_offset_f(type_id, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -475,6 +501,8 @@ CONTAINS !! \param offset Offset value. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_offset(hid_t type_id, size_t offset); +!! SUBROUTINE h5tset_offset_f(type_id, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -507,6 +535,8 @@ CONTAINS !! \li H5T_PAD_NPAD_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tget_pad(hid_t type_id, H5T_pad_t *lsb , H5T_pad_t *msb); +!! SUBROUTINE h5tget_pad_f(type_id, lsbpad, msbpad, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -541,6 +571,8 @@ CONTAINS !! \li H5T_PAD_NPAD_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_pad(hid_t type_id, H5T_pad_t lsb, H5T_pad_t msb); +!! SUBROUTINE h5tset_pad_f(type_id, lsbpad, msbpad, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -575,6 +607,8 @@ CONTAINS !! H5T_SGN_ERROR_F = -1 !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_sign_t H5Tget_sign(hid_t type_id); +!! SUBROUTINE h5tget_sign_f(type_id, sign, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -608,6 +642,8 @@ CONTAINS !! H5T_SGN_ERROR_F = -1 !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_sign(hid_t type_id, H5T_sign_t sign); +!! SUBROUTINE h5tset_sign_f(type_id, sign, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -638,6 +674,8 @@ CONTAINS !! \param msize Size of mantissa in bits. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tget_fields(hid_t type_id, size_t *spos , size_t *epos, size_t *esize, size_t *mpos, size_t *msize); +!! SUBROUTINE h5tget_fields_f(type_id, spos, epos, esize, mpos, msize, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -678,6 +716,8 @@ CONTAINS !! \param msize Size of mantissa in bits. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_fields(hid_t type_id, size_t spos, size_t epos, size_t esize, size_t mpos, size_t msize); +!! SUBROUTINE h5tset_fields_f(type_id, spos, epos, esize, mpos, msize, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -714,6 +754,8 @@ CONTAINS !! \param ebias Datatype exponent bias. !! \param hdferr \fortran_error !! +!! See C API: @ref size_t H5Tget_ebias(hid_t type_id); +!! SUBROUTINE h5tget_ebias_f(type_id, ebias, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -741,6 +783,8 @@ CONTAINS !! \param ebias Datatype exponent bias. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_ebias(hid_t type_id, size_t ebias); +!! SUBROUTINE h5tset_ebias_f(type_id, ebias, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -770,6 +814,8 @@ CONTAINS !! \li H5T_NORM_NONE_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_norm_t H5Tget_norm(hid_t type_id); +!! SUBROUTINE h5tget_norm_f(type_id, norm, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -800,6 +846,8 @@ CONTAINS !! \li H5T_NORM_NONE_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_norm(hid_t type_id, H5T_norm_t norm); +!! SUBROUTINE h5tset_norm_f(type_id, norm, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -829,6 +877,8 @@ CONTAINS !! \li H5T_PAD_BACKGROUND_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_pad_t H5Tget_inpad(hid_t type_id); +!! SUBROUTINE h5tget_inpad_f(type_id, padtype, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -858,6 +908,8 @@ CONTAINS !! \li H5T_PAD_BACKGROUND_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_inpad(hid_t type_id, H5T_pad_t pad); +!! SUBROUTINE h5tset_inpad_f(type_id, padtype, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -886,6 +938,8 @@ CONTAINS !! \li H5T_CSET_UTF8_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_cset_t H5Tget_cset(hid_t type_id); +!! SUBROUTINE h5tget_cset_f(type_id, cset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -914,6 +968,8 @@ CONTAINS !! \li H5T_CSET_UTF8_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_cset(hid_t type_id, H5T_cset_t cset); +!! SUBROUTINE h5tset_cset_f(type_id, cset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -943,6 +999,8 @@ CONTAINS !! \li H5T_STR_ERROR_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_str_t H5Tget_strpad(hid_t type_id); +!! SUBROUTINE h5tget_strpad_f(type_id, strpad, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -973,6 +1031,8 @@ CONTAINS !! \li H5T_STR_ERROR_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_strpad(hid_t type_id, H5T_str_t strpad); +!! SUBROUTINE h5tset_strpad_f(type_id, strpad, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -999,6 +1059,8 @@ CONTAINS !! \param num_members Number of members. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Tget_nmembers(hid_t type_id); +!! SUBROUTINE h5tget_nmembers_f(type_id, num_members, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1027,6 +1089,8 @@ CONTAINS !! \param namelen Name length. !! \param hdferr \fortran_error !! +!! See C API: @ref char *H5Tget_member_name(hid_t type_id, unsigned membno); +!! SUBROUTINE h5tget_member_name_f(type_id, index, member_name, namelen, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1059,6 +1123,8 @@ CONTAINS !! \param offset Byte offset of the requested field. !! \param hdferr \fortran_error !! +!! See C API: @ref size_t H5Tget_member_offset(hid_t type_id, unsigned membno); +!! SUBROUTINE h5tget_member_offset_f(type_id, member_no, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1087,6 +1153,8 @@ CONTAINS !! \param index Based index of the filed or member (0 to N-1). !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Tget_member_index(hid_t type_id, const char *name); +!! SUBROUTINE h5tget_member_index_f(type_id, name, index, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1154,6 +1222,8 @@ CONTAINS !! \param dims Buffer to store array datatype dimensions. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Tget_array_dims2(hid_t type_id, hsize_t dims[]); +!! SUBROUTINE h5tget_array_dims_f(type_id, dims, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1181,6 +1251,8 @@ CONTAINS !! \param ndims Number of array dimensions. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Tget_array_ndims(hid_t type_id); +!! SUBROUTINE h5tget_array_ndims_f(type_id, ndims, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1208,6 +1280,8 @@ CONTAINS !! \param base_type_id Identifier of the base type. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tget_super(hid_t type); +!! SUBROUTINE h5tget_super_f(type_id, base_type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1236,6 +1310,8 @@ CONTAINS !! \param datatype Identifier of the member's datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tget_member_type(hid_t type_id, unsigned membno); +!! SUBROUTINE h5tget_member_type_f(type_id, field_idx, datatype, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1270,6 +1346,8 @@ CONTAINS !! \param type_id Datatype identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tcreate(H5T_class_t type, size_t size); +!! SUBROUTINE h5tcreate_f(class, size, type_id, hdferr) IMPLICIT NONE INTEGER , INTENT(IN) :: class @@ -1300,6 +1378,8 @@ CONTAINS !! \param field_id Datatype identifier of the field to insert. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tinsert(hid_t parent_id, const char *name, size_t offset, hid_t member_id); +!! SUBROUTINE h5tinsert_f(type_id, name, offset, field_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1334,6 +1414,8 @@ CONTAINS !! \param type_id Compound datatype identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tpack(hid_t type_id); +!! SUBROUTINE h5tpack_f(type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1397,6 +1479,8 @@ CONTAINS !! \param type_id Array datatype identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tarray_create2(hid_t base_id, unsigned ndims, const hsize_t dim[]); +!! SUBROUTINE h5tarray_create_f(base_id, rank, dims, type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: base_id @@ -1428,6 +1512,8 @@ CONTAINS !! \param new_type_id Datatype identifier for the enumeration datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tenum_create(hid_t base_id); +!! SUBROUTINE h5tenum_create_f(parent_id, new_type_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: parent_id @@ -1456,6 +1542,8 @@ CONTAINS !! \param name Buffer to hold symbol name. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tenum_nameof(hid_t type, const void *value, char *name , size_t size); +!! SUBROUTINE h5tenum_nameof_f(type_id, value, namelen, name, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1489,6 +1577,8 @@ CONTAINS !! \param value Value of the enumeration datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tenum_valueof(hid_t type, const char *name, void *value ); +!! SUBROUTINE h5tenum_valueof_f(type_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1524,6 +1614,8 @@ CONTAINS !! \param value Value of the enumeration datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tget_member_value(hid_t type_id, unsigned membno, void *value ); +!! SUBROUTINE h5tget_member_value_f(type_id, member_no, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1553,6 +1645,8 @@ CONTAINS !! \param tag Unique ASCII string with which the opaque datatype is to be tagged. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tset_tag(hid_t type, const char *tag); +!! SUBROUTINE h5tset_tag_f(type_id, tag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1585,6 +1679,8 @@ CONTAINS !! \param taglen Length of tag. !! \param hdferr \fortran_error !! +!! See C API: @ref char *H5Tget_tag(hid_t type); +!! SUBROUTINE h5tget_tag_f(type_id, tag,taglen, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1618,6 +1714,8 @@ CONTAINS !! \param vltype_id Identifier for VL datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tvlen_create(hid_t base_id); +!! SUBROUTINE h5tvlen_create_f(type_id, vltype_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1644,6 +1742,8 @@ CONTAINS !! \param status Flag to indicate if datatype is a variable string ( TRUE or FALSE). !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Tis_variable_str(hid_t type_id); +!! SUBROUTINE h5tis_variable_str_f(type_id, status, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1689,6 +1789,8 @@ CONTAINS !! \li H5T_ARRAY_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5T_class_t H5Tget_member_class(hid_t type_id, unsigned membno); +!! SUBROUTINE h5tget_member_class_f(type_id, member_no, class, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id @@ -1721,6 +1823,8 @@ CONTAINS !! \param tcpl_id A datatype creation property list identifier (H5P_DEFAULT_F for the default property list.) !! \param tapl_id A datatype access property list identifier should always be passed as the value H5P_DEFAULT_F. !! +!! See C API: @ref herr_t H5Tcommit_anon(hid_t loc_id, hid_t type_id, hid_t tcpl_id, hid_t tapl_id); +!! SUBROUTINE h5tcommit_anon_f(loc_id, dtype_id, hdferr, tcpl_id, tapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id @@ -1763,6 +1867,8 @@ CONTAINS !! \param committed .TRUE. if the datatype has been committed, and .FALSE. if the datatype has not been committed. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Tcommitted(hid_t type_id); +!! SUBROUTINE h5tcommitted_f(dtype_id, committed, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dtype_id @@ -1799,6 +1905,8 @@ CONTAINS !! \param obj_id Object ID. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tdecode(const void *buf); +!! SUBROUTINE h5tdecode_f(buf, obj_id, hdferr) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: buf @@ -1828,6 +1936,8 @@ CONTAINS !! \param nalloc If set to zero, returns the size of the buffer needed. Otherwise, it sets the size of \p buf allocated. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Tencode(hid_t obj_id, void *buf, size_t *nalloc); +!! SUBROUTINE h5tencode_f(obj_id, buf, nalloc, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -1859,6 +1969,8 @@ CONTAINS !! \param dtpl_id Datatype property list identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tget_create_plist(hid_t type_id); +!! SUBROUTINE h5tget_create_plist_f(dtype_id, dtpl_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dtype_id @@ -1925,6 +2037,8 @@ CONTAINS !! \param native_dtype_id The native datatype identifier for the specified dataset datatype. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Tget_native_type(hid_t type_id, H5T_direction_t direction); +!! SUBROUTINE h5tget_native_type_f(dtype_id, direction, native_dtype_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dtype_id @@ -1957,6 +2071,8 @@ CONTAINS !! \param background Background buffer. !! \param plist_id Dataset transfer property list identifier. !! +!! See C API: @ref herr_t H5Tconvert(hid_t src_id, hid_t dst_id, size_t nelmts, void *buf, void *background, hid_t plist_id); +!! SUBROUTINE h5tconvert_f(src_id, dst_id, nelmts, buf, hdferr, background, plist_id) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: src_id @@ -2007,6 +2123,8 @@ CONTAINS !! \param hdferr \fortran_error !! #ifdef H5_DOXYGEN_FORTRAN +!! See C API: @ref herr_t H5Tenum_insert(hid_t type, const char *name, const void *value); +!! SUBROUTINE h5tenum_insert_f(& #else SUBROUTINE h5tenum_insert_f03(& @@ -2053,6 +2171,8 @@ CONTAINS !! \param hdferr \fortran_error !! #ifdef H5_DOXYGEN_FORTRAN +!! See C API: @ref herr_t H5Tenum_insert(hid_t type, const char *name, const void *value); +!! SUBROUTINE h5tenum_insert_f(type_id, name, value, hdferr) #else SUBROUTINE h5tenum_insert_f90(type_id, name, value, hdferr) diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90 index 1d60848..1a4edf3 100644 --- a/fortran/src/H5VLff.F90 +++ b/fortran/src/H5VLff.F90 @@ -58,6 +58,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param vipl_id VOL initialization property list identifier. !! +!! See C API: @ref hid_t H5VLregister_connector_by_name(const char *connector_name, hid_t vipl_id); +!! SUBROUTINE H5VLregister_connector_by_name_f(name, vol_id, hdferr, vipl_id) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: name @@ -97,6 +99,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param vipl_id VOL initialization property list identifier. !! +!! See C API: @ref hid_t H5VLregister_connector_by_value(H5VL_class_value_t connector_value, hid_t vipl_id); +!! SUBROUTINE H5VLregister_connector_by_value_f(connector_value, vol_id, hdferr, vipl_id) IMPLICIT NONE INTEGER, INTENT(IN) :: connector_value @@ -134,6 +138,8 @@ CONTAINS !! \param registered State of VOL class registration. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5VLis_connector_registered_by_name(const char *name); +!! SUBROUTINE H5VLis_connector_registered_by_name_f(name, registered, hdferr) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: name @@ -169,6 +175,8 @@ CONTAINS !! \param registered State of VOL class registration. !! \param hdferr Retu\fortran_error !! +!! See C API: @ref htri_t H5VLis_connector_registered_by_value(H5VL_class_value_t connector_value); +!! SUBROUTINE H5VLis_connector_registered_by_value_f(value, registered, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: value @@ -201,6 +209,8 @@ CONTAINS !! \param vol_id Connector id. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5VLget_connector_id(hid_t obj_id); +!! SUBROUTINE H5VLget_connector_id_f(obj_id, vol_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -232,6 +242,8 @@ CONTAINS !! \param vol_id Connector id. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5VLget_connector_id_by_name(const char *name); +!! SUBROUTINE H5VLget_connector_id_by_name_f(name, vol_id, hdferr) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: name @@ -267,6 +279,8 @@ CONTAINS !! \param vol_id Connector id. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5VLget_connector_id_by_value(H5VL_class_value_t connector_value); +!! SUBROUTINE H5VLget_connector_id_by_value_f(value, vol_id, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: value @@ -299,6 +313,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param name_len Maximum length of the name to retrieve. !! +!! See C API: @ref ssize_t H5VLget_connector_name(hid_t id, char *name , size_t size); +!! SUBROUTINE H5VLget_connector_name_f(obj_id, name, hdferr, name_len) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -342,6 +358,8 @@ CONTAINS !! \param vol_id A valid identifier of the connectory to unregister. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5VLclose(hid_t connector_id); +!! SUBROUTINE H5VLclose_f(vol_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: vol_id @@ -366,6 +384,8 @@ CONTAINS !! \param plugin_id A valid identifier of the connector to unregister.. !! \param hdferr Ret\fortran_error !! +!! See C API: @ref herr_t H5VLunregister_connector(hid_t connector_id); +!! SUBROUTINE H5VLunregister_connector_f(plugin_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plugin_id diff --git a/fortran/src/H5Zff.F90 b/fortran/src/H5Zff.F90 index 711e26b..d27c87b 100644 --- a/fortran/src/H5Zff.F90 +++ b/fortran/src/H5Zff.F90 @@ -83,6 +83,8 @@ CONTAINS !! \param status Flag; .TRUE. if filter is available, .FALSE. otherwise. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Zfilter_avail(H5Z_filter_t id); +!! SUBROUTINE h5zfilter_avail_f(filter, status, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: filter @@ -121,6 +123,8 @@ CONTAINS !! \li H5Z_FILTER_DECODE_ENABLED_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Zget_filter_info(H5Z_filter_t filter, unsigned int *filter_config_flags); +!! SUBROUTINE h5zget_filter_info_f(filter, config_flags, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: filter diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index 07705cf..1dc90c2 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -9,6 +9,18 @@ !! !! @brief This module provides fortran specific helper functions for the HDF library. ! +! PURPOSE +! This module is used to pass C stubs for H5 Fortran APIs. The C stubs are +! packed into arrays in H5_f.c and these arrays are then passed to Fortran. +! This module then uses EQUIVALENCE to assign elements of the arrays to +! Fortran equivalent C stubs. +! +! NOTES +! The size of the C arrays in H5_f.c has to match the values of the variables +! declared as PARAMETER, hence if the size of an array in H5_f.c is changed +! then the PARAMETER of that corresponding array in Fortran must also be changed. +! +! ! COPYRIGHT ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! Copyright by The HDF Group. * diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90 index eb3b87e..2eaad7f 100644 --- a/fortran/src/H5f90global.F90 +++ b/fortran/src/H5f90global.F90 @@ -1,24 +1,12 @@ -!****h* ROBODoc/H5GLOBAL -! -! NAME -! MODULE H5GLOBAL -! -! FILE -! src/fortran/H5f90global.F90 -! -! PURPOSE -! This module is used to pass C stubs for H5 Fortran APIs. The C stubs are -! packed into arrays in H5_f.c and these arrays are then passed to Fortran. -! This module then uses EQUIVALENCE to assign elements of the arrays to -! Fortran equivalent C stubs. -! -! NOTES -! The size of the C arrays in H5_f.c has to match the values of the variables -! declared as PARAMETER, hence if the size of an array in H5_f.c is changed -! then the PARAMETER of that corresponding array in Fortran must also be changed. +!> @defgroup FH5GLOBAL Fortran global constants. +!! + +!> @ingroup FH5GLOBAL +!! +!! @brief This module contains Fortran datatypes and flags. ! ! USES -! H5FORTRAN_TYPES - This module is generated at run time. See +! H5FORTRAN_TYPES - H5FORTRAN_TYPES is generated at run time by H5match_types.c ! ! COPYRIGHT ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * @@ -48,7 +36,7 @@ MODULE H5GLOBAL ENUM, BIND(C) ENUMERATOR :: enum_dtype END ENUM - INTEGER, PARAMETER :: ENUM_T = KIND(enum_dtype) + INTEGER, PARAMETER :: ENUM_T = KIND(enum_dtype) !< Enumerate data type that is interoperable with C. ! Definitions for reference datatypes. ! If you change the value of these parameters, do not forget to change corresponding @@ -60,17 +48,20 @@ MODULE H5GLOBAL ! The flag is used to tell the function whether the kind input variable ! is for a REAL or INTEGER data type. - INTEGER, PARAMETER :: H5_REAL_KIND = 1 - INTEGER, PARAMETER :: H5_INTEGER_KIND = 0 + INTEGER, PARAMETER :: H5_REAL_KIND = 1 !< Used in the function h5kind_to_type() + INTEGER, PARAMETER :: H5_INTEGER_KIND = 0 !< Used in the function h5kind_to_type() +!> @brief hobj_ref_t_f derived type TYPE :: hobj_ref_t_f INTEGER(HADDR_T) ref END TYPE hobj_ref_t_f +!> @brief hdset_reg_ref_t_f derived type TYPE :: hdset_reg_ref_t_f INTEGER, DIMENSION(1:REF_REG_BUF_LEN) :: ref END TYPE hdset_reg_ref_t_f +!> @brief h5o_token_t_f derived type TYPE, BIND(C) :: h5o_token_t_f INTEGER(C_INT8_T), DIMENSION(1:H5O_TOKEN_BUF_LEN) :: token END TYPE h5o_token_t_f @@ -137,56 +128,56 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5T_NATIVE_FLOAT_128 !DEC$endif - INTEGER(HID_T) :: H5T_NATIVE_REAL_C_FLOAT - INTEGER(HID_T) :: H5T_NATIVE_REAL_C_DOUBLE - INTEGER(HID_T) :: H5T_NATIVE_REAL_C_LONG_DOUBLE - INTEGER(HID_T) :: H5T_NATIVE_INTEGER - INTEGER(HID_T) :: H5T_NATIVE_REAL - INTEGER(HID_T) :: H5T_NATIVE_DOUBLE - INTEGER(HID_T) :: H5T_NATIVE_CHARACTER - INTEGER(HID_T) :: H5T_STD_REF_OBJ - INTEGER(HID_T) :: H5T_STD_REF_DSETREG - INTEGER(HID_T) :: H5T_IEEE_F32BE - INTEGER(HID_T) :: H5T_IEEE_F32LE - INTEGER(HID_T) :: H5T_IEEE_F64BE - INTEGER(HID_T) :: H5T_IEEE_F64LE - INTEGER(HID_T) :: H5T_STD_I8BE - INTEGER(HID_T) :: H5T_STD_I8LE - INTEGER(HID_T) :: H5T_STD_I16BE - INTEGER(HID_T) :: H5T_STD_I16LE - INTEGER(HID_T) :: H5T_STD_I32BE - INTEGER(HID_T) :: H5T_STD_I32LE - INTEGER(HID_T) :: H5T_STD_I64BE - INTEGER(HID_T) :: H5T_STD_I64LE - INTEGER(HID_T) :: H5T_STD_U8BE - INTEGER(HID_T) :: H5T_STD_U8LE - INTEGER(HID_T) :: H5T_STD_U16BE - INTEGER(HID_T) :: H5T_STD_U16LE - INTEGER(HID_T) :: H5T_STD_U32BE - INTEGER(HID_T) :: H5T_STD_U32LE - INTEGER(HID_T) :: H5T_STD_U64BE - INTEGER(HID_T) :: H5T_STD_U64LE - INTEGER(HID_T) :: H5T_STRING - INTEGER(HID_T) :: H5T_STD_B8BE - INTEGER(HID_T) :: H5T_STD_B8LE - INTEGER(HID_T) :: H5T_STD_B16BE - INTEGER(HID_T) :: H5T_STD_B16LE - INTEGER(HID_T) :: H5T_STD_B32BE - INTEGER(HID_T) :: H5T_STD_B32LE - INTEGER(HID_T) :: H5T_STD_B64BE - INTEGER(HID_T) :: H5T_STD_B64LE - INTEGER(HID_T) :: H5T_NATIVE_B8 - INTEGER(HID_T) :: H5T_NATIVE_B16 - INTEGER(HID_T) :: H5T_NATIVE_B32 - INTEGER(HID_T) :: H5T_NATIVE_B64 - INTEGER(HID_T) :: H5T_FORTRAN_S1 - INTEGER(HID_T) :: H5T_C_S1 + INTEGER(HID_T) :: H5T_NATIVE_REAL_C_FLOAT !< H5T_NATIVE_REAL_C_FLOAT + INTEGER(HID_T) :: H5T_NATIVE_REAL_C_DOUBLE !< H5T_NATIVE_REAL_C_DOUBLE + INTEGER(HID_T) :: H5T_NATIVE_REAL_C_LONG_DOUBLE !< H5T_NATIVE_REAL_C_LONG_DOUBLE + INTEGER(HID_T) :: H5T_NATIVE_INTEGER !< H5T_NATIVE_INTEGER + INTEGER(HID_T) :: H5T_NATIVE_REAL !< H5T_NATIVE_REAL + INTEGER(HID_T) :: H5T_NATIVE_DOUBLE !< H5T_NATIVE_DOUBLE + INTEGER(HID_T) :: H5T_NATIVE_CHARACTER !< H5T_NATIVE_CHARACTER + INTEGER(HID_T) :: H5T_STD_REF_OBJ !< H5T_STD_REF_OBJ + INTEGER(HID_T) :: H5T_STD_REF_DSETREG !< H5T_STD_REF_DSETREG + INTEGER(HID_T) :: H5T_IEEE_F32BE !< H5T_IEEE_F32BE + INTEGER(HID_T) :: H5T_IEEE_F32LE !< H5T_IEEE_F32LE + INTEGER(HID_T) :: H5T_IEEE_F64BE !< H5T_IEEE_F64BE + INTEGER(HID_T) :: H5T_IEEE_F64LE !< H5T_IEEE_F64LE + INTEGER(HID_T) :: H5T_STD_I8BE !< H5T_STD_I8BE + INTEGER(HID_T) :: H5T_STD_I8LE !< H5T_STD_I8LE + INTEGER(HID_T) :: H5T_STD_I16BE !< H5T_STD_I16BE + INTEGER(HID_T) :: H5T_STD_I16LE !< H5T_STD_I16LE + INTEGER(HID_T) :: H5T_STD_I32BE !< H5T_STD_I32BE + INTEGER(HID_T) :: H5T_STD_I32LE !< H5T_STD_I32LE + INTEGER(HID_T) :: H5T_STD_I64BE !< H5T_STD_I64BE + INTEGER(HID_T) :: H5T_STD_I64LE !< H5T_STD_I64LE + INTEGER(HID_T) :: H5T_STD_U8BE !< H5T_STD_U8BE + INTEGER(HID_T) :: H5T_STD_U8LE !< H5T_STD_U8LE + INTEGER(HID_T) :: H5T_STD_U16BE !< H5T_STD_U16BE + INTEGER(HID_T) :: H5T_STD_U16LE !< H5T_STD_U16LE + INTEGER(HID_T) :: H5T_STD_U32BE !< H5T_STD_U32BE + INTEGER(HID_T) :: H5T_STD_U32LE !< H5T_STD_U32LE + INTEGER(HID_T) :: H5T_STD_U64BE !< H5T_STD_U64BE + INTEGER(HID_T) :: H5T_STD_U64LE !< H5T_STD_U64LE + INTEGER(HID_T) :: H5T_STRING !< H5T_STRING + INTEGER(HID_T) :: H5T_STD_B8BE !< H5T_STD_B8BE + INTEGER(HID_T) :: H5T_STD_B8LE !< H5T_STD_B8LE + INTEGER(HID_T) :: H5T_STD_B16BE !< H5T_STD_B16BE + INTEGER(HID_T) :: H5T_STD_B16LE !< H5T_STD_B16LE + INTEGER(HID_T) :: H5T_STD_B32BE !< H5T_STD_B32BE + INTEGER(HID_T) :: H5T_STD_B32LE !< H5T_STD_B32LE + INTEGER(HID_T) :: H5T_STD_B64BE !< H5T_STD_B64BE + INTEGER(HID_T) :: H5T_STD_B64LE !< H5T_STD_B64LE + INTEGER(HID_T) :: H5T_NATIVE_B8 !< H5T_NATIVE_B8 + INTEGER(HID_T) :: H5T_NATIVE_B16 !< H5T_NATIVE_B16 + INTEGER(HID_T) :: H5T_NATIVE_B32 !< H5T_NATIVE_B32 + INTEGER(HID_T) :: H5T_NATIVE_B64 !< H5T_NATIVE_B64 + INTEGER(HID_T) :: H5T_FORTRAN_S1 !< H5T_FORTRAN_S1 + INTEGER(HID_T) :: H5T_C_S1 !< H5T_C_S1 INTEGER, PARAMETER :: NUM_NATIVE_INTEGER_KIND = 5 ! INTEGER*1, INTEGER*2, INTEGER*4, INTEGER*8, INTEGER*16 INTEGER(HID_T), DIMENSION(1:NUM_NATIVE_INTEGER_KIND) :: H5T_NATIVE_INTEGER_KIND - - INTEGER(HID_T) :: H5T_NATIVE_FLOAT_128 ! NEED IFDEF -MSB- + ! NEED IFDEF -MSB- + INTEGER(HID_T) :: H5T_NATIVE_FLOAT_128 !< Quadruple-precision floating-point ! ! H5generic flags declaration ! @@ -203,17 +194,17 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: HADDR_UNDEF_F !DEC$endif - INTEGER :: H5_INDEX_UNKNOWN_F - INTEGER :: H5_INDEX_NAME_F - INTEGER :: H5_INDEX_CRT_ORDER_F - INTEGER :: H5_INDEX_N_F - INTEGER :: H5_ITER_UNKNOWN_F - INTEGER :: H5_ITER_INC_F - INTEGER :: H5_ITER_DEC_F - INTEGER :: H5_ITER_NATIVE_F - INTEGER :: H5_ITER_N_F - - INTEGER(HADDR_T) :: HADDR_UNDEF_F + INTEGER :: H5_INDEX_UNKNOWN_F !< H5_INDEX_UNKNOWN + INTEGER :: H5_INDEX_NAME_F !< H5_INDEX_NAME + INTEGER :: H5_INDEX_CRT_ORDER_F !< H5_INDEX_CRT_ORDER + INTEGER :: H5_INDEX_N_F !< H5_INDEX_N + INTEGER :: H5_ITER_UNKNOWN_F !< H5_ITER_UNKNOWN + INTEGER :: H5_ITER_INC_F !< H5_ITER_INC + INTEGER :: H5_ITER_DEC_F !< H5_ITER_DEC + INTEGER :: H5_ITER_NATIVE_F !< H5_ITER_NATIVE + INTEGER :: H5_ITER_N_F !< H5_ITER_N + + INTEGER(HADDR_T) :: HADDR_UNDEF_F !< HADDR_UNDEF ! ! H5F flags declaration ! @@ -245,31 +236,31 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5F_LIBVER_V114_F !DEC$endif - 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 - INTEGER :: H5F_CLOSE_DEFAULT_F - INTEGER :: H5F_CLOSE_WEAK_F - INTEGER :: H5F_CLOSE_SEMI_F - INTEGER :: H5F_CLOSE_STRONG_F - INTEGER :: H5F_OBJ_FILE_F - INTEGER :: H5F_OBJ_DATASET_F - INTEGER :: H5F_OBJ_GROUP_F - INTEGER :: H5F_OBJ_DATATYPE_F - INTEGER :: H5F_OBJ_ALL_F - INTEGER :: H5F_LIBVER_EARLIEST_F - INTEGER :: H5F_LIBVER_LATEST_F - INTEGER :: H5F_UNLIMITED_F - INTEGER :: H5F_LIBVER_ERROR_F - INTEGER :: H5F_LIBVER_NBOUNDS_F - INTEGER :: H5F_LIBVER_V18_F - INTEGER :: H5F_LIBVER_V110_F - INTEGER :: H5F_LIBVER_V112_F - INTEGER :: H5F_LIBVER_V114_F + INTEGER :: H5F_ACC_RDWR_F !< H5F_ACC_RDWR + INTEGER :: H5F_ACC_RDONLY_F !< H5F_ACC_RDONLY + INTEGER :: H5F_ACC_TRUNC_F !< H5F_ACC_TRUNC + INTEGER :: H5F_ACC_EXCL_F !< H5F_ACC_EXCL + INTEGER :: H5F_ACC_DEBUG_F !< H5F_ACC_DEBUG + INTEGER :: H5F_SCOPE_LOCAL_F !< H5F_SCOPE_LOCAL + INTEGER :: H5F_SCOPE_GLOBAL_F !< H5F_SCOPE_GLOBAL + INTEGER :: H5F_CLOSE_DEFAULT_F !< H5F_CLOSE_DEFAULT + INTEGER :: H5F_CLOSE_WEAK_F !< H5F_CLOSE_WEAK + INTEGER :: H5F_CLOSE_SEMI_F !< H5F_CLOSE_SEMI + INTEGER :: H5F_CLOSE_STRONG_F !< H5F_CLOSE_STRONG + INTEGER :: H5F_OBJ_FILE_F !< H5F_OBJ_FILE + INTEGER :: H5F_OBJ_DATASET_F !< H5F_OBJ_DATASET + INTEGER :: H5F_OBJ_GROUP_F !< H5F_OBJ_GROUP + INTEGER :: H5F_OBJ_DATATYPE_F !< H5F_OBJ_DATATYPE + INTEGER :: H5F_OBJ_ALL_F !< H5F_OBJ_ALL + INTEGER :: H5F_LIBVER_EARLIEST_F !< H5F_LIBVER_EARLIEST + INTEGER :: H5F_LIBVER_LATEST_F !< H5F_LIBVER_LATEST + INTEGER :: H5F_UNLIMITED_F !< H5F_UNLIMITED + INTEGER :: H5F_LIBVER_ERROR_F !< H5F_LIBVER_ERROR + INTEGER :: H5F_LIBVER_NBOUNDS_F !< H5F_LIBVER_NBOUNDS + INTEGER :: H5F_LIBVER_V18_F !< H5F_LIBVER_V18 + INTEGER :: H5F_LIBVER_V110_F !< H5F_LIBVER_V110 + INTEGER :: H5F_LIBVER_V112_F !< H5F_LIBVER_V112 + INTEGER :: H5F_LIBVER_V114_F !< H5F_LIBVER_V114 ! ! H5G flags declaration ! @@ -290,20 +281,20 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5G_STORAGE_TYPE_DENSE_F !DEC$endif - INTEGER :: H5G_UNKNOWN_F - INTEGER :: H5G_GROUP_F - INTEGER :: H5G_DATASET_F - INTEGER :: H5G_TYPE_F - INTEGER :: H5G_LINK_F - INTEGER :: H5G_UDLINK_F - INTEGER :: H5G_SAME_LOC_F - INTEGER :: H5G_LINK_ERROR_F - INTEGER :: H5G_LINK_HARD_F - INTEGER :: H5G_LINK_SOFT_F - INTEGER :: H5G_STORAGE_TYPE_UNKNOWN_F - INTEGER :: H5G_STORAGE_TYPE_SYMBOL_TABLE_F - INTEGER :: H5G_STORAGE_TYPE_COMPACT_F - INTEGER :: H5G_STORAGE_TYPE_DENSE_F + INTEGER :: H5G_UNKNOWN_F !< H5G_UNKNOWN + INTEGER :: H5G_GROUP_F !< H5G_GROUP + INTEGER :: H5G_DATASET_F !< H5G_DATASET + INTEGER :: H5G_TYPE_F !< H5G_TYPE + INTEGER :: H5G_LINK_F !< H5G_LINK + INTEGER :: H5G_UDLINK_F !< H5G_UDLINK + INTEGER :: H5G_SAME_LOC_F !< H5G_SAME_LOC + INTEGER :: H5G_LINK_ERROR_F !< H5G_LINK_ERROR + INTEGER :: H5G_LINK_HARD_F !< H5G_LINK_HARD + INTEGER :: H5G_LINK_SOFT_F !< H5G_LINK_SOFT + INTEGER :: H5G_STORAGE_TYPE_UNKNOWN_F !< H5G_STORAGE_TYPE_UNKNOWN + INTEGER :: H5G_STORAGE_TYPE_SYMBOL_TABLE_F !< H5G_STORAGE_TYPE_SYMBOL_TABLE + INTEGER :: H5G_STORAGE_TYPE_COMPACT_F !< H5G_STORAGE_TYPE_COMPACT + INTEGER :: H5G_STORAGE_TYPE_DENSE_F !< H5G_STORAGE_TYPE_DENSE ! ! H5D flags declaration ! @@ -341,48 +332,48 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5D_VIRTUAL_F !DEC$endif - INTEGER :: H5D_COMPACT_F - INTEGER :: H5D_CONTIGUOUS_F - INTEGER :: H5D_CHUNKED_F + INTEGER :: H5D_COMPACT_F !< H5D_COMPACT + INTEGER :: H5D_CONTIGUOUS_F !< H5D_CONTIGUOUS + INTEGER :: H5D_CHUNKED_F !< H5D_CHUNKED - 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_ALLOC_TIME_ERROR_F !< H5D_ALLOC_TIME_ERROR + INTEGER :: H5D_ALLOC_TIME_DEFAULT_F !< H5D_ALLOC_TIME_DEFAULT + INTEGER :: H5D_ALLOC_TIME_EARLY_F !< H5D_ALLOC_TIME_EARLY + INTEGER :: H5D_ALLOC_TIME_LATE_F !< H5D_ALLOC_TIME_LATE + INTEGER :: H5D_ALLOC_TIME_INCR_F !< H5D_ALLOC_TIME_INCR - 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_SPACE_STS_ERROR_F !< H5D_SPACE_STS_ERROR + INTEGER :: H5D_SPACE_STS_NOT_ALLOCATED_F !< H5D_SPACE_STS_NOT_ALLOCATED + INTEGER :: H5D_SPACE_STS_PART_ALLOCATED_F !< H5D_SPACE_STS_PART_ALLOCATED + INTEGER :: H5D_SPACE_STS_ALLOCATED_F !< H5D_SPACE_STS_ALLOCATED - INTEGER :: H5D_FILL_TIME_ERROR_F - INTEGER :: H5D_FILL_TIME_ALLOC_F - INTEGER :: H5D_FILL_TIME_NEVER_F + INTEGER :: H5D_FILL_TIME_ERROR_F !< H5D_FILL_TIME_ERROR + INTEGER :: H5D_FILL_TIME_ALLOC_F !< H5D_FILL_TIME_ALLOC + INTEGER :: H5D_FILL_TIME_NEVER_F !< H5D_FILL_TIME_NEVER - 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 + INTEGER :: H5D_FILL_VALUE_ERROR_F !< H5D_FILL_VALUE_ERROR + INTEGER :: H5D_FILL_VALUE_UNDEFINED_F !< H5D_FILL_VALUE_UNDEFINED + INTEGER :: H5D_FILL_VALUE_DEFAULT_F !< H5D_FILL_VALUE_DEFAULT + INTEGER :: H5D_FILL_VALUE_USER_DEFINED_F !< H5D_FILL_VALUE_USER_DEFINED - ! shortened "_DEFAULT" to "_DFLT" to satisfy the limit of 31 + ! shortened "_DEFAULT" to "_DFLT" to satisfy the limit of 31 (F95) ! characters for variable names in Fortran. - ! shortened "_CONTIGUOUS" to "_CONTIG" to satisfy the limit of 31 + ! shortened "_CONTIGUOUS" to "_CONTIG" to satisfy the limit of 31 (F95) ! characters for variable names in Fortran. - INTEGER(SIZE_T) :: H5D_CHUNK_CACHE_NSLOTS_DFLT_F - INTEGER(SIZE_T) :: H5D_CHUNK_CACHE_NBYTES_DFLT_F - - INTEGER :: H5D_CHUNK_CACHE_W0_DFLT_F - INTEGER :: H5D_MPIO_NO_COLLECTIVE_F - INTEGER :: H5D_MPIO_CHUNK_INDEPENDENT_F - INTEGER :: H5D_MPIO_CHUNK_COLLECTIVE_F - INTEGER :: H5D_MPIO_CHUNK_MIXED_F - INTEGER :: H5D_MPIO_CONTIG_COLLECTIVE_F - INTEGER :: H5D_VDS_ERROR_F - INTEGER :: H5D_VDS_FIRST_MISSING_F - INTEGER :: H5D_VDS_LAST_AVAILABLE_F - INTEGER :: H5D_VIRTUAL_F + INTEGER(SIZE_T) :: H5D_CHUNK_CACHE_NSLOTS_DFLT_F !< H5D_CHUNK_CACHE_NSLOTS_DEFAULT + INTEGER(SIZE_T) :: H5D_CHUNK_CACHE_NBYTES_DFLT_F !< H5D_CHUNK_CACHE_NBYTES_DEFAULT + + INTEGER :: H5D_CHUNK_CACHE_W0_DFLT_F !< H5D_CHUNK_CACHE_W0_DEFAULT + INTEGER :: H5D_MPIO_NO_COLLECTIVE_F !< H5D_MPIO_NO_COLLECTIVE + INTEGER :: H5D_MPIO_CHUNK_INDEPENDENT_F !< H5D_MPIO_CHUNK_INDEPENDENT + INTEGER :: H5D_MPIO_CHUNK_COLLECTIVE_F !< H5D_MPIO_CHUNK_COLLECTIVE + INTEGER :: H5D_MPIO_CHUNK_MIXED_F !< H5D_MPIO_CHUNK_MIXED + INTEGER :: H5D_MPIO_CONTIG_COLLECTIVE_F !< H5D_MPIO_CONTIGUOUS_COLLECTIVE + INTEGER :: H5D_VDS_ERROR_F !< H5D_VDS_ERROR + INTEGER :: H5D_VDS_FIRST_MISSING_F !< H5D_VDS_FIRST_MISSING + INTEGER :: H5D_VDS_LAST_AVAILABLE_F !< H5D_VDS_LAST_AVAILABLE + INTEGER :: H5D_VIRTUAL_F !< H5D_VIRTUAL ! ! H5E flags declaration ! @@ -394,11 +385,11 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5E_WALK_DOWNWARD_F !DEC$endif - INTEGER(HID_T) :: H5E_DEFAULT_F - INTEGER :: H5E_MAJOR_F - INTEGER :: H5E_MINOR_F - INTEGER :: H5E_WALK_UPWARD_F - INTEGER :: H5E_WALK_DOWNWARD_F + INTEGER(HID_T) :: H5E_DEFAULT_F !< H5E_DEFAULT + INTEGER :: H5E_MAJOR_F !< H5E_MAJOR + INTEGER :: H5E_MINOR_F !< H5E_MINOR + INTEGER :: H5E_WALK_UPWARD_F !< H5E_WALK_UPWARD + INTEGER :: H5E_WALK_DOWNWARD_F !< H5E_WALK_DOWNWARD ! ! H5FD file drivers flags declaration ! @@ -423,24 +414,24 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5FD_STDIO_F !DEC$endif - INTEGER :: H5FD_MPIO_INDEPENDENT_F - INTEGER :: H5FD_MPIO_COLLECTIVE_F - INTEGER :: H5FD_MEM_NOLIST_F - INTEGER :: H5FD_MEM_DEFAULT_F - INTEGER :: H5FD_MEM_SUPER_F - INTEGER :: H5FD_MEM_BTREE_F - INTEGER :: H5FD_MEM_DRAW_F - INTEGER :: H5FD_MEM_GHEAP_F - INTEGER :: H5FD_MEM_LHEAP_F - INTEGER :: H5FD_MEM_OHDR_F - INTEGER :: H5FD_MEM_NTYPES_F - INTEGER(HID_T) :: H5FD_CORE_F - INTEGER(HID_T) :: H5FD_FAMILY_F - INTEGER(HID_T) :: H5FD_LOG_F - INTEGER(HID_T) :: H5FD_MPIO_F - INTEGER(HID_T) :: H5FD_MULTI_F - INTEGER(HID_T) :: H5FD_SEC2_F - INTEGER(HID_T) :: H5FD_STDIO_F + INTEGER :: H5FD_MPIO_INDEPENDENT_F !< H5FD_MPIO_INDEPENDENT + INTEGER :: H5FD_MPIO_COLLECTIVE_F !< H5FD_MPIO_COLLECTIVE + INTEGER :: H5FD_MEM_NOLIST_F !< H5FD_MEM_NOLIST + INTEGER :: H5FD_MEM_DEFAULT_F !< H5FD_MEM_DEFAULT + INTEGER :: H5FD_MEM_SUPER_F !< H5FD_MEM_SUPER + INTEGER :: H5FD_MEM_BTREE_F !< H5FD_MEM_BTREE + INTEGER :: H5FD_MEM_DRAW_F !< H5FD_MEM_DRAW + INTEGER :: H5FD_MEM_GHEAP_F !< H5FD_MEM_GHEAP + INTEGER :: H5FD_MEM_LHEAP_F !< H5FD_MEM_LHEAP + INTEGER :: H5FD_MEM_OHDR_F !< H5FD_MEM_OHDR + INTEGER :: H5FD_MEM_NTYPES_F !< H5FD_MEM_NTYPES + INTEGER(HID_T) :: H5FD_CORE_F !< H5FD_CORE + INTEGER(HID_T) :: H5FD_FAMILY_F !< H5FD_FAMILY + INTEGER(HID_T) :: H5FD_LOG_F !< H5FD_LOG + INTEGER(HID_T) :: H5FD_MPIO_F !< H5FD_MPIO + INTEGER(HID_T) :: H5FD_MULTI_F !< H5FD_MULTI + INTEGER(HID_T) :: H5FD_SEC2_F !< H5FD_SEC2 + INTEGER(HID_T) :: H5FD_STDIO_F !< H5FD_STDIO ! ! H5I flags declaration ! @@ -464,23 +455,23 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5I_INVALID_HID_F !DEC$endif - 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 - INTEGER :: H5I_UNINIT_F - INTEGER :: H5I_VFL_F - INTEGER :: H5I_VOL_F - INTEGER :: H5I_GENPROP_CLS_F - INTEGER :: H5I_GENPROP_LST_F - INTEGER :: H5I_ERROR_CLASS_F - INTEGER :: H5I_ERROR_MSG_F - INTEGER :: H5I_ERROR_STACK_F - INTEGER :: H5I_NTYPES_F - INTEGER :: H5I_INVALID_HID_F + INTEGER :: H5I_FILE_F !< H5I_FILE + INTEGER :: H5I_GROUP_F !< H5I_GROUP + INTEGER :: H5I_DATATYPE_F !< H5I_DATATYPE + INTEGER :: H5I_DATASPACE_F !< H5I_DATASPACE + INTEGER :: H5I_DATASET_F !< H5I_DATASET + INTEGER :: H5I_ATTR_F !< H5I_ATTR + INTEGER :: H5I_BADID_F !< H5I_BADID + INTEGER :: H5I_UNINIT_F !< H5I_UNINIT + INTEGER :: H5I_VFL_F !< H5I_VFL + INTEGER :: H5I_VOL_F !< H5I_VOL + INTEGER :: H5I_GENPROP_CLS_F !< H5I_GENPROP_CLS + INTEGER :: H5I_GENPROP_LST_F !< H5I_GENPROP_LST + INTEGER :: H5I_ERROR_CLASS_F !< H5I_ERROR_CLASS + INTEGER :: H5I_ERROR_MSG_F !< H5I_ERROR_MSG + INTEGER :: H5I_ERROR_STACK_F !< H5I_ERROR_STACK + INTEGER :: H5I_NTYPES_F !< H5I_NTYPES + INTEGER :: H5I_INVALID_HID_F !< H5I_INVALID_HID ! ! H5L flags declaration @@ -494,12 +485,12 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5L_LINK_CLASS_T_VERS_F !DEC$endif - INTEGER :: H5L_TYPE_ERROR_F - INTEGER :: H5L_TYPE_HARD_F - INTEGER :: H5L_TYPE_SOFT_F - INTEGER :: H5L_TYPE_EXTERNAL_F - INTEGER :: H5L_SAME_LOC_F - INTEGER :: H5L_LINK_CLASS_T_VERS_F + INTEGER :: H5L_TYPE_ERROR_F !< H5L_TYPE_ERROR + INTEGER :: H5L_TYPE_HARD_F !< H5L_TYPE_HARD + INTEGER :: H5L_TYPE_SOFT_F !< H5L_TYPE_SOFT + INTEGER :: H5L_TYPE_EXTERNAL_F !< H5L_TYPE_EXTERNAL + INTEGER :: H5L_SAME_LOC_F !< H5L_SAME_LOC + INTEGER :: H5L_LINK_CLASS_T_VERS_F !< H5L_LINK_CLASS_T_VERS ! ! H5O flags declaration ! @@ -539,40 +530,41 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5O_INFO_META_SIZE_F ! !DEC$endif - - INTEGER :: H5O_COPY_SHALLOW_HIERARCHY_F ! *** THESE VARIABLES DO - INTEGER :: H5O_COPY_EXPAND_SOFT_LINK_F ! NOT MATCH THE C VARIABLE - INTEGER :: H5O_COPY_EXPAND_EXT_LINK_F ! IN ORDER - INTEGER :: H5O_COPY_EXPAND_REFERENCE_F ! TO STAY UNDER THE - INTEGER :: H5O_COPY_WITHOUT_ATTR_FLAG_F - INTEGER :: H5O_COPY_PRESERVE_NULL_FLAG_F - INTEGER :: H5O_COPY_ALL_F - INTEGER :: H5O_SHMESG_NONE_FLAG_F - INTEGER :: H5O_SHMESG_SDSPACE_FLAG_F - INTEGER :: H5O_SHMESG_DTYPE_FLAG_F - INTEGER :: H5O_SHMESG_FILL_FLAG_F - INTEGER :: H5O_SHMESG_PLINE_FLAG_F - INTEGER :: H5O_SHMESG_ATTR_FLAG_F - INTEGER :: H5O_SHMESG_ALL_FLAG_F - INTEGER :: H5O_HDR_CHUNK0_SIZE_F + ! *** THESE VARIABLES DO NOT MATCH THE C VARIABLE IN ORDER TO STAY UNDER THE 31 Character Limit (F95) *** + INTEGER :: H5O_COPY_SHALLOW_HIERARCHY_F !< H5O_COPY_SHALLOW_HIERARCHY_FLAG + INTEGER :: H5O_COPY_EXPAND_SOFT_LINK_F !< H5O_COPY_EXPAND_SOFT_LINK_FLAG + INTEGER :: H5O_COPY_EXPAND_EXT_LINK_F !< H5O_COPY_EXPAND_EXT_LINK_FLAG + INTEGER :: H5O_COPY_EXPAND_REFERENCE_F !< H5O_COPY_EXPAND_REFERENCE_FLAG + ! *** + INTEGER :: H5O_COPY_WITHOUT_ATTR_FLAG_F !< H5O_COPY_WITHOUT_ATTR_FLAG + INTEGER :: H5O_COPY_PRESERVE_NULL_FLAG_F !< H5O_COPY_PRESERVE_NULL_FLAG + INTEGER :: H5O_COPY_ALL_F !< H5O_COPY_ALL + INTEGER :: H5O_SHMESG_NONE_FLAG_F !< H5O_SHMESG_NONE_FLAG + INTEGER :: H5O_SHMESG_SDSPACE_FLAG_F !< H5O_SHMESG_SDSPACE_FLAG + INTEGER :: H5O_SHMESG_DTYPE_FLAG_F !< H5O_SHMESG_DTYPE_FLAG + INTEGER :: H5O_SHMESG_FILL_FLAG_F !< H5O_SHMESG_FILL_FLAG + INTEGER :: H5O_SHMESG_PLINE_FLAG_F !< H5O_SHMESG_PLINE_FLAG + INTEGER :: H5O_SHMESG_ATTR_FLAG_F !< H5O_SHMESG_ATTR_FLAG + INTEGER :: H5O_SHMESG_ALL_FLAG_F !< H5O_SHMESG_ALL_FLAG + INTEGER :: H5O_HDR_CHUNK0_SIZE_F !< H5O_HDR_CHUNK0_SIZE INTEGER :: H5O_HDR_ATTR_CRT_ORDER_TRACK_F ! 32 CHARACTER INTEGER :: H5O_HDR_ATTR_CRT_ORDER_INDEX_F ! VARIABLE INTEGER :: H5O_HDR_ATTR_STORE_PHASE_CHA_F ! LENGTH *** - INTEGER :: H5O_HDR_STORE_TIMES_F - INTEGER :: H5O_HDR_ALL_FLAGS_F - INTEGER :: H5O_SHMESG_MAX_NINDEXES_F - INTEGER :: H5O_SHMESG_MAX_LIST_SIZE_F - INTEGER :: H5O_TYPE_UNKNOWN_F - INTEGER :: H5O_TYPE_GROUP_F - INTEGER :: H5O_TYPE_DATASET_F - INTEGER :: H5O_TYPE_NAMED_DATATYPE_F - INTEGER :: H5O_TYPE_NTYPES_F - INTEGER :: H5O_INFO_ALL_F - INTEGER :: H5O_INFO_BASIC_F - INTEGER :: H5O_INFO_TIME_F - INTEGER :: H5O_INFO_NUM_ATTRS_F - INTEGER :: H5O_INFO_HDR_F - INTEGER :: H5O_INFO_META_SIZE_F + INTEGER :: H5O_HDR_STORE_TIMES_F !< H5O_HDR_STORE_TIMES + INTEGER :: H5O_HDR_ALL_FLAGS_F !< H5O_HDR_ALL_FLAGS + INTEGER :: H5O_SHMESG_MAX_NINDEXES_F !< H5O_SHMESG_MAX_NINDEXES + INTEGER :: H5O_SHMESG_MAX_LIST_SIZE_F !< H5O_SHMESG_MAX_LIST_SIZE + INTEGER :: H5O_TYPE_UNKNOWN_F !< H5O_TYPE_UNKNOWN + INTEGER :: H5O_TYPE_GROUP_F !< H5O_TYPE_GROUP + INTEGER :: H5O_TYPE_DATASET_F !< H5O_TYPE_DATASET + INTEGER :: H5O_TYPE_NAMED_DATATYPE_F !< H5O_TYPE_NAMED_DATATYPE + INTEGER :: H5O_TYPE_NTYPES_F !< H5O_TYPE_NTYPES + INTEGER :: H5O_INFO_ALL_F !< H5O_INFO_ALL + INTEGER :: H5O_INFO_BASIC_F !< H5O_INFO_BASIC + INTEGER :: H5O_INFO_TIME_F !< H5O_INFO_TIME + INTEGER :: H5O_INFO_NUM_ATTRS_F !< H5O_INFO_NUM_ATTRS + INTEGER :: H5O_INFO_HDR_F !< H5O_INFO_HDR + INTEGER :: H5O_INFO_META_SIZE_F !< H5O_INFO_META_SIZE ! ! H5P flags declaration ! @@ -599,27 +591,27 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5P_CRT_ORDER_TRACKED_F !DEC$endif - INTEGER(HID_T) :: H5P_FILE_CREATE_F - INTEGER(HID_T) :: H5P_FILE_ACCESS_F - INTEGER(HID_T) :: H5P_DATASET_CREATE_F - INTEGER(HID_T) :: H5P_DATASET_XFER_F - INTEGER(HID_T) :: H5P_FILE_MOUNT_F - INTEGER(HID_T) :: H5P_DEFAULT_F - INTEGER(HID_T) :: H5P_ROOT_F - INTEGER(HID_T) :: H5P_OBJECT_CREATE_F - INTEGER(HID_T) :: H5P_DATASET_ACCESS_F - INTEGER(HID_T) :: H5P_GROUP_CREATE_F - INTEGER(HID_T) :: H5P_GROUP_ACCESS_F - INTEGER(HID_T) :: H5P_DATATYPE_CREATE_F - INTEGER(HID_T) :: H5P_DATATYPE_ACCESS_F - INTEGER(HID_T) :: H5P_STRING_CREATE_F - INTEGER(HID_T) :: H5P_ATTRIBUTE_CREATE_F - INTEGER(HID_T) :: H5P_OBJECT_COPY_F - INTEGER(HID_T) :: H5P_LINK_CREATE_F - INTEGER(HID_T) :: H5P_LINK_ACCESS_F - - INTEGER :: H5P_CRT_ORDER_INDEXED_F - INTEGER :: H5P_CRT_ORDER_TRACKED_F + INTEGER(HID_T) :: H5P_FILE_CREATE_F !< H5P_FILE_CREATE + INTEGER(HID_T) :: H5P_FILE_ACCESS_F !< H5P_FILE_ACCESS + INTEGER(HID_T) :: H5P_DATASET_CREATE_F !< H5P_DATASET_CREATE + INTEGER(HID_T) :: H5P_DATASET_XFER_F !< H5P_DATASET_XFER + INTEGER(HID_T) :: H5P_FILE_MOUNT_F !< H5P_FILE_MOUNT + INTEGER(HID_T) :: H5P_DEFAULT_F !< H5P_DEFAULT + INTEGER(HID_T) :: H5P_ROOT_F !< H5P_ROOT + INTEGER(HID_T) :: H5P_OBJECT_CREATE_F !< H5P_OBJECT_CREATE + INTEGER(HID_T) :: H5P_DATASET_ACCESS_F !< H5P_DATASET_ACCESS + INTEGER(HID_T) :: H5P_GROUP_CREATE_F !< H5P_GROUP_CREATE + INTEGER(HID_T) :: H5P_GROUP_ACCESS_F !< H5P_GROUP_ACCESS + INTEGER(HID_T) :: H5P_DATATYPE_CREATE_F !< H5P_DATATYPE_CREATE + INTEGER(HID_T) :: H5P_DATATYPE_ACCESS_F !< H5P_DATATYPE_ACCESS + INTEGER(HID_T) :: H5P_STRING_CREATE_F !< H5P_STRING_CREATE + INTEGER(HID_T) :: H5P_ATTRIBUTE_CREATE_F !< H5P_ATTRIBUTE_CREATE + INTEGER(HID_T) :: H5P_OBJECT_COPY_F !< H5P_OBJECT_COPY + INTEGER(HID_T) :: H5P_LINK_CREATE_F !< H5P_LINK_CREATE + INTEGER(HID_T) :: H5P_LINK_ACCESS_F !< H5P_LINK_ACCESS + + INTEGER :: H5P_CRT_ORDER_INDEXED_F !< H5P_CRT_ORDER_INDEXED + INTEGER :: H5P_CRT_ORDER_TRACKED_F !< H5P_CRT_ORDER_TRACKED ! ! H5R flags declaration ! @@ -628,8 +620,8 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5R_DATASET_REGION_F !DEC$endif - INTEGER :: H5R_OBJECT_F - INTEGER :: H5R_DATASET_REGION_F + INTEGER :: H5R_OBJECT_F !< H5R_OBJECT + INTEGER :: H5R_DATASET_REGION_F !< H5R_DATASET_REGION ! ! H5S flags declaration ! @@ -656,30 +648,30 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5S_SEL_ALL_F !DEC$endif - INTEGER(HSIZE_T) :: H5S_UNLIMITED_F - - INTEGER(HID_T) :: H5S_ALL_F - - INTEGER :: H5S_SCALAR_F - INTEGER :: H5S_SIMPLE_F - INTEGER :: H5S_NULL_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 + INTEGER(HSIZE_T) :: H5S_UNLIMITED_F !< H5S_UNLIMITED + + INTEGER(HID_T) :: H5S_ALL_F !< H5S_ALL + + INTEGER :: H5S_SCALAR_F !< H5S_SCALAR + INTEGER :: H5S_SIMPLE_F !< H5S_SIMPLE + INTEGER :: H5S_NULL_F !< H5S_NULL + + INTEGER :: H5S_SELECT_NOOP_F !< H5S_SELECT_NOOP + INTEGER :: H5S_SELECT_SET_F !< H5S_SELECT_SET + INTEGER :: H5S_SELECT_OR_F !< H5S_SELECT_OR + INTEGER :: H5S_SELECT_AND_F !< H5S_SELECT_AND + INTEGER :: H5S_SELECT_XOR_F !< H5S_SELECT_XOR + INTEGER :: H5S_SELECT_NOTB_F !< H5S_SELECT_NOTB + INTEGER :: H5S_SELECT_NOTA_F !< H5S_SELECT_NOTA + INTEGER :: H5S_SELECT_APPEND_F !< H5S_SELECT_APPEND + INTEGER :: H5S_SELECT_PREPEND_F !< H5S_SELECT_PREPEND + INTEGER :: H5S_SELECT_INVALID_F !< H5S_SELECT_INVALID + + INTEGER :: H5S_SEL_ERROR_F !< H5S_SEL_ERROR + INTEGER :: H5S_SEL_NONE_F !< H5S_SEL_NONE + INTEGER :: H5S_SEL_POINTS_F !< H5S_SEL_POINTS + INTEGER :: H5S_SEL_HYPERSLABS_F !< H5S_SEL_HYPERSLABS + INTEGER :: H5S_SEL_ALL_F !< H5S_SEL_ALL ! ! H5T flags declaration ! @@ -721,41 +713,41 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5T_DIR_DESCEND_F !DEC$endif - 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_VLEN_F - INTEGER :: H5T_ARRAY_F - INTEGER :: H5T_ORDER_LE_F - INTEGER :: H5T_ORDER_BE_F - INTEGER :: H5T_ORDER_VAX_F - INTEGER :: H5T_ORDER_NONE_F - INTEGER :: H5T_ORDER_MIXED_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_CSET_UTF8_F - INTEGER :: H5T_STR_NULLTERM_F - INTEGER :: H5T_STR_NULLPAD_F - INTEGER :: H5T_STR_SPACEPAD_F - INTEGER :: H5T_STR_ERROR_F - INTEGER :: H5T_DIR_ASCEND_F - INTEGER :: H5T_DIR_DESCEND_F + INTEGER :: H5T_NO_CLASS_F !< H5T_NO_CLASS + INTEGER :: H5T_INTEGER_F !< H5T_INTEGER + INTEGER :: H5T_FLOAT_F !< H5T_FLOAT + INTEGER :: H5T_TIME_F !< H5T_TIME + INTEGER :: H5T_STRING_F !< H5T_STRING + INTEGER :: H5T_BITFIELD_F !< H5T_BITFIELD + INTEGER :: H5T_OPAQUE_F !< H5T_OPAQUE + INTEGER :: H5T_COMPOUND_F !< H5T_COMPOUND + INTEGER :: H5T_REFERENCE_F !< H5T_REFERENCE + INTEGER :: H5T_ENUM_F !< H5T_ENUM + INTEGER :: H5T_VLEN_F !< H5T_VLEN + INTEGER :: H5T_ARRAY_F !< H5T_ARRAY + INTEGER :: H5T_ORDER_LE_F !< H5T_ORDER_LE + INTEGER :: H5T_ORDER_BE_F !< H5T_ORDER_BE + INTEGER :: H5T_ORDER_VAX_F !< H5T_ORDER_VAX + INTEGER :: H5T_ORDER_NONE_F !< H5T_ORDER_NONE + INTEGER :: H5T_ORDER_MIXED_F !< H5T_ORDER_MIXED + INTEGER :: H5T_PAD_ZERO_F !< H5T_PAD_ZERO + INTEGER :: H5T_PAD_ONE_F !< H5T_PAD_ONE + INTEGER :: H5T_PAD_BACKGROUND_F !< H5T_PAD_BACKGROUND + INTEGER :: H5T_PAD_ERROR_F !< H5T_PAD_ERROR + INTEGER :: H5T_SGN_NONE_F !< H5T_SGN_NONE + INTEGER :: H5T_SGN_2_F !< H5T_SGN_2 + INTEGER :: H5T_SGN_ERROR_F !< H5T_SGN_ERROR + INTEGER :: H5T_NORM_IMPLIED_F !< H5T_NORM_IMPLIED + INTEGER :: H5T_NORM_MSBSET_F !< H5T_NORM_MSBSET + INTEGER :: H5T_NORM_NONE_F !< H5T_NORM_NONE + INTEGER :: H5T_CSET_ASCII_F !< H5T_CSET_ASCII + INTEGER :: H5T_CSET_UTF8_F !< H5T_CSET_UTF8 + INTEGER :: H5T_STR_NULLTERM_F !< H5T_STR_NULLTERM + INTEGER :: H5T_STR_NULLPAD_F !< H5T_STR_NULLPAD + INTEGER :: H5T_STR_SPACEPAD_F !< H5T_STR_SPACEPAD + INTEGER :: H5T_STR_ERROR_F !< H5T_STR_ERROR + INTEGER :: H5T_DIR_ASCEND_F !< H5T_DIR_ASCEND + INTEGER :: H5T_DIR_DESCEND_F !< H5T_DIR_DESCEND ! ! H5Z flags declaration ! @@ -782,26 +774,26 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5Z_SO_INT_MINBITS_DEFAULT_F !DEC$endif - INTEGER :: H5Z_FILTER_ERROR_F - INTEGER :: H5Z_FILTER_NONE_F - INTEGER :: H5Z_FILTER_ALL_F - INTEGER :: H5Z_FILTER_DEFLATE_F - INTEGER :: H5Z_FILTER_SHUFFLE_F - INTEGER :: H5Z_FILTER_FLETCHER32_F - INTEGER :: H5Z_FILTER_SZIP_F - INTEGER :: H5Z_ERROR_EDC_F - INTEGER :: H5Z_DISABLE_EDC_F - INTEGER :: H5Z_ENABLE_EDC_F - INTEGER :: H5Z_NO_EDC_F - INTEGER :: H5Z_FLAG_OPTIONAL_F - INTEGER :: H5Z_FILTER_ENCODE_ENABLED_F - INTEGER :: H5Z_FILTER_DECODE_ENABLED_F - INTEGER :: H5Z_FILTER_NBIT_F - INTEGER :: H5Z_FILTER_SCALEOFFSET_F - INTEGER :: H5Z_SO_FLOAT_DSCALE_F - INTEGER :: H5Z_SO_FLOAT_ESCALE_F - INTEGER :: H5Z_SO_INT_F - INTEGER :: H5Z_SO_INT_MINBITS_DEFAULT_F + INTEGER :: H5Z_FILTER_ERROR_F !< H5Z_FILTER_ERROR + INTEGER :: H5Z_FILTER_NONE_F !< H5Z_FILTER_NONE + INTEGER :: H5Z_FILTER_ALL_F !< H5Z_FILTER_ALL + INTEGER :: H5Z_FILTER_DEFLATE_F !< H5Z_FILTER_DEFLATE + INTEGER :: H5Z_FILTER_SHUFFLE_F !< H5Z_FILTER_SHUFFLE + INTEGER :: H5Z_FILTER_FLETCHER32_F !< H5Z_FILTER_FLETCHER32 + INTEGER :: H5Z_FILTER_SZIP_F !< H5Z_FILTER_SZIP + INTEGER :: H5Z_ERROR_EDC_F !< H5Z_ERROR_EDC + INTEGER :: H5Z_DISABLE_EDC_F !< H5Z_DISABLE_EDC + INTEGER :: H5Z_ENABLE_EDC_F !< H5Z_ENABLE_EDC + INTEGER :: H5Z_NO_EDC_F !< H5Z_NO_EDC + INTEGER :: H5Z_FLAG_OPTIONAL_F !< H5Z_FLAG_OPTIONAL + INTEGER :: H5Z_FILTER_ENCODE_ENABLED_F !< H5Z_FILTER_ENCODE_ENABLED + INTEGER :: H5Z_FILTER_DECODE_ENABLED_F !< H5Z_FILTER_DECODE_ENABLED + INTEGER :: H5Z_FILTER_NBIT_F !< H5Z_FILTER_NBIT + INTEGER :: H5Z_FILTER_SCALEOFFSET_F !< H5Z_FILTER_SCALEOFFSET + INTEGER :: H5Z_SO_FLOAT_DSCALE_F !< H5Z_SO_FLOAT_DSCALE + INTEGER :: H5Z_SO_FLOAT_ESCALE_F !< H5Z_SO_FLOAT_ESCALE + INTEGER :: H5Z_SO_INT_F !< H5Z_SO_INT + INTEGER :: H5Z_SO_INT_MINBITS_DEFAULT_F !< H5Z_SO_INT_MINBITS_DEFAULT ! ! H5 Library flags declaration ! @@ -810,98 +802,8 @@ MODULE H5GLOBAL !DEC$ATTRIBUTES DLLEXPORT :: H5_SZIP_NN_OM_F !DEC$endif - INTEGER :: H5_SZIP_EC_OM_F - INTEGER :: H5_SZIP_NN_OM_F - -CONTAINS - - ! Copy a c string to a Fortran string - - SUBROUTINE H5_Fortran_string_c2f(c_string, f_string) - - USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_CHAR, C_NULL_CHAR - IMPLICIT NONE - CHARACTER(KIND=C_CHAR, LEN=*), INTENT(IN) :: c_string - CHARACTER(LEN=*), INTENT(OUT) :: f_string - INTEGER(SIZE_T) :: c_len, f_len - - ! Find the length of the C string by locating the null terminator - c_len = MAX(INDEX(c_string,C_NULL_CHAR, KIND=SIZE_T)-1_SIZE_T,1_SIZE_T) - ! Find the length of the Fortran string - f_len = LEN(f_string) - - ! CASE (1): C string is equal to or larger than Fortran character buffer, - ! so fill the entire Fortran buffer. - IF(c_len.GE.f_len)THEN ! - f_string(1:f_len) = c_string(1:f_len) - - ! CASE (2): C string is smaller than Fortran character buffer, - ! so copy C string and blank pad remaining characters. - ELSE - f_string(1:c_len) = c_string(1:c_len) - f_string(c_len+1:f_len) =' ' - ENDIF - END SUBROUTINE H5_Fortran_string_c2f - - SUBROUTINE H5_Fortran_string_f2c(f_string, c_string) - - USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_CHAR, C_NULL_CHAR - IMPLICIT NONE - CHARACTER(LEN=*), INTENT(IN) :: f_string - CHARACTER(KIND=C_CHAR, LEN=*), INTENT(OUT) :: c_string - - c_string = TRIM(f_string)//C_NULL_CHAR - - END SUBROUTINE H5_Fortran_string_f2c - - -! Copy Fortran string to C character array, assuming the C array is one-char -! longer for the terminating null char. -! fstring : the Fortran input string -! cstring : the C output string (with memory already allocated) -!!$subroutine MPIR_Fortran_string_f2c(fstring, cstring) -!!$ implicit none -!!$ character(len=*), intent(in) :: fstring -!!$ character(kind=c_char), intent(out) :: cstring(:) -!!$ integer :: i, j -!!$ logical :: met_non_blank -!!$ -!!$ ! Trim the leading and trailing blank characters -!!$ j = 1 -!!$ met_non_blank = .false. -!!$ do i = 1, len_trim(fstring) -!!$ if (met_non_blank) then -!!$ cstring(j) = fstring(i:i) -!!$ j = j + 1 -!!$ else if (fstring(i:i) /= ' ') then -!!$ met_non_blank = .true. -!!$ cstring(j) = fstring(i:i) -!!$ j = j + 1 -!!$ end if -!!$ end do -!!$ -!!$ cstring(j) = C_NULL_CHAR -!!$end subroutine MPIR_Fortran_string_f2c -!!$ -!!$! Copy C character array to Fortran string -!!$subroutine MPIR_Fortran_string_c2f(cstring, fstring) -!!$ implicit none -!!$ character(kind=c_char), intent(in) :: cstring(:) -!!$ character(len=*), intent(out) :: fstring -!!$ integer :: i, j, length -!!$ -!!$ i = 1 -!!$ do while (cstring(i) /= C_NULL_CHAR) -!!$ fstring(i:i) = cstring(i) -!!$ i = i + 1 -!!$ end do -!!$ -!!$ ! Zero out the trailing characters -!!$ length = len(fstring) -!!$ do j = i, length -!!$ fstring(j:j) = ' ' -!!$ end do -!!$end subroutine MPIR_Fortran_string_c2f + INTEGER :: H5_SZIP_EC_OM_F !< H5_SZIP_EC_OM + INTEGER :: H5_SZIP_NN_OM_F !< H5_SZIP_NN_OM END MODULE H5GLOBAL -- cgit v0.12