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

[svn-r3862]

Browse Source 
Purpose:
    Codemaintenance
Description:
    read/write APIs have been changed.
Solution:
    Made necessary changes to the source code.
Platforms tested:
    Linux, Solaris 2.7, O2K, T3E
This commit is contained in:
Elena Pourmal
2001-04-26 22:52:24 -05:00
parent 9aba4e88c2
commit fef182fd96
10 changed files with 73 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fortran/examples/rwdsetexample.f90
View File

@@ -22,6 +22,7 @@
INTEGER :: i, j
INTEGER, DIMENSION(4,6) :: dset_data, data_out ! Data buffers
INTEGER, DIMENSION(7) :: data_dims
!
! Initialize the dset_data array.
@@ -50,12 +51,14 @@
!
! Write the dataset.
!
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, error)
data_dims(1) = 4
data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
!
! Read the dataset.
!
CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, error)
CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error)
!
! Close the dataset.