summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Gf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Gf.c')
-rw-r--r--fortran/src/H5Gf.c516
1 files changed, 260 insertions, 256 deletions
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index def67e1..42455bb 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -17,7 +17,7 @@
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
******
-*/
+ */
#include "H5f90.h"
#include "H5Eprivate.h"
@@ -44,51 +44,52 @@
* H5Gcreate1 can be compiled out of the library
* QAK - 2007/08/23
* SOURCE
-*/
+ */
int_f
-h5gcreate_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint,
- hid_t_f *grp_id, hid_t_f *lcpl_id, hid_t_f *gcpl_id, hid_t_f *gapl_id )
+h5gcreate_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint, hid_t_f *grp_id,
+ hid_t_f *lcpl_id, hid_t_f *gcpl_id, hid_t_f *gapl_id)
/******/
{
- hid_t c_gcpl_id = -1; /* Group creation property list */
- char *c_name = NULL;
+ hid_t c_gcpl_id = -1; /* Group creation property list */
+ char *c_name = NULL;
hid_t c_grp_id;
int_f ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Call H5Gcreate function.
*/
- if(*size_hint == (size_t_f)OBJECT_NAMELEN_DEFAULT_F ){
- c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name,(hid_t)*lcpl_id,(hid_t)*gcpl_id,(hid_t)*gapl_id);}
+ if (*size_hint == (size_t_f)OBJECT_NAMELEN_DEFAULT_F) {
+ c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name, (hid_t)*lcpl_id, (hid_t)*gcpl_id, (hid_t)*gapl_id);
+ }
else {
- /* Create the group creation property list */
- if((c_gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0)
- goto DONE;
+ /* Create the group creation property list */
+ if ((c_gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0)
+ goto DONE;
- /* Set the local heap size hint */
- if(H5Pset_local_heap_size_hint(c_gcpl_id, (size_t)*size_hint) < 0)
- goto DONE;
+ /* Set the local heap size hint */
+ if (H5Pset_local_heap_size_hint(c_gcpl_id, (size_t)*size_hint) < 0)
+ goto DONE;
- /* Create the group */
- c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name, H5P_DEFAULT, c_gcpl_id, H5P_DEFAULT);
+ /* Create the group */
+ c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name, H5P_DEFAULT, c_gcpl_id, H5P_DEFAULT);
}
- if(c_grp_id < 0)
+ if (c_grp_id < 0)
goto DONE;
/* Everything OK, set values to return */
- *grp_id = (hid_t_f)c_grp_id;
+ *grp_id = (hid_t_f)c_grp_id;
ret_value = 0;
DONE:
- if(c_gcpl_id > 0)
+ if (c_gcpl_id > 0)
H5Pclose(c_gcpl_id);
- if(c_name)
+ if (c_name)
HDfree(c_name);
return ret_value;
}
@@ -112,35 +113,35 @@ DONE:
* Wednesday, August 5, 1999
*
* SOURCE
-*/
+ */
int_f
h5gopen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *gapl_id, hid_t_f *grp_id)
/******/
{
- char *c_name = NULL;
- hid_t c_grp_id;
- int ret_value = -1;
-
- /*
- * Convert FORTRAN name to C name
- */
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ char *c_name = NULL;
+ hid_t c_grp_id;
+ int ret_value = -1;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
- /*
- * Call H5Gopen function.
- */
- if((c_grp_id = H5Gopen2((hid_t)*loc_id, c_name, (hid_t)*gapl_id)) < 0)
+ /*
+ * Call H5Gopen function.
+ */
+ if ((c_grp_id = H5Gopen2((hid_t)*loc_id, c_name, (hid_t)*gapl_id)) < 0)
goto DONE;
/* Everything OK, set values to return */
- *grp_id = (hid_t_f)c_grp_id;
+ *grp_id = (hid_t_f)c_grp_id;
ret_value = 0;
DONE:
- if(c_name)
- HDfree(c_name);
- return ret_value;
+ if (c_name)
+ HDfree(c_name);
+ return ret_value;
}
/****if* H5Gf/h5gget_obj_info_idx_c
@@ -164,48 +165,50 @@ DONE:
* Elena Pourmal
* Wednesday, August 5, 1999
* SOURCE
-*/
+ */
int_f
-h5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx,
- _fcd obj_name, int_f *obj_namelen, int_f *obj_type)
+h5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _fcd obj_name,
+ int_f *obj_namelen, int_f *obj_type)
/******/
{
H5O_info_t oinfo;
- hid_t c_loc_id = (hid_t)*loc_id;
- char *c_name = NULL;
- size_t c_obj_namelen;
- char *c_obj_name = NULL;
- hsize_t c_idx = (hsize_t)*idx;
- hid_t gid = (-1); /* Temporary group ID */
- int ret_value = -1;
+ hid_t c_loc_id = (hid_t)*loc_id;
+ char * c_name = NULL;
+ size_t c_obj_namelen;
+ char * c_obj_name = NULL;
+ hsize_t c_idx = (hsize_t)*idx;
+ hid_t gid = (-1); /* Temporary group ID */
+ int ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Allocate buffer to hold name of the object
*/
c_obj_namelen = (size_t)*obj_namelen;
- if(c_obj_namelen)
- if(NULL == (c_obj_name = (char *)HDmalloc(c_obj_namelen + 1)))
- goto DONE;
+ if (c_obj_namelen)
+ if (NULL == (c_obj_name = (char *)HDmalloc(c_obj_namelen + 1)))
+ goto DONE;
/* Get a temporary group ID for the group to query */
- if((gid = H5Gopen2(c_loc_id, c_name, H5P_DEFAULT)) < 0)
+ if ((gid = H5Gopen2(c_loc_id, c_name, H5P_DEFAULT)) < 0)
goto DONE;
/* Query the object's information */
- if(H5Lget_name_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, c_obj_name, c_obj_namelen, H5P_DEFAULT) < 0)
+ if (H5Lget_name_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, c_obj_name, c_obj_namelen,
+ H5P_DEFAULT) < 0)
goto DONE;
- if(H5Oget_info_by_idx2(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_idx2(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, &oinfo, H5O_INFO_BASIC,
+ H5P_DEFAULT) < 0)
goto DONE;
-/* XXX: Switch from using H5Gget_objtype_by_idx() means that this routine won't
- * work on non-hard links - QAK
- */
+ /* XXX: Switch from using H5Gget_objtype_by_idx() means that this routine won't
+ * work on non-hard links - QAK
+ */
*obj_type = oinfo.type;
/*
@@ -216,12 +219,12 @@ h5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx,
DONE:
/* Close the temporary group, if it was opened */
- if(gid > 0)
+ if (gid > 0)
H5Gclose(gid);
- if(c_obj_name)
+ if (c_obj_name)
HDfree(c_obj_name);
- if(c_name)
+ if (c_name)
HDfree(c_name);
return ret_value;
}
@@ -243,30 +246,30 @@ DONE:
* Elena Pourmal
* Wednesday, August 5, 1999
* SOURCE
-*/
+ */
int_f
h5gn_members_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
/******/
{
- char *c_name = NULL;
+ char * c_name = NULL;
H5G_info_t ginfo;
- int ret_value = -1;
+ int ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/* Call H5Gget_info_by_name() for the number of objects in the group */
- if(H5Gget_info_by_name((hid_t)*loc_id, c_name, &ginfo, H5P_DEFAULT) < 0)
+ if (H5Gget_info_by_name((hid_t)*loc_id, c_name, &ginfo, H5P_DEFAULT) < 0)
goto DONE;
*nmembers = (int_f)ginfo.nlinks;
ret_value = 0;
DONE:
- if(c_name)
+ if (c_name)
HDfree(c_name);
return ret_value;
}
@@ -284,7 +287,7 @@ DONE:
* Elena Pourmal
* Wednesday, August 5, 1999
* SOURCE
-*/
+ */
int_f
h5gclose_c(hid_t_f *grp_id)
@@ -292,12 +295,11 @@ h5gclose_c(hid_t_f *grp_id)
{
int ret_value = 0;
- if(H5Gclose((hid_t)*grp_id) < 0)
+ if (H5Gclose((hid_t)*grp_id) < 0)
ret_value = -1;
return ret_value;
}
-
/****if* H5Gf/h5glink_c
* NAME
* h5glink_c
@@ -317,67 +319,68 @@ h5gclose_c(hid_t_f *grp_id)
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
-*/
+ */
int_f
-h5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name,
- int_f *current_namelen, _fcd new_name, int_f *new_namelen)
+h5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_namelen, _fcd new_name,
+ int_f *new_namelen)
/******/
{
char *c_current_name = NULL, *c_new_name = NULL;
- int ret_value = -1;
+ int ret_value = -1;
/*
- * Convert Fortran name to C name
- */
- if(NULL == (c_current_name = (char *)HD5f2cstring(current_name, (size_t)*current_namelen)))
+ * Convert Fortran name to C name
+ */
+ if (NULL == (c_current_name = (char *)HD5f2cstring(current_name, (size_t)*current_namelen)))
goto DONE;
- if(NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
+ if (NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
goto DONE;
/*
- * Call appropriate link creation function
- */
- switch((H5L_type_t)*link_type) {
+ * Call appropriate link creation function
+ */
+ switch ((H5L_type_t)*link_type) {
case H5L_TYPE_HARD:
- if(H5Lcreate_hard((hid_t)*loc_id, c_current_name, H5L_SAME_LOC, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+ if (H5Lcreate_hard((hid_t)*loc_id, c_current_name, H5L_SAME_LOC, c_new_name, H5P_DEFAULT,
+ H5P_DEFAULT) < 0)
goto DONE;
break;
case H5L_TYPE_SOFT:
- if(H5Lcreate_soft(c_current_name, (hid_t)*loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+ if (H5Lcreate_soft(c_current_name, (hid_t)*loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
break;
- /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
+ /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
case H5L_TYPE_EXTERNAL:
ret_value = -1;
- goto DONE;
+ goto DONE;
break;
case H5L_TYPE_MAX:
ret_value = -1;
- goto DONE;
+ goto DONE;
break;
case H5L_TYPE_ERROR:
ret_value = -1;
- goto DONE;
+ goto DONE;
break;
- /* End of the warnings fix */
+ /* End of the warnings fix */
- default: /* Unknown/unhandled link type */
+ default: /* Unknown/unhandled link type */
goto DONE;
} /* end switch */
ret_value = 0;
DONE:
- if(c_current_name)
+ if (c_current_name)
HDfree(c_current_name);
- if(c_new_name)
+ if (c_new_name)
HDfree(c_new_name);
- return ret_value ;
+ return ret_value;
}
/****if* H5Gf/h5glink2_c
@@ -404,65 +407,66 @@ DONE:
* HISTORY
*
* SOURCE
-*/
+ */
int_f
-h5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen,
- int_f *link_type, hid_t_f *new_loc_id, _fcd new_name, int_f *new_namelen)
+h5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen, int_f *link_type, hid_t_f *new_loc_id,
+ _fcd new_name, int_f *new_namelen)
/******/
{
char *c_cur_name = NULL, *c_new_name = NULL;
- int ret_value = -1;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_cur_name = (char *)HD5f2cstring(cur_name, (size_t)*cur_namelen)))
+ if (NULL == (c_cur_name = (char *)HD5f2cstring(cur_name, (size_t)*cur_namelen)))
goto DONE;
- if(NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
+ if (NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
goto DONE;
/*
- * Call appropriate link creation function
- */
- switch((H5L_type_t)*link_type) {
+ * Call appropriate link creation function
+ */
+ switch ((H5L_type_t)*link_type) {
case H5L_TYPE_HARD:
- if(H5Lcreate_hard((hid_t)*cur_loc_id, c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+ if (H5Lcreate_hard((hid_t)*cur_loc_id, c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT,
+ H5P_DEFAULT) < 0)
goto DONE;
break;
case H5L_TYPE_SOFT:
- if(H5Lcreate_soft(c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+ if (H5Lcreate_soft(c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
break;
- /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
+ /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
case H5L_TYPE_EXTERNAL:
ret_value = -1;
- goto DONE;
+ goto DONE;
break;
case H5L_TYPE_MAX:
ret_value = -1;
- goto DONE;
+ goto DONE;
break;
case H5L_TYPE_ERROR:
ret_value = -1;
- goto DONE;
+ goto DONE;
break;
- /* End of the warnings fix */
+ /* End of the warnings fix */
- default: /* Unknown/unhandled link type */
+ default: /* Unknown/unhandled link type */
goto DONE;
} /* end switch */
ret_value = 0;
DONE:
- if(c_cur_name)
+ if (c_cur_name)
HDfree(c_cur_name);
- if(c_new_name)
+ if (c_new_name)
HDfree(c_new_name);
- return ret_value ;
+ return ret_value;
}
/****if* H5Gf/h5gunlink_c
@@ -479,30 +483,30 @@ DONE:
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
-*/
+ */
int_f
h5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen)
/******/
{
- char *c_name = NULL;
- int ret_value = -1;
+ char *c_name = NULL;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Call H5Gunlink function
*/
- if(H5Ldelete((hid_t)*loc_id, c_name, H5P_DEFAULT) < 0)
+ if (H5Ldelete((hid_t)*loc_id, c_name, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
- if(c_name)
+ if (c_name)
HDfree(c_name);
return ret_value;
}
@@ -524,35 +528,35 @@ DONE:
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
-*/
+ */
int_f
-h5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f*dst_namelen)
+h5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f *dst_namelen)
/******/
{
char *c_src_name = NULL, *c_dst_name = NULL;
- int ret_value = -1;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
+ if (NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
goto DONE;
- if(NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
+ if (NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
goto DONE;
/*
* Call H5Gmove function
*/
- if(H5Lmove((hid_t)*loc_id, c_src_name, H5L_SAME_LOC, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+ if (H5Lmove((hid_t)*loc_id, c_src_name, H5L_SAME_LOC, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
- if(c_src_name)
+ if (c_src_name)
HDfree(c_src_name);
- if(c_dst_name)
+ if (c_dst_name)
HDfree(c_dst_name);
return ret_value;
}
@@ -576,35 +580,36 @@ DONE:
* Wednesday, September 25, 2002
*
* SOURCE
-*/
+ */
int_f
-h5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id, _fcd dst_name, int_f*dst_namelen)
+h5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id, _fcd dst_name,
+ int_f *dst_namelen)
/******/
{
char *c_src_name = NULL, *c_dst_name = NULL;
- int ret_value = -1;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
+ if (NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
goto DONE;
- if(NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
+ if (NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
goto DONE;
/*
* Call H5Gmove2 function
*/
- if(H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+ if (H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
- if(c_src_name)
+ if (c_src_name)
HDfree(c_src_name);
- if(c_dst_name)
+ if (c_dst_name)
HDfree(c_dst_name);
return ret_value;
}
@@ -627,37 +632,37 @@ DONE:
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
-*/
+ */
int_f
-h5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size,
- _fcd value)
+h5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _fcd value)
/******/
{
- char *c_name = NULL;
- char *c_value = NULL;
- int ret_value = -1;
+ char *c_name = NULL;
+ char *c_value = NULL;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Allocate buffer to hold name of the value
*/
- if(*size) c_value = (char *)HDmalloc((size_t)*size);
- if(c_value == NULL) {
- HDfree(c_name);
- return ret_value;
- }
+ if (*size)
+ c_value = (char *)HDmalloc((size_t)*size);
+ if (c_value == NULL) {
+ HDfree(c_name);
+ return ret_value;
+ }
/*
* Call H5Lget_val function
*/
- if(H5Lget_val((hid_t)*loc_id, c_name, c_value, (size_t)*size, H5P_DEFAULT) < 0)
- goto DONE;
+ if (H5Lget_val((hid_t)*loc_id, c_name, c_value, (size_t)*size, H5P_DEFAULT) < 0)
+ goto DONE;
/*
* Convert C name to FORTRAN and place it in the given buffer
@@ -666,9 +671,9 @@ h5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size,
ret_value = 0;
DONE:
- if(c_value)
+ if (c_value)
HDfree(c_value);
- if(c_name)
+ if (c_name)
HDfree(c_name);
return ret_value;
}
@@ -692,34 +697,33 @@ DONE:
* HISTORY
* Elena Pourmal
* SOURCE
-*/
+ */
int_f
-h5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment,
- int_f *commentlen)
+h5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_f *commentlen)
/******/
{
char *c_name = NULL, *c_comment = NULL;
- int ret_value = -1;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
- if(NULL == (c_comment = (char *)HD5f2cstring(comment, (size_t)*commentlen)))
+ if (NULL == (c_comment = (char *)HD5f2cstring(comment, (size_t)*commentlen)))
goto DONE;
/*
* Call H5Oset_comment_by_name function
*/
- if(H5Oset_comment_by_name((hid_t)*loc_id, c_name, c_comment, H5P_DEFAULT) < 0)
+ if (H5Oset_comment_by_name((hid_t)*loc_id, c_name, c_comment, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
- if(c_name)
+ if (c_name)
HDfree(c_name);
- if(c_comment)
+ if (c_comment)
HDfree(c_comment);
return ret_value;
}
@@ -741,47 +745,46 @@ DONE:
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
-*/
+ */
int_f
-h5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
- _fcd comment)
+h5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment)
/******/
{
- char *c_name = NULL, *c_comment = NULL;
+ char * c_name = NULL, *c_comment = NULL;
size_t c_bufsize;
- int ret_value = -1;
+ int ret_value = -1;
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+ if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Allocate buffer to hold the comment
*/
c_bufsize = (size_t)*bufsize;
- if(c_bufsize) {
- if(NULL == (c_comment = (char *)HDmalloc(c_bufsize + 1)))
+ if (c_bufsize) {
+ if (NULL == (c_comment = (char *)HDmalloc(c_bufsize + 1)))
goto DONE;
} /* end if */
/*
* Call H5Oget_comment_by_name function
*/
- if(H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, c_bufsize, H5P_DEFAULT) < 0)
+ if (H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, c_bufsize, H5P_DEFAULT) < 0)
goto DONE;
/*
- * Convert C name to FORTRAN and place it in the given buffer
- */
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
HD5packFstring(c_comment, _fcdtocp(comment), c_bufsize);
ret_value = 0;
DONE:
- if(c_name)
+ if (c_name)
HDfree(c_name);
- if(c_comment)
+ if (c_comment)
HDfree(c_comment);
return ret_value;
}
@@ -805,16 +808,16 @@ DONE:
* M. Scot Breitenfeld
* February 15, 2008
* SOURCE
-*/
+ */
int_f
h5gcreate_anon_c(hid_t_f *loc_id, hid_t_f *gcpl_id, hid_t_f *gapl_id, hid_t_f *grp_id)
/******/
{
- int_f ret_value=0; /* Return value */
+ int_f ret_value = 0; /* Return value */
- if ((*grp_id = (hid_t_f)H5Gcreate_anon((hid_t)*loc_id,(hid_t)*gcpl_id,(hid_t)*gapl_id)) < 0)
- HGOTO_DONE(FAIL);
+ if ((*grp_id = (hid_t_f)H5Gcreate_anon((hid_t)*loc_id, (hid_t)*gcpl_id, (hid_t)*gapl_id)) < 0)
+ HGOTO_DONE(FAIL);
done:
return ret_value;
@@ -837,21 +840,20 @@ done:
* M. Scot Breitenfeld
* February 15, 2008
* SOURCE
-*/
+ */
int_f
-h5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id )
+h5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id)
/******/
{
- int_f ret_value=0; /* Return value */
+ int_f ret_value = 0; /* Return value */
- if ((*gcpl_id = (hid_t_f)H5Gget_create_plist((hid_t)*grp_id)) < 0)
- HGOTO_DONE(FAIL);
+ if ((*gcpl_id = (hid_t_f)H5Gget_create_plist((hid_t)*grp_id)) < 0)
+ HGOTO_DONE(FAIL);
done:
return ret_value;
}
-
/****if* H5Gf/h5gget_info_c
* NAME
* h5gget_info_c
@@ -881,34 +883,34 @@ done:
* M. Scot Breitenfeld
* July 16, 2008
* SOURCE
-*/
+ */
int_f
-h5gget_info_c (hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted )
+h5gget_info_c(hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
/******/
{
- int_f ret_value = 0; /* Return value */
+ int_f ret_value = 0; /* Return value */
H5G_info_t ginfo;
- /*
- * Call H5Gget_info function.
- */
- if(H5Gget_info((hid_t)*group_id,&ginfo) < 0)
- HGOTO_DONE(FAIL);
+ /*
+ * Call H5Gget_info function.
+ */
+ if (H5Gget_info((hid_t)*group_id, &ginfo) < 0)
+ HGOTO_DONE(FAIL);
/* Unpack the structure */
*storage_type = (int_f)ginfo.storage_type;
- *nlinks = (int_f)ginfo.nlinks;
- *max_corder = (int_f)ginfo.max_corder;
- *mounted = 0;
- if(ginfo.mounted) *mounted = 1;
+ *nlinks = (int_f)ginfo.nlinks;
+ *max_corder = (int_f)ginfo.max_corder;
+ *mounted = 0;
+ if (ginfo.mounted)
+ *mounted = 1;
done:
return ret_value;
}
-
/****if* H5Gf/h5gget_info_by_idx_c
* NAME
* h5gget_info_by_idx_c
@@ -945,41 +947,42 @@ done:
* M. Scot Breitenfeld
* July 16, 2008
* SOURCE
-*/
+ */
int_f
-h5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
- int_f *index_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id,
- int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted )
+h5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, int_f *index_type,
+ int_f *order, hsize_t_f *n, hid_t_f *lapl_id, int_f *storage_type, int_f *nlinks,
+ int_f *max_corder, int_f *mounted)
/******/
{
- char *c_group_name = NULL; /* Buffer to hold group name C string */
- int_f ret_value = 0; /* Return value */
- H5G_info_t ginfo;
- /*
- * Convert FORTRAN name to C name
- */
- if((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
- HGOTO_DONE(FAIL);
-
- /*
- * Call H5Gget_info_by_idx function.
- */
- if(H5Gget_info_by_idx((hid_t)*loc_id,c_group_name, (H5_index_t)*index_type,(H5_iter_order_t)*order,(hsize_t)*n,
- &ginfo, (hid_t)*lapl_id) < 0)
- HGOTO_DONE(FAIL);
-
- /* Unpack the structure */
-
- *storage_type = (int_f)ginfo.storage_type;
- *nlinks = (int_f)ginfo.nlinks;
- *max_corder = (int_f)ginfo.max_corder;
- *mounted = 0;
- if(ginfo.mounted) *mounted = 1;
-
- done:
- if(c_group_name)
- HDfree(c_group_name);
- return ret_value;
+ char * c_group_name = NULL; /* Buffer to hold group name C string */
+ int_f ret_value = 0; /* Return value */
+ H5G_info_t ginfo;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if ((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Gget_info_by_idx function.
+ */
+ if (H5Gget_info_by_idx((hid_t)*loc_id, c_group_name, (H5_index_t)*index_type, (H5_iter_order_t)*order,
+ (hsize_t)*n, &ginfo, (hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+ /* Unpack the structure */
+
+ *storage_type = (int_f)ginfo.storage_type;
+ *nlinks = (int_f)ginfo.nlinks;
+ *max_corder = (int_f)ginfo.max_corder;
+ *mounted = 0;
+ if (ginfo.mounted)
+ *mounted = 1;
+
+done:
+ if (c_group_name)
+ HDfree(c_group_name);
+ return ret_value;
}
/****if* H5Gf/h5gget_info_by_name_c
@@ -1015,37 +1018,38 @@ h5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
* M. Scot Breitenfeld
* July 16, 2008
* SOURCE
-*/
+ */
int_f
h5gget_info_by_name_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, hid_t_f *lapl_id,
- int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
+ int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
/******/
{
- char *c_group_name = NULL; /* Buffer to hold group name C string */
- int_f ret_value = 0; /* Return value */
- H5G_info_t ginfo;
- /*
- * Convert FORTRAN name to C name
- */
- if((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
- HGOTO_DONE(FAIL);
-
- /*
- * Call H5Gget_info_by_name function.
- */
- if(H5Gget_info_by_name((hid_t)*loc_id, c_group_name, &ginfo, (hid_t)*lapl_id) < 0)
- HGOTO_DONE(FAIL);
-
- /* Unpack the structure */
-
- *storage_type = (int_f)ginfo.storage_type;
- *nlinks = (int_f)ginfo.nlinks;
- *max_corder = (int_f)ginfo.max_corder;
- *mounted = 0;
- if(ginfo.mounted) *mounted = 1;
-
- done:
- if(c_group_name)
- HDfree(c_group_name);
- return ret_value;
+ char * c_group_name = NULL; /* Buffer to hold group name C string */
+ int_f ret_value = 0; /* Return value */
+ H5G_info_t ginfo;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if ((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Gget_info_by_name function.
+ */
+ if (H5Gget_info_by_name((hid_t)*loc_id, c_group_name, &ginfo, (hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+ /* Unpack the structure */
+
+ *storage_type = (int_f)ginfo.storage_type;
+ *nlinks = (int_f)ginfo.nlinks;
+ *max_corder = (int_f)ginfo.max_corder;
+ *mounted = 0;
+ if (ginfo.mounted)
+ *mounted = 1;
+
+done:
+ if (c_group_name)
+ HDfree(c_group_name);
+ return ret_value;
}
generated by cgit v0.12 at 2024-07-04 22:13:14 (GMT)