[svn-r2576] Purpose:

	Adding the Fortran interface to the HDF5 library
Description:
	Fortran is now a subdirectory of the HDF5 library tree.
Platforms tested:
	Solaris and IRIX (O2K)

1 files changed, 138 insertions, 0 deletions

diff --git a/fortran/src/H5Rff.f90 b/fortran/src/H5Rff.f90
new file mode 100644
index 0000000..3fd9142
--- /dev/null
+++ b/fortran/src/H5Rff.f90
@@ -0,0 +1,138 @@
+!
+! This file contains Fortran90 interfaces for H5R functions.
+! 
+      MODULE H5R
+        USE H5FORTRAN_TYPES 
+        USE H5FORTRAN_FLAGS
+
+        TYPE hobj_ref_t_f
+             !INTEGER(KIND=4) ref(2)   could cause trouble on Crays
+             CHARACTER ref(8)
+        END TYPE 
+
+        TYPE hdset_reg_ref_t_f
+             !INTEGER(KIND=4) reg_ref(3)  could cause troubles on Crays
+             CHARACTER ref(12)
+        END TYPE 
+
+          INTERFACE h5rcreate_f
+
+            MODULE PROCEDURE h5rcreate_object_f
+            MODULE PROCEDURE h5rcreate_region_f 
+
+          END INTERFACE 
+          
+          INTERFACE h5rdereference_f
+
+            MODULE PROCEDURE h5rdereference_object_f
+            MODULE PROCEDURE h5rdereference_region_f 
+
+          END INTERFACE 
+          
+          INTERFACE h5rget_region_f
+
+            MODULE PROCEDURE h5rget_region_region_f 
+
+          END INTERFACE 
+          
+          INTERFACE h5rget_object_type_f
+
+            MODULE PROCEDURE h5rget_object_type_obj_f
+
+          END INTERFACE 
+          
+
+        CONTAINS
+          
+  
+          SUBROUTINE h5rcreate_object_f(loc_id, name, ref, hdferr) 
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: loc_id   ! Location identifier 
+            CHARACTER(LEN=*), INTENT(IN) :: name   ! Name of the object at location specified
+                                                   ! by loc_id identifier 
+            TYPE(hobj_ref_t_f), INTENT(OUT) :: ref   ! Object reference 
+            INTEGER, INTENT(OUT) :: hdferr         ! Error code 
+
+            INTEGER :: namelen                     ! Name length
+            INTEGER, EXTERNAL :: h5rcreate_object_c
+            namelen = LEN(name)
+            hdferr = h5rcreate_object_c(ref, loc_id, name, namelen )
+
+          END SUBROUTINE h5rcreate_object_f
+          
+          SUBROUTINE h5rcreate_region_f(loc_id, name, space_id, ref, hdferr) 
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: loc_id   ! Location identifier 
+            CHARACTER(LEN=*), INTENT(IN) :: name   ! Name of the dataset at location specified
+                                                   ! by loc_id identifier 
+            INTEGER(HID_T), INTENT(IN) :: space_id ! Dataset's dataspace identifier 
+            TYPE(hdset_reg_ref_t_f), INTENT(OUT) :: ref ! Dataset region reference 
+            INTEGER, INTENT(OUT) :: hdferr         ! Error code 
+
+            INTEGER :: namelen                     ! Name length
+            INTEGER, EXTERNAL :: h5rcreate_region_c
+            namelen = LEN(name)
+            hdferr = h5rcreate_region_c(ref, loc_id, name, namelen, space_id )
+
+          END SUBROUTINE h5rcreate_region_f
+          
+          SUBROUTINE h5rdereference_object_f(dset_id, ref, obj_id, hdferr) 
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: dset_id   ! Dataset identifier 
+            TYPE(hobj_ref_t_f), INTENT(IN) :: ref   ! Object reference 
+            INTEGER(HID_T), INTENT(OUT) :: obj_id   ! Object identifier 
+            INTEGER, INTENT(OUT) :: hdferr         ! Error code 
+
+            INTEGER :: ref_type     ! Reference type 
+            INTEGER, EXTERNAL :: h5rdereference_object_c
+            ref_type = H5R_OBJECT_F
+            hdferr = h5rdereference_object_c(dset_id, ref, obj_id )
+
+          END SUBROUTINE h5rdereference_object_f
+          
+          SUBROUTINE h5rdereference_region_f(dset_id, ref, obj_id, hdferr) 
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: dset_id   ! Dataset identifier 
+            TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref   ! Object reference 
+            INTEGER(HID_T), INTENT(OUT) :: obj_id   ! Object identifier 
+            INTEGER, INTENT(OUT) :: hdferr          ! Error code 
+
+            INTEGER :: ref_type      ! Reference type 
+            INTEGER, EXTERNAL :: h5rdereference_region_c
+            ref_type = H5R_DATASET_REGION_F
+            hdferr = h5rdereference_region_c(dset_id, ref, obj_id )
+
+          END SUBROUTINE h5rdereference_region_f
+          
+          
+          SUBROUTINE h5rget_region_region_f(dset_id, ref, space_id, hdferr) 
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: dset_id   ! Dataset identifier 
+            TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref   ! Dataset region reference 
+            INTEGER(HID_T), INTENT(OUT) :: space_id   ! Space identifier 
+            INTEGER, INTENT(OUT) :: hdferr          ! Error code 
+
+            INTEGER, EXTERNAL :: h5rget_region_region_c
+            hdferr = h5rget_region_region_c(dset_id, ref, space_id )
+
+          END SUBROUTINE h5rget_region_region_f
+
+          SUBROUTINE h5rget_object_type_obj_f(dset_id, ref, obj_type, hdferr) 
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: dset_id   ! Dataset identifier 
+            TYPE(hobj_ref_t_f), INTENT(IN) :: ref   ! Object reference 
+            INTEGER, INTENT(OUT) :: obj_type   ! Object type  
+                                               !  H5G_UNKNOWN_F     (-1)
+                                               !  H5G_LINK_F         0
+                                               !  H5G_GROUP_F        1
+                                               !  H5G_DATASET_F      2
+                                               !  H5G_TYPE_F         3
+
+            INTEGER, INTENT(OUT) :: hdferr          ! Error code 
+
+            INTEGER, EXTERNAL :: h5rget_object_type_obj_c
+            hdferr = h5rget_object_type_obj_c(dset_id, ref, obj_type )
+
+          END SUBROUTINE h5rget_object_type_obj_f
+
+      END MODULE H5R