diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2002-10-02 19:15:43 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2002-10-02 19:15:43 (GMT) |
| commit | acb356d30928d02170dd275073d19344e2f0cb9b (patch) | |
| tree | 5a9e0a7c45954580f5e7eea33378807e4f99ea35 /fortran/test/tH5P.f90 | |
| parent | 26cd535ff23e4f6f440a4aa28e409f474ef92f66 (diff) | |
| download | hdf5-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.f90 | 18 |
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 |