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