summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Ff.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Ff.c')
-rw-r--r--fortran/src/H5Ff.c612
1 files changed, 311 insertions, 301 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 8d3dba6..9f54bf0 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -11,13 +11,13 @@
* This file is part of HDF5. The full HDF5 copyright notice, including *
* terms governing use, modification, and redistribution, is contained in *
* the COPYING file, which can be found at the root of the source code *
- * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
+ * distribution tree, or in https://www.hdfgroup.org/licenses. *
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
******
-*/
+ */
#include "H5f90.h"
#include "H5Eprivate.h"
@@ -41,54 +41,55 @@
* Elena Pourmal
* Monday, July 26, 1999
* SOURCE
-*/
+ */
int_f
-nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, hid_t_f *acc_prp, hid_t_f *file_id)
+nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hid_t_f *acc_prp,
+ hid_t_f *file_id)
/******/
{
- int ret_value = -1;
- char *c_name;
- int_f c_namelen;
- hid_t c_file_id;
- unsigned c_access_flags;
- hid_t c_crt_prp;
- hid_t c_acc_prp;
-
- /*
- * Define access flags
- */
- c_access_flags = (unsigned) *access_flags;
-
- /*
- * Define creation property
- */
- c_crt_prp = *crt_prp;
-
- /*
- * Define access property
- */
- c_acc_prp = *acc_prp;
-
- /*
- * Convert FORTRAN name to C name
- */
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
- if(c_name == NULL)
- return ret_value;
-
- /*
- * Call H5Fcreate function.
- */
- c_file_id = H5Fcreate(c_name, c_access_flags, c_crt_prp, c_acc_prp);
-
- if (c_file_id >= 0) {
- ret_value = 0;
- *file_id = c_file_id;
- }
-
- HDfree(c_name);
- return ret_value;
+ int ret_value = -1;
+ char * c_name;
+ int_f c_namelen;
+ hid_t c_file_id;
+ unsigned c_access_flags;
+ hid_t c_crt_prp;
+ hid_t c_acc_prp;
+
+ /*
+ * Define access flags
+ */
+ c_access_flags = (unsigned)*access_flags;
+
+ /*
+ * Define creation property
+ */
+ c_crt_prp = *crt_prp;
+
+ /*
+ * Define access property
+ */
+ c_acc_prp = *acc_prp;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
+ if (c_name == NULL)
+ return ret_value;
+
+ /*
+ * Call H5Fcreate function.
+ */
+ c_file_id = H5Fcreate(c_name, c_access_flags, c_crt_prp, c_acc_prp);
+
+ if (c_file_id >= 0) {
+ ret_value = 0;
+ *file_id = c_file_id;
+ }
+
+ HDfree(c_name);
+ return ret_value;
}
/****if* H5Ff/h5fflush_c
@@ -107,31 +108,31 @@ nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, h
* Xiangyang Su
* Friday, November 5, 1999
* SOURCE
-*/
+ */
int_f
-nh5fflush_c (hid_t_f *object_id, int_f *scope)
+nh5fflush_c(hid_t_f *object_id, int_f *scope)
/******/
{
- int ret_value = -1;
- hid_t c_file_id;
- H5F_scope_t c_scope;
- htri_t status;
- c_scope = (H5F_scope_t)*scope;
+ int ret_value = -1;
+ hid_t c_file_id;
+ H5F_scope_t c_scope;
+ htri_t status;
+ c_scope = (H5F_scope_t)*scope;
- /*
- * Call H5Fflush function.
- */
+ /*
+ * Call H5Fflush function.
+ */
- c_file_id = *object_id;
+ c_file_id = *object_id;
- status = H5Fflush(c_file_id, c_scope);
+ status = H5Fflush(c_file_id, c_scope);
- if (status >= 0) ret_value = 0;
+ if (status >= 0)
+ ret_value = 0;
- return ret_value;
+ return ret_value;
}
-
/****if* H5Ff/h5fmount_c
* NAME
* h5fmount_c
@@ -149,45 +150,47 @@ nh5fflush_c (hid_t_f *object_id, int_f *scope)
* Xiangyang Su
* Monday, October 25, 1999
* HISTORY
-*/
+ */
int_f
-nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp)
+nh5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp)
/******/
{
- int ret_value = -1;
- char *c_name;
- int_f c_namelen;
- hid_t c_loc_id;
- hid_t c_file_id;
- hid_t c_acc_prp;
- htri_t status;
-
- /*
- * Define access property
- */
- c_acc_prp = *acc_prp;
-/*
- if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
-*/
-
- c_loc_id = *loc_id;
- c_file_id = *file_id;
- /*
- * Convert FORTRAN name to C name
- */
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
- if (c_name == NULL) return ret_value;
-
- /*
- * Call H5Fmount function.
- */
- status = H5Fmount(c_loc_id, c_name, c_file_id, c_acc_prp);
-
- if (status >= 0) ret_value = 0;
-
- HDfree(c_name);
- return ret_value;
+ int ret_value = -1;
+ char * c_name;
+ int_f c_namelen;
+ hid_t c_loc_id;
+ hid_t c_file_id;
+ hid_t c_acc_prp;
+ htri_t status;
+
+ /*
+ * Define access property
+ */
+ c_acc_prp = *acc_prp;
+ /*
+ if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
+ */
+
+ c_loc_id = *loc_id;
+ c_file_id = *file_id;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
+ if (c_name == NULL)
+ return ret_value;
+
+ /*
+ * Call H5Fmount function.
+ */
+ status = H5Fmount(c_loc_id, c_name, c_file_id, c_acc_prp);
+
+ if (status >= 0)
+ ret_value = 0;
+
+ HDfree(c_name);
+ return ret_value;
}
/****if* H5Ff/h5funmount_c
@@ -205,38 +208,38 @@ nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, h
* Xiangyang Su
* Monday, October 25, 1999
* SOURCE
-*/
+ */
int_f
-nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
+nh5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
/******/
{
- int ret_value = -1;
- char *c_name;
- int_f c_namelen;
- hid_t c_loc_id;
- htri_t status;
-
- c_loc_id = *loc_id;
-
- /*
- * Convert FORTRAN name to C name
- */
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
- if (c_name == NULL) return ret_value;
-
- /*
- * Call H5Fmount function.
- */
- status = H5Funmount(c_loc_id, c_name);
-
- if (status >= 0) ret_value = 0;
-
- HDfree(c_name);
- return ret_value;
-}
+ int ret_value = -1;
+ char * c_name;
+ int_f c_namelen;
+ hid_t c_loc_id;
+ htri_t status;
+ c_loc_id = *loc_id;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
+ if (c_name == NULL)
+ return ret_value;
+
+ /*
+ * Call H5Fmount function.
+ */
+ status = H5Funmount(c_loc_id, c_name);
+
+ if (status >= 0)
+ ret_value = 0;
+
+ HDfree(c_name);
+ return ret_value;
+}
/****if* H5Ff/h5fopen_c
* NAME
@@ -256,49 +259,49 @@ nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
* Elena Pourmal
* Tuesday, August 3, 1999
* SOURCE
-*/
+ */
int_f
-nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id)
+nh5fopen_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id)
/******/
{
- int ret_value = -1;
- char *c_name;
- int_f c_namelen;
- hid_t c_file_id;
- unsigned c_access_flags;
- hid_t c_acc_prp;
- c_acc_prp = (hid_t)*acc_prp;
-
- /*
- * Define access flags
- */
- c_access_flags = (unsigned) *access_flags;
-
- /*
- * Define access property
- */
- c_acc_prp = *acc_prp;
-
- /*
- * Convert FORTRAN name to C name
- */
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
- if(c_name == NULL)
- return ret_value;
-
- /*
- * Call H5Fopen function.
- */
- c_file_id = H5Fopen(c_name, c_access_flags, c_acc_prp);
-
- if(c_file_id >= 0) {
- ret_value = 0;
- *file_id = (hid_t_f)c_file_id;
- } /* end if */
-
- HDfree(c_name);
- return ret_value;
+ int ret_value = -1;
+ char * c_name;
+ int_f c_namelen;
+ hid_t c_file_id;
+ unsigned c_access_flags;
+ hid_t c_acc_prp;
+ c_acc_prp = (hid_t)*acc_prp;
+
+ /*
+ * Define access flags
+ */
+ c_access_flags = (unsigned)*access_flags;
+
+ /*
+ * Define access property
+ */
+ c_acc_prp = *acc_prp;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
+ if (c_name == NULL)
+ return ret_value;
+
+ /*
+ * Call H5Fopen function.
+ */
+ c_file_id = H5Fopen(c_name, c_access_flags, c_acc_prp);
+
+ if (c_file_id >= 0) {
+ ret_value = 0;
+ *file_id = (hid_t_f)c_file_id;
+ } /* end if */
+
+ HDfree(c_name);
+ return ret_value;
}
/****if* H5Ff/h5freopen_c
@@ -316,22 +319,23 @@ nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hi
* Xiangyang Su
* Wednesday, November 3, 1999
* SOURCE
-*/
+ */
int_f
-nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2)
+nh5freopen_c(hid_t_f *file_id1, hid_t_f *file_id2)
/******/
{
- int ret_value = -1;
- hid_t c_file_id1, c_file_id2;
+ int ret_value = -1;
+ hid_t c_file_id1, c_file_id2;
- c_file_id1 = *file_id1;
- c_file_id2 = H5Freopen(c_file_id1);
+ c_file_id1 = *file_id1;
+ c_file_id2 = H5Freopen(c_file_id1);
- if (c_file_id2 < 0) return ret_value;
- *file_id2 = (hid_t_f)c_file_id2;
+ if (c_file_id2 < 0)
+ return ret_value;
+ *file_id2 = (hid_t_f)c_file_id2;
- ret_value = 0;
- return ret_value;
+ ret_value = 0;
+ return ret_value;
}
/****if* H5Ff/h5fget_create_plist_c
@@ -349,22 +353,23 @@ nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2)
* Elena Pourmal, Xiangyang Su
* Wednesday, November 3, 1999
* SOURCE
-*/
+ */
int_f
-nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id)
+nh5fget_create_plist_c(hid_t_f *file_id, hid_t_f *prop_id)
/******/
{
- int ret_value = -1;
- hid_t c_file_id, c_prop_id;
+ int ret_value = -1;
+ hid_t c_file_id, c_prop_id;
- c_file_id = (hid_t)*file_id;
- c_prop_id = H5Fget_create_plist(c_file_id);
+ c_file_id = (hid_t)*file_id;
+ c_prop_id = H5Fget_create_plist(c_file_id);
- if (c_prop_id < 0) return ret_value;
- *prop_id = (hid_t_f)c_prop_id;
+ if (c_prop_id < 0)
+ return ret_value;
+ *prop_id = (hid_t_f)c_prop_id;
- ret_value = 0;
- return ret_value;
+ ret_value = 0;
+ return ret_value;
}
/****if* H5Ff/h5fget_access_plist_c
@@ -384,22 +389,23 @@ nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id)
* HISTORY
*
* SOURCE
-*/
+ */
int_f
-nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id)
+nh5fget_access_plist_c(hid_t_f *file_id, hid_t_f *access_id)
/******/
{
- int ret_value = -1;
- hid_t c_file_id, c_access_id;
+ int ret_value = -1;
+ hid_t c_file_id, c_access_id;
- c_file_id = (hid_t)*file_id;
- c_access_id = H5Fget_access_plist(c_file_id);
+ c_file_id = (hid_t)*file_id;
+ c_access_id = H5Fget_access_plist(c_file_id);
- if (c_access_id < 0) return ret_value;
- *access_id = (hid_t_f)c_access_id;
+ if (c_access_id < 0)
+ return ret_value;
+ *access_id = (hid_t_f)c_access_id;
- ret_value = 0;
- return ret_value;
+ ret_value = 0;
+ return ret_value;
}
/****if* H5Ff/h5fis_hdf5_c
@@ -421,32 +427,34 @@ nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id)
* HISTORY
*
* SOURCE
-*/
+ */
int_f
-nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag)
+nh5fis_hdf5_c(_fcd name, int_f *namelen, int_f *flag)
/******/
{
- int ret_value = -1;
- char *c_name;
- int_f c_namelen;
- htri_t status;
-
- /*
- * Convert FORTRAN name to C name
- */
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
- if (c_name == NULL) return ret_value;
-
- /*
- * Call H5Fopen function.
- */
- status = H5Fis_hdf5(c_name);
- *flag = (int_f)status;
- if (status >= 0) ret_value = 0;
-
- HDfree(c_name);
- return ret_value;
+ int ret_value = -1;
+ char * c_name;
+ int_f c_namelen;
+ htri_t status;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
+ if (c_name == NULL)
+ return ret_value;
+
+ /*
+ * Call H5Fopen function.
+ */
+ status = H5Fis_hdf5(c_name);
+ *flag = (int_f)status;
+ if (status >= 0)
+ ret_value = 0;
+
+ HDfree(c_name);
+ return ret_value;
}
/****if* H5Ff/h5fclose_c
* NAME
@@ -463,18 +471,19 @@ nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag)
* HISTORY
*
* SOURCE
-*/
+ */
int_f
-nh5fclose_c ( hid_t_f *file_id )
+nh5fclose_c(hid_t_f *file_id)
/******/
{
- int ret_value = 0;
- hid_t c_file_id;
+ int ret_value = 0;
+ hid_t c_file_id;
- c_file_id = (hid_t)*file_id;
- if ( H5Fclose(c_file_id) < 0 ) ret_value = -1;
- return ret_value;
+ c_file_id = (hid_t)*file_id;
+ if (H5Fclose(c_file_id) < 0)
+ ret_value = -1;
+ return ret_value;
}
/****if* H5Ff/h5fget_obj_count_c
* NAME
@@ -495,23 +504,23 @@ nh5fclose_c ( hid_t_f *file_id )
* Changed type of obj_count to size_t_f
* Thursday, September 25, 2008
* SOURCE
-*/
+ */
int_f
-nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, size_t_f * obj_count)
+nh5fget_obj_count_c(hid_t_f *file_id, int_f *obj_type, size_t_f *obj_count)
/******/
{
- int ret_value = 0;
- hid_t c_file_id;
- unsigned c_obj_type;
- ssize_t c_obj_count;
-
+ int ret_value = 0;
+ hid_t c_file_id;
+ unsigned c_obj_type;
+ ssize_t c_obj_count;
- c_file_id = (hid_t)*file_id;
- c_obj_type = (unsigned) *obj_type;
- if ( (c_obj_count=H5Fget_obj_count(c_file_id, c_obj_type)) < 0 ) ret_value = -1;
- *obj_count = (size_t_f)c_obj_count;
- return ret_value;
+ c_file_id = (hid_t)*file_id;
+ c_obj_type = (unsigned)*obj_type;
+ if ((c_obj_count = H5Fget_obj_count(c_file_id, c_obj_type)) < 0)
+ ret_value = -1;
+ *obj_count = (size_t_f)c_obj_count;
+ return ret_value;
}
/****if* H5Ff/h5fget_obj_ids_c
* NAME
@@ -532,31 +541,30 @@ nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, size_t_f * obj_count)
* Changed type of max_obj to size_t_f; added parameter for the
* number of open objects
* Thursday, September 25, 2008 EIP
- *
+ *
* SOURCE
-*/
+ */
int_f
-nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, size_t_f *max_objs,
- hid_t_f *obj_ids, size_t_f *num_objs)
+nh5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f *obj_ids, size_t_f *num_objs)
/******/
{
- int ret_value = 0;
- hid_t c_file_id;
+ int ret_value = 0;
+ hid_t c_file_id;
unsigned c_obj_type;
- size_t u;
- size_t c_max_objs;
- ssize_t c_num_objs;
- hid_t *c_obj_ids;
+ size_t u;
+ size_t c_max_objs;
+ ssize_t c_num_objs;
+ hid_t * c_obj_ids;
- c_file_id = (hid_t)*file_id;
- c_obj_type = (unsigned) *obj_type;
+ c_file_id = (hid_t)*file_id;
+ c_obj_type = (unsigned)*obj_type;
c_max_objs = (size_t)*max_objs;
- c_obj_ids = (hid_t *)HDmalloc(sizeof(hid_t)*c_max_objs);
+ c_obj_ids = (hid_t *)HDmalloc(sizeof(hid_t) * c_max_objs);
c_num_objs = H5Fget_obj_ids(c_file_id, c_obj_type, c_max_objs, c_obj_ids);
- if(c_num_objs < 0)
+ if (c_num_objs < 0)
ret_value = -1;
- for(u = 0; u < c_max_objs; u++)
+ for (u = 0; u < c_max_objs; u++)
obj_ids[u] = (hid_t_f)c_obj_ids[u];
HDfree(c_obj_ids);
@@ -579,20 +587,21 @@ nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, size_t_f *max_objs,
* Quincey Koziol
* Tuesday, October 7, 2003
* SOURCE
-*/
+ */
int_f
-nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space)
+nh5fget_freespace_c(hid_t_f *file_id, hssize_t_f *free_space)
/******/
{
- int ret_value = 0;
- hid_t c_file_id;
- hssize_t c_free_space;
-
- c_file_id = (hid_t)*file_id;
- if ( (c_free_space=H5Fget_freespace(c_file_id)) < 0 ) ret_value = -1;
- *free_space=(hssize_t_f)c_free_space;
- return ret_value;
+ int ret_value = 0;
+ hid_t c_file_id;
+ hssize_t c_free_space;
+
+ c_file_id = (hid_t)*file_id;
+ if ((c_free_space = H5Fget_freespace(c_file_id)) < 0)
+ ret_value = -1;
+ *free_space = (hssize_t_f)c_free_space;
+ return ret_value;
}
/****if* H5Ff/h5fget_name_c
@@ -612,36 +621,37 @@ nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space)
* Elena Pourmal
* Tuesday, July 6, 2004
* SOURCE
-*/
+ */
int_f
nh5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen)
/******/
{
- char *c_buf = NULL; /* Buffer to hold C string */
- ssize_t size_c = -1;
- int_f ret_value = 0; /* Return value */
-
- /*
- * Allocate buffer to hold name of an attribute
- */
- if(NULL == (c_buf = (char *)HDmalloc((size_t)*buflen + 1)))
- HGOTO_DONE(FAIL);
-
- /*
- * Call H5Fget_name function
- */
- if ((size_c = H5Fget_name((hid_t)*obj_id, c_buf, (size_t)*buflen)) < 0)
- HGOTO_DONE(FAIL);
-
- /*
- * Convert C name to FORTRAN and place it in the given buffer
- */
- HD5packFstring(c_buf, _fcdtocp(buf), (size_t)*buflen);
+ char * c_buf = NULL; /* Buffer to hold C string */
+ ssize_t size_c = -1;
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Allocate buffer to hold name of an attribute
+ */
+ if (NULL == (c_buf = (char *)HDmalloc((size_t)*buflen + 1)))
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Fget_name function
+ */
+ if ((size_c = H5Fget_name((hid_t)*obj_id, c_buf, (size_t)*buflen)) < 0)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
+ HD5packFstring(c_buf, _fcdtocp(buf), (size_t)*buflen);
done:
- *size = (size_t_f)size_c;
- if(c_buf) HDfree(c_buf);
- return ret_value;
+ *size = (size_t_f)size_c;
+ if (c_buf)
+ HDfree(c_buf);
+ return ret_value;
}
/****if* H5Ff/h5fget_filesize_c
@@ -659,23 +669,23 @@ done:
* Elena Pourmal
* Wednesday, July 7, 2004
* SOURCE
-*/
+ */
int_f
nh5fget_filesize_c(hid_t_f *file_id, hsize_t_f *size)
/******/
{
hsize_t size_c;
- herr_t ret_value=0; /* Return value */
+ herr_t ret_value = 0; /* Return value */
- /*
- * Call H5Fget_filesize function
- */
- if ((ret_value = H5Fget_filesize((hid_t)*file_id, &size_c)) < 0)
- HGOTO_DONE(FAIL);
- *size = (hsize_t_f)size_c;
+ /*
+ * Call H5Fget_filesize function
+ */
+ if ((ret_value = H5Fget_filesize((hid_t)*file_id, &size_c)) < 0)
+ HGOTO_DONE(FAIL);
+ *size = (hsize_t_f)size_c;
done:
- return ret_value;
+ return ret_value;
}
/****if* H5Ff/h5fget_file_image_c
@@ -695,22 +705,22 @@ done:
* M. Scot Breitenfeld
* November 26, 2012
* SOURCE
-*/
+ */
int_f
h5fget_file_image_c(hid_t_f *file_id, void *buf_ptr, size_t_f *buf_len, size_t_f *buf_req)
/******/
{
- herr_t ret_value=0; /* Return value */
+ herr_t ret_value = 0; /* Return value */
ssize_t c_buf_req;
/*
* Call h5fget_file_image function
*/
-
- if ( (c_buf_req = H5Fget_file_image((hid_t)*file_id, buf_ptr, (size_t)*buf_len)) < 0)
- HGOTO_DONE(FAIL);
+
+ if ((c_buf_req = H5Fget_file_image((hid_t)*file_id, buf_ptr, (size_t)*buf_len)) < 0)
+ HGOTO_DONE(FAIL);
*buf_req = (size_t_f)c_buf_req;
done:
- return ret_value;
+ return ret_value;
}
generated by cgit v0.12 at 2025-02-16 14:00:19 (GMT)