diff options
Diffstat (limited to 'fortran/src/H5Tf.c')
| -rw-r--r-- | fortran/src/H5Tf.c | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index 490d739..f1be9c6 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -79,7 +79,7 @@ done: * M.S. Breitenfeld *---------------------------------------------------------------------------*/ int_f -nh5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, +nh5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *lcpl_id, hid_t_f *tcpl_id, hid_t_f *tapl_id) { char *c_name = NULL; @@ -1655,17 +1655,17 @@ nh5tget_member_class_c ( hid_t_f *type_id , int_f *member_no, int_f *class ) * Modifications: *---------------------------------------------------------------------------*/ int_f -nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id, +nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id, hid_t_f *tcpl_id, hid_t_f *tapl_id) { int ret_value = -1; - + /* Call H5Tcommit_anon function */ if(H5Tcommit_anon((hid_t)*loc_id, (hid_t)*dtype_id, (hid_t)*tcpl_id, (hid_t)*tapl_id) < 0) goto done; - + ret_value = 0; - + done: return ret_value; } @@ -1674,8 +1674,8 @@ nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id, * Name: h5tcommitted_c * Purpose: Call H5Tcommitted * dtype_id - dataset identifier - * Returns: a positive value, for TRUE, if the datatype has been committed, - * or 0 (zero), for FALSE, if the datatype has not been committed. + * Returns: a positive value, for TRUE, if the datatype has been committed, + * or 0 (zero), for FALSE, if the datatype has not been committed. * Otherwise returns a negative value. * Programmer: M.S. Breitenfeld * February 25, 2008 @@ -1685,9 +1685,9 @@ int_f nh5tcommitted_c(hid_t_f *dtype_id) { int_f ret_value; - + /* Call H5Tcommitted function */ - + ret_value=(int_f)H5Tcommitted((hid_t)*dtype_id); return ret_value; @@ -1697,7 +1697,7 @@ nh5tcommitted_c(hid_t_f *dtype_id) /*---------------------------------------------------------------------------- * Name: h5tdecode_c * Purpose: Call H5Tdecode - * Inputs: + * Inputs: * buf - Buffer for the data space object to be decoded. * Outputs: * obj_id - Object_id (non-negative) @@ -1719,7 +1719,7 @@ nh5tdecode_c ( _fcd buf, hid_t_f *obj_id ) * Call H5Tdecode function. */ - c_buf = (unsigned char*)buf; + c_buf = (unsigned char*)buf; c_obj_id = H5Tdecode(c_buf); if(c_obj_id < 0) @@ -1734,7 +1734,7 @@ nh5tdecode_c ( _fcd buf, hid_t_f *obj_id ) /*---------------------------------------------------------------------------- * Name: h5tencode_c * Purpose: Call H5Tencode - * Inputs: + * Inputs: * obj_id - Identifier of the object to be encoded. * buf - Buffer for the object to be encoded into. * nalloc - The size of the allocated buffer. @@ -1779,9 +1779,9 @@ nh5tencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc ) return ret_value; } - /* copy the C buffer to the FORTRAN buffer. + /* copy the C buffer to the FORTRAN buffer. * Can not use HD5packFstring because we don't want to - * eliminate the NUL terminator or pad remaining space + * eliminate the NUL terminator or pad remaining space * with blanks. */ @@ -1794,7 +1794,7 @@ nh5tencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc ) /*---------------------------------------------------------------------------- * Name: h5tget_create_plist_c - * Purpose: Call H5Tget_create_plist + * Purpose: Call H5Tget_create_plist * Inputs: dtype_id - Datatype identifier * Outputs: dtpl_id - Datatype property list identifier * Returns: 0 on success, -1 on failure @@ -1810,7 +1810,7 @@ nh5tget_create_plist_c ( hid_t_f *dtype_id, hid_t_f *dtpl_id) if ((*dtpl_id = (hid_t_f)H5Tget_create_plist((hid_t)*dtype_id)) < 0) return ret_value; - + ret_value = 0; return ret_value; } @@ -1818,9 +1818,9 @@ nh5tget_create_plist_c ( hid_t_f *dtype_id, hid_t_f *dtpl_id) /*---------------------------------------------------------------------------- * Name: h5tcompiler_conv_c * Purpose: Call H5Tcompiler_conv - * Inputs: + * Inputs: * src_id - Identifier for the source datatype. - * dst_id - Identifier for the destination datatype. + * dst_id - Identifier for the destination datatype. * Outputs: c_flag - flag; TRUE for compiler conversion, FALSE for library conversion * Returns: 0 on success, -1 on failure * Programmer: M.S. Breitenfeld @@ -1843,7 +1843,7 @@ nh5tcompiler_conv_c ( hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag) /*---------------------------------------------------------------------------- * Name: h5tget_native_type_c * Purpose: Call H5Tget_native_type - * Inputs: + * Inputs: * dtype_id - Datatype identifier for the dataset datatype. * direction - Direction of search. * Outputs: native_dtype_id - The native datatype identifier for the specified dataset datatype |