diff options
Diffstat (limited to 'fortran/src/H5Rf.c')
| -rw-r--r-- | fortran/src/H5Rf.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c index a253b4a..c2f12e0 100644 --- a/fortran/src/H5Rf.c +++ b/fortran/src/H5Rf.c @@ -64,11 +64,11 @@ h5rcreate_region_c(int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t HGOTO_DONE(FAIL) /* Copy the reference created */ - HDmemcpy(ref, &ref_c, H5R_DSET_REG_REF_BUF_SIZE); + memcpy(ref, &ref_c, H5R_DSET_REG_REF_BUF_SIZE); done: if (c_name) - HDfree(c_name); + free(c_name); return ret_value; } /* end h5rcreate_region_c() */ @@ -112,7 +112,7 @@ h5rcreate_ptr_c(void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *re if (H5Rcreate(ref, (hid_t)*loc_id, c_name, (H5R_type_t)*ref_type, (hid_t)*space_id) >= 0) ret_value = 0; - HDfree(c_name); + free(c_name); return ret_value; } @@ -183,7 +183,7 @@ h5rget_region_region_c(hid_t_f *dset_id, int_f *ref, hid_t_f *space_id) int_f ret_value = 0; /* Copy the reference to dereference */ - HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE); + memcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE); /* * Call H5Rget_region function. @@ -316,7 +316,7 @@ h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t /* * Allocate buffer to hold name of an attribute */ - if ((c_buf = (char *)HDmalloc(c_bufsize)) == NULL) + if ((c_buf = (char *)malloc(c_bufsize)) == NULL) return ret_value; /* @@ -324,7 +324,7 @@ h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t */ if ((c_size = H5Rget_name((hid_t)*loc_id, (H5R_type_t)*ref_type, ref, c_buf, c_bufsize)) < 0) { if (c_buf) - HDfree(c_buf); + free(c_buf); return ret_value; } /* @@ -335,7 +335,7 @@ h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t *size_default = (size_t_f)c_size; ret_value = 0; if (c_buf) - HDfree(c_buf); + free(c_buf); return ret_value; } |