diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2006-11-02 04:54:19 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2006-11-02 04:54:19 (GMT) |
| commit | 19c9657f7c4029df52a804c7ed8b4d3b30cc6196 (patch) | |
| tree | 6601816880f90040ae67df5bd27558c0f0670e86 /fortran/src/H5Pf.c | |
| parent | 0f84d2fb15813c10fca48f95772626c34039619d (diff) | |
| download | hdf5-19c9657f7c4029df52a804c7ed8b4d3b30cc6196.zip hdf5-19c9657f7c4029df52a804c7ed8b4d3b30cc6196.tar.gz hdf5-19c9657f7c4029df52a804c7ed8b4d3b30cc6196.tar.bz2 | |
[svn-r12842] Description:
Refactor generic property list initialization code to put property list
specific routines in property list modules, instead of scattered to the four
winds. Also, introduce property list class initialization objects, to make
adding new property list classes in the library easier.
Fix daily test failure by using H5Pget_elink_prefix() API routine instead
of looking at the "raw" generic property list information.
Tested on:
Mac OS X/32 10.4.8 (amazon)
FreeBSD/32 4.11 (sleipnir) w/threadsafe
Linux/32 2.4 (heping) w/C++ & FORTRAN
Linux/64 2.4 (mir) w/build-all & 1.6 compat
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 54f954d..3fd6259 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -123,12 +123,12 @@ nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag) * Purpose: Call H5Pget_class to determine property list class * Inputs: prp_id - identifier of the dataspace * Outputs: classtype - class type; possible values are: - * H5P_NO_CLASS_F -1 + * H5P_ROOT_F -1 * H5P_FILE_CREATE_F 0 * H5P_FILE_ACCESS_F 1 * H5P_DATASET_CREATE_F 2 * H5P_DATASET_XFER_F 3 - * H5P_MOUNT_F 4 + * H5P_FILE_MOUNT_F 4 * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 @@ -144,8 +144,8 @@ nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype) c_prp_id = *prp_id; c_classtype = H5Pget_class(c_prp_id); - if (c_classtype == H5P_NO_CLASS ) { - *classtype = H5P_NO_CLASS; + if (c_classtype == H5P_ROOT ) { + *classtype = H5P_ROOT; ret_value = -1; return ret_value; } |