philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r2654]

Browse Source 
Purpose:
    Updated source code to use new APIs to write/read references
Description and Solution:
    Write/read subrotine has extra parameter - size of the reference array.
    I modified the source to reflect this change.
Platforms tested:
    Solaris 2.6
This commit is contained in:
Elena Pourmal
2000-10-10 09:31:50 -05:00
parent 123072a922
commit 1c90281db5
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fortran/examples/refregexample.f90
View File

@@ -36,6 +36,7 @@
INTEGER(HSSIZE_T) , DIMENSION(2,3) :: coord
INTEGER(SIZE_T) ::num_points = 3 ! Number of selected points
INTEGER :: i, j
INTEGER :: ref_size
coord = reshape((/1,1,2,7,1,9/), (/2,3/)) ! Coordinates of selected points
data = reshape ((/1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6/), (/2,9/))
!
@@ -92,7 +93,8 @@
!
! Write dataset with the references.
!
CALL h5dwrite_f(dsetr_id, H5T_STD_REF_DSETREG, ref, error)
ref_size = size(ref)
CALL h5dwrite_f(dsetr_id, H5T_STD_REF_DSETREG, ref, ref_size, error)
!
! Close all objects.
!
@@ -108,7 +110,8 @@
!
! Read references to the dataset regions.
!
CALL h5dread_f(dsetr_id, H5T_STD_REF_DSETREG, ref_out, error)
ref_size = size(ref_out)
CALL h5dread_f(dsetr_id, H5T_STD_REF_DSETREG, ref_out, ref_size, error)
!
! Dereference the first reference.
!