From 81f5bf419d32e3b596b2e6b0f1bf131b0d930878 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 17 Nov 2000 09:44:10 -0500 Subject: [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: ---------------------------------------------------------------------- --- fortran/src/H5Tf.c | 4 ++-- 1 file 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); -- cgit v0.12