From 63eb47adeb39272994ccdf6fa614b5f6cf1383c5 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 3 Nov 2006 18:02:36 -0500 Subject: [svn-r12857] Description: Updated code to eliminate compilation warnings and to add support for the latest g95. Platforms tested: g95 on kagiso, heping, and mir the first lite (making and reading 1-d datasets) test fails on mir --- hl/fortran/src/H5LTf90proto.h | 666 ++++++++++++++++++++++++++++++++++++++++-- hl/fortran/src/H5LTfc.c | 380 +++++++++++++++++++++++- hl/fortran/src/H5LTff.f90 | 288 +++++++++--------- hl/fortran/src/H5TBfc.c | 256 +++++++++++++++- hl/fortran/src/H5TBff.f90 | 162 +++++----- 5 files changed, 1498 insertions(+), 254 deletions(-) diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h index 81c30a4..20f398b 100755 --- a/hl/fortran/src/H5LTf90proto.h +++ b/hl/fortran/src/H5LTf90proto.h @@ -29,8 +29,44 @@ H5_DLL void HD5packFstring (char *src, char *dest, size_t len); /* * Functions from H5LTfc.c */ -# define nh5ltmake_dataset_c H5_FC_FUNC_(h5ltmake_dataset_c, H5LTMAKE_DATASET_C) -# define nh5ltread_dataset_c H5_FC_FUNC_(h5ltread_dataset_c, H5LTREAD_DATASET_C) +# define nh5ltmake_dataset_c H5_FC_FUNC_(h5ltmake_dataset_c, H5LTMAKE_DATASET_C) +# define nh5ltmake_dataset_int1_c H5_FC_FUNC_(h5ltmake_dataset_int1_c, H5LTMAKE_DATASET_INT1_C) +# define nh5ltmake_dataset_int2_c H5_FC_FUNC_(h5ltmake_dataset_int2_c, H5LTMAKE_DATASET_INT2_C) +# define nh5ltmake_dataset_int3_c H5_FC_FUNC_(h5ltmake_dataset_int3_c, H5LTMAKE_DATASET_INT3_C) +# define nh5ltmake_dataset_fl1_c H5_FC_FUNC_(h5ltmake_dataset_fl1_c, H5LTMAKE_DATASET_FL1_C) +# define nh5ltmake_dataset_fl2_c H5_FC_FUNC_(h5ltmake_dataset_fl2_c, H5LTMAKE_DATASET_FL2_C) +# define nh5ltmake_dataset_fl3_c H5_FC_FUNC_(h5ltmake_dataset_fl3_c, H5LTMAKE_DATASET_FL3_C) +# define nh5ltmake_dataset_dl1_c H5_FC_FUNC_(h5ltmake_dataset_dl1_c, H5LTMAKE_DATASET_DL1_C) +# define nh5ltmake_dataset_dl2_c H5_FC_FUNC_(h5ltmake_dataset_dl2_c, H5LTMAKE_DATASET_DL2_C) +# define nh5ltmake_dataset_dl3_c H5_FC_FUNC_(h5ltmake_dataset_dl3_c, H5LTMAKE_DATASET_DL3_C) +# define nh5ltmake_dataset_nint1_c H5_FC_FUNC_(h5ltmake_dataset_nint1_c, H5LTMAKE_DATASET_NINT1_C) +# define nh5ltmake_dataset_nint2_c H5_FC_FUNC_(h5ltmake_dataset_nint2_c, H5LTMAKE_DATASET_NINT2_C) +# define nh5ltmake_dataset_nint3_c H5_FC_FUNC_(h5ltmake_dataset_nint3_c, H5LTMAKE_DATASET_NINT3_C) +# define nh5ltmake_dataset_nfl1_c H5_FC_FUNC_(h5ltmake_dataset_nfl1_c, H5LTMAKE_DATASET_NFL1_C) +# define nh5ltmake_dataset_nfl2_c H5_FC_FUNC_(h5ltmake_dataset_nfl2_c, H5LTMAKE_DATASET_NFL2_C) +# define nh5ltmake_dataset_nfl3_c H5_FC_FUNC_(h5ltmake_dataset_nfl3_c, H5LTMAKE_DATASET_NFL3_C) +# define nh5ltmake_dataset_ndl1_c H5_FC_FUNC_(h5ltmake_dataset_ndl1_c, H5LTMAKE_DATASET_NDL1_C) +# define nh5ltmake_dataset_ndl2_c H5_FC_FUNC_(h5ltmake_dataset_ndl2_c, H5LTMAKE_DATASET_NDL2_C) +# define nh5ltmake_dataset_ndl3_c H5_FC_FUNC_(h5ltmake_dataset_ndl3_c, H5LTMAKE_DATASET_NDL3_C) +# define nh5ltread_dataset_c H5_FC_FUNC_(h5ltread_dataset_c, H5LTREAD_DATASET_C) +# define nh5ltread_dataset_int1_c H5_FC_FUNC_(h5ltread_dataset_int1_c, H5LTREAD_DATASET_INT1_C) +# define nh5ltread_dataset_int2_c H5_FC_FUNC_(h5ltread_dataset_int2_c, H5LTREAD_DATASET_INT2_C) +# define nh5ltread_dataset_int3_c H5_FC_FUNC_(h5ltread_dataset_int3_c, H5LTREAD_DATASET_INT3_C) +# define nh5ltread_dataset_fl1_c H5_FC_FUNC_(h5ltread_dataset_fl1_c, H5LTREAD_DATASET_FL1_C) +# define nh5ltread_dataset_fl2_c H5_FC_FUNC_(h5ltread_dataset_fl2_c, H5LTREAD_DATASET_FL2_C) +# define nh5ltread_dataset_fl3_c H5_FC_FUNC_(h5ltread_dataset_fl3_c, H5LTREAD_DATASET_fl3_C) +# define nh5ltread_dataset_dl1_c H5_FC_FUNC_(h5ltread_dataset_dl1_c, H5LTREAD_DATASET_DL1_C) +# define nh5ltread_dataset_dl2_c H5_FC_FUNC_(h5ltread_dataset_dl2_c, H5LTREAD_DATASET_DL2_C) +# define nh5ltread_dataset_dl3_c H5_FC_FUNC_(h5ltread_dataset_dl3_c, H5LTREAD_DATASET_DL3_C) +# define nh5ltread_dataset_nint1_c H5_FC_FUNC_(h5ltread_dataset_nint1_c, H5LTREAD_DATASET_NINT1_C) +# define nh5ltread_dataset_nint2_c H5_FC_FUNC_(h5ltread_dataset_nint2_c, H5LTREAD_DATASET_NINT2_C) +# define nh5ltread_dataset_nint3_c H5_FC_FUNC_(h5ltread_dataset_nint3_c, H5LTREAD_DATASET_NINT3_C) +# define nh5ltread_dataset_nfl1_c H5_FC_FUNC_(h5ltread_dataset_nfl1_c, H5LTREAD_DATASET_NFL1_C) +# define nh5ltread_dataset_nfl2_c H5_FC_FUNC_(h5ltread_dataset_nfl2_c, H5LTREAD_DATASET_NFL2_C) +# define nh5ltread_dataset_nfl3_c H5_FC_FUNC_(h5ltread_dataset_nfl3_c, H5LTREAD_DATASET_NFL3_C) +# define nh5ltread_dataset_ndl1_c H5_FC_FUNC_(h5ltread_dataset_ndl1_c, H5LTREAD_DATASET_NDL1_C) +# define nh5ltread_dataset_ndl2_c H5_FC_FUNC_(h5ltread_dataset_ndl2_c, H5LTREAD_DATASET_NDL2_C) +# define nh5ltread_dataset_ndl3_c H5_FC_FUNC_(h5ltread_dataset_ndl3_c, H5LTREAD_DATASET_NDL3_C) # define nh5ltmake_dataset_string_c H5_FC_FUNC_(h5ltmake_dataset_string_c, H5LTMAKE_DATASET_STRING_C) # define nh5ltread_dataset_string_c H5_FC_FUNC_(h5ltread_dataset_string_c, H5LTREAD_DATASET_STRING_C) @@ -74,10 +110,30 @@ H5_DLL void HD5packFstring (char *src, char *dest, size_t len); */ # define nh5tbmake_table_c H5_FC_FUNC_(h5tbmake_table_c, H5TBMAKE_TABLE_C) # define nh5tbwrite_field_name_c H5_FC_FUNC_(h5tbwrite_field_name_c, H5TBWRITE_FIELD_NAME_C) +# define nh5tbwrite_field_name_int_c H5_FC_FUNC_(h5tbwrite_field_name_int_c, H5TBWRITE_FIELD_NAME_INT_C) +# define nh5tbwrite_field_name_fl_c H5_FC_FUNC_(h5tbwrite_field_name_fl_c, H5TBWRITE_FIELD_NAME_FL_C) +# define nh5tbwrite_field_name_dl_c H5_FC_FUNC_(h5tbwrite_field_name_dl_c, H5TBWRITE_FIELD_NAME_DL_C) +# define nh5tbwrite_field_name_st_c H5_FC_FUNC_(h5tbwrite_field_name_st_c, H5TBWRITE_FIELD_NAME_ST_C) # define nh5tbread_field_name_c H5_FC_FUNC_(h5tbread_field_name_c, H5TBREAD_FIELD_NAME_C) +# define nh5tbread_field_name_int_c H5_FC_FUNC_(h5tbread_field_name_int_c, H5TBREAD_FIELD_NAME_INT_C) +# define nh5tbread_field_name_fl_c H5_FC_FUNC_(h5tbread_field_name_fl_c, H5TBREAD_FIELD_NAME_FL_C) +# define nh5tbread_field_name_dl_c H5_FC_FUNC_(h5tbread_field_name_dl_c, H5TBREAD_FIELD_NAME_DL_C) +# define nh5tbread_field_name_st_c H5_FC_FUNC_(h5tbread_field_name_st_c, H5TBREAD_FIELD_NAME_ST_C) # define nh5tbwrite_field_index_c H5_FC_FUNC_(h5tbwrite_field_index_c, H5TBWRITE_FIELD_INDEX_C) +# define nh5tbwrite_field_index_int_c H5_FC_FUNC_(h5tbwrite_field_index_int_c, H5TBWRITE_FIELD_INDEX_INT_C) +# define nh5tbwrite_field_index_fl_c H5_FC_FUNC_(h5tbwrite_field_index_fl_c, H5TBWRITE_FIELD_INDEX_FL_C) +# define nh5tbwrite_field_index_dl_c H5_FC_FUNC_(h5tbwrite_field_index_dl_c, H5TBWRITE_FIELD_INDEX_DL_C) +# define nh5tbwrite_field_index_st_c H5_FC_FUNC_(h5tbwrite_field_index_st_c, H5TBWRITE_FIELD_INDEX_ST_C) # define nh5tbread_field_index_c H5_FC_FUNC_(h5tbread_field_index_c, H5TBREAD_FIELD_INDEX_C) +# define nh5tbread_field_index_int_c H5_FC_FUNC_(h5tbread_field_index_int_c, H5TBREAD_FIELD_INDEX_INT_C) +# define nh5tbread_field_index_fl_c H5_FC_FUNC_(h5tbread_field_index_fl_c, H5TBREAD_FIELD_INDEX_FL_C) +# define nh5tbread_field_index_dl_c H5_FC_FUNC_(h5tbread_field_index_dl_c, H5TBREAD_FIELD_INDEX_DL_C) +# define nh5tbread_field_index_st_c H5_FC_FUNC_(h5tbread_field_index_st_c, H5TBREAD_FIELD_INDEX_ST_C) # define nh5tbinsert_field_c H5_FC_FUNC_(h5tbinsert_field_c, H5TBINSERT_FIELD_C) +# define nh5tbinsert_field_int_c H5_FC_FUNC_(h5tbinsert_field_int_c, H5TBINSERT_FIELD_INT_C) +# define nh5tbinsert_field_fl_c H5_FC_FUNC_(h5tbinsert_field_fl_c, H5TBINSERT_FIELD_FL_C) +# define nh5tbinsert_field_dl_c H5_FC_FUNC_(h5tbinsert_field_dl_c, H5TBINSERT_FIELD_DL_C) +# define nh5tbinsert_field_st_c H5_FC_FUNC_(h5tbinsert_field_st_c, H5TBINSERT_FIELD_ST_C) # define nh5tbdelete_field_c H5_FC_FUNC_(h5tbdelete_field_c, H5TBDELETE_FIELD_C) # define nh5tbget_table_info_c H5_FC_FUNC_(h5tbget_table_info_c, H5TBGET_TABLE_INFO_C) # define nh5tbget_field_info_c H5_FC_FUNC_(h5tbget_field_info_c, H5TBGET_FIELD_INFO_C) @@ -94,13 +150,355 @@ nh5ltmake_dataset_c (hid_t_f *loc_id, H5_DLL int_f +nh5ltmake_dataset_int1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_int2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_int3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_fl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_fl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_fl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_dl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_dl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_dl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_nint1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_nint2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_nint3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f nh5ltread_dataset_c (hid_t_f *loc_id, int_f *namelen, _fcd name, hid_t_f *type_id, void *buf, - hsize_t_f *dims); + hsize_t_f *dims); + + +H5_DLL +int_f +nh5ltread_dataset_int1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_int2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_int3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_fl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_fl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_fl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_dl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_dl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_dl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_nint1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_nint2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_nint3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); +H5_DLL +int_f +nh5ltread_dataset_nfl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_nfl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_nfl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_ndl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_ndl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + +H5_DLL +int_f +nh5ltread_dataset_ndl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); H5_DLL int_f @@ -347,26 +745,74 @@ nh5imis_palette_c(hid_t_f *loc_id, H5_DLL int_f nh5tbmake_table_c(int_f *namelen1, - _fcd name1, - hid_t_f *loc_id, - int_f *namelen, - _fcd name, - hsize_t_f *nfields, - hsize_t_f *nrecords, - size_t_f *type_size, - size_t_f *field_offset, - hid_t_f *field_types, - hsize_t_f *chunk_size, - int_f *compress, - int_f *len, /* field_names lenghts */ - _fcd buf); /* field_names */ + _fcd name1, + hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *nfields, + hsize_t_f *nrecords, + size_t_f *type_size, + size_t_f *field_offset, + hid_t_f *field_types, + hsize_t_f *chunk_size, + int_f *compress, + int_f *len, /* field_names lenghts */ + _fcd buf); /* field_names */ H5_DLL int_f nh5tbwrite_field_name_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_name_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_name_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_name_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_name_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, _fcd field_name, hsize_t_f *start, hsize_t_f *nrecords, @@ -378,7 +824,55 @@ int_f nh5tbread_field_name_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_name_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_name_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_name_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_name_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, _fcd field_name, hsize_t_f *start, hsize_t_f *nrecords, @@ -398,6 +892,50 @@ nh5tbwrite_field_index_c(hid_t_f *loc_id, H5_DLL int_f +nh5tbwrite_field_index_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_index_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_index_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_index_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f nh5tbread_field_index_c(hid_t_f *loc_id, int_f *namelen, _fcd name, @@ -409,10 +947,54 @@ nh5tbread_field_index_c(hid_t_f *loc_id, H5_DLL int_f +nh5tbread_field_index_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_index_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_index_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_index_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f nh5tbinsert_field_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, + int_f *namelen1, _fcd field_name, hid_t_f *field_type, int_f *position, @@ -420,11 +1002,51 @@ nh5tbinsert_field_c(hid_t_f *loc_id, H5_DLL int_f +nh5tbinsert_field_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf); +H5_DLL +int_f +nh5tbinsert_field_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf); +H5_DLL +int_f +nh5tbinsert_field_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf); +H5_DLL +int_f +nh5tbinsert_field_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf); +H5_DLL +int_f nh5tbdelete_field_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, - _fcd field_name); + int_f *namelen1, + _fcd field_name); H5_DLL @@ -444,7 +1066,7 @@ 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 */ + int_f *namelen2, /* field_names lenghts */ _fcd field_names) ; /* field_names */ diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c index d3353c4..147c9cc 100755 --- a/hl/fortran/src/H5LTfc.c +++ b/hl/fortran/src/H5LTfc.c @@ -88,7 +88,204 @@ nh5ltmake_dataset_c (hid_t_f *loc_id, return ret_value; } - +int_f +nh5ltmake_dataset_int1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_int2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_int3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_fl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_fl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_fl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_dl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_dl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_dl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_nint1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_nint2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_nint3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} +int_f +nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf) +{ + return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf); +} /*------------------------------------------------------------------------- * Function: H5LTread_dataset_c * @@ -143,7 +340,186 @@ nh5ltread_dataset_c (hid_t_f *loc_id, return ret_value; } - +int_f +nh5ltread_dataset_int1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_int2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_int3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_fl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_fl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_fl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_dl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_dl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_dl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_nint1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_nint2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_nint3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_nfl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_nfl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_nfl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_ndl1_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_ndl2_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} +int_f +nh5ltread_dataset_ndl3_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims) +{ + return nh5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims); +} /*------------------------------------------------------------------------- * Function: H5LTmake_dataset_string_c * diff --git a/hl/fortran/src/H5LTff.f90 b/hl/fortran/src/H5LTff.f90 index 9f761c4..89074cf 100755 --- a/hl/fortran/src/H5LTff.f90 +++ b/hl/fortran/src/H5LTff.f90 @@ -129,10 +129,10 @@ subroutine h5ltmake_dataset_f_int1(loc_id,& integer :: namelen ! name length interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_INT1_C'::h5ltmake_dataset_int1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -142,11 +142,11 @@ subroutine h5ltmake_dataset_f_int1(loc_id,& integer, intent(in) :: rank ! rank integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), dimension(*) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_int1_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_int1 @@ -195,10 +195,10 @@ subroutine h5ltmake_dataset_f_int2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_INT2_C'::h5ltmake_dataset_int2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -209,11 +209,11 @@ subroutine h5ltmake_dataset_f_int2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_int2_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_int2 @@ -262,10 +262,10 @@ subroutine h5ltmake_dataset_f_int3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_INT3_C'::h5ltmake_dataset_int3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -276,11 +276,11 @@ subroutine h5ltmake_dataset_f_int3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_int3_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_int3 @@ -329,10 +329,10 @@ subroutine h5ltmake_dataset_f_float1(loc_id,& integer :: namelen ! name length interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_FL1_C'::h5ltmake_dataset_fl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -342,11 +342,11 @@ subroutine h5ltmake_dataset_f_float1(loc_id,& integer, intent(in) :: rank ! rank integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), dimension(*) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_fl1_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_float1 @@ -395,10 +395,10 @@ subroutine h5ltmake_dataset_f_float2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_FL2_C'::h5ltmake_dataset_fl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -409,11 +409,11 @@ subroutine h5ltmake_dataset_f_float2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_fl2_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_float2 @@ -462,10 +462,10 @@ subroutine h5ltmake_dataset_f_float3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_FL3_C'::h5ltmake_dataset_fl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -476,11 +476,11 @@ subroutine h5ltmake_dataset_f_float3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_fl3_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_float3 @@ -528,10 +528,10 @@ subroutine h5ltmake_dataset_f_double1(loc_id,& integer :: namelen ! name length interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_DL1_C'::h5ltmake_dataset_dl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -541,11 +541,11 @@ subroutine h5ltmake_dataset_f_double1(loc_id,& integer, intent(in) :: rank ! rank integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), dimension(*) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_dl1_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_double1 @@ -594,10 +594,10 @@ subroutine h5ltmake_dataset_f_double2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_DL2_C'::h5ltmake_dataset_dl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -608,11 +608,11 @@ subroutine h5ltmake_dataset_f_double2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_dl2_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_double2 @@ -661,10 +661,10 @@ subroutine h5ltmake_dataset_f_double3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_DL3_C'::h5ltmake_dataset_dl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -675,11 +675,11 @@ subroutine h5ltmake_dataset_f_double3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_dl3_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + errcode = h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) end subroutine h5ltmake_dataset_f_double3 @@ -727,10 +727,10 @@ subroutine h5ltread_dataset_f_int1(loc_id,& integer :: namelen ! name length interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_INT1_C'::h5ltread_dataset_int1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(HID_T), intent(IN) :: loc_id ! file or group identifier @@ -739,11 +739,11 @@ subroutine h5ltread_dataset_f_int1(loc_id,& character(LEN=*), intent(IN) :: dset_name ! name of the dataset integer(HSIZE_T), dimension(*), intent(IN) :: dims ! size of the bufffer buf integer, intent(IN), dimension(*) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_int1_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_int1 @@ -790,10 +790,10 @@ subroutine h5ltread_dataset_f_int2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_INT2_C'::h5ltread_dataset_int2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -803,11 +803,11 @@ subroutine h5ltread_dataset_f_int2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_int2_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_int2 @@ -854,10 +854,10 @@ subroutine h5ltread_dataset_f_int3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_INT3_C'::h5ltread_dataset_int3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -867,11 +867,11 @@ subroutine h5ltread_dataset_f_int3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_int3_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_int3 @@ -920,10 +920,10 @@ subroutine h5ltread_dataset_f_float1(loc_id,& integer :: namelen ! name length interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_FL1_C'::h5ltread_dataset_fl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -932,11 +932,11 @@ subroutine h5ltread_dataset_f_float1(loc_id,& character(len=*), intent(in) :: dset_name ! name of the dataset integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), dimension(*) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_fl1_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_float1 @@ -984,10 +984,10 @@ subroutine h5ltread_dataset_f_float2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_FL2_C'::h5ltread_dataset_fl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -997,11 +997,11 @@ subroutine h5ltread_dataset_f_float2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_fl2_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_float2 @@ -1048,10 +1048,10 @@ subroutine h5ltread_dataset_f_float3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_FL3_C'::h5ltread_dataset_fl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1061,11 +1061,11 @@ subroutine h5ltread_dataset_f_float3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_fl3_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_float3 @@ -1112,10 +1112,10 @@ subroutine h5ltread_dataset_f_double1(loc_id,& integer :: namelen ! name length interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_DL1_C'::h5ltread_dataset_dl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1124,11 +1124,11 @@ subroutine h5ltread_dataset_f_double1(loc_id,& character(len=*), intent(in) :: dset_name ! name of the dataset integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), dimension(*) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_dl1_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_double1 @@ -1175,10 +1175,10 @@ subroutine h5ltread_dataset_f_double2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_DL2_C'::h5ltread_dataset_dl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1188,11 +1188,11 @@ subroutine h5ltread_dataset_f_double2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_dl2_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_double2 @@ -1239,10 +1239,10 @@ subroutine h5ltread_dataset_f_double3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_DL3_C'::h5ltread_dataset_dl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1252,11 +1252,11 @@ subroutine h5ltread_dataset_f_double3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_dl3_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) end subroutine h5ltread_dataset_f_double3 @@ -1303,10 +1303,10 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,& integer :: namelen ! name length interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NINT1_C'::h5ltmake_dataset_nint1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1316,11 +1316,11 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,& integer, intent(in) :: rank ! rank integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), dimension(*) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_nint1_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,h5t_native_integer,buf) + errcode = h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,h5t_native_integer,buf) end subroutine h5ltmake_dataset_int_f_1 @@ -1368,10 +1368,10 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,& interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NINT2_C'::h5ltmake_dataset_nint2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1382,11 +1382,11 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_nint2_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) end subroutine h5ltmake_dataset_int_f_2 @@ -1435,10 +1435,10 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,& interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NINT3_C'::h5ltmake_dataset_nint3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1449,11 +1449,11 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_nint3_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) end subroutine h5ltmake_dataset_int_f_3 @@ -1501,10 +1501,10 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,& integer :: namelen ! name length interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NFL1_C'::h5ltmake_dataset_nfl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1514,11 +1514,11 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,& integer, intent(in) :: rank ! rank integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), dimension(*) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_nfl1_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) end subroutine h5ltmake_dataset_float_f_1 @@ -1565,10 +1565,10 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NFL2_C'::h5ltmake_dataset_nfl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1579,11 +1579,11 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_nfl2_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) end subroutine h5ltmake_dataset_float_f_2 @@ -1630,10 +1630,10 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NFL3_C'::h5ltmake_dataset_nfl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1644,11 +1644,11 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_nfl3_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) end subroutine h5ltmake_dataset_float_f_3 @@ -1698,10 +1698,10 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,& dimension(dims(1)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NDL1_C'::h5ltmake_dataset_ndl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1712,11 +1712,11 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_ndl1_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) end subroutine h5ltmake_dataset_double_f_1 @@ -1764,10 +1764,10 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NDL2_C'::h5ltmake_dataset_ndl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1778,11 +1778,11 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_ndl2_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) end subroutine h5ltmake_dataset_double_f_2 @@ -1829,10 +1829,10 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + integer function h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_C'::h5ltmake_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NDL3_C'::h5ltmake_dataset_ndl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1843,11 +1843,11 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(in), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltmake_dataset_c + end function h5ltmake_dataset_ndl3_c end interface namelen = len(dset_name) - errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) end subroutine h5ltmake_dataset_double_f_3 @@ -1894,10 +1894,10 @@ subroutine h5ltread_dataset_int_f_1(loc_id,& dimension(dims(1)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NINT1_C'::h5ltread_dataset_nint1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1907,11 +1907,11 @@ subroutine h5ltread_dataset_int_f_1(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(inout), & dimension(dims(1)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_nint1_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) end subroutine h5ltread_dataset_int_f_1 @@ -1957,10 +1957,10 @@ subroutine h5ltread_dataset_int_f_2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NINT2_C'::h5ltread_dataset_nint2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1970,11 +1970,11 @@ subroutine h5ltread_dataset_int_f_2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(inout), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_nint2_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) end subroutine h5ltread_dataset_int_f_2 @@ -2019,10 +2019,10 @@ subroutine h5ltread_dataset_int_f_3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NINT3_C'::h5ltread_dataset_nint3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2032,11 +2032,11 @@ subroutine h5ltread_dataset_int_f_3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf integer, intent(inout), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_nint3_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) end subroutine h5ltread_dataset_int_f_3 @@ -2082,10 +2082,10 @@ subroutine h5ltread_dataset_float_f_1(loc_id,& dimension(dims(1)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NFL1_C'::h5ltread_dataset_nfl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2095,11 +2095,11 @@ subroutine h5ltread_dataset_float_f_1(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(inout), & dimension(dims(1)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_nfl1_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) end subroutine h5ltread_dataset_float_f_1 @@ -2145,10 +2145,10 @@ subroutine h5ltread_dataset_float_f_2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NFL2_C'::h5ltread_dataset_nfl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2158,11 +2158,11 @@ subroutine h5ltread_dataset_float_f_2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(inout), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_nfl2_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) end subroutine h5ltread_dataset_float_f_2 @@ -2207,10 +2207,10 @@ subroutine h5ltread_dataset_float_f_3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NFL3_C'::h5ltread_dataset_nfl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2220,11 +2220,11 @@ subroutine h5ltread_dataset_float_f_3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf real, intent(inout), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_nfl3_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) end subroutine h5ltread_dataset_float_f_3 @@ -2269,10 +2269,10 @@ subroutine h5ltread_dataset_double_f_1(loc_id,& dimension(dims(1)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NDL1_C'::h5ltread_dataset_ndl1_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2282,11 +2282,11 @@ subroutine h5ltread_dataset_double_f_1(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(inout), & dimension(dims(1)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_ndl1_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) + errcode = h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) end subroutine h5ltread_dataset_double_f_1 @@ -2332,10 +2332,10 @@ subroutine h5ltread_dataset_double_f_2(loc_id,& dimension(dims(1),dims(2)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NDL2_C'::h5ltread_dataset_ndl2_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2345,11 +2345,11 @@ subroutine h5ltread_dataset_double_f_2(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(inout), & dimension(dims(1),dims(2)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_ndl2_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) + errcode = h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) end subroutine h5ltread_dataset_double_f_2 @@ -2394,10 +2394,10 @@ subroutine h5ltread_dataset_double_f_3(loc_id,& dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer interface - integer function h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,buf,dims) + integer function h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_C'::h5ltread_dataset_c + !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NDL3_C'::h5ltread_dataset_ndl3_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -2407,11 +2407,11 @@ subroutine h5ltread_dataset_double_f_3(loc_id,& integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf double precision, intent(inout), & dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer - end function h5ltread_dataset_c + end function h5ltread_dataset_ndl3_c end interface namelen = len(dset_name) - errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) + errcode = h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) end subroutine h5ltread_dataset_double_f_3 diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c index 656a393..a74f9ed 100755 --- a/hl/fortran/src/H5TBfc.c +++ b/hl/fortran/src/H5TBfc.c @@ -168,7 +168,7 @@ int_f nh5tbwrite_field_name_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, + int_f *namelen1, _fcd field_name, hsize_t_f *start, hsize_t_f *nrecords, @@ -213,7 +213,58 @@ nh5tbwrite_field_name_c(hid_t_f *loc_id, return ret_value; } - +int_f +nh5tbwrite_field_name_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} +int_f +nh5tbwrite_field_name_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} +int_f +nh5tbwrite_field_name_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} +int_f +nh5tbwrite_field_name_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} /*------------------------------------------------------------------------- * Function: h5tbread_field_name_c * @@ -237,7 +288,7 @@ int_f nh5tbread_field_name_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, + int_f *namelen1, _fcd field_name, hsize_t_f *start, hsize_t_f *nrecords, @@ -282,7 +333,58 @@ nh5tbread_field_name_c(hid_t_f *loc_id, return ret_value; } - +int_f +nh5tbread_field_name_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} +int_f +nh5tbread_field_name_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} +int_f +nh5tbread_field_name_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} +int_f +nh5tbread_field_name_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf); +} /*------------------------------------------------------------------------- * Function: h5tbwrite_field_index_c @@ -348,6 +450,54 @@ nh5tbwrite_field_index_c(hid_t_f *loc_id, return ret_value; } +int_f +nh5tbwrite_field_index_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} +int_f +nh5tbwrite_field_index_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} +int_f +nh5tbwrite_field_index_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} +int_f +nh5tbwrite_field_index_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} /*------------------------------------------------------------------------- * Function: h5tbread_field_index_c @@ -412,6 +562,54 @@ nh5tbread_field_index_c(hid_t_f *loc_id, return ret_value; } +int_f +nh5tbread_field_index_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} +int_f +nh5tbread_field_index_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} +int_f +nh5tbread_field_index_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} +int_f +nh5tbread_field_index_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf) +{ + return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf); +} /*------------------------------------------------------------------------- * Function: h5tbinsert_field_c @@ -436,7 +634,7 @@ int_f nh5tbinsert_field_c(hid_t_f *loc_id, int_f *namelen, _fcd name, - int_f *namelen1, + int_f *namelen1, _fcd field_name, hid_t_f *field_type, int_f *position, @@ -474,6 +672,54 @@ nh5tbinsert_field_c(hid_t_f *loc_id, return ret_value; } +int_f +nh5tbinsert_field_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf) +{ + return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf); +} +int_f +nh5tbinsert_field_fl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf) +{ + return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf); +} +int_f +nh5tbinsert_field_dl_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf) +{ + return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf); +} +int_f +nh5tbinsert_field_st_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf) +{ + return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf); +} /*------------------------------------------------------------------------- * Function: h5tbdelete_field_c diff --git a/hl/fortran/src/H5TBff.f90 b/hl/fortran/src/H5TBff.f90 index d7458ac..64d528f 100755 --- a/hl/fortran/src/H5TBff.f90 +++ b/hl/fortran/src/H5TBff.f90 @@ -226,12 +226,12 @@ subroutine h5tbwrite_field_name_f_int(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_C'::h5tbwrite_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_INT_C'::h5tbwrite_field_name_int_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -245,13 +245,13 @@ subroutine h5tbwrite_field_name_f_int(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbwrite_field_name_c + end function h5tbwrite_field_name_int_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_name_f_int @@ -301,12 +301,12 @@ subroutine h5tbwrite_field_name_f_float(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_C'::h5tbwrite_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_FL_C'::h5tbwrite_field_name_fl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -320,13 +320,13 @@ subroutine h5tbwrite_field_name_f_float(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbwrite_field_name_c + end function h5tbwrite_field_name_fl_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_name_f_float @@ -378,12 +378,12 @@ subroutine h5tbwrite_field_name_f_double(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_C'::h5tbwrite_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_DL_C'::h5tbwrite_field_name_dl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -397,13 +397,13 @@ subroutine h5tbwrite_field_name_f_double(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbwrite_field_name_c + end function h5tbwrite_field_name_dl_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_name_f_double @@ -453,12 +453,12 @@ subroutine h5tbwrite_field_name_f_string(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_C'::h5tbwrite_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_NAME_ST_C'::h5tbwrite_field_name_st_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -472,13 +472,13 @@ subroutine h5tbwrite_field_name_f_string(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbwrite_field_name_c + end function h5tbwrite_field_name_st_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_name_f_string @@ -529,12 +529,12 @@ subroutine h5tbread_field_name_f_int(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_C'::h5tbread_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_INT_C'::h5tbread_field_name_int_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -548,13 +548,13 @@ subroutine h5tbread_field_name_f_int(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbread_field_name_c + end function h5tbread_field_name_int_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbread_field_name_f_int @@ -604,12 +604,12 @@ subroutine h5tbread_field_name_f_float(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_C'::h5tbread_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_FL_C'::h5tbread_field_name_fl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -623,13 +623,13 @@ subroutine h5tbread_field_name_f_float(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbread_field_name_c + end function h5tbread_field_name_fl_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbread_field_name_f_float @@ -679,12 +679,12 @@ subroutine h5tbread_field_name_f_double(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_C'::h5tbread_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_DL_C'::h5tbread_field_name_dl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -698,13 +698,13 @@ subroutine h5tbread_field_name_f_double(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbread_field_name_c + end function h5tbread_field_name_dl_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbread_field_name_f_double @@ -754,12 +754,12 @@ subroutine h5tbread_field_name_f_string(loc_id,& integer :: namelen1 ! name length interface - integer function h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_C'::h5tbread_field_name_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_NAME_ST_C'::h5tbread_field_name_st_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -773,13 +773,13 @@ subroutine h5tbread_field_name_f_string(loc_id,& integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length - end function h5tbread_field_name_c + end function h5tbread_field_name_st_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) end subroutine h5tbread_field_name_f_string @@ -829,12 +829,12 @@ subroutine h5tbwrite_field_index_f_int(loc_id,& integer :: namelen ! name length interface - integer function h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_C'::h5tbwrite_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_INT_C'::h5tbwrite_field_index_int_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -846,12 +846,12 @@ subroutine h5tbwrite_field_index_f_int(loc_id,& integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbwrite_field_index_c + end function h5tbwrite_field_index_int_c end interface namelen = len(dset_name) - errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_index_f_int @@ -900,12 +900,12 @@ subroutine h5tbwrite_field_index_f_float(loc_id,& integer :: namelen ! name length interface - integer function h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_C'::h5tbwrite_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_FL_C'::h5tbwrite_field_index_fl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -917,12 +917,12 @@ subroutine h5tbwrite_field_index_f_float(loc_id,& real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbwrite_field_index_c + end function h5tbwrite_field_index_fl_c end interface namelen = len(dset_name) - errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_index_f_float @@ -973,12 +973,12 @@ subroutine h5tbwrite_field_index_f_double(loc_id,& integer :: namelen ! name length interface - integer function h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_C'::h5tbwrite_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_DL_C'::h5tbwrite_field_index_dl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -990,12 +990,12 @@ subroutine h5tbwrite_field_index_f_double(loc_id,& double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbwrite_field_index_c + end function h5tbwrite_field_index_dl_c end interface namelen = len(dset_name) - errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_index_f_double @@ -1044,12 +1044,12 @@ subroutine h5tbwrite_field_index_f_string(loc_id,& integer :: namelen ! name length interface - integer function h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_C'::h5tbwrite_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBWRITE_FIELD_INDEX_ST_C'::h5tbwrite_field_index_st_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1061,12 +1061,12 @@ subroutine h5tbwrite_field_index_f_string(loc_id,& character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbwrite_field_index_c + end function h5tbwrite_field_index_st_c end interface namelen = len(dset_name) - errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbwrite_field_index_f_string @@ -1116,12 +1116,12 @@ subroutine h5tbread_field_index_f_int(loc_id,& integer :: namelen ! name length interface - integer function h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_C'::h5tbread_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_INT_C'::h5tbread_field_index_int_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1133,12 +1133,12 @@ subroutine h5tbread_field_index_f_int(loc_id,& integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbread_field_index_c + end function h5tbread_field_index_int_c end interface namelen = len(dset_name) - errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbread_field_index_f_int @@ -1187,12 +1187,12 @@ subroutine h5tbread_field_index_f_float(loc_id,& integer :: namelen ! name length interface - integer function h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_C'::h5tbread_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_FL_C'::h5tbread_field_index_fl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1204,12 +1204,12 @@ subroutine h5tbread_field_index_f_float(loc_id,& real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbread_field_index_c + end function h5tbread_field_index_fl_c end interface namelen = len(dset_name) - errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbread_field_index_f_float @@ -1258,12 +1258,12 @@ subroutine h5tbread_field_index_f_double(loc_id,& integer :: namelen ! name length interface - integer function h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_C'::h5tbread_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_DL_C'::h5tbread_field_index_dl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1275,12 +1275,12 @@ subroutine h5tbread_field_index_f_double(loc_id,& double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbread_field_index_c + end function h5tbread_field_index_dl_c end interface namelen = len(dset_name) - errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbread_field_index_f_double @@ -1329,12 +1329,12 @@ subroutine h5tbread_field_index_f_string(loc_id,& integer :: namelen ! name length interface - integer function h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + integer function h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_C'::h5tbread_field_index_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBREAD_FIELD_INDEX_ST_C'::h5tbread_field_index_st_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name integer(hid_t), intent(in) :: loc_id ! file or group identifier @@ -1346,12 +1346,12 @@ subroutine h5tbread_field_index_f_string(loc_id,& character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length - end function h5tbread_field_index_c + end function h5tbread_field_index_st_c end interface namelen = len(dset_name) - errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& + errcode = h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) end subroutine h5tbread_field_index_f_string @@ -1400,12 +1400,12 @@ subroutine h5tbinsert_field_f_int(loc_id,& interface - integer function h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_C'::h5tbinsert_field_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_INT_C'::h5tbinsert_field_int_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -1417,13 +1417,13 @@ subroutine h5tbinsert_field_f_int(loc_id,& integer, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length - end function h5tbinsert_field_c + end function h5tbinsert_field_int_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) end subroutine h5tbinsert_field_f_int @@ -1473,12 +1473,12 @@ subroutine h5tbinsert_field_f_float(loc_id,& interface - integer function h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_C'::h5tbinsert_field_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_FL_C'::h5tbinsert_field_fl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -1490,13 +1490,13 @@ subroutine h5tbinsert_field_f_float(loc_id,& real, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length - end function h5tbinsert_field_c + end function h5tbinsert_field_fl_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) end subroutine h5tbinsert_field_f_float @@ -1546,12 +1546,12 @@ subroutine h5tbinsert_field_f_double(loc_id,& interface - integer function h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_C'::h5tbinsert_field_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_DL_C'::h5tbinsert_field_dl_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -1563,13 +1563,13 @@ subroutine h5tbinsert_field_f_double(loc_id,& double precision, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length - end function h5tbinsert_field_c + end function h5tbinsert_field_dl_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) end subroutine h5tbinsert_field_f_double @@ -1620,12 +1620,12 @@ subroutine h5tbinsert_field_f_string(loc_id,& interface - integer function h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + integer function h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) use h5global !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_C'::h5tbinsert_field_c + !MS$ATTRIBUTES C,reference,alias:'_H5TBINSERT_FIELD_ST_C'::h5tbinsert_field_st_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name @@ -1637,13 +1637,13 @@ subroutine h5tbinsert_field_f_string(loc_id,& character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length - end function h5tbinsert_field_c + end function h5tbinsert_field_st_c end interface namelen = len(dset_name) namelen1 = len(field_name) - errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& + errcode = h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) end subroutine h5tbinsert_field_f_string @@ -1652,7 +1652,7 @@ end subroutine h5tbinsert_field_f_string !------------------------------------------------------------------------- -! Function: h5tbdelete_field_f_int +! Function: h5tbdelete_field_f ! ! Purpose: Inserts one field ! -- cgit v0.12