diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2004-04-18 04:10:09 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2004-04-18 04:10:09 (GMT) |
| commit | 0a29514b9dd967deb64b53b39e12d6b55177b76c (patch) | |
| tree | a0a2fce3c7a13fcdf1deed6c022a47bfb5a2cbf1 /fortran/src/H5Pf.c | |
| parent | 432f394cbbc6f77861501f91dc2fc5c209f3811f (diff) | |
| download | hdf5-0a29514b9dd967deb64b53b39e12d6b55177b76c.zip hdf5-0a29514b9dd967deb64b53b39e12d6b55177b76c.tar.gz hdf5-0a29514b9dd967deb64b53b39e12d6b55177b76c.tar.bz2 | |
[svn-r8383] Purpose:
Code cleanup
Description:
Clean up lots of warnings based on those reported from the SGI compilers
as well as gcc.
Platforms tested:
SGI O3900, IRIX64 6.5 (Cheryl's SGI machine)
FreeBSD 4.9 (sleipnir) w/ & w/o parallel
h5committest
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 9503d81..fb175b4 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -1786,7 +1786,7 @@ nh5pset_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree) { int ret_value = -1; hid_t c_fapl_id; - hid_t c_degree; + H5F_close_degree_t c_degree; c_fapl_id = (hid_t)*fapl_id; c_degree = (H5F_close_degree_t)*degree; @@ -1842,7 +1842,7 @@ nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size) c_prp_id = (hid_t)*prp_id; c_size = H5Pget_buffer(c_prp_id, NULL, NULL); if ( c_size <= 0 ) return ret_value; - *size = (hsize_t)c_size; + *size = (hsize_t_f)c_size; ret_value = 0; return ret_value; } @@ -2627,7 +2627,7 @@ nh5pget_class_name_c(hid_t_f *class, _fcd name, int_f *name_len) if( c_name == NULL) goto DONE; HD5packFstring(c_name, _fcdtocp(name), (int)*name_len); - ret_value = strlen(c_name); + ret_value = (int_f)HDstrlen(c_name); DONE: HDfree(c_name); |