mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r25133] Rudimentary changes; changed the casting of hid_t_f variables that used a casting of int_f to use a casting of hid_t_f.

Browse Source 
Tested: jam (gnu)
This commit is contained in:
Scot Breitenfeld 2014-04-28 16:44:33 -05:00
parent 39681a594f
commit a9fa46cf8e
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fortran/src/H5Pf.c
View File

@ -418,18 +418,18 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
/****if* H5Pf/h5pset_fill_value_c /****if* H5Pf/h5pset_fill_value_c
* NAME * NAME
* h5pset_fill_value_c * h5pset_fill_value_c
* PURPOSE * PURPOSE
* Call H5Pset_fill_value to set a fillvalue for a dataset * Call H5Pset_fill_value to set a fillvalue for a dataset
* INPUTS * INPUTS
* prp_id - property list identifier * prp_id - property list identifier
* type_id - datatype identifier (fill value is of type type_id) * type_id - datatype identifier (fill value is of type type_id)
* fillvalue - fillvalue * fillvalue - fillvalue
* RETURNS * RETURNS
* 0 on success, -1 on failure * 0 on success, -1 on failure
* AUTHOR * AUTHOR
* Elena Pourmal * Elena Pourmal
* Saturday, August 14, 1999 * Saturday, August 14, 1999
* SOURCE * SOURCE
*/ */
int_f int_f
@ -445,7 +445,7 @@ nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
* Call H5Pset_fill_value function. * Call H5Pset_fill_value function.
*/ */
c_prp_id = (hid_t)*prp_id; c_prp_id = (hid_t)*prp_id;
c_type_id = (int)*type_id; c_type_id = (hid_t)*type_id;
ret = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue); ret = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue);
if (ret < 0) return ret_value; if (ret < 0) return ret_value;

14
fortran/src/H5_f.c
View File

@ -460,13 +460,13 @@ nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
/* /*
* H5FD flags of type hid_t * H5FD flags of type hid_t
*/ */
h5fd_hid_flags[0] = (int_f)H5FD_CORE; h5fd_hid_flags[0] = (hid_t_f)H5FD_CORE;
h5fd_hid_flags[1] = (int_f)H5FD_FAMILY; h5fd_hid_flags[1] = (hid_t_f)H5FD_FAMILY;
h5fd_hid_flags[2] = (int_f)H5FD_LOG; h5fd_hid_flags[2] = (hid_t_f)H5FD_LOG;
h5fd_hid_flags[3] = (int_f)H5FD_MPIO; h5fd_hid_flags[3] = (hid_t_f)H5FD_MPIO;
h5fd_hid_flags[4] = (int_f)H5FD_MULTI; h5fd_hid_flags[4] = (hid_t_f)H5FD_MULTI;
h5fd_hid_flags[5] = (int_f)H5FD_SEC2; h5fd_hid_flags[5] = (hid_t_f)H5FD_SEC2;
h5fd_hid_flags[6] = (int_f)H5FD_STDIO; h5fd_hid_flags[6] = (hid_t_f)H5FD_STDIO;
/* /*
* H5G flags * H5G flags