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/H5Sf.c | |
| 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/H5Sf.c')
| -rw-r--r-- | fortran/src/H5Sf.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index 8153707..d8b86b5 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -499,7 +499,7 @@ nh5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims ) * of a dataspace * Inputs: space_id - identifier of the dataspace * Outputs: classtype - class type; possible values are: - * H5S_SCALAR_F (0), H5S_SIMPLE_F (1) + * H5S_SCALAR_F (0), H5S_SIMPLE_F (1), H5S_NULL_F (2) * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Wednesday, August 11, 1999 @@ -520,6 +520,7 @@ nh5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype) /* if (c_classtype == H5S_SCALAR) *classtype = H5S_SCALAR_F; if (c_classtype == H5S_SIMPLE) *classtype = H5S_SIMPLE_F; + if (c_classtype == H5S_NULL) *classtype = H5S_NULL_F; */ return ret_value; } |