summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2009-04-17 14:24:48 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2009-04-17 14:24:48 (GMT)
commit5287eef54938f42b96a0e6738ecc719d7b3df16f (patch)
tree27c3e9f8e97b86ee8d281787699d9fd14d2b75f2 /fortran
parent5246c85346c173fece468c313d6f1c5310f14406 (diff)
downloadhdf5-5287eef54938f42b96a0e6738ecc719d7b3df16f.zip
hdf5-5287eef54938f42b96a0e6738ecc719d7b3df16f.tar.gz
hdf5-5287eef54938f42b96a0e6738ecc719d7b3df16f.tar.bz2
[svn-r16773] Description:
Added Fortran API h5dget_access_plist_f Platforms Tested: Smirom - pgf90 ifort
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Df.c28
-rw-r--r--fortran/src/H5Dff.f9046
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