summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5P.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2002-10-02 19:15:43 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2002-10-02 19:15:43 (GMT)
commitacb356d30928d02170dd275073d19344e2f0cb9b (patch)
tree5a9e0a7c45954580f5e7eea33378807e4f99ea35 /fortran/test/tH5P.f90
parent26cd535ff23e4f6f440a4aa28e409f474ef92f66 (diff)
downloadhdf5-acb356d30928d02170dd275073d19344e2f0cb9b.zip
hdf5-acb356d30928d02170dd275073d19344e2f0cb9b.tar.gz
hdf5-acb356d30928d02170dd275073d19344e2f0cb9b.tar.bz2
[svn-r5958]
Purpose: Added missing fortran functions h5set(get)_buffer_f. Also added docs and tests for them. Solution: Currently functions do not accept conversion and background buffers. This corresponds to H5set(get)_buffer call with buffer pointers set to NULL. If there is a demand, I can overload the functions to have new parameters and go through all trouble creating functions for all supported datatypes. Platforms tested: Solaris 2.7, Linux 2.2., IRIX64-6.5
Diffstat (limited to 'fortran/test/tH5P.f90')
-rw-r--r--fortran/test/tH5P.f9018
1 files changed, 18 insertions, 0 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 440f814..2c8ad2e 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -44,6 +44,10 @@
INTEGER :: count !number of external files for the
!specified dataset
INTEGER(SIZE_T) :: namesize
+ INTEGER(HSIZE_T) :: size, buf_size
+
+ buf_size = 4*1024*1024
+
!
@@ -57,6 +61,20 @@
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f",error,total_error)
+
+ CALL h5pcreate_f(H5P_DATASET_XFER_F, plist_id, error)
+ CALL check("h5pcreate_f", error, total_error)
+ CALL h5pset_buffer_f(plist_id, buf_size, error)
+ CALL check("h5pset_buffer_f", error, total_error)
+ CALL h5pget_buffer_f(plist_id, size, error)
+ CALL check("h5pget_buffer_f", error, total_error)
+ if (size .ne.buf_size) then
+ total_error = total_error + 1
+ write(*,*) "h5pget_buffer_f returned wrong size, error"
+ endif
+ CALL h5pclose_f(plist_id, error)
+ CALL check("h5pclose_f", error, total_error)
+
CALL h5pcreate_f(H5P_DATASET_CREATE_F, plist_id, error)
CALL check("h5pcreate_f",error,total_error)
cur_size(1) =100