[svn-r12314] Purpose:

    Code cleanup

Description:
    Big clean up on high-level library code, including:
        - Removing include of HDF5 private header file(!)
        - Reduce number of compiler warnings
        - Untangle header files, etc.

Platforms tested:
    FreeBSD 4.11 (sleipnir) w/C++
    Linux 2.4/64 (mir) w/C++ & FORTRAN

1 files changed, 4 insertions, 4 deletions

diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index 2bce973..656a393 100755
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -58,7 +58,7 @@ nh5tbmake_table_c(int_f *namelen1,
  char    *c_name1;
  int     c_namelen1;
  hsize_t num_elem;
- int     i;
+ hsize_t i;
  int     max_len=1;
  hid_t   c_loc_id     = *loc_id;
  hsize_t c_nfields    = *nfields;
@@ -340,7 +340,7 @@ nh5tbwrite_field_index_c(hid_t_f *loc_id,
  * Call H5TBwrite_fields_name function.
  */
 
- ret = H5TBwrite_fields_index(c_loc_id,c_name,1,c_field_index,c_start,c_nrecords,c_type_size,
+ ret = H5TBwrite_fields_index(c_loc_id,c_name,(hsize_t)1,c_field_index,c_start,c_nrecords,c_type_size,
    0,c_type_sizes,buf);
 
  if (ret < 0) return ret_value;
@@ -404,7 +404,7 @@ nh5tbread_field_index_c(hid_t_f *loc_id,
  * Call H5TBread_fields_index function.
  */
 
- ret = H5TBread_fields_index(c_loc_id,c_name,1,c_field_index,c_start,c_nrecords,c_type_size,
+ ret = H5TBread_fields_index(c_loc_id,c_name,(hsize_t)1,c_field_index,c_start,c_nrecords,c_type_size,
    0,c_type_sizes,buf);
 
  if (ret < 0) return ret_value;
@@ -625,7 +625,7 @@ nh5tbget_field_info_c(hid_t_f *loc_id,
  char    *c_name;
  int     c_namelen;
  hsize_t num_elem;
- int     i;
+ hsize_t i;
  int     max_len=1;
  hid_t   c_loc_id   = *loc_id;
 	hsize_t c_nfields  = *nfields;