diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-09-28 15:52:19 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-09-28 15:52:19 (GMT) |
commit | 1bec0ce2d785b5c0d7f4514fb50f44b524fe4f67 (patch) | |
tree | 03bb3367f57f7feddef64ed17f45bfc423256c25 /fortran/src | |
parent | 4184bac2ece1726056e5a0f3c91d38c5a5ef2c38 (diff) | |
download | hdf5-1bec0ce2d785b5c0d7f4514fb50f44b524fe4f67.zip hdf5-1bec0ce2d785b5c0d7f4514fb50f44b524fe4f67.tar.gz hdf5-1bec0ce2d785b5c0d7f4514fb50f44b524fe4f67.tar.bz2 |
Misc. Fortran Doxygen updates (#2129)
Diffstat (limited to 'fortran/src')
-rw-r--r-- | fortran/src/H5Eff.F90 | 4 | ||||
-rw-r--r-- | fortran/src/H5Off.F90 | 1 | ||||
-rw-r--r-- | fortran/src/H5Pff.F90 | 175 | ||||
-rw-r--r-- | fortran/src/H5Sff.F90 | 262 | ||||
-rw-r--r-- | fortran/src/H5Tff.F90 | 88 | ||||
-rw-r--r-- | fortran/src/H5VLff.F90 | 20 | ||||
-rw-r--r-- | fortran/src/H5Zff.F90 | 2 | ||||
-rw-r--r-- | fortran/src/H5f90proto.h | 2 |
8 files changed, 271 insertions, 283 deletions
diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90 index 7e833ab..d6cf664 100644 --- a/fortran/src/H5Eff.F90 +++ b/fortran/src/H5Eff.F90 @@ -122,7 +122,7 @@ 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); +!! 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 @@ -151,7 +151,7 @@ CONTAINS !! \param name Character string describing the error. !! \param hdferr \fortran_error !! -!! See C API: @ref char *H5Eget_minor(H5E_minor_t min); +!! See C API: @ref char* H5Eget_minor(H5E_minor_t min); !! SUBROUTINE h5eget_minor_f(error_no, name, hdferr) INTEGER, INTENT(IN) :: error_no diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90 index 274ebd5..b673b29 100644 --- a/fortran/src/H5Off.F90 +++ b/fortran/src/H5Off.F90 @@ -888,7 +888,6 @@ CONTAINS !! \param lapl_id Link access property list. (Not currently used.). !! \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, & diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 10b9539..82eaaf5 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -392,7 +392,7 @@ 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*/]); +!! See C API: @ref herr_t H5Pset_chunk(hid_t plist_id, int ndims, const hsize_t dim[]); !! SUBROUTINE h5pset_chunk_f(prp_id, ndims, dims, hdferr) IMPLICIT NONE @@ -492,7 +492,7 @@ 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*/); +!! See C API: @ref herr_t H5Pget_version(hid_t plist_id, unsigned *boot , unsigned *freelist, unsigned *stab, unsigned *shhdr); !! SUBROUTINE h5pget_version_f(prp_id, boot, freelist, & stab, shhdr, hdferr) @@ -530,7 +530,9 @@ CONTAINS !! \param size Size of the user-block in bytes. !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_userblock_f (prp_id, size, hdferr) +!! See C API: @ref herr_t H5Pset_userblock(hid_t plist_id, hsize_t size); +!! + SUBROUTINE h5pset_userblock_f(prp_id, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HSIZE_T), INTENT(IN) :: size @@ -586,7 +588,9 @@ CONTAINS !! \param sizeof_size Size of an object length in bytes. !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_sizes_f (prp_id, sizeof_addr, sizeof_size, hdferr) +!! See C API: @ref herr_t H5Pset_sizes(hid_t plist_id, size_t sizeof_addr, size_t sizeof_size); +!! + SUBROUTINE h5pset_sizes_f(prp_id, sizeof_addr, sizeof_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(SIZE_T), INTENT(IN) :: sizeof_addr @@ -616,7 +620,7 @@ 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*/); +!! See C API: @ref herr_t H5Pget_sizes(hid_t plist_id, size_t *sizeof_addr , size_t *sizeof_size); !! SUBROUTINE h5pget_sizes_f(prp_id, sizeof_addr, sizeof_size, hdferr) IMPLICIT NONE @@ -648,7 +652,9 @@ CONTAINS !! \param lk Symbol table node size. !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_sym_k_f (prp_id, ik, lk, hdferr) +!! See C API: @ref herr_t H5Pset_sym_k(hid_t plist_id, unsigned ik, unsigned lk); +!! + SUBROUTINE h5pset_sym_k_f(prp_id, ik, lk, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: ik @@ -677,7 +683,7 @@ 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*/); +!! See C API: @ref herr_t H5Pget_sym_k(hid_t plist_id, unsigned *ik, unsigned *lk); !! SUBROUTINE h5pget_sym_k_f(prp_id, ik, lk, hdferr) IMPLICIT NONE @@ -707,7 +713,9 @@ CONTAINS !! \param ik 1/2 rank of chunked storage B-tree !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_istore_k_f (prp_id, ik, hdferr) +!! See C API: @ref herr_t H5Pset_istore_k(hid_t plist_id, unsigned ik); +!! + SUBROUTINE h5pset_istore_k_f(prp_id, ik, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: ik @@ -791,7 +799,9 @@ CONTAINS !! \param prp_id File access property list identifier. !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_fapl_stdio_f (prp_id, hdferr) +!! See C API: @ref herr_t H5Pset_fapl_stdio(hid_t fapl_id); +!! + SUBROUTINE h5pset_fapl_stdio_f(prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: hdferr @@ -815,7 +825,9 @@ CONTAINS !! \param prp_id File access property list identifier. !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_fapl_sec2_f (prp_id, hdferr) +!! See C API: @ref herr_t H5Pset_fapl_sec2(hid_t fapl_id); +!! + SUBROUTINE h5pset_fapl_sec2_f(prp_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: hdferr @@ -873,7 +885,7 @@ 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*/); +!! See C API: @ref herr_t H5Pget_alignment(hid_t fapl_id, hsize_t *threshold, hsize_t *alignment); !! SUBROUTINE h5pget_alignment_f(prp_id, threshold, alignment, hdferr) IMPLICIT NONE @@ -905,6 +917,8 @@ CONTAINS !! \param backing_store Boolean flag indicating whether to write the file contents to disk when the file is closed. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fapl_core(hid_t fapl_id, size_t *increment, hbool_t *backing_store); +!! SUBROUTINE h5pset_fapl_core_f(prp_id, increment, backing_store, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -937,6 +951,8 @@ CONTAINS !! \param backing_store Boolean flag indicating whether to write the file contents to disk when the file is closed. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fapl_core(hid_t fapl_id, size_t *increment, hbool_t *backing_store); +!! SUBROUTINE h5pget_fapl_core_f(prp_id, increment, backing_store, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -971,6 +987,8 @@ CONTAINS !! \param memb_plist Identifier of the file access property list to be used for each family member !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fapl_family(hid_t fapl_id, hsize_t memb_size, hid_t memb_fapl_id); +!! SUBROUTINE h5pset_fapl_family_f(prp_id, memb_size, memb_plist , hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1001,6 +1019,8 @@ CONTAINS !! \param memb_plist Identifier of the file access property list to be used for each family member !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fapl_family(hid_t fapl_id, hsize_t *memb_size, hid_t *memb_fapl_id); +!! SUBROUTINE h5pget_fapl_family_f(prp_id, memb_size, memb_plist , hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1071,7 +1091,7 @@ 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); +!! See C API: @ref herr_t H5Pget_cache(hid_t plist_id, int *mdc_nelmts, size_t *rdcc_nslots, size_t *rdcc_nbytes, double *rdcc_w0); !! SUBROUTINE h5pget_cache_f(prp_id, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr) IMPLICIT NONE @@ -1109,6 +1129,8 @@ CONTAINS !! \param raw_plist Identifier of the raw file access property list. !! \param hdferr \fortran_error !! +!! See C API: herr_t H5Pset_fapl_split(hid_t fapl, const char *meta_ext, hid_t meta_plist_id, const char *raw_ext, hid_t raw_plist_id); +!! SUBROUTINE h5pset_fapl_split_f(prp_id, meta_ext, meta_plist, raw_ext, raw_plist, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -1147,7 +1169,9 @@ CONTAINS !! \param gc_reference Flag for setting garbage collection on and off (1 or 0). !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_gc_references_f (prp_id, gc_reference, hdferr) +!! See C API: herr_t H5Pset_gc_references(hid_t fapl_id, unsigned gc_ref); +!! + SUBROUTINE h5pset_gc_references_f(prp_id, gc_reference, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: gc_reference @@ -1207,7 +1231,9 @@ CONTAINS !! \li H5D_CHUNKED_F !! \param hdferr \fortran_error !! - SUBROUTINE h5pset_layout_f (prp_id, layout, hdferr) +!! See C API: @ref herr_t H5Pset_layout(hid_t plist_id, H5D_layout_t layout); +!! + SUBROUTINE h5pset_layout_f(prp_id, layout, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: layout @@ -1238,7 +1264,9 @@ CONTAINS !! \li H5D_CHUNKED_F !! \param hdferr \fortran_error !! - SUBROUTINE h5pget_layout_f (prp_id, layout, hdferr) +!! See C API: @ref H5D_layout_t H5Pget_layout(hid_t plist_id); +!! + SUBROUTINE h5pget_layout_f(prp_id, layout, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: layout @@ -1304,7 +1332,7 @@ CONTAINS !! \param nfilters Number of filters in the pipeline. !! \param hdferr \fortran_error !! - SUBROUTINE h5pget_nfilters_f (prp_id, nfilters, hdferr) + SUBROUTINE h5pget_nfilters_f(prp_id, nfilters, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: nfilters @@ -1337,7 +1365,7 @@ 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); +!! 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[], 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 @@ -1425,7 +1453,9 @@ CONTAINS !! \param count Number of external files for the specified dataset. !! \param hdferr \fortran_error !! - SUBROUTINE h5pget_external_count_f (prp_id, count, hdferr) +!! See C API: int H5Pget_external_count(hid_t plist_id); +!! + SUBROUTINE h5pget_external_count_f(prp_id, count, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: count @@ -1456,7 +1486,7 @@ 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*/); +!! 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); !! SUBROUTINE h5pget_external_f(prp_id, idx, name_size, name, offset,bytes, hdferr) IMPLICIT NONE @@ -1531,7 +1561,7 @@ 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); +!! See C API: @ref herr_t H5Pget_btree_ratios(hid_t plist_id, double *left , double *middle, double *right); !! SUBROUTINE h5pget_btree_ratios_f(prp_id, left, middle, right, hdferr) IMPLICIT NONE @@ -1698,7 +1728,7 @@ 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*/); +!! See C API: @ref size_t H5Pget_buffer(hid_t plist_id, void **tconv, void **bkg); !! SUBROUTINE h5pget_buffer_f(plist_id, size, hdferr) IMPLICIT NONE @@ -2238,7 +2268,7 @@ CONTAINS !! truncated to fit into provided user buffer. !! \param hdferr \fortran_error !! -!! See C API: @ref char *H5Pget_class_name(hid_t pclass_id); +!! See C API: @ref char* H5Pget_class_name(hid_t pclass_id); !! SUBROUTINE h5pget_class_name_f(prp_id, name, size, hdferr) IMPLICIT NONE @@ -2855,7 +2885,7 @@ 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*/); +!! 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[], size_t namelen, char name[], unsigned *filter_config); !! SUBROUTINE h5pget_filter_by_id_f(prp_id, filter_id, flags, cd_nelmts, cd_values, namelen, name, hdferr) IMPLICIT NONE @@ -2900,7 +2930,7 @@ 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*/]); +!! 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[]); !! SUBROUTINE h5pmodify_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr) IMPLICIT NONE @@ -3351,6 +3381,8 @@ CONTAINS !! \param crt_intermed_group Specifies whether to create intermediate groups upon the creation of an object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_create_intermediate_group(hid_t plist_id, unsigned *crt_intmd); +!! SUBROUTINE h5pset_create_inter_group_f(lcpl_id, crt_intermed_group, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: lcpl_id @@ -3379,7 +3411,7 @@ 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 */); +!! See C API: @ref herr_t H5Pget_link_creation_order(hid_t plist_id, unsigned *crt_order_flags); !! SUBROUTINE h5pget_link_creation_order_f(gcpl_id, crt_order_flags, hdferr) IMPLICIT NONE @@ -3649,7 +3681,7 @@ 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 */); +!! See C API: @ref herr_t H5Pget_est_link_info(hid_t plist_id, unsigned *est_num_entries, unsigned *est_name_len); !! SUBROUTINE h5pget_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) IMPLICIT NONE @@ -3778,6 +3810,8 @@ SUBROUTINE h5pset_link_phase_change_f(gcpl_id, max_compact, min_dense, hdferr) !! \param cbuf_size Copy buffer size. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fapl_direct(hid_t fapl_id, size_t alignment, size_t block_size, size_t cbuf_size); +!! SUBROUTINE h5pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id @@ -3811,6 +3845,8 @@ SUBROUTINE h5pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdfer !! \param cbuf_size Copy buffer size. !! \param hdferr \fortran_error !! +!! See C API: @ref H5Pget_fapl_direct(hid_t fapl_id, size_t *boundary, size_t *block_size, size_t *cbuf_size); +!! SUBROUTINE h5pget_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id @@ -4001,6 +4037,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param crt_intermed_group Specifying whether to create intermediate groups upon the creation of an object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_create_intermediate_group(hid_t plist_id, unsigned *crt_intmd); +!! SUBROUTINE h5pget_create_inter_group_f(lcpl_id, crt_intermed_group, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: lcpl_id @@ -4083,7 +4121,7 @@ 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); +!! See C API: @ref herr_t H5Pget_chunk_cache(hid_t dapl_id, size_t *rdcc_nslots , size_t *rdcc_nbytes, double *rdcc_w0); !! SUBROUTINE h5pget_chunk_cache_f(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0, hdferr) IMPLICIT NONE @@ -4321,7 +4359,7 @@ 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, +!! 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, H5P_prp_compare_func_t compare, H5P_prp_close_func_t close); !! SUBROUTINE h5pregister_f(class, name, size, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: class @@ -4347,7 +4385,7 @@ 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, +!! 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, H5P_prp_compare_func_t compare, H5P_prp_close_func_t close); !! SUBROUTINE h5pregister_f(class, name, size, value, hdferr) INTEGER(HID_T) , INTENT(IN) :: class @@ -4498,7 +4536,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HID_T), INTENT(IN) :: type_id - TYPE(C_PTR) :: fillvalue ! Fillvalue + TYPE(C_PTR) :: fillvalue INTEGER , INTENT(OUT) :: hdferr hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue) @@ -4522,8 +4560,6 @@ 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 @@ -4559,20 +4595,18 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) DEALLOCATE(chr) END SUBROUTINE h5pset_char -!> -!! \ingroup FH5P -!! -!! \brief Queries the value of a property. -!! -!! \param prp_id Property list identifier to modify. -!! \param name Name of property to get. -!! \param value Property value, supported types are: -!! \li INTEGER -!! \li REAL -!! \li DOUBLE PRECISION -!! \li CHARACTER(LEN=*) -!! \param hdferr \fortran_error -!! + +! \brief Queries the value of a property. +! +! \param prp_id Property list identifier to modify. +! \param name Name of property to get. +! \param value Property value, supported types are: +! \li INTEGER +! \li REAL +! \li DOUBLE PRECISION +! \li CHARACTER(LEN=*) +! \param hdferr \fortran_error +! SUBROUTINE h5pget_integer(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4589,8 +4623,6 @@ 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 @@ -4623,18 +4655,13 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) END SUBROUTINE h5pget_char -!> -!! \ingroup FH5P -!! -!! \brief Sets a property list value -!! -!! \param prp_id Property list identifier to modify. -!! \param name Name of property to modify. -!! \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); -!! +! \brief Sets a property list value +! +! \param prp_id Property list identifier to modify. +! \param name Name of property to modify. +! \param value Pointer to value to set the property to. +! \param hdferr \fortran_error +! SUBROUTINE h5pset_ptr(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4647,18 +4674,14 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) hdferr = h5pset_c(prp_id, name, name_len, value) END SUBROUTINE h5pset_ptr -!> -!! \ingroup FH5P -!! -!! \brief Queries the value of a property. -!! -!! \param prp_id Property list identifier to modify. -!! \param name Name of property to get. -!! \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); -!! + +! \brief Queries the value of a property. +! +! \param prp_id Property list identifier to modify. +! \param name Name of property to get. +! \param value Pointer to a location to which to copy the value of of the property. +! \param hdferr \fortran_error +! SUBROUTINE h5pget_ptr(prp_id, name, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4963,6 +4986,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param info MPI-2 info object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_fapl_mpio(hid_t fapl_id, MPI_Comm comm, MPI_Info info); +!! SUBROUTINE h5pset_fapl_mpio_f(prp_id, comm, info, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -4994,6 +5019,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \param info MPI-2 info object. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_fapl_mpio(hid_t fapl_id, MPI_Comm *comm, MPI_Info *info); +!! SUBROUTINE h5pget_fapl_mpio_f(prp_id, comm, info, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -5026,6 +5053,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li H5FD_MPIO_COLLECTIVE_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pset_dxpl_mpio(hid_t dxpl_id, H5FD_mpio_xfer_t xfer_mode); +!! SUBROUTINE h5pset_dxpl_mpio_f(prp_id, data_xfer_mode, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id @@ -5055,6 +5084,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! \li H5FD_MPIO_COLLECTIVE_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Pget_dxpl_mpio(hid_t dxpl_id, H5FD_mpio_xfer_t *xfer_mode); +!! SUBROUTINE h5pget_dxpl_mpio_f(prp_id, data_xfer_mode, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90 index 11404d4..b068deb 100644 --- a/fortran/src/H5Sff.F90 +++ b/fortran/src/H5Sff.F90 @@ -897,61 +897,58 @@ CONTAINS DEALLOCATE(def_stride) END SUBROUTINE h5sselect_hyperslab_f -! !$! -!> -!! !$! -!! !$! NAME -!! !$! h5scombine_hyperslab_f -!! !$! -!! !$! PURPOSE -!! !$! Combine a hyperslab selection with the current -!! !$! selection for a dataspace -!! !$! -!! !$! INPUTS -!! !$! space_id - dataspace of selection to use -!! !$! operator - flag, valid values are: -!! !$! H5S_SELECT_NOOP_F -!! !$! H5S_SELECT_SET_F -!! !$! H5S_SELECT_OR_F -!! !$! H5S_SELECT_AND_F -!! !$! H5S_SELECT_XOR_F -!! !$! H5S_SELECT_NOTB_F -!! !$! H5S_SELECT_NOTA_F -!! !$! H5S_SELECT_APPEND_F -!! !$! H5S_SELECT_PREPEND_F -!! !$! start - array with hyperslab offsets -!! !$! count - number of blocks included in the -!! !$! hyperslab -!! !$! OUTPUTS -!! !$! hyper_id - identifier for the new hyperslab -!! !$! hdferr: - error code -!! !$! Success: 0 -!! !$! Failure: -1 -!! !$! OPTIONAL PARAMETERS -!! !$! stride - array with hyperslab strides -!! !$! block - array with hyperslab block sizes -!! !$! -!! !$! AUTHOR -!! !$! Elena Pourmal -!! !$! October 7, 2002 -!! !$! -!! !$! HISTORY -!! !$! -!! !$! -!! !$! NOTES -!! !$! Commented out until 1.6 ? 10/08/2002 -!! !$! -!! !$! SOURCE +! +! NAME +! h5scombine_hyperslab_f +! +! PURPOSE +! Combine a hyperslab selection with the current +! selection for a dataspace +! +! INPUTS +! space_id - dataspace of selection to use +! operator - flag, valid values are: +! H5S_SELECT_NOOP_F +! H5S_SELECT_SET_F +! H5S_SELECT_OR_F +! H5S_SELECT_AND_F +! H5S_SELECT_XOR_F +! H5S_SELECT_NOTB_F +! H5S_SELECT_NOTA_F +! H5S_SELECT_APPEND_F +! H5S_SELECT_PREPEND_F +! start - array with hyperslab offsets +! count - number of blocks included in the +! hyperslab +! OUTPUTS +! hyper_id - identifier for the new hyperslab +! hdferr: - error code +! Success: 0 +! Failure: -1 +! OPTIONAL PARAMETERS +! stride - array with hyperslab strides +! block - array with hyperslab block sizes +! +! AUTHOR +! Elena Pourmal +! October 7, 2002 +! +! HISTORY +! +! +! NOTES +! Commented out until 1.6 ? 10/08/2002 +! +! SOURCE ! SUBROUTINE h5scombine_hyperslab_f(space_id, operator, start, count, & ! hyper_id, hdferr, stride, block) ! IMPLICIT NONE - - ! H5S_SELECT_AND_F - ! H5S_SELECT_XOR_F - ! H5S_SELECT_NOTB_F - ! H5S_SELECT_NOTA_F - ! H5S_SELECT_APPEND_F - ! H5S_SELECT_PREPEND_F + ! H5S_SELECT_AND_F + ! H5S_SELECT_XOR_F + ! H5S_SELECT_NOTB_F + ! H5S_SELECT_NOTA_F + ! H5S_SELECT_APPEND_F + ! H5S_SELECT_PREPEND_F ! ! INTEGER :: rank @@ -1019,49 +1016,46 @@ CONTAINS ! END SUBROUTINE h5scombine_hyperslab_f -! !$! -!> -!! !$! -!! !$! NAME -!! !$! h5scombine_select_f -!! !$! -!! !$! PURPOSE -!! !$! Combine two hyperslab selections with an operation -!! !$! and return a dataspace with resulting selection. -!! !$! -!! !$! INPUTS -!! !$! space1_id - dataspace of selection to use -!! !$! operator - flag, valid values are: -!! !$! H5S_SELECT_NOOP_F -!! !$! H5S_SELECT_SET_F -!! !$! H5S_SELECT_OR_F -!! !$! H5S_SELECT_AND_F -!! !$! H5S_SELECT_XOR_F -!! !$! H5S_SELECT_NOTB_F -!! !$! H5S_SELECT_NOTA_F -!! !$! H5S_SELECT_APPEND_F -!! !$! H5S_SELECT_PREPEND_F -!! !$! space2_id - dataspace of selection to use -!! !$! OUTPUTS -!! !$! ds_id - idataspace identifier with the new selection -!! !$! hdferr: - error code -!! !$! Success: 0 -!! !$! Failure: -1 -!! !$! OPTIONAL PARAMETERS - NONE -!! !$! -!! !$! AUTHOR -!! !$! Elena Pourmal -!! !$! October 7, 2002 -!! !$! -!! !$! HISTORY -!! !$! -!! !$! -!! !$! NOTES commented out until 1.6 release(?) 10/08/2002 -!! !$! ! -!! ! SOURCE -! !$ SUBROUTINE h5scombine_select_f(space1_id, operator, space2_id, & -! ds_id, hdferr) +! NAME +! h5scombine_select_f +! +! PURPOSE +! Combine two hyperslab selections with an operation +! and return a dataspace with resulting selection. +! +! INPUTS +! space1_id - dataspace of selection to use +! operator - flag, valid values are: +! H5S_SELECT_NOOP_F +! H5S_SELECT_SET_F +! H5S_SELECT_OR_F +! H5S_SELECT_AND_F +! H5S_SELECT_XOR_F +! H5S_SELECT_NOTB_F +! H5S_SELECT_NOTA_F +! H5S_SELECT_APPEND_F +! H5S_SELECT_PREPEND_F +! space2_id - dataspace of selection to use +! OUTPUTS +! ds_id - idataspace identifier with the new selection +! hdferr: - error code +! Success: 0 +! Failure: -1 +! OPTIONAL PARAMETERS - NONE +! +! AUTHOR +! Elena Pourmal +! October 7, 2002 +! +! HISTORY +! +! +! NOTES commented out until 1.6 release(?) 10/08/2002 +! +! +! SOURCE +! SUBROUTINE h5scombine_select_f(space1_id, operator, space2_id, s_id, hdferr) ! IMPLICIT NONE ! H5S_SELECT_AND_F @@ -1085,47 +1079,45 @@ CONTAINS ! END SUBROUTINE h5scombine_select_f -! !$! -!> -!! !$! -!! !$! NAME -!! !$! h5smodify_select_f -!! !$! -!! !$! PURPOSE -!! !$! Refine a hyperslab selection with an operation -!! !$! using second hyperslab -!! !$! -!! !$! INPUTS -!! !$! space1_id - dataspace of selection to modify -!! !$! operator - flag, valid values are: -!! !$! H5S_SELECT_NOOP_F -!! !$! H5S_SELECT_SET_F -!! !$! H5S_SELECT_OR_F -!! !$! H5S_SELECT_AND_F -!! !$! H5S_SELECT_XOR_F -!! !$! H5S_SELECT_NOTB_F -!! !$! H5S_SELECT_NOTA_F -!! !$! H5S_SELECT_APPEND_F -!! !$! H5S_SELECT_PREPEND_F -!! !$! space2_id - dataspace of selection to use -!! !$! -!! !$! OUTPUTS -!! !$! hdferr: - error code -!! !$! Success: 0 -!! !$! Failure: -1 -!! !$! OPTIONAL PARAMETERS - NONE -!! !$! -!! !$! AUTHOR -!! !$! Elena Pourmal -!! !$! October 7, 2002 -!! !$! -!! !$! HISTORY -!! !$! -!! !$! -!! !$! NOTESCommented out until 1.6 release(?) 10/08/2002 EIP -!! !$! ! -!! ! SOURCE +! NAME +! h5smodify_select_f +! +! PURPOSE +! Refine a hyperslab selection with an operation +! using second hyperslab +! +! INPUTS +! space1_id - dataspace of selection to modify +! operator - flag, valid values are: +! H5S_SELECT_NOOP_F +! H5S_SELECT_SET_F +! H5S_SELECT_OR_F +! H5S_SELECT_AND_F +! H5S_SELECT_XOR_F +! H5S_SELECT_NOTB_F +! H5S_SELECT_NOTA_F +! H5S_SELECT_APPEND_F +! H5S_SELECT_PREPEND_F +! space2_id - dataspace of selection to use +! +! OUTPUTS +! hdferr: - error code +! Success: 0 +! Failure: -1 +! OPTIONAL PARAMETERS - NONE +! +! AUTHOR +! Elena Pourmal +! October 7, 2002 +! +! HISTORY +! +! +! NOTESCommented out until 1.6 release(?) 10/08/2002 EIP +! +! +! SOURCE ! SUBROUTINE h5smodify_select_f(space1_id, operator, space2_id, & ! hdferr) ! IMPLICIT NONE @@ -1136,7 +1128,7 @@ CONTAINS ! H5S_SELECT_NOTA_F ! H5S_SELECT_APPEND_F ! H5S_SELECT_PREPEND_F - ! + ! ! space2_id) diff --git a/fortran/src/H5Tff.F90 b/fortran/src/H5Tff.F90 index 9ee0ee8..36a35be 100644 --- a/fortran/src/H5Tff.F90 +++ b/fortran/src/H5Tff.F90 @@ -1089,7 +1089,7 @@ CONTAINS !! \param namelen Name length. !! \param hdferr \fortran_error !! -!! See C API: @ref char *H5Tget_member_name(hid_t type_id, unsigned membno); +!! 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 @@ -1179,40 +1179,6 @@ CONTAINS hdferr = h5tget_member_index_c(type_id, name, namelen, index) END SUBROUTINE h5tget_member_index_f - -! !$! -!> -!! !$! -!! !$! NAME -!! !$! h5tget_member_dim_f -!! !$! -!! !$! PURPOSE -!! !$! This function is not supported in hdf5-1.4.* -!! !$! -!! !$! INPUTS -!! !$! OUTPUTS -!! !$! hdferr: - error code -!! !$! Success: 0 -!! !$! Failure: -1 -!! !$! -!! !$! AUTHOR -!! !$! Elena Pourmal -!! !$! August 12, 1999 -!! !$! -!! !$! HISTORY -!! !$! Explicit Fortran interfaces were added for -!! !$! called C functions (it is needed for Windows -!! !$! port). March 7, 2001 -!! !$! -!! !$! SOURCE -! !$! SUBROUTINE h5tget_member_dims_f(type_id, field_idx,dims, field_dims, perm, hdferr) -! !$! -! !$! IMPLICIT NONE - -! !$! -! !$! END SUBROUTINE h5tget_member_dims_f - - !> !! \ingroup FH5T !! @@ -1431,33 +1397,31 @@ CONTAINS hdferr = h5tpack_c(type_id) END SUBROUTINE h5tpack_f -! !$! -!> -!! !$! -!! !$! NAME -!! !$! h5tinsert_array_f -!! !$! -!! !$! PURPOSE -!! !$! This function is not available on hdf5-1.4.* -!! !$! -!! !$! INPUTS -!! !$! OUTPUTS -!! !$! hdferr: - error code -!! !$! Success: 0 -!! !$! Failure: -1 -!! !$! -!! !$! AUTHOR -!! !$! Elena Pourmal -!! !$! August 12, 1999 -!! !$! -!! !$! HISTORY -!! !$! Explicit Fortran interfaces were added for -!! !$! called C functions (it is needed for Windows -!! !$! port). March 7, 2001 -!! !$! SOURCE +! +! NAME +! h5tinsert_array_f +! +! PURPOSE +! This function is not available on hdf5-1.4.* +! +! INPUTS +! OUTPUTS +! hdferr: - error code +! Success: 0 +! Failure: -1 +! +! AUTHOR +! Elena Pourmal +! August 12, 1999 +! +! HISTORY +! Explicit Fortran interfaces were added for +! called C functions (it is needed for Windows +! port). March 7, 2001 +! SOURCE ! SUBROUTINE h5tinsert_array_f(parent_id,name,offset, ndims, dims, member_id, hdferr, perm) ! IMPLICIT NONE - +! ! INTEGER, EXTERNAL :: h5tinsert_array_c, h5tinsert_array_c2 ! namelen = LEN(name) ! if (present(perm)) then @@ -1679,7 +1643,7 @@ CONTAINS !! \param taglen Length of tag. !! \param hdferr \fortran_error !! -!! See C API: @ref char *H5Tget_tag(hid_t type); +!! See C API: @ref char* H5Tget_tag(hid_t type); !! SUBROUTINE h5tget_tag_f(type_id, tag,taglen, hdferr) IMPLICIT NONE @@ -1998,6 +1962,8 @@ CONTAINS !! \param flag .TRUE. for compiler conversion, .FALSE. for library conversion. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Tcompiler_conv(hid_t src_id, hid_t dst_id); +!! SUBROUTINE h5tcompiler_conv_f(src_id, dst_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: src_id diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90 index 1a4edf3..237e30d 100644 --- a/fortran/src/H5VLff.F90 +++ b/fortran/src/H5VLff.F90 @@ -49,7 +49,7 @@ CONTAINS ! H5VLregister_connector !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Registers a new VOL connector as a member of the virtual object layer class by name. !! @@ -90,7 +90,7 @@ CONTAINS END SUBROUTINE H5VLregister_connector_by_name_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Registers a new VOL connector by value. !! @@ -130,7 +130,7 @@ CONTAINS END SUBROUTINE H5VLregister_connector_by_value_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Determines whether a VOL class has been registered or not ccording to a specified connector name. !! @@ -167,7 +167,7 @@ CONTAINS END SUBROUTINE H5VLis_connector_registered_by_name_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Determines whether a VOL class has been registered or not according to a specified connector value (ID). !! @@ -201,7 +201,7 @@ CONTAINS END SUBROUTINE H5VLis_connector_registered_by_value_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Retrieves the ID for a registered VOL connector. !! @@ -234,7 +234,7 @@ CONTAINS END SUBROUTINE H5VLget_connector_id_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Retrieves the ID for a registered VOL connector. !! @@ -271,7 +271,7 @@ CONTAINS END SUBROUTINE H5VLget_connector_id_by_name_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Retrieves the ID for a registered VOL connector. !! @@ -304,7 +304,7 @@ CONTAINS END SUBROUTINE H5VLget_connector_id_by_value_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Retrieves a connector name for a VOL. !! @@ -351,7 +351,7 @@ CONTAINS END SUBROUTINE H5VLget_connector_name_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Closes a VOL connector ID. !! @@ -377,7 +377,7 @@ CONTAINS END SUBROUTINE H5VLclose_f !> -!! \ingroup FH5V +!! \ingroup FH5VL !! !! \brief Removes a VOL connector ID from the library. !! diff --git a/fortran/src/H5Zff.F90 b/fortran/src/H5Zff.F90 index d27c87b..42b3841 100644 --- a/fortran/src/H5Zff.F90 +++ b/fortran/src/H5Zff.F90 @@ -56,6 +56,8 @@ CONTAINS !! \li H5Z_FILTER_FLETCHER32_F !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Zunregister(H5Z_filter_t id); +!! SUBROUTINE h5zunregister_f(filter, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: filter diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 4aa33f6..0b348b7 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -305,8 +305,6 @@ H5_FCDLL int_f h5tget_strpad_c(hid_t_f *type_id, int_f *strpad); H5_FCDLL int_f h5tset_strpad_c(hid_t_f *type_id, int_f *strpad); H5_FCDLL int_f h5tget_nmembers_c(hid_t_f *type_id, int_f *num_members); H5_FCDLL int_f h5tget_member_name_c(hid_t_f *type_id, int_f *idx, _fcd member_name, int_f *namelen); -H5_FCDLL int_f h5tget_member_dims_c(hid_t_f *type_id, int_f *field_idx, int_f *dims, size_t_f *field_dims, - int_f *perm); H5_FCDLL int_f h5tget_member_offset_c(hid_t_f *type_id, int_f *member_no, size_t_f *offset); H5_FCDLL int_f h5tget_member_type_c(hid_t_f *type_id, int_f *field_idx, hid_t_f *datatype); H5_FCDLL int_f h5tget_member_index_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx); |