summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Gf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Gf.c')
-rw-r--r--fortran/src/H5Gf.c30
1 files changed, 15 insertions, 15 deletions
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index fdce19f..0236bea 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -34,7 +34,7 @@ nh5gcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint,
{
int ret_value = -1;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
size_t c_size_hint;
hid_t c_grp_id;
hid_t c_loc_id;
@@ -81,7 +81,7 @@ nh5gopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *grp_id)
{
int ret_value = -1;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
hid_t c_grp_id;
hid_t c_loc_id;
@@ -130,7 +130,7 @@ nh5gget_obj_info_idx_c
int ret_value = -1;
hid_t c_loc_id = (hid_t)*loc_id;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
size_t c_obj_namelen;
char *c_obj_name = NULL;
int type;
@@ -165,7 +165,7 @@ nh5gget_obj_info_idx_c
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
- HD5packFstring(c_obj_name, _fcdtocp(obj_name), (int)c_obj_namelen);
+ HD5packFstring(c_obj_name, _fcdtocp(obj_name), c_obj_namelen);
ret_value = 0;
DONE:
@@ -195,7 +195,7 @@ nh5gn_members_c (hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
int ret_value = -1;
hid_t c_loc_id=(hid_t)*loc_id;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
hsize_t c_nmembers;
hid_t gid = (-1);
@@ -267,7 +267,7 @@ nh5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_
hid_t c_loc_id;
H5G_link_t c_link_type;
char *c_current_name, *c_new_name;
- int c_current_namelen, c_new_namelen;
+ size_t c_current_namelen, c_new_namelen;
herr_t c_ret_value;
/*
* Convert Fortran name to C name
@@ -324,7 +324,7 @@ nh5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen, int_f *link
hid_t c_new_loc_id;
H5G_link_t c_link_type;
char *c_cur_name, *c_new_name;
- int c_cur_namelen, c_new_namelen;
+ size_t c_cur_namelen, c_new_namelen;
herr_t c_ret_value;
/*
* Convert Fortran name to C name
@@ -372,7 +372,7 @@ nh5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen)
int ret_value = -1;
hid_t c_loc_id;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
herr_t c_ret_value;
/*
* Convert Fortran name to C name
@@ -413,7 +413,7 @@ nh5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, in
int ret_value = -1;
hid_t c_loc_id;
char *c_src_name, *c_dst_name;
- int c_src_namelen, c_dst_namelen;
+ size_t c_src_namelen, c_dst_namelen;
herr_t c_ret_value;
/*
* Convert Fortran name to C name
@@ -464,7 +464,7 @@ nh5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst
hid_t c_src_loc_id;
hid_t c_dst_loc_id;
char *c_src_name, *c_dst_name;
- int c_src_namelen, c_dst_namelen;
+ size_t c_src_namelen, c_dst_namelen;
herr_t c_ret_value;
/*
* Convert Fortran name to C name
@@ -514,7 +514,7 @@ nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _f
int ret_value = -1;
hid_t c_loc_id;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
char *c_value = NULL;
size_t c_size;
herr_t c_ret_value;
@@ -547,7 +547,7 @@ nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _f
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
- HD5packFstring(c_value, _fcdtocp(value), (int)*size);
+ HD5packFstring(c_value, _fcdtocp(value), (size_t)*size);
ret_value = 0;
DONE:
@@ -576,7 +576,7 @@ nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_
int ret_value = -1;
hid_t c_loc_id;
char *c_name, *c_comment;
- int c_namelen, c_commentlen;
+ size_t c_namelen, c_commentlen;
herr_t c_ret_value;
/*
* Convert Fortran name to C name
@@ -625,7 +625,7 @@ nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
int ret_value = -1;
hid_t c_loc_id;
char *c_name;
- int c_namelen;
+ size_t c_namelen;
char *c_comment = NULL;
size_t c_bufsize;
herr_t c_ret_value;
@@ -657,7 +657,7 @@ nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
- HD5packFstring(c_comment, _fcdtocp(comment), (int)*bufsize);
+ HD5packFstring(c_comment, _fcdtocp(comment), (size_t)*bufsize);
ret_value = 0;
DONE: