summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Tf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Tf.c')
-rw-r--r--fortran/src/H5Tf.c26
1 files changed, 13 insertions, 13 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index a74f5d1..6438af0 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -66,7 +66,7 @@ h5topen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -116,7 +116,7 @@ h5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -1357,7 +1357,7 @@ h5tget_member_index_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx)
goto DONE;
*idx = (int_f)c_index;
DONE:
- HDfree(c_name);
+ free(c_name);
ret_value = 0;
return ret_value;
}
@@ -1624,7 +1624,7 @@ h5tinsert_c(hid_t_f *type_id, _fcd name, int_f *namelen, size_t_f *offset, hid_t
error = H5Tinsert((hid_t)*type_id, c_name, (size_t)*offset, (hid_t)*field_id);
- HDfree(c_name);
+ free(c_name);
if (error < 0)
return ret_value;
ret_value = 0;
@@ -1784,7 +1784,7 @@ h5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value)
c_value = *value;
error = H5Tenum_insert((hid_t)*type_id, c_name, &c_value);
- HDfree(c_name);
+ free(c_name);
if (error < 0)
return ret_value;
@@ -1825,11 +1825,11 @@ h5tenum_nameof_c(hid_t_f *type_id, int_f *value, _fcd name, size_t_f *namelen)
int_f c_value;
c_value = *value;
c_namelen = ((size_t)*namelen) + 1;
- c_name = (char *)HDmalloc(sizeof(char) * c_namelen);
+ c_name = (char *)malloc(sizeof(char) * c_namelen);
c_type_id = (hid_t)*type_id;
error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen);
HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
- HDfree(c_name);
+ free(c_name);
if (error < 0)
return ret_value;
@@ -1870,7 +1870,7 @@ h5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value)
return ret_value;
error = H5Tenum_valueof((hid_t)*type_id, c_name, value);
- HDfree(c_name);
+ free(c_name);
if (error < 0)
return ret_value;
@@ -1947,7 +1947,7 @@ h5tset_tag_c(hid_t_f *type_id, _fcd tag, int_f *namelen)
c_tag = (char *)HD5f2cstring(tag, (size_t)*namelen);
status = H5Tset_tag((hid_t)*type_id, c_tag);
- HDfree(c_tag);
+ free(c_tag);
if (status < 0)
return ret_value;
@@ -2263,7 +2263,7 @@ h5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc)
* Allocate buffer
*/
c_size = (size_t)*nalloc;
- if (NULL == (c_buf = (unsigned char *)HDmalloc(c_size)))
+ if (NULL == (c_buf = (unsigned char *)malloc(c_size)))
return ret_value;
/*
@@ -2278,11 +2278,11 @@ h5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc)
* with blanks.
*/
- HDmemcpy(_fcdtocp(buf), (char *)c_buf, c_size);
+ memcpy(_fcdtocp(buf), (char *)c_buf, c_size);
ret_value = 0;
if (c_buf)
- HDfree(c_buf);
+ free(c_buf);
return ret_value;
}
@@ -2466,7 +2466,7 @@ h5tenum_insert_ptr_c(hid_t_f *type_id, _fcd name, int_f *namelen, void *value)
status = H5Tenum_insert((hid_t)*type_id, c_name, value);
- HDfree(c_name);
+ free(c_name);
if (status < 0)
return ret_value;