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/H5Rff.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/H5Rff.F90')
-rw-r--r-- | fortran/src/H5Rff.F90 | 16 |
1 files changed, 14 insertions, 2 deletions
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 |