summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-12-02 17:17:02 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-12-02 17:17:02 (GMT)
commitc0c9ae025f23f822816398828c3b18d18ecbc8f2 (patch)
tree6a122d37732c629a06e16a87758bfde5f8f4a0bb
parentafb64c0bac1527046047f704000cf68ff023740f (diff)
downloadhdf5-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.c1
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;