summaryrefslogtreecommitdiffstats
path: root/hl/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-29 20:24:56 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-29 20:24:56 (GMT)
commiteee4741a2f388ee543a059b540f799a564724823 (patch)
treebf657a9b67ee6126af18e3aa8baf7fae20a4800e /hl/fortran
parent68e4b6ef398c946b723955553f00db2fd289b8d3 (diff)
downloadhdf5-eee4741a2f388ee543a059b540f799a564724823.zip
hdf5-eee4741a2f388ee543a059b540f799a564724823.tar.gz
hdf5-eee4741a2f388ee543a059b540f799a564724823.tar.bz2
[svn-r26971] fixed declaration of h5ltget_attribute_c
Diffstat (limited to 'hl/fortran')
-rw-r--r--hl/fortran/src/H5LTf90proto.h2
-rw-r--r--hl/fortran/src/H5LTfc.c12
2 files changed, 7 insertions, 7 deletions
diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h
index 834e63a..6234635 100644
--- a/hl/fortran/src/H5LTf90proto.h
+++ b/hl/fortran/src/H5LTf90proto.h
@@ -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
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index dc3c7b9..7f52eb2 100644
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -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;