From 5287eef54938f42b96a0e6738ecc719d7b3df16f Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 17 Apr 2009 09:24:48 -0500
Subject: [svn-r16773] Description:

Added Fortran API h5dget_access_plist_f

Platforms Tested: Smirom - pgf90 ifort
---
 fortran/src/H5Df.c    | 28 ++++++++++++++++++++++++++++
 fortran/src/H5Dff.f90 | 46 ++++++++++++++++++++++++++++++++++++++++++++--
 2 files changed, 72 insertions(+), 2 deletions(-)

diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
index 58f3ce2..a7c6e75 100644
--- a/fortran/src/H5Df.c
+++ b/fortran/src/H5Df.c
@@ -1992,4 +1992,32 @@ nh5dcreate_anon_c (hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id,
   return ret_value;
 }
 
+/*----------------------------------------------------------------------------
+ * Name:        h5dget_access_plist_c
+ * Purpose:     Call H5Dget_access_plist
+ * Inputs:
+ *              dset_id   - dataset identifier
+ * Outputs:
+ *              plist_id  - the dataset access property list identifier.
+ *
+ * Returns:     0 on success, -1 on failure
+ * Programmer:  M.S. Breitenfeld
+ *              April 13, 2009
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dget_access_plist_c (hid_t_f *dset_id, hid_t_f *plist_id)
+{
+  int ret_value = -1;
+  /*
+   * Call H5Dget_access_plist function.
+   */
+  if((*plist_id = (hid_t_f)H5Dget_access_plist((hid_t)*dset_id)) < 0)
+    goto DONE;
+
+  ret_value = 0;
+  
+ DONE:
+  return ret_value;
+}
+
 
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index b170408..f06f5a5 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -220,7 +220,7 @@ CONTAINS
 !		   port).  February 28, 2001 
 !
 !                 -Added 1.8 (optional) parameter dapl_id
-!                  February, 2008, M.S. Breitenfeld
+!                  February, 2008, M. Scot Breitenfeld
 !
 ! Comment:		
 !----------------------------------------------------------------------
@@ -4276,7 +4276,7 @@ CONTAINS
 !               dcpl_id         - Dataset creation property list identifier.
 !               dapl_id  	- Dataset access property list identifier.
 !
-! Programmer:   M.S. Breitenfeld
+! Programmer:   M. Scot Breitenfeld
 !		February 11, 2008
 !
 ! Modifications:
@@ -4325,6 +4325,48 @@ CONTAINS
 
   END SUBROUTINE h5dcreate_anon_f
 
+!----------------------------------------------------------------------
+! Name:		h5dget_access_plist_f 
+!
+! Purpose: 	Returns a copy of the dataset creation property list.
+!
+! Inputs:  
+!		dset_id         - dataset identifier.
+! Outputs:  
+!		plist_id	- the dataset access property list identifier.
+!		hdferr:		- error code		
+!				 	Success:  0
+!				 	Failure: -1
+!
+! Programmer:   M. Scot Breitenfeld
+!		April 13, 2009
+!
+! Modifications:
+!
+! Comment:		
+!----------------------------------------------------------------------
+  
+  SUBROUTINE h5dget_access_plist_f(dset_id, plist_id, hdferr)
+    IMPLICIT NONE
+    INTEGER(HID_T), INTENT(IN) :: dset_id
+    INTEGER(HID_T), INTENT(OUT) :: plist_id 
+    INTEGER, INTENT(OUT) :: hdferr         ! Error code.
+    
+    INTERFACE
+       INTEGER FUNCTION h5dget_access_plist_c(dset_id, plist_id)
+         USE H5GLOBAL
+         !DEC$IF DEFINED(HDF5F90_WINDOWS)
+         !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DGET_ACCESS_PLIST_C'::h5dget_access_plist_c
+         !DEC$ENDIF
+         INTEGER(HID_T), INTENT(IN) :: dset_id
+         INTEGER(HID_T), INTENT(OUT) :: plist_id
+       END FUNCTION h5dget_access_plist_c
+    END INTERFACE
+
+    hdferr = h5dget_access_plist_c(dset_id, plist_id)
+    
+  END SUBROUTINE h5dget_access_plist_f
+
 END MODULE H5D
 
 
-- 
cgit v0.12