mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-03 02:32:04 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r16231] Description:

Browse Source 
Added chunk property to the data set because changes in the cC function H5Dset_extent now require/check that the data set is chunked.
This commit is contained in:
Scot Breitenfeld 2008-12-30 11:27:29 -05:00
parent dc869ba584
commit 0e779a215c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fortran/test/tH5G_1_8.f90
View File

@ -1485,6 +1485,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
INTEGER :: i
INTEGER :: tmp1, tmp2
INTEGER(HID_T) :: crp_list
! WRITE(*,*) "link creation property lists (w/new group format)"
@ -1541,9 +1542,11 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
!/* Create a dataspace */
CALL h5screate_simple_f(2, dims, space_id, error)
CALL check("test_lcpl.h5screate_simple_f",error,total_error)
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crp_list, error)
CALL h5pset_chunk_f(crp_list, 2, dims, error)
! /* Create a dataset using the default LCPL */
CALL h5dcreate_f(file_id, "/dataset", H5T_NATIVE_INTEGER, space_id, dset_id, error)
CALL h5dcreate_f(file_id, "/dataset", H5T_NATIVE_INTEGER, space_id, dset_id, error, crp_list)
CALL check("test_lcpl.h5dcreate_f", error, total_error)
CALL h5dclose_f(dset_id, error)
CALL check("test_lcpl.h5dclose_f", error, total_error)