diff options
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 225 |
1 files changed, 128 insertions, 97 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index b66709a..fa4dc5b 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -388,16 +388,16 @@ nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims ) /****if* H5Pf/h5pset_fill_valuec_c * NAME - * h5pset_fill_valuec_c + * h5pset_fill_valuec_c * PURPOSE - * Call h5pset_fill_value_c to a character fill value + * Call h5pset_fill_value_c to a character fill value * INPUTS - * prp_id - property list identifier - * type_id - datatype identifier (fill value is of type type_id) - * fillvalue - character value + * prp_id - property list identifier + * type_id - datatype identifier (fill value is of type type_id) + * fillvalue - character value * RETURNS - * 0 on success, -1 on failure - * Saturday, August 14, 1999 + * 0 on success, -1 on failure + * Saturday, August 14, 1999 * AUTHOR * Elena Pourmal * SOURCE @@ -411,7 +411,7 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) /* * Call h5pset_fill_value_c function. */ - ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue)); + ret_value = h5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue)); return ret_value; } @@ -433,7 +433,7 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) * SOURCE */ int_f -nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) +h5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /******/ { int ret_value = -1; @@ -460,7 +460,7 @@ nh5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue /* * Call h5pset_fill_value_c function. */ - return nh5pset_fill_value_c(prp_id, type_id, fillvalue); + return h5pset_fill_value_c(prp_id, type_id, fillvalue); } int_f @@ -469,7 +469,7 @@ nh5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /* * Call h5pset_fill_value_c function. */ - return nh5pset_fill_value_c(prp_id, type_id, fillvalue); + return h5pset_fill_value_c(prp_id, type_id, fillvalue); } int_f @@ -478,7 +478,7 @@ nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /* * Call h5pset_fill_value_c function. */ - return nh5pset_fill_value_c(prp_id, type_id, fillvalue); + return h5pset_fill_value_c(prp_id, type_id, fillvalue); } /****if* H5Pf/h5pget_fill_valuec_c @@ -510,7 +510,7 @@ nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) /* * Call h5pget_fill_value_c function. */ - ret_value = nh5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue)); + ret_value = h5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue)); return ret_value; } @@ -532,7 +532,7 @@ nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) * SOURCE */ int_f -nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) +h5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /******/ { int ret_value = -1; @@ -558,7 +558,7 @@ nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue /* * Call h5pget_fill_value_c function. */ - return nh5pget_fill_value_c(prp_id, type_id, fillvalue); + return h5pget_fill_value_c(prp_id, type_id, fillvalue); } int_f @@ -567,7 +567,7 @@ nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /* * Call h5pget_fill_value_c function. */ - return nh5pget_fill_value_c(prp_id, type_id, fillvalue); + return h5pget_fill_value_c(prp_id, type_id, fillvalue); } int_f @@ -576,7 +576,7 @@ nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /* * Call h5pget_fill_value_c function. */ - return nh5pget_fill_value_c(prp_id, type_id, fillvalue); + return h5pget_fill_value_c(prp_id, type_id, fillvalue); } /****if* H5Pf/h5pget_version_c @@ -2742,20 +2742,50 @@ nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) *size = (size_t_f)c_size; return ret_value; } +/****if* H5Pf/h5pcreate_class_c + * NAME + * h5pcreate_class_c + * PURPOSE + * Call H5Pcreate_class to create a new property class + * INPUTS + * parent - property list class identifier + * name - name of the new class + * name_len - lenght of the "name" buffer + * OUTPUTS + * cls - new class identifier + * RETURNS + * 0 on success, -1 on failure + * AUTHOR + * Elena Pourmal + * October 11, 2002 + * + * HISTORY + * SOURCE +*/ +int_f +nh5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls) +/******/ +{ + int ret_value = -1; + + ret_value = h5pcreate_class_c(parent, name, name_len, cls, NULL, NULL, NULL, NULL, NULL, NULL); + return ret_value; +} + /****if* H5Pf/h5pcreate_class_c * NAME - * h5pcreate_class_c + * h5pcreate_class_c * PURPOSE - * Call H5Pcreate_class ito create a new property class + * Call H5Pcreate_class ito create a new property class * INPUTS - * parent - property list class identifier - * name - name of the new class - * name_len - lenght of the "name" buffer + * parent - property list class identifier + * name - name of the new class + * name_len - lenght of the "name" buffer * OUTPUTS - * class - new class identifier + * class - new class identifier * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal * October 11, 2002 @@ -2766,7 +2796,7 @@ nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) * SOURCE */ int_f -nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls, +h5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls, H5P_cls_create_func_t create, void *create_data, H5P_cls_copy_func_t copy, void *copy_data, H5P_cls_close_func_t close, void *close_data) @@ -2796,17 +2826,17 @@ DONE: /****if* H5Pf/h5pregisterc_c * NAME - * h5pregisterc_c + * h5pregisterc_c * PURPOSE - * Call h5pregister_c to registers a permanent property + * Call h5pregister_c to registers a permanent property * INPUTS - * class - property list class identifier - * name - name of the new property - * name_len - length of the "name" buffer - * size - property size - * value - property value of character type + * class - property list class identifier + * name - name of the new property + * name_len - length of the "name" buffer + * size - property size + * value - property value of character type * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal * October 11, 2002 @@ -2823,32 +2853,32 @@ nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd v /* * Call h5pregister_c function */ - ret_value = nh5pregister_c(cls, name, name_len, size, _fcdtocp(value)); + ret_value = h5pregister_c(cls, name, name_len, size, _fcdtocp(value)); return ret_value; } /****if* H5Pf/h5pregister_c * NAME - * h5pregister_c + * h5pregister_c * PURPOSE - * Call H5Pregister2 to registers a permanent property + * Call H5Pregister2 to registers a permanent property * INPUTS - * class - property list class identifier - * name - name of the new property - * name_len - length of the "name" buffer - * size - property size - * value - property value + * class - property list class identifier + * name - name of the new property + * name_len - length of the "name" buffer + * size - property size + * value - property value * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal - * October 11, 2002 + * October 11, 2002 * HISTORY * * SOURCE */ int_f -nh5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value) +h5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value) /******/ { char* c_name = NULL; @@ -2876,7 +2906,7 @@ nh5pregister_integer_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, /* * Call h5pregister_c function */ - return nh5pregister_c(cls, name, name_len, size, value); + return h5pregister_c(cls, name, name_len, size, value); } int_f @@ -2885,7 +2915,7 @@ nh5pregister_real_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, vo /* * Call h5pregister_c function */ - return nh5pregister_c(cls, name, name_len, size, value); + return h5pregister_c(cls, name, name_len, size, value); } int_f @@ -2894,25 +2924,25 @@ nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, /* * Call h5pregister_c function */ - return nh5pregister_c(cls, name, name_len, size, value); + return h5pregister_c(cls, name, name_len, size, value); } /****if* H5Pf/h5pinsertc_c * NAME - * h5pinsertc_c + * h5pinsertc_c * PURPOSE - * Call h5pinsert_c to register a temporary property + * Call h5pinsert_c to register a temporary property * INPUTS - * plist - property list identifier - * name - name of the new property - * name_len - length of the "name" buffer - * size - property size - * value - property value of character type + * plist - property list identifier + * name - name of the new property + * name_len - length of the "name" buffer + * size - property size + * value - property value of character type * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal - * October 11, 2002 + * October 11, 2002 * HISTORY * * SOURCE @@ -2926,32 +2956,32 @@ nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd v /* * Call h5pinsert_c function */ - ret_value = nh5pinsert_c(plist, name, name_len, size, _fcdtocp(value)); + ret_value = h5pinsert_c(plist, name, name_len, size, _fcdtocp(value)); return ret_value; } /****if* H5Pf/h5pinsert_c * NAME - * h5pinsert_c + * h5pinsert_c * PURPOSE - * Call H5Pinsert2 to iinsert a temporary property + * Call H5Pinsert2 to iinsert a temporary property * INPUTS - * plist - property list class identifier - * name - name of the new property - * name_len - length of the "name" buffer - * size - property size - * value - property value + * plist - property list class identifier + * name - name of the new property + * name_len - length of the "name" buffer + * size - property size + * value - property value * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal - * October 11, 2002 + * October 11, 2002 * HISTORY * * SOURCE */ int_f -nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value) +h5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value) /******/ { char* c_name = NULL; @@ -2979,7 +3009,7 @@ nh5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, /* * Call h5pinsert_c function */ - return nh5pinsert_c(plist, name, name_len, size, value); + return h5pinsert_c(plist, name, name_len, size, value); } int_f @@ -2988,7 +3018,7 @@ nh5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, vo /* * Call h5pinsert_c function */ - return nh5pinsert_c(plist, name, name_len, size, value); + return h5pinsert_c(plist, name, name_len, size, value); } int_f @@ -2997,7 +3027,7 @@ nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, /* * Call h5pinsert_c function */ - return nh5pinsert_c(plist, name, name_len, size, value); + return h5pinsert_c(plist, name, name_len, size, value); } /****if* H5Pf/h5pexist_c @@ -3424,22 +3454,22 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED /* * Call h5pset_c function */ - ret_value = nh5pset_c(plist, name, name_len, _fcdtocp(value)); + ret_value = h5pset_c(plist, name, name_len, _fcdtocp(value)); return ret_value; } /****if* H5Pf/h5pset_c * NAME - * h5pset_c + * h5pset_c * PURPOSE - * Call H5Pset to set property value + * Call H5Pset to set property value * INPUTS - * plist - property list class identifier - * name - name of the new property - * name_len - length of the "name" buffer - * value - property value + * plist - property list class identifier + * name - name of the new property + * name_len - length of the "name" buffer + * value - property value * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal * October 11, 2002 @@ -3448,7 +3478,7 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED * SOURCE */ int_f -nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) +h5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /******/ { int_f ret_value = -1; @@ -3474,7 +3504,7 @@ nh5pset_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /* * Call h5pset_c function */ - return nh5pset_c(plist, name, name_len, value); + return h5pset_c(plist, name, name_len, value); } int_f @@ -3483,7 +3513,7 @@ nh5pset_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /* * Call h5pset_c function */ - return nh5pset_c(plist, name, name_len, value); + return h5pset_c(plist, name, name_len, value); } int_f @@ -3492,7 +3522,7 @@ nh5pset_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /* * Call h5pset_c function */ - return nh5pset_c(plist, name, name_len, value); + return h5pset_c(plist, name, name_len, value); } /****if* H5Pf/h5pgetc_c * NAME @@ -3522,31 +3552,32 @@ nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED /* * Call h5pget_c function */ - ret_value = nh5pget_c(plist, name, name_len, _fcdtocp(value)); + ret_value = h5pget_c(plist, name, name_len, _fcdtocp(value)); return ret_value; } /****if* H5Pf/h5pget_c * NAME - * h5pget_c + * h5pget_c * PURPOSE - * Call H5Pget to set property value + * Call H5Pget to set property value * INPUTS - * plist - property list class identifier - * name - name of the new property - * name_len - length of the "name" buffer - * Output: value - property value + * plist - property list class identifier + * name - name of the new property + * name_len - length of the "name" buffer + * Output: + * value - property value * RETURNS - * 0 on success, -1 on failure + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal - * October 11, 2002 + * October 11, 2002 * HISTORY * * SOURCE */ int_f -nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) +h5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /******/ { int_f ret_value = -1; @@ -3572,7 +3603,7 @@ nh5pget_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /* * Call h5pget_c function */ - return nh5pget_c(plist, name, name_len, value); + return h5pget_c(plist, name, name_len, value); } int_f @@ -3581,7 +3612,7 @@ nh5pget_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /* * Call h5pget_c function */ - return nh5pget_c(plist, name, name_len, value); + return h5pget_c(plist, name, name_len, value); } int_f @@ -3590,7 +3621,7 @@ nh5pget_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) /* * Call h5pget_c function */ - return nh5pget_c(plist, name, name_len, value); + return h5pget_c(plist, name, name_len, value); } @@ -5565,7 +5596,7 @@ nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nb *---------------------------------------------------------------------------*/ int_f -nh5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len) +h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len) { int ret_value = -1; /* @@ -5595,7 +5626,7 @@ nh5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len) *---------------------------------------------------------------------------*/ int_f -nh5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr) +h5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr) { int ret_value = -1; size_t c_buf_len_ptr; |