diff options
Diffstat (limited to 'fortran/src/H5Tf.c')
| -rw-r--r-- | fortran/src/H5Tf.c | 508 |
1 files changed, 254 insertions, 254 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index cd1ccd0..a4ac7bd 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -19,9 +19,9 @@ /*---------------------------------------------------------------------------- * Name: h5topen_c - * Purpose: Call H5Topen to open a datatype - * Inputs: loc_id - file or group identifier - * name - name of the datatype within file or group + * Purpose: Call H5Topen to open a datatype + * Inputs: loc_id - file or group identifier + * name - name of the datatype within file or group * namelen - name length * Outputs: type_id - dataset identifier * Returns: 0 on success, -1 on failure @@ -42,7 +42,7 @@ nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id) * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; /* @@ -56,14 +56,14 @@ nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id) HDfree(c_name); ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5tcommit_c - * Purpose: Call H5Tcommit to commit a datatype - * Inputs: loc_id - file or group identifier - * name - name of the datatype within file or group + * Purpose: Call H5Tcommit to commit a datatype + * Inputs: loc_id - file or group identifier + * name - name of the datatype within file or group * namelen - name length * type_id - dataset identifier * Returns: 0 on success, -1 on failure @@ -85,7 +85,7 @@ nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id) * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; /* @@ -98,11 +98,11 @@ nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id) if (status < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5tclose_c - * Purpose: Call H5Tclose to close the datatype + * Purpose: Call H5Tclose to close the datatype * Inputs: type_id - identifier of the datatype to be closed * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -110,7 +110,7 @@ nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tclose_c ( hid_t_f *type_id ) { int ret_value = 0; @@ -125,7 +125,7 @@ nh5tclose_c ( hid_t_f *type_id ) /*---------------------------------------------------------------------------- * Name: h5tcopy_c * Purpose: Call H5Tcopy to copy a datatype - * Inputs: type_id - identifier of the datatype to be copied + * Inputs: type_id - identifier of the datatype to be copied * Outputs: new_type_id - identifier of the new datatype * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -133,7 +133,7 @@ nh5tclose_c ( hid_t_f *type_id ) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id) { int ret_value = 0; @@ -141,7 +141,7 @@ nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id) hid_t c_new_type_id; c_type_id = *type_id; - c_new_type_id = H5Tcopy(c_type_id); + c_new_type_id = H5Tcopy(c_type_id); if ( c_new_type_id < 0 ) ret_value = -1; *new_type_id = (hid_t_f)c_new_type_id; return ret_value; @@ -150,16 +150,16 @@ nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id) /*---------------------------------------------------------------------------- * Name: h5tequal_c * Purpose: Call H5Tequal to copy a datatype - * Inputs: type1_id - datatype identifier - * type2_id - datatype identifier - * Outputs: c_flag - flag; indicates if two datatypes are equal or not. + * Inputs: type1_id - datatype identifier + * type2_id - datatype identifier + * Outputs: c_flag - flag; indicates if two datatypes are equal or not. * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal - * Tuesday, February 22, 2000 + * Tuesday, February 22, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag) { int ret_value = -1; @@ -168,9 +168,9 @@ nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag) c_type1_id = *type1_id; c_type2_id = *type2_id; - status = H5Tequal(c_type1_id, c_type2_id); - if ( status < 0 ) return ret_value; - *c_flag = (int_f)status; + status = H5Tequal(c_type1_id, c_type2_id); + if ( status < 0 ) return ret_value; + *c_flag = (int_f)status; ret_value = 0; return ret_value; } @@ -179,7 +179,7 @@ nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag) /*---------------------------------------------------------------------------- * Name: h5tget_class_c * Purpose: Call H5Tget_class to determine the datatype class - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Outputs: classtype - class type; possible values are: * H5T_NO_CLASS_F (-1) * H5T_INTEGER_F (0) @@ -197,18 +197,18 @@ nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_class_c ( hid_t_f *type_id , int_f *classtype) { int ret_value = 0; hid_t c_type_id; - H5T_class_t c_classtype; + H5T_class_t c_classtype; c_type_id = *type_id; c_classtype = H5Tget_class(c_type_id); if (c_classtype == H5T_NO_CLASS ) { /* *classtype = H5T_NO_CLASS_F; */ - *classtype = (int_f)H5T_NO_CLASS; + *classtype = (int_f)H5T_NO_CLASS; ret_value = -1; return ret_value; } @@ -229,8 +229,8 @@ nh5tget_class_c ( hid_t_f *type_id , int_f *classtype) /*---------------------------------------------------------------------------- * Name: h5tget_order_c - * Purpose: Call H5Tget_order to determine byte order - * Inputs: type_id - identifier of the dataspace + * Purpose: Call H5Tget_order to determine byte order + * Inputs: type_id - identifier of the dataspace * Outputs: order; possible values are: * H5T_ORDER_LE_F (0) * H5T_ORDER_BE_F (1) @@ -241,12 +241,12 @@ nh5tget_class_c ( hid_t_f *type_id , int_f *classtype) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_order_c ( hid_t_f *type_id , int_f *order) { int ret_value = -1; hid_t c_type_id; - H5T_order_t c_order; + H5T_order_t c_order; c_type_id = *type_id; c_order = H5Tget_order(c_type_id); @@ -264,8 +264,8 @@ nh5tget_order_c ( hid_t_f *type_id , int_f *order) /*---------------------------------------------------------------------------- * Name: h5tset_order_c - * Purpose: Call H5Tset_order to set byte order - * Inputs: type_id - identifier of the dataspace + * Purpose: Call H5Tset_order to set byte order + * Inputs: type_id - identifier of the dataspace * order; possible values are: * H5T_ORDER_LE_F (0) * H5T_ORDER_BE_F (1) @@ -276,12 +276,12 @@ nh5tget_order_c ( hid_t_f *type_id , int_f *order) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_order_c ( hid_t_f *type_id , int_f *order) { int ret_value = 0; hid_t c_type_id; - H5T_order_t c_order; + H5T_order_t c_order; herr_t status; c_order = (H5T_order_t)*order; /* @@ -297,47 +297,47 @@ nh5tset_order_c ( hid_t_f *type_id , int_f *order) /*---------------------------------------------------------------------------- * Name: h5tget_size_c - * Purpose: Call H5Tget_size to get size of the datatype - * Inputs: type_id - identifier of the dataspace - * Outputs: size (in bytes) + * Purpose: Call H5Tget_size to get size of the datatype + * Inputs: type_id - identifier of the dataspace + * Outputs: size (in bytes) * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_size_c ( hid_t_f *type_id , size_t_f *size) { int ret_value = -1; hid_t c_type_id; - size_t c_size; + size_t c_size; c_type_id = *type_id; c_size = H5Tget_size(c_type_id); if ( c_size == 0 ) return ret_value; *size = (size_t_f)c_size ; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_size_c - * Purpose: Call H5Tget_size to get size of the datatype - * Inputs: type_id - identifier of the dataspace - * Outputs: size (in bytes) + * Purpose: Call H5Tget_size to get size of the datatype + * Inputs: type_id - identifier of the dataspace + * Outputs: size (in bytes) * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_size_c ( hid_t_f *type_id , size_t_f *size) { int ret_value = -1; hid_t c_type_id; - size_t c_size; + size_t c_size; herr_t status; c_size = (size_t)*size; @@ -350,134 +350,134 @@ nh5tset_size_c ( hid_t_f *type_id , size_t_f *size) /*---------------------------------------------------------------------------- * Name: h5tget_precision_c - * Purpose: Call H5Tget_precision to get precision of the datatype - * Inputs: type_id - identifier of the dataspace - * Outputs: precision - number of significant bits + * Purpose: Call H5Tget_precision to get precision of the datatype + * Inputs: type_id - identifier of the dataspace + * Outputs: precision - number of significant bits * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Tuesday, January 25, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_precision_c ( hid_t_f *type_id , size_t_f *precision) { int ret_value = -1; hid_t c_type_id; - size_t c_precision; + size_t c_precision; c_type_id = *type_id; c_precision = H5Tget_precision(c_type_id); if ( c_precision == 0 ) return ret_value; *precision = (size_t_f)c_precision ; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_precision_c - * Purpose: Call H5Tset_precision to set precision of the datatype - * Inputs: type_id - identifier of the dataspace - * precision - number of significant bits + * Purpose: Call H5Tset_precision to set precision of the datatype + * Inputs: type_id - identifier of the dataspace + * precision - number of significant bits * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Tuesday, January 25, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_precision_c ( hid_t_f *type_id , size_t_f *precision) { int ret_value = -1; hid_t c_type_id; - size_t c_precision; + size_t c_precision; herr_t status; c_type_id = *type_id; c_precision = (size_t)*precision; status = H5Tset_precision(c_type_id, c_precision); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_offset_c - * Purpose: Call H5Tget_offset to get bit offset of the first - * significant bit of the datatype - * Inputs: type_id - identifier of the dataspace - * Outputs: offset - bit offset of the first significant bit + * Purpose: Call H5Tget_offset to get bit offset of the first + * significant bit of the datatype + * Inputs: type_id - identifier of the dataspace + * Outputs: offset - bit offset of the first significant bit * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Tuesday, January 25, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_offset_c ( hid_t_f *type_id , size_t_f *offset) { int ret_value = -1; hid_t c_type_id; - size_t c_offset; + size_t c_offset; c_type_id = *type_id; c_offset = H5Tget_offset(c_type_id); if ( c_offset == 0 ) return ret_value; *offset = (size_t_f)c_offset ; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_offset_c - * Purpose: Call H5Tset_offset to set bit offset of the first - * significant bit of the datatype - * Inputs: type_id - identifier of the dataspace - * offset - bit offset of the first significant bit + * Purpose: Call H5Tset_offset to set bit offset of the first + * significant bit of the datatype + * Inputs: type_id - identifier of the dataspace + * offset - bit offset of the first significant bit * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Tuesday, January 25, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_offset_c ( hid_t_f *type_id , size_t_f *offset) { int ret_value = -1; hid_t c_type_id; - size_t c_offset; + size_t c_offset; herr_t status; c_offset = (size_t)*offset; c_type_id = *type_id; status = H5Tset_offset(c_type_id, c_offset); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_pad_c * Purpose: Call H5Tget_pad to get the padding type of the least and - * most-significant bit padding - * - * Inputs: type_id - identifier of the dataspace + * most-significant bit padding + * + * Inputs: type_id - identifier of the dataspace * Outputs: lsbpad - padding type of the least significant bit - * msbpad - padding type of the least significant bit + * msbpad - padding type of the least significant bit * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Wednesday, January 26, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad) { int ret_value = -1; hid_t c_type_id; herr_t status; - H5T_pad_t c_lsb, c_msb; + H5T_pad_t c_lsb, c_msb; c_type_id = *type_id; status = H5Tget_pad(c_type_id, &c_lsb, &c_msb); @@ -485,85 +485,85 @@ nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad) *lsbpad = (int_f) c_lsb; *msbpad = (int_f) c_msb; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_pad_c - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Purpose: Call H5Tset_pad to set the padding type of the least and - * most-significant bit padding - * - * Inputs: type_id - identifier of the dataspace + * most-significant bit padding + * + * Inputs: type_id - identifier of the dataspace * lsbpad - padding type of the least significant bit - * msbpad - padding type of the least significant bit + * msbpad - padding type of the least significant bit * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Wednesday, January 26, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_pad_c ( hid_t_f *type_id, int_f * lsbpad, int_f* msbpad ) { int ret_value = -1; hid_t c_type_id; herr_t status; - H5T_pad_t c_lsb, c_msb; + H5T_pad_t c_lsb, c_msb; c_type_id = *type_id; c_lsb = (H5T_pad_t)*lsbpad; c_msb = (H5T_pad_t)*msbpad; status = H5Tset_pad(c_type_id, c_lsb, c_msb); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_sign_c - * Purpose: Call H5Tget_sign to get sign type for an integer type - * Inputs: type_id - identifier of the dataspace - * Outputs: sign - sign type for an integer type + * Purpose: Call H5Tget_sign to get sign type for an integer type + * Inputs: type_id - identifier of the dataspace + * Outputs: sign - sign type for an integer type * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Wednesday, January 26, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_sign_c ( hid_t_f *type_id , int_f *sign) { int ret_value = -1; hid_t c_type_id; - H5T_sign_t c_sign; + H5T_sign_t c_sign; c_type_id = *type_id; c_sign = H5Tget_sign(c_type_id); if ( c_sign == -1 ) return ret_value; *sign = (int_f)c_sign ; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_sign_c - * Purpose: Call H5Tset_sign to set sign type for an integer type - * Inputs: type_id - identifier of the dataspace - * sign - sign type for an integer typ + * Purpose: Call H5Tset_sign to set sign type for an integer type + * Inputs: type_id - identifier of the dataspace + * sign - sign type for an integer typ * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Wednesday, January 26, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_sign_c ( hid_t_f *type_id , int_f* sign) { int ret_value = -1; hid_t c_type_id; - H5T_sign_t c_sign; + H5T_sign_t c_sign; herr_t status; c_type_id = *type_id; @@ -571,15 +571,15 @@ nh5tset_sign_c ( hid_t_f *type_id , int_f* sign) status = H5Tset_sign(c_type_id, c_sign); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_fields_c - * Purpose: Call H5Tget_fields to get floating point datatype + * Purpose: Call H5Tget_fields to get floating point datatype * bit field information - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Outputs: epos - exponent bit-position * esize - size of exponent in bits * mpos - mantissa bit-position @@ -590,13 +590,13 @@ nh5tset_sign_c ( hid_t_f *type_id , int_f* sign) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_fields_c ( hid_t_f *type_id , size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize) { int ret_value = -1; hid_t c_type_id; herr_t status; - size_t c_spos, c_epos, c_esize, c_mpos, c_msize; + size_t c_spos, c_epos, c_esize, c_mpos, c_msize; c_type_id = *type_id; status = H5Tget_fields(c_type_id, &c_spos, &c_epos, &c_esize, &c_mpos, &c_msize); @@ -606,15 +606,15 @@ nh5tget_fields_c ( hid_t_f *type_id , size_t_f *spos, size_t_f *epos, size_t_f* *esize = (size_t_f) c_esize; *mpos = (size_t_f) c_mpos; *msize = (size_t_f) c_msize; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_fields_c - * Purpose: Call H5Tset_fields to set floating point datatype + * Purpose: Call H5Tset_fields to set floating point datatype * bit field information - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * epos - exponent bit-position * esize - size of exponent in bits * mpos - mantissa bit-position @@ -625,13 +625,13 @@ nh5tget_fields_c ( hid_t_f *type_id , size_t_f *spos, size_t_f *epos, size_t_f* * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize) { int ret_value = -1; hid_t c_type_id; herr_t status; - size_t c_spos, c_epos, c_esize, c_mpos, c_msize; + size_t c_spos, c_epos, c_esize, c_mpos, c_msize; c_spos = (size_t)*spos; c_epos = (size_t)*epos; @@ -642,15 +642,15 @@ nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* e status = H5Tset_fields(c_type_id, c_spos, c_epos, c_esize, c_mpos, c_msize); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_ebias_c - * Purpose: Call H5Tget_ebias to get exponent bias of a - * floating-point type of the datatype - * Inputs: type_id - identifier of the dataspace + * Purpose: Call H5Tget_ebias to get exponent bias of a + * floating-point type of the datatype + * Inputs: type_id - identifier of the dataspace * Outputs: ebias - exponent bias of a floating-point type of the datatype * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -658,40 +658,40 @@ nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* e * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_ebias_c ( hid_t_f *type_id , size_t_f *ebias) { int ret_value = -1; hid_t c_type_id; - size_t c_ebias; + size_t c_ebias; c_type_id = *type_id; c_ebias = H5Tget_ebias(c_type_id); if ( c_ebias == 0 ) return ret_value; *ebias = (size_t_f)c_ebias; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_ebias_c * Purpose: Call H5Tset_ebias to set exponent bias of a - * floating-point type of the datatype - * Inputs: type_id - identifier of the dataspace - * ebias - exponent bias of a floating-point type of the datatyp + * floating-point type of the datatype + * Inputs: type_id - identifier of the dataspace + * ebias - exponent bias of a floating-point type of the datatyp * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Friday, January 27, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias) { int ret_value = -1; hid_t c_type_id; - size_t c_ebias; + size_t c_ebias; herr_t status; c_type_id = *type_id; @@ -706,8 +706,8 @@ nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias) /*---------------------------------------------------------------------------- * Name: h5tget_norm_c * Purpose: Call H5Tget_norm to get mantissa normalization - * of a floating-point datatype - * Inputs: type_id - identifier of the dataspace + * of a floating-point datatype + * Inputs: type_id - identifier of the dataspace * Outputs: norm - mantissa normalization of a floating-point type * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -715,27 +715,27 @@ nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_norm_c ( hid_t_f *type_id , int_f *norm) { int ret_value = -1; hid_t c_type_id; - H5T_norm_t c_norm; + H5T_norm_t c_norm; c_type_id = *type_id; c_norm = H5Tget_norm(c_type_id); if ( c_norm == 0 ) return ret_value; *norm = (int_f)c_norm; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_norm_c - * Purpose: Call H5Tset_norm to set mantissa normalization of - * floating-point type of the datatype - * Inputs: type_id - identifier of the dataspace + * Purpose: Call H5Tset_norm to set mantissa normalization of + * floating-point type of the datatype + * Inputs: type_id - identifier of the dataspace * norm - mantissa normalization of a floating-point type * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -743,12 +743,12 @@ nh5tget_norm_c ( hid_t_f *type_id , int_f *norm) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_norm_c ( hid_t_f *type_id , int_f *norm) { int ret_value = -1; hid_t c_type_id; - H5T_norm_t c_norm; + H5T_norm_t c_norm; herr_t status; c_type_id = *type_id; @@ -764,8 +764,8 @@ nh5tset_norm_c ( hid_t_f *type_id , int_f *norm) * Name: h5tget_inpad_c * Purpose: Call H5Tget_inpad to get the padding type for * unused bits in floating-point datatypes - * - * Inputs: type_id - identifier of the dataspace + * + * Inputs: type_id - identifier of the dataspace * Outputs: padtype - padding type for * unused bits in floating-point datatype * Returns: 0 on success, -1 on failure @@ -774,29 +774,29 @@ nh5tset_norm_c ( hid_t_f *type_id , int_f *norm) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype) { int ret_value = -1; hid_t c_type_id; - H5T_pad_t c_padtype; + H5T_pad_t c_padtype; c_type_id = *type_id; c_padtype = H5Tget_inpad(c_type_id); if ( c_padtype == H5T_PAD_ERROR ) return ret_value; *padtype = (int_f) c_padtype; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_inpad_c - * Inputs: type_id - identifier of the dataspace - * Purpose: Call H5Tset_inpad to set the padding type + * Inputs: type_id - identifier of the dataspace + * Purpose: Call H5Tset_inpad to set the padding type * unused bits in floating-point datatype - * - * Inputs: type_id - identifier of the dataspace + * + * Inputs: type_id - identifier of the dataspace * padtype - padding type for unused bits * in floating-point datatypes * Returns: 0 on success, -1 on failure @@ -805,29 +805,29 @@ nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype) { int ret_value = -1; hid_t c_type_id; herr_t status; - H5T_pad_t c_padtype; + H5T_pad_t c_padtype; c_type_id = *type_id; c_padtype = (H5T_pad_t)*padtype; status = H5Tset_inpad(c_type_id, c_padtype); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_cset_c - * Purpose: Call H5Tget_cset to get character set + * Purpose: Call H5Tget_cset to get character set * type of a string datatype - * - * Inputs: type_id - identifier of the dataspace + * + * Inputs: type_id - identifier of the dataspace * Outputs: cset - character set type of a string datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU @@ -835,29 +835,29 @@ nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_cset_c ( hid_t_f *type_id , int_f * cset) { int ret_value = -1; hid_t c_type_id; - H5T_cset_t c_cset; + H5T_cset_t c_cset; c_type_id = *type_id; c_cset = H5Tget_cset(c_type_id); if ( c_cset == H5T_CSET_ERROR ) return ret_value; *cset = (int_f) c_cset; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_cset_c - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Purpose: Call H5Tset_cset to set character set * type of a string datatype - * - * Inputs: type_id - identifier of the dataspace + * + * Inputs: type_id - identifier of the dataspace * cset - character set type of a string datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU @@ -865,20 +865,20 @@ nh5tget_cset_c ( hid_t_f *type_id , int_f * cset) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_cset_c ( hid_t_f *type_id, int_f * cset) { int ret_value = -1; hid_t c_type_id; herr_t status; - H5T_cset_t c_cset; + H5T_cset_t c_cset; c_type_id = *type_id; c_cset = (H5T_cset_t)*cset; status = H5Tset_cset(c_type_id, c_cset); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } @@ -886,7 +886,7 @@ nh5tset_cset_c ( hid_t_f *type_id, int_f * cset) * Name: h5tget_strpad_c * Purpose: Call H5Tget_strpad to get string padding method * for a string datatype - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Outputs: strpad - string padding method for a string datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU @@ -894,29 +894,29 @@ nh5tset_cset_c ( hid_t_f *type_id, int_f * cset) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad) { int ret_value = -1; hid_t c_type_id; - H5T_str_t c_strpad; + H5T_str_t c_strpad; c_type_id = *type_id; c_strpad = H5Tget_strpad(c_type_id); if ( c_strpad == H5T_STR_ERROR ) return ret_value; *strpad = (int_f) c_strpad; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_strpad_c - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Purpose: Call H5Tset_strpad to set string padding method * for a string datatype - * - * Inputs: type_id - identifier of the dataspace + * + * Inputs: type_id - identifier of the dataspace * strpad - string padding method for a string datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU @@ -924,28 +924,28 @@ nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad) { int ret_value = -1; hid_t c_type_id; herr_t status; - H5T_str_t c_strpad; + H5T_str_t c_strpad; c_type_id = *type_id; c_strpad = (H5T_str_t)*strpad; status = H5Tset_strpad(c_type_id, c_strpad); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_nmembers_c - * Purpose: Call H5Tget_nmembers to get number of fields + * Purpose: Call H5Tget_nmembers to get number of fields * in a compound datatype - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Outputs: num_members - number of fields in a compound datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU @@ -953,7 +953,7 @@ nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members) { int ret_value = -1; @@ -963,16 +963,16 @@ nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members) *num_members = (int_f)H5Tget_nmembers(c_type_id); if (*num_members < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_member_name_c - * Purpose: Call H5Tget_member_name to get name + * Purpose: Call H5Tget_member_name to get name * of a compound datatype - * Inputs: type_id - identifier of the dataspace - * Outputs: member_name - name of a field of a compound datatype + * Inputs: type_id - identifier of the dataspace + * Outputs: member_name - name of a field of a compound datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Thursday, February 3, 2000 @@ -980,7 +980,7 @@ nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members) * Added namelen parameter to return length of the name to Fortran user *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_member_name_c ( hid_t_f *type_id ,int_f* idx, _fcd member_name, int_f *namelen) { int ret_value = -1; @@ -993,18 +993,18 @@ nh5tget_member_name_c ( hid_t_f *type_id ,int_f* idx, _fcd member_name, int_f *n c_name = H5Tget_member_name(c_type_id, c_index); if (c_name == NULL ) return ret_value; - HD5packFstring(c_name, _fcdtocp(member_name), (int)strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(member_name), (int)strlen(c_name)); *namelen = (int_f)strlen(c_name); HDfree(c_name); - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_member_index_c * Purpose: Call H5Tget_member_index to get an index of * the specified datatype filed or member. - * Inputs: type_id - datatype identifier - * name - name of the datatype within file or group + * Inputs: type_id - datatype identifier + * name - name of the datatype within file or group * namelen - name length * Outputs: index - 0-based index * Returns: 0 on success, -1 on failure @@ -1025,7 +1025,7 @@ nh5tget_member_index_c (hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx) * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; /* @@ -1040,25 +1040,25 @@ DONE: HDfree(c_name); ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5tget_member_offset_c * Purpose: Call H5Tget_member_offset to get byte offset of the - * beginning of a field within a compound datatype with + * beginning of a field within a compound datatype with * respect to the beginning of the compound data type datum - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * member_no - Number of the field whose offset is requested * Outputs: offset - byte offset of the the beginning of the field of - * a compound datatype + * a compound datatype * Returns: always 0 * Programmer: XIANGYANG SU * Thursday, February 3, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f * offset) { int ret_value = -1; @@ -1070,23 +1070,23 @@ nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f * offset) c_member_no = *member_no; c_offset = H5Tget_member_offset(c_type_id, c_member_no); *offset = (size_t_f)c_offset; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_array_dims_c - * Purpose: Call H5Tget_array_dims to get + * Purpose: Call H5Tget_array_dims to get * dimensions of array datatype * Inputs: type_id - identifier of the array datatype * Outputs: dims - dimensions(sizes of dimensions) of the array * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Thursday, November 16, 2000 - * Modifications: + * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_array_dims_c ( hid_t_f *type_id , hsize_t_f * dims) { int ret_value = -1; @@ -1112,7 +1112,7 @@ nh5tget_array_dims_c ( hid_t_f *type_id , hsize_t_f * dims) dims[rank-i-1] = (hsize_t_f)c_dims[i]; } - ret_value = 0; + ret_value = 0; HDfree(c_dims); return ret_value; @@ -1120,17 +1120,17 @@ nh5tget_array_dims_c ( hid_t_f *type_id , hsize_t_f * dims) /*---------------------------------------------------------------------------- * Name: h5tget_array_ndims_c - * Purpose: Call H5Tget_array_ndims to get number + * Purpose: Call H5Tget_array_ndims to get number * of dimensions of array datatype * Inputs: type_id - identifier of the array datatype * Outputs: ndims - number of dimensions of the array * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Thursday, November 16, 2000 - * Modifications: + * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_array_ndims_c ( hid_t_f *type_id , int_f * ndims) { int ret_value = -1; @@ -1142,23 +1142,23 @@ nh5tget_array_ndims_c ( hid_t_f *type_id , int_f * ndims) if (c_ndims < 0) return ret_value; *ndims = (int_f)c_ndims; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_super_c - * Purpose: Call H5Tget_super to get base datatype from which - * datatype was derived + * Purpose: Call H5Tget_super to get base datatype from which + * datatype was derived * Inputs: type_id - identifier of the array datatype - * Outputs: base_type_id - base datatype identifier + * Outputs: base_type_id - base datatype identifier * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Thursday, November 16, 2000 - * Modifications: + * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id) { int ret_value = -1; @@ -1170,7 +1170,7 @@ nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id) if (c_base_type_id < 0) return ret_value; *base_type_id = (hid_t_f)c_base_type_id; - ret_value = 0; + ret_value = 0; return ret_value; } @@ -1179,7 +1179,7 @@ nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id) * Name: h5tget_member_type_c * Purpose: Call H5Tget_member_type to get the identifier of a copy of * the datatype of the field - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * field_idx - Field index (0-based) of the field type to retrieve * Outputs: datatype - identifier of a copy of the datatype of the field * Returns: 0 on success, -1 on failure @@ -1188,7 +1188,7 @@ nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype) { int ret_value = -1; @@ -1200,23 +1200,23 @@ nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype) *datatype = (hid_t_f)H5Tget_member_type(c_type_id, c_field_idx); if(*datatype < 0) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tcreate_c - * Purpose: Call H5Tcreate to create a datatype - * Inputs: class - class type - * size - size of the class memeber + * Purpose: Call H5Tcreate to create a datatype + * Inputs: class - class type + * size - size of the class memeber * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal + * Programmer: Elena Pourmal * Thursday, February 17, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tcreate_c(int_f *class, size_t_f *size, hid_t_f *type_id) { int ret_value = -1; @@ -1229,14 +1229,14 @@ nh5tcreate_c(int_f *class, size_t_f *size, hid_t_f *type_id) *type_id = (hid_t_f)H5Tcreate(c_class, c_size); if(*type_id < 0) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tinsert_c * Purpose: Call H5Tinsert to adds another member to the compound datatype - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * name - Name of the field to insert * namelen - length of the name * offset - Offset in memory structure of the field to insert @@ -1247,7 +1247,7 @@ nh5tcreate_c(int_f *class, size_t_f *size, hid_t_f *type_id) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_t_f * field_id) { int ret_value = -1; @@ -1260,7 +1260,7 @@ nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_ c_offset =(size_t) *offset; c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; c_type_id = *type_id; @@ -1268,17 +1268,17 @@ nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_ error = H5Tinsert(c_type_id, c_name, c_offset, c_field_id); HDfree(c_name); if(error < 0) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tpack_c - * Purpose: Call H5Tpack tor ecursively remove padding from - * within a compound datatype to make it more efficient + * Purpose: Call H5Tpack tor ecursively remove padding from + * within a compound datatype to make it more efficient * (space-wise) to store that data - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU * Thursday, February 3, 2000 @@ -1298,7 +1298,7 @@ nh5tpack_c(hid_t_f * type_id) ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5tarray_create_c @@ -1308,9 +1308,9 @@ nh5tpack_c(hid_t_f * type_id) * dims - Size of new member array * type_id - identifier of the array datatype * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal + * Programmer: Elena Pourmal * Thursday, November 16, 2000 - * Modifications: + * Modifications: *---------------------------------------------------------------------------*/ int_f nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* type_id) @@ -1332,7 +1332,7 @@ nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* typ for (i = 0; i < *rank ; i++) { c_dims[i] = (hsize_t)dims[*rank - i - 1]; } - + c_base_id = (hid_t)*base_id; c_rank = (int)*rank; c_type_id = H5Tarray_create(c_base_id, c_rank, c_dims, NULL); @@ -1353,8 +1353,8 @@ nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* typ /*---------------------------------------------------------------------------- * Name: h5tenum_create_c * Purpose: Call H5Tenum_create to create a new enumeration datatype - * Inputs: parent_id - Datatype identifier for the base datatype - * Outputs: new_type_id - datatype identifier for the new + * Inputs: parent_id - Datatype identifier for the base datatype + * Outputs: new_type_id - datatype identifier for the new * enumeration datatype * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -1362,7 +1362,7 @@ nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* typ * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id) { int ret_value = 0; @@ -1370,7 +1370,7 @@ nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id) hid_t c_new_type_id; c_parent_id = *parent_id; - c_new_type_id = H5Tenum_create(c_parent_id); + c_new_type_id = H5Tenum_create(c_parent_id); if ( c_new_type_id < 0 ) ret_value = -1; *new_type_id = (hid_t_f)c_new_type_id; @@ -1380,7 +1380,7 @@ nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id) /*---------------------------------------------------------------------------- * Name: h5tenum_insert_c * Purpose: Call H5Tenum_insert to insert a new enumeration datatype member. - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * name - Name of the new member * namelen - length of the name * value - value of the new member @@ -1390,7 +1390,7 @@ nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) { int ret_value = -1; @@ -1401,16 +1401,16 @@ nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) herr_t error; c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; - + c_type_id = (hid_t)*type_id; c_value = (int)*value; error = H5Tenum_insert(c_type_id, c_name, &c_value); HDfree(c_name); if(error < 0) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } @@ -1419,7 +1419,7 @@ nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) * Name: h5tenum_nameof_c * Purpose: Call H5Tenum_nameof to find the symbol name that corresponds to * the specified value of the enumeration datatype type - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * namelen - length of the name * value - value of the enumeration datatype * Output: name - Name of the enumeration datatype @@ -1429,7 +1429,7 @@ nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen) { int ret_value = -1; @@ -1443,11 +1443,11 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen) c_name = (char *)malloc(sizeof(char)*c_namelen); c_type_id = (hid_t)*type_id; error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen); - HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); HDfree(c_name); if(error < 0) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } @@ -1455,9 +1455,9 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen) * Name: h5tenum_valueof_c * Purpose: Call H5Tenum_valueof to find the value of that corresponds to * the specified name of the enumeration datatype type - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * name - Name of the enumeration datatype - * namelen - length of name + * namelen - length of name * Output: value - value of the enumeration datatype * Returns: 0 on success, -1 on failure * Programmer: XIANGYANG SU @@ -1465,7 +1465,7 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) { int ret_value = -1; @@ -1474,7 +1474,7 @@ nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) int c_namelen; herr_t error; c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; c_type_id = *type_id; @@ -1482,16 +1482,16 @@ nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) HDfree(c_name); if(error < 0) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tget_member_value_c - * Purpose: Call H5Tget_member_value to get the value of an + * Purpose: Call H5Tget_member_value to get the value of an * enumeration datatype member - * Inputs: type_id - identifier of the datatype + * Inputs: type_id - identifier of the datatype * member_no - Number of the enumeration datatype member. * Output: value - value of the enumeration datatype * Returns: 0 on success, -1 on failure @@ -1500,7 +1500,7 @@ nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value) { int ret_value = -1; @@ -1515,16 +1515,16 @@ nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value) if(error < 0) return ret_value; *value = (int_f)c_value; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tset_tag_c - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Purpose: Call H5Tset_tag to set an opaque datatype tag - * Inputs: type_id - identifier of the dataspace - * tag - Unique ASCII string with which the opaque + * Inputs: type_id - identifier of the dataspace + * tag - Unique ASCII string with which the opaque * datatype is to be tagged * namelen - length of tag * Returns: 0 on success, -1 on failure @@ -1541,23 +1541,23 @@ nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen) char* c_tag; int c_namelen; - c_namelen = *namelen; - c_tag = (char *)HD5f2cstring(tag, c_namelen); + c_namelen = *namelen; + c_tag = (char *)HD5f2cstring(tag, c_namelen); c_type_id = *type_id; status = H5Tset_tag(c_type_id, c_tag); HDfree(c_tag); if ( status < 0 ) return ret_value; - ret_value = 0; + ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5tget_tag_c * Purpose: Call H5Tset_tag to set an opaque datatype tag * Inputs: type_id - identifier of the datatype - * Outputs: tag - Unique ASCII string with which the opaque + * Outputs: tag - Unique ASCII string with which the opaque * datatype is to be tagged * taglen - length of tag * Returns: 0 on success, -1 on failure @@ -1576,10 +1576,10 @@ nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* taglen) c_tag = H5Tget_tag(c_type_id); if (c_tag == NULL ) return ret_value; - HD5packFstring(c_tag, _fcdtocp(tag), (int)strlen(c_tag)); + HD5packFstring(c_tag, _fcdtocp(tag), (int)strlen(c_tag)); *taglen = (int_f)HDstrlen(c_tag); HDfree(c_tag); - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- @@ -1603,14 +1603,14 @@ nh5tvlen_create_c(hid_t_f* type_id, hid_t_f *vltype_id) c_vltype_id = H5Tvlen_create(c_type_id); if (c_vltype_id < 0 ) return ret_value; *vltype_id = (hid_t_f)c_vltype_id; - ret_value = 0; + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5tis_variable_str_c * Purpose: Call H5Tis_variable_str to detrmine if the datatype * is a variable string. - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * Outputs: flag - 0 if not VL str, 1 if is not * and negative on failure. * Returns: 0 on success, -1 on failure @@ -1619,7 +1619,7 @@ nh5tvlen_create_c(hid_t_f* type_id, hid_t_f *vltype_id) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag ) { int ret_value = 0; @@ -1636,7 +1636,7 @@ nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag ) * Name: h5tget_member_class_c * Purpose: Call H5Tget_member_class to detrmine ithe class of the compound * datatype member - * Inputs: type_id - identifier of the dataspace + * Inputs: type_id - identifier of the dataspace * member_no - member's index * Outputs: class - member's class * and negative on failure. @@ -1646,7 +1646,7 @@ nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag ) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5tget_member_class_c ( hid_t_f *type_id , int_f *member_no, int_f *class ) { int ret_value = 0; |