diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-29 21:57:05 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-29 21:57:05 (GMT) |
commit | d59229751acc1a2c334d52cb2ec2b7524af62998 (patch) | |
tree | 2448f814200b32d5467d20e371282ed88f580058 /fortran/src/H5Af.c | |
parent | eee4741a2f388ee543a059b540f799a564724823 (diff) | |
download | hdf5-d59229751acc1a2c334d52cb2ec2b7524af62998.zip hdf5-d59229751acc1a2c334d52cb2ec2b7524af62998.tar.gz hdf5-d59229751acc1a2c334d52cb2ec2b7524af62998.tar.bz2 |
[svn-r26972] Removed unused C functions.
See HDFFV-9291: Check for unused C functions
Diffstat (limited to 'fortran/src/H5Af.c')
-rw-r--r-- | fortran/src/H5Af.c | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index 7d343a2..d0ed250f 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -73,81 +73,6 @@ done: return ret_value; } -/****if* H5Af/h5aopen_name_c - * NAME - * h5aopen_name_c - * PURPOSE - * Call H5Aopen to open an attribute - * INPUTS - * obj_id - object identifier - * name - name of the attribute - * namelen - name length - * OUTPUTS - * attr_id - dataset identifier - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * - * SOURCE -*/ -int_f -h5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id) -/*******/ -{ - char *c_name = NULL; /* Buffer to hold C string */ - int_f ret_value = 0; /* Return value */ - - /* - * Convert FORTRAN name to C name - */ - if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL) - HGOTO_DONE(FAIL); - - /* - * Call H5Aopen function. - */ - if((*attr_id = (hid_t_f)H5Aopen((hid_t)*obj_id, c_name, H5P_DEFAULT)) < 0) - HGOTO_DONE(FAIL); - -done: - if(c_name) - HDfree(c_name); - return ret_value; -} - -/****if* H5Af/h5aclose_c - * NAME - * h5aclose_c - * PURPOSE - * Call H5Aclose to close an attribute - * INPUTS - * attr_id - identifier of an attribute to be closed - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * - * SOURCE -*/ - -int_f -h5aclose_c ( hid_t_f *attr_id ) -/******/ -{ - int_f ret_value=0; /* Return value */ - - if (H5Aclose((hid_t)*attr_id) < 0) - HGOTO_DONE(FAIL); - -done: - return ret_value; -} - /****if* H5Af/h5adelete_c * NAME * h5adelete_c |