diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2004-07-08 16:45:40 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2004-07-08 16:45:40 (GMT) |
| commit | c19e495c00193859a9cb3d0d25b52e6d9b379784 (patch) | |
| tree | 5f11fba0f056c59cb9ad6f2a3fa7c28a8d2b1bb3 /fortran/test | |
| parent | 828b55a90944e3286a129e61db7277a1d7722f39 (diff) | |
| download | hdf5-c19e495c00193859a9cb3d0d25b52e6d9b379784.zip hdf5-c19e495c00193859a9cb3d0d25b52e6d9b379784.tar.gz hdf5-c19e495c00193859a9cb3d0d25b52e6d9b379784.tar.bz2 | |
[svn-r8836]
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)
parallle build on copper failed for the C library with the the
following error:
ld: 0711-317 ERROR: Undefined symbol: .H5FD_stdio_term
Since this change doesn't affect the C library, I am cheking it in
and will retest the fresh CVS copy 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..d1e0064 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,12 +396,25 @@ ! 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. ! 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. |