diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2005-12-04 02:27:37 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2005-12-04 02:27:37 (GMT) |
| commit | 8d344f96bcd012742c55e668d6a6b3d81d1c39ee (patch) | |
| tree | 918447ffaa4d7a81b921dac1a9a0d9a4f380760d /fortran/test | |
| parent | 4620776d72dc398dd134f4b266a38350d6cb7f60 (diff) | |
| download | hdf5-8d344f96bcd012742c55e668d6a6b3d81d1c39ee.zip hdf5-8d344f96bcd012742c55e668d6a6b3d81d1c39ee.tar.gz hdf5-8d344f96bcd012742c55e668d6a6b3d81d1c39ee.tar.bz2 | |
[svn-r11758] Purpose:
New feature
Description:
Add in a combination of Peter's & my code to support copying
variable-length data from one file to another, although currently only
supported with contiguous data storage.
Platforms tested:
FreeBSD 4.11 (sleipnir)
h5committest
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5R.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90 index d4f2911..7daabc6 100644 --- a/fortran/test/tH5R.f90 +++ b/fortran/test/tH5R.f90 @@ -158,7 +158,7 @@ ! CALL h5rget_object_type_f(dsetr_id, ref(3), obj_type, error) CALL check("h5rget_object_type_f",error,total_error) - if (obj_type == 2) then + if (obj_type == H5G_DATASET_F) then CALL h5rdereference_f(dsetr_id, ref(3), dset1_id, error) CALL check("h5rdereference_f",error,total_error) @@ -172,7 +172,7 @@ ! CALL h5rget_object_type_f(dsetr_id, ref(4), obj_type, error) CALL check("h5rget_object_type_f",error,total_error) - if (obj_type == 3) then + if (obj_type == H5G_TYPE_F) then CALL h5rdereference_f(dsetr_id, ref(4), type_id, error) CALL check("h5rdereference_f",error,total_error) end if |