diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-04-30 19:51:13 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-04-30 19:51:13 (GMT) |
commit | aec106e324ce20e5efb725c25a6a333c7970127b (patch) | |
tree | 234df369115a46b08037c5f385061cf58823e497 /fortran/src/H5Sf.c | |
parent | 5773fd34bc5adf59b4530d95ac9f0c0585902803 (diff) | |
download | hdf5-aec106e324ce20e5efb725c25a6a333c7970127b.zip hdf5-aec106e324ce20e5efb725c25a6a333c7970127b.tar.gz hdf5-aec106e324ce20e5efb725c25a6a333c7970127b.tar.bz2 |
[svn-r14903] Undoing change committed in r14902.
Diffstat (limited to 'fortran/src/H5Sf.c')
-rw-r--r-- | fortran/src/H5Sf.c | 124 |
1 files changed, 0 insertions, 124 deletions
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index c33e7e6..0a4bd40 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -1027,127 +1027,3 @@ nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hsi return ret_value; } -/*---------------------------------------------------------------------------- - * Name: h5sdecode_c - * Purpose: Call H5Sdecode - * Inputs: - * buf - Buffer for the data space object to be decoded. - * Outputs: - * obj_id - Object_id (non-negative) - * - * Returns: 0 on success, -1 on failure - * Programmer: M.S. Breitenfeld - * March 26, 2008 - * Modifications: - *---------------------------------------------------------------------------*/ - -int_f -nh5sdecode_c ( _fcd buf, int_f *obj_id ) -{ - int ret_value = -1; - unsigned char *c_buf = NULL; /* Buffer to hold C string */ - hid_t c_obj_id; - - /* - * Call H5Sdecode function. - */ - - c_buf = (unsigned char*)buf; - - c_obj_id = H5Sdecode(c_buf); - if(c_obj_id < 0) - return ret_value; - - *obj_id = (int_f)c_obj_id; - ret_value = 0; - - return ret_value; -} - -/*---------------------------------------------------------------------------- - * Name: h5sencode_c - * Purpose: Call H5Sencode - * Inputs: - * obj_id - Identifier of the object to be encoded. - * buf - Buffer for the object to be encoded into. - * nalloc - The size of the allocated buffer. - * Returns: 0 on success, -1 on failure - * Programmer: M.S. Breitenfeld - * March 26, 2008 - * Modifications: - *---------------------------------------------------------------------------*/ - -int_f -nh5sencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc ) -{ - int ret_value = -1; - unsigned char *c_buf = NULL; /* Buffer to hold C string */ - size_t c_size; - - /* return just the size of the allocated buffer; - * equivalent to C routine for which 'name' is set equal to NULL - */ - - if (*nalloc == 0) { - - if(H5Sencode((hid_t)*obj_id, c_buf, &c_size) < 0) - return ret_value; - - *nalloc = (size_t_f)c_size; - - ret_value = 0; - return ret_value; - } - - c_size = (size_t)*nalloc; - /* - * Allocate buffer - */ - if ((c_buf = HDmalloc(c_size)) == NULL) - return ret_value; - /* - * Call H5Sencode function. - */ - if(H5Sencode((hid_t)*obj_id, c_buf, &c_size) < 0){ - return ret_value; - } - - /* copy the C buffer to the FORTRAN buffer. - * Can not use HD5packFstring because we don't want to - * eliminate the NUL terminator or pad remaining space - * with blanks. - */ - - HDmemcpy(_fcdtocp(buf),(char *)c_buf,c_size); - - ret_value = 0; - if(c_buf) HDfree(c_buf); - return ret_value; -} - -/*---------------------------------------------------------------------------- - * Name: h5sextent_equal_c - * Purpose: Call H5Sextent_equal - * Inputs: - * space1_id - First dataspace identifier. - * space2_id - Second dataspace identifier. - * Outputs: - * equal - TRUE if equal, FALSE if unequal. - * Returns: 0 on success, -1 on failure - * Programmer: M.S. Breitenfeld - * April 4, 2008 - * Modifications: - *---------------------------------------------------------------------------*/ - -int_f -nh5sextent_equal_c ( hid_t_f * space1_id, hid_t_f *space2_id, hid_t_f *c_equal) -{ - int ret_value = -1; - - if( (*c_equal = (hid_t_f)H5Sextent_equal((hid_t)*space1_id, (hid_t)*space2_id)) < 0) - return ret_value; - - ret_value = 0; - return ret_value; -} - |