mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r3305] Purpose:

Browse Source 
Code cleanup
Description:
    Removed some additional references to ragged arrays.
Platforms tested:
    IRIX64 (modi4)
This commit is contained in:
Quincey Koziol 2001-01-18 19:19:33 -05:00
parent 7921315a33
commit ca5e928635
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fortran/src/H5f.c
View File

@ -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

8
fortran/src/H5f90global.f90
View File

@ -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