diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-09-27 03:50:09 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-09-27 03:50:09 (GMT) |
commit | 1c26386c38115d605a79d8c57a5df0dd181b93f3 (patch) | |
tree | 686fc53a8f361a082d792c05a607e181a91d99ab /fortran/src/H5Gff.F90 | |
parent | dcd332d2310d3f402a01ebfc187dc36101662d71 (diff) | |
download | hdf5-1c26386c38115d605a79d8c57a5df0dd181b93f3.zip hdf5-1c26386c38115d605a79d8c57a5df0dd181b93f3.tar.gz hdf5-1c26386c38115d605a79d8c57a5df0dd181b93f3.tar.bz2 |
Added C references to Fortran constants. (#2126)
* added C references for Fortran APIs
Diffstat (limited to 'fortran/src/H5Gff.F90')
-rw-r--r-- | fortran/src/H5Gff.F90 | 32 |
1 files changed, 32 insertions, 0 deletions
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 |