diff options
Diffstat (limited to 'fortran/src/H5Af.c')
| -rw-r--r-- | fortran/src/H5Af.c | 775 |
1 files changed, 0 insertions, 775 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index e71887d..d0821f6 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -118,383 +118,6 @@ done: return ret_value; } -/****if* H5Af/h5awritec_c - * NAME - * h5awritec_c - * PURPOSE - * Call h5awrite_c to write a character attribute - * INPUTS - * attr_id - dataset identifier - * mem_type_id - memory datatype identifier - * buf - character data buffer - * dims - array to store dimensions sizes of buf; used only - * by Fortran routine. - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday , August 12, 1999 - * HISTORY - * dims paramete added. - * April 4, 2001 - * SOURCE -*/ -int_f -h5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} -int_f -h5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - - - -/****if* H5Af/h5awrite_c - * NAME - * h5awrite_c - * PURPOSE - * Call H5Awrite to write a attribute - * INPUTS - * attr_id - attribute identifier - * mem_type_id - memory datatype identifier - * buf - data buffer - * dims - array to store dimensions sizes of buf; used only - * by Fortran routine. - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * dims parameter added - * April 4, 2001 - * Added h5awrite_integer(real,double)_s,1-7 functions to eliminate - * complains about wrong parameters types in h5awrite_c function - * called by Fortran routines. - * October 9, 2006 EIP - * SOURCE -*/ -int_f -h5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - /* - * Call h5awrite_c function. - */ - return h5awrite_c(attr_id, mem_type_id, buf, dims); -} - int_f h5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) /******/ @@ -512,404 +135,6 @@ done: } -/****if* H5Af/h5areadc_c - * NAME - * h5areadc_c - * PURPOSE - * Call h5aread_c to read character attribute - * INPUTS - * dset_id - dataset identifier - * mem_type_id - memory datatype identifier - * dims - array to store dimensions sizes of buf; used only - * by Fortran routine. - * OUTPUTS - * buf - character data buffer - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * dims parameter added. - * April 4, 2001 - * Added h5areadc_s,1-7 functions to eliminate - * complains about wrong parameters types in h5awrite_c function - * called by Fortran routines. - * October 9, 2006 EIP - * SOURCE -*/ -int_f -h5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} -int_f -h5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - -int_f -h5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} -int_f -h5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims); -} - - - -/****if* H5Af/h5aread_c - * NAME - * h5aread_c - * PURPOSE - * Call H5Aread to read an attribute - * INPUTS - * dset_id - dataset identifier - * mem_type_id - memory datatype identifier - * dims - array to store dimensions sizes of buf; used only - * by Fortran routine. - * OUTPUTS - * buf - data buffer - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * dims paramete added. - * April 4, 2001 - * Added h5aread_integer(real,double)_s,1-7 functions to eliminate - * complains about wrong parameters types in h5awrite_c function - * called by Fortran routines. - * October 9, 2006 EIP - * SOURCE -*/ -int_f -h5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - int_f ret_value=0; /* Return value */ - - /* - * Call H5Aread function. - */ - if (H5Aread((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0) - HGOTO_DONE(FAIL); - -done: - return ret_value; -} - -int_f -h5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - -int_f -h5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims) -/******/ -{ - /* - * Call h5aread_c function. - */ - return h5aread_c(attr_id, mem_type_id, buf, dims); -} - /****if* H5Af/h5aclose_c * NAME |