diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-17 14:44:10 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-17 14:44:10 (GMT) |
| commit | 81f5bf419d32e3b596b2e6b0f1bf131b0d930878 (patch) | |
| tree | b3c19325ca2a7ce34092bc83ba04644776acdafe | |
| parent | 9a9b10235e41ff044e435e6efda36592ce1476cf (diff) | |
| download | hdf5-81f5bf419d32e3b596b2e6b0f1bf131b0d930878.zip hdf5-81f5bf419d32e3b596b2e6b0f1bf131b0d930878.tar.gz hdf5-81f5bf419d32e3b596b2e6b0f1bf131b0d930878.tar.bz2 | |
[svn-r2963]
Purpose:
Bugs fix
Description:
I used H5Tcreate_array instead of H5Tarray_create in C stub
Solution:
Fixed
Platforms tested:
Solaris 2.6
OCVS: ----------------------------------------------------------------------
| -rw-r--r-- | fortran/src/H5Tf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index 1932a56..44accfd 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -1432,7 +1432,7 @@ nh5tinsert_array_c2(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* of } /*---------------------------------------------------------------------------- * Name: h5tarray_create_c - * Purpose: Call H5Tcreate_array to create array datatype + * Purpose: Call H5Tarray_create to create array datatype * Inputs: base_id - identifier of array base datatype * rank - array's rank * dims - Size of new member array @@ -1466,7 +1466,7 @@ nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* typ c_base_id = (hid_t)*base_id; c_rank = (int)*rank; - c_type_id = H5Tcreate_array(c_base_id, c_rank, c_dims, NULL); + c_type_id = H5Tarray_create(c_base_id, c_rank, c_dims, NULL); if(c_type_id < 0) { HDfree(c_dims); |