summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 14:37:02 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 14:37:02 (GMT)
commitcfeb1509c2f7055ee34daba23978b0932944818c (patch)
tree3955725c5283aeb8048e3a48207566c8f808e577
parentfd6ce02c921f91a3c76ffff11f9f3202f030824f (diff)
downloadhdf5-cfeb1509c2f7055ee34daba23978b0932944818c.zip
hdf5-cfeb1509c2f7055ee34daba23978b0932944818c.tar.gz
hdf5-cfeb1509c2f7055ee34daba23978b0932944818c.tar.bz2
[svn-r26881] Added BIND(C) to the Fortran HL APIs, and fixed the issue with -r8 (or equiv.) being specified.
-rw-r--r--hl/fortran/src/H5LTf90proto.h317
-rw-r--r--hl/fortran/src/H5LTfc.c372
-rw-r--r--hl/fortran/src/H5LTff.F902302
-rw-r--r--hl/fortran/test/tstlite.f905
4 files changed, 1360 insertions, 1636 deletions
diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h
index df5bb15..4714b83 100644
--- a/hl/fortran/src/H5LTf90proto.h
+++ b/hl/fortran/src/H5LTf90proto.h
@@ -27,116 +27,6 @@
H5_FCDLL char* HD5f2cstring (_fcd fdesc, size_t len);
H5_FCDLL 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 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_int4_c H5_FC_FUNC_(h5ltmake_dataset_int4_c, H5LTMAKE_DATASET_INT4_C)
-#define nh5ltmake_dataset_int5_c H5_FC_FUNC_(h5ltmake_dataset_int5_c, H5LTMAKE_DATASET_INT5_C)
-#define nh5ltmake_dataset_int6_c H5_FC_FUNC_(h5ltmake_dataset_int6_c, H5LTMAKE_DATASET_INT6_C)
-#define nh5ltmake_dataset_int7_c H5_FC_FUNC_(h5ltmake_dataset_int7_c, H5LTMAKE_DATASET_INT7_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_fl4_c H5_FC_FUNC_(h5ltmake_dataset_fl4_c, H5LTMAKE_DATASET_FL4_C)
-#define nh5ltmake_dataset_fl5_c H5_FC_FUNC_(h5ltmake_dataset_fl5_c, H5LTMAKE_DATASET_FL5_C)
-#define nh5ltmake_dataset_fl6_c H5_FC_FUNC_(h5ltmake_dataset_fl6_c, H5LTMAKE_DATASET_FL6_C)
-#define nh5ltmake_dataset_fl7_c H5_FC_FUNC_(h5ltmake_dataset_fl7_c, H5LTMAKE_DATASET_FL7_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_dl4_c H5_FC_FUNC_(h5ltmake_dataset_dl4_c, H5LTMAKE_DATASET_DL4_C)
-#define nh5ltmake_dataset_dl5_c H5_FC_FUNC_(h5ltmake_dataset_dl5_c, H5LTMAKE_DATASET_DL5_C)
-#define nh5ltmake_dataset_dl6_c H5_FC_FUNC_(h5ltmake_dataset_dl6_c, H5LTMAKE_DATASET_DL6_C)
-#define nh5ltmake_dataset_dl7_c H5_FC_FUNC_(h5ltmake_dataset_dl7_c, H5LTMAKE_DATASET_DL7_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_nint4_c H5_FC_FUNC_(h5ltmake_dataset_nint4_c, H5LTMAKE_DATASET_NINT4_C)
-#define nh5ltmake_dataset_nint5_c H5_FC_FUNC_(h5ltmake_dataset_nint5_c, H5LTMAKE_DATASET_NINT5_C)
-#define nh5ltmake_dataset_nint6_c H5_FC_FUNC_(h5ltmake_dataset_nint6_c, H5LTMAKE_DATASET_NINT6_C)
-#define nh5ltmake_dataset_nint7_c H5_FC_FUNC_(h5ltmake_dataset_nint7_c, H5LTMAKE_DATASET_NINT7_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_nfl4_c H5_FC_FUNC_(h5ltmake_dataset_nfl4_c, H5LTMAKE_DATASET_NFL4_C)
-#define nh5ltmake_dataset_nfl5_c H5_FC_FUNC_(h5ltmake_dataset_nfl5_c, H5LTMAKE_DATASET_NFL5_C)
-#define nh5ltmake_dataset_nfl6_c H5_FC_FUNC_(h5ltmake_dataset_nfl6_c, H5LTMAKE_DATASET_NFL6_C)
-#define nh5ltmake_dataset_nfl7_c H5_FC_FUNC_(h5ltmake_dataset_nfl7_c, H5LTMAKE_DATASET_NFL7_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 nh5ltmake_dataset_ndl4_c H5_FC_FUNC_(h5ltmake_dataset_ndl4_c, H5LTMAKE_DATASET_NDL4_C)
-#define nh5ltmake_dataset_ndl5_c H5_FC_FUNC_(h5ltmake_dataset_ndl5_c, H5LTMAKE_DATASET_NDL5_C)
-#define nh5ltmake_dataset_ndl6_c H5_FC_FUNC_(h5ltmake_dataset_ndl6_c, H5LTMAKE_DATASET_NDL6_C)
-#define nh5ltmake_dataset_ndl7_c H5_FC_FUNC_(h5ltmake_dataset_ndl7_c, H5LTMAKE_DATASET_NDL7_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_int4_c H5_FC_FUNC_(h5ltread_dataset_int4_c, H5LTREAD_DATASET_INT4_C)
-#define nh5ltread_dataset_int5_c H5_FC_FUNC_(h5ltread_dataset_int5_c, H5LTREAD_DATASET_INT5_C)
-#define nh5ltread_dataset_int6_c H5_FC_FUNC_(h5ltread_dataset_int6_c, H5LTREAD_DATASET_INT6_C)
-#define nh5ltread_dataset_int7_c H5_FC_FUNC_(h5ltread_dataset_int7_c, H5LTREAD_DATASET_INT7_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_fl4_c H5_FC_FUNC_(h5ltread_dataset_fl4_c, H5LTREAD_DATASET_FL4_C)
-#define nh5ltread_dataset_fl5_c H5_FC_FUNC_(h5ltread_dataset_fl5_c, H5LTREAD_DATASET_FL5_C)
-#define nh5ltread_dataset_fl6_c H5_FC_FUNC_(h5ltread_dataset_fl6_c, H5LTREAD_DATASET_FL6_C)
-#define nh5ltread_dataset_fl7_c H5_FC_FUNC_(h5ltread_dataset_fl7_c, H5LTREAD_DATASET_FL7_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_dl4_c H5_FC_FUNC_(h5ltread_dataset_dl4_c, H5LTREAD_DATASET_DL4_C)
-#define nh5ltread_dataset_dl5_c H5_FC_FUNC_(h5ltread_dataset_dl5_c, H5LTREAD_DATASET_DL5_C)
-#define nh5ltread_dataset_dl6_c H5_FC_FUNC_(h5ltread_dataset_dl6_c, H5LTREAD_DATASET_DL6_C)
-#define nh5ltread_dataset_dl7_c H5_FC_FUNC_(h5ltread_dataset_dl7_c, H5LTREAD_DATASET_DL7_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_nint4_c H5_FC_FUNC_(h5ltread_dataset_nint4_c, H5LTREAD_DATASET_NINT4_C)
-#define nh5ltread_dataset_nint5_c H5_FC_FUNC_(h5ltread_dataset_nint5_c, H5LTREAD_DATASET_NINT5_C)
-#define nh5ltread_dataset_nint6_c H5_FC_FUNC_(h5ltread_dataset_nint6_c, H5LTREAD_DATASET_NINT6_C)
-#define nh5ltread_dataset_nint7_c H5_FC_FUNC_(h5ltread_dataset_nint7_c, H5LTREAD_DATASET_NINT7_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_nfl4_c H5_FC_FUNC_(h5ltread_dataset_nfl4_c, H5LTREAD_DATASET_NFL4_C)
-#define nh5ltread_dataset_nfl5_c H5_FC_FUNC_(h5ltread_dataset_nfl5_c, H5LTREAD_DATASET_NFL5_C)
-#define nh5ltread_dataset_nfl6_c H5_FC_FUNC_(h5ltread_dataset_nfl6_c, H5LTREAD_DATASET_NFL6_C)
-#define nh5ltread_dataset_nfl7_c H5_FC_FUNC_(h5ltread_dataset_nfl7_c, H5LTREAD_DATASET_NFL7_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 nh5ltread_dataset_ndl4_c H5_FC_FUNC_(h5ltread_dataset_ndl4_c, H5LTREAD_DATASET_NDL4_C)
-#define nh5ltread_dataset_ndl5_c H5_FC_FUNC_(h5ltread_dataset_ndl5_c, H5LTREAD_DATASET_NDL5_C)
-#define nh5ltread_dataset_ndl6_c H5_FC_FUNC_(h5ltread_dataset_ndl6_c, H5LTREAD_DATASET_NDL6_C)
-#define nh5ltread_dataset_ndl7_c H5_FC_FUNC_(h5ltread_dataset_ndl7_c, H5LTREAD_DATASET_NDL7_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)
-
-#define nh5ltset_attribute_int_c H5_FC_FUNC_(h5ltset_attribute_int_c, H5LTSET_ATTRIBUTE_INT_C)
-#define nh5ltset_attribute_float_c H5_FC_FUNC_(h5ltset_attribute_float_c, H5LTSET_ATTRIBUTE_FLOAT_C)
-#define nh5ltset_attribute_double_c H5_FC_FUNC_(h5ltset_attribute_double_c, H5LTSET_ATTRIBUTE_DOUBLE_C)
-#define nh5ltset_attribute_string_c H5_FC_FUNC_(h5ltset_attribute_string_c, H5LTSET_ATTRIBUTE_STRING_C)
-
-#define nh5ltget_attribute_int_c H5_FC_FUNC_(h5ltget_attribute_int_c, H5LTGET_ATTRIBUTE_INT_C)
-#define nh5ltget_attribute_float_c H5_FC_FUNC_(h5ltget_attribute_float_c, H5LTGET_ATTRIBUTE_FLOAT_C)
-#define nh5ltget_attribute_double_c H5_FC_FUNC_(h5ltget_attribute_double_c, H5LTGET_ATTRIBUTE_DOUBLE_C)
-#define nh5ltget_attribute_string_c H5_FC_FUNC_(h5ltget_attribute_string_c, H5LTGET_ATTRIBUTE_STRING_C)
-
-#define nh5ltget_dataset_ndims_c H5_FC_FUNC_(h5ltget_dataset_ndims_c, H5LTGET_DATASET_NDIMS_C)
-#define nh5ltfind_dataset_c H5_FC_FUNC_(h5ltfind_dataset_c, H5LTFIND_DATASET_C)
-#define nh5ltget_dataset_info_c H5_FC_FUNC_(h5ltget_dataset_info_c, H5LTGET_DATASET_INFO_C)
-
-#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)
/*
* Functions from H5DSfc.c
*/
@@ -176,10 +66,13 @@ HDF5_HL_F90CSTUBDLL
int_f
h5dsget_num_scales_c( hid_t_f *did, int_f *idx, int_f *num_scales);
+/*
+ * Functions from H5LTfc.c
+ */
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_c (hid_t_f *loc_id,
+h5ltmake_dataset_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -189,7 +82,7 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int1_c (hid_t_f *loc_id,
+h5ltmake_dataset_int1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -199,7 +92,7 @@ nh5ltmake_dataset_int1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int2_c (hid_t_f *loc_id,
+h5ltmake_dataset_int2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -209,7 +102,7 @@ nh5ltmake_dataset_int2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int3_c (hid_t_f *loc_id,
+h5ltmake_dataset_int3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -219,7 +112,7 @@ nh5ltmake_dataset_int3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int4_c (hid_t_f *loc_id,
+h5ltmake_dataset_int4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -229,7 +122,7 @@ nh5ltmake_dataset_int4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int5_c (hid_t_f *loc_id,
+h5ltmake_dataset_int5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -239,7 +132,7 @@ nh5ltmake_dataset_int5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int6_c (hid_t_f *loc_id,
+h5ltmake_dataset_int6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -249,7 +142,7 @@ nh5ltmake_dataset_int6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_int7_c (hid_t_f *loc_id,
+h5ltmake_dataset_int7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -260,7 +153,7 @@ nh5ltmake_dataset_int7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -270,7 +163,7 @@ nh5ltmake_dataset_fl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -280,7 +173,7 @@ nh5ltmake_dataset_fl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -290,7 +183,7 @@ nh5ltmake_dataset_fl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -300,7 +193,7 @@ nh5ltmake_dataset_fl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -310,7 +203,7 @@ nh5ltmake_dataset_fl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -320,7 +213,7 @@ nh5ltmake_dataset_fl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_fl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -331,7 +224,7 @@ nh5ltmake_dataset_fl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -341,7 +234,7 @@ nh5ltmake_dataset_dl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -351,7 +244,7 @@ nh5ltmake_dataset_dl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -361,7 +254,7 @@ nh5ltmake_dataset_dl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -371,7 +264,7 @@ nh5ltmake_dataset_dl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -381,7 +274,7 @@ nh5ltmake_dataset_dl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -391,7 +284,7 @@ nh5ltmake_dataset_dl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_dl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -401,7 +294,7 @@ nh5ltmake_dataset_dl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint1_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -411,7 +304,7 @@ nh5ltmake_dataset_nint1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint2_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -421,7 +314,7 @@ nh5ltmake_dataset_nint2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint3_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -431,7 +324,7 @@ nh5ltmake_dataset_nint3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint4_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -441,7 +334,7 @@ nh5ltmake_dataset_nint4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint5_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -451,7 +344,7 @@ nh5ltmake_dataset_nint5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint6_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -461,7 +354,7 @@ nh5ltmake_dataset_nint6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nint7_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -471,7 +364,7 @@ nh5ltmake_dataset_nint7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -481,7 +374,7 @@ nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -491,7 +384,7 @@ nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -501,7 +394,7 @@ nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -511,7 +404,7 @@ nh5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -521,7 +414,7 @@ nh5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -531,7 +424,7 @@ nh5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -541,7 +434,7 @@ nh5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -551,7 +444,7 @@ nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -561,7 +454,7 @@ nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -571,7 +464,7 @@ nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -581,7 +474,7 @@ nh5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -591,7 +484,7 @@ nh5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -601,7 +494,7 @@ nh5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -611,7 +504,7 @@ nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_c (hid_t_f *loc_id,
+h5ltread_dataset_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -621,7 +514,7 @@ nh5ltread_dataset_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int1_c (hid_t_f *loc_id,
+h5ltread_dataset_int1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -630,7 +523,7 @@ nh5ltread_dataset_int1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int2_c (hid_t_f *loc_id,
+h5ltread_dataset_int2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -639,7 +532,7 @@ nh5ltread_dataset_int2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int3_c (hid_t_f *loc_id,
+h5ltread_dataset_int3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -648,7 +541,7 @@ nh5ltread_dataset_int3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int4_c (hid_t_f *loc_id,
+h5ltread_dataset_int4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -657,7 +550,7 @@ nh5ltread_dataset_int4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int5_c (hid_t_f *loc_id,
+h5ltread_dataset_int5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -666,7 +559,7 @@ nh5ltread_dataset_int5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int6_c (hid_t_f *loc_id,
+h5ltread_dataset_int6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -675,7 +568,7 @@ nh5ltread_dataset_int6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_int7_c (hid_t_f *loc_id,
+h5ltread_dataset_int7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -684,7 +577,7 @@ nh5ltread_dataset_int7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl1_c (hid_t_f *loc_id,
+h5ltread_dataset_fl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -693,7 +586,7 @@ nh5ltread_dataset_fl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl2_c (hid_t_f *loc_id,
+h5ltread_dataset_fl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -702,7 +595,7 @@ nh5ltread_dataset_fl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl3_c (hid_t_f *loc_id,
+h5ltread_dataset_fl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -711,7 +604,7 @@ nh5ltread_dataset_fl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl4_c (hid_t_f *loc_id,
+h5ltread_dataset_fl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -720,7 +613,7 @@ nh5ltread_dataset_fl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl5_c (hid_t_f *loc_id,
+h5ltread_dataset_fl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -729,7 +622,7 @@ nh5ltread_dataset_fl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl6_c (hid_t_f *loc_id,
+h5ltread_dataset_fl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -739,7 +632,7 @@ nh5ltread_dataset_fl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_fl7_c (hid_t_f *loc_id,
+h5ltread_dataset_fl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -748,7 +641,7 @@ nh5ltread_dataset_fl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl1_c (hid_t_f *loc_id,
+h5ltread_dataset_dl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -757,7 +650,7 @@ nh5ltread_dataset_dl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl2_c (hid_t_f *loc_id,
+h5ltread_dataset_dl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -766,7 +659,7 @@ nh5ltread_dataset_dl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl3_c (hid_t_f *loc_id,
+h5ltread_dataset_dl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -775,7 +668,7 @@ nh5ltread_dataset_dl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl4_c (hid_t_f *loc_id,
+h5ltread_dataset_dl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -784,7 +677,7 @@ nh5ltread_dataset_dl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl5_c (hid_t_f *loc_id,
+h5ltread_dataset_dl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -793,7 +686,7 @@ nh5ltread_dataset_dl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl6_c (hid_t_f *loc_id,
+h5ltread_dataset_dl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -802,7 +695,7 @@ nh5ltread_dataset_dl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_dl7_c (hid_t_f *loc_id,
+h5ltread_dataset_dl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -811,7 +704,7 @@ nh5ltread_dataset_dl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint1_c (hid_t_f *loc_id,
+h5ltread_dataset_nint1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -820,7 +713,7 @@ nh5ltread_dataset_nint1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint2_c (hid_t_f *loc_id,
+h5ltread_dataset_nint2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -829,7 +722,7 @@ nh5ltread_dataset_nint2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint3_c (hid_t_f *loc_id,
+h5ltread_dataset_nint3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -838,7 +731,7 @@ nh5ltread_dataset_nint3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint4_c (hid_t_f *loc_id,
+h5ltread_dataset_nint4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -847,7 +740,7 @@ nh5ltread_dataset_nint4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint5_c (hid_t_f *loc_id,
+h5ltread_dataset_nint5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -856,7 +749,7 @@ nh5ltread_dataset_nint5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint6_c (hid_t_f *loc_id,
+h5ltread_dataset_nint6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -865,7 +758,7 @@ nh5ltread_dataset_nint6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nint7_c (hid_t_f *loc_id,
+h5ltread_dataset_nint7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -874,7 +767,7 @@ nh5ltread_dataset_nint7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl1_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -883,7 +776,7 @@ nh5ltread_dataset_nfl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl2_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -892,7 +785,7 @@ nh5ltread_dataset_nfl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl3_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -901,7 +794,7 @@ nh5ltread_dataset_nfl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl4_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -910,7 +803,7 @@ nh5ltread_dataset_nfl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl5_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -919,7 +812,7 @@ nh5ltread_dataset_nfl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl6_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -928,7 +821,7 @@ nh5ltread_dataset_nfl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_nfl7_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -937,7 +830,7 @@ nh5ltread_dataset_nfl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl1_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -946,7 +839,7 @@ nh5ltread_dataset_ndl1_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl2_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -955,7 +848,7 @@ nh5ltread_dataset_ndl2_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl3_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -964,7 +857,7 @@ nh5ltread_dataset_ndl3_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl4_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -973,7 +866,7 @@ nh5ltread_dataset_ndl4_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl5_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -982,7 +875,7 @@ nh5ltread_dataset_ndl5_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl6_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -991,7 +884,7 @@ nh5ltread_dataset_ndl6_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_ndl7_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -1000,7 +893,7 @@ nh5ltread_dataset_ndl7_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltset_attribute_int_c(hid_t_f *loc_id,
+h5ltset_attribute_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1010,7 +903,7 @@ nh5ltset_attribute_int_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltset_attribute_float_c(hid_t_f *loc_id,
+h5ltset_attribute_float_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1020,7 +913,7 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltset_attribute_double_c(hid_t_f *loc_id,
+h5ltset_attribute_double_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1030,7 +923,7 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltset_attribute_string_c(hid_t_f *loc_id,
+h5ltset_attribute_string_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1041,7 +934,7 @@ nh5ltset_attribute_string_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_attribute_int_c(hid_t_f *loc_id,
+h5ltget_attribute_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1050,7 +943,7 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_attribute_float_c(hid_t_f *loc_id,
+h5ltget_attribute_float_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1059,7 +952,7 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_attribute_double_c(hid_t_f *loc_id,
+h5ltget_attribute_double_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1068,7 +961,7 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_attribute_string_c(hid_t_f *loc_id,
+h5ltget_attribute_string_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1078,20 +971,20 @@ nh5ltget_attribute_string_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
+h5ltget_dataset_ndims_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank);
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltfind_dataset_c(hid_t_f *loc_id,
+h5ltfind_dataset_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name);
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_dataset_info_c(hid_t_f *loc_id,
+h5ltget_dataset_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hsize_t_f *dims,
@@ -1100,7 +993,7 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
+h5ltget_attribute_ndims_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1108,7 +1001,7 @@ nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
int_f *rank);
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltget_attribute_info_c(hid_t_f *loc_id,
+h5ltget_attribute_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *attrnamelen,
@@ -1119,7 +1012,7 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltmake_dataset_string_c (hid_t_f *loc_id,
+h5ltmake_dataset_string_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *buflen,
@@ -1127,14 +1020,14 @@ nh5ltmake_dataset_string_c (hid_t_f *loc_id,
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltread_dataset_string_c (hid_t_f *loc_id,
+h5ltread_dataset_string_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
char *buf);
HDF5_HL_F90CSTUBDLL
int_f
-nh5ltpath_valid_c(hid_t_f *loc_id,
+h5ltpath_valid_c(hid_t_f *loc_id,
_fcd path,
size_t_f *pathlen,
int_f *check_object_valid_c);
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index 1e0a236..f5e9153 100644
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -39,7 +39,7 @@
*/
int_f
-nh5ltmake_dataset_c (hid_t_f *loc_id,
+h5ltmake_dataset_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -90,7 +90,7 @@ done:
}
int_f
-nh5ltmake_dataset_int1_c (hid_t_f *loc_id,
+h5ltmake_dataset_int1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -98,10 +98,10 @@ nh5ltmake_dataset_int1_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_int2_c (hid_t_f *loc_id,
+h5ltmake_dataset_int2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -109,10 +109,10 @@ nh5ltmake_dataset_int2_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_int3_c (hid_t_f *loc_id,
+h5ltmake_dataset_int3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -120,10 +120,10 @@ nh5ltmake_dataset_int3_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_int4_c (hid_t_f *loc_id,
+h5ltmake_dataset_int4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -131,10 +131,10 @@ nh5ltmake_dataset_int4_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_int5_c (hid_t_f *loc_id,
+h5ltmake_dataset_int5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -142,10 +142,10 @@ nh5ltmake_dataset_int5_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_int6_c (hid_t_f *loc_id,
+h5ltmake_dataset_int6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -153,10 +153,10 @@ nh5ltmake_dataset_int6_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_int7_c (hid_t_f *loc_id,
+h5ltmake_dataset_int7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -164,10 +164,10 @@ nh5ltmake_dataset_int7_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -175,10 +175,10 @@ nh5ltmake_dataset_fl1_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -186,10 +186,10 @@ nh5ltmake_dataset_fl2_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -197,10 +197,10 @@ nh5ltmake_dataset_fl3_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -208,10 +208,10 @@ nh5ltmake_dataset_fl4_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -219,10 +219,10 @@ nh5ltmake_dataset_fl5_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -230,10 +230,10 @@ nh5ltmake_dataset_fl6_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_fl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_fl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -241,10 +241,10 @@ nh5ltmake_dataset_fl7_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -252,10 +252,10 @@ nh5ltmake_dataset_dl1_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -263,10 +263,10 @@ nh5ltmake_dataset_dl2_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -274,10 +274,10 @@ nh5ltmake_dataset_dl3_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -285,10 +285,10 @@ nh5ltmake_dataset_dl4_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -296,10 +296,10 @@ nh5ltmake_dataset_dl5_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -307,10 +307,10 @@ nh5ltmake_dataset_dl6_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_dl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_dl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -318,10 +318,10 @@ nh5ltmake_dataset_dl7_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint1_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -329,10 +329,10 @@ nh5ltmake_dataset_nint1_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint2_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -340,10 +340,10 @@ nh5ltmake_dataset_nint2_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint3_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -351,10 +351,10 @@ nh5ltmake_dataset_nint3_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint4_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -362,10 +362,10 @@ nh5ltmake_dataset_nint4_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint5_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -373,10 +373,10 @@ nh5ltmake_dataset_nint5_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint6_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -384,10 +384,10 @@ nh5ltmake_dataset_nint6_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nint7_c (hid_t_f *loc_id,
+h5ltmake_dataset_nint7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -395,10 +395,10 @@ nh5ltmake_dataset_nint7_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -406,10 +406,10 @@ nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -417,10 +417,10 @@ nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -428,10 +428,10 @@ nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -439,10 +439,10 @@ nh5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -450,10 +450,10 @@ nh5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -461,10 +461,10 @@ nh5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -472,10 +472,10 @@ nh5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -483,10 +483,10 @@ nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -494,10 +494,10 @@ nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -505,10 +505,10 @@ nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -516,10 +516,10 @@ nh5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -527,10 +527,10 @@ nh5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -538,10 +538,10 @@ nh5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
int_f
-nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
+h5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank,
@@ -549,7 +549,7 @@ nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
hid_t_f *type_id,
void *buf)
{
- return nh5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
+ return h5ltmake_dataset_c (loc_id, namelen, name, rank, dims, type_id, buf);
}
/*-------------------------------------------------------------------------
* Function: H5LTread_dataset_c
@@ -571,7 +571,7 @@ nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
*/
int_f
-nh5ltread_dataset_c (hid_t_f *loc_id,
+h5ltread_dataset_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
@@ -612,424 +612,424 @@ done:
}
int_f
-nh5ltread_dataset_int1_c (hid_t_f *loc_id,
+h5ltread_dataset_int1_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_int2_c (hid_t_f *loc_id,
+h5ltread_dataset_int2_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_int3_c (hid_t_f *loc_id,
+h5ltread_dataset_int3_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_int4_c (hid_t_f *loc_id,
+h5ltread_dataset_int4_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_int5_c (hid_t_f *loc_id,
+h5ltread_dataset_int5_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_int6_c (hid_t_f *loc_id,
+h5ltread_dataset_int6_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_int7_c (hid_t_f *loc_id,
+h5ltread_dataset_int7_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl1_c (hid_t_f *loc_id,
+h5ltread_dataset_fl1_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl2_c (hid_t_f *loc_id,
+h5ltread_dataset_fl2_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl3_c (hid_t_f *loc_id,
+h5ltread_dataset_fl3_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl4_c (hid_t_f *loc_id,
+h5ltread_dataset_fl4_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl5_c (hid_t_f *loc_id,
+h5ltread_dataset_fl5_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl6_c (hid_t_f *loc_id,
+h5ltread_dataset_fl6_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_fl7_c (hid_t_f *loc_id,
+h5ltread_dataset_fl7_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl1_c (hid_t_f *loc_id,
+h5ltread_dataset_dl1_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl2_c (hid_t_f *loc_id,
+h5ltread_dataset_dl2_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl3_c (hid_t_f *loc_id,
+h5ltread_dataset_dl3_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl4_c (hid_t_f *loc_id,
+h5ltread_dataset_dl4_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl5_c (hid_t_f *loc_id,
+h5ltread_dataset_dl5_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl6_c (hid_t_f *loc_id,
+h5ltread_dataset_dl6_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_dl7_c (hid_t_f *loc_id,
+h5ltread_dataset_dl7_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint1_c (hid_t_f *loc_id,
+h5ltread_dataset_nint1_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint2_c (hid_t_f *loc_id,
+h5ltread_dataset_nint2_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint3_c (hid_t_f *loc_id,
+h5ltread_dataset_nint3_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint4_c (hid_t_f *loc_id,
+h5ltread_dataset_nint4_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint5_c (hid_t_f *loc_id,
+h5ltread_dataset_nint5_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint6_c (hid_t_f *loc_id,
+h5ltread_dataset_nint6_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nint7_c (hid_t_f *loc_id,
+h5ltread_dataset_nint7_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl1_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl1_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl2_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl2_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl3_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl3_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl4_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl4_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl5_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl5_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl6_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl6_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_nfl7_c (hid_t_f *loc_id,
+h5ltread_dataset_nfl7_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl1_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl1_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl2_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl2_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl3_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl3_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl4_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl4_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl5_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl5_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl6_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl6_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
int_f
-nh5ltread_dataset_ndl7_c (hid_t_f *loc_id,
+h5ltread_dataset_ndl7_c (hid_t_f *loc_id,
size_t_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);
+ return h5ltread_dataset_c(loc_id, namelen, name, type_id, buf, dims);
}
/*-------------------------------------------------------------------------
* Function: H5LTmake_dataset_string_c
@@ -1051,7 +1051,7 @@ nh5ltread_dataset_ndl7_c (hid_t_f *loc_id,
*/
int_f
-nh5ltmake_dataset_string_c (hid_t_f *loc_id,
+h5ltmake_dataset_string_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *buflen,
@@ -1116,7 +1116,7 @@ done:
*/
int_f
-nh5ltread_dataset_string_c (hid_t_f *loc_id,
+h5ltread_dataset_string_c (hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
char *buf)
@@ -1174,7 +1174,7 @@ done:
*/
int_f
-nh5ltset_attribute_int_c(hid_t_f *loc_id,
+h5ltset_attribute_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1249,7 +1249,7 @@ done:
*/
int_f
-nh5ltset_attribute_float_c(hid_t_f *loc_id,
+h5ltset_attribute_float_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1318,7 +1318,7 @@ done:
*/
int_f
-nh5ltset_attribute_double_c(hid_t_f *loc_id,
+h5ltset_attribute_double_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1387,7 +1387,7 @@ done:
*/
int_f
-nh5ltset_attribute_string_c(hid_t_f *loc_id,
+h5ltset_attribute_string_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1462,7 +1462,7 @@ done:
*/
int_f
-nh5ltget_attribute_int_c(hid_t_f *loc_id,
+h5ltget_attribute_int_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1536,7 +1536,7 @@ done:
*/
int_f
-nh5ltget_attribute_float_c(hid_t_f *loc_id,
+h5ltget_attribute_float_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1601,7 +1601,7 @@ done:
*/
int_f
-nh5ltget_attribute_double_c(hid_t_f *loc_id,
+h5ltget_attribute_double_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1667,7 +1667,7 @@ done:
*/
int_f
-nh5ltget_attribute_string_c(hid_t_f *loc_id,
+h5ltget_attribute_string_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1742,7 +1742,7 @@ done:
*/
int_f
-nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
+h5ltget_dataset_ndims_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
int_f *rank)
@@ -1802,7 +1802,7 @@ done:
*/
int_f
-nh5ltfind_dataset_c(hid_t_f *loc_id,
+h5ltfind_dataset_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name)
{
@@ -1850,7 +1850,7 @@ nh5ltfind_dataset_c(hid_t_f *loc_id,
*/
int_f
-nh5ltget_dataset_info_c(hid_t_f *loc_id,
+h5ltget_dataset_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
hsize_t_f *dims,
@@ -1929,7 +1929,7 @@ done:
*/
int_f
-nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
+h5ltget_attribute_ndims_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd dsetname,
size_t_f *attrnamelen,
@@ -1998,7 +1998,7 @@ done:
*/
int_f
-nh5ltget_attribute_info_c(hid_t_f *loc_id,
+h5ltget_attribute_info_c(hid_t_f *loc_id,
size_t_f *namelen,
_fcd name,
size_t_f *attrnamelen,
@@ -2087,7 +2087,7 @@ done:
*/
int_f
-nh5ltpath_valid_c(hid_t_f *loc_id,
+h5ltpath_valid_c(hid_t_f *loc_id,
_fcd path,
size_t_f *pathlen,
int_f *check_object_valid_c)
diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90
index 9393f7f..5e1db19 100644
--- a/hl/fortran/src/H5LTff.F90
+++ b/hl/fortran/src/H5LTff.F90
@@ -18,6 +18,7 @@
!
MODULE h5lt
+ USE ISO_C_BINDING
USE h5fortran_types
USE hdf5
@@ -29,20 +30,20 @@ MODULE h5lt
MODULE PROCEDURE h5ltmake_dataset_f_int5
MODULE PROCEDURE h5ltmake_dataset_f_int6
MODULE PROCEDURE h5ltmake_dataset_f_int7
- MODULE PROCEDURE h5ltmake_dataset_f_float1
- MODULE PROCEDURE h5ltmake_dataset_f_float2
- MODULE PROCEDURE h5ltmake_dataset_f_float3
- MODULE PROCEDURE h5ltmake_dataset_f_float4
- MODULE PROCEDURE h5ltmake_dataset_f_float5
- MODULE PROCEDURE h5ltmake_dataset_f_float6
- MODULE PROCEDURE h5ltmake_dataset_f_float7
- MODULE PROCEDURE h5ltmake_dataset_f_double1
- MODULE PROCEDURE h5ltmake_dataset_f_double2
- MODULE PROCEDURE h5ltmake_dataset_f_double3
- MODULE PROCEDURE h5ltmake_dataset_f_double4
- MODULE PROCEDURE h5ltmake_dataset_f_double5
- MODULE PROCEDURE h5ltmake_dataset_f_double6
- MODULE PROCEDURE h5ltmake_dataset_f_double7
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float1
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float2
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float3
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float4
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float5
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float6
+ MODULE PROCEDURE h5ltmake_dataset_f_c_float7
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double1
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double2
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double3
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double4
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double5
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double6
+ MODULE PROCEDURE h5ltmake_dataset_f_c_double7
END INTERFACE
INTERFACE h5ltread_dataset_f
@@ -53,20 +54,20 @@ MODULE h5lt
MODULE PROCEDURE h5ltread_dataset_f_int5
MODULE PROCEDURE h5ltread_dataset_f_int6
MODULE PROCEDURE h5ltread_dataset_f_int7
- MODULE PROCEDURE h5ltread_dataset_f_float1
- MODULE PROCEDURE h5ltread_dataset_f_float2
- MODULE PROCEDURE h5ltread_dataset_f_float3
- MODULE PROCEDURE h5ltread_dataset_f_float4
- MODULE PROCEDURE h5ltread_dataset_f_float5
- MODULE PROCEDURE h5ltread_dataset_f_float6
- MODULE PROCEDURE h5ltread_dataset_f_float7
- MODULE PROCEDURE h5ltread_dataset_f_double1
- MODULE PROCEDURE h5ltread_dataset_f_double2
- MODULE PROCEDURE h5ltread_dataset_f_double3
- MODULE PROCEDURE h5ltread_dataset_f_double4
- MODULE PROCEDURE h5ltread_dataset_f_double5
- MODULE PROCEDURE h5ltread_dataset_f_double6
- MODULE PROCEDURE h5ltread_dataset_f_double7
+ MODULE PROCEDURE h5ltread_dataset_f_c_float1
+ MODULE PROCEDURE h5ltread_dataset_f_c_float2
+ MODULE PROCEDURE h5ltread_dataset_f_c_float3
+ MODULE PROCEDURE h5ltread_dataset_f_c_float4
+ MODULE PROCEDURE h5ltread_dataset_f_c_float5
+ MODULE PROCEDURE h5ltread_dataset_f_c_float6
+ MODULE PROCEDURE h5ltread_dataset_f_c_float7
+ MODULE PROCEDURE h5ltread_dataset_f_c_double1
+ MODULE PROCEDURE h5ltread_dataset_f_c_double2
+ MODULE PROCEDURE h5ltread_dataset_f_c_double3
+ MODULE PROCEDURE h5ltread_dataset_f_c_double4
+ MODULE PROCEDURE h5ltread_dataset_f_c_double5
+ MODULE PROCEDURE h5ltread_dataset_f_c_double6
+ MODULE PROCEDURE h5ltread_dataset_f_c_double7
END INTERFACE
INTERFACE h5ltmake_dataset_int_f
@@ -80,23 +81,37 @@ MODULE h5lt
END INTERFACE
INTERFACE h5ltmake_dataset_float_f
- MODULE PROCEDURE h5ltmake_dataset_float_f_1
- MODULE PROCEDURE h5ltmake_dataset_float_f_2
- MODULE PROCEDURE h5ltmake_dataset_float_f_3
- MODULE PROCEDURE h5ltmake_dataset_float_f_4
- MODULE PROCEDURE h5ltmake_dataset_float_f_5
- MODULE PROCEDURE h5ltmake_dataset_float_f_6
- MODULE PROCEDURE h5ltmake_dataset_float_f_7
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_1
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_2
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_3
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_4
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_5
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_6
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_7
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_1
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_2
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_3
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_4
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_5
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_6
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_7
END INTERFACE
INTERFACE h5ltmake_dataset_double_f
- MODULE PROCEDURE h5ltmake_dataset_double_f_1
- MODULE PROCEDURE h5ltmake_dataset_double_f_2
- MODULE PROCEDURE h5ltmake_dataset_double_f_3
- MODULE PROCEDURE h5ltmake_dataset_double_f_4
- MODULE PROCEDURE h5ltmake_dataset_double_f_5
- MODULE PROCEDURE h5ltmake_dataset_double_f_6
- MODULE PROCEDURE h5ltmake_dataset_double_f_7
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_1
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_2
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_3
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_4
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_5
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_6
+ MODULE PROCEDURE h5ltmake_dataset_c_float_f_7
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_1
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_2
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_3
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_4
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_5
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_6
+ MODULE PROCEDURE h5ltmake_dataset_c_double_f_7
END INTERFACE
INTERFACE h5ltread_dataset_int_f
@@ -110,23 +125,37 @@ MODULE h5lt
END INTERFACE
INTERFACE h5ltread_dataset_float_f
- MODULE PROCEDURE h5ltread_dataset_float_f_1
- MODULE PROCEDURE h5ltread_dataset_float_f_2
- MODULE PROCEDURE h5ltread_dataset_float_f_3
- MODULE PROCEDURE h5ltread_dataset_float_f_4
- MODULE PROCEDURE h5ltread_dataset_float_f_5
- MODULE PROCEDURE h5ltread_dataset_float_f_6
- MODULE PROCEDURE h5ltread_dataset_float_f_7
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_1
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_2
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_3
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_4
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_5
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_6
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_7
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_1
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_2
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_3
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_4
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_5
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_6
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_7
END INTERFACE
INTERFACE h5ltread_dataset_double_f
- MODULE PROCEDURE h5ltread_dataset_double_f_1
- MODULE PROCEDURE h5ltread_dataset_double_f_2
- MODULE PROCEDURE h5ltread_dataset_double_f_3
- MODULE PROCEDURE h5ltread_dataset_double_f_4
- MODULE PROCEDURE h5ltread_dataset_double_f_5
- MODULE PROCEDURE h5ltread_dataset_double_f_6
- MODULE PROCEDURE h5ltread_dataset_double_f_7
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_1
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_2
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_3
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_4
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_5
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_6
+ MODULE PROCEDURE h5ltread_dataset_c_float_f_7
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_1
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_2
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_3
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_4
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_5
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_6
+ MODULE PROCEDURE h5ltread_dataset_c_double_f_7
END INTERFACE
CONTAINS
@@ -178,17 +207,15 @@ CONTAINS
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int1_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
- INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ INTEGER(size_t) :: namelen ! length of name buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer
@@ -245,17 +272,15 @@ CONTAINS
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int2_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -303,7 +328,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
@@ -313,17 +338,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int3_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -366,7 +389,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
@@ -376,17 +399,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int4_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_INT4_C'::h5ltmake_dataset_int4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -429,7 +450,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
@@ -439,17 +460,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int5_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_INT5_C'::h5ltmake_dataset_int5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -492,7 +511,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
@@ -502,17 +521,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int6_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_INT6_C'::h5ltmake_dataset_int6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -555,7 +572,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
@@ -565,17 +582,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_int7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_int7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_int7_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_INT7_C'::h5ltmake_dataset_int7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -590,7 +605,7 @@ CONTAINS
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float1
+ ! Function: h5ltmake_dataset_f_c_float1
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -606,7 +621,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float1(loc_id,&
+ SUBROUTINE h5ltmake_dataset_f_c_float1(loc_id,&
dset_name,&
rank,&
dims,&
@@ -619,44 +634,42 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float1
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl1_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl1_c
END INTERFACE
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float1
+ END SUBROUTINE h5ltmake_dataset_f_c_float1
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float2
+ ! Function: h5ltmake_dataset_f_c_float2
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -672,7 +685,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float2(loc_id,&
+ SUBROUTINE h5ltmake_dataset_f_c_float2(loc_id,&
dset_name,&
rank,&
dims,&
@@ -685,35 +698,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float2
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl2_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl2_c
END INTERFACE
@@ -721,10 +732,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float2
+ END SUBROUTINE h5ltmake_dataset_f_c_float2
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float3
+ ! Function: h5ltmake_dataset_f_c_float3
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -740,7 +751,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float3(loc_id,&
+ SUBROUTINE h5ltmake_dataset_f_c_float3(loc_id,&
dset_name,&
rank,&
dims,&
@@ -753,23 +764,25 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float3
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl3_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_FL3_C'::h5ltmake_dataset_fl3_c
@@ -778,10 +791,10 @@ CONTAINS
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl3_c
END INTERFACE
@@ -789,10 +802,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float3
+ END SUBROUTINE h5ltmake_dataset_f_c_float3
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float4
+ ! Function: h5ltmake_dataset_f_c_float4
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -808,7 +821,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float4(loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_f_c_float4(loc_id, dset_name, rank, dims,&
type_id, buf, errcode )
IMPLICIT NONE
@@ -816,35 +829,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float4
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl4_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_FL4_C'::h5ltmake_dataset_fl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3), dims(4)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl4_c
END INTERFACE
@@ -852,10 +863,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float4
+ END SUBROUTINE h5ltmake_dataset_f_c_float4
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float5
+ ! Function: h5ltmake_dataset_f_c_float5
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -871,7 +882,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float5(loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_f_c_float5(loc_id, dset_name, rank, dims,&
type_id, buf, errcode )
IMPLICIT NONE
@@ -879,35 +890,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float5
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl5_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_FL5_C'::h5ltmake_dataset_fl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl5_c
END INTERFACE
@@ -915,10 +924,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float5
+ END SUBROUTINE h5ltmake_dataset_f_c_float5
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float6
+ ! Function: h5ltmake_dataset_f_c_float6
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -934,7 +943,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float6(loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_f_c_float6(loc_id, dset_name, rank, dims,&
type_id, buf, errcode )
IMPLICIT NONE
@@ -942,35 +951,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float6
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl6_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_FL6_C'::h5ltmake_dataset_fl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl6_c
END INTERFACE
@@ -978,10 +985,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float6
+ END SUBROUTINE h5ltmake_dataset_f_c_float6
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_float7
+ ! Function: h5ltmake_dataset_f_c_float7
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -997,7 +1004,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_float7(loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_f_c_float7(loc_id, dset_name, rank, dims,&
type_id, buf, errcode )
IMPLICIT NONE
@@ -1005,35 +1012,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_float7
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_float7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_fl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_fl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_fl7_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_FL7_C'::h5ltmake_dataset_fl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_fl7_c
END INTERFACE
@@ -1041,10 +1046,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_fl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_float7
+ END SUBROUTINE h5ltmake_dataset_f_c_float7
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double1
+ ! Function: h5ltmake_dataset_f_c_double1
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1060,7 +1065,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double1(loc_id,&
+ SUBROUTINE h5ltmake_dataset_f_c_double1(loc_id,&
dset_name,&
rank,&
dims,&
@@ -1073,22 +1078,24 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double1
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
- DOUBLE PRECISION, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl1_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_DL1_C'::h5ltmake_dataset_dl1_c
@@ -1097,20 +1104,20 @@ CONTAINS
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl1_c
END INTERFACE
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double1
+ END SUBROUTINE h5ltmake_dataset_f_c_double1
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double2
+ ! Function: h5ltmake_dataset_f_c_double2
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1126,7 +1133,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double2(loc_id,&
+ SUBROUTINE h5ltmake_dataset_f_c_double2(loc_id,&
dset_name,&
rank,&
dims,&
@@ -1139,35 +1146,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double2
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl2_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl2_c
END INTERFACE
@@ -1175,10 +1180,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double2
+ END SUBROUTINE h5ltmake_dataset_f_c_double2
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double3
+ ! Function: h5ltmake_dataset_f_c_double3
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1194,7 +1199,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double3(loc_id,&
+ SUBROUTINE h5ltmake_dataset_f_c_double3(loc_id,&
dset_name,&
rank,&
dims,&
@@ -1207,35 +1212,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double3
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl3_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl3_c
END INTERFACE
@@ -1243,10 +1246,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double3
+ END SUBROUTINE h5ltmake_dataset_f_c_double3
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double4
+ ! Function: h5ltmake_dataset_f_c_double4
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1262,7 +1265,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double4(loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_f_c_double4(loc_id, dset_name, rank, dims, &
type_id, buf, errcode )
IMPLICIT NONE
@@ -1270,35 +1273,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double4
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3), dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl4_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_DL4_C'::h5ltmake_dataset_dl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl4_c
END INTERFACE
@@ -1306,10 +1307,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double4
+ END SUBROUTINE h5ltmake_dataset_f_c_double4
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double5
+ ! Function: h5ltmake_dataset_f_c_double5
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1325,7 +1326,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double5(loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_f_c_double5(loc_id, dset_name, rank, dims, &
type_id, buf, errcode )
IMPLICIT NONE
@@ -1333,35 +1334,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double5
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl5_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_DL5_C'::h5ltmake_dataset_dl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl5_c
END INTERFACE
@@ -1369,10 +1368,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double5
+ END SUBROUTINE h5ltmake_dataset_f_c_double5
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double6
+ ! Function: h5ltmake_dataset_f_c_double6
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1388,7 +1387,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double6(loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_f_c_double6(loc_id, dset_name, rank, dims, &
type_id, buf, errcode )
IMPLICIT NONE
@@ -1396,35 +1395,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double6
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl6_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_DL6_C'::h5ltmake_dataset_dl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl6_c
END INTERFACE
@@ -1432,10 +1429,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double6
+ END SUBROUTINE h5ltmake_dataset_f_c_double6
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_f_double7
+ ! Function: h5ltmake_dataset_f_c_double7
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
@@ -1451,7 +1448,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_f_double7(loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_f_c_double7(loc_id, dset_name, rank, dims, &
type_id, buf, errcode )
IMPLICIT NONE
@@ -1459,35 +1456,33 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_f_double7
+ !DEC$attributes dllexport :: h5ltmake_dataset_f_c_double7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_dl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_dl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_dl7_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_DL7_C'::h5ltmake_dataset_dl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_dl7_c
END INTERFACE
@@ -1495,7 +1490,7 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_dl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- END SUBROUTINE h5ltmake_dataset_f_double7
+ END SUBROUTINE h5ltmake_dataset_f_c_double7
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_int1
@@ -1531,7 +1526,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), DIMENSION(*) :: buf ! data buffer
@@ -1539,17 +1534,15 @@ CONTAINS
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int1_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(HID_T), INTENT(IN) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(LEN=*), INTENT(IN) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: dset_name ! name of the dataset
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the buffer buf
INTEGER, INTENT(IN), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltread_dataset_int1_c
@@ -1594,7 +1587,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -1603,17 +1596,15 @@ CONTAINS
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int2_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
@@ -1659,7 +1650,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -1668,17 +1659,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int3_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
@@ -1720,7 +1709,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -1729,17 +1718,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int4_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_INT4_C'::h5ltread_dataset_int4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
@@ -1781,7 +1768,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -1790,17 +1777,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int5_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_INT5_C'::h5ltread_dataset_int5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
@@ -1842,7 +1827,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -1851,17 +1836,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int6_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_INT6_C'::h5ltread_dataset_int6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
@@ -1903,7 +1886,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -1912,17 +1895,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_int7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_int7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_int7_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_INT7_C'::h5ltread_dataset_int7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
@@ -1936,7 +1917,7 @@ CONTAINS
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float1
+ ! Function: h5ltread_dataset_f_c_float1
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -1952,7 +1933,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float1(loc_id,&
+ SUBROUTINE h5ltread_dataset_f_c_float1(loc_id,&
dset_name,&
type_id,&
buf,&
@@ -1964,42 +1945,40 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float1
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(inout), DIMENSION(*) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl1_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl1_c
END INTERFACE
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float1
+ END SUBROUTINE h5ltread_dataset_f_c_float1
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float2
+ ! Function: h5ltread_dataset_f_c_float2
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2015,7 +1994,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float2(loc_id,&
+ SUBROUTINE h5ltread_dataset_f_c_float2(loc_id,&
dset_name,&
type_id,&
buf,&
@@ -2027,34 +2006,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float2
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl2_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl2_c
END INTERFACE
@@ -2062,10 +2039,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float2
+ END SUBROUTINE h5ltread_dataset_f_c_float2
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float3
+ ! Function: h5ltread_dataset_f_c_float3
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2081,7 +2058,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float3(loc_id,&
+ SUBROUTINE h5ltread_dataset_f_c_float3(loc_id,&
dset_name,&
type_id,&
buf,&
@@ -2093,33 +2070,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float3
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl3_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl3_c
END INTERFACE
@@ -2127,10 +2102,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float3
+ END SUBROUTINE h5ltread_dataset_f_c_float3
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float4
+ ! Function: h5ltread_dataset_f_c_float4
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2146,7 +2121,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float4(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_float4(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2154,33 +2129,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float4
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl4_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_FL4_C'::h5ltread_dataset_fl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl4_c
END INTERFACE
@@ -2188,10 +2161,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float4
+ END SUBROUTINE h5ltread_dataset_f_c_float4
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float5
+ ! Function: h5ltread_dataset_f_c_float5
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2207,7 +2180,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float5(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_float5(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2215,33 +2188,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float5
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl5_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_FL5_C'::h5ltread_dataset_fl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl5_c
END INTERFACE
@@ -2249,10 +2220,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float5
+ END SUBROUTINE h5ltread_dataset_f_c_float5
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float6
+ ! Function: h5ltread_dataset_f_c_float6
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2268,7 +2239,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float6(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_float6(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2276,33 +2247,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float6
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl6_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_FL6_C'::h5ltread_dataset_fl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl6_c
END INTERFACE
@@ -2310,10 +2279,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float6
+ END SUBROUTINE h5ltread_dataset_f_c_float6
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_float7
+ ! Function: h5ltread_dataset_f_c_float7
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2329,7 +2298,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_float7(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_float7(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2337,33 +2306,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_float7
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_float7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_fl7_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_FL7_C'::h5ltread_dataset_fl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_fl7_c
END INTERFACE
@@ -2371,11 +2338,11 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_float7
+ END SUBROUTINE h5ltread_dataset_f_c_float7
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double1
+ ! Function: h5ltread_dataset_f_c_double1
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2391,7 +2358,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double1(loc_id,&
+ SUBROUTINE h5ltread_dataset_f_c_double1(loc_id,&
dset_name,&
type_id,&
buf,&
@@ -2403,42 +2370,40 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport ::h5ltread_dataset_f_double1
+ !DEC$attributes dllexport ::h5ltread_dataset_f_c_double1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE), INTENT(inout), DIMENSION(*) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl1_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl1_c
END INTERFACE
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double1
+ END SUBROUTINE h5ltread_dataset_f_c_double1
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double2
+ ! Function: h5ltread_dataset_f_c_double2
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2454,7 +2419,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double2(loc_id,&
+ SUBROUTINE h5ltread_dataset_f_c_double2(loc_id,&
dset_name,&
type_id,&
buf,&
@@ -2466,33 +2431,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_double2
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_double2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl2_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl2_c
END INTERFACE
@@ -2500,10 +2463,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double2
+ END SUBROUTINE h5ltread_dataset_f_c_double2
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double3
+ ! Function: h5ltread_dataset_f_c_double3
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2519,7 +2482,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double3(loc_id,&
+ SUBROUTINE h5ltread_dataset_f_c_double3(loc_id,&
dset_name,&
type_id,&
buf,&
@@ -2531,33 +2494,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_double3
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_double3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl3_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl3_c
END INTERFACE
@@ -2565,10 +2526,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double3
+ END SUBROUTINE h5ltread_dataset_f_c_double3
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double4
+ ! Function: h5ltread_dataset_f_c_double4
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2584,7 +2545,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double4(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_double4(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2592,33 +2553,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_double4
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_double4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl4_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_DL4_C'::h5ltread_dataset_dl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl4_c
END INTERFACE
@@ -2626,10 +2585,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double4
+ END SUBROUTINE h5ltread_dataset_f_c_double4
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double5
+ ! Function: h5ltread_dataset_f_c_double5
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2645,7 +2604,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double5(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_double5(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2653,33 +2612,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_double5
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_double5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl5_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_DL5_C'::h5ltread_dataset_dl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl5_c
END INTERFACE
@@ -2687,10 +2644,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double5
+ END SUBROUTINE h5ltread_dataset_f_c_double5
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double6
+ ! Function: h5ltread_dataset_f_c_double6
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2706,7 +2663,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double6(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_double6(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2714,33 +2671,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_double6
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_double6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl6_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_DL6_C'::h5ltread_dataset_dl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl6_c
END INTERFACE
@@ -2748,10 +2703,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double6
+ END SUBROUTINE h5ltread_dataset_f_c_double6
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_f_double7
+ ! Function: h5ltread_dataset_f_c_double7
!
! Purpose: Read a dataset of a type TYPE_ID
!
@@ -2767,7 +2722,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_f_double7(loc_id, dset_name, type_id, buf, &
+ SUBROUTINE h5ltread_dataset_f_c_double7(loc_id, dset_name, type_id, buf, &
dims, errcode )
IMPLICIT NONE
@@ -2775,33 +2730,31 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_f_double7
+ !DEC$attributes dllexport :: h5ltread_dataset_f_c_double7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_dl7_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_DL7_C'::h5ltread_dataset_dl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_dl7_c
END INTERFACE
@@ -2809,7 +2762,7 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- END SUBROUTINE h5ltread_dataset_f_double7
+ END SUBROUTINE h5ltread_dataset_f_c_double7
!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_int_f_1
@@ -2845,7 +2798,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer
@@ -2853,17 +2806,15 @@ CONTAINS
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint1_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer
@@ -2909,7 +2860,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -2919,17 +2870,15 @@ CONTAINS
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint2_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -2977,7 +2926,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -2987,17 +2936,15 @@ CONTAINS
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint3_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -3040,7 +2987,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -3050,17 +2997,15 @@ CONTAINS
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint4_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NINT4_C'::h5ltmake_dataset_nint4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -3103,7 +3048,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -3113,17 +3058,15 @@ CONTAINS
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint5_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NINT5_C'::h5ltmake_dataset_nint5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -3166,7 +3109,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -3176,17 +3119,15 @@ CONTAINS
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint6_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NINT6_C'::h5ltmake_dataset_nint6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -3229,7 +3170,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
@@ -3239,17 +3180,15 @@ CONTAINS
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nint7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nint7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nint7_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NINT7_C'::h5ltmake_dataset_nint7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(in), &
@@ -3263,9 +3202,9 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_int_f_7
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_1
+ ! Function: h5ltmake_dataset_c_float_f_1
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3279,7 +3218,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_1 (loc_id,&
+ SUBROUTINE h5ltmake_dataset_c_float_f_1 (loc_id,&
dset_name,&
rank,&
dims,&
@@ -3291,21 +3230,23 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_1
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl1_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL1_C'::h5ltmake_dataset_nfl1_c
@@ -3314,22 +3255,22 @@ CONTAINS
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl1_c
END INTERFACE
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_1
+ END SUBROUTINE h5ltmake_dataset_c_float_f_1
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_2
+ ! Function: h5ltmake_dataset_c_float_f_2
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3343,7 +3284,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_2 (loc_id,&
+ SUBROUTINE h5ltmake_dataset_c_float_f_2 (loc_id,&
dset_name,&
rank,&
dims,&
@@ -3355,34 +3296,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_2
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl2_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl2_c
END INTERFACE
@@ -3390,12 +3329,12 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_2
+ END SUBROUTINE h5ltmake_dataset_c_float_f_2
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_3
+ ! Function: h5ltmake_dataset_c_float_f_3
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3409,7 +3348,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_3 (loc_id,&
+ SUBROUTINE h5ltmake_dataset_c_float_f_3 (loc_id,&
dset_name,&
rank,&
dims,&
@@ -3421,34 +3360,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_3
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl3_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl3_c
END INTERFACE
@@ -3456,12 +3393,12 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_3
+ END SUBROUTINE h5ltmake_dataset_c_float_f_3
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_4
+ ! Function: h5ltmake_dataset_c_float_f_4
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3475,7 +3412,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_4 (loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_c_float_f_4 (loc_id, dset_name, rank, dims, &
buf, errcode )
IMPLICIT NONE
@@ -3483,34 +3420,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_4
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl4_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL4_C'::h5ltmake_dataset_nfl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl4_c
END INTERFACE
@@ -3518,12 +3453,12 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_4
+ END SUBROUTINE h5ltmake_dataset_c_float_f_4
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_5
+ ! Function: h5ltmake_dataset_c_float_f_5
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3537,7 +3472,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_5 (loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_c_float_f_5 (loc_id, dset_name, rank, dims, &
buf, errcode )
IMPLICIT NONE
@@ -3545,34 +3480,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_5
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl5_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL5_C'::h5ltmake_dataset_nfl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl5_c
END INTERFACE
@@ -3580,12 +3513,12 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_5
+ END SUBROUTINE h5ltmake_dataset_c_float_f_5
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_6
+ ! Function: h5ltmake_dataset_c_float_f_6
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3599,7 +3532,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_6 (loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_c_float_f_6 (loc_id, dset_name, rank, dims, &
buf, errcode )
IMPLICIT NONE
@@ -3607,34 +3540,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_6
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl6_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL6_C'::h5ltmake_dataset_nfl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl6_c
END INTERFACE
@@ -3642,12 +3573,12 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_6
+ END SUBROUTINE h5ltmake_dataset_c_float_f_6
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_float_f_7
+ ! Function: h5ltmake_dataset_c_float_f_7
!
- ! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type
!
! Return: Success: 0, Failure: -1
!
@@ -3661,7 +3592,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_float_f_7 (loc_id, dset_name, rank, dims, &
+ SUBROUTINE h5ltmake_dataset_c_float_f_7 (loc_id, dset_name, rank, dims, &
buf, errcode )
IMPLICIT NONE
@@ -3669,34 +3600,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_float_f_7
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_nfl7_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL7_C'::h5ltmake_dataset_nfl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(in), &
+ REAL(KIND=C_FLOAT), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_nfl7_c
END INTERFACE
@@ -3704,11 +3633,11 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)
- END SUBROUTINE h5ltmake_dataset_float_f_7
+ END SUBROUTINE h5ltmake_dataset_c_float_f_7
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_1
+ ! Function: h5ltmake_dataset_c_double_f_1
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -3724,7 +3653,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_1 (loc_id,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_1 (loc_id,&
dset_name,&
rank,&
dims,&
@@ -3736,34 +3665,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_1
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl1_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl1_c
END INTERFACE
@@ -3771,11 +3698,11 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_1
+ END SUBROUTINE h5ltmake_dataset_c_double_f_1
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_2
+ ! Function: h5ltmake_dataset_c_double_f_2
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -3791,7 +3718,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_2 (loc_id,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_2 (loc_id,&
dset_name,&
rank,&
dims,&
@@ -3803,34 +3730,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_2
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl2_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl2_c
END INTERFACE
@@ -3838,10 +3763,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_2
+ END SUBROUTINE h5ltmake_dataset_c_double_f_2
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_3
+ ! Function: h5ltmake_dataset_c_double_f_3
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -3857,7 +3782,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_3 (loc_id,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_3 (loc_id,&
dset_name,&
rank,&
dims,&
@@ -3869,34 +3794,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_3
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl3_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl3_c
END INTERFACE
@@ -3904,10 +3827,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_3
+ END SUBROUTINE h5ltmake_dataset_c_double_f_3
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_4
+ ! Function: h5ltmake_dataset_c_double_f_4
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -3923,7 +3846,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_4 (loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_4 (loc_id, dset_name, rank, dims,&
buf, errcode )
IMPLICIT NONE
@@ -3931,34 +3854,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_4
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl4_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NDL4_C'::h5ltmake_dataset_ndl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl4_c
END INTERFACE
@@ -3966,10 +3887,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_4
+ END SUBROUTINE h5ltmake_dataset_c_double_f_4
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_5
+ ! Function: h5ltmake_dataset_c_double_f_5
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -3985,7 +3906,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_5 (loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_5 (loc_id, dset_name, rank, dims,&
buf, errcode )
IMPLICIT NONE
@@ -3993,34 +3914,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_5
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl5_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NDL5_C'::h5ltmake_dataset_ndl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl5_c
END INTERFACE
@@ -4028,10 +3947,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_5
+ END SUBROUTINE h5ltmake_dataset_c_double_f_5
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_6
+ ! Function: h5ltmake_dataset_c_double_f_6
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -4047,7 +3966,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_6 (loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_6 (loc_id, dset_name, rank, dims,&
buf, errcode )
IMPLICIT NONE
@@ -4055,34 +3974,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_5
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl6_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NDL6_C'::h5ltmake_dataset_ndl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl6_c
END INTERFACE
@@ -4090,10 +4007,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_6
+ END SUBROUTINE h5ltmake_dataset_c_double_f_6
!-------------------------------------------------------------------------
- ! Function: h5ltmake_dataset_double_f_7
+ ! Function: h5ltmake_dataset_c_double_f_7
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
@@ -4109,7 +4026,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltmake_dataset_double_f_7 (loc_id, dset_name, rank, dims,&
+ SUBROUTINE h5ltmake_dataset_c_double_f_7 (loc_id, dset_name, rank, dims,&
buf, errcode )
IMPLICIT NONE
@@ -4117,34 +4034,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltmake_dataset_double_f_5
+ !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) &
+ BIND(C,NAME='h5ltmake_dataset_ndl7_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NDL7_C'::h5ltmake_dataset_ndl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(in) :: rank ! rank
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(in), &
+ REAL(KIND=C_DOUBLE), INTENT(in), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_ndl7_c
END INTERFACE
@@ -4152,7 +4067,7 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
- END SUBROUTINE h5ltmake_dataset_double_f_7
+ END SUBROUTINE h5ltmake_dataset_c_double_f_7
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_int_f_1
@@ -4187,7 +4102,7 @@ CONTAINS
!
INTEGER(HID_T), INTENT(IN) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4195,17 +4110,15 @@ CONTAINS
DIMENSION(dims(1)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint1_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1)) :: buf ! data buffer
@@ -4251,7 +4164,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4259,17 +4172,15 @@ CONTAINS
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint2_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
@@ -4314,7 +4225,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4322,17 +4233,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint3_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
@@ -4373,7 +4282,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4381,17 +4290,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint4_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NINT4_C'::h5ltread_dataset_nint4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
@@ -4432,7 +4339,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4440,17 +4347,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint5_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NINT5_C'::h5ltread_dataset_nint5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
@@ -4491,7 +4396,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4499,17 +4404,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint6_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NINT6_C'::h5ltread_dataset_nint6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
@@ -4550,7 +4453,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
@@ -4558,17 +4461,15 @@ CONTAINS
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nint7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nint7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nint7_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NINT7_C'::h5ltread_dataset_nint7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER, INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
@@ -4582,7 +4483,7 @@ CONTAINS
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_1
+ ! Function: h5ltread_dataset_c_float_f_1
!
! Purpose: Read a dataset
!
@@ -4598,7 +4499,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_1(loc_id,&
+ SUBROUTINE h5ltread_dataset_c_float_f_1(loc_id,&
dset_name,&
buf,&
dims,&
@@ -4609,32 +4510,30 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_1
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl1_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl1_c
END INTERFACE
@@ -4642,11 +4541,11 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_1
+ END SUBROUTINE h5ltread_dataset_c_float_f_1
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_2
+ ! Function: h5ltread_dataset_c_float_f_2
!
! Purpose: Read a dataset
!
@@ -4662,7 +4561,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_2(loc_id,&
+ SUBROUTINE h5ltread_dataset_c_float_f_2(loc_id,&
dset_name,&
buf,&
dims,&
@@ -4673,32 +4572,30 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_2
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl2_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl2_c
END INTERFACE
@@ -4706,10 +4603,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_2
+ END SUBROUTINE h5ltread_dataset_c_float_f_2
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_3
+ ! Function: h5ltread_dataset_c_float_f_3
!
! Purpose: Read a dataset
!
@@ -4725,7 +4622,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_3(loc_id,&
+ SUBROUTINE h5ltread_dataset_c_float_f_3(loc_id,&
dset_name,&
buf,&
dims,&
@@ -4736,32 +4633,30 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_3
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl3_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl3_c
END INTERFACE
@@ -4769,10 +4664,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_3
+ END SUBROUTINE h5ltread_dataset_c_float_f_3
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_4
+ ! Function: h5ltread_dataset_c_float_f_4
!
! Purpose: Read a dataset
!
@@ -4788,39 +4683,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_4(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_float_f_4(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_4
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl4_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NFL4_C'::h5ltread_dataset_nfl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl4_c
END INTERFACE
@@ -4828,10 +4721,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_4
+ END SUBROUTINE h5ltread_dataset_c_float_f_4
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_5
+ ! Function: h5ltread_dataset_c_float_f_5
!
! Purpose: Read a dataset
!
@@ -4847,39 +4740,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_5(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_float_f_5(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_5
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl5_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NFL5_C'::h5ltread_dataset_nfl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl5_c
END INTERFACE
@@ -4887,10 +4778,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_5
+ END SUBROUTINE h5ltread_dataset_c_float_f_5
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_6
+ ! Function: h5ltread_dataset_c_float_f_6
!
! Purpose: Read a dataset
!
@@ -4906,39 +4797,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_6(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_float_f_6(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_6
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl6_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NFL6_C'::h5ltread_dataset_nfl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl6_c
END INTERFACE
@@ -4946,10 +4835,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_6
+ END SUBROUTINE h5ltread_dataset_c_float_f_6
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_float_f_7
+ ! Function: h5ltread_dataset_c_float_f_7
!
! Purpose: Read a dataset
!
@@ -4965,39 +4854,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_float_f_7(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_float_f_7(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_float_f_7
+ !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_nfl7_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NFL7_C'::h5ltread_dataset_nfl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- REAL, INTENT(inout), &
+ REAL(KIND=C_FLOAT), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_nfl7_c
END INTERFACE
@@ -5005,10 +4892,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)
- END SUBROUTINE h5ltread_dataset_float_f_7
+ END SUBROUTINE h5ltread_dataset_c_float_f_7
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_1
+ ! Function: h5ltread_dataset_c_double_f_1
!
! Purpose: Read a dataset
!
@@ -5024,7 +4911,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_1(loc_id,&
+ SUBROUTINE h5ltread_dataset_c_double_f_1(loc_id,&
dset_name,&
buf,&
dims,&
@@ -5035,32 +4922,30 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_1
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_1
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl1_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl1_c
END INTERFACE
@@ -5068,11 +4953,11 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_1
+ END SUBROUTINE h5ltread_dataset_c_double_f_1
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_2
+ ! Function: h5ltread_dataset_c_double_f_2
!
! Purpose: Read a dataset
!
@@ -5088,7 +4973,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_2(loc_id,&
+ SUBROUTINE h5ltread_dataset_c_double_f_2(loc_id,&
dset_name,&
buf,&
dims,&
@@ -5099,32 +4984,30 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_2
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_2
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl2_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl2_c
END INTERFACE
@@ -5132,10 +5015,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_2
+ END SUBROUTINE h5ltread_dataset_c_double_f_2
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_3
+ ! Function: h5ltread_dataset_c_double_f_3
!
! Purpose: Read a dataset
!
@@ -5151,7 +5034,7 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_3(loc_id,&
+ SUBROUTINE h5ltread_dataset_c_double_f_3(loc_id,&
dset_name,&
buf,&
dims,&
@@ -5162,32 +5045,30 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_3
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_3
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl3_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,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
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl3_c
END INTERFACE
@@ -5195,10 +5076,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_3
+ END SUBROUTINE h5ltread_dataset_c_double_f_3
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_4
+ ! Function: h5ltread_dataset_c_double_f_4
!
! Purpose: Read a dataset
!
@@ -5214,39 +5095,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_4(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_double_f_4(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_4
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_4
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl4_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NDL4_C'::h5ltread_dataset_ndl4_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl4_c
END INTERFACE
@@ -5254,10 +5133,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_4
+ END SUBROUTINE h5ltread_dataset_c_double_f_4
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_5
+ ! Function: h5ltread_dataset_c_double_f_5
!
! Purpose: Read a dataset
!
@@ -5273,39 +5152,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_5(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_double_f_5(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_5
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_5
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl5_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NDL5_C'::h5ltread_dataset_ndl5_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl5_c
END INTERFACE
@@ -5313,10 +5190,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_5
+ END SUBROUTINE h5ltread_dataset_c_double_f_5
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_6
+ ! Function: h5ltread_dataset_c_double_f_6
!
! Purpose: Read a dataset
!
@@ -5332,39 +5209,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_6(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_double_f_6(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_6
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_6
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl6_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NDL6_C'::h5ltread_dataset_ndl6_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl6_c
END INTERFACE
@@ -5372,10 +5247,10 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_6
+ END SUBROUTINE h5ltread_dataset_c_double_f_6
!-------------------------------------------------------------------------
- ! Function: h5ltread_dataset_double_f_7
+ ! Function: h5ltread_dataset_c_double_f_7
!
! Purpose: Read a dataset
!
@@ -5391,39 +5266,37 @@ CONTAINS
!
!-------------------------------------------------------------------------
- SUBROUTINE h5ltread_dataset_double_f_7(loc_id, dset_name, buf, dims, errcode )
+ SUBROUTINE h5ltread_dataset_c_double_f_7(loc_id, dset_name, buf, dims, errcode )
IMPLICIT NONE
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltread_dataset_double_f_7
+ !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_7
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,type_id,buf,dims)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_dataset_ndl7_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_NDL7_C'::h5ltread_dataset_ndl7_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf
- DOUBLE PRECISION, INTENT(inout), &
+ REAL(KIND=C_DOUBLE), INTENT(inout), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer
END FUNCTION h5ltread_dataset_ndl7_c
END INTERFACE
@@ -5431,7 +5304,7 @@ CONTAINS
namelen = LEN(dset_name)
errcode = h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
- END SUBROUTINE h5ltread_dataset_double_f_7
+ END SUBROUTINE h5ltread_dataset_c_double_f_7
!-------------------------------------------------------------------------
@@ -5464,25 +5337,23 @@ CONTAINS
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: buf ! data buffer
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: buflen ! buffer length
INTERFACE
- INTEGER FUNCTION h5ltmake_dataset_string_c(loc_id,namelen,dset_name,buflen,buf)
- USE h5global
+ INTEGER FUNCTION h5ltmake_dataset_string_c(loc_id,namelen,dset_name,buflen,buf) &
+ BIND(C,NAME='h5ltmake_dataset_string_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_STRING_C'::h5ltmake_dataset_string_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: buflen ! length of data buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: buf ! data buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: buf ! data buffer
END FUNCTION h5ltmake_dataset_string_c
END INTERFACE
@@ -5524,23 +5395,21 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(inout) :: buf ! data buffer
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(inout) :: buf ! data buffer
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltread_dataset_string_c(loc_id,namelen,dset_name,buf)
- USE h5global
+ INTEGER FUNCTION h5ltread_dataset_string_c(loc_id,namelen,dset_name,buf) &
+ BIND(C,NAME='h5ltread_dataset_string_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTREAD_DATASET_STRING_C'::h5ltread_dataset_string_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(inout) :: buf ! data buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(inout) :: buf ! data buffer
END FUNCTION h5ltread_dataset_string_c
END INTERFACE
@@ -5591,8 +5460,8 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(size_t), INTENT(in) :: size ! size of attribute array
INTEGER :: errcode ! error code
INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer
@@ -5600,19 +5469,16 @@ CONTAINS
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltset_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)
- USE h5global
+ INTEGER FUNCTION h5ltset_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf) &
+ BIND(C,NAME='h5ltset_attribute_int_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTSET_ATTRIBUTE_INT_C'::h5ltset_attribute_int_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(size_t), INTENT(in) :: size ! size of attribute array
INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltset_attribute_int_c
@@ -5653,35 +5519,32 @@ CONTAINS
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_HL_DLL)
- !DEC$attributes dllexport :: h5ltset_attribute_float_f
+ !DEC$attributes dllexport :: h5ltset_attribute_c_float_f
!DEC$endif
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(size_t), INTENT(in) :: size ! size of attribute array
INTEGER :: errcode ! error code
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltset_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)
- USE h5global
+ INTEGER FUNCTION h5ltset_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf) &
+ BIND(C,NAME='h5ltset_attribute_float_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTSET_ATTRIBUTE_FLOAT_C'::h5ltset_attribute_float_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(size_t), INTENT(in) :: size ! size of attribute array
- REAL, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltset_attribute_float_c
END INTERFACE
@@ -5725,30 +5588,27 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(size_t), INTENT(in) :: size ! size of attribute array
INTEGER :: errcode ! error code
- DOUBLE PRECISION, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltset_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)
- USE h5global
+ INTEGER FUNCTION h5ltset_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf) &
+ BIND(C,NAME='h5ltset_attribute_double_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTSET_ATTRIBUTE_DOUBLE_C'::h5ltset_attribute_double_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(size_t), INTENT(in) :: size ! size of attribute array
- DOUBLE PRECISION, INTENT(in), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltset_attribute_double_c
END INTERFACE
@@ -5792,30 +5652,27 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER :: errcode ! error code
- CHARACTER(len=*), INTENT(in) :: buf ! data buffer
+ CHARACTER(LEN=*), DIMENSION(*), INTENT(in) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTEGER(size_t) :: buflen ! data buffer length
INTERFACE
- INTEGER FUNCTION h5ltset_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buflen,buf)
- USE h5global
+ INTEGER FUNCTION h5ltset_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buflen,buf) &
+ BIND(C,NAME='h5ltset_attribute_string_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTSET_ATTRIBUTE_STRING_C'::h5ltset_attribute_string_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
INTEGER(size_t) :: buflen ! data buffer length
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
- CHARACTER(len=*), INTENT(in) :: buf ! data buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: buf ! data buffer
END FUNCTION h5ltset_attribute_string_c
END INTERFACE
@@ -5861,27 +5718,24 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER :: errcode ! error code
INTEGER, INTENT(inout), DIMENSION(*) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
- USE h5global
+ INTEGER FUNCTION h5ltget_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,buf) &
+ BIND(C,NAME='h5ltget_attribute_int_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_ATTRIBUTE_INT_C'::h5ltget_attribute_int_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
INTEGER, INTENT(inout), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltget_attribute_int_c
END INTERFACE
@@ -5894,7 +5748,7 @@ CONTAINS
!-------------------------------------------------------------------------
- ! Function: h5ltget_attribute_float_f
+ ! Function: h5ltget_attribute_c_float_f
!
! Purpose: Reads an attribute named ATTR_NAME
!
@@ -5926,28 +5780,25 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER :: errcode ! error code
- REAL, INTENT(inout), DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_FLOAT), INTENT(inout), DIMENSION(*) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
- USE h5global
+ INTEGER FUNCTION h5ltget_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,buf) &
+ BIND(C,NAME='h5ltget_attribute_float_c')
+ IMPORT :: C_CHAR, C_FLOAT
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_ATTRIBUTE_FLOAT_C'::h5ltget_attribute_float_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
- REAL, INTENT(inout), DIMENSION(*) :: buf ! data buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
+ REAL(KIND=C_FLOAT), INTENT(inout), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltget_attribute_float_c
END INTERFACE
@@ -5958,7 +5809,7 @@ CONTAINS
END SUBROUTINE h5ltget_attribute_float_f
!-------------------------------------------------------------------------
- ! Function: h5ltget_attribute_double_f
+ ! Function: h5ltget_attribute_c_double_f
!
! Purpose: Reads an attribute named ATTR_NAME
!
@@ -5990,28 +5841,25 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER :: errcode ! error code
- DOUBLE PRECISION,INTENT(inout),DIMENSION(*) :: buf ! data buffer
+ REAL(KIND=C_DOUBLE),INTENT(inout),DIMENSION(*) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
- USE h5global
+ INTEGER FUNCTION h5ltget_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,buf) &
+ BIND(C,NAME='h5ltget_attribute_double_c')
+ IMPORT :: C_CHAR, C_DOUBLE
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_ATTRIBUTE_DOUBLE_C'::h5ltget_attribute_double_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
- DOUBLE PRECISION, INTENT(inout), DIMENSION(*) :: buf ! data buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
+ REAL(KIND=C_DOUBLE), INTENT(inout), DIMENSION(*) :: buf ! data buffer
END FUNCTION h5ltget_attribute_double_c
END INTERFACE
@@ -6054,29 +5902,26 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER :: errcode ! error code
- CHARACTER(len=*), INTENT(inout) :: buf ! data buffer
+ CHARACTER(LEN=*), INTENT(inout) :: buf ! data buffer
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTEGER(size_t) :: buf_size ! buf size
INTERFACE
- INTEGER FUNCTION h5ltget_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buf,buf_size)
- USE h5global
+ INTEGER FUNCTION h5ltget_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buf,buf_size) &
+ BIND(C,NAME='h5ltget_attribute_string_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_ATTRIBUTE_STRING_C'::h5ltget_attribute_string_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
- CHARACTER(len=*), INTENT(inout) :: buf ! data buffer
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(inout) :: buf ! data buffer
INTEGER(size_t) :: buf_size ! data buffer size
END FUNCTION h5ltget_attribute_string_c
END INTERFACE
@@ -6125,22 +5970,20 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(inout) :: rank ! rank
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_dataset_ndims_c(loc_id,namelen,dset_name,rank)
- USE h5global
+ INTEGER FUNCTION h5ltget_dataset_ndims_c(loc_id,namelen,dset_name,rank) &
+ BIND(C,NAME='h5ltget_dataset_ndims_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_DATASET_NDIMS_C'::h5ltget_dataset_ndims_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER, INTENT(inout) :: rank ! rank
END FUNCTION h5ltget_dataset_ndims_c
END INTERFACE
@@ -6182,21 +6025,19 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltfind_dataset_c(loc_id,namelen,dset_name)
- USE h5global
+ INTEGER FUNCTION h5ltfind_dataset_c(loc_id,namelen,dset_name) &
+ BIND(C,NAME='h5ltfind_dataset_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTFIND_DATASET_C'::h5ltfind_dataset_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
END FUNCTION h5ltfind_dataset_c
END INTERFACE
@@ -6240,7 +6081,7 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t),DIMENSION(*),INTENT(inout):: dims ! dimensions
INTEGER, INTENT(inout) :: type_class ! type class
INTEGER(size_t), INTENT(inout) :: type_size ! type size
@@ -6248,16 +6089,14 @@ CONTAINS
INTEGER(size_t) :: namelen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_dataset_info_c(loc_id,namelen,dset_name,dims,type_class,type_size)
- USE h5global
+ INTEGER FUNCTION h5ltget_dataset_info_c(loc_id,namelen,dset_name,dims,type_class,type_size) &
+ BIND(C,NAME='h5ltget_dataset_info_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_DATASET_INFO_C'::h5ltget_dataset_info_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
INTEGER(hsize_t),DIMENSION(*),INTENT(inout):: dims ! dimensions
INTEGER, INTENT(inout) :: type_class ! type class
INTEGER(size_t), INTENT(inout) :: type_size ! type size
@@ -6308,27 +6147,24 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER, INTENT(inout) :: rank ! rank
INTEGER :: errcode ! error code
INTEGER(size_t) :: namelen ! name length
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_attribute_ndims_c(loc_id,namelen,dset_name,attrlen,attr_name,rank)
- USE h5global
+ INTEGER FUNCTION h5ltget_attribute_ndims_c(loc_id,namelen,dset_name,attrlen,attr_name,rank) &
+ BIND(C,NAME='h5ltget_attribute_ndims_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_ATTRIBUTE_NDIMS_C'::h5ltget_attribute_ndims_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
INTEGER, INTENT(inout) :: rank ! rank
END FUNCTION h5ltget_attribute_ndims_c
END INTERFACE
@@ -6375,8 +6211,8 @@ CONTAINS
!
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(LEN=*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(hsize_t),DIMENSION(*),INTENT(inout):: dims ! dimensions
INTEGER, INTENT(inout) :: type_class ! type class
INTEGER(size_t), INTENT(inout) :: type_size ! type size
@@ -6385,19 +6221,16 @@ CONTAINS
INTEGER(size_t) :: attrlen ! name length
INTERFACE
- INTEGER FUNCTION h5ltget_attribute_info_c(loc_id,namelen,dset_name,attrlen,attr_name,dims,type_class,type_size)
- USE h5global
+ INTEGER FUNCTION h5ltget_attribute_info_c(loc_id,namelen,dset_name,attrlen,attr_name,dims,type_class,type_size) &
+ BIND(C,NAME='h5ltget_attribute_info_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTGET_ATTRIBUTE_INFO_C'::h5ltget_attribute_info_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: dset_name
- !DEC$ATTRIBUTES reference :: attr_name
INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier
INTEGER(size_t) :: namelen ! length of name buffer
INTEGER(size_t) :: attrlen ! length of attr name buffer
- CHARACTER(len=*), INTENT(in) :: dset_name ! name of the dataset
- CHARACTER(len=*), INTENT(in) :: attr_name ! name of the attribute
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: attr_name ! name of the attribute
INTEGER(hsize_t),DIMENSION(*),INTENT(inout):: dims ! dimensions
INTEGER, INTENT(inout) :: type_class ! type class
INTEGER(size_t), INTENT(inout) :: type_size ! type size
@@ -6448,15 +6281,13 @@ CONTAINS
INTEGER :: status
INTERFACE
- INTEGER FUNCTION h5ltpath_valid_c(loc_id, path, pathlen, check_object_valid_c)
- USE h5global
+ INTEGER FUNCTION h5ltpath_valid_c(loc_id, path, pathlen, check_object_valid_c) &
+ BIND(C,NAME='h5ltpath_valid_c')
+ IMPORT :: C_CHAR
+ IMPORT :: HID_T, SIZE_T, HSIZE_T
IMPLICIT NONE
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTPATH_VALID_C'::h5ltpath_valid_c
- !DEC$ENDIF
- !DEC$ATTRIBUTES reference :: path
INTEGER(hid_t), INTENT(in) :: loc_id
- CHARACTER(len=*), INTENT(in) :: path
+ CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: path
INTEGER(size_t) :: pathlen
INTEGER :: check_object_valid_c
END FUNCTION h5ltpath_valid_c
@@ -6479,8 +6310,7 @@ CONTAINS
ENDIF
END SUBROUTINE h5ltpath_valid_f
- ! end
- !
+
END MODULE H5LT
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90
index d035b89..314bf09 100644
--- a/hl/fortran/test/tstlite.f90
+++ b/hl/fortran/test/tstlite.f90
@@ -1335,6 +1335,7 @@ END SUBROUTINE test_datasets
SUBROUTINE test_attributes()
+ USE ISO_C_BINDING
USE H5LT ! module of H5LT
USE HDF5 ! module of HDF5 library
@@ -1358,8 +1359,8 @@ SUBROUTINE test_attributes()
! CHARACTER(LEN=18) :: bufr_c_lg ! Data buffer
INTEGER, DIMENSION(DIM1) :: buf2 ! Data buffer
INTEGER, DIMENSION(DIM1) :: bufr2 ! Data buffer
- REAL, DIMENSION(DIM1) :: buf3 ! Data buffer
- REAL, DIMENSION(DIM1) :: bufr3 ! Data buffer
+ REAL(C_FLOAT), DIMENSION(DIM1) :: buf3 ! Data buffer
+ REAL(C_FLOAT), DIMENSION(DIM1) :: bufr3 ! Data buffer
DOUBLE PRECISION, DIMENSION(DIM1) :: buf4 ! Data buffer
DOUBLE PRECISION, DIMENSION(DIM1) :: bufr4 ! Data buffer
INTEGER :: errcode ! Error flag