From 279e8545277cac36e4d5b8f6d1ce4f5da1582d2a Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 12 Apr 2024 11:03:53 -0500
Subject: [PATCH] new H5R fortran APIS: WIP

---
 fortran/src/H5Rff.F90       | 42 +++++++++++++++++++++++++++++++++++++
 fortran/src/H5f90global.F90 |  1 +
 2 files changed, 43 insertions(+)

diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90
index ea7cbb69c9b..ec854dc4881 100644
--- a/fortran/src/H5Rff.F90
+++ b/fortran/src/H5Rff.F90
@@ -75,6 +75,11 @@ MODULE H5R
      INTEGER(C_SIGNED_CHAR), DIMENSION(1:H5R_DSET_REG_REF_BUF_SIZE_F) :: ref
   END TYPE hdset_reg_ref_t_f03
 
+  TYPE, BIND(C) :: H5R_ref_t
+      INTEGER(C_INT8_T), DIMENSION(1:H5R_REF_BUF_SIZE_F) :: __data
+      INTEGER(C_INT64_T) :: align
+  END TYPE
+
   INTERFACE h5rget_object_type_f
      MODULE PROCEDURE h5rget_object_type_obj_f
   END INTERFACE
@@ -640,4 +645,41 @@ END FUNCTION h5rget_obj_type_c
 
   END SUBROUTINE h5rget_obj_type_f
 
+!>
+!! \ingroup FH5R
+!!
+!! \brief Opens the HDF5 object referenced.
+!!
+!! \param ref_ptr  Pointer to reference to open, points object of TYPE(H5R_ref_t)
+!! \param rapl_id  Reference access property list identifier
+!! \param oapl_id  Object access property list identifier
+!! \param hdferr   \fortran_error
+!!
+!! See C API: @ref  H5Ropen_object()
+!!
+  SUBROUTINE h5ropen_object_f(ref_ptr, rapl_id, oapl_id, hdferr)
+
+    IMPLICIT NONE
+
+    TYPE(C_PTR)                :: ref_ptr
+    INTEGER(HID_T), INTENT(IN) :: rapl_id
+    INTEGER(HID_T), INTENT(IN) :: oapl_id
+    INTEGER, INTENT(OUT) :: hdferr
+
+    INTERFACE
+       INTEGER(C_INT) FUNCTION H5Ropen_object_f(ref_ptr, rapl_id, oapl_id) &
+            BIND(C, NAME='H5Ropen_object')
+         IMPORT :: C_PTR, C_INT
+         IMPORT :: HID_T
+         IMPLICIT NONE
+         TYPE(C_PTR)   , VALUE :: ref_ptr
+         INTEGER(HID_T), VALUE :: rapl_id
+         INTEGER(HID_T), VALUE :: oapl_id
+       END FUNCTION H5Ropen_object_f
+    END INTERFACE
+
+    hdferr = INT(H5Ropen_object_f(ref_ptr, rapl_id, oapl_id))
+
+  END SUBROUTINE h5ropen_object_f
+
 END MODULE H5R
diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90
index 5b4fc648587..9bde45cd9c7 100644
--- a/fortran/src/H5f90global.F90
+++ b/fortran/src/H5f90global.F90
@@ -45,6 +45,7 @@ MODULE H5GLOBAL
   ! values in the H5f90.h file.
   INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
   INTEGER, PARAMETER :: H5O_TOKEN_BUF_LEN = 16 ! Matches C defined value in H5public.h
+  INTEGER, PARAMETER :: H5R_REF_BUF_SIZE_F = 64
 
 !> \addtogroup FH5R
 !> @{