diff options
Diffstat (limited to 'fortran/src/H5Lf.c')
| -rw-r--r-- | fortran/src/H5Lf.c | 169 |
1 files changed, 0 insertions, 169 deletions
diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c index 32de037..4776e77 100644 --- a/fortran/src/H5Lf.c +++ b/fortran/src/H5Lf.c @@ -746,172 +746,6 @@ done: } -/* /\****if* H5Lf/h5lget_val_c */ -/* * NAME */ -/* * h5lget_val_c */ -/* * PURPOSE */ -/* * Call H5Lget_val */ -/* * INPUTS */ -/* * */ -/* * link_loc_id - File or group identifier. */ -/* * link_name - Name of the link for which valrmation is being sought */ -/* * link_namelen - Name length */ -/* * size - Maximum number of characters of link value to be returned. */ -/* * lapl_id - Link access property list */ -/* * OUTPUTS */ -/* * */ -/* * linkval_buff - The buffer to hold the returned link value. */ -/* * */ -/* * RETURNS */ -/* * 0 on success, -1 on failure */ -/* * AUTHOR */ -/* * M. Scot Breitenfeld */ -/* * March 3, 2008 */ -/* * HISTORY */ -/* * N/A */ -/* * SOURCE */ -/* *\/ */ -/* int_f */ -/* h5lget_val_c (hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, */ -/* size_t_f *size, _fcd linkval_buff, */ -/* hid_t_f *lapl_id) */ -/* { */ -/* char *c_link_name = NULL; /\* Buffer to hold C string *\/ */ -/* int_f ret_value = 0; /\* Return value *\/ */ -/* void *c_linkval_buff = NULL; */ - -/* /\* */ -/* * Convert FORTRAN name to C name */ -/* *\/ */ -/* if((c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* /\* */ -/* * Call H5Lval function. */ -/* *\/ */ -/* if(H5Lget_val((hid_t)*link_loc_id, c_link_name, &linkval_buff, (size_t)*size, (hid_t)*lapl_id) < 0) */ -/* HGOTO_DONE(FAIL); */ -/* /\* */ -/* * Convert C name to FORTRAN */ -/* *\/ */ -/* HD5packFstring(c_buf, _fcdtocp(buf), c_bufsize-1); */ - - -/* done: */ -/* return ret_value; */ -/* } */ - - -/* /\****if* H5Lf/ */ -/* * NAME */ -/* * H5Lregistered_c */ -/* * PURPOSE */ -/* * Call H5Lregistered */ -/* * INPUTS */ -/* * */ -/* * */ -/* * INPUTS */ -/* * */ -/* * version - Version number of this struct */ -/* * class_id - Link class identifier */ -/* * comment - Comment for debugging */ -/* * comment_len - Comment for debugging */ -/* * create_func - Callback during link creation */ -/* * create_func_len - length */ -/* * move_func - Callback after moving link */ -/* * move_func_len - length */ -/* * copy_func - Callback after copying link */ -/* * copy_func_len - length */ -/* * trav_func - The main traversal function */ -/* * trav_func_len - length */ -/* * del_func - Callback for link deletion */ -/* * del_func_len - length */ -/* * query_func - Callback for queries */ -/* * query_func_len - length */ -/* * */ -/* * RETURNS */ -/* * 0 on success, -1 on failure */ -/* * AUTHOR */ -/* * M. Scot Breitenfeld */ -/* * February 3, 2008 */ -/* * HISTORY */ -/* * */ -/* * SOURCE */ -/* *\/ */ - -/* int_f */ - -/* h5lregistered_c(int_f *version, int_f *class_id, */ -/* _fcd comment, size_t_f *comment_len, */ -/* _fcd create_func, size_t_f *create_func_len, */ -/* _fcd move_func, size_t_f *move_func_len, */ -/* _fcd copy_func, size_t_f *copy_func_len, */ -/* _fcd trav_func, size_t_f *trav_func_len, */ -/* _fcd del_func , size_t_f *del_func_len, */ -/* _fcd query_func, size_t_f *query_func_len) */ -/* { */ -/* char *c_comment = NULL; */ -/* char *c_create_func = NULL; */ -/* char *c_move_func = NULL; */ -/* char *c_copy_func = NULL; */ -/* char *c_trav_func = NULL; */ -/* char *c_del_func = NULL; */ -/* char *c_query_func = NULL; */ - -/* H5L_class_t class_t; */ - -/* int_f ret_value = 0; */ - -/* /\* */ -/* * Convert FORTRAN name to C name */ -/* *\/ */ -/* if((c_comment = HD5f2cstring(c_comment, (size_t)*sc_comment_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* if((c_create_func = HD5f2cstring(c_create_func, (size_t)*c_create_func_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* if((c_move_func = HD5f2cstring(c_move_func, (size_t)*sc_move_func_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* if((c_copy_func = HD5f2cstring(c_copy_func, (size_t)*c_copy_func_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* if((c_trav_func = HD5f2cstring(c_trav_func, (size_t)*sc_trav_func_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* if((c_del_func = HD5f2cstring(c_del_func, (size_t)*c_del_func_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* if((c_query_func = HD5f2cstring(c_query_func, (size_t)*c_query_func_len)) == NULL) */ -/* HGOTO_DONE(FAIL); */ -/* /\* */ -/* * Pack into C struct H5L_class_t */ -/* *\/ */ -/* int version; /\* Version number of this struct *\/ */ -/* H5L_type_t class_id; /\* Link class identifier *\/ */ -/* const char *comment; /\* Comment for debugging *\/ */ -/* H5L_create_func_t create_func; /\* Callback during link creation *\/ */ -/* H5L_move_func_t move_func; /\* Callback after moving link *\/ */ -/* H5L_copy_func_t copy_func; /\* Callback after copying link *\/ */ -/* H5L_traverse_func_t trav_func; /\* The main traversal function *\/ */ -/* H5L_delete_func_t del_func; /\* Callback for link deletion *\/ */ -/* H5L_query_func_t query_func; /\* Callback for queries *\/ */ - -/* class_t.version = (int)*version; */ -/* class_t.class_id = (H5L_type_t)*class_id; */ -/* class_t.comment = c_comment; */ -/* class_t. */ - -/* /\* */ -/* * Call H5Lcopy function. */ -/* *\/ */ -/* if( H5Lcopy( (hid_t)*src_loc_id, c_src_name, (hid_t) *dest_loc_id, */ -/* c_dest_name, (hid_t)*lcpl_id, (hid_t)*lapl_id ) < 0) */ -/* HGOTO_DONE(FAIL); */ - -/* done: */ -/* if(c_src_name) */ -/* HDfree(c_src_name); */ -/* if(c_dest_name) */ -/* HDfree(c_dest_name); */ - -/* return ret_value; */ -/* } */ - /****if* H5Lf/h5lget_val_c * NAME * h5lget_val_c @@ -1068,6 +902,3 @@ h5literate_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, int_f *index return ret_value; } - - - |