summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Pf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Pf.c')
-rw-r--r--fortran/src/H5Pf.c225
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;