diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-12-02 17:17:02 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-12-02 17:17:02 (GMT) |
| commit | c0c9ae025f23f822816398828c3b18d18ecbc8f2 (patch) | |
| tree | 6a122d37732c629a06e16a87758bfde5f8f4a0bb | |
| parent | afb64c0bac1527046047f704000cf68ff023740f (diff) | |
| download | hdf5-c0c9ae025f23f822816398828c3b18d18ecbc8f2.zip hdf5-c0c9ae025f23f822816398828c3b18d18ecbc8f2.tar.gz hdf5-c0c9ae025f23f822816398828c3b18d18ecbc8f2.tar.bz2 | |
[svn-r3067]
Purpose:
Bug fix.
Description:
nh5tget_order_c function always returned "FAIL"
Solution:
Fixed
Platforms tested:
Not tested ( I know :-)....)
| -rw-r--r-- | fortran/src/H5Tf.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index 44accfd..06ca00b 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -236,6 +236,7 @@ nh5tget_order_c ( hid_t_f *type_id , int_f *order) c_order = H5Tget_order(c_type_id); if ( c_order < 0 ) return ret_value; *order = (int_f)c_order; + ret_value = 0; /* if ( c_order == H5T_ORDER_LE) *order = H5T_ORDER_LE_F; if ( c_order == H5T_ORDER_BE) *order = H5T_ORDER_BE_F; |