diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2009-09-17 17:03:42 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2009-09-17 17:03:42 (GMT) |
| commit | c0bb2c979bdff34fd15534034d1de48388fdf90e (patch) | |
| tree | 8effa84e4751284ca513da6ad4eed1128710936d /fortran/src/H5Of.c | |
| parent | 7dc63bdf270925373cff2951f7303fddb74e6a16 (diff) | |
| download | hdf5-c0bb2c979bdff34fd15534034d1de48388fdf90e.zip hdf5-c0bb2c979bdff34fd15534034d1de48388fdf90e.tar.gz hdf5-c0bb2c979bdff34fd15534034d1de48388fdf90e.tar.bz2 | |
[svn-r17486] Description:
Merged changes in the trunk/fortran to 1.8.
svn merge -r 17222:17485 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Brings bugfixes into 1.8 for:
Bug [1652] h5lget_info_by_idx_f missing/broken functionality
and
Bug [1653] H5_LINK_* values defined in H5f90global.f90 are incorrect
Tested: jam (ifort)
smirom (gfortran)
linew (f90)
Diffstat (limited to 'fortran/src/H5Of.c')
| -rw-r--r-- | fortran/src/H5Of.c | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/fortran/src/H5Of.c b/fortran/src/H5Of.c index 5282dd6..56cbfeb 100644 --- a/fortran/src/H5Of.c +++ b/fortran/src/H5Of.c @@ -97,3 +97,28 @@ nh5oopen_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid return ret_value; } +/*---------------------------------------------------------------------------- + * Name: h5oopen_by_addr_c + * Purpose: Calls H5open_by_addr + * Inputs: loc_id - File or group identifier + * addr - Object’s address in the file + * Outputs: obj_id - Dataset identifier + * Returns: 0 on success, -1 on failure + * Programmer: M. Scot Breitenfeld + * September 14, 2009 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5oopen_by_addr_c (hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id) +{ + int_f ret_value = 0; /* Return value */ + + /* + * Call H5Oopen_by_address function. + */ + if((*obj_id = (hid_t_f)H5Oopen_by_addr((hid_t)*loc_id, (haddr_t)*addr)) < 0) + HGOTO_DONE(FAIL); + + done: + return ret_value; +} |