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-r26971] fixed declaration of h5ltget_attribute_c

Browse Source
This commit is contained in:
Scot Breitenfeld 2015-04-29 15:24:56 -05:00
parent 68e4b6ef39
commit eee4741a2f
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hl/fortran/src/H5LTf90proto.h
View File

@ -107,7 +107,7 @@ h5ltget_attribute_c(hid_t_f *loc_id,
_fcd dsetname,
size_t_f *attrnamelen,
_fcd attrname,
void *buf, char* dtype);
void *buf, char* dtype, size_t_f *sizeof_val);
HDF5_HL_F90CSTUBDLL
int_f

12
hl/fortran/src/H5LTfc.c
View File

@ -598,7 +598,7 @@ h5ltget_attribute_c(hid_t_f *loc_id,
_fcd dsetname,
size_t_f *attrnamelen,
_fcd attrname,
void *buf, char *dtype, size_t_f *size_f)
void *buf, char *dtype, size_t_f *sizeof_val)
{
int ret_value = -1;
herr_t ret;
@ -623,18 +623,18 @@ h5ltget_attribute_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
if( HDstrncmp(dtype,"I",1) == 0) {
if((size_t)*size_f == sizeof(int))
if((size_t)*sizeof_val == sizeof(int))
ret = H5LTget_attribute(c_loc_id,c_name,c_attrname,H5T_NATIVE_INT,buf);
else if ((size_t)*size_f == sizeof(long))
else if ((size_t)*sizeof_val == sizeof(long))
ret = H5LTget_attribute(c_loc_id,c_name,c_attrname,H5T_NATIVE_LONG,buf);
else if ((size_t)*size_f == sizeof(long long))
else if ((size_t)*sizeof_val == sizeof(long long))
ret = H5LTget_attribute(c_loc_id,c_name,c_attrname,H5T_NATIVE_LLONG,buf);
else
goto done;
} else if ( HDstrncmp(dtype,"R",1) == 0 ) {
if((size_t)*size_f == sizeof(float))
if((size_t)*sizeof_val == sizeof(float))
ret = H5LTget_attribute(c_loc_id,c_name,c_attrname,H5T_NATIVE_FLOAT,buf);
else if((size_t)*size_f == sizeof(double))
else if((size_t)*sizeof_val == sizeof(double))
ret = H5LTget_attribute(c_loc_id,c_name,c_attrname,H5T_NATIVE_DOUBLE,buf);
else
goto done;