diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-16 21:50:34 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-16 21:50:34 (GMT) |
| commit | c28059e5227b1bc9d3937b0838e5c2ff6dc2783d (patch) | |
| tree | 16ce124de8472f1f883950193989e072bff88a0c /fortran/src/H5f90proto.h | |
| parent | 12bddf5589a181d0b45b181d784de8dc8b73220b (diff) | |
| download | hdf5-c28059e5227b1bc9d3937b0838e5c2ff6dc2783d.zip hdf5-c28059e5227b1bc9d3937b0838e5c2ff6dc2783d.tar.gz hdf5-c28059e5227b1bc9d3937b0838e5c2ff6dc2783d.tar.bz2 | |
[svn-r2958]
Purpose:
Code development and maintenance
Description:
Four new fortran functions to support array datatype were added:
h5tarray_create_f
h5tget_array_ndims_f
h5tget_array_dims_f
h5tget_super_f
Two functions were deleted (commented out for now, can be returned easily if
necessary):
h5tinsert_array_f
h5tget_member_dims
Platforms tested:
Library build was tested on Solaris2.6. I have to modify test program to
use new functions. Right now test program will not compile.
Diffstat (limited to 'fortran/src/H5f90proto.h')
| -rw-r--r-- | fortran/src/H5f90proto.h | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 6369876..e252344 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -424,8 +424,13 @@ extern int_f nh5aget_name_c(hid_t_f *attr_id, size_t_f *size, _fcd buf); # define nh5tenum_nameof_c FNAME(H5TENUM_NAMEOF_C) # define nh5tenum_valueof_c FNAME(H5TENUM_VALUEOF_C) # define nh5tget_member_value_c FNAME(H5TGET_MEMBER_VALUE_C) -# define nh5set_tag_c FNAME(H5TSET_TAG_C) -# define nh5get_tag_c FNAME(H5TGET_TAG_C) +# define nh5tset_tag_c FNAME(H5TSET_TAG_C) +# define nh5tget_tag_c FNAME(H5TGET_TAG_C) +# define nh5tarray_create_c FNAME(H5TARRAY_CREATE_C) +# define nh5tget_array_ndims_c FNAME(H5TGET_ARRAY_NDIMS_C) +# define nh5tget_array_dims_c FNAME(H5TGET_ARRAY_DIMS_C) +# define nh5tget_super_c FNAME(H5TGET_SUPER_C) + #else # define nh5topen_c FNAME(h5topen_c) # define nh5tcommit_c FNAME(h5tcommit_c) @@ -475,6 +480,10 @@ extern int_f nh5aget_name_c(hid_t_f *attr_id, size_t_f *size, _fcd buf); # define nh5tget_member_value_c FNAME(h5tget_member_value_c) # define nh5tset_tag_c FNAME(h5tset_tag_c) # define nh5tget_tag_c FNAME(h5tget_tag_c) +# define nh5tarray_create_c FNAME(h5tarray_create_c) +# define nh5tget_array_ndims_c FNAME(h5tget_array_ndims_c) +# define nh5tget_array_dims_c FNAME(h5tget_array_dims_c) +# define nh5tget_super_c FNAME(h5tget_super_c) #endif #endif @@ -548,6 +557,14 @@ extern int_f nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen); extern int_f nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen); +extern int_f +nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* type_id); +extern int_f +nh5tget_array_dims_c ( hid_t_f *type_id , hsize_t_f * dims); +extern int_f +nh5tget_array_ndims_c ( hid_t_f *type_id , int_f * ndims); +extern int_f +nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id); /* |