diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2001-01-19 00:19:33 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2001-01-19 00:19:33 (GMT) |
| commit | ca5e928635765b1b652b889dfbb0fb043c25da82 (patch) | |
| tree | 150c144fdc0103992466b572d9936cc20e751eb2 /fortran | |
| parent | 7921315a33816b58c7d055d4744df691c943eaa8 (diff) | |
| download | hdf5-ca5e928635765b1b652b889dfbb0fb043c25da82.zip hdf5-ca5e928635765b1b652b889dfbb0fb043c25da82.tar.gz hdf5-ca5e928635765b1b652b889dfbb0fb043c25da82.tar.bz2 | |
[svn-r3305] Purpose:
Code cleanup
Description:
Removed some additional references to ragged arrays.
Platforms tested:
IRIX64 (modi4)
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5f.c | 5 | ||||
| -rw-r--r-- | fortran/src/H5f90global.f90 | 8 |
2 files changed, 8 insertions, 5 deletions
diff --git a/fortran/src/H5f.c b/fortran/src/H5f.c index 19f91e6..dbd5a80 100644 --- a/fortran/src/H5f.c +++ b/fortran/src/H5f.c @@ -195,8 +195,9 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags, h5e_flags[18] = H5E_ATTR; h5e_flags[19] = H5E_PLINE; h5e_flags[20] = H5E_EFL; - h5e_flags[21] = H5E_RAGGED; - h5e_flags[22] = H5E_REFERENCE; + h5e_flags[21] = H5E_REFERENCE; + h5e_flags[22] = H5E_VFL; + h5e_flags[23] = H5E_TBBT; /* * H5F flags diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 955521a..89bf0cb 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -211,8 +211,9 @@ INTEGER :: H5E_ATTR_F INTEGER :: H5E_PLINE_F INTEGER :: H5E_EFL_F - INTEGER :: H5E_RAGGED_F INTEGER :: H5E_REFERENCE_F + INTEGER :: H5E_VFL_F + INTEGER :: H5E_TBBT_F EQUIVALENCE(H5E_flags(1), H5E_NONE_MAJOR_F) EQUIVALENCE(H5E_flags(2), H5E_ARGS_F) @@ -235,8 +236,9 @@ EQUIVALENCE(H5E_flags(19), H5E_ATTR_F) EQUIVALENCE(H5E_flags(20), H5E_PLINE_F) EQUIVALENCE(H5E_flags(21), H5E_EFL_F) - EQUIVALENCE(H5E_flags(22), H5E_RAGGED_F) - EQUIVALENCE(H5E_flags(23), H5E_REFERENCE_F) + EQUIVALENCE(H5E_flags(22), H5E_REFERENCE_F) + EQUIVALENCE(H5E_flags(23), H5E_VFL_F) + EQUIVALENCE(H5E_flags(24), H5E_TBBT_F) ! ! H5E flags declaration |