Source
committed caf0e7692a2h5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_size)/****h* H5If/H5If * PURPOSE * This file contains C stubs for H5I Fortran APIs * * COPYRIGHT * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF5. The full HDF5 copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at the * * root level of an installed copy of the electronic HDF5 document set and * * is linked from the top-level documents page. It can also be found at * * http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *******//****if* H5If/h5iget_type_c * NAME * h5iget_type_c * PURPOSE * Call H5Iget_type to get the type of an object * INPUTS * obj_id - object identifier * OUTPUTS * type - object type * RETURNS * 0 on success, -1 on failure * AUTHOR * Xiangyang Su * Thursday, March 24, 2000 * HISTORY * * SOURCE*/int_fh5iget_type_c (hid_t_f *obj_id, int_f *type)/******/{ int ret_value = -1; hid_t c_obj_id; H5I_type_t c_type;