diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-03-06 22:20:56 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-03-06 22:20:56 (GMT) |
| commit | 86f15d4a3326979f8a0b3898a0b7eccc453a6d38 (patch) | |
| tree | 871143b399ffd612e6dc96fe56644e87d4b22481 /hl/fortran/src/H5LTf90proto.h | |
| parent | 0619b155aaaa2ca002bcbadba081c137d9554d24 (diff) | |
| download | hdf5-86f15d4a3326979f8a0b3898a0b7eccc453a6d38.zip hdf5-86f15d4a3326979f8a0b3898a0b7eccc453a6d38.tar.gz hdf5-86f15d4a3326979f8a0b3898a0b7eccc453a6d38.tar.bz2 | |
[svn-r20192] Description: Bug 1939: h5tbget_field_info_f
* Fixed error in passing an array of characters with different length
field names for h5tbmake_table.
* Fixed error in h5tget_field_info_f with packing the C strings
into a fortran array of strings.
* Added optional arguement to h5tbget_field_info_f called maxlen
which returns the maximum string character length in a field name
element.
* Uncommented out test for h5tbget_field_info_f in the test program
and added additional checks for the output.
Tested: jam (intel and gnu compilers)
Diffstat (limited to 'hl/fortran/src/H5LTf90proto.h')
| -rwxr-xr-x | hl/fortran/src/H5LTf90proto.h | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h index c0de5ea..75a6fcc 100755 --- a/hl/fortran/src/H5LTf90proto.h +++ b/hl/fortran/src/H5LTf90proto.h @@ -759,7 +759,8 @@ nh5tbmake_table_c(int_f *namelen1, hid_t_f *field_types, hsize_t_f *chunk_size, int_f *compress, - int_f *len, /* field_names lenghts */ + int_f *char_len_field_names, /* field_names lenghts */ + int_f *max_char_size_field_names, /* char len of fields */ _fcd buf); /* field_names */ HDF5_HL_F90CSTUBDLL @@ -1069,10 +1070,10 @@ nh5tbget_field_info_c(hid_t_f *loc_id, size_t_f *field_sizes, size_t_f *field_offsets, size_t_f *type_size, - int_f *namelen2, /* field_names lenghts */ - _fcd field_names) ; /* field_names */ - - + int_f *namelen2, + int_f *lenmax, + _fcd field_names, + int_f *maxlen_out); #endif /* _H5LTf90proto_H */ |