diff options
Diffstat (limited to 'fortran/src/H5Off.F90')
-rw-r--r-- | fortran/src/H5Off.F90 | 38 |
1 files changed, 38 insertions, 0 deletions
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 |