diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2004-07-08 16:42:36 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2004-07-08 16:42:36 (GMT) |
| commit | 3eeb0d9d54debcdc908ad1421a4a6cd7380d432e (patch) | |
| tree | 69acc58180d06ae0a1593bab10bc418e15d2dcc7 /fortran/test | |
| parent | e8cb6650ca0f22d75a38b2868ad7141f4e1df932 (diff) | |
| download | hdf5-3eeb0d9d54debcdc908ad1421a4a6cd7380d432e.zip hdf5-3eeb0d9d54debcdc908ad1421a4a6cd7380d432e.tar.gz hdf5-3eeb0d9d54debcdc908ad1421a4a6cd7380d432e.tar.bz2 | |
[svn-r8835]
Purpose: Maintenance
Description: Added h5fget_name_f and h5fget_filesize_f subroutines and tests.
Solution: N/A
Platforms tested: arabica (32-bit), sol (64-bit).
Will test on copper after this check-in.
Misc. update:
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5F.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90 index d37d94a..8451205 100644 --- a/fortran/test/tH5F.f90 +++ b/fortran/test/tH5F.f90 @@ -327,6 +327,9 @@ ! INTEGER, DIMENSION(4,6) :: dset_data, data_out INTEGER(HSIZE_T), DIMENSION(2) :: data_dims + INTEGER(HSIZE_T) :: file_size + CHARACTER(LEN=80) :: file_name + INTEGER(SIZE_T) :: name_size ! !initialize the dset_data array which will be written to the "/dset" @@ -393,6 +396,11 @@ ! CALL h5freopen_f(file_id, reopen_id, error) CALL check("h5freopen_f",error,total_error) + ! + !Check file size + ! + CALL h5fget_filesize_f(file_id, file_size, error) + CALL check("h5fget_filesize_f",error,total_error) ! !Open the dataset based on the reopen_id. @@ -400,6 +408,14 @@ CALL h5dopen_f(reopen_id, dsetname, dset_id, error) CALL check("h5dopen_f",error,total_error) + !Get file name from the dataset identifier + ! + CALL h5fget_name_f(dset_id, file_name, name_size, error) + CALL check("h5fget_name_f",error,total_error) + IF(file_name(1:name_size) .NE. fix_filename(1:name_size)) THEN + write(*,*) "file name obtained from the dataset id is incorrect" + END IF + ! !Read the dataset. ! |