mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r26875] Added BIND(C) to interfaces.

Browse Source
This commit is contained in:
Scot Breitenfeld 2015-04-21 15:55:09 -05:00
parent 68ad830cd9
commit 1ba402214d
3 changed files with 1227 additions and 1369 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
hl/fortran/src/H5LTf90proto.h
View File

@ -137,42 +137,6 @@ H5_FCDLL void HD5packFstring (char *src, char *dest, size_t len);
#define nh5ltget_attribute_ndims_c H5_FC_FUNC_(h5ltget_attribute_ndims_c, H5LTGET_ATTRIBUTE_NDIMS_C)
#define nh5ltget_attribute_info_c H5_FC_FUNC_(h5ltget_attribute_info_c, H5LTGET_ATTRIBUTE_INFO_C)
#define nh5ltpath_valid_c H5_FC_FUNC_(h5ltpath_valid_c, H5LTPATH_VALID_C)
/*-------------------------------------------------------------------------
* Table
*-------------------------------------------------------------------------
*/
#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)
/*
* Functions from H5DSfc.c
*/
@ -1287,7 +1251,7 @@ h5imis_palette_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbmake_table_c(size_t_f *namelen1,
h5tbmake_table_c(size_t_f *namelen1,
_fcd name1,
hid_t_f *loc_id,
size_t_f *namelen,
@ -1305,7 +1269,7 @@ nh5tbmake_table_c(size_t_f *namelen1,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_name_c(hid_t_f *loc_id,
h5tbwrite_field_name_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1317,7 +1281,7 @@ nh5tbwrite_field_name_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
h5tbwrite_field_name_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1329,7 +1293,7 @@ nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_name_fl_c(hid_t_f *loc_id,
h5tbwrite_field_name_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1341,7 +1305,7 @@ nh5tbwrite_field_name_fl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_name_dl_c(hid_t_f *loc_id,
h5tbwrite_field_name_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1353,7 +1317,7 @@ nh5tbwrite_field_name_dl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
h5tbwrite_field_name_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1365,7 +1329,7 @@ nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_name_c(hid_t_f *loc_id,
h5tbread_field_name_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1377,7 +1341,7 @@ nh5tbread_field_name_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_name_int_c(hid_t_f *loc_id,
h5tbread_field_name_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1389,7 +1353,7 @@ nh5tbread_field_name_int_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_name_fl_c(hid_t_f *loc_id,
h5tbread_field_name_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1401,7 +1365,7 @@ nh5tbread_field_name_fl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_name_dl_c(hid_t_f *loc_id,
h5tbread_field_name_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1413,7 +1377,7 @@ nh5tbread_field_name_dl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_name_st_c(hid_t_f *loc_id,
h5tbread_field_name_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1425,7 +1389,7 @@ nh5tbread_field_name_st_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_index_c(hid_t_f *loc_id,
h5tbwrite_field_index_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1436,7 +1400,7 @@ nh5tbwrite_field_index_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
h5tbwrite_field_index_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1447,7 +1411,7 @@ nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_index_fl_c(hid_t_f *loc_id,
h5tbwrite_field_index_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1458,7 +1422,7 @@ nh5tbwrite_field_index_fl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_index_dl_c(hid_t_f *loc_id,
h5tbwrite_field_index_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1469,7 +1433,7 @@ nh5tbwrite_field_index_dl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
h5tbwrite_field_index_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1480,7 +1444,7 @@ nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_index_c(hid_t_f *loc_id,
h5tbread_field_index_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1491,7 +1455,7 @@ nh5tbread_field_index_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_index_int_c(hid_t_f *loc_id,
h5tbread_field_index_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1502,7 +1466,7 @@ nh5tbread_field_index_int_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_index_fl_c(hid_t_f *loc_id,
h5tbread_field_index_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1513,7 +1477,7 @@ nh5tbread_field_index_fl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_index_dl_c(hid_t_f *loc_id,
h5tbread_field_index_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1524,7 +1488,7 @@ nh5tbread_field_index_dl_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbread_field_index_st_c(hid_t_f *loc_id,
h5tbread_field_index_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -1535,7 +1499,7 @@ nh5tbread_field_index_st_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbinsert_field_c(hid_t_f *loc_id,
h5tbinsert_field_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1546,7 +1510,7 @@ nh5tbinsert_field_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbinsert_field_int_c(hid_t_f *loc_id,
h5tbinsert_field_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1556,7 +1520,7 @@ nh5tbinsert_field_int_c(hid_t_f *loc_id,
void *buf);
HDF5_HL_F90CSTUBDLL
int_f
nh5tbinsert_field_fl_c(hid_t_f *loc_id,
h5tbinsert_field_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1566,7 +1530,7 @@ nh5tbinsert_field_fl_c(hid_t_f *loc_id,
void *buf);
HDF5_HL_F90CSTUBDLL
int_f
nh5tbinsert_field_dl_c(hid_t_f *loc_id,
h5tbinsert_field_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1576,7 +1540,7 @@ nh5tbinsert_field_dl_c(hid_t_f *loc_id,
void *buf);
HDF5_HL_F90CSTUBDLL
int_f
nh5tbinsert_field_st_c(hid_t_f *loc_id,
h5tbinsert_field_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1586,7 +1550,7 @@ nh5tbinsert_field_st_c(hid_t_f *loc_id,
void *buf);
HDF5_HL_F90CSTUBDLL
int_f
nh5tbdelete_field_c(hid_t_f *loc_id,
h5tbdelete_field_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -1595,7 +1559,7 @@ nh5tbdelete_field_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbget_table_info_c(hid_t_f *loc_id,
h5tbget_table_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hsize_t_f *nfields,
@ -1603,7 +1567,7 @@ nh5tbget_table_info_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
nh5tbget_field_info_c(hid_t_f *loc_id,
h5tbget_field_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hsize_t_f *nfields,

100
hl/fortran/src/H5TBfc.c
View File

@ -37,7 +37,7 @@
*-------------------------------------------------------------------------
*/
int_f
nh5tbmake_table_c(size_t_f *namelen1,
h5tbmake_table_c(size_t_f *namelen1,
_fcd name1,
hid_t_f *loc_id,
size_t_f *namelen,
@ -133,7 +133,7 @@ done:
HDfree(c_field_types);
return ret_value;
} /* end nh5tbmake_table_c() */
} /* end h5tbmake_table_c() */
/*-------------------------------------------------------------------------
* Function: h5tbwrite_field_name_c
@ -151,7 +151,7 @@ done:
*-------------------------------------------------------------------------
*/
int_f
nh5tbwrite_field_name_c(hid_t_f *loc_id,
h5tbwrite_field_name_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -191,7 +191,7 @@ done:
}
int_f
nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
h5tbwrite_field_name_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -201,12 +201,12 @@ nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbwrite_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,
h5tbwrite_field_name_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -216,12 +216,12 @@ nh5tbwrite_field_name_fl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbwrite_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,
h5tbwrite_field_name_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -231,12 +231,12 @@ nh5tbwrite_field_name_dl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbwrite_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,
h5tbwrite_field_name_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -246,7 +246,7 @@ nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbwrite_field_name_c(loc_id, namelen, name, namelen1, field_name,
start, nrecords, type_size, buf);
}
@ -266,7 +266,7 @@ nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
*-------------------------------------------------------------------------
*/
int_f
nh5tbread_field_name_c(hid_t_f *loc_id,
h5tbread_field_name_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -306,7 +306,7 @@ done:
}
int_f
nh5tbread_field_name_int_c(hid_t_f *loc_id,
h5tbread_field_name_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -316,12 +316,12 @@ nh5tbread_field_name_int_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbread_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,
h5tbread_field_name_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -331,12 +331,12 @@ nh5tbread_field_name_fl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbread_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,
h5tbread_field_name_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -346,12 +346,12 @@ nh5tbread_field_name_dl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbread_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,
h5tbread_field_name_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -361,7 +361,7 @@ nh5tbread_field_name_st_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_name_c(loc_id, namelen, name, namelen1, field_name,
return h5tbread_field_name_c(loc_id, namelen, name, namelen1, field_name,
start, nrecords, type_size, buf);
}
@ -381,7 +381,7 @@ nh5tbread_field_name_st_c(hid_t_f *loc_id,
*-------------------------------------------------------------------------
*/
int_f
nh5tbwrite_field_index_c(hid_t_f *loc_id,
h5tbwrite_field_index_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -417,7 +417,7 @@ done:
}
int_f
nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
h5tbwrite_field_index_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -426,12 +426,12 @@ nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbwrite_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,
h5tbwrite_field_index_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -440,12 +440,12 @@ nh5tbwrite_field_index_fl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbwrite_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,
h5tbwrite_field_index_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -454,12 +454,12 @@ nh5tbwrite_field_index_dl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbwrite_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,
h5tbwrite_field_index_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -468,7 +468,7 @@ nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbwrite_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbwrite_field_index_c(loc_id, namelen, name, field_index, start,
nrecords, type_size, buf);
}
@ -488,7 +488,7 @@ nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
*-------------------------------------------------------------------------
*/
int_f
nh5tbread_field_index_c(hid_t_f *loc_id,
h5tbread_field_index_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -523,7 +523,7 @@ done:
}
int_f
nh5tbread_field_index_int_c(hid_t_f *loc_id,
h5tbread_field_index_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -532,12 +532,12 @@ nh5tbread_field_index_int_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbread_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,
h5tbread_field_index_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -546,12 +546,12 @@ nh5tbread_field_index_fl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbread_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,
h5tbread_field_index_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -560,12 +560,12 @@ nh5tbread_field_index_dl_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbread_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,
h5tbread_field_index_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *field_index,
@ -574,7 +574,7 @@ nh5tbread_field_index_st_c(hid_t_f *loc_id,
size_t_f *type_size,
void *buf)
{
return nh5tbread_field_index_c(loc_id, namelen, name, field_index, start,
return h5tbread_field_index_c(loc_id, namelen, name, field_index, start,
nrecords, type_size, buf);
}
@ -594,7 +594,7 @@ nh5tbread_field_index_st_c(hid_t_f *loc_id,
*-------------------------------------------------------------------------
*/
int_f
nh5tbinsert_field_c(hid_t_f *loc_id,
h5tbinsert_field_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -632,7 +632,7 @@ done:
}
int_f
nh5tbinsert_field_int_c(hid_t_f *loc_id,
h5tbinsert_field_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -641,12 +641,12 @@ nh5tbinsert_field_int_c(hid_t_f *loc_id,
int_f *position,
void *buf)
{
return nh5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
return h5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
field_type, position, buf);
}
int_f
nh5tbinsert_field_fl_c(hid_t_f *loc_id,
h5tbinsert_field_fl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -655,12 +655,12 @@ nh5tbinsert_field_fl_c(hid_t_f *loc_id,
int_f *position,
void *buf)
{
return nh5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
return h5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
field_type, position, buf);
}
int_f
nh5tbinsert_field_dl_c(hid_t_f *loc_id,
h5tbinsert_field_dl_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -669,12 +669,12 @@ nh5tbinsert_field_dl_c(hid_t_f *loc_id,
int_f *position,
void *buf)
{
return nh5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
return h5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
field_type, position, buf);
}
int_f
nh5tbinsert_field_st_c(hid_t_f *loc_id,
h5tbinsert_field_st_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -683,7 +683,7 @@ nh5tbinsert_field_st_c(hid_t_f *loc_id,
int_f *position,
void *buf)
{
return nh5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
return h5tbinsert_field_c(loc_id, namelen, name, namelen1, field_name,
field_type, position, buf);
}
@ -703,7 +703,7 @@ nh5tbinsert_field_st_c(hid_t_f *loc_id,
*-------------------------------------------------------------------------
*/
int_f
nh5tbdelete_field_c(hid_t_f *loc_id,
h5tbdelete_field_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *namelen1,
@ -752,7 +752,7 @@ done:
*-------------------------------------------------------------------------
*/
int_f
nh5tbget_table_info_c(hid_t_f *loc_id,
h5tbget_table_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hsize_t_f *nfields,
@ -802,7 +802,7 @@ done:
*-------------------------------------------------------------------------
*/
int_f
nh5tbget_field_info_c(hid_t_f *loc_id,
h5tbget_field_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hsize_t_f *nfields,

2402
hl/fortran/src/H5TBff.F90
View File

File diff suppressed because it is too large Load Diff