diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-10-10 22:20:59 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-10-10 22:20:59 (GMT) |
| commit | fbf7331f7d47c0dcb3dc5402812dc072625d7e9c (patch) | |
| tree | e765b97c216db35db6f23e8aebd6fa53d83733eb /fortran | |
| parent | 0ee744833ea2953473c3a90ca91596c6e7bcaf11 (diff) | |
| download | hdf5-fbf7331f7d47c0dcb3dc5402812dc072625d7e9c.zip hdf5-fbf7331f7d47c0dcb3dc5402812dc072625d7e9c.tar.gz hdf5-fbf7331f7d47c0dcb3dc5402812dc072625d7e9c.tar.bz2 | |
[svn-r7602]
Purpose: Bug fix
Description: Parameter rdcc_nelmts of the h5pget_cache_f subroutine
had wrong INTEGER(SIZE_T) instead of INTEGER type.
Solution: Fixed the type
Platforms tested: arabica in 64-bit mode (where INTEGER(SIZE_T) is not
the same as INTEGER)
Misc. update:
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5f90proto.h | 2 | ||||
| -rw-r--r-- | fortran/test/tH5P.f90 | 18 |
2 files changed, 19 insertions, 1 deletions
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 9358541..464184e 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -1020,7 +1020,7 @@ nh5pget_fapl_family_c (hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plis H5_DLL int_f nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0); H5_DLL int_f -nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0); +nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0); H5_DLL int_f nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_f* meta_plist, size_t_f* raw_ext_size, _fcd raw_ext, hid_t_f * raw_plist); H5_DLL int_f diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90 index 9939085..635d4bf 100644 --- a/fortran/test/tH5P.f90 +++ b/fortran/test/tH5P.f90 @@ -166,6 +166,10 @@ INTEGER :: i, j !general purpose integers INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b INTEGER, DIMENSION(7) :: data_dims + INTEGER :: mdc_nelmts + INTEGER :: rdcc_nelmts + INTEGER(SIZE_T) :: rdcc_nbytes + REAL :: rdcc_w0 memb_fapl = H5P_DEFAULT_F memb_map = H5FD_MEM_SUPER_F memb_addr = 0. @@ -214,6 +218,20 @@ CALL h5pget_fapl_multi_f(fapl, memb_map_out, memb_fapl_out, memb_name_out, & memb_addr_out, relax_out, error) CALL check("h5pget_fapl_multi_f", error, total_error) + ! + ! Let's check h5pget(set)cache_f APIs here for now + ! + CALL h5pget_cache_f(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, & + rdcc_w0, error) + CALL check("h5pget_cache_f", error, total_error) + + ! Set cache to some number + ! + rdcc_nbytes = 1024*1024 + CALL h5pset_cache_f(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, & + rdcc_w0, error) + CALL check("h5pset_cache_f", error, total_error) + CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error, access_prp = fapl) CALL check("h5fcreate_f", error, total_error) |