Source
committed 583952ed158nh5iget_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 COPYING file, which can be found at the root of the source code * * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. * * 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_fnh5iget_type_c (hid_t_f *obj_id, int_f *type)/******/{ int ret_value = -1; hid_t c_obj_id; H5I_type_t c_type; /* * Call H5Iget_type function.