summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src/H5LTfc.c
diff options
context:
space:
mode:
authorNeil Fortner <nfortne2@hdfgroup.org>2015-04-10 23:00:48 (GMT)
committerNeil Fortner <nfortne2@hdfgroup.org>2015-04-10 23:00:48 (GMT)
commit6a27582a4488d4d18a0b6cd584b8950ab02b81a7 (patch)
tree01615f7679a3d3ef4b2d9caa487874aa421df506 /hl/fortran/src/H5LTfc.c
parent7a4b02567e4de16d7478c10ffa07562b0daf320b (diff)
parent3875cc6960266775e8078c782c8864516865be67 (diff)
downloadhdf5-6a27582a4488d4d18a0b6cd584b8950ab02b81a7.zip
hdf5-6a27582a4488d4d18a0b6cd584b8950ab02b81a7.tar.gz
hdf5-6a27582a4488d4d18a0b6cd584b8950ab02b81a7.tar.bz2
[svn-r26781] Merge revisions 26305 through 26780 from trunk to vds branch.
Tested: ummon
Diffstat (limited to 'hl/fortran/src/H5LTfc.c')
-rw-r--r--hl/fortran/src/H5LTfc.c380
1 files changed, 158 insertions, 222 deletions
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index 4f8f7b6..1e0a236 100644
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -40,7 +40,7 @@
int_f
nh5ltmake_dataset_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -49,25 +49,20 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
{
int ret_value = -1;
herr_t ret;
- hid_t c_loc_id;
- hid_t c_type_id;
char *c_name = NULL;
hsize_t *c_dims = NULL;
- int c_namelen;
int i;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_dims = HDmalloc(sizeof(hsize_t) * (*rank ));
+ c_dims = (hsize_t *)HDmalloc(sizeof(hsize_t) * ( (size_t)*rank ));
if (c_dims == NULL)
goto done;
-
/*
* transpose dimension arrays because of C-FORTRAN storage order
*/
@@ -79,11 +74,8 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
/*
* call H5LTmake_dataset function.
*/
- c_loc_id = (hid_t)*loc_id;
- c_type_id = (hid_t)*type_id;
-
- ret = H5LTmake_dataset(c_loc_id, c_name, *rank, c_dims, c_type_id, buf );
+ ret = H5LTmake_dataset((hid_t)*loc_id, c_name, (int)*rank, c_dims, (hid_t)*type_id, buf );
if (ret < 0)
goto done;
@@ -99,7 +91,7 @@ done:
int_f
nh5ltmake_dataset_int1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -110,7 +102,7 @@ nh5ltmake_dataset_int1_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_int2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -121,7 +113,7 @@ nh5ltmake_dataset_int2_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_int3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -132,7 +124,7 @@ nh5ltmake_dataset_int3_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_int4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -143,7 +135,7 @@ nh5ltmake_dataset_int4_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_int5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -154,7 +146,7 @@ nh5ltmake_dataset_int5_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_int6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -165,7 +157,7 @@ nh5ltmake_dataset_int6_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_int7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -176,7 +168,7 @@ nh5ltmake_dataset_int7_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -187,7 +179,7 @@ nh5ltmake_dataset_fl1_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -198,7 +190,7 @@ nh5ltmake_dataset_fl2_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -209,7 +201,7 @@ nh5ltmake_dataset_fl3_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -220,7 +212,7 @@ nh5ltmake_dataset_fl4_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -231,7 +223,7 @@ nh5ltmake_dataset_fl5_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -242,7 +234,7 @@ nh5ltmake_dataset_fl6_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_fl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -253,7 +245,7 @@ nh5ltmake_dataset_fl7_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -264,7 +256,7 @@ nh5ltmake_dataset_dl1_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -275,7 +267,7 @@ nh5ltmake_dataset_dl2_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -286,7 +278,7 @@ nh5ltmake_dataset_dl3_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -297,7 +289,7 @@ nh5ltmake_dataset_dl4_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -308,7 +300,7 @@ nh5ltmake_dataset_dl5_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -319,7 +311,7 @@ nh5ltmake_dataset_dl6_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_dl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -330,7 +322,7 @@ nh5ltmake_dataset_dl7_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -341,7 +333,7 @@ nh5ltmake_dataset_nint1_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -352,7 +344,7 @@ nh5ltmake_dataset_nint2_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -363,7 +355,7 @@ nh5ltmake_dataset_nint3_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -374,7 +366,7 @@ nh5ltmake_dataset_nint4_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -385,7 +377,7 @@ nh5ltmake_dataset_nint5_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -396,7 +388,7 @@ nh5ltmake_dataset_nint6_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nint7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -407,7 +399,7 @@ nh5ltmake_dataset_nint7_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -418,7 +410,7 @@ nh5ltmake_dataset_nfl1_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -429,7 +421,7 @@ nh5ltmake_dataset_nfl2_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -440,7 +432,7 @@ nh5ltmake_dataset_nfl3_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -451,7 +443,7 @@ nh5ltmake_dataset_nfl4_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -462,7 +454,7 @@ nh5ltmake_dataset_nfl5_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -473,7 +465,7 @@ nh5ltmake_dataset_nfl6_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -484,7 +476,7 @@ nh5ltmake_dataset_nfl7_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -495,7 +487,7 @@ nh5ltmake_dataset_ndl1_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -506,7 +498,7 @@ nh5ltmake_dataset_ndl2_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -517,7 +509,7 @@ nh5ltmake_dataset_ndl3_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -528,7 +520,7 @@ nh5ltmake_dataset_ndl4_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -539,7 +531,7 @@ nh5ltmake_dataset_ndl5_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -550,7 +542,7 @@ nh5ltmake_dataset_ndl6_c (hid_t_f *loc_id,
}
int_f
nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank,
hsize_t_f *dims,
@@ -580,7 +572,7 @@ nh5ltmake_dataset_ndl7_c (hid_t_f *loc_id,
int_f
nh5ltread_dataset_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -591,13 +583,11 @@ nh5ltread_dataset_c (hid_t_f *loc_id,
hid_t c_loc_id;
hid_t c_type_id;
char *c_name = NULL;
- int c_namelen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
@@ -623,7 +613,7 @@ done:
int_f
nh5ltread_dataset_int1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -633,7 +623,7 @@ nh5ltread_dataset_int1_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_int2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -643,7 +633,7 @@ nh5ltread_dataset_int2_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_int3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -653,7 +643,7 @@ nh5ltread_dataset_int3_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_int4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -663,7 +653,7 @@ nh5ltread_dataset_int4_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_int5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -673,7 +663,7 @@ nh5ltread_dataset_int5_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_int6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -683,7 +673,7 @@ nh5ltread_dataset_int6_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_int7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -693,7 +683,7 @@ nh5ltread_dataset_int7_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -703,7 +693,7 @@ nh5ltread_dataset_fl1_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -713,7 +703,7 @@ nh5ltread_dataset_fl2_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -723,7 +713,7 @@ nh5ltread_dataset_fl3_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -733,7 +723,7 @@ nh5ltread_dataset_fl4_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -743,7 +733,7 @@ nh5ltread_dataset_fl5_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -753,7 +743,7 @@ nh5ltread_dataset_fl6_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_fl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -763,7 +753,7 @@ nh5ltread_dataset_fl7_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -773,7 +763,7 @@ nh5ltread_dataset_dl1_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -783,7 +773,7 @@ nh5ltread_dataset_dl2_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -793,7 +783,7 @@ nh5ltread_dataset_dl3_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -803,7 +793,7 @@ nh5ltread_dataset_dl4_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -813,7 +803,7 @@ nh5ltread_dataset_dl5_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -823,7 +813,7 @@ nh5ltread_dataset_dl6_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_dl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -833,7 +823,7 @@ nh5ltread_dataset_dl7_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -843,7 +833,7 @@ nh5ltread_dataset_nint1_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -853,7 +843,7 @@ nh5ltread_dataset_nint2_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -863,7 +853,7 @@ nh5ltread_dataset_nint3_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -873,7 +863,7 @@ nh5ltread_dataset_nint4_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -883,7 +873,7 @@ nh5ltread_dataset_nint5_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -893,7 +883,7 @@ nh5ltread_dataset_nint6_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nint7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -903,7 +893,7 @@ nh5ltread_dataset_nint7_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -913,7 +903,7 @@ nh5ltread_dataset_nfl1_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -923,7 +913,7 @@ nh5ltread_dataset_nfl2_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -933,7 +923,7 @@ nh5ltread_dataset_nfl3_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -943,7 +933,7 @@ nh5ltread_dataset_nfl4_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -953,7 +943,7 @@ nh5ltread_dataset_nfl5_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -963,7 +953,7 @@ nh5ltread_dataset_nfl6_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_nfl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -973,7 +963,7 @@ nh5ltread_dataset_nfl7_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl1_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -983,7 +973,7 @@ nh5ltread_dataset_ndl1_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl2_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -993,7 +983,7 @@ nh5ltread_dataset_ndl2_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl3_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -1003,7 +993,7 @@ nh5ltread_dataset_ndl3_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl4_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -1013,7 +1003,7 @@ nh5ltread_dataset_ndl4_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl5_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -1023,7 +1013,7 @@ nh5ltread_dataset_ndl5_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl6_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -1033,7 +1023,7 @@ nh5ltread_dataset_ndl6_c (hid_t_f *loc_id,
}
int_f
nh5ltread_dataset_ndl7_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hid_t_f *type_id,
void *buf,
@@ -1062,29 +1052,25 @@ nh5ltread_dataset_ndl7_c (hid_t_f *loc_id,
int_f
nh5ltmake_dataset_string_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
- int_f *buflen,
+ size_t_f *buflen,
char *buf)
{
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
char *c_name = NULL;
- int c_namelen;
char *c_buf = NULL;
- int c_buflen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_buflen = *buflen;
- c_buf = (char *)HD5f2cstring(buf, c_buflen);
+ c_buf = (char *)HD5f2cstring(buf, (size_t)*buflen);
if (c_buf == NULL)
goto done;
@@ -1131,7 +1117,7 @@ done:
int_f
nh5ltread_dataset_string_c (hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
char *buf)
{
@@ -1139,13 +1125,11 @@ nh5ltread_dataset_string_c (hid_t_f *loc_id,
herr_t ret;
hid_t c_loc_id;
char *c_name = NULL;
- int c_namelen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
@@ -1191,9 +1175,9 @@ done:
int_f
nh5ltset_attribute_int_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
size_t_f *size,
void *buf)
@@ -1203,20 +1187,16 @@ nh5ltset_attribute_int_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
size_t c_size;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -1227,11 +1207,11 @@ nh5ltset_attribute_int_c(hid_t_f *loc_id,
c_size = (size_t)*size;
if (sizeof(int_f) == sizeof(int))
- ret = H5LTset_attribute_int(c_loc_id,c_name,c_attrname,buf,c_size);
+ ret = H5LTset_attribute_int(c_loc_id,c_name,c_attrname,(const int *)buf,c_size);
else if (sizeof(int_f) == sizeof(long))
- ret = H5LTset_attribute_long(c_loc_id,c_name,c_attrname,buf,c_size);
+ ret = H5LTset_attribute_long(c_loc_id,c_name,c_attrname,(const long *)buf,c_size);
else if (sizeof(int_f) == sizeof(long long))
- ret = H5LTset_attribute_long_long(c_loc_id,c_name,c_attrname,buf,c_size);
+ ret = H5LTset_attribute_long_long(c_loc_id,c_name,c_attrname,(const long long *)buf,c_size);
else
goto done;
@@ -1270,9 +1250,9 @@ done:
int_f
nh5ltset_attribute_float_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
size_t_f *size,
void *buf)
@@ -1282,20 +1262,16 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
size_t c_size;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = *attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -1305,7 +1281,7 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
c_size = (size_t)*size;
- ret = H5LTset_attribute_float(c_loc_id,c_name,c_attrname,buf,c_size);
+ ret = H5LTset_attribute_float(c_loc_id,c_name,c_attrname,(float *)buf,c_size);
if (ret < 0)
goto done;
@@ -1343,9 +1319,9 @@ done:
int_f
nh5ltset_attribute_double_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
size_t_f *size,
void *buf)
@@ -1355,20 +1331,16 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
size_t c_size;
/*
* Convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = *attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -1378,7 +1350,7 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
c_size = (size_t)*size;
- ret = H5LTset_attribute_double(c_loc_id,c_name,c_attrname,buf,c_size);
+ ret = H5LTset_attribute_double(c_loc_id,c_name,c_attrname,(double *)buf,c_size);
if (ret < 0)
goto done;
@@ -1416,11 +1388,11 @@ done:
int_f
nh5ltset_attribute_string_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
- int_f *buflen,
+ size_t_f *buflen,
void *buf)
{
int ret_value = -1;
@@ -1428,26 +1400,20 @@ nh5ltset_attribute_string_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
char *c_buf = NULL;
- int c_buflen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = *namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = *attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
- c_buflen = *buflen;
- c_buf = (char *)HD5f2cstring(buf, c_buflen);
+ c_buf = (char *)HD5f2cstring((_fcd)buf, (size_t)*buflen);
if (c_buf == NULL)
goto done;
@@ -1497,9 +1463,9 @@ done:
int_f
nh5ltget_attribute_int_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
void *buf)
{
@@ -1508,19 +1474,15 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -1530,11 +1492,11 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
if(sizeof(int_f) == sizeof(int))
- ret = H5LTget_attribute_int(c_loc_id,c_name,c_attrname,buf);
+ ret = H5LTget_attribute_int(c_loc_id,c_name,c_attrname,(int *)buf);
else if (sizeof(int_f) == sizeof(long))
- ret = H5LTget_attribute_long(c_loc_id,c_name,c_attrname,buf);
+ ret = H5LTget_attribute_long(c_loc_id,c_name,c_attrname,(long *)buf);
else if (sizeof(int_f) == sizeof(long long))
- ret = H5LTget_attribute_long_long(c_loc_id,c_name,c_attrname,buf);
+ ret = H5LTget_attribute_long_long(c_loc_id,c_name,c_attrname,(long long *)buf);
else
goto done;
@@ -1575,9 +1537,9 @@ done:
int_f
nh5ltget_attribute_float_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
void *buf)
{
@@ -1586,19 +1548,15 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -1607,7 +1565,7 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
*/
c_loc_id = (hid_t)*loc_id;
- ret = H5LTget_attribute_float(c_loc_id,c_name,c_attrname,buf);
+ ret = H5LTget_attribute_float(c_loc_id,c_name,c_attrname,(float*)buf);
if (ret < 0)
goto done;
@@ -1644,9 +1602,9 @@ done:
int_f
nh5ltget_attribute_double_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
void *buf)
{
@@ -1655,19 +1613,15 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
/*
* convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -1676,7 +1630,7 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
*/
c_loc_id = (hid_t)*loc_id;
- ret = H5LTget_attribute_double(c_loc_id,c_name,c_attrname,buf);
+ ret = H5LTget_attribute_double(c_loc_id,c_name,c_attrname,(double *)buf);
if (ret < 0)
goto done;
@@ -1714,9 +1668,9 @@ done:
int_f
nh5ltget_attribute_string_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
_fcd buf, size_t_f *buf_size)
{
@@ -1725,25 +1679,21 @@ nh5ltget_attribute_string_c(hid_t_f *loc_id,
char *c_name = NULL;
char *c_attrname = NULL;
char *c_buf = NULL;
- int c_namelen;
- int c_attrnamelen;
/*
* Convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
/*
* Allocate buffer to hold C attribute string
*/
- if ((c_buf = HDmalloc((size_t)*buf_size + 1)) == NULL)
+ if ((c_buf = (char *)HDmalloc((size_t)*buf_size + 1)) == NULL)
goto done;
/*
@@ -1793,7 +1743,7 @@ done:
int_f
nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
int_f *rank)
{
@@ -1801,14 +1751,12 @@ nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
herr_t ret;
hid_t c_loc_id;
char *c_name = NULL;
- int c_namelen;
int c_rank;
/*
* Convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
@@ -1855,19 +1803,17 @@ done:
int_f
nh5ltfind_dataset_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name)
{
hid_t c_loc_id;
char *c_name = NULL;
- int c_namelen;
herr_t ret;
/*
* Convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL) return -1;
/*
@@ -1905,7 +1851,7 @@ nh5ltfind_dataset_c(hid_t_f *loc_id,
int_f
nh5ltget_dataset_info_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
hsize_t_f *dims,
int_f *type_class,
@@ -1915,7 +1861,6 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
herr_t ret;
hid_t c_loc_id;
char *c_name = NULL;
- int c_namelen;
H5T_class_t c_classtype;
size_t c_type_size;
hsize_t c_dims[32];
@@ -1925,8 +1870,7 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
/*
* convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
@@ -1986,9 +1930,9 @@ done:
int_f
nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd dsetname,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
int_f *rank)
{
@@ -1997,20 +1941,16 @@ nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
int c_rank;
/*
* Convert FORTRAN name to C name
*/
- c_namelen =(int) *namelen;
- c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ c_name = (char *)HD5f2cstring(dsetname, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -2059,9 +1999,9 @@ done:
int_f
nh5ltget_attribute_info_c(hid_t_f *loc_id,
- int_f *namelen,
+ size_t_f *namelen,
_fcd name,
- int_f *attrnamelen,
+ size_t_f *attrnamelen,
_fcd attrname,
hsize_t_f *dims,
int_f *type_class,
@@ -2072,8 +2012,6 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
hid_t c_loc_id;
char *c_name = NULL;
char *c_attrname = NULL;
- int c_namelen;
- int c_attrnamelen;
H5T_class_t c_classtype;
size_t c_type_size;
hsize_t c_dims[32];
@@ -2083,13 +2021,11 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
/*
* convert FORTRAN name to C name
*/
- c_namelen = (int)*namelen;
- c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
goto done;
- c_attrnamelen = (int)*attrnamelen;
- c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
+ c_attrname = (char *)HD5f2cstring(attrname, (size_t)*attrnamelen);
if (c_attrname == NULL)
goto done;
@@ -2152,9 +2088,9 @@ done:
int_f
nh5ltpath_valid_c(hid_t_f *loc_id,
- _fcd path,
- int_f *pathlen,
- int_f *check_object_valid_c)
+ _fcd path,
+ size_t_f *pathlen,
+ int_f *check_object_valid_c)
{
htri_t ret = -1;
char *c_path = NULL;