diff options
author | Raymond Lu <songyulu@hdfgroup.org> | 2004-05-18 16:09:46 (GMT) |
---|---|---|
committer | Raymond Lu <songyulu@hdfgroup.org> | 2004-05-18 16:09:46 (GMT) |
commit | f04bbc535fe1592a2dd42db34e77bb3097011a65 (patch) | |
tree | d22b6aaf8387b4c2a0e1bf882d94d3547d4eaa46 /fortran/src/H5f90global.f90 | |
parent | d15b6b8d63b44c09a82ae020ca6d574f277289c7 (diff) | |
download | hdf5-f04bbc535fe1592a2dd42db34e77bb3097011a65.zip hdf5-f04bbc535fe1592a2dd42db34e77bb3097011a65.tar.gz hdf5-f04bbc535fe1592a2dd42db34e77bb3097011a65.tar.bz2 |
[svn-r8538] Purpose: Add null dataspace for fortran.
Platforms tested: verbena pgf90(only fortran is concerned)
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r-- | fortran/src/H5f90global.f90 | 42 |
1 files changed, 22 insertions, 20 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 8b6979c..17e97f4 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -391,6 +391,7 @@ INTEGER :: H5S_SCALAR_F INTEGER :: H5S_SIMPLE_F + INTEGER :: H5S_NULL_F INTEGER :: H5S_UNLIMITED_F INTEGER :: H5S_ALL_F @@ -415,26 +416,27 @@ EQUIVALENCE(H5S_flags(1), H5S_SCALAR_F) EQUIVALENCE(H5S_flags(2), H5S_SIMPLE_F) - EQUIVALENCE(H5S_flags(3), H5S_SELECT_SET_F) - EQUIVALENCE(H5S_flags(4), H5S_SELECT_OR_F) - EQUIVALENCE(H5S_flags(5), H5S_UNLIMITED_F) - EQUIVALENCE(H5S_flags(6), H5S_ALL_F) - - EQUIVALENCE(H5S_flags(7), H5S_SELECT_NOOP_F) - EQUIVALENCE(H5S_flags(8), H5S_SELECT_AND_F) - EQUIVALENCE(H5S_flags(9), H5S_SELECT_XOR_F) - EQUIVALENCE(H5S_flags(10), H5S_SELECT_NOTB_F) - EQUIVALENCE(H5S_flags(11), H5S_SELECT_NOTA_F) - EQUIVALENCE(H5S_flags(12), H5S_SELECT_APPEND_F) - EQUIVALENCE(H5S_flags(13), H5S_SELECT_PREPEND_F) - EQUIVALENCE(H5S_flags(14), H5S_SELECT_INVALID_F) - - - EQUIVALENCE(H5S_flags(15), H5S_SEL_ERROR_F) - EQUIVALENCE(H5S_flags(16), H5S_SEL_NONE_F) - EQUIVALENCE(H5S_flags(17), H5S_SEL_POINTS_F) - EQUIVALENCE(H5S_flags(18), H5S_SEL_HYPERSLABS_F) - EQUIVALENCE(H5S_flags(19), H5S_SEL_ALL_F) + EQUIVALENCE(H5S_flags(3), H5S_NULL_F) + EQUIVALENCE(H5S_flags(4), H5S_SELECT_SET_F) + EQUIVALENCE(H5S_flags(5), H5S_SELECT_OR_F) + EQUIVALENCE(H5S_flags(6), H5S_UNLIMITED_F) + EQUIVALENCE(H5S_flags(7), H5S_ALL_F) + + EQUIVALENCE(H5S_flags(8), H5S_SELECT_NOOP_F) + EQUIVALENCE(H5S_flags(9), H5S_SELECT_AND_F) + EQUIVALENCE(H5S_flags(10), H5S_SELECT_XOR_F) + EQUIVALENCE(H5S_flags(11), H5S_SELECT_NOTB_F) + EQUIVALENCE(H5S_flags(12), H5S_SELECT_NOTA_F) + EQUIVALENCE(H5S_flags(13), H5S_SELECT_APPEND_F) + EQUIVALENCE(H5S_flags(14), H5S_SELECT_PREPEND_F) + EQUIVALENCE(H5S_flags(15), H5S_SELECT_INVALID_F) + + + EQUIVALENCE(H5S_flags(16), H5S_SEL_ERROR_F) + EQUIVALENCE(H5S_flags(17), H5S_SEL_NONE_F) + EQUIVALENCE(H5S_flags(18), H5S_SEL_POINTS_F) + EQUIVALENCE(H5S_flags(19), H5S_SEL_HYPERSLABS_F) + EQUIVALENCE(H5S_flags(20), H5S_SEL_ALL_F) ! |