summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2006-11-03 23:02:36 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2006-11-03 23:02:36 (GMT)
commit63eb47adeb39272994ccdf6fa614b5f6cf1383c5 (patch)
tree6d6c891797b579da0cff3064cdbe5187b1b19f0b /hl/fortran/src
parentcc93ac2d28dfd0b642c00ba6b1c823c253546859 (diff)
downloadhdf5-63eb47adeb39272994ccdf6fa614b5f6cf1383c5.zip
hdf5-63eb47adeb39272994ccdf6fa614b5f6cf1383c5.tar.gz
hdf5-63eb47adeb39272994ccdf6fa614b5f6cf1383c5.tar.bz2
[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
Diffstat (limited to 'hl/fortran/src')
-rwxr-xr-xhl/fortran/src/H5LTf90proto.h666
-rwxr-xr-xhl/fortran/src/H5LTfc.c380
-rwxr-xr-xhl/fortran/src/H5LTff.f90288
-rwxr-xr-xhl/fortran/src/H5TBfc.c256
-rwxr-xr-xhl/fortran/src/H5TBff.f90162
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
!