summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-11-17 14:44:10 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-11-17 14:44:10 (GMT)
commit81f5bf419d32e3b596b2e6b0f1bf131b0d930878 (patch)
treeb3c19325ca2a7ce34092bc83ba04644776acdafe /fortran/src
parent9a9b10235e41ff044e435e6efda36592ce1476cf (diff)
downloadhdf5-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: ----------------------------------------------------------------------
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Tf.c4
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);